| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
121 |
OBCS_CALC_STEVENS |
_RL gammat, gammas, pFac, aFac |
|
./pkg/obcs/obcs_calc_stevens.F |
135 |
OBCS_CALC_STEVENS |
aFac = 1. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
136 |
OBCS_CALC_STEVENS |
IF (.NOT. useStevensAdvection ) aFac = 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 |
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 |
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 |
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 |
679 |
OBCS_STEVENS_CALC_TRACER_EAST |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
708 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL gammaf, pFac, aFac |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
760 |
OBCS_STEVENS_CALC_TRACER_WEST |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
789 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL gammaf, pFac, aFac |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
842 |
OBCS_STEVENS_CALC_TRACER_NORTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
871 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL gammaf, pFac, aFac |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
924 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
953 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL gammaf, pFac, aFac |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |