/[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.11 by stephd, Thu Aug 18 19:29:51 2005 UTC revision 1.15 by stephd, Tue May 1 21:45:52 2007 UTC
# Line 46  CEOP Line 46  CEOP
46  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
47  #ifdef GCHEM_SEPARATE_FORCING  #ifdef GCHEM_SEPARATE_FORCING
48    
        _BARRIER  
        _BEGIN_MASTER( mythid )  
   
49  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
50  c global calculations   c  c global calculations   c
51  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
# Line 66  c find global surface averages Line 63  c find global surface averages
63  #endif  #endif
64  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
65    
       _END_MASTER( mythid )  
       _BARRIER  
   
66    
67  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
68  c chemical forcing      c  c chemical forcing      c
# Line 96  c Line 90  c
90       &                          bi,bj,imin,imax,jmin,jmax,       &                          bi,bj,imin,imax,jmin,jmax,
91       &                          myIter,myTime,myThid)       &                          myIter,myTime,myThid)
92  #else  #else
93    #ifdef ALLOW_O2
94            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),
95       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),
96       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,3),       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,3),
# Line 103  c Line 98  c
98       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,5),       &                          Ptracer(1-Olx,1-Oly,1,bi,bj,5),
99       &                          bi,bj,imin,imax,jmin,jmax,       &                          bi,bj,imin,imax,jmin,jmax,
100       &                          myIter,myTime,myThid)       &                          myIter,myTime,myThid)
101    #else
102              call DIC_BIOTIC_Forcing( Ptracer(1-Olx,1-Oly,1,bi,bj,1),
103         &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),
104         &                          Ptracer(1-Olx,1-Oly,1,bi,bj,3),
105         &                          Ptracer(1-Olx,1-Oly,1,bi,bj,4),
106         &                          bi,bj,imin,imax,jmin,jmax,
107         &                          myIter,myTime,myThid)
108    #endif
109  #endif  #endif
110  #endif  #endif
111  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22