pkg/cheapaml/cheapaml_timestep.F

c5ea996ba0 Jean*0001 #include "CHEAPAML_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: CHEAPAML_TIMESTEP
                0005 C     !INTERFACE:
                0006       SUBROUTINE CHEAPAML_TIMESTEP(
                0007      I                     bi, bj, iMin, iMax, jMin, jMax,
                0008      I                     deltaTloc,
                0009      I                     gTracer,
                0010      U                     tracer,
                0011      I                     nSubIter, myIter, myThid )
                0012 C     !DESCRIPTION: \bv
                0013 C     *==========================================================*
                0014 C     | S/R CHEAPAML_TIMESTEP
                0015 C     | o Step cheapaml tracer field forward in time
                0016 C     *==========================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021 C     == Global variables ===
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025
                0026 C     !INPUT/OUTPUT PARAMETERS:
                0027 C     == Routine Arguments ==
                0028       INTEGER bi,bj,iMin,iMax,jMin,jMax
                0029       _RL  gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0030       _RL  tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0031       _RL  deltaTloc
                0032       INTEGER nSubIter, myIter, myThid
                0033
                0034 C     !LOCAL VARIABLES:
                0035 C     == Local variables ==
                0036       INTEGER i,j
                0037 CEOP
                0038
                0039 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0040
                0041 C-    Step tracer forward in time
                0042       DO j=jMin,jMax
                0043         DO i=iMin,iMax
                0044           tracer(i,j,bi,bj) = tracer(i,j,bi,bj)
                0045      &            + deltaTloc*gTracer(i,j,bi,bj)
                0046         ENDDO
                0047       ENDDO
                0048
                0049       RETURN
                0050       END