C*********************************************************************
C*********************************************************************
C
      SUBROUTINE FLWRIT
     I     (  TIME ,
     I        TPOT0, TEMP0, CDTURB, DTPRAD, DTPDI0, 
     D        NZ   , NZB              )
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)
C
C=====================================================================
C
C
      WRITE(81) TIME, ( TPOT0 (IZ),IZ=-2,NZB )
      WRITE(82) TIME, ( TEMP0 (IZ),IZ=-2,NZB )
      WRITE(83) TIME, ( CDTURB(IZ),IZ=-2,NZB )
      WRITE(84) TIME, ( DTPRAD(IZ),IZ=-2,NZB )
      WRITE(85) TIME, ( DTPDI0(IZ),IZ=-2,NZB )
C
C=====================================================================
C
      RETURN
      E N D
