var/convertor/wave2grid_kma/REDDAT_ASCII.inc

   1       SUBROUTINE REDDAT_ASCII
   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 C     IVAR = 6
  14 C
  15 C     DO 1000 L = 1, IVAR
  16
  17 C      IF(L.EQ.1) THEN
  18         DO J = 1, JMAXE
  19           READ(NFL,FMT='(10F12.5,1x)') (DUM1(I,J),I=1,IMAXE)
  20         ENDDO
  21 C      ENDIF
  22
  23 C      IF(L.EQ.2) THEN
  24         DO J = 1, JMAXE
  25           READ(NFL,FMT='(10F12.5,1x)') (DUM2(I,J),I=1,IMAXE)
  26         ENDDO
  27           PSE = DUM2
  28 C      ENDIF
  29
  30 C      IF(L.EQ.3) THEN
  31         DO 100 K = 1, KMAX
  32         DO 100 J = 1, JMAXE
  33           READ(NFL,FMT='(10F12.5,1x)') (DUM3(I,J,K),I=1,IMAXE)
  34 100     CONTINUE
  35           GTE= DUM3
  36 C      ENDIF
  37
  38 C      IF(L.EQ.4) THEN
  39         DO 200 K = 1, KMAX
  40         DO 200 J = 1, JMAXE
  41           READ(NFL,FMT='(10F12.5,1x)') (DUM4(I,J,K),I=1,IMAXE)
  42 200     CONTINUE
  43           GUE= DUM4
  44 C      ENDIF
  45
  46 C      IF(L.EQ.5) THEN
  47         DO 300 K = 1, KMAX
  48         DO 300 J = 1, JMAXE
  49           READ(NFL,FMT='(10F12.5,1x)') (DUM5(I,J,K),I=1,IMAXE)
  50 300     CONTINUE
  51           GVE= DUM5
  52 C      ENDIF
  53
  54 C      IF(L.EQ.6) THEN
  55         DO 400 K = 1, KMAX
  56         DO 400 J = 1, JMAXE
  57           READ(NFL,FMT='(10F12.5,1x)') (DUM6(I,J,K),I=1,IMAXE)
  58 400     CONTINUE
  59           GQE= DUM6
  60 C      ENDIF
  61
  62 1000  CONTINUE
  63
  64       RETURN
  65 C
  66       END SUBROUTINE REDDAT_ASCII