48 |
REAL delp(klon, klev) ! epaisseur de couche en pression (Pa) |
REAL delp(klon, klev) ! epaisseur de couche en pression (Pa) |
49 |
REAL radsol(klon) ! ray. net au sol (Solaire + IR) W / m2 |
REAL radsol(klon) ! ray. net au sol (Solaire + IR) W / m2 |
50 |
REAL, intent(inout):: albedo(:) ! (knon) albedo de la surface |
REAL, intent(inout):: albedo(:) ! (knon) albedo de la surface |
51 |
REAL, intent(inout):: snow(klon) ! hauteur de neige |
REAL, intent(inout):: snow(:) ! (knon) ! hauteur de neige |
52 |
REAL qsurf(klon) ! humidite de l'air au dessus de la surface |
REAL qsurf(klon) ! humidite de l'air au dessus de la surface |
53 |
|
|
54 |
real, intent(in):: precip_rain(klon) |
real, intent(in):: precip_rain(klon) |