Index: trunk/LMDZ.MARS/libf/phymars/physiq.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/physiq.F	(revision 667)
+++ trunk/LMDZ.MARS/libf/phymars/physiq.F	(revision 668)
@@ -1637,10 +1637,10 @@
       !!!
       wtsurf(1:ngrid) = tsurf(1:ngrid)    !! surface temperature
+      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
+      TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
       IF (tracer) THEN
-      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
       mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / rho_ice
       icetot(1:ngrid) = icetot(1:ngrid) * 1.e6 / rho_ice
       !! JF 
-      TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
       IF (igcm_dust_mass .ne. 0) THEN
         qsurfice_dust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)