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

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

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

revision 1.3 by jmc, Tue Jul 13 18:04:42 2004 UTC revision 1.5 by mlosch, Fri Nov 19 21:28:47 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "CPP_OPTIONS.h"  
 #include "PTRACERS_OPTIONS.h"  
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    
6  CBOP  CBOP
# Line 24  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    
28  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
29  C  myThid               :: thread number  C  myThid               :: thread number
# Line 47  C  i,j                  :: loop indices Line 43  C  i,j                  :: loop indices
43        INTEGER niter        INTEGER niter
44  CEOP  CEOP
45    
 #ifdef ALLOW_PTRACERS  
46  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
47  c  c
48    
49  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
50  c chemical forcing      c  c chemical forcing      c
51  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
52  ccccccccccccccccccccccccccc DIC cccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc CFC cccccccccccccccccccccccccccccccc
53  c  c
54  #ifdef ALLOW_CFC  #ifdef ALLOW_CFC
55           if (iTracer.eq.1.and.k.eq.1)             if (iTracer.eq.1.and.k.eq.1)  
# Line 67  c Line 62  c
62       &                          gPtr(1-Olx,1-Oly,1,bi,bj,2),       &                          gPtr(1-Olx,1-Oly,1,bi,bj,2),
63       &                          bi,bj,imin,imax,jmin,jmax,       &                          bi,bj,imin,imax,jmin,jmax,
64       &                          myIter,myTime,myThid)       &                          myIter,myTime,myThid)
65  #endif  #endif /* ALLOW_CFC */
66  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END CFC cccccccccccccccccccccccccccccccccc
67  c  c
68  #endif  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
69    
70        RETURN        RETURN
71        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22