C*********************************************************************
C*********************************************************************
C
      SUBROUTINE FLWRIT
     I   (  TIME ,  IWRIT,
     I      U, V, W, TPOT, QVAP, QCLW, QRAI, PPAI, CDTURB, TEMPG, 
     D      NX, NZ, NXB, NZB, NZG, NROT           )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C*********************************************************************
C
      DIMENSION
     \   U   ( -2:NXB, -2:NZB, NROT ),
     \   V   ( -2:NXB, -2:NZB, NROT ),
     \   W   ( -2:NXB, -2:NZB, NROT ),
     \   TPOT( -2:NXB, -2:NZB, NROT ),
     \   QVAP( -2:NXB, -2:NZB, NROT ),
     \   QCLW( -2:NXB, -2:NZB, NROT ),
     \   QRAI( -2:NXB, -2:NZB, NROT ),
     \   PPAI( -2:NXB, -2:NZB, NROT ),
     \ CDTURB( -2:NXB, -2:NZB, NROT ),
     \  TEMPG( -2:NXB,  NZG )

C
C=====================================================================
C
C
      WRITE(81) TIME, ((U   (IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(82) TIME, ((V   (IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(83) TIME, ((W   (IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(84) TIME, ((TPOT(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(85) TIME, ((QVAP(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(86) TIME, ((QCLW(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(87) TIME, ((QRAI(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(88) TIME, ((PPAI(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(89) TIME, ((CDTURB(IX,IZ, IWRIT), IX=-2,NXB),IZ=-2,NZB)
      WRITE(90) TIME, ((TEMPG(IX,IZ), IX=-2,NXB),IZ=1,NZG)
C
C=====================================================================
C
      RETURN
      E N D
