/[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.12 by jahn, Thu May 8 19:50:08 2008 UTC revision 1.13 by jmc, Fri May 9 21:44:31 2008 UTC
# Line 79  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)  #ifdef PTRACERS_ALLOW_DYN_STATE
83         IF ( PTRACERS_SOM_Advection(iTracer) ) THEN         IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
84  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
85           IF ( debugLevel .GE. debLevB )           IF ( debugLevel .GE. debLevB )
# Line 96  CADJ &      = comlev1_bibj_ptracers, key Line 96  CADJ &      = comlev1_bibj_ptracers, key
96       O                       gPtr(1-Olx,1-Oly,1,1,1,iTracer),       O                       gPtr(1-Olx,1-Oly,1,1,1,iTracer),
97       I                       bi,bj,myTime,myIter,myThid)       I                       bi,bj,myTime,myIter,myThid)
98         ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN         ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN
99  #else /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */  #else /* 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 */  #endif /* 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.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22