var/convertor/wave2grid_kma/WRTHED.inc

   1       SUBROUTINE WRTHED
   2      I(NFL   ,
   3      I TYPE  ,IDATE ,FILE  ,MODEL ,RESL  ,EXPR  ,KTUNIT,IDTYPE,
   4      I IBACK ,NNSP  ,
   5      I IMD   ,JMD   ,NPROD ,FLONID,FLATID,
   6      I XID   ,XJD   ,XLATD ,XLOND ,
   7      I VCODD ,KMD   ,AAD   ,BBD   ,
   8      I IMM   ,JMM   ,NPROM ,FLONIM,FLATIM,
   9      I XIM   ,XJM   ,XLATM ,XLONM ,
  10      I VCODM ,KMM   ,AAM   ,BBM   ,
  11      I CINF  )
  12 CC    IMPLICIT DOUBLE PRECISION (A-H,O-Z,\)
  13 C
  14       INTEGER IDATE(5)
  15       CHARACTER*8 FILE, MODEL, RESL
  16       CHARACTER*4 TYPE, EXPR, KTUNIT
  17 C
  18       INTEGER IMD, JMD, IMM, JMM
  19       CHARACTER*4 NPROD, NPROM
  20 C
  21       CHARACTER*4 VCODD, VCODM
  22       INTEGER KMD, KMM
  23       DIMENSION AAD(KMD+1), BBD(KMD+1), AAM(KMM+1), BBM(KMM+1)
  24 C
  25       CHARACTER*80 CINF(10)
  26 C
  27       WRITE(NFL) TYPE, IDATE, FILE, MODEL, RESL, EXPR, KTUNIT, IDTYPE,
  28      1           IBACK, NNSP
  29       WRITE(NFL) IMD, JMD, NPROD,
  30      1           REAL(FLONID), REAL(FLATID),
  31      2           REAL(XID), REAL(XJD), REAL(XLATD), REAL(XLOND)
  32       WRITE(NFL) VCODD, KMD,
  33      1           (REAL(AAD(I)),I=1,KMD+1), (REAL(BBD(I)),I=1,KMD+1)
  34       WRITE(NFL) IMM, JMM, NPROM,
  35      1           REAL(FLONIM), REAL(FLATIM),
  36      2           REAL(XIM), REAL(XJM), REAL(XLATM), REAL(XLONM)
  37       WRITE(NFL) VCODM, KMM,
  38      1           (REAL(AAM(I)),I=1,KMM+1), (REAL(BBM(I)),I=1,KMM+1)
  39       WRITE(NFL) CINF
  40 C
  41       WRITE(6,*) 'WRTHED:FILE,NFL ', FILE,'   ',NFL
  42 C
  43       RETURN
  44       END SUBROUTINE WRTHED