/[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.12 by edhill, Tue Nov 4 19:51:54 2003 UTC revision 1.13 by dimitri, Thu Nov 13 06:35:15 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
57              CALL TIMEAVE_NORMALIZ(uFluxtave,TimeAve_full,1 ,bi,bj,myThid)
58              CALL TIMEAVE_NORMALIZ(vFluxtave,TimeAve_full,1 ,bi,bj,myThid)
59              CALL TIMEAVE_NORMALIZ(tFluxtave,TimeAve_full,1 ,bi,bj,myThid)
60              CALL TIMEAVE_NORMALIZ(sFluxtave,TimeAve_full,1 ,bi,bj,myThid)
61            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)
62            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)
63            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)
# Line 108  C--    Read IO error counter Line 112  C--    Read IO error counter
112         beginIOErrCount = IO_ERRCOUNT(myThid)         beginIOErrCount = IO_ERRCOUNT(myThid)
113  c      prevPrec = writeBinaryPrec  c      prevPrec = writeBinaryPrec
114  c      writeBinaryPrec = precFloat32  c      writeBinaryPrec = precFloat32
115         CALL WRITE_FLD_XY_RL('ETAtave.',suff,etatave,myIter,myThid)         CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,myIter,myThid)
116         CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave,myIter,myThid)         CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,myIter,myThid)
117           CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,myIter,myThid)
118           CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,myIter,myThid)
119           CALL WRITE_FLD_XY_RL('ETAtave.'  ,suff,etatave  ,myIter,myThid)
120           CALL WRITE_FLD_XY_RL('Eta2tave.' ,suff,Eta2tave ,myIter,myThid)
121    
122         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
123         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.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22