| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
112 |
OBCS_CALC_STEVENS |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
244 |
OBCS_CALC_STEVENS |
cflMer(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 |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
cflMer(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 |
706 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
732 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
734 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
735 |
OBCS_STEVENS_CALC_TRACER_EAST |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
760 |
OBCS_STEVENS_CALC_TRACER_WEST |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
787 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
814 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
816 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
817 |
OBCS_STEVENS_CALC_TRACER_WEST |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |