Index: trunk/LMDZ.MARS/libf/aeronomars/jthermcalc.F
===================================================================
--- trunk/LMDZ.MARS/libf/aeronomars/jthermcalc.F	(revision 2266)
+++ trunk/LMDZ.MARS/libf/aeronomars/jthermcalc.F	(revision 2270)
@@ -202,5 +202,5 @@
             write(*,*) " limup=",limup
 #ifndef MESOSCALE
-            call abort_gcm('jthermcalc','error',1)
+            call abort_physic('jthermcalc','error',1)
 #endif
           endif