/[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.10 by dimitri, Thu Oct 23 07:14:49 2003 UTC revision 1.11 by edhill, Fri Oct 24 05:29:36 2003 UTC
# Line 54  C-    Final Time Averages and Dump Files Line 54  C-    Final Time Averages and Dump Files
54         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
55          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
56  C-     Normalize by integrated time  C-     Normalize by integrated time
           CALL TIMEAVE_NORMALIZ(uFluxtave,TimeAve_half,1 ,bi,bj,myThid)  
           CALL TIMEAVE_NORMALIZ(vFluxtave,TimeAve_half,1 ,bi,bj,myThid)  
           CALL TIMEAVE_NORMALIZ(tFluxtave,TimeAve_half,1 ,bi,bj,myThid)  
           CALL TIMEAVE_NORMALIZ(sFluxtave,TimeAve_half,1 ,bi,bj,myThid)  
57            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)
58            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)
59            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)
# Line 112  C--    Read IO error counter Line 108  C--    Read IO error counter
108         beginIOErrCount = IO_ERRCOUNT(myThid)         beginIOErrCount = IO_ERRCOUNT(myThid)
109  c      prevPrec = writeBinaryPrec  c      prevPrec = writeBinaryPrec
110  c      writeBinaryPrec = precFloat32  c      writeBinaryPrec = precFloat32
111         CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,myIter,myThid)         CALL WRITE_FLD_XY_RL('ETAtave.',suff,etatave,myIter,myThid)
112         CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,myIter,myThid)         CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave,myIter,myThid)
        CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('ETAtave.'  ,suff,etatave  ,myIter,myThid)  
        CALL WRITE_FLD_XY_RL('Eta2tave.' ,suff,Eta2tave ,myIter,myThid)  
113    
114         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
115         CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22