/[MITgcm]/MITgcm/pkg/gchem/gchem_forcing_sep.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_forcing_sep.F

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

revision 1.1 by stephd, Mon Oct 6 20:06:52 2003 UTC revision 1.2 by stephd, Tue Oct 7 16:21:12 2003 UTC
# Line 88  c Line 88  c
88  #endif  #endif
89  #endif  #endif
90  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
91    
92    #ifdef PTRACERS_SEPARATE_FORCING
93    C     time averaging directly, here otherwise in the_correction_step
94               CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)
95    #endif /* PTRACERS_SEPARATE_FORCING */
96    
97  c  c
98          ENDDO          ENDDO
99         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22