File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_calc_tensor.F |
109 |
GMREDI_CALC_TENSOR |
_RL deltaH, integrDepth |
./pkg/gmredi/gmredi_calc_tensor.F |
352 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
./pkg/gmredi/gmredi_calc_tensor.F |
358 |
GMREDI_CALC_TENSOR |
deltaH = deltaH/( integrDepth+rC(1) ) |
./pkg/gmredi/gmredi_calc_tensor.F |
397 |
GMREDI_CALC_TENSOR |
& +deltaH*GM_Visbeck_alpha |
./pkg/gmredi/gmredi_calc_tensor.F |
472 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
./pkg/gmredi/gmredi_calc_tensor.F |
475 |
GMREDI_CALC_TENSOR |
deltaH=min(deltaH,integrDepth) |
./pkg/gmredi/gmredi_calc_tensor.F |
477 |
GMREDI_CALC_TENSOR |
deltaH=max(deltaH, 0. _d 0) |
./pkg/gmredi/gmredi_calc_tensor.F |
479 |
GMREDI_CALC_TENSOR |
deltaH=deltaH/GM_Visbeck_depth |
./pkg/gmredi/gmredi_calc_tensor.F |
485 |
GMREDI_CALC_TENSOR |
& +deltaH*GM_Visbeck_alpha |
./pkg/gmredi/gmredi_k3d.F |
299 |
GMREDI_K3D |
deltaH(i,j) = zeroRL |
./pkg/gmredi/gmredi_k3d.F |
521 |
GMREDI_K3D |
deltaH(i,j) = deltaH(i,j) + drF(k) |
./pkg/gmredi/gmredi_k3d.F |
534 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
./pkg/gmredi/gmredi_k3d.F |
540 |
GMREDI_K3D |
eady(i,j) = SQRT(eady(i,j)/deltaH(i,j)) |
./pkg/gmredi/gmredi_k3d.F |
588 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
./pkg/gmredi/gmredi_k3d.F |
82 |
GMREDI_K3D |
_RL deltaH(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |