diff --git a/couplage/MAR/call_caraib.f90 b/couplage/MAR/call_caraib.f90 index 4790ad930bd1bc84c9a220b719d51da2afa60063..1d89faaa66ba8e36434d5adfa0abebeac073489e 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