| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
251 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
422 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
572 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
644 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
688 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
842 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
91 |
GMREDI_CALC_TENSOR |
_RL recipLambda(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_slope_limit.F |
12 |
GMREDI_SLOPE_LIMIT |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_slope_limit.F |
282 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
292 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
295 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
300 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
304 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
320 |
GMREDI_SLOPE_LIMIT |
DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
342 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
353 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
84 |
GMREDI_SLOPE_LIMIT |
_RL recipLambda(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |