238 |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
239 |
O af, myThid ) |
O af, myThid ) |
240 |
ENDIF |
ENDIF |
241 |
|
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
242 |
|
CALL GAD_OS7MP_ADV_X( bi,bj,k, dTtracerLev(k), |
243 |
|
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
244 |
|
O af, myThid ) |
245 |
ELSE |
ELSE |
246 |
STOP 'GAD_CALC_RHS: Bad advectionScheme (X)' |
STOP 'GAD_CALC_RHS: Bad advectionScheme (X)' |
247 |
ENDIF |
ENDIF |
351 |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
352 |
O af, myThid ) |
O af, myThid ) |
353 |
ENDIF |
ENDIF |
354 |
|
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
355 |
|
CALL GAD_OS7MP_ADV_Y( bi,bj,k, dTtracerLev(k), |
356 |
|
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
357 |
|
O af, myThid ) |
358 |
ELSE |
ELSE |
359 |
STOP 'GAD_CALC_RHS: Bad advectionScheme (Y)' |
STOP 'GAD_CALC_RHS: Bad advectionScheme (Y)' |
360 |
ENDIF |
ENDIF |
466 |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
467 |
O af, myThid ) |
O af, myThid ) |
468 |
ENDIF |
ENDIF |
469 |
|
ELSEIF (vertAdvecScheme.EQ.ENUM_OS7MP ) THEN |
470 |
|
CALL GAD_OS7MP_ADV_R( bi,bj,k, |
471 |
|
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
472 |
|
O af, myThid ) |
473 |
ELSE |
ELSE |
474 |
STOP 'GAD_CALC_RHS: Bad vertAdvecScheme (R)' |
STOP 'GAD_CALC_RHS: Bad vertAdvecScheme (R)' |
475 |
ENDIF |
ENDIF |