| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
207 |
KPP_CALC |
_RL zRef ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_forcing_surf.F |
134 |
KPP_FORCING_SURF |
_RL zRef ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_forcing_surf.F |
312 |
KPP_FORCING_SURF |
zRef(i,j) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
315 |
KPP_FORCING_SURF |
zRef(i,j) = drF(1) * dB_dz / dBdz2 |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
322 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
348 |
KPP_FORCING_SURF |
zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
349 |
KPP_FORCING_SURF |
zRef(i,j) = MIN ( zRef(i,j), drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
354 |
KPP_FORCING_SURF |
IF ( zRef(i,j) .LT. drF(1) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_forcing_surf.F |
367 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |