Index: LMDZ6/trunk/libf/phylmd/YOMCST.h
===================================================================
--- LMDZ6/trunk/libf/phylmd/YOMCST.h	(revision 3393)
+++ LMDZ6/trunk/libf/phylmd/YOMCST.h	(revision 3394)
@@ -20,5 +20,5 @@
       REAL RSIGMA
 ! A1.4 Thermodynamic gas phase
-      REAL R,RMD,RMO3,RMCO2,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
+      REAL R,RMD,RMO3,RMCO2,RMC,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
       REAL RKAPPA,RETV
 ! A1.5,6 Thermodynamic liquid,solid phases
@@ -35,5 +35,5 @@
      &      ,RA    ,RG    ,R1SA                                         &
      &      ,RSIGMA                                                     &
-     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMV   ,RD    ,RV    ,RCPD      &
+     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMC, RMV   ,RD    ,RV    ,RCPD &
      &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV                           &
      &      ,RCW   ,RCS                                                 &
Index: LMDZ6/trunk/libf/phylmd/suphel.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/suphel.F90	(revision 3393)
+++ LMDZ6/trunk/libf/phylmd/suphel.F90	(revision 3394)
@@ -118,4 +118,5 @@
   rmo3 = 47.9942
   rmco2 = 44.011
+  rmc   = 12.0107
   rmv = 18.0153
   rd = 1000.*r/rmd
@@ -132,4 +133,5 @@
   WRITE (UNIT=6, FMT='('' Ozone   mass = '',e13.7)') rmo3
   WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmco2
+  WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmc
   WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
   WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd