/[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.2 by stephd, Tue Oct 7 16:21:12 2003 UTC revision 1.3 by stephd, Thu Dec 4 22:40:16 2003 UTC
# Line 30  C  myThid               :: thread number Line 30  C  myThid               :: thread number
30  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
31  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
32    
33           _BARRIER         _BARRIER
34           _BEGIN_MASTER( mythid )         _BEGIN_MASTER( mythid )
35    
36  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
37  c global calculations   c  c global calculations   c
38  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
39  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
40  c find global surface averages  c find global surface averages
41           gsm_s = 0.
42           gsm_dic = 0.
43           gsm_alk = 0.
44         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(myThid,salt, 1,gsm_s)
45         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
46       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)
47         print*,'mean surface dic', gsm_dic,gsm_s         print*,'mean surface dic', gsm_dic,gsm_s
48         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
49       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)
   
50  #endif  #endif
51  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
52    
# Line 55  cccccccccccccccccccccccccccccccccccccccc Line 57  cccccccccccccccccccccccccccccccccccccccc
57  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
58  c chemical forcing      c  c chemical forcing      c
59  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
60  C$TAF loop = parallel  C$taf loop = parallel
61         DO bj=myByLo(myThid),myByHi(myThid)         DO bj=myByLo(myThid),myByHi(myThid)
62  C$TAF loop = parallel  C$taf loop = parallel
63          DO bi=myBxLo(myThid),myBxHi(myThid)          DO bi=myBxLo(myThid),myBxHi(myThid)
64    
65          jMin=1-OLy          jMin=1-OLy
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22