| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_forcing_surf.F |
329 |
KPP_FORCING_SURF |
tempVar1 = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
338 |
KPP_FORCING_SURF |
IF ( tempVar1 .lt. (epsln*epsln) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
341 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
362 |
KPP_FORCING_SURF |
tempVar1 = ustarX * ustarX + ustarY * ustarY |
|
./pkg/kpp/kpp_forcing_surf.F |
363 |
KPP_FORCING_SURF |
if ( tempVar1 .lt. (epsln*epsln) ) then |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_routines.F |
403 |
BLDEPTH |
_RL bvsq, vtsq, hekman, hmonob, hlimit, tempVar1, tempVar2 |
|
./pkg/kpp/kpp_routines.F |
569 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
570 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
612 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
614 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |