Update rename_spinup.f90

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)