/[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.2 by jmc, Thu Dec 16 23:20:48 2004 UTC revision 1.4 by mlosch, Mon Oct 10 05:53:48 2005 UTC
# Line 51  C  iTracer :: tracer index Line 51  C  iTracer :: tracer index
51        INTEGER iTracer        INTEGER iTracer
52        INTEGER iMin,iMax,jMin,jMax        INTEGER iMin,iMax,jMin,jMax
53        INTEGER GAD_TR        INTEGER GAD_TR
54          INTEGER K
55  CEOP  CEOP
56    
57        iMin=0        iMin=0
# Line 89  C Loop over tracers Line 90  C Loop over tracers
90          ENDIF          ENDIF
91    
92  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
93    CADJ STORE kappaRk(:,:,:) = comlev1_bibj_ptracers,
94    CADJ &     key=iptrkey, byte=isbyte
95  CADJ STORE gPtr(:,:,:,bi,bj,iTracer) = comlev1_bibj_ptracers,  CADJ STORE gPtr(:,:,:,bi,bj,iTracer) = comlev1_bibj_ptracers,
96  CADJ &     key=iptrkey, byte=isbyte  CADJ &     key=iptrkey, byte=isbyte
97  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
# Line 114  CADJ &     key=iptrkey, byte=isbyte Line 117  CADJ &     key=iptrkey, byte=isbyte
117       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
118       I         myThid )       I         myThid )
119    
120    #ifdef   ALLOW_OBCS
121    C--      Apply open boundary conditions
122            IF ( useOBCS ) THEN
123             DO K=1,Nr
124              CALL OBCS_APPLY_PTRACER(
125         I         bi, bj, K, iTracer,
126         U         gPtr(1-Olx,1-Oly,K,bi,bj,iTracer),
127         I         myThid )
128             ENDDO
129            ENDIF
130    #endif   /* ALLOW_OBCS */
131    
132          ENDIF          ENDIF
133  C End of tracer loop  C End of tracer loop
134        ENDDO        ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22