From 55f5677ef50abe544075ffc416aa9958cce813e2 Mon Sep 17 00:00:00 2001
From: Dethinne Thomas <tdethinne@uliege.be>
Date: Mon, 2 Dec 2024 11:16:16 +0000
Subject: [PATCH] Update caraib_main_01_Iv_couplage.F
---
.../caraib_main_01_Iv_couplage.F | 15 ++++++++++++---
1 file changed, 12 insertions(+), 3 deletions(-)
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 8d51044..2a1182a 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
@@ -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
--
GitLab