Index: trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90	(revision 3130)
+++ trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90	(revision 3132)
@@ -781,5 +781,6 @@
 ! Perennial CO2 ice
 perennial_co2ice(:,:) = 0.
-if (startphy_file) then
+if (paleoclimate) then
+  if (startphy_file) then
     call get_field("perennial_co2ice",perennial_co2ice,found,indextime)
     if (.not. found) then
@@ -793,5 +794,5 @@
         endif
     endif ! not found
-else
+  else
     if (abs(latitude(ngrid) - (-pi/2.)) < 1.e-5) then
         do islope = 1,nslope
@@ -800,5 +801,6 @@
         enddo
     endif
-endif !startphy_file
+  endif !startphy_file
+endif ! of if (paleoclimate)
 
 ! close file:
Index: trunk/LMDZ.MARS/libf/phymars/phyredem.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/phyredem.F90	(revision 3130)
+++ trunk/LMDZ.MARS/libf/phymars/phyredem.F90	(revision 3132)
@@ -227,5 +227,7 @@
  
   ! Perennial CO2 ice layer
-  call put_field("perennial_co2ice","CO2 ice cover",perennial_co2ice,time)
+  if(paleoclimate) then
+    call put_field("perennial_co2ice","CO2 ice cover",perennial_co2ice,time)
+  endif
 
   ! Surface temperature