var/convertor/wave2grid_kma/WRTDAT.inc

   1       SUBROUTINE WRTDAT
   2      I(NFL   ,
   3      I IDATE , KT    ,
   4      I LEVEL , ELEM  , TITLE , UNIT  , KTSD  , KTSA  ,
   5      I DATA  , IDIM  , JDIM  ,
   6      W IDA   )
   7 C
   8       INTEGER IDATE(5)
   9       CHARACTER* 4 LEVEL, ELEM
  10       CHARACTER*32 TITLE
  11       CHARACTER*16 UNIT
  12       REAL*8    DATA(IDIM*JDIM) ! <<<--- WARNING!!! THIS IS REAL*8
  13 c     INTEGER*2 IDA(IDIM*JDIM)    !shc-rizvi
  14       INTEGER   IDA(IDIM*JDIM/2)    !shc-rizvi
  15 C
  16       NELM=1
  17       WRITE(NFL) IDATE, KT, NELM, LEVEL, ELEM
  18       CALL CR8I2V(DATA,BASE,AMP,IDA,IDIM*JDIM)
  19       WRITE(NFL) LEVEL, ELEM, TITLE, UNIT, KTSD, KTSA, BASE, AMP, IDA
  20 C
  21       RETURN
  22       END SUBROUTINE WRTDAT