File indexing completed on 2018-03-02 18:36:36 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
ce534f3fec Jean*0001 #include "CPP_OPTIONS.h"
0002
0003
0004
0005
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
0013
0014
0015
0016
0017
0018
0019
0020 IMPLICIT NONE
0021
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
0024 #include "PARAMS.h"
230538662b Jean*0025
ce534f3fec Jean*0026
230538662b Jean*0027
0028
0029
0030
0031
0032
0033
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
0042 INTEGER i,j,k
0043
0044
230538662b Jean*0045
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