/[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.15 by stephd, Tue May 1 21:45:52 2007 UTC revision 1.22 by dfer, Fri Apr 4 21:43:18 2008 UTC
# Line 11  C !INTERFACE: ========================== Line 11  C !INTERFACE: ==========================
11  C !DESCRIPTION:  C !DESCRIPTION:
12  C     calls subroutine that will update passive tracers values  C     calls subroutine that will update passive tracers values
13  C     with a separate timestep. Since GCHEM_FORCING_SEP is now  C     with a separate timestep. Since GCHEM_FORCING_SEP is now
14  C     called before DO_FIELDS_BLOCKING_EXCHANGES, the passive  C     called before DO_FIELDS_BLOCKING_EXCHANGES, the passive
15  C     tracer values in the halo regions are not up to date and  C     tracer values in the halo regions are not up to date and
16  C     must not be used.  C     must not be used.
17    
18  C !USES: ===============================================================  C !USES: ===============================================================
# Line 23  C !USES: =============================== Line 23  C !USES: ===============================
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
26  #include "PTRACERS.h"  c#include "PTRACERS_PARAMS.h"
27    #include "PTRACERS_FIELDS.h"
28  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
29  #include "DIC_BIOTIC.h"  #include "DIC_VARS.h"
 #include "DIC_ABIOTIC.h"  
30  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
31    
32  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 50  ccccccccccccccccccccccccc Line 50  ccccccccccccccccccccccccc
50  c global calculations   c  c global calculations   c
51  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
52  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
53    #ifdef ALLOW_OLD_VIRTUALFLUX
54  c find global surface averages  c find global surface averages
55         gsm_s = 0.         gsm_s = 0. _d 0
56         gsm_dic = 0.         gsm_dic = 0. _d 0
57         gsm_alk = 0.         gsm_alk = 0. _d 0
58         call tracer_meanarea(myThid,salt, 1,gsm_s)         call tracer_meanarea(myThid,salt, 1,gsm_s)
59         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
60       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)       &               ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic)
61         print*,'mean surface dic', gsm_dic,gsm_s         print*,'mean surface dic', gsm_dic,gsm_s
62         call tracer_meanarea(myThid,         call tracer_meanarea(myThid,
63       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)       &               ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk)
64    #endif /* ALLOW_OLD_VIRTUALFLUX */
65  #endif  #endif
66  ccccccccccccccccccccccccccccccccccccccccccc  ccccccccccccccccccccccccccccccccccccccccccc
67    
# Line 107  c Line 109  c
109       &                          myIter,myTime,myThid)       &                          myIter,myTime,myThid)
110  #endif  #endif
111  #endif  #endif
112    
113  #endif  #endif
114  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
115    
# Line 114  c Line 117  c
117          ENDDO          ENDDO
118         ENDDO         ENDDO
119    
120    #ifdef ALLOW_DIC
121           CALL DIC_ATMOS( 1, myTime, myIter, myThid )
122    #endif
123    
124  #endif /* GCHEM_SEPARATE_FORCING */  #endif /* GCHEM_SEPARATE_FORCING */
125  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
126    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22