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) |
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) |