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), |