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

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

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

revision 1.4 by adcroft, Wed Sep 19 02:43:27 2001 UTC revision 1.5 by cnh, Wed Sep 26 18:09:14 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  C     /==========================================================\  CBOP
7  C     | S/R CYCLE_TRACER                                         |  C     !ROUTINE: CYCLE_TRACER
8  C     |==========================================================|  C     !INTERFACE:
 C     | o Cycles the time-stepping arrays for a tracer field     |  
 C     \==========================================================/  
9        SUBROUTINE CYCLE_TRACER(        SUBROUTINE CYCLE_TRACER(
10       I                   bi, bj, iMin, iMax, jMin, jMax, K,       I                   bi, bj, iMin, iMax, jMin, jMax, K,
11       U                   tracer, gTracer, gTrNm1,       U                   tracer, gTracer, gTrNm1,
12       I                   myTime, myThid )       I                   myTime, myThid )
13    C     !DESCRIPTION: \bv
14    C     *==========================================================*
15    C     | S/R CYCLE_TRACER                                          
16    C     *==========================================================*
17    C     | o Cycles the time-stepping arrays for a tracer field      
18    C     *==========================================================*
19    C     \ev
20    C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
22  C Common  C Common
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "PARAMS.h"  #include "PARAMS.h"
26    C     !INPUT/OUTPUT PARAMETERS:
27  C     == Routine Arguments ==  C     == Routine Arguments ==
28  C     bi,bj,iMin,iMax,jMin,jMax, K - Loop counters  C     bi,bj,iMin,iMax,jMin,jMax, K :: Loop counters
29  C     tracer, gTracer, gTrNm1      - Tracer field, with tendencies  C     tracer, gTracer, gTrNm1      :: Tracer field, with tendencies
30  C     myThid                       - Instance number for  C     myThid                       :: Instance number for
31  C                                    this call to S/R CORRECTION_STEP  C                                     this call to S/R CORRECTION_STEP
32  C     myTime                       - Current simulation time for this instance.  C     myTime                       :: Current simulation time for this instance.
33        INTEGER bi,bj,iMin,iMax,jMin,jMax,K        INTEGER bi,bj,iMin,iMax,jMin,jMax,K
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 30  C     myTime                       - Cur Line 37  C     myTime                       - Cur
37        INTEGER myThid        INTEGER myThid
38        _RL myTime        _RL myTime
39    
40    C     !LOCAL VARIABLES:
41  C     == Local variables ==  C     == Local variables ==
42        INTEGER i,j        INTEGER i,j
43    CEOP
44    
45  C     Rotate tracer/gTracer/gTrNm1  C     Rotate tracer/gTracer/gTrNm1
46        DO j=jMin,jMax        DO j=jMin,jMax
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22