Merge remote-tracking branch 'origin/release-v4.6.1'
[WRF.git] / var / convertor / kma_wave2grid / REOWV.inc
blob023c9b25d07293128f166155590424dc04f49b99
1       SUBROUTINE REOWV
2      1  (WDATA,QDATA,MEND1,NEND1,JEND1,MNWAV,KWMAX,KQMAX,KWW,KQQ,
3      2   KMX2 ,LAG)
5 Crizvi      REAL*4 WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
6       REAL      WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
7       INTEGER*4 LAG(MEND1,NEND1)
9 C       DGNL ---> CLMN
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
23       RETURN
24       END SUBROUTINE REOWV