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

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

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by stephd, Wed Oct 9 17:14:37 2013 UTC
# Line 40  c set arrays to zero if first timestep Line 40  c set arrays to zero if first timestep
40            CALL TIMEAVE_RESET(SURave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(SURave,   1,  bi, bj, myThid)
41            CALL TIMEAVE_RESET(SURCave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(SURCave,   1,  bi, bj, myThid)
42            CALL TIMEAVE_RESET(SUROave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(SUROave,   1,  bi, bj, myThid)
43    #ifdef pH_3D
44              CALL TIMEAVE_RESET(pCO2ave,   Nr,  bi, bj, myThid)
45              CALL TIMEAVE_RESET(pHave,   Nr,  bi, bj, myThid)
46    #else
47            CALL TIMEAVE_RESET(pCO2ave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(pCO2ave,   1,  bi, bj, myThid)
48            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)
49    #endif
50            print*,'QQ start timeave'            print*,'QQ start timeave'
51            do k=1,Nr            do k=1,Nr
52              DIC_TimeAve(bi,bj,k)=0.d0              DIC_TimeAve(bi,bj,k)=0.d0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22