| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_forcing_surf.F |
192 |
KPP_FORCING_SURF |
tempVar2 = SQRT( work3(i,j) ) * p5 |
|
./pkg/kpp/kpp_forcing_surf.F |
193 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
311 |
KPP_FORCING_SURF |
tempVar2 = epsln |
|
./pkg/kpp/kpp_forcing_surf.F |
313 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
318 |
KPP_FORCING_SURF |
& tempVar2 * vonK / |
|
./pkg/kpp/kpp_forcing_surf.F |
336 |
KPP_FORCING_SURF |
tempVar2 = epsln |
|
./pkg/kpp/kpp_forcing_surf.F |
338 |
KPP_FORCING_SURF |
tempVar2 = SQRT ( tempVar1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
340 |
KPP_FORCING_SURF |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_forcing_surf.F |
343 |
KPP_FORCING_SURF |
& vonK / tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
344 |
KPP_FORCING_SURF |
uRef(i,j) = uRef(i,j) + ustarX * tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
345 |
KPP_FORCING_SURF |
vRef(i,j) = vRef(i,j) + ustarY * tempVar2 |
|
./pkg/kpp/kpp_routines.F |
368 |
BLDEPTH |
_RL bvsq, vtsq, hekman, hmonob, hlimit, tempVar1, tempVar2 |
|
./pkg/kpp/kpp_routines.F |
505 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
506 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |