model/src/cycle_ab_tracer.F

C $Header: /u/gcmpack/MITgcm/model/src/cycle_ab_tracer.F,v 1.1 2014/07/22 11:59:09 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: CYCLE_AB_TRACER
C     !INTERFACE:
      SUBROUTINE CYCLE_AB_TRACER(
     I                   bi, bj,
     U                   tracer, gTracer, gTrNm1,
     I                   myTime, myIter, myThid )
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R CYCLE_AB_TRACER
C     *==========================================================*
C     | o Cycles the time-stepping arrays for a tracer field
C     *==========================================================*
C     \ev
C     !USES:
      IMPLICIT NONE
C Common
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
C     !INPUT/OUTPUT PARAMETERS:
C     == Routine Arguments ==
C     bi, bj                  :: current tile indices
C     tracer, gTracer, gTrNm1 :: Tracer field, with tendencies
C     myTime                  :: Current simulation time
C     myIter                  :: Current time-step number
C     myThid                  :: my Thread Id number
      INTEGER bi,bj
      _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
      _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
      _RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
      _RL myTime
      INTEGER myIter, myThid

C     !LOCAL VARIABLES:
C     == Local variables ==
      INTEGER i,j,k
CEOP

C     Rotate tracer/gTracer/gTrNm1
      DO k=1,Nr
       DO j=1-OLy,sNy+OLy
        DO i=1-OLx,sNx+OLx
         gTrNm1(i,j,k) =  tracer(i,j,k)
         tracer(i,j,k) = gTracer(i,j,k)
        ENDDO
       ENDDO
      ENDDO

      RETURN
      END
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/model/src/cycle_ab_tracer.F,v 1.1 2014/07/22 11:59:09 jmc Exp $
2	jmc	1.1	C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: CYCLE_AB_TRACER
8			C !INTERFACE:
9			SUBROUTINE CYCLE_AB_TRACER(
10			I bi, bj,
11			U tracer, gTracer, gTrNm1,
12			I myTime, myIter, myThid )
13			C !DESCRIPTION: \bv
14			C ==========================================================
15			C \| S/R CYCLE_AB_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
22			C Common
23			#include "SIZE.h"
24			#include "EEPARAMS.h"
25			#include "PARAMS.h"
26			C !INPUT/OUTPUT PARAMETERS:
27			C == Routine Arguments ==
28	jmc	1.2	C bi, bj :: current tile indices
29			C tracer, gTracer, gTrNm1 :: Tracer field, with tendencies
30			C myTime :: Current simulation time
31			C myIter :: Current time-step number
32			C myThid :: my Thread Id number
33	jmc	1.1	INTEGER bi,bj
34	jmc	1.2	_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
35			_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
36			_RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
37	jmc	1.1	_RL myTime
38			INTEGER myIter, myThid
39
40			C !LOCAL VARIABLES:
41			C == Local variables ==
42			INTEGER i,j,k
43			CEOP
44
45			C Rotate tracer/gTracer/gTrNm1
46			DO k=1,Nr
47			DO j=1-OLy,sNy+OLy
48			DO i=1-OLx,sNx+OLx
49	jmc	1.2	gTrNm1(i,j,k) = tracer(i,j,k)
50			tracer(i,j,k) = gTracer(i,j,k)
51	jmc	1.1	ENDDO
52			ENDDO
53			ENDDO
54
55			RETURN
56			END