/[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.23 by dfer, Mon Apr 7 20:19:47 2008 UTC revision 1.24 by jmc, Wed Apr 9 22:16:09 2008 UTC
# Line 57  c find global surface averages Line 57  c find global surface averages
57         gsm_s = 0. _d 0         gsm_s = 0. _d 0
58         gsm_dic = 0. _d 0         gsm_dic = 0. _d 0
59         gsm_alk = 0. _d 0         gsm_alk = 0. _d 0
60         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(salt, 1,gsm_s,myThid)
61         call tracer_meanarea(myThid,         call tracer_meanarea(
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, myThid )
63         print*,'mean surface dic', gsm_dic,gsm_s         print*,'mean surface dic', gsm_dic,gsm_s
64         call tracer_meanarea(myThid,         call tracer_meanarea(
65       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)       &             ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk, myThid )
66  #endif /* ALLOW_OLD_VIRTUALFLUX */  #endif /* ALLOW_OLD_VIRTUALFLUX */
67  #endif  #endif
68  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22