89 |
LOGICAL calcAdvection |
LOGICAL calcAdvection |
90 |
INTEGER iterNb |
INTEGER iterNb |
91 |
_RL gTr_AB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL gTr_AB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
92 |
|
_RL dummy(Nr) |
93 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
94 |
CHARACTER*8 diagName |
CHARACTER*8 diagName |
95 |
CHARACTER*4 diagSufx |
CHARACTER*4 diagSufx |
156 |
I uTrans, vTrans, rTrans, rTransKp1, |
I uTrans, vTrans, rTrans, rTransKp1, |
157 |
I PTRACERS_diffKh(iTracer), |
I PTRACERS_diffKh(iTracer), |
158 |
I PTRACERS_diffK4(iTracer), |
I PTRACERS_diffK4(iTracer), |
159 |
I KappaRtr(1-OLx,1-OLy,iTracer), |
I KappaRtr(1-OLx,1-OLy,iTracer), dummy, |
160 |
I gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer), |
I gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer), |
161 |
I pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
I pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
162 |
I PTRACERS_dTLev, GAD_TR, |
I PTRACERS_dTLev, GAD_TR, |
163 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |
164 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |
165 |
I calcAdvection, PTRACERS_ImplVertAdv(iTracer), |
I calcAdvection, PTRACERS_ImplVertAdv(iTracer), |
166 |
I .FALSE., |
I .FALSE., .FALSE., |
167 |
I PTRACERS_useGMRedi(iTracer), |
I PTRACERS_useGMRedi(iTracer), |
168 |
I PTRACERS_useKPP(iTracer), |
I PTRACERS_useKPP(iTracer), |
169 |
U rFlx(1-OLx,1-OLy,1,iTracer), |
U rFlx(1-OLx,1-OLy,1,iTracer), |