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

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

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

revision 1.1 by jmc, Sun Dec 5 22:22:06 2004 UTC revision 1.2 by jmc, Thu Dec 16 23:20:48 2004 UTC
# Line 94  CADJ &     key=iptrkey, byte=isbyte Line 94  CADJ &     key=iptrkey, byte=isbyte
94  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
95    
96  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
97  c       IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN          IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
         IF ( (dTtracerLev(1).NE.dTtracerLev(Nr).AND.implicitDiffusion)  
      &    .OR.PTRACERS_ImplVertAdv(iTracer) ) THEN  
98    
99            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
100       I         PTRACERS_ImplVertAdv(iTracer),       I         PTRACERS_ImplVertAdv(iTracer),
# Line 112  c       IF ( PTRACERS_ImplVertAdv(iTrace Line 110  c       IF ( PTRACERS_ImplVertAdv(iTrace
110    
111            CALL IMPLDIFF(            CALL IMPLDIFF(
112       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
113       I         dTtracerLev(1), kappaRk, recip_HFacC,       I         GAD_TR, kappaRk, recip_HFacC,
114       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
115       I         myThid )       I         myThid )
116    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22