19 |
! Laurent Fairhead, February 2000 |
! Laurent Fairhead, February 2000 |
20 |
|
|
21 |
USE abort_gcm_m, ONLY: abort_gcm |
USE abort_gcm_m, ONLY: abort_gcm |
22 |
|
use alboc_m, only: alboc |
23 |
USE albsno_m, ONLY: albsno |
USE albsno_m, ONLY: albsno |
24 |
use calbeta_m, only: calbeta |
use calbeta_m, only: calbeta |
25 |
USE calcul_fluxs_m, ONLY: calcul_fluxs |
USE calcul_fluxs_m, ONLY: calcul_fluxs |
276 |
|
|
277 |
! calcul albedo |
! calcul albedo |
278 |
if (minval(rmu0) == maxval(rmu0) .and. minval(rmu0) == -999.999) then |
if (minval(rmu0) == maxval(rmu0) .and. minval(rmu0) == -999.999) then |
279 |
CALL alboc(FLOAT(jour), rlat, alb_eau) |
CALL alboc(jour, rlat, alb_eau) |
280 |
else ! cycle diurne |
else ! cycle diurne |
281 |
CALL alboc_cd(rmu0, alb_eau) |
CALL alboc_cd(rmu0, alb_eau) |
282 |
endif |
endif |