/[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.34 by cnh, Tue Nov 8 23:05:45 2005 UTC revision 1.35 by mlosch, Tue Feb 7 12:45:52 2006 UTC
# Line 252  C         CALL MNC_CW_RL_W(pf,'tave',0,0 Line 252  C         CALL MNC_CW_RL_W(pf,'tave',0,0
252            CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)
253            CALL MNC_CW_RL_W(pf,'tave',0,0,'vVeltave',vVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'vVeltave',vVeltave,myThid)
254            CALL MNC_CW_RL_W(pf,'tave',0,0,'wVeltave',wVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'wVeltave',wVeltave,myThid)
255    #ifndef MINIMAL_TAVE_OUTPUT
256            CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)
257            CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)
258            CALL MNC_CW_RL_W(pf,'tave',0,0,'WTtave',WTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'WTtave',WTtave,myThid)
# Line 275  C         CALL MNC_CW_RL_W(pf,'tave',0,0 Line 276  C         CALL MNC_CW_RL_W(pf,'tave',0,0
276  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
277            CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',            CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',
278       &         phiHydtave,myThid)       &         phiHydtave,myThid)
279    #endif /* not MINIMAL_TAVE_OUTPUT */
280            IF ( fluidIsWater ) THEN            IF ( fluidIsWater ) THEN
281              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',
282       &           phiHydLowtave,myThid)       &           phiHydLowtave,myThid)
283    #ifndef MINIMAL_TAVE_OUTPUT
284              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHL2tave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHL2tave',
285       &           phiHydLow2tave,myThid)       &           phiHydLow2tave,myThid)
286              CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',
287       &           ConvectCountTave,myThid)       &           ConvectCountTave,myThid)
288    #endif /* not MINIMAL_TAVE_OUTPUT */
289              CALL MNC_CW_RL_W(pf,'tave',0,0,'uFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'uFluxtave',
290       &           uFluxtave,myThid)       &           uFluxtave,myThid)
291              CALL MNC_CW_RL_W(pf,'tave',0,0,'vFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'vFluxtave',
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22