/[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.31 by jmc, Wed Aug 24 23:17:22 2005 UTC revision 1.32 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 52  C     useVariableK :: T when vertical di Line 52  C     useVariableK :: T when vertical di
52        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
53        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
54        LOGICAL dumpFiles        LOGICAL dumpFiles
55          CHARACTER*(1) pf
56    
57  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
58        dumpFiles = .FALSE.        dumpFiles = .FALSE.
59        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock) )        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock) )
# Line 232  C         Check for IO errors Line 233  C         Check for IO errors
233  #ifdef ALLOW_MNC          #ifdef ALLOW_MNC        
234          IF (useMNC .AND. timeave_mnc) THEN          IF (useMNC .AND. timeave_mnc) THEN
235                        
236              IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
237                pf(1:1) = 'D'
238              ELSE
239                pf(1:1) = 'R'
240              ENDIF
241    
242            CALL MNC_CW_SET_UDIM('tave', -1, myThid)            CALL MNC_CW_SET_UDIM('tave', -1, myThid)
243            CALL MNC_CW_RL_W_S('D','tave',0,0,'T', myTime, myThid)            CALL MNC_CW_RL_W_S('D','tave',0,0,'T', myTime, myThid)
244            CALL MNC_CW_SET_UDIM('tave', 0, myThid)            CALL MNC_CW_SET_UDIM('tave', 0, myThid)
245            CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)            CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)
246            CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)  C         CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)
247            CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'ETAtave',etatave,myThid)
248  C         EH3: something is wrong here...  C         EH3: something is wrong here...
249  C         CALL MNC_CW_RL_W('D','tave',0,0,'Eta2tave',Eta2tave,myThid)  C         CALL MNC_CW_RL_W(pf,'tave',0,0,'Eta2tave',Eta2tave,myThid)
250            CALL MNC_CW_RL_W('D','tave',0,0,'Ttave',thetatave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'Ttave',thetatave,myThid)
251            CALL MNC_CW_RL_W('D','tave',0,0,'Stave',salttave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'Stave',salttave,myThid)
252            CALL MNC_CW_RL_W('D','tave',0,0,'uVeltave',uVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)
253            CALL MNC_CW_RL_W('D','tave',0,0,'vVeltave',vVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'vVeltave',vVeltave,myThid)
254            CALL MNC_CW_RL_W('D','tave',0,0,'wVeltave',wVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'wVeltave',wVeltave,myThid)
255            CALL MNC_CW_RL_W('D','tave',0,0,'UTtave',UTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)
256            CALL MNC_CW_RL_W('D','tave',0,0,'VTtave',VTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)
257            CALL MNC_CW_RL_W('D','tave',0,0,'WTtave',WTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'WTtave',WTtave,myThid)
258            CALL MNC_CW_RL_W('D','tave',0,0,'UStave',UStave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UStave',UStave,myThid)
259            CALL MNC_CW_RL_W('D','tave',0,0,'VStave',VStave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'VStave',VStave,myThid)
260            CALL MNC_CW_RL_W('D','tave',0,0,'WStave',WStave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'WStave',WStave,myThid)
261            CALL MNC_CW_RL_W('D','tave',0,0,'TTtave',TTtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'TTtave',TTtave,myThid)
262            CALL MNC_CW_RL_W('D','tave',0,0,'UUtave',UUtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UUtave',UUtave,myThid)
263            CALL MNC_CW_RL_W('D','tave',0,0,'VVtave',VVtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'VVtave',VVtave,myThid)
264            CALL MNC_CW_RL_W('D','tave',0,0,'UVtave',UVtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'UVtave',UVtave,myThid)
265  C         CALL MNC_CW_RL_W('D','tave',0,0,'KEtave',KEtave,myThid)  C         CALL MNC_CW_RL_W(pf,'tave',0,0,'KEtave',KEtave,myThid)
266            IF (useVariableK) THEN            IF (useVariableK) THEN
267              CALL MNC_CW_RL_W('D','tave',0,0,'Tdiftave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'Tdiftave',
268       &           TdiffRtave,myThid)       &           TdiffRtave,myThid)
269            ENDIF            ENDIF
270  #ifdef ALLOW_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
271            IF (vectorInvariantMomentum) THEN            IF (vectorInvariantMomentum) THEN
272              CALL MNC_CW_RL_W('D','tave',0,0,'uZtave',uZetatave,myThid)              CALL MNC_CW_RL_W(pf,'tave',0,0,'uZtave',uZetatave,myThid)
273              CALL MNC_CW_RL_W('D','tave',0,0,'vZtave',vZetatave,myThid)              CALL MNC_CW_RL_W(pf,'tave',0,0,'vZtave',vZetatave,myThid)
274            ENDIF            ENDIF
275  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
276            CALL MNC_CW_RL_W('D','tave',0,0,'PhHytave',            CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',
277       &         phiHydtave,myThid)       &         phiHydtave,myThid)
278            IF ( fluidIsWater ) THEN            IF ( fluidIsWater ) THEN
279              CALL MNC_CW_RL_W('D','tave',0,0,'PHLtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',
280       &           phiHydLowtave,myThid)       &           phiHydLowtave,myThid)
281              CALL MNC_CW_RL_W('D','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('D','tave',0,0,'Convtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',
284       &           ConvectCountTave,myThid)       &           ConvectCountTave,myThid)
285              CALL MNC_CW_RL_W('D','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('D','tave',0,0,'vFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'vFluxtave',
288       &           vFluxtave,myThid)       &           vFluxtave,myThid)
289              CALL MNC_CW_RL_W('D','tave',0,0,'tFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'tFluxtave',
290       &           tFluxtave,myThid)       &           tFluxtave,myThid)
291              CALL MNC_CW_RL_W('D','tave',0,0,'sFluxtave',              CALL MNC_CW_RL_W(pf,'tave',0,0,'sFluxtave',
292       &           sFluxtave,myThid)       &           sFluxtave,myThid)
293            ENDIF            ENDIF
294    
295  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
296            CALL MNC_CW_RL_W('D','tave',0,0,'hUtave',hUtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'hUtave',hUtave,myThid)
297            CALL MNC_CW_RL_W('D','tave',0,0,'hVtave',hVtave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'hVtave',hVtave,myThid)
298  C         CALL MNC_CW_RL_W('D','tave',0,0,'hFacCtave',hFacCtave,myThid)  C         CALL MNC_CW_RL_W(pf,'tave',0,0,'hFacCtave',hFacCtave,myThid)
299  C         CALL MNC_CW_RL_W('D','tave',0,0,'hFacWtave',hFacWtave,myThid)  C         CALL MNC_CW_RL_W(pf,'tave',0,0,'hFacWtave',hFacWtave,myThid)
300  C         CALL MNC_CW_RL_W('D','tave',0,0,'hFacStave',hFacStave,myThid)  C         CALL MNC_CW_RL_W(pf,'tave',0,0,'hFacStave',hFacStave,myThid)
301  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
302    
303          ENDIF          ENDIF
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22