Index: trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F
===================================================================
--- trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F	(revision 1918)
+++ trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F	(revision 1944)
@@ -30,8 +30,11 @@
       use comsoil_h, only: inertiedat, layer, mlayer, nsoilmx, tsoil
       use control_mod, only: day_step, iphysiq, anneeref, planet_type
+      use phyetat0_mod, only: phyetat0
       use phyredem, only: physdem0, physdem1
       use iostart, only: open_startphy
-      use dimradmars_mod, only: tauscaling
-      use turb_mod, only: q2
+      use dimradmars_mod, only: tauscaling, albedo
+      use turb_mod, only: q2, wstar
+      use co2cloud_mod, only: mem_Mccn_co2, mem_Mh2o_co2,
+     &                        mem_Nccn_co2
       use filtreg_mod, only: inifilr
       USE mod_const_mpi, ONLY: COMM_LMDZ
@@ -418,11 +421,12 @@
         fichnom = 'start.nc'
         CALL dynetat0(fichnom,vcov,ucov,teta,q,masse,
-     .       ps,phis,time)
+     &       ps,phis,time)
 
         write(*,*) 'Reading file STARTFI'
         fichnom = 'startfi.nc'
         CALL phyetat0 (fichnom,tab0,Lmodif,nsoilmx,ngridmx,llm,nqtot,
-     .        day_ini,time,
-     .        tsurf,tsoil,emis,q2,qsurf,co2ice,tauscaling,totcloudfrac)
+     &        day_ini,time,tsurf,tsoil,albedo,emis,
+     &        q2,qsurf,co2ice,tauscaling,totcloudfrac,
+     &        wstar,mem_Mccn_co2,mem_Nccn_co2,mem_Mh2o_co2)
         
         ! copy albedo and soil thermal inertia
@@ -1640,7 +1644,8 @@
      .              airefi,albfi,ithfi,zmea,zstd,zsig,zgam,zthe)
       call physdem1("restartfi.nc",nsoilmx,ngridmx,llm,nqtot,
-     .              dtphys,hour_ini,
-     .              tsurf,tsoil,co2ice,emis,q2,qsurf,tauscaling,
-     .              totcloudfrac)
+     &              dtphys,hour_ini,
+     &              tsurf,tsoil,co2ice,albedo,emis,q2,qsurf,tauscaling,
+     &              totcloudfrac,wstar,
+     &              mem_Mccn_co2,mem_Nccn_co2,mem_Mh2o_co2)
 
 c=======================================================================
Index: trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F
===================================================================
--- trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 1918)
+++ trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 1944)
@@ -31,4 +31,5 @@
       USE temps_mod, ONLY: day_ini,hour_ini
       USE iniphysiq_mod, ONLY: iniphysiq
+      USE phyetat0_mod, ONLY: phyetat0
       implicit none
 
@@ -67,4 +68,9 @@
       REAL q2(ngridmx,llm+1)
       REAL emis(ngridmx)
+      REAL albedo(ngridmx,2)
+      REAL wstar(ngridmx)
+      DOUBLE PRECISION mem_Nccn_co2(ngridmx,llm)
+      DOUBLE PRECISION mem_Mccn_co2(ngridmx,llm)
+      DOUBLE PRECISION mem_Mh2o_co2(ngridmx,llm)
       INTEGER start,length
       PARAMETER (length = 100)
@@ -157,6 +163,7 @@
 
       CALL phyetat0 (fichnom,0,Lmodif,nsoilmx,ngridmx,llm,nqtot,
-     &      day_ini_fi,timefi,tsurf,tsoil,emis,q2,qsurf,co2ice,
-     &      tauscaling,totcloudfrac)
+     &      day_ini_fi,timefi,tsurf,tsoil,albedo,emis,q2,qsurf,co2ice,
+     &      tauscaling,totcloudfrac,wstar,mem_Mccn_co2,mem_Nccn_co2,
+     &               mem_Mh2o_co2)
 
        ierr = NF_OPEN (fichnom, NF_NOWRITE,nid1)