345 |
ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), & |
ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), & |
346 |
y_flux_v(:knon)) |
y_flux_v(:knon)) |
347 |
|
|
|
! calculer la diffusion de "q" et de "h" |
|
348 |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
349 |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), & |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), & |
350 |
yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), & |
yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), & |