64 |
& bi,bj,myThid) |
& bi,bj,myThid) |
65 |
CALL TIMEAVE_NORMALIZ(OmegaCave, DIC_timeave, nR , |
CALL TIMEAVE_NORMALIZ(OmegaCave, DIC_timeave, nR , |
66 |
& bi,bj,myThid) |
& bi,bj,myThid) |
67 |
CALL TIMEAVE_NORMALIZ(pfluxave,dic_timeave, 1 , |
CALL TIMEAVE_NORMALIZ(pfluxave,dic_timeave, nR , |
68 |
& bi,bj,myThid) |
& bi,bj,myThid) |
69 |
CALL TIMEAVE_NORMALIZ(cfluxave,dic_timeave, 1 , |
CALL TIMEAVE_NORMALIZ(cfluxave,dic_timeave, nR , |
70 |
& bi,bj,myThid) |
& bi,bj,myThid) |
71 |
ENDDO |
ENDDO |
72 |
ENDDO |
ENDDO |
89 |
& myIter,myThid) |
& myIter,myThid) |
90 |
CALL WRITE_FLD_XYZ_RL('DIC_OmegaCtave.',suff,OmegaCave, |
CALL WRITE_FLD_XYZ_RL('DIC_OmegaCtave.',suff,OmegaCave, |
91 |
& myIter,myThid) |
& myIter,myThid) |
92 |
CALL WRITE_FLD_XY_RL('DIC_pfluxtave.',suff,pfluxave, |
CALL WRITE_FLD_XYZ_RL('DIC_pfluxtave.',suff,pfluxave, |
93 |
& myIter,myThid) |
& myIter,myThid) |
94 |
CALL WRITE_FLD_XY_RL('DIC_cfluxtave.',suff,cfluxave, |
CALL WRITE_FLD_XYZ_RL('DIC_cfluxtave.',suff,cfluxave, |
95 |
& myIter,myThid) |
& myIter,myThid) |
96 |
ENDIF |
ENDIF |
97 |
|
|
135 |
CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid) |
CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid) |
136 |
CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid) |
CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid) |
137 |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
138 |
CALL TIMEAVE_RESET(pfluxave,1,bi,bj,myThid) |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
139 |
CALL TIMEAVE_RESET(cfluxave,1,bi,bj,myThid) |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
140 |
do k=1,Nr |
do k=1,Nr |
141 |
DIC_TimeAve(bi,bj,k)=0.d0 |
DIC_TimeAve(bi,bj,k)=0.d0 |
142 |
enddo |
enddo |