Index: trunk/LMDZ.MARS/libf/phymars/physiq_mod.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 4024)
+++ trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 4029)
@@ -744,5 +744,5 @@
          icount=1
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c        Initialize thermospheric parameters
 c        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -754,5 +754,5 @@
             call param_read_e107
          endif
-#endif
+!#endif
 
 c        Initialize rnew cpnew and mmean as constant
@@ -872,5 +872,5 @@
       ps(:) = pplev(:,1)
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c-----------------------------------------------------------------------
 c    1.2.1 Compute mean mass, cp, and R
@@ -883,5 +883,5 @@
      &                       zplay,pt,pdt,pq,pdq,ptimestep)
       endif
-#endif
+!#endif
 
 c     Compute geopotential at interlayers
@@ -2130,5 +2130,5 @@
 c     ------------------
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c        --------------
 c        photochemistry :
@@ -2200,8 +2200,8 @@
 
          END IF  ! of IF (photochem)
-#endif
-
-
-#ifndef MESOSCALE
+!#endif
+
+
+!#ifndef MESOSCALE
 c-----------------------------------------------------------------------
 c   10. THERMOSPHERE CALCULATION
@@ -2228,5 +2228,5 @@
 
       endif ! of if (callthermos)
-#endif
+!#endif
 
 c-----------------------------------------------------------------------