/[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.22 by dfer, Fri Apr 4 21:43:18 2008 UTC revision 1.23 by dfer, Mon Apr 7 20:19:47 2008 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    #ifdef ALLOW_DIC
6    #include "DIC_OPTIONS.h"
7    #endif
8    
9  CBOP  CBOP
10  C !ROUTINE: GCHEM_FORCING_SEP  C !ROUTINE: GCHEM_FORCING_SEP
# Line 23  C !USES: =============================== Line 26  C !USES: ===============================
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
 c#include "PTRACERS_PARAMS.h"  
29  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
30  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
31  #include "DIC_VARS.h"  #include "DIC_VARS.h"
# Line 80  C$taf loop = parallel Line 82  C$taf loop = parallel
82          iMax=sNx          iMax=sNx
83  c  c
84  ccccccccccccccccccccccccccc DIC cccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc DIC cccccccccccccccccccccccccccccccc
85  c  
86  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
87  #ifdef ALLOW_FE  #ifdef ALLOW_FE
88            call DIC_BIOTIC_Forcing( Ptracer(1-Olx,1-Oly,1,bi,bj,1),            call DIC_BIOTIC_Forcing( Ptracer(1-Olx,1-Oly,1,bi,bj,1),
# Line 113  c Line 115  c
115  #endif  #endif
116  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
117    
 c  
118          ENDDO          ENDDO
119         ENDDO         ENDDO
120    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22