diff --git a/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F b/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
index 2a1182a36e1b03f008e63d43d8fffafb9dff2245..c6f8f5e035e13d4cde9d31cd94fecb1741eb588f 100644
--- a/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
+++ b/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
@@ -135,6 +135,15 @@ c     time step for hydrological module (IBM) integration (day)
       call open_input5(nyrmax,itmt,stept,iread)
       write(*,*) 'open input file finish'
       
+      ! If this is not the first iteration, then you can read the spinup data
+      if (first_iter.eq.0) then
+        ifrac = 0
+        ifrac_rd = 1
+        ilai_rd = 1
+        iread = 1
+
+      endif
+
       if (ifull.eq.1) open(99924,file=filres)
       write(*,*) 'ifull file finish'
 c=======================================================================
@@ -474,14 +483,7 @@ c    - pixel area
 c=======================================================================	
         if (first_iter.eq.1) call pixel_corners(ngt)
         
-        ! If this is not the first iteration, then you can read the spinup data
-        if (first_iter.eq.0) then
-          ifrac = 0
-          ifrac_rd = 1
-          ilai_rd = 1
-          iread = 1
 
-        endif
 c=======================================================================
 c   reads land use file and 
 c   initialization of variables for all pixels