29 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
30 |
#include "PARAMS.h" |
#include "PARAMS.h" |
31 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
32 |
|
#include "PTRACERS_SIZE.h" |
33 |
#include "PTRACERS.h" |
#include "PTRACERS.h" |
34 |
#include "GAD.h" |
#include "GAD.h" |
35 |
|
|
114 |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
115 |
I GAD_TR, |
I GAD_TR, |
116 |
I PTRACERS_advScheme(iTracer), |
I PTRACERS_advScheme(iTracer), |
117 |
|
I PTRACERS_advScheme(iTracer), |
118 |
I calcAdvection, .FALSE., |
I calcAdvection, .FALSE., |
119 |
U rFlx(1-Olx,1-Oly,1,iTracer), |
U rFlx(1-Olx,1-Oly,1,iTracer), |
120 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
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 |