/[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.10 by mlosch, Tue Nov 23 20:20:46 2004 UTC revision 1.11 by stephd, Thu Aug 18 19:29:51 2005 UTC
# Line 52  CEOP Line 52  CEOP
52  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
53  c global calculations   c  c global calculations   c
54  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
55  #ifdef DIC_BIOTIC  #ifdef ALLOW_DIC
56  c find global surface averages  c find global surface averages
57         gsm_s = 0.         gsm_s = 0.
58         gsm_dic = 0.         gsm_dic = 0.
# Line 85  C$taf loop = parallel Line 85  C$taf loop = parallel
85  c  c
86  ccccccccccccccccccccccccccc DIC cccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc DIC cccccccccccccccccccccccccccccccc
87  c  c
88  #ifdef DIC_BIOTIC  #ifdef ALLOW_DIC
89  #ifdef ALLOW_FE  #ifdef ALLOW_FE
90            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),
91       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22