103 |
I PTRACERS_diffKh(iTracer), |
I PTRACERS_diffKh(iTracer), |
104 |
I PTRACERS_diffK4(iTracer), |
I PTRACERS_diffK4(iTracer), |
105 |
I KappaRtr(1-Olx,1-Oly,iTracer), |
I KappaRtr(1-Olx,1-Oly,iTracer), |
106 |
I gPtrNM1(1-Olx,1-Oly,1,1,1,iTracer), |
I gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer), |
107 |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
108 |
I GAD_TR, |
I GAD_TR, |
109 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |
110 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |
111 |
I calcAdvection, PTRACERS_ImplVertAdv(iTracer), |
I calcAdvection, PTRACERS_ImplVertAdv(iTracer), |
112 |
|
I .FALSE., |
113 |
U rFlx(1-Olx,1-Oly,1,iTracer), |
U rFlx(1-Olx,1-Oly,1,iTracer), |
114 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
115 |
I myTime, myIter, myThid ) |
I myTime, myIter, myThid ) |
116 |
|
|
117 |
C External forcing term(s) |
C External forcing term(s) |
118 |
IF ( forcing_In_AB ) |
IF ( tracForcingOutAB.NE.1 ) |
119 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
120 |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
121 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
145 |
ENDIF |
ENDIF |
146 |
|
|
147 |
C External forcing term(s) |
C External forcing term(s) |
148 |
IF ( .NOT.forcing_In_AB ) |
IF ( tracForcingOutAB.EQ.1 ) |
149 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
150 |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
151 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |