/[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.21 by dfer, Fri Jan 18 01:06:29 2008 UTC
# Line 53  ccccccccccccccccccccccccc Line 53  ccccccccccccccccccccccccc
53  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
54  #ifdef ALLOW_OLD_VIRTUALFLUX  #ifdef ALLOW_OLD_VIRTUALFLUX
55  c find global surface averages  c find global surface averages
56         gsm_s = 0.         gsm_s = 0. _d 0
57         gsm_dic = 0.         gsm_dic = 0. _d 0
58         gsm_alk = 0.         gsm_alk = 0. _d 0
59         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(myThid,salt, 1,gsm_s)
60         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
61       &               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.21
  ViewVC Help
Powered by ViewVC 1.1.22