| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
377 |
KPP_CALC |
tempVar2 = SQRT( work3(i,j) ) * p5 |
|
./pkg/kpp/kpp_calc.F |
378 |
KPP_CALC |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_calc.F |
468 |
KPP_CALC |
tempVar2 = epsln |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& tempVar2 * vonK / |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
tempVar2 = epsln |
|
./pkg/kpp/kpp_calc.F |
499 |
KPP_CALC |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_calc.F |
501 |
KPP_CALC |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_calc.F |
504 |
KPP_CALC |
& vonK / tempVar2 |
|
./pkg/kpp/kpp_calc.F |
505 |
KPP_CALC |
uRef(i,j) = uRef(i,j) + ustarX * tempVar2 |
|
./pkg/kpp/kpp_calc.F |
506 |
KPP_CALC |
vRef(i,j) = vRef(i,j) + ustarY * tempVar2 |
|
./pkg/kpp/kpp_routines.F |
316 |
BLDEPTH |
_KPP_RL bvsq, vtsq, hekman, hmonob, hlimit, tempVar1, tempVar2 |
|
./pkg/kpp/kpp_routines.F |
412 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
413 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |