/[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.27 by heimbach, Wed Oct 14 14:18:58 2009 UTC revision 1.28 by stephd, Tue Apr 27 18:41:47 2010 UTC
# Line 35  C !USES: =============================== Line 35  C !USES: ===============================
35  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
36  #include "DIC_VARS.h"  #include "DIC_VARS.h"
37  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
38    #ifdef ALLOW_DARWIN
39    #include "DARWIN_FLUX.h"
40    #include "DARWIN_SIZE.h"
41    #endif
42    
43  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
44  C  myThid               :: thread number  C  myThid               :: thread number
# Line 56  CEOP Line 60  CEOP
60  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
61  c global calculations   c  c global calculations   c
62  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
 #ifdef ALLOW_DIC  
63  #ifdef ALLOW_OLD_VIRTUALFLUX  #ifdef ALLOW_OLD_VIRTUALFLUX
64    #ifdef ALLOW_DIC
65  c find global surface averages  c find global surface averages
66         gsm_s = 0. _d 0         gsm_s = 0. _d 0
67         gsm_dic = 0. _d 0         gsm_dic = 0. _d 0
# Line 68  c find global surface averages Line 72  c find global surface averages
72         print*,'mean surface dic', gsm_dic,gsm_s         print*,'mean surface dic', gsm_dic,gsm_s
73         call tracer_meanarea(         call tracer_meanarea(
74       &             ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk, myThid )       &             ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk, myThid )
 #endif /* ALLOW_OLD_VIRTUALFLUX */  
75  #endif  #endif
76    #ifdef ALLOW_DARWIN
77    c find global surface averages
78           gsm_s = 0. _d 0
79           gsm_dic = 0. _d 0
80           gsm_alk = 0. _d 0
81           call tracer_meanarea(salt, 1,gsm_s,myThid)
82           call tracer_meanarea(
83         &             ptracer(1-Olx,1-Oly,1,1,1,iDIC), 1, gsm_dic, myThid )
84           print*,'mean surface dic', gsm_dic,gsm_s
85           call tracer_meanarea(
86         &             ptracer(1-Olx,1-Oly,1,1,1,iALK), 1, gsm_alk, myThid )
87    #endif
88    #endif /* ALLOW_OLD_VIRTUALFLUX */
89  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
90    
91    
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22