more flexibility again

couplage/CARAIB/ver01_Iv_couplage/mod_write_res.f

@@ -10,6 +10,8 @@
       use marcar
       use var2d
 
+      use nspc_mod
+
 
       IMPLICIT NONE
       INCLUDE 'NetCDF.inc'
@@ -41,7 +43,7 @@
       ! +...Number of real attributes given to all variables
 
       integer PFT, KPOOL
-      PARAMETER(PFT=29, KPOOL=5)
+      PARAMETER(PFT=npft, KPOOL=5)
       
       real VALdim(MXdim, 0:NdimNC_CAR)