| 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 |
279 |
GMREDI_SLOPE_LIMIT |
& MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
287 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
298 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
299 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./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 |
321 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
324 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
329 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
336 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
339 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
346 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
350 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
352 |
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) |