Index: trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F	(revision 1827)
+++ trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F	(revision 1828)
@@ -99,4 +99,5 @@
 !$OMP THREADPRIVATE(firstcall) 	!diagfi_def,n_nom_def,nom_def read in diagfi.def
       
+#ifndef MESOSCALE
 
 #ifdef CPP_PARA
@@ -583,3 +584,5 @@
       endif
 
+#endif
+! of #ifndef MESOSCALE
       end