diff --git a/couplage/MAR/rename_spinup.f90 b/couplage/MAR/rename_spinup.f90
index 815ff2faedf24747145be806cc4297344629be4b..82c68ad05a865291276de2ab47db72354591a774 100644
--- a/couplage/MAR/rename_spinup.f90
+++ b/couplage/MAR/rename_spinup.f90
@@ -15,15 +15,16 @@
       subroutine rename_spinup
 
         use mar_ge
+        use marcar
 
         IMPLICIT NONE
 
-        include './com_18/cte.common'
+        ! include './com_18/cte.common'
 
         character(len=100) :: filename_input, filename_output,filename
         character(len=4) :: yyyy
         character(len=4) :: yym1
-
+        
         if (readsteady .eq. 0) then
   
             write (yyyy,'(I4)') iyrrGE
@@ -32,17 +33,12 @@
 
             filename_input =  trim(filename) // trim("ylailim") // trim(yyyy) // ".res"
             filename_output = trim(filename) // trim("ylailim") // trim(yym1) // ".res" 
-            ! CALL RENAME('co2prev2010.res','co2prev2010.res') not needed
             CALL RENAME(filename_input,filename_output)
 
             filename_input =  trim(filename) // trim("xlai_min_max") // trim(yyyy) // ".res"
             filename_output = trim(filename) // trim("xlai_min_max") // trim(yym1) // ".res" 
             CALL RENAME(filename_input,filename_output)
 
-            filename_input =  trim(filename) // trim("temprev") // trim(yyyy) // ".res"
-            filename_output = trim(filename) // trim("temprev") // trim(yym1) // ".res" 
-            CALL RENAME(filename_input,filename_output)
-
             filename_input =  trim(filename) // trim("frac") // trim(yyyy) // ".res"
             filename_output = trim(filename) // trim("frac") // trim(yym1) // ".res" 
             CALL RENAME(filename_input,filename_output)