23 |
USE calcul_fluxs_m, ONLY: calcul_fluxs |
USE calcul_fluxs_m, ONLY: calcul_fluxs |
24 |
USE dimphy, ONLY: klon |
USE dimphy, ONLY: klon |
25 |
USE fonte_neige_m, ONLY: fonte_neige |
USE fonte_neige_m, ONLY: fonte_neige |
|
USE gath2cpl_m, ONLY: gath2cpl |
|
26 |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
27 |
USE interface_surf, ONLY: coastalflow, riverflow, run_off, & |
USE interface_surf, ONLY: coastalflow, riverflow, run_off, & |
28 |
run_off_lic, conf_interface, tmp_rlic |
run_off_lic, conf_interface |
29 |
USE interfoce_lim_m, ONLY: interfoce_lim |
USE interfoce_lim_m, ONLY: interfoce_lim |
30 |
USE interfoce_slab_m, ONLY: interfoce_slab |
USE interfoce_slab_m, ONLY: interfoce_slab |
31 |
USE interfsur_lim_m, ONLY: interfsur_lim |
USE interfsur_lim_m, ONLY: interfsur_lim |
283 |
abort_message='Pb allocation run_off' |
abort_message='Pb allocation run_off' |
284 |
call abort_gcm(modname, abort_message, 1) |
call abort_gcm(modname, abort_message, 1) |
285 |
endif |
endif |
|
!cym |
|
|
run_off=0.0 |
|
|
!cym |
|
286 |
|
|
287 |
ALLOCATE (tmp_rlic(iim, jjm+1)) |
run_off=0.0 |
|
tmp_rlic = 0.0 |
|
288 |
else if (size(coastalflow) /= knon) then |
else if (size(coastalflow) /= knon) then |
289 |
write(*, *)'Bizarre, le nombre de points continentaux' |
write(*, *)'Bizarre, le nombre de points continentaux' |
290 |
write(*, *)'a change entre deux appels. J''arrete ...' |
write(*, *)'a change entre deux appels. J''arrete ...' |
537 |
! passage du run-off des glaciers calcule dans fonte_neige au coupleur |
! passage du run-off des glaciers calcule dans fonte_neige au coupleur |
538 |
bidule=0. |
bidule=0. |
539 |
bidule(1:knon)= run_off_lic(1:knon) |
bidule(1:knon)= run_off_lic(1:knon) |
|
call gath2cpl(bidule, tmp_rlic, klon, knon, iim, jjm, knindex) |
|
540 |
|
|
541 |
! calcul albedo |
! calcul albedo |
542 |
|
|