/[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.1 by jmc, Tue Mar 6 15:56:08 2001 UTC revision 1.2 by adcroft, Tue May 29 14:01:40 2001 UTC
# Line 55  C-     Normalize by integrated time Line 55  C-     Normalize by integrated time
55            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)
56            CALL TIMEAVE_NORMALIZ(uVeltave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(uVeltave, TimeAve_half,Nr,bi,bj,myThid)
57            CALL TIMEAVE_NORMALIZ(vVeltave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(vVeltave, TimeAve_half,Nr,bi,bj,myThid)
58              CALL TIMEAVE_NORMALIZ(TTtave,   TimeAve_half,Nr,bi,bj,myThid)
59              CALL TIMEAVE_NORMALIZ(UUtave,   TimeAve_half,Nr,bi,bj,myThid)
60              CALL TIMEAVE_NORMALIZ(VVtave,   TimeAve_half,Nr,bi,bj,myThid)
61            CALL TIMEAVE_NORMALIZ(uttave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(uttave,   TimeAve_half,Nr,bi,bj,myThid)
62            CALL TIMEAVE_NORMALIZ(vttave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(vttave,   TimeAve_half,Nr,bi,bj,myThid)
63    
# Line 77  C--     Set IO "context" for writing sta Line 80  C--     Set IO "context" for writing sta
80  #endif  #endif
81  C--     Read IO error counter  C--     Read IO error counter
82          beginIOErrCount = IO_ERRCOUNT(myThid)          beginIOErrCount = IO_ERRCOUNT(myThid)
83          prevPrec = writeBinaryPrec  c       prevPrec = writeBinaryPrec
84          writeBinaryPrec = precFloat32  c       writeBinaryPrec = precFloat32
85          CALL WRITE_FLD_XY_RL('ETAtave.',suff,etaTave,myIter,myThid)          CALL WRITE_FLD_XY_RL('ETAtave.',suff,etaTave,myIter,myThid)
86    
87          CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
88          CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)
89          CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid)
90          CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid)
91            CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid)
92            CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid)
93            CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid)
94          CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid)
95          CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid)
96          CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid)
97          CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,myIter,myThid)
98          CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave,          CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave,
99       &                        myIter,myThid)       &                        myIter,myThid)
100          writeBinaryPrec = prevPrec  c       writeBinaryPrec = prevPrec
101  C--     Reread IO error counter  C--     Reread IO error counter
102          endIOErrCount = IO_ERRCOUNT(myThid)          endIOErrCount = IO_ERRCOUNT(myThid)
103    
# Line 126  C--    Reset the averages to zero Line 132  C--    Reset the averages to zero
132            CALL TIMEAVE_RESET(uVeltave, Nr, bi,bj,myThid)            CALL TIMEAVE_RESET(uVeltave, Nr, bi,bj,myThid)
133            CALL TIMEAVE_RESET(vVeltave, Nr, bi,bj,myThid)            CALL TIMEAVE_RESET(vVeltave, Nr, bi,bj,myThid)
134            CALL TIMEAVE_RESET(wVeltave, Nr, bi,bj,myThid)            CALL TIMEAVE_RESET(wVeltave, Nr, bi,bj,myThid)
135              CALL TIMEAVE_RESET(TTtave,   Nr, bi,bj,myThid)
136              CALL TIMEAVE_RESET(UUtave,   Nr, bi,bj,myThid)
137              CALL TIMEAVE_RESET(VVtave,   Nr, bi,bj,myThid)
138            CALL TIMEAVE_RESET(uttave,   Nr, bi,bj,myThid)            CALL TIMEAVE_RESET(uttave,   Nr, bi,bj,myThid)
139            CALL TIMEAVE_RESET(vttave,   Nr, bi,bj,myThid)            CALL TIMEAVE_RESET(vttave,   Nr, bi,bj,myThid)
140            CALL TIMEAVE_RESET(phiHydtave,Nr,bi,bj,myThid)            CALL TIMEAVE_RESET(phiHydtave,Nr,bi,bj,myThid)
# Line 145  C      "single" fields Line 154  C      "single" fields
154            CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr,DDTT, bi,bj,myThid)            CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr,DDTT, bi,bj,myThid)
155    
156  C      "double" fields  C      "double" fields
157              CALL TIMEAVE_CUMUL_2V(TTtave, theta, theta, Nr, 0, DDTT,
158         &         bi,bj,myThid)
159              CALL TIMEAVE_CUMUL_2V(UUtave, uVel, uVel, Nr, 0, DDTT,
160         &         bi,bj,myThid)
161              CALL TIMEAVE_CUMUL_2V(VVtave, vVel, vVel, Nr, 0, DDTT,
162         &         bi,bj,myThid)
163            CALL TIMEAVE_CUMUL_2V(uttave, theta, uVel, Nr, 1, DDTT,            CALL TIMEAVE_CUMUL_2V(uttave, theta, uVel, Nr, 1, DDTT,
164       &         bi,bj,myThid)       &         bi,bj,myThid)
165            CALL TIMEAVE_CUMUL_2V(vttave, theta, vVel, Nr, 2, DDTT,            CALL TIMEAVE_CUMUL_2V(vttave, theta, vVel, Nr, 2, DDTT,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22