| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
190 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
2258 |
TRBFLX |
sz0(i) = sz0(i) + aitr*z0(i) |
|
./pkg/fizhi/fizhi_turb.F |
378 |
TURBIO |
z0(i) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
380 |
TURBIO |
z0(i) = 3.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
382 |
TURBIO |
z0(i) = zoch(i) |
|
./pkg/fizhi/fizhi_turb.F |
455 |
TURBIO |
call STRIPIT (z0,stz0,nchptot,nchp,istrip,1,nn) |
|
./pkg/kpp/kpp_calc.F |
208 |
KPP_CALC |
_RL z0 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_forcing_surf.F |
136 |
KPP_FORCING_SURF |
_RL z0 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_forcing_surf.F |
343 |
KPP_FORCING_SURF |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_forcing_surf.F |
348 |
KPP_FORCING_SURF |
z0(i,j) = MAX ( z0(i,j), phepsi ) |
|
./pkg/kpp/kpp_forcing_surf.F |
351 |
KPP_FORCING_SURF |
zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |