24 |
|
|
25 |
logical, intent(IN):: debut ! premier appel \`a la physique (initialisation) |
logical, intent(IN):: debut ! premier appel \`a la physique (initialisation) |
26 |
real, intent(out):: albedo(:) ! (knon) albedo lu |
real, intent(out):: albedo(:) ! (knon) albedo lu |
27 |
real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue |
real, intent(out):: z0_new(:) ! (knon) longueur de rugosit\'e lue |
28 |
|
|
29 |
! Local: |
! Local: |
30 |
|
|
75 |
|
|
76 |
! Recopie des variables dans les champs de sortie |
! Recopie des variables dans les champs de sortie |
77 |
albedo = alb_lu(knindex) |
albedo = alb_lu(knindex) |
78 |
z0_new(:knon) = rug_lu(knindex) |
z0_new = rug_lu(knindex) |
|
z0_new(knon + 1:) = 999999. |
|
79 |
|
|
80 |
END SUBROUTINE interfsur_lim |
END SUBROUTINE interfsur_lim |
81 |
|
|