/[MITgcm]/MITgcm/pkg/ptracers/ptracers_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_advection.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by jmc, Mon Dec 17 22:03:15 2007 UTC revision 1.12 by jahn, Thu May 8 19:50:08 2008 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
5    #include "GAD_OPTIONS.h"
6    
7  CBOP  CBOP
8  C !ROUTINE: PTRACERS_ADVECTION  C !ROUTINE: PTRACERS_ADVECTION
# Line 14  C     Calculates tendency for passive tr Line 15  C     Calculates tendency for passive tr
15  C     in time.  C     in time.
16    
17  C !USES: ===============================================================  C !USES: ===============================================================
18    #include "PTRACERS_MOD.h"
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 77  CADJ STORE pTracer(:,:,:,bi,bj,iTracer) Line 79  CADJ STORE pTracer(:,:,:,bi,bj,iTracer)
79  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte
80  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
81    
82    #if defined(GAD_ALLOW_SOM_ADVECT) && defined(PTRACERS_ALLOW_DYN_STATE)
83           IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
84    #ifdef ALLOW_DEBUG
85             IF ( debugLevel .GE. debLevB )
86         &     CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
87    #endif
88             CALL GAD_SOM_ADVECT(
89         I                       PTRACERS_ImplVertAdv(iTracer),
90         I                       PTRACERS_advScheme(iTracer),
91         I                       PTRACERS_advScheme(iTracer),
92         I                       GAD_TR1+iTracer-1,
93         I                       uVel, vVel, wVel,
94         I                       pTracer(1-Olx,1-Oly,1,1,1,iTracer),
95         U                       _Ptracers_som(1-Olx,1-Oly,1,1,1,1,iTracer),
96         O                       gPtr(1-Olx,1-Oly,1,1,1,iTracer),
97         I                       bi,bj,myTime,myIter,myThid)
98           ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN
99    #else /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */
100         IF ( PTRACERS_MultiDimAdv(iTracer) ) THEN         IF ( PTRACERS_MultiDimAdv(iTracer) ) THEN
101    #endif /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */
102              CALL GAD_ADVECTION(              CALL GAD_ADVECTION(
103       I                        PTRACERS_ImplVertAdv(iTracer),       I                        PTRACERS_ImplVertAdv(iTracer),
104       I                        PTRACERS_advScheme(iTracer),       I                        PTRACERS_advScheme(iTracer),
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22