/[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.3 by heimbach, Fri Mar 25 00:29:17 2005 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 116  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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22