| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
425 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
588 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
660 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
704 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
875 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
919 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
94 |
GMREDI_CALC_TENSOR |
_RL recipLambda(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_slope_limit.F |
15 |
GMREDI_SLOPE_LIMIT |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_slope_limit.F |
284 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
294 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
297 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
302 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
306 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
322 |
GMREDI_SLOPE_LIMIT |
DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
355 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
87 |
GMREDI_SLOPE_LIMIT |
_RL recipLambda(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |