Changeset 365

Timestamp:

Jun 11, 2002, 2:53:45 PM (22 years ago)

Author:

lmdzadmin

Message:

L'humidite saturante de surface calculee par ORCHIDEE n'etait pas
repassee a clmain. IM
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (6 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -357 +357 @@
      &  evap, fluxsens, fluxlat, &              
      &  tsol_rad, tsurf_new, alb_new, alblw, &
-     &  emis_new, z0_new, dflux_l, dflux_s)
+     &  emis_new, z0_new, dflux_l, dflux_s, qsol_new)
 
 !  
@@ -363 +363 @@
 !  
       z0_new = SQRT(z0_new**2+rugoro**2)
+!
+! mise a jour de l'humidite saturante calculee par ORCHIDEE
+      qsol(1:knon) = qsol_new(1:knon)
 
     endif    
@@ -653 +656 @@
      & evap, fluxsens, fluxlat, &              
      & tsol_rad, tsurf_new, alb_new, alblw, &
-     & emis_new, z0_new, dflux_l, dflux_s)
+     & emis_new, z0_new, dflux_l, dflux_s, qsurf)
 
   USE intersurf
@@ -711 +714 @@
 !   emis_new     emissivite
 !   z0_new       surface roughness
-
+!   qsurf        saturated air moisture at surface
 
 ! Parametres d'entree
@@ -738 +741 @@
   real, dimension(klon), intent(IN) :: radsol
 ! Parametres de sortie
-  real, dimension(klon), intent(OUT):: evap, fluxsens, fluxlat
+  real, dimension(klon), intent(OUT):: evap, fluxsens, fluxlat, qsurf
   real, dimension(klon), intent(OUT):: tsol_rad, tsurf_new, alb_new, alblw
   real, dimension(klon), intent(OUT):: emis_new, z0_new
@@ -776 +779 @@
   logical, save          :: lrestart_read = .true. , lrestart_write = .false.
 
-  real, dimension(klon):: qsurf
-  real, dimension(klon):: snow, qsol
+  real, dimension(klon):: snow
   real, dimension(knon,2) :: albedo_out
 ! Pb de nomenclature