/[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.16 by dfer, Mon Aug 27 19:45:09 2007 UTC revision 1.20 by jmc, Thu Nov 8 22:36:08 2007 UTC
# Line 11  C !INTERFACE: ========================== Line 11  C !INTERFACE: ==========================
11  C !DESCRIPTION:  C !DESCRIPTION:
12  C     calls subroutine that will update passive tracers values  C     calls subroutine that will update passive tracers values
13  C     with a separate timestep. Since GCHEM_FORCING_SEP is now  C     with a separate timestep. Since GCHEM_FORCING_SEP is now
14  C     called before DO_FIELDS_BLOCKING_EXCHANGES, the passive  C     called before DO_FIELDS_BLOCKING_EXCHANGES, the passive
15  C     tracer values in the halo regions are not up to date and  C     tracer values in the halo regions are not up to date and
16  C     must not be used.  C     must not be used.
17    
18  C !USES: ===============================================================  C !USES: ===============================================================
# Line 23  C !USES: =============================== Line 23  C !USES: ===============================
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
26  #include "PTRACERS.h"  c#include "PTRACERS_PARAMS.h"
27    #include "PTRACERS_FIELDS.h"
28  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
29  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
30  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
# Line 109  c Line 110  c
110       &                          myIter,myTime,myThid)       &                          myIter,myTime,myThid)
111  #endif  #endif
112  #endif  #endif
113    
114  #endif  #endif
115  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
116    
# Line 116  c Line 118  c
118          ENDDO          ENDDO
119         ENDDO         ENDDO
120    
121    #ifdef ALLOW_DIC
122           CALL DIC_ATMOS( 1, myTime, myIter, myThid )
123    #endif
124    
125  #endif /* GCHEM_SEPARATE_FORCING */  #endif /* GCHEM_SEPARATE_FORCING */
126  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
127    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22