4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE interfsur_lim(itime, dtime, jour, knindex, debut, alblw, z0_new) |
SUBROUTINE interfsur_lim(itime, dtime, jour, knindex, debut, albedo, z0_new) |
8 |
|
|
9 |
! Cette routine sert d'interface entre le mod\`ele atmosph\'erique et |
! Cette routine sert d'interface entre le mod\`ele atmosph\'erique et |
10 |
! un fichier de conditions aux limites. |
! un fichier de conditions aux limites. |
24 |
! index des points de la surface \`a traiter |
! index des points de la surface \`a traiter |
25 |
|
|
26 |
logical, intent(IN):: debut ! premier appel \`a la physique (initialisation) |
logical, intent(IN):: debut ! premier appel \`a la physique (initialisation) |
27 |
real, intent(out):: alblw(:) ! (knon) albedo lu |
real, intent(out):: albedo(:) ! (knon) albedo lu |
28 |
real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue |
real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue |
29 |
|
|
30 |
! Local: |
! Local: |
75 |
endif |
endif |
76 |
|
|
77 |
! Recopie des variables dans les champs de sortie |
! Recopie des variables dans les champs de sortie |
78 |
alblw = alb_lu(knindex) |
albedo = alb_lu(knindex) |
79 |
z0_new(:knon) = rug_lu(knindex) |
z0_new(:knon) = rug_lu(knindex) |
80 |
z0_new(knon + 1:) = 999999. |
z0_new(knon + 1:) = 999999. |
81 |
|
|