49 |
REAL pplay(klon, klev) ! pression au milieu de couche (Pa) |
REAL pplay(klon, klev) ! pression au milieu de couche (Pa) |
50 |
REAL delp(klon, klev) ! epaisseur de couche en pression (Pa) |
REAL delp(klon, klev) ! epaisseur de couche en pression (Pa) |
51 |
|
|
52 |
REAL, intent(inout):: radsol(:) ! (knon) |
REAL, intent(in):: radsol(:) ! (knon) |
53 |
! rayonnement net au sol (Solaire + IR) W / m2 |
! rayonnement net au sol (Solaire + IR) W / m2 |
54 |
|
|
55 |
REAL, intent(inout):: albedo(:) ! (knon) albedo de la surface |
REAL, intent(inout):: albedo(:) ! (knon) albedo de la surface |