add root biomass as a debuf variable

couplage/CARAIB/ver01_Iv_couplage/mod_fill_table.f

@@ -161,6 +161,7 @@
        !once a year
        ybiomag_2d(i,j,ip) = ybiomag(ip)
        ybiombg_2d(i,j,ip) = ybiombg(ip)
+       root_biomass_2d(i,j,ip) = root_biomass(ip,daynbr)
        ybiomf_2d(i,j,ip) = ybiomf(ip)
        Fgdd5_2d(i,j,ip) = Fgdd5(ip)
        frac_2d(i,j,ip) = frac(ip)

couplage/CARAIB/ver01_Iv_couplage/mod_write_res.f

@@ -226,6 +226,7 @@
       call UNwrite(ID__nc_CAR, 'ABRN',  1, mx, my, 1, area_burn_2d)
       call UNwrite(ID__nc_CAR, 'AET',   1, mx, my, 1, aetmth_2d)
       call UNwrite(ID__nc_CAR, 'AGB',   1, mx, my, PFT, ybiomag_2d)
+      call UNwrite(ID__nc_CAR, 'ROB',   1, mx, my, PFT, root_biomass_2d)
       call UNwrite(ID__nc_CAR, 'ALB',   1, mx, my, 1, albmth_2d)
       call UNwrite(ID__nc_CAR, 'ALBS',  1, mx, my, 1, albsmth_2d)
       call UNwrite(ID__nc_CAR, 'ALBV',  1, mx, my, 1, albsvmth_2d)      

couplage/CARvou.dat

@@ -13,6 +13,7 @@
     ABRN     x        y        -        time     m2          Area bruned
     AET      x        y        -        time     mm          Actual Evapotranspiration
     AGB      x        y        PFT      -        gC          Aboveground biomass
+    ROB      x        y        PFT      -        gC          Root biomass
     ALB      x        y        -        time     -           Average Albedo
     ALBS     x        y        -        time     -           Albedo of soil
     ALBV     x        y        -        time     -           Albedo of veg

couplage/MAR/var2d_mod.f90

@@ -13,6 +13,7 @@ module var2d
     real, save :: albsvmth_2d(mx, my)
     real, save :: albvmth_2d(mx, my)
     real, save :: ybiombg_2d(mx, my,nplant)
+    real, save :: root_biomass_2d(mx, my,nplant)
     real, save :: xdbiom_2d(mx, my)
     real, save :: ysoilr_2d(mx, my,5)
     real, save ::  ybiomf_2d(mx,my,nplant)