File indexing completed on 2018-03-02 18:40:51 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
dbd0cb352f Mart*0001 #include "GCHEM_OPTIONS.h"
0002
0003
0004
0005
0006
218da37934 Jean*0007 SUBROUTINE GCHEM_ADD_TENDENCY(
0008 U gPtracer,
0009 I iMin,iMax,jMin,jMax, k, bi, bj,
2305125f7e Jean*0010 I iTr, myTime, myIter, myThid )
dbd0cb352f Mart*0011
0012
2305125f7e Jean*0013
0014
0015
0016
dbd0cb352f Mart*0017
0018
0019
0020 IMPLICIT NONE
0021 #include "SIZE.h"
0022 #include "EEPARAMS.h"
0023 #include "PARAMS.h"
2305125f7e Jean*0024 #include "GCHEM.h"
0025 #include "GCHEM_SIZE.h"
dbd0cb352f Mart*0026 #include "GCHEM_FIELDS.h"
0027
218da37934 Jean*0028
2305125f7e Jean*0029
0030
0031
0032
0033
0034
0035
218da37934 Jean*0036 _RL gPtracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
0037 INTEGER iMin,iMax,jMin,jMax
2305125f7e Jean*0038 INTEGER k, bi, bj, iTr
e1fb02e8f0 Jean*0039 _RL myTime
0040 INTEGER myIter, myThid
0041
dbd0cb352f Mart*0042
2305125f7e Jean*0043 #ifdef GCHEM_ADD2TR_TENDENCY
dbd0cb352f Mart*0044
2305125f7e Jean*0045
0046
0047 INTEGER jTr
dbd0cb352f Mart*0048 INTEGER i,j
0049
2305125f7e Jean*0050
dbd0cb352f Mart*0051
0052
0053
0054
2305125f7e Jean*0055 IF ( iTr.GT.gchem_sepFTr_num .AND.
0056 & iTr.LE.gchem_Tracer_num ) THEN
0057 jTr = iTr - gchem_sepFTr_num
0058 DO j=jMin,jMax
0059 DO i=iMin,iMax
218da37934 Jean*0060 gPtracer(i,j) = gPtracer(i,j)
2305125f7e Jean*0061 & + gchemTendency(i,j,k,bi,bj,jTr)
0062 ENDDO
dbd0cb352f Mart*0063 ENDDO
2305125f7e Jean*0064 ENDIF
0065 #endif /* GCHEM_ADD2TR_TENDENCY */
dbd0cb352f Mart*0066
0067 RETURN
0068 END