update table size to be more flexible

couplage/MAR/var2d_mod.f90

 module var2d
     use mardim
     use nspc_mod
+    use parameter_mod
     implicit none
 
     ! xdgpp_2d: GPP from CARAIB
@@ -11,14 +12,14 @@ module var2d
     real, save :: albsmth_2d(mx, my)
     real, save :: albsvmth_2d(mx, my)
     real, save :: albvmth_2d(mx, my)
-    real, save :: ybiombg_2d(mx, my,29)
+    real, save :: ybiombg_2d(mx, my,nplant)
     real, save :: xdbiom_2d(mx, my)
     real, save :: ysoilr_2d(mx, my,5)
-    real, save ::  ybiomf_2d(mx,my,29)
+    real, save ::  ybiomf_2d(mx,my,nplant)
     real, save :: drnmth_2d(mx,my)
-    real, save :: ybiomag_2d(mx,my,29)
+    real, save :: ybiomag_2d(mx,my,nplant)
     real, save :: emi_burn_lit_2d(mx,my)
-    real, save :: xemifire_2d(mx,my,29)
+    real, save :: xemifire_2d(mx,my,nplant)
     real, save :: xdemifire_2d(mx,my)
     real, save :: eintmth_2d(mx,my)
     real, save :: emimth_2d(mx,my)
@@ -27,38 +28,38 @@ module var2d
     real, save :: etrmth_2d(mx,my)
     real, save :: esomth_2d(mx,my)
     real, save :: frac_burn_2d(mx,my)
-    real, save :: Fgdd5_2d(mx,my,29)
+    real, save :: Fgdd5_2d(mx,my,nplant)
     real, save :: fgsmth_2d(mx,my)
     real, save :: firdmth_2d(mx,my)
-    real, save :: frac_2d(mx,my,29)
-    real, save :: frc_2d(mx,my,29)
-    real, save :: yfractf_2d(mx,my,29)
+    real, save :: frac_2d(mx,my,nplant)
+    real, save :: frc_2d(mx,my,nplant)
+    real, save :: yfractf_2d(mx,my,nplant)
     real, save :: fsnmth_2d(mx,my)
     real, save :: solmth_2d(mx,my)
-    real, save :: FTmmin_2d(mx,my,29)
-    real, save :: ftmin_2d(mx,my,29)
-    real, save :: ftot_2d(mx,my,29)
-    real, save :: fwat_2d(mx,my,29)
-    real, save :: Fwatmin_2d(mx,my,29)
-    real, save :: xgpp_2d(mx,my,29)
+    real, save :: FTmmin_2d(mx,my,nplant)
+    real, save :: ftmin_2d(mx,my,nplant)
+    real, save :: ftot_2d(mx,my,nplant)
+    real, save :: fwat_2d(mx,my,nplant)
+    real, save :: Fwatmin_2d(mx,my,nplant)
+    real, save :: xgpp_2d(mx,my,nplant)
     real, save :: grfmth_2d(mx,my)
-    real, save :: ycharvest_2d(mx,my,29)
+    real, save :: ycharvest_2d(mx,my,nplant)
     real, save :: xdcharvest_2d(mx,my)
     real, save :: tlamth_2d(mx,my)
-    real, save :: xlai_2d(mx,my,29)
+    real, save :: xlai_2d(mx,my,nplant)
     real, save :: xmlai_2d(mx,my)
-    real, save :: maturity_2d(mx,my,29)
+    real, save :: maturity_2d(mx,my,nplant)
     real, save :: xdnbp_2d(mx,my)
     real, save :: xdnep_2d(mx,my)
-    real, save :: xnpp_2d(mx,my,29)
+    real, save :: xnpp_2d(mx,my,nplant)
     real, save :: xdnpp_2d(mx,my)
     real, save :: petmth_2d(mx,my)
     real, save :: Pf_2d(mx,my)
     real, save :: xdra_2d(mx,my)
-    real, save :: xra_2d(mx,my,29)
+    real, save :: xra_2d(mx,my,nplant)
     real, save :: rblmth_2d(mx,my)
     real, save :: xdrh_2d(mx,my)
-    real, save :: R_min_2d(mx,my,29)
+    real, save :: R_min_2d(mx,my,nplant)
     real, save :: rnmth_2d(mx,my)
     real, save :: rtrmth_2d(mx,my)
     real, save :: runmth_2d(mx,my)
@@ -71,12 +72,12 @@ module var2d
     real, save :: swmth_2d(mx,my)
     real, save :: swmmmth_2d(mx,my)
     real, save :: tsmth_2d(mx,my)
-    real, save :: xlai_min_2d(mx,my,29)
-    real, save :: xlai_max_2d(mx,my,29)
+    real, save :: xlai_min_2d(mx,my,nplant)
+    real, save :: xlai_max_2d(mx,my,nplant)
     real, save :: xhmth_2d(mx,my)
     real, save :: xlemth_2d(mx,my)
-    real, save :: fnat_2d(mx,my,29)
-    real, save :: yield_2d(mx,my,29)
+    real, save :: fnat_2d(mx,my,nplant)
+    real, save :: yield_2d(mx,my,nplant)
     real, save :: z0mth_2d(mx,my)
     real, save :: fsi_2d(mx,my)
     real, save :: fci_2d(mx,my)