var/convertor/wave2grid_kma/REDDAT_BIN.inc

   1       SUBROUTINE REDDAT_BIN
   2      I(NFL   , IMAXE , JMAXE , KMAX  , PSE    ,
   3      O GTE   , GUE   , GVE   , GQE   )
   4 C
   5       REAL*8 PSE(IMAXE,JMAXE)
   6       REAL*8 GUE(IMAXE,JMAXE,KMAX),GVE(IMAXE,JMAXE,KMAX),
   7      &     GTE(IMAXE,JMAXE,KMAX),GQE(IMAXE,JMAXE,KMAX)
   8       REAL*8 DUM1(IMAXE,JMAXE),DUM2(IMAXE,JMAXE)
   9       REAL*8 DUM3(IMAXE,JMAXE,KMAX),DUM4(IMAXE,JMAXE,KMAX),
  10      &     DUM5(IMAXE,JMAXE,KMAX),DUM6(IMAXE,JMAXE,KMAX)
  11
  12 C
  13           READ(NFL) DUM1
  14           READ(NFL) DUM2
  15           PSE = DUM2
  16
  17           READ(NFL) DUM3
  18           GTE= DUM3
  19
  20           READ(NFL) DUM4
  21           GUE= DUM4
  22
  23           READ(NFL) DUM5
  24           GVE= DUM5
  25
  26           READ(NFL) DUM6
  27           GQE= DUM6
  28
  29       RETURN
  30 C
  31       END SUBROUTINE REDDAT_BIN