56 |
CALL TIMEAVER_FINAL_XYZ(vVeltave,timeave,bi,bj,K,myThid) |
CALL TIMEAVER_FINAL_XYZ(vVeltave,timeave,bi,bj,K,myThid) |
57 |
CALL TIMEAVER_FINAL_XYZ(uttave,timeave,bi,bj,K,myThid) |
CALL TIMEAVER_FINAL_XYZ(uttave,timeave,bi,bj,K,myThid) |
58 |
CALL TIMEAVER_FINAL_XYZ(vttave,timeave,bi,bj,K,myThid) |
CALL TIMEAVER_FINAL_XYZ(vttave,timeave,bi,bj,K,myThid) |
59 |
|
CALL TIMEAVER_FINAL_XYZ(k13tave,intertimeave,bi,bj,K,myThid) |
60 |
|
CALL TIMEAVER_FINAL_XYZ(k23tave,intertimeave,bi,bj,K,myThid) |
61 |
CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid) |
CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid) |
62 |
CALL TIMEAVER_FINAL_XYZ(ConvectCountTave,intertimeave, |
CALL TIMEAVER_FINAL_XYZ(ConvectCountTave,intertimeave, |
63 |
& bi,bj,K,myThid) |
& bi,bj,K,myThid) |
64 |
ENDDO |
ENDDO |
65 |
|
CALL TIMEAVER_FINAL_XY(KapGMtave,intertimeave,bi,bj,myThid) |
66 |
ENDDO |
ENDDO |
67 |
ENDDO |
ENDDO |
68 |
|
|
85 |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
86 |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid) |
87 |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid) |
88 |
|
CALL WRITE_FLD_XYZ_RL('K13tave.',suff,k13tave,myIter,myThid) |
89 |
|
CALL WRITE_FLD_XYZ_RL('K23tave.',suff,k23tave,myIter,myThid) |
90 |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid) |
91 |
|
CALL WRITE_FLD_XY_RL('KapGMtave.',suff,KapGMtave,myIter,myThid) |
92 |
CALL WRITE_FLD_XYZ_RL('ConvectCntTave.',suff,ConvectCountTave, |
CALL WRITE_FLD_XYZ_RL('ConvectCntTave.',suff,ConvectCountTave, |
93 |
& myIter,myThid) |
& myIter,myThid) |
94 |
writeBinaryPrec = prevPrec |
writeBinaryPrec = prevPrec |
127 |
CALL TIMEAVER_INI_XYZ(vVeltave, bi,bj,K,myThid) |
CALL TIMEAVER_INI_XYZ(vVeltave, bi,bj,K,myThid) |
128 |
CALL TIMEAVER_INI_XYZ(uttave, bi,bj,K,myThid) |
CALL TIMEAVER_INI_XYZ(uttave, bi,bj,K,myThid) |
129 |
CALL TIMEAVER_INI_XYZ(vttave, bi,bj,K,myThid) |
CALL TIMEAVER_INI_XYZ(vttave, bi,bj,K,myThid) |
130 |
|
CALL TIMEAVER_INI_XYZ(k13tave, bi,bj,K,myThid) |
131 |
|
CALL TIMEAVER_INI_XYZ(k23tave, bi,bj,K,myThid) |
132 |
CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid) |
CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid) |
133 |
|
IF (K.EQ.1) CALL TIMEAVER_INI_XY(KapGMtave, bi,bj,myThid) |
134 |
CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi,bj,K,myThid) |
CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi,bj,K,myThid) |
135 |
TimeAve(k,bi,bj)=0. |
TimeAve(k,bi,bj)=0. |
136 |
InterTimeAve(k,bi,bj)=0. |
InterTimeAve(k,bi,bj)=0. |