/[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.23 by edhill, Wed Oct 13 04:37:38 2004 UTC revision 1.24 by jmc, Tue Oct 19 02:41:31 2004 UTC
# Line 164  C         CALL WRITE_FLD_XYZ_RL('KEtave. Line 164  C         CALL WRITE_FLD_XYZ_RL('KEtave.
164            CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,            CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,
165       &         myIter,myThid)       &         myIter,myThid)
166  #endif /* ndef HRCUBE */  #endif /* ndef HRCUBE */
167            IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN            IF ( fluidIsWater ) THEN
168  #ifndef HRCUBE  #ifndef HRCUBE
169              CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,              CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,
170       &           myIter,myThid)       &           myIter,myThid)
# Line 259  C         CALL MNC_CW_RL_W('D','tave',0, Line 259  C         CALL MNC_CW_RL_W('D','tave',0,
259            CALL MNC_CW_RL_W('D','tave',0,0,'PhHytave',            CALL MNC_CW_RL_W('D','tave',0,0,'PhHytave',
260       &         phiHydtave,myThid)       &         phiHydtave,myThid)
261  #endif /* ndef HRCUBE */  #endif /* ndef HRCUBE */
262            IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN            IF ( fluidIsWater ) THEN
263  #ifndef HRCUBE  #ifndef HRCUBE
264              CALL MNC_CW_RL_W('D','tave',0,0,'PHLtave',              CALL MNC_CW_RL_W('D','tave',0,0,'PHLtave',
265       &           phiHydLowtave,myThid)       &           phiHydLowtave,myThid)
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22