Parent Directory | Revision Log | Patch
revision 129 by guez, Fri Feb 6 15:00:28 2015 UTC | revision 130 by guez, Tue Feb 24 15:43:51 2015 UTC | |
---|---|---|
# | Line 276 contains | Line 276 contains |
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |