Index: trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90	(revision 708)
+++ trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90	(revision 709)
@@ -209,8 +209,8 @@
                                 ! very well with a sub-timestep of 10.
          IF (firstcall) THEN
+            r_aspect_thermals=1.  ! same value is OK for GCM and mesoscale
 #ifdef MESOSCALE
             !! valid for timesteps < 200s
             nsplit_thermals=4
-            r_aspect_thermals=0.7
 #else
             IF ((ptimestep .le. 3699.*24./96.) .and. (iradia .eq. 1)) THEN
@@ -219,5 +219,4 @@
                nsplit_thermals=35
             ENDIF
-            r_aspect_thermals=1.
 #endif
             call getin("nsplit_thermals",nsplit_thermals)