26 |
USE dimphy, ONLY: klon |
USE dimphy, ONLY: klon |
27 |
USE fonte_neige_m, ONLY: fonte_neige |
USE fonte_neige_m, ONLY: fonte_neige |
28 |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter |
29 |
USE interface_surf, ONLY: run_off_lic, conf_interface |
USE interface_surf, ONLY: conf_interface |
30 |
USE interfsur_lim_m, ONLY: interfsur_lim |
USE interfsur_lim_m, ONLY: interfsur_lim |
31 |
use read_sst_m, only: read_sst |
use read_sst_m, only: read_sst |
32 |
use soil_m, only: soil |
use soil_m, only: soil |
263 |
fder = fder + dflux_s + dflux_l |
fder = fder + dflux_s + dflux_l |
264 |
z0_new = SQRT(0.002**2 + rugoro**2) |
z0_new = SQRT(0.002**2 + rugoro**2) |
265 |
case (is_lic) |
case (is_lic) |
|
if (.not. allocated(run_off_lic)) then |
|
|
allocate(run_off_lic(knon)) |
|
|
run_off_lic = 0. |
|
|
endif |
|
|
|
|
266 |
! Surface "glacier continentaux" appel a l'interface avec le sol |
! Surface "glacier continentaux" appel a l'interface avec le sol |
267 |
|
|
268 |
IF (soil_model) THEN |
IF (soil_model) THEN |