Index: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F	(revision 314)
+++ trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F	(revision 315)
@@ -17,9 +17,9 @@
       tsoil(:,:)=wtsoil(:,:)
       PRINT*,'check: tsoil ',tsoil(1,1),tsoil(ngridmx,nsoilmx)
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-     !!!new physics
-      PRINT*,'no variable z0 field for the moment. use z0_default.'
-      z0(:) = z0_default
-      PRINT*, 'check z0 ', z0(1)
+c     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+c     !!!new physics
+c      PRINT*,'no variable z0 field for the moment. use z0_default.'
+c      z0(:) = z0_default
+c      PRINT*, 'check z0 ', z0(1)
       inertiedat(:,:)=wisoil(:,:)
       PRINT*,'check: inert ',inertiedat(1,1),inertiedat(ngridmx,nsoilmx)
Index: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F	(revision 314)
+++ trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F	(revision 315)
@@ -83,4 +83,11 @@
         print*,volcapa 
 
+        !
+        ! in surfdat.h
+        !
+        z0(:) = wz0tab(:)
+        print*,"check: z0"
+        print*,z0(1),z0(ngrid)
+
 c*****************************************************
 c Since it comes from WRF settings, we have to
Index: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F	(revision 314)
+++ trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F	(revision 315)
@@ -5,5 +5,5 @@
      $           ,wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS 
      $           ,wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS
-     $           ,walbedodat,wphisfi,wvolcapa 
+     $           ,walbedodat,wphisfi,wvolcapa,wz0tab 
      $           ,wzmea,wzstd,wzsig,wzgam,wzthe
      $           ,wtheta,wpsi
Index: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F	(revision 314)
+++ trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F	(revision 315)
@@ -13,2 +13,3 @@
       REAL wtheta(ngrid),wpsi(ngrid)
       REAL wvolcapa
+      REAL wz0tab(ngrid)