60 |
! refroidissement infrarouge ciel clair |
! refroidissement infrarouge ciel clair |
61 |
|
|
62 |
real, intent(out):: radsol(klon) |
real, intent(out):: radsol(klon) |
63 |
! bilan radiatif net au sol (W/m**2) (+ vers le bas) |
! bilan radiatif net au sol (W/m**2), positif vers le bas |
64 |
|
|
65 |
real, intent(out):: albpla(klon) ! albedo planetaire (entre 0 et 1) |
real, intent(out):: albpla(klon) ! albedo planetaire (entre 0 et 1) |
66 |
real, intent(out):: topsw(klon) ! flux solaire net au sommet de l'atm. |
real, intent(out):: topsw(klon) ! flux solaire net au sommet de l'atm. |
71 |
real, intent(out):: solsw(klon) ! flux solaire net à la surface |
real, intent(out):: solsw(klon) ! flux solaire net à la surface |
72 |
|
|
73 |
real, intent(out):: sollw(klon) |
real, intent(out):: sollw(klon) |
74 |
! rayonnement infrarouge montant à la surface |
! rayonnement infrarouge net à la surface |
75 |
|
|
76 |
real, intent(out):: sollwdown(klon) |
real, intent(out):: sollwdown(klon) |
77 |
real, intent(out):: topsw0(klon) |
real, intent(out):: topsw0(klon) |