model/src/cycle_tracer.F

fb481a83c2 Alis*0001 #include "CPP_OPTIONS.h"
                0002
9366854e02 Chri*0003 CBOP
                0004 C     !ROUTINE: CYCLE_TRACER
                0005 C     !INTERFACE:
fb481a83c2 Alis*0006       SUBROUTINE CYCLE_TRACER(
e6d4f660b2 Jean*0007      I                   bi, bj,
53d94a28a7 Jean*0008      U                   tracer, gTracer,
                0009      I                   myTime, myIter, myThid )
9366854e02 Chri*0010 C     !DESCRIPTION: \bv
                0011 C     *==========================================================*
23a7f3050f Jean*0012 C     | S/R CYCLE_TRACER
9366854e02 Chri*0013 C     *==========================================================*
23a7f3050f Jean*0014 C     | o Cycles the time-stepping arrays for a tracer field
9366854e02 Chri*0015 C     *==========================================================*
                0016 C     \ev
                0017 C     !USES:
fb481a83c2 Alis*0018       IMPLICIT NONE
                0019 C Common
                0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 #include "PARAMS.h"
9366854e02 Chri*0023 C     !INPUT/OUTPUT PARAMETERS:
fb481a83c2 Alis*0024 C     == Routine Arguments ==
23a7f3050f Jean*0025 C     bi, bj                  :: current tile indices
                0026 C     tracer, gTracer, gTrNm1 :: Tracer field, with tendencies
                0027 C     myTime                  :: Current simulation time for this instance.
                0028 C     myIter                  :: Current time-step number
                0029 C     myThid                  :: my Thread Id number
e6d4f660b2 Jean*0030       INTEGER bi,bj
53d94a28a7 Jean*0031 c     INTEGER iMin,iMax,jMin,jMax
23a7f3050f Jean*0032       _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
                0033       _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
                0034 c     _RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
fb481a83c2 Alis*0035       _RL myTime
53d94a28a7 Jean*0036       INTEGER myIter, myThid
fb481a83c2 Alis*0037
9366854e02 Chri*0038 C     !LOCAL VARIABLES:
fb481a83c2 Alis*0039 C     == Local variables ==
e6d4f660b2 Jean*0040       INTEGER i,j,k
9366854e02 Chri*0041 CEOP
fb481a83c2 Alis*0042
e6d4f660b2 Jean*0043 C     Rotate tracer/gTracer
                0044       DO k=1,Nr
                0045        DO j=1-OLy,sNy+OLy
                0046         DO i=1-OLx,sNx+OLx
23a7f3050f Jean*0047          tracer(i,j,k) = gTracer(i,j,k)
e6d4f660b2 Jean*0048         ENDDO
fb481a83c2 Alis*0049        ENDDO
                0050       ENDDO
                0051
                0052       RETURN
                0053       END