correctly rename the "spinup" after iter = 1

couplage/MAR/rename_spinup.f90

@@ -14,17 +14,46 @@
       !SUBROUTINE
       subroutine rename_spinup
 
+        use mar_ge
+
         IMPLICIT NONE
 
         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
+            write (yym1,'(I4)') (iyrrGE-1)
+            filename = './CARAIB_couplage/results/Belgium/'
+
+            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('ylailim2009.res','ylailim2009.res')
-            CALL RENAME('xlai_min_max2009.res','xlai_min_max2009.res')
-            CALL RENAME('temprev2009.res','temprev2009.res')
-            CALL RENAME('frac2009.res','frac2009.res')
-            CALL RENAME('cropino2009.res','cropino2009.res')
+            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)
+
+            filename_input =  trim(filename) // trim("cropino") // trim(yyyy) // ".res"
+            filename_output = trim(filename) // trim("cropino") // trim(yym1) // ".res" 
+            CALL RENAME(filename_input,filename_output)
+
+            filename_input =  trim(filename) // trim("biomass") // trim(yyyy) // ".res"
+            filename_output = trim(filename) // trim("biomass") // trim(yym1) // ".res" 
+            CALL RENAME(filename_input,filename_output)
 
 
         endif