model/src/cycle_ab_tracer.F

ce534f3fec Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: CYCLE_AB_TRACER
                0005 C     !INTERFACE:
                0006       SUBROUTINE CYCLE_AB_TRACER(
                0007      I                   bi, bj,
230538662b Jean*0008      I                   tracNew,
                0009      U                   tracer,
                0010      O                   tracNm1,
ce534f3fec Jean*0011      I                   myTime, myIter, myThid )
                0012 C     !DESCRIPTION: \bv
                0013 C     *==========================================================*
                0014 C     | S/R CYCLE_AB_TRACER
                0015 C     *==========================================================*
                0016 C     | o Cycles the time-stepping arrays for a tracer field
                0017 C     *==========================================================*
                0018 C     \ev
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021 C Common
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
230538662b Jean*0025
ce534f3fec Jean*0026 C     !INPUT/OUTPUT PARAMETERS:
230538662b Jean*0027 C     bi, bj    :: current tile indices
                0028 C     tracNew   :: next     time-step tracer field
                0029 C     tracer    :: current  time-step tracer field
                0030 C     tracNm1   :: previous time-step tracer field
                0031 C     myTime    :: Current simulation time
                0032 C     myIter    :: Current time-step number
                0033 C     myThid    :: my Thread Id number
ce534f3fec Jean*0034       INTEGER bi,bj
230538662b Jean*0035       _RL tracNew(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
23a7f3050f Jean*0036       _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
230538662b Jean*0037       _RL tracNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
ce534f3fec Jean*0038       _RL myTime
                0039       INTEGER myIter, myThid
                0040
                0041 C     !LOCAL VARIABLES:
                0042       INTEGER i,j,k
                0043 CEOP
                0044
230538662b Jean*0045 C     Rotate tracNew/tracer/tracNm1
ce534f3fec Jean*0046       DO k=1,Nr
                0047        DO j=1-OLy,sNy+OLy
                0048         DO i=1-OLx,sNx+OLx
230538662b Jean*0049          tracNm1(i,j,k) = tracer(i,j,k)
                0050          tracer(i,j,k) = tracNew(i,j,k)
ce534f3fec Jean*0051         ENDDO
                0052        ENDDO
                0053       ENDDO
                0054
                0055       RETURN
                0056       END