Update caraib_main_01_Iv_couplage.F

couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F

@@ -49,6 +49,7 @@ c=====================================================================72
       USE MOD_NETCDFCARAIB
       use marctr
       use mar_ge
+      use marcar
 
       IMPLICIT NONE
 
@@ -472,7 +473,15 @@ c    - coordinates of pixel corners
 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
@@ -857,7 +866,7 @@ c=======================================================================
 c      records CO2 of previous years
 c=======================================================================
       
-      write(999326,'(20(1x,f10.3))')(co2_prev(iy),iy=1,20) 
+      !write(999326,'(20(1x,f10.3))')(co2_prev(iy),iy=1,20) 
 
 c=======================================================================
 c      dispersion module
@@ -905,7 +914,7 @@ cc	      idayct = idayct + nd
       close(99961)
       if (ifull.eq.1) close(99924)
 
-      call system('cp ./CARAIB_couplage/results/Belgium/* 
-     . /climato_tmp1/tdethinne/res_car/')
+    !   call system('cp ./CARAIB_couplage/results/Belgium/* 
+    !  . /climato_tmp1/tdethinne/res_car/')
       
       end subroutine caraib
\ No newline at end of file