Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:25 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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