Update the mod to include the changes

couplage/CARAIB/ctrl/caraib_01_Iv_2020_Belgium_coupling.dat

@@ -17,7 +17,7 @@ nyrprt,nstprt      : 0  0
 iread,iczon        : 0  1
 idaily_in,idaily_ou: 1  1
 idtem,isol         : 1  1
-pixel number       : 10800                         
+pixel number       : 10800 0                        
 igtyp,declg,declat : 0   0.06300   0.02000
 prec_co            : 3.e-4
 ipar,exc,obl,xlsper: 0 0.016724  23.447  282.16
@@ -56,7 +56,7 @@ migration rate     :0 /-------- no file for Heterogeneity_40.dat
 species refugia    :0 /-------- no file for Fagus_pa_10k.txt
 path for generator :/raid/umccb/francois/gene/
 PFT alb zzra t1 t2 :./CARAIB_couplage/plantparam/species_ibm.dat
-PFT tolerances     :./CARAIB_couplage/plantparam/species_tol_t6.dat
+PFT tolerances     :./CARAIB_couplage/plantparam/species_tol_t6_TRY2
 PFT parameters     :./CARAIB_couplage/plantparam/species_par.dat
 PFT age class para :./CARAIB_couplage/plantparam/species_clas.dat
 PFT C:N of veget   :./CARAIB_couplage/plantparam/species_csurn.dat

couplage/CARAIB/ver01_Iv_couplage/mod/c3cst_mod.f90

@@ -15,5 +15,7 @@ real, save :: rdsurvc0
 real, save :: rdsurvc
 real, save :: transfw
 real, save :: transfo 
+real, save :: g1l(nplant)
+real, save :: d0l(nplant) 
 
 endmodule c3cst_mod

couplage/CARAIB/ver01_Iv_couplage/mod/cte_mod.f90

@@ -35,6 +35,11 @@ integer, save :: jdwnCO2
 integer, save :: jclonly
 integer, save :: icvar_rd
 integer, save :: coupling
+integer, save :: i_bwb
+integer, save :: i_fs
+integer, save :: jdir_in
+integer, save :: ngtest
+integer, save :: igtest(10)  
 
 endmodule cte_mod
             
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/ext_con_mod.f90

@@ -13,6 +13,7 @@ real, save :: fsun0(ndy,nh2)
 real, save :: qsatmb(ndy,nh2)
 real, save :: rae(nplant,ndy)
 real, save :: rbw(nplant,ndy)
+real, save :: dsat(ndy,nh2)
 
 endmodule ext_con_mod
                   
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/files_car_mod.f90

@@ -9,6 +9,7 @@ character(len=120), save :: fileRmin
 character(len=120), save :: filelaimin
 character(len=120), save :: filegpp
 character(len=120), save :: fileCveg
+character(len=120), save :: fileCvegm
 character(len=120), save :: fileCsoil
 character(len=120), save :: filefrcC13
 character(len=120), save :: filelaimoy

couplage/CARAIB/ver01_Iv_couplage/mod/files_ext_mod.f90

@@ -6,10 +6,12 @@ implicit none
 
 integer, save :: kextin
 integer, save :: kextout
+integer, save :: kextdiri
 
 character(len=120), save :: extin
 character(len=120), save :: extout
 character(len=120), save :: filexti
+character(len=120), save :: filediri
 character(len=16), save :: filexto
 character(len=16), save :: filextlu
 

couplage/CARAIB/ver01_Iv_couplage/mod/iprt_mod.f90

@@ -53,6 +53,7 @@ integer, save :: iprt_faparm
 integer, save :: iprt_laimin
 integer, save :: iprt_gpp
 integer, save :: iprt_Cveg
+integer, save :: iprt_Cvegm
 integer, save :: iprt_Csoil
 integer, save :: iprt_frcC13
 integer, save :: iprt_laimoy

couplage/CARAIB/ver01_Iv_couplage/mod/management_mod.f90

@@ -4,15 +4,15 @@ use parameter_mod
 
 implicit none
 
-real, save :: cleft_mg(npool,ndy)
+real, save :: cleft_mg(nplant,npool,ndy)
 real, save :: fcut
 real, save :: ycharvest(nplant)
 real, save :: charvest(nplant,npool,ndy)
 
 integer, save :: iday_mg(ndy)
 integer, save :: imanag
-integer, save :: mg_mode
-integer, save :: mg_days
+integer, save :: mg_mode(nplant)
+integer, save :: mg_days(nplant)
 integer, save :: icut
 integer, save :: ict
 

couplage/CARAIB/ver01_Iv_couplage/mod/monres_mod.f90

@@ -16,5 +16,6 @@ real, save :: xmemifire(nm)
 real, save :: xmcharvest(nm)
 real, save :: xmemiblit(nm)
 real, save :: xmnbp(nm)
+real, save :: zmbiom(nplant,nm)
 
 endmodule monres_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/tresh_mod.f90

@@ -12,5 +12,6 @@ real, save :: ttreshi2(nplant)
 real, save :: ttresha2(nplant)
 real, save :: wattresh2(nplant)
 real, save :: xpar_tresh2(nplant)
+real, save :: watsup(nplant)
 
 endmodule tresh_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/xvalues_mod.f90

@@ -11,6 +11,7 @@ real, save :: xfract(nplant,ndy)
 real, save :: xlai(nplant,ndy)
 real, save :: xra(nplant,ndy)
 real, save :: xemifire(nplant,ndy)
-real, save :: xcharvest(nplant,ndy)
+real, save :: xcharvest(nplant,ndy) 
+real, save :: xbiom(nplant,ndy)
 
 endmodule xvalues_mod
\ No newline at end of file