From 9fce9ab042976cd21289a3454f505e6caa3f0ca3 Mon Sep 17 00:00:00 2001
From: Dethinne Thomas <tdethinne@uliege.be>
Date: Mon, 2 Dec 2024 14:57:59 +0000
Subject: [PATCH] Update call_caraib.f90
---
couplage/MAR/call_caraib.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/couplage/MAR/call_caraib.f90 b/couplage/MAR/call_caraib.f90
index 4790ad9..1d89faa 100644
--- a/couplage/MAR/call_caraib.f90
+++ b/couplage/MAR/call_caraib.f90
@@ -43,10 +43,11 @@
CASE (0)
first_day = jdarGE
day_counter = 1
- first_iter = 1
+
! Write Caraib domain
CASE (1)
+ first_iter = 1
write(6,*) "write eco"
call make_eco
@@ -83,7 +84,7 @@
call caraib
!Rename all the files of the first output of CARAIB if its the spin up
- if (first_iter .eq. 1) CALL rename_spinup
+ if (first_iter .eq. 0) CALL rename_spinup
!
day_counter = day_counter + 1
--
GitLab