| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
217 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
384 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
523 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
599 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
740 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
784 |
GMREDI_CALC_TENSOR |
U hTransLay, baseSlope, recipLambda, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
85 |
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 |
349 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
359 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
362 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
367 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
371 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
387 |
GMREDI_SLOPE_LIMIT |
DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
409 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
420 |
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) |