| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_forcing_surf.F |
201 |
KPP_FORCING_SURF |
tempVar2 = SQRT( work3(i,j) ) * p5 |
|
./pkg/kpp/kpp_forcing_surf.F |
202 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
339 |
KPP_FORCING_SURF |
tempVar2 = epsln |
|
./pkg/kpp/kpp_forcing_surf.F |
341 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
346 |
KPP_FORCING_SURF |
& tempVar2 * vonK / |
|
./pkg/kpp/kpp_forcing_surf.F |
364 |
KPP_FORCING_SURF |
tempVar2 = epsln |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
368 |
KPP_FORCING_SURF |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_forcing_surf.F |
371 |
KPP_FORCING_SURF |
& vonK / tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
uRef(i,j) = uRef(i,j) + ustarX * tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
373 |
KPP_FORCING_SURF |
vRef(i,j) = vRef(i,j) + ustarY * tempVar2 |
|
./pkg/kpp/kpp_routines.F |
403 |
BLDEPTH |
_RL bvsq, vtsq, hekman, hmonob, hlimit, tempVar1, tempVar2 |
|
./pkg/kpp/kpp_routines.F |
570 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
571 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |