File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_calc_stevens.F |
117 |
OBCS_CALC_STEVENS |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
./pkg/obcs/obcs_calc_stevens.F |
483 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
./pkg/obcs/obcs_calc_stevens.F |
491 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
499 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
./pkg/obcs/obcs_calc_stevens.F |
595 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
./pkg/obcs/obcs_calc_stevens.F |
603 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
611 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
842 |
OBCS_STEVENS_CALC_TRACER_NORTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
870 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
908 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - gFacZ(I,K) * gammaf |
./pkg/obcs/obcs_calc_stevens.F |
924 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
./pkg/obcs/obcs_calc_stevens.F |
952 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
./pkg/obcs/obcs_calc_stevens.F |
989 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - gFacZ(I,K) * gammaf |