| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
106 |
GMREDI_CALC_TENSOR |
_RL deltaH, integrDepth |
|
./pkg/gmredi/gmredi_calc_tensor.F |
350 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
354 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
deltaH = deltaH/( integrDepth+rC(1) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
395 |
GMREDI_CALC_TENSOR |
& +deltaH*GM_Visbeck_alpha |
|
./pkg/gmredi/gmredi_calc_tensor.F |
469 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
472 |
GMREDI_CALC_TENSOR |
deltaH=min(deltaH,integrDepth) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
474 |
GMREDI_CALC_TENSOR |
deltaH=max(deltaH, 0. _d 0) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
476 |
GMREDI_CALC_TENSOR |
deltaH=deltaH/GM_Visbeck_depth |
|
./pkg/gmredi/gmredi_calc_tensor.F |
482 |
GMREDI_CALC_TENSOR |
& +deltaH*GM_Visbeck_alpha |
|
./pkg/gmredi/gmredi_k3d.F |
314 |
GMREDI_K3D |
deltaH(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
508 |
GMREDI_K3D |
deltaH(i,j) = deltaH(i,j) + drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
521 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
527 |
GMREDI_K3D |
eady(i,j) = SQRT(eady(i,j)/deltaH(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
575 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
81 |
GMREDI_K3D |
_RL deltaH(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |