Index: trunk/LMDZ.MARS/libf/aeronomars/moldiff_MPF.F90
===================================================================
--- trunk/LMDZ.MARS/libf/aeronomars/moldiff_MPF.F90	(revision 4020)
+++ trunk/LMDZ.MARS/libf/aeronomars/moldiff_MPF.F90	(revision 4021)
@@ -13,5 +13,7 @@
 use tracer_mod, only: noms, mmol
 use geometry_mod, only: cell_area
+#ifndef MESOSCALE
 use planetwide_mod, only: planetwide_sumval
+#endif
 USE mod_phys_lmdz_para, only: is_master,bcast
 use moldiffcoeff_red_mod, only: moldiffcoeff_red
@@ -720,7 +722,11 @@
        enddo  ! ig loop		
 !	print*,'Escape flux H, H2,D (s-1)',PhiEscH,PhiEscH2,PhiEscD
+#ifndef MESOSCALE
        if (i_h.ne.1000) call planetwide_sumval(PhiauxH,PhiEscH)
        if (i_h2.ne.1000) call planetwide_sumval(PhiauxH2,PhiEscH2)
        if (i_d.ne.1000) call planetwide_sumval(PhiauxD,PhiEscD)
+#else
+       print*,"no planetwide in MESOSCALE"
+#endif
 !       print*,'Escape flux H, H2,D (s-1)',PhiEscH,PhiEscH2,PhiEscD