81 |
INTEGER bi,bj |
INTEGER bi,bj |
82 |
INTEGER advectionScheme |
INTEGER advectionScheme |
83 |
INTEGER tracerIdentity |
INTEGER tracerIdentity |
84 |
_RL Gtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
_RL Tracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
85 |
_RL myTime |
_RL myTime |
86 |
INTEGER myIter |
INTEGER myIter |
87 |
INTEGER myThid |
INTEGER myThid |
88 |
|
|
89 |
C !OUTPUT PARAMETERS: ================================================== |
C !OUTPUT PARAMETERS: ================================================== |
90 |
C gTracer :: tendancy array |
C gTracer :: tendancy array |
91 |
_RL Tracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
_RL gTracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
92 |
|
|
93 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
94 |
C maskUp :: 2-D array for mask at W points |
C maskUp :: 2-D array for mask at W points |
256 |
CALL GAD_DST3FL_ADV_X( |
CALL GAD_DST3FL_ADV_X( |
257 |
& bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid) |
& bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid) |
258 |
ELSE |
ELSE |
259 |
STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim' |
write(0,*) advectionScheme |
260 |
|
STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim' |
261 |
ENDIF |
ENDIF |
262 |
|
|
263 |
DO j=1-Oly,sNy+Oly |
DO j=1-Oly,sNy+Oly |