Changeset 233 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Jun 20, 2001, 3:59:19 PM (24 years ago)

Author:

lmdzadmin

Message:

rajout de la contribution du relief au z0 a la sortie de ORCHIDEE
LF

File:

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

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

@@ -340 +340 @@
 
     else
-        CALL albsno(klon,agesno,alb_neig_grid)  
+      CALL albsno(klon,agesno,alb_neig_grid)  
 !
 !  appel a sechiba
 !
-!      scatter = .false.
-!      call getin('SCATTER',scatter)
-!      if (.not. scatter) then
-        call interfsol(itime, klon, dtime, date0, nisurf, knon, &
+      call interfsol(itime, klon, dtime, date0, nisurf, knon, &
      &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
      &  debut, lafin, ok_veget, &
@@ -356 +353 @@
      &  evap, fluxsens, fluxlat, &              
      &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
-!      else
-!        call interfsol_scat(itime, klon, dtime, date0, nisurf, knon, &
-!     &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
-!     &  debut, lafin, ok_veget, &
-!     &  zlev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, & 
-!     &  tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
-!     &  precip_rain, precip_snow, sollwdown, swnet, swdown, &
-!     &  tsurf, p1lay/100., ps, radsol, &
-!     &  evap, fluxsens, fluxlat, &              
-!     &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
-!      endif
+
+!  
+! ajout de la contribution du relief
+!  
+      z0_new = SQRT(z0_new**2+rugoro**2)
+
     endif    
 !