/[MITgcm]/MITgcm/pkg/timeave/timeave_statv_write.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statv_write.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by dimitri, Thu Nov 13 06:35:15 2003 UTC revision 1.14 by jmc, Tue Dec 30 02:37:11 2003 UTC
# Line 112  C--    Read IO error counter Line 112  C--    Read IO error counter
112         beginIOErrCount = IO_ERRCOUNT(myThid)         beginIOErrCount = IO_ERRCOUNT(myThid)
113  c      prevPrec = writeBinaryPrec  c      prevPrec = writeBinaryPrec
114  c      writeBinaryPrec = precFloat32  c      writeBinaryPrec = precFloat32
        CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,myIter,myThid)  
115         CALL WRITE_FLD_XY_RL('ETAtave.'  ,suff,etatave  ,myIter,myThid)         CALL WRITE_FLD_XY_RL('ETAtave.'  ,suff,etatave  ,myIter,myThid)
116         CALL WRITE_FLD_XY_RL('Eta2tave.' ,suff,Eta2tave ,myIter,myThid)         CALL WRITE_FLD_XY_RL('Eta2tave.' ,suff,Eta2tave ,myIter,myThid)
117    
# Line 142  c      CALL WRITE_FLD_XYZ_RL('KEtave.',s Line 138  c      CALL WRITE_FLD_XYZ_RL('KEtave.',s
138         ENDIF         ENDIF
139  #endif  #endif
140         CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,myIter,myThid)
141         IF ( buoyancyRelation .NE. 'ATMOSPHERIC' ) THEN         IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN
142         CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,          CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,
143       &      myIter,myThid)       &       myIter,myThid)
144         CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave,          CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave,
145       &      myIter,myThid)       &       myIter,myThid)
146         CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave,          CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave,
147       &                       myIter,myThid)       &                        myIter,myThid)
148            CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,myIter,myThid)
149            CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,myIter,myThid)
150            CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,myIter,myThid)
151            CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,myIter,myThid)
152         ENDIF         ENDIF
153    
154  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22