11 |
petAcoef, peqAcoef, petBcoef, peqBcoef, & |
petAcoef, peqAcoef, petBcoef, peqBcoef, & |
12 |
tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l) |
tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l) |
13 |
|
|
14 |
! Cette routine calcule les fluxs en h et q a l'interface et eventuellement |
! Cette routine calcule les fluxs en h et q à l'interface et une |
15 |
! une temperature de surface (au cas ou ok_veget = false) |
! température de surface. |
16 |
|
|
17 |
! L. Fairhead 4/2000 |
! L. Fairhead 4/2000 |
18 |
|
|
98 |
!!CALL flush(6) |
!!CALL flush(6) |
99 |
ENDIF |
ENDIF |
100 |
|
|
101 |
if (size(coastalflow) /= knon .AND. nisurf == is_ter) then |
if (size(run_off) /= knon .AND. nisurf == is_ter) then |
102 |
write(*, *)'Bizarre, le nombre de points continentaux' |
write(*, *)'Bizarre, le nombre de points continentaux' |
103 |
write(*, *)'a change entre deux appels. J''arrete ...' |
write(*, *)'a change entre deux appels. J''arrete ...' |
104 |
abort_message='Pb run_off' |
abort_message='Pb run_off' |