From 6e6d790983e59dc80b1ae583822d0b4acf74f4d3 Mon Sep 17 00:00:00 2001
From: Thomas Dethinne <tdethinne@uliege.be>
Date: Tue, 12 Nov 2024 13:56:41 +0100
Subject: [PATCH] correctly rename the "spinup" after iter = 1
---
couplage/MAR/rename_spinup.f90 | 39 +++++++++++++++++++++++++++++-----
1 file changed, 34 insertions(+), 5 deletions(-)
diff --git a/couplage/MAR/rename_spinup.f90 b/couplage/MAR/rename_spinup.f90
index e1fdfb1..815ff2f 100644
--- a/couplage/MAR/rename_spinup.f90
+++ b/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
--
GitLab