File |
Line number |
Procedure |
Code |
./pkg/kpp/kpp_calc.F |
218 |
KPP_CALC |
_RL tempvar1, dBdz1, dBdz2, ustarX, ustarY |
./pkg/kpp/kpp_forcing_surf.F |
135 |
KPP_FORCING_SURF |
_RL tempvar1, dBdz1, dBdz2, ustarX, ustarY |
./pkg/kpp/kpp_forcing_surf.F |
317 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,1) / drC(2) |
./pkg/kpp/kpp_forcing_surf.F |
318 |
KPP_FORCING_SURF |
zRef(i,j) = drF(1) * dB_dz / dBdz2 |
./pkg/kpp/kpp_forcing_surf.F |
321 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
./pkg/kpp/kpp_forcing_surf.F |
323 |
KPP_FORCING_SURF |
& MAX ( phepsi, dBdz2 - dBdz1 ) |