97 |
CALL TIMEAVE_NORMALIZ(wVeltave, TimeAve_half,Nr,bi,bj,myThid) |
CALL TIMEAVE_NORMALIZ(wVeltave, TimeAve_half,Nr,bi,bj,myThid) |
98 |
CALL TIMEAVE_NORMALIZ(phiHydLowtave,TimeAve_full,1, |
CALL TIMEAVE_NORMALIZ(phiHydLowtave,TimeAve_full,1, |
99 |
& bi,bj,myThid) |
& bi,bj,myThid) |
|
#ifndef MINIMAL_TAVE_OUTPUT |
|
100 |
CALL TIMEAVE_NORMALIZ(UTtave, TimeAve_half,Nr,bi,bj,myThid) |
CALL TIMEAVE_NORMALIZ(UTtave, TimeAve_half,Nr,bi,bj,myThid) |
101 |
CALL TIMEAVE_NORMALIZ(VTtave, TimeAve_half,Nr,bi,bj,myThid) |
CALL TIMEAVE_NORMALIZ(VTtave, TimeAve_half,Nr,bi,bj,myThid) |
102 |
CALL TIMEAVE_NORMALIZ(WTtave, TimeAve_half,Nr,bi,bj,myThid) |
CALL TIMEAVE_NORMALIZ(WTtave, TimeAve_half,Nr,bi,bj,myThid) |
130 |
& bi,bj,myThid) |
& bi,bj,myThid) |
131 |
CALL TIMEAVE_NORMALIZ(ConvectCountTave,TimeAve_full,Nr, |
CALL TIMEAVE_NORMALIZ(ConvectCountTave,TimeAve_full,Nr, |
132 |
& bi,bj,myThid) |
& bi,bj,myThid) |
|
#endif /* ndef MINIMAL_TAVE_OUTPUT */ |
|
133 |
ENDDO |
ENDDO |
134 |
ENDDO |
ENDDO |
135 |
|
|
154 |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
155 |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
156 |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
|
#ifndef MINIMAL_TAVE_OUTPUT |
|
157 |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
158 |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
159 |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
180 |
#endif /* ALLOW_MOM_VECINV */ |
#endif /* ALLOW_MOM_VECINV */ |
181 |
CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave, |
CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave, |
182 |
& myIter,myThid) |
& myIter,myThid) |
|
#endif /* ndef MINIMAL_TAVE_OUTPUT */ |
|
183 |
IF ( fluidIsWater ) THEN |
IF ( fluidIsWater ) THEN |
184 |
CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave, |
CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave, |
185 |
& myIter,myThid) |
& myIter,myThid) |
191 |
& myIter,myThid) |
& myIter,myThid) |
192 |
CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave, |
CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave, |
193 |
& myIter,myThid) |
& myIter,myThid) |
|
#ifndef MINIMAL_TAVE_OUTPUT |
|
194 |
CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave, |
CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave, |
195 |
& myIter,myThid) |
& myIter,myThid) |
196 |
CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave, |
CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave, |
197 |
& myIter,myThid) |
& myIter,myThid) |
|
#endif /* ndef MINIMAL_TAVE_OUTPUT */ |
|
198 |
ENDIF |
ENDIF |
199 |
|
|
|
#ifndef MINIMAL_TAVE_OUTPUT |
|
200 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
201 |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
202 |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
204 |
C CALL WRITE_FLD_XYZ_RL('hFacWtave.',suff,hFacWtave,myIter,myThid) |
C CALL WRITE_FLD_XYZ_RL('hFacWtave.',suff,hFacWtave,myIter,myThid) |
205 |
C CALL WRITE_FLD_XYZ_RL('hFacStave.',suff,hFacStave,myIter,myThid) |
C CALL WRITE_FLD_XYZ_RL('hFacStave.',suff,hFacStave,myIter,myThid) |
206 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
|
#endif /* ndef MINIMAL_TAVE_OUTPUT */ |
|
207 |
|
|
208 |
C writeBinaryPrec = prevPrec |
C writeBinaryPrec = prevPrec |
209 |
C Reread IO error counter |
C Reread IO error counter |