/[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.3 by stephd, Thu Dec 4 22:40:16 2003 UTC revision 1.4 by stephd, Wed Jan 28 18:49:05 2004 UTC
# Line 2  Line 2 
2  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
3  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
4    
5    CBOP
6  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
7        SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid )        SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid )
8    
9    C !DESCRIPTION:
10    C calls subroutine that will update tracers values.
11    C this will be in a secondary timestep after that used for
12    C advection and diffusion in ptracers_intergrate.F
13    
14    C !USES: ===============================================================
15        IMPLICIT NONE        IMPLICIT NONE
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "GRID.h"  #include "GRID.h"
# Line 23  C !INPUT PARAMETERS: =================== Line 30  C !INPUT PARAMETERS: ===================
30  C  myThid               :: thread number  C  myThid               :: thread number
31        INTEGER myThid, myIter        INTEGER myThid, myIter
32        _RL myTime        _RL myTime
33    
34     !LOCAL VARIABLES: ====================================================
35    C  i,j                  :: loop indices
36    C  bi,bj                :: tile indices
37    C  k                    :: vertical level
38        INTEGER bi,bj,imin,imax,jmin,jmax        INTEGER bi,bj,imin,imax,jmin,jmax
39        INTEGER i,j        INTEGER i,j
40        INTEGER niter        INTEGER niter
41    CEOP
42    
43  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
44  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22