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

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

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

revision 1.8 by dfer, Mon Apr 7 20:31:16 2008 UTC revision 1.9 by dfer, Tue Apr 8 20:21:35 2008 UTC
# Line 19  C     == GLobal variables == Line 19  C     == GLobal variables ==
19  #include "PARAMS.h"  #include "PARAMS.h"
20  #include "GRID.h"  #include "GRID.h"
21  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
 #include "PTRACERS_PARAMS.h"  
22  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
 #include "GCHEM.h"  
23  #include "DIC_VARS.h"  #include "DIC_VARS.h"
24  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
25  #include "DIC_DIAGS.h"  #include "DIC_DIAGS.h"
26  #include "DIC_COST.h"  #include "DIC_COST.h"
27  #endif  #endif
 c#ifdef ALLOW_SEAICE  
 c#include "SEAICE.h"  
 c#endif  
28    
29  C     == Routine arguments ==  C     == Routine arguments ==
30        INTEGER myThid        INTEGER myThid
# Line 215  cswdmonth -end- Line 210  cswdmonth -end-
210          _END_MASTER(myThid)          _END_MASTER(myThid)
211  C  C
212  C Reset averages to zero  C Reset averages to zero
213         print*,'QQ dic_diags, set to zero, gchem_init'         print*,'QQ dic_aver_init, set to zero'
214         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
215          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
216           CALL TIMEAVE_RESET(PO4ann,Nr,bi,bj,myThid)           CALL TIMEAVE_RESET(PO4ann,Nr,bi,bj,myThid)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22