File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_calc_stevens.F |
113 |
OBCS_CALC_STEVENS |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
./pkg/obcs/obcs_calc_stevens.F |
253 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
261 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
./pkg/obcs/obcs_calc_stevens.F |
372 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
./pkg/obcs/obcs_calc_stevens.F |
380 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
388 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
679 |
OBCS_STEVENS_CALC_TRACER_EAST |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
707 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
744 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - gFacM(J,K) * gammaf |
./pkg/obcs/obcs_calc_stevens.F |
760 |
OBCS_STEVENS_CALC_TRACER_WEST |
I uVel, cflMer, gFacM, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
788 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
826 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - gFacM(J,K) * gammaf |