C*********************************************************************
C*********************************************************************
C
      SUBROUTINE FLREAD
     I   (  TIME0,
     O      TIME , 
     O      TPOT0, TEMP0, CDTURB, DTPRAD, DTPDI0, 
     O      TSFC , FHEAT, 
     D      NZ   , NZB  , NX    , NXB         )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C*********************************************************************
C
      DIMENSION
     \   TPOT0 (-2:NZB),
     \   TEMP0 (-2:NZB), 
     \   CDTURB(-2:NZB),
     \   DTPRAD(-2:NZB),
     \   DTPDI0(-2:NZB)

      DIMENSION
     \   TSFC( -2:NXB ), FHEAT( 2 )
C
C=====================================================================
C
C
    1 READ(31,ERR=10) TIME, ( TPOT0 (IZ), IZ=-2,NZB )
      IF (TIME.LT.TIME0) GO TO 1
    2 READ(32,ERR=10) TIME, ( TEMP0 (IZ), IZ=-2,NZB )
      IF (TIME.LT.TIME0) GO TO 2
    3 READ(33,ERR=10) TIME, ( CDTURB(IZ) ,IZ=-2,NZB )
      IF (TIME.LT.TIME0) GO TO 3
    4 READ(34,ERR=10) TIME, ( DTPRAD(IZ) ,IZ=-2,NZB )
      IF (TIME.LT.TIME0) GO TO 4
    5 READ(35,ERR=10) TIME, ( DTPDI0(IZ), IZ=-2,NZB )
      IF (TIME.LT.TIME0) GO TO 5
    6 READ(36,ERR=10) TIME, TSFC(1), FHEAT(1)
      IF (TIME.LT.TIME0) GO TO 6


      GO TO 11

 10   WRITE(6,*) ' DATA NOT FOUND: TIME0 TIME : ', TIME0, TIME
      STOP
C
C     CALL ACLEAR ( V, NXB, NZB, NROT, IREAD )
C
 11   call BOUND ( TEMP0, NZ, NZB )
      call BOUND ( TPOT0, NZ, NZB )      
      call BOUND ( CDTURB, NZ, NZB )

C
C=====================================================================
C
      RETURN
      E N D
