/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_diags.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_diags.F

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

revision 1.4 by stephd, Tue Oct 23 17:55:31 2012 UTC revision 1.5 by stephd, Wed Oct 9 17:14:37 2013 UTC
# Line 65  C      Normalize by integrated time Line 65  C      Normalize by integrated time
65       &                 bi,bj,myThid)       &                 bi,bj,myThid)
66           CALL TIMEAVE_NORMALIZ(SUROave,dic_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(SUROave,dic_timeave, 1 ,
67       &                 bi,bj,myThid)       &                 bi,bj,myThid)
68    #ifdef pH_3D
69             CALL TIMEAVE_NORMALIZ(pCO2ave,dic_timeave, Nr,
70         &                 bi,bj,myThid)
71             CALL TIMEAVE_NORMALIZ(pHave,dic_timeave, Nr,
72         &                 bi,bj,myThid)
73    #else
74           CALL TIMEAVE_NORMALIZ(pCO2ave,dic_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(pCO2ave,dic_timeave, 1 ,
75       &                 bi,bj,myThid)       &                 bi,bj,myThid)
76           CALL TIMEAVE_NORMALIZ(pHave,dic_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(pHave,dic_timeave, 1 ,
77       &                 bi,bj,myThid)       &                 bi,bj,myThid)
78    #endif
79          ENDDO          ENDDO
80         ENDDO         ENDDO
81    
# Line 90  c mmol/s to GtC/y Line 97  c mmol/s to GtC/y
97       &        myIter,myThid)       &        myIter,myThid)
98           CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave,           CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave,
99       &        myIter,myThid)       &        myIter,myThid)
100    #ifdef pH_3D
101             CALL WRITE_FLD_XYZ_RL('DIC_pHtave.',suff,pHave,
102         &        myIter,myThid)
103             CALL WRITE_FLD_XYZ_RL('DIC_pCO2tave.',suff,pCO2ave,
104         &        myIter,myThid)
105    #else
106           CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave,           CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave,
107       &        myIter,myThid)       &        myIter,myThid)
108           CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave,           CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave,
109       &        myIter,myThid)       &        myIter,myThid)
110    #endif
111         ENDIF         ENDIF
112    
113  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 121  C      Reset averages to zero Line 135  C      Reset averages to zero
135           CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid)
136           CALL TIMEAVE_RESET(SURCave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(SURCave,1,bi,bj,myThid)
137           CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid)
138    #ifdef pH_3D
139             CALL TIMEAVE_RESET(pCO2ave,Nr,bi,bj,myThid)
140             CALL TIMEAVE_RESET(pHave,Nr,bi,bj,myThid)
141    #else
142           CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid)
143           CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid)           CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid)
144    #endif
145           do k=1,Nr           do k=1,Nr
146             DIC_TimeAve(bi,bj,k)=0.d0             DIC_TimeAve(bi,bj,k)=0.d0
147           enddo           enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22