| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
113 |
OBCS_CALC_STEVENS |
aFac = 1. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
114 |
OBCS_CALC_STEVENS |
IF (.NOT. useStevensAdvection ) aFac = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
259 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
373 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
406 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
99 |
OBCS_CALC_STEVENS |
_RL gammat, gammas, gFac, pFac, aFac |