/[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.1 by stephd, Wed Jun 25 21:00:36 2003 UTC revision 1.2 by stephd, Wed Jul 9 19:59:18 2003 UTC
# Line 56  c set arrays to zero if first timestep Line 56  c set arrays to zero if first timestep
56            CALL TIMEAVE_RESET(SUROave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(SUROave,   1,  bi, bj, myThid)
57            CALL TIMEAVE_RESET(pCO2ave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(pCO2ave,   1,  bi, bj, myThid)
58            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)
59              CALL TIMEAVE_RESET(fluxCO2ave,   1,  bi, bj, myThid)
60            print*,'QQ start timeave'            print*,'QQ start timeave'
61            do k=1,Nr            do k=1,Nr
62              DIC_TimeAve(bi,bj,k)=0.d0              DIC_TimeAve(bi,bj,k)=0.d0
# Line 83  C      Normalize by integrated time Line 84  C      Normalize by integrated time
84       &                 bi,bj,myThid)       &                 bi,bj,myThid)
85           CALL TIMEAVE_NORMALIZ(pHave,dic_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(pHave,dic_timeave, 1 ,
86       &                 bi,bj,myThid)       &                 bi,bj,myThid)
87             CALL TIMEAVE_NORMALIZ(fluxCO2ave,dic_timeave, 1 ,
88         &                 bi,bj,myThid)
89          ENDDO          ENDDO
90         ENDDO         ENDDO
91                    
# Line 96  C      Normalize by integrated time Line 99  C      Normalize by integrated time
99       &     myIter,myThid)       &     myIter,myThid)
100         CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave,         CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave,
101       &     myIter,myThid)       &     myIter,myThid)
102           CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave,
103         &     myIter,myThid)
104         CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave,         CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave,
105       &     myIter,myThid)       &     myIter,myThid)
106         CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave,         CALL WRITE_FLD_XY_RL('DIC_fluxCO2ave.',suff,fluxCO2ave,
107       &     myIter,myThid)       &     myIter,myThid)
108    
109                    
110  C      Reset averages to zero  C      Reset averages to zero
111         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
# Line 110  C      Reset averages to zero Line 116  C      Reset averages to zero
116           CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid)
117           CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid)
118           CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid)
119             CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid)
120           do k=1,Nr           do k=1,Nr
121             DIC_TimeAve(bi,bj,k)=0.d0             DIC_TimeAve(bi,bj,k)=0.d0
122           enddo           enddo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22