/[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.15 by stephd, Tue May 1 21:45:52 2007 UTC revision 1.16 by dfer, Mon Aug 27 19:45:09 2007 UTC
# Line 50  ccccccccccccccccccccccccc Line 50  ccccccccccccccccccccccccc
50  c global calculations   c  c global calculations   c
51  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
52  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
53    #ifdef ALLOW_OLD_VIRTUALFLUX
54  c find global surface averages  c find global surface averages
55         gsm_s = 0.         gsm_s = 0.
56         gsm_dic = 0.         gsm_dic = 0.
# Line 60  c find global surface averages Line 61  c find global surface averages
61         print*,'mean surface dic', gsm_dic,gsm_s         print*,'mean surface dic', gsm_dic,gsm_s
62         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
63       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)
64    #endif /* ALLOW_OLD_VIRTUALFLUX */
65  #endif  #endif
66  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
67    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22