var/convertor/kma_wave2grid/REOWV.inc

   1       SUBROUTINE REOWV
   2      1  (WDATA,QDATA,MEND1,NEND1,JEND1,MNWAV,KWMAX,KQMAX,KWW,KQQ,
   3      2   KMX2 ,LAG)
   4 C
   5 Crizvi      REAL*4 WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
   6       REAL      WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
   7       INTEGER*4 LAG(MEND1,NEND1)
   8 C
   9 C       DGNL ---> CLMN
  10 C
  11         L=0
  12         DO 100 M=1,MEND1
  13          NMAX=MIN(NEND1,JEND1+1-M)
  14         DO 100 N=1,NMAX
  15          L=L+1
  16          LX=LAG(M,N)
  17         DO 100 K=1,KMX2
  18          QDATA(K+KQQ,L)=WDATA(K+KWW,LX)
  19 Crizvi         write(75,fmt='(3i8,e20.6)')L,LX,K,QDATA(K+KQQ,L)
  20   100   CONTINUE
  21 C
  22 C
  23       RETURN
  24       END SUBROUTINE REOWV
  25