/[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.20 by jmc, Thu Nov 8 22:36:08 2007 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_BIOTIC.h"  #include "DIC_VARS.h"
 #include "DIC_ABIOTIC.h"  
32  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
33    
34  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 53  ccccccccccccccccccccccccc Line 54  ccccccccccccccccccccccccc
54  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
55  #ifdef ALLOW_OLD_VIRTUALFLUX  #ifdef ALLOW_OLD_VIRTUALFLUX
56  c find global surface averages  c find global surface averages
57         gsm_s = 0.         gsm_s = 0. _d 0
58         gsm_dic = 0.         gsm_dic = 0. _d 0
59         gsm_alk = 0.         gsm_alk = 0. _d 0
60         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(myThid,salt, 1,gsm_s)
61         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
62       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)
# Line 81  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 114  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.20  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22