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