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
0004
0005
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
0013
0014
0015
0016
0017
0018
0019
0020 IMPLICIT NONE
0021
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
0024 #include "PARAMS.h"
0025
0026
0027
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
0035
0036 INTEGER i,j
0037
0038
0039
0040
0041
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