/[MITgcm]/MITgcm/pkg/dic/dic_biotic_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_biotic_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by stephd, Thu Aug 18 18:24:29 2005 UTC revision 1.9 by stephd, Fri Sep 16 20:16:31 2005 UTC
# Line 64  C      Normalize by integrated time Line 64  C      Normalize by integrated time
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
# Line 89  C      Normalize by integrated time Line 89  C      Normalize by integrated time
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    
# Line 135  C      Reset averages to zero Line 135  C      Reset averages to zero
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
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22