/[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.8 by heimbach, Tue Apr 4 14:52:43 2006 UTC revision 1.9 by jmc, Tue Jan 9 22:26:03 2007 UTC
# Line 10  C !INTERFACE: ========================== Line 10  C !INTERFACE: ==========================
10        SUBROUTINE PTRACERS_ADVECTION( bi,bj,myIter,myTime,myThid )        SUBROUTINE PTRACERS_ADVECTION( bi,bj,myIter,myTime,myThid )
11    
12  C !DESCRIPTION:  C !DESCRIPTION:
13  C     Calculates tendancy for passive tracers and integrates forward  C     Calculates tendency for passive tracers and integrates forward
14  C     in time.  C     in time.
15    
16  C !USES: ===============================================================  C !USES: ===============================================================
# Line 75  C Loop over tracers Line 75  C Loop over tracers
75  CADJ STORE ptracer(:,:,:,bi,bj,iTracer)  CADJ STORE ptracer(:,:,:,bi,bj,iTracer)
76  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte
77  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
78    
79         IF (         IF (
80       &     multiDimAdvection .AND.       &     multiDimAdvection .AND.
81       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22