From ef8e73d6c4786acaf10272390a3f6ca070687000 Mon Sep 17 00:00:00 2001
From: Dethinne Thomas <tdethinne@uliege.be>
Date: Tue, 3 Dec 2024 12:16:57 +0000
Subject: [PATCH] Update rename_spinup.f90
---
couplage/MAR/rename_spinup.f90 | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/couplage/MAR/rename_spinup.f90 b/couplage/MAR/rename_spinup.f90
index 815ff2f..82c68ad 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)
--
GitLab