/[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.22 by dfer, Fri Apr 4 21:43:18 2008 UTC
# Line 26  C !USES: =============================== Line 26  C !USES: ===============================
26  c#include "PTRACERS_PARAMS.h"  c#include "PTRACERS_PARAMS.h"
27  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
28  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
29  #include "DIC_BIOTIC.h"  #include "DIC_VARS.h"
 #include "DIC_ABIOTIC.h"  
30  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
31    
32  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 53  ccccccccccccccccccccccccc Line 52  ccccccccccccccccccccccccc
52  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
53  #ifdef ALLOW_OLD_VIRTUALFLUX  #ifdef ALLOW_OLD_VIRTUALFLUX
54  c find global surface averages  c find global surface averages
55         gsm_s = 0.         gsm_s = 0. _d 0
56         gsm_dic = 0.         gsm_dic = 0. _d 0
57         gsm_alk = 0.         gsm_alk = 0. _d 0
58         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(myThid,salt, 1,gsm_s)
59         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
60       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22