| 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 |
333 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k) - depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
335 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k-1) - depthZ(k) ) |
|
./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 |
356 |
GMREDI_SLOPE_LIMIT |
hTransLay(i,j) = -depthZ(k+1) |
|
./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 |
373 |
GMREDI_SLOPE_LIMIT |
& ) / ( depthZ(k) - depthZ(k+1) ) |
|
./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 |
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 |
635 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
90 |
GMREDI_SLOPE_LIMIT |
_RS depthZ(*) |
|
./pkg/gmredi/gmredi_slope_psi.F |
11 |
GMREDI_SLOPE_PSI |
I LrhoW, LrhoS, depthZ, K, |
|
./pkg/gmredi/gmredi_slope_psi.F |
328 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoW(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
348 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoS(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
50 |
GMREDI_SLOPE_PSI |
_RS depthZ |