/[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.6 by jahn, Fri Jun 26 23:10:10 2009 UTC revision 1.7 by jmc, Sat Jan 2 23:42:51 2010 UTC
# Line 56  C  iTracer :: tracer index Line 56  C  iTracer :: tracer index
56        INTEGER iTracer        INTEGER iTracer
57        INTEGER iMin,iMax,jMin,jMax        INTEGER iMin,iMax,jMin,jMax
58        INTEGER GAD_TR        INTEGER GAD_TR
59        INTEGER K  #ifdef ALLOW_OBCS
60          INTEGER k
61    #endif
62  CEOP  CEOP
63    
64        iMin=0        iMin=0
# Line 128  CADJ &     key=iptrkey, byte=isbyte Line 130  CADJ &     key=iptrkey, byte=isbyte
130       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
131       I         myThid )       I         myThid )
132    
133  #ifdef   ALLOW_OBCS  #ifdef ALLOW_OBCS
134  C--      Apply open boundary conditions  C--      Apply open boundary conditions
135          IF ( useOBCS ) THEN          IF ( useOBCS ) THEN
136           DO K=1,Nr           DO k=1,Nr
137            CALL OBCS_APPLY_PTRACER(            CALL OBCS_APPLY_PTRACER(
138       I         bi, bj, K, iTracer,       I         bi, bj, k, iTracer,
139       U         gPtr(1-Olx,1-Oly,K,bi,bj,iTracer),       U         gPtr(1-Olx,1-Oly,k,bi,bj,iTracer),
140       I         myThid )       I         myThid )
141           ENDDO           ENDDO
142          ENDIF          ENDIF
143  #endif   /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
144    
145          ENDIF          ENDIF
146  C End of tracer loop  C End of tracer loop
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22