/[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.35 by mlosch, Tue Feb 7 12:45:52 2006 UTC revision 1.36 by mlosch, Tue Feb 7 12:49:26 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)
 #ifndef MINIMAL_TAVE_OUTPUT  
255            CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)
256            CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)
257            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 276  C         CALL MNC_CW_RL_W(pf,'tave',0,0 Line 275  C         CALL MNC_CW_RL_W(pf,'tave',0,0
275  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
276            CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',            CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',
277       &         phiHydtave,myThid)       &         phiHydtave,myThid)
 #endif /* not MINIMAL_TAVE_OUTPUT */  
278            IF ( fluidIsWater ) THEN            IF ( fluidIsWater ) THEN
279              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',
280       &           phiHydLowtave,myThid)       &           phiHydLowtave,myThid)
 #ifndef MINIMAL_TAVE_OUTPUT  
281              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHL2tave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHL2tave',
282       &           phiHydLow2tave,myThid)       &           phiHydLow2tave,myThid)
283              CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',
284       &           ConvectCountTave,myThid)       &           ConvectCountTave,myThid)
 #endif /* not MINIMAL_TAVE_OUTPUT */  
285              CALL MNC_CW_RL_W(pf,'tave',0,0,'uFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'uFluxtave',
286       &           uFluxtave,myThid)       &           uFluxtave,myThid)
287              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.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22