128 |
cswdptr - end add --- |
cswdptr - end add --- |
129 |
IF ( forcing_In_AB ) |
IF ( forcing_In_AB ) |
130 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
131 |
I bi,bj,k,iTracer, |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
132 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
133 |
I myIter,myTime,myThid) |
I myIter,myTime,myThid) |
134 |
cswdptr --add--- |
cswdptr --add--- |
152 |
cswdptr - end add --- |
cswdptr - end add --- |
153 |
IF ( .NOT.forcing_In_AB ) |
IF ( .NOT.forcing_In_AB ) |
154 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
155 |
I bi,bj,k,iTracer, |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
156 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
157 |
I myIter,myTime,myThid) |
I myIter,myTime,myThid) |
158 |
cswdptr - add-- |
cswdptr - add-- |