| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
18 |
GMREDI_SLOPE_LIMIT |
I Lrho, hMixLay, depthZ, kLow, |
|
./pkg/gmredi/gmredi_slope_limit.F |
281 |
GMREDI_SLOPE_LIMIT |
& MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
289 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
300 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
301 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./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 |
323 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
326 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
331 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
338 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
343 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
348 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
352 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
354 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
92 |
GMREDI_SLOPE_LIMIT |
_RL hMixLay (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |