Changeset 2244 for LMDZ5/trunk/libf/phylmd/dyn1d

Timestamp:

Mar 24, 2015, 3:17:55 PM (10 years ago)

Author:

fhourdin

Message:

Correction pour le 1D + toilettage
Bugfixing for 1D + cleaning

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -188 +188 @@
       real :: run_off_lic_0(1)
       real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
-      real :: evap(1,nbsrf),frugs(1,nbsrf)
       real :: tsoil(1,nsoilmx,nbsrf)
-      real :: agesno(1,nbsrf)
+!     real :: agesno(1,nbsrf)
 
 !---------------------------------------------------------------------
@@ -629 +628 @@
         snsrf(1,:)=0.        ! couverture de neige des sous surface
         qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface
-        evap=0.
-        frugs(1,:)=rugos     ! couverture de neige des sous surface
+        fevap=0.
+        z0m(1,:)=rugos     ! couverture de neige des sous surface
+        z0h(1,:)=rugos     ! couverture de neige des sous surface
         agesno  = xagesno
         tsoil(:,:,:)=tsurf
@@ -646 +646 @@
 !       tsoil(1,11,1)=308.00
 !-----------------------------------------------------------------------
-        call pbl_surface_init(qsol, fder, snsrf, qsurfsrf,                  &
-     &                                    evap, frugs, agesno, tsoil)
+        call pbl_surface_init(fder, snsrf, qsurfsrf, tsoil)
 
 !------------------ prepare limit conditions for limit.nc -----------------