Index: trunk/LMDZ.MARS/libf/phymars/co2cloud.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/co2cloud.F90	(revision 2459)
+++ trunk/LMDZ.MARS/libf/phymars/co2cloud.F90	(revision 2460)
@@ -428,5 +428,9 @@
   do l = 1, nlay
     do ig = 1, ngrid
+#ifndef MESOSCALE
       masse(ig,l) = (pplev(ig,l) - pplev(ig,l+1) + (bp(l)-bp(l+1)) ) / g
+#else
+      masse(ig,l) = (pplev(ig,l) - pplev(ig,l+1)) / g
+#endif
       epaisseur(ig,l) = pzlev(ig,l+1) - pzlev(ig,l)
     end do