| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
15 |
GMREDI_SLOPE_LIMIT |
I Lrho, hMixLay, depthZ, kLow, |
|
./pkg/gmredi/gmredi_slope_limit.F |
346 |
GMREDI_SLOPE_LIMIT |
& MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
354 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
365 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
366 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./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 |
388 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
391 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
396 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
403 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
406 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
408 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
413 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
417 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
419 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
89 |
GMREDI_SLOPE_LIMIT |
_RL hMixLay (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |