/[MITgcm]/MITgcm/model/src/timestep_tracer.F
ViewVC logotype

Diff of /MITgcm/model/src/timestep_tracer.F

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

revision 1.15 by jmc, Fri May 20 16:34:19 2011 UTC revision 1.16 by jmc, Mon May 23 00:33:38 2011 UTC
# Line 8  CBOP Line 8  CBOP
8  C     !ROUTINE: TIMESTEP_TRACER  C     !ROUTINE: TIMESTEP_TRACER
9  C     !INTERFACE:  C     !INTERFACE:
10        SUBROUTINE TIMESTEP_TRACER(        SUBROUTINE TIMESTEP_TRACER(
11       I                     bi, bj, iMin, iMax, jMin, jMax, k,       I                     bi, bj, k, deltaTloc,
12       I                     advection_scheme, deltaTloc,       I                     tracer,
13       I                     tracer, gTracer,       U                     gTracer,
14       I                     myIter, myThid )       I                     myIter, myThid )
15  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
16  C     *==========================================================*  C     *==========================================================*
# Line 29  C     == Global variables === Line 29  C     == Global variables ===
29    
30  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine Arguments ==  C     == Routine Arguments ==
32        INTEGER bi,bj,iMin,iMax,jMin,jMax,k        INTEGER bi, bj, k
       INTEGER advection_scheme  
33        _RL     deltaTloc        _RL     deltaTloc
34        _RL  tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35        _RL  gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 44  CEOP Line 43  CEOP
43  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
44    
45  C-    Step tracer forward in time and store provisional value in gTracer array  C-    Step tracer forward in time and store provisional value in gTracer array
 c     DO j=jMin,jMax  
 c      DO i=iMin,iMax  
46        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
47         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
48           gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj)           gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22