136 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
137 |
I bi,bj,iMin,iMax,jMin,jMax,k, |
I bi,bj,iMin,iMax,jMin,jMax,k, |
138 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
139 |
I surfaceTendencyPtr(1-Olx,1-Oly,1,1,iTracer), |
I surfaceForcingPtr(1-Olx,1-Oly,1,1,iTracer), |
140 |
I myIter,myTime,myThid) |
I myIter,myTime,myThid) |
141 |
cswdptr --add--- |
cswdptr --add--- |
142 |
#endif |
#endif |
169 |
& CALL PTRACERS_FORCING( |
& CALL PTRACERS_FORCING( |
170 |
I bi,bj,iMin,iMax,jMin,jMax,k, |
I bi,bj,iMin,iMax,jMin,jMax,k, |
171 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
172 |
I surfaceTendencyPtr(1-Olx,1-Oly,1,1,iTracer), |
I surfaceForcingPtr(1-Olx,1-Oly,1,1,iTracer), |
173 |
I myIter,myTime,myThid) |
I myIter,myTime,myThid) |
174 |
cswdptr - add-- |
cswdptr - add-- |
175 |
#endif |
#endif |