| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
458 |
KPP_CALC |
tempVar1 = p5 * ( |
|
./pkg/kpp/kpp_calc.F |
467 |
KPP_CALC |
if ( tempVar1 .lt. (epsln*epsln) ) then |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
tempVar1 = ustarX * ustarX + ustarY * ustarY |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
if ( tempVar1 .lt. (epsln*epsln) ) then |
|
./pkg/kpp/kpp_calc.F |
499 |
KPP_CALC |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_routines.F |
316 |
BLDEPTH |
_KPP_RL bvsq, vtsq, hekman, hmonob, hlimit, tempVar1, tempVar2 |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
412 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
438 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
440 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |