/[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.8 by mlosch, Fri Nov 19 20:17:48 2004 UTC revision 1.9 by mlosch, Fri Nov 19 21:28:47 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    
6  CBOP  CBOP
7    C !ROUTINE: GCHEM_FORCING_SEP
8  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
9        SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid )        SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid )
10    
11  C !DESCRIPTION:  C !DESCRIPTION:
12  C calls subroutine that will update tracers values.  C     calls subroutine that will update passive tracers values
13  C this will be in a secondary timestep after that used for  C     with a separate timestep. Since GCHEM_FORCING_SEP is now
14  C advection and diffusion in ptracers_intergrate.F  C     called before DO_FIELDS_BLOCKING_EXCHANGES, the passive
15    C     tracer values in the halo regions are not up to date and
16    C     must not be used.
17    
18  C !USES: ===============================================================  C !USES: ===============================================================
19        IMPLICIT NONE        IMPLICIT NONE
# Line 19  C !USES: =============================== Line 22  C !USES: ===============================
22  #include "DYNVARS.h"  #include "DYNVARS.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_PTRACERS  
25  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
26  #include "PTRACERS.h"  #include "PTRACERS.h"
 #endif  
27  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
28  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
29  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
30  #endif  #endif /* ALLOW_DIC */
31    
32  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
33  C  myThid               :: thread number  C  myThid               :: thread number
# Line 42  C  k                    :: vertical leve Line 43  C  k                    :: vertical leve
43        INTEGER niter        INTEGER niter
44  CEOP  CEOP
45    
 #ifdef ALLOW_PTRACERS  
46  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
47    
48         _BARRIER         _BARRIER
# Line 116  c Line 116  c
116         ENDDO         ENDDO
117    
118  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
119    
120        RETURN        RETURN
121        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22