Index: LMDZ6/trunk/libf/dyn3d/bilan_dyn.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/bilan_dyn.F	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/bilan_dyn.F	(revision 4470)
@@ -185,5 +185,5 @@
            WRITE(lunout,*)'dt_app=',dt_app
            WRITE(lunout,*)'dt_cum=',dt_cum
-           stop
+           call abort_gcm('bilan_dyn','stopped',1)
         endif
 
Index: LMDZ6/trunk/libf/dyn3d/conf_gcm.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3d/conf_gcm.F90	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/conf_gcm.F90	(revision 4470)
@@ -415,5 +415,5 @@
         write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
              ' est differente de celle lue sur le fichier  start '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ENDIF
 
@@ -429,5 +429,5 @@
         write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
              'run.def est differente de celle lue sur le fichier  start '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ENDIF
 
@@ -443,5 +443,5 @@
         write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
              'run.def est differente de celle lue sur le fichier  start '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ENDIF
 
@@ -449,5 +449,5 @@
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ELSE
         alphax = 1. - 1./ grossismx
@@ -457,5 +457,5 @@
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ELSE
         alphay = 1. - 1./ grossismy
@@ -479,5 +479,5 @@
            write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &
                 'F alors  qu il est  T  sur  run.def  ***'
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ELSE
@@ -486,5 +486,5 @@
            write(lunout,*)' ***  fxyhypb lu sur le fichier start est ', &
                 'T alors  qu il est  F  sur  run.def  ****  '
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ENDIF
@@ -502,5 +502,5 @@
            write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ENDIF
@@ -518,5 +518,5 @@
            write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ENDIF
@@ -533,5 +533,5 @@
            write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ENDIF
@@ -548,5 +548,5 @@
            write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
-           STOP
+           CALL abort_gcm("conf_gcm","stopped",1)
         ENDIF
      ENDIF
@@ -569,5 +569,5 @@
               write(lunout,*)' *** ysinus lu sur le fichier start est F', &
                    ' alors  qu il est  T  sur  run.def  ***'
-              STOP
+              CALL abort_gcm("conf_gcm","stopped",1)
            ENDIF
         ELSE
@@ -576,5 +576,5 @@
               write(lunout,*)' *** ysinus lu sur le fichier start est T', &
                    ' alors  qu il est  F  sur  run.def  ****  '
-              STOP
+              CALL abort_gcm("conf_gcm","stopped",1)
            ENDIF
         ENDIF
@@ -701,5 +701,5 @@
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ELSE
         alphax = 1. - 1./ grossismx
@@ -708,5 +708,5 @@
      IF( grossismy.LT.1. )  THEN
         write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
-        STOP
+        CALL abort_gcm("conf_gcm","stopped",1)
      ELSE
         alphay = 1. - 1./ grossismy
Index: LMDZ6/trunk/libf/dyn3d/groupe.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/groupe.F	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/groupe.F	(revision 4470)
@@ -51,5 +51,6 @@
       if (firstcall) then
          if (groupe_ok) then
-           if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre de point'
+            if(mod(iim,2**ngroup).ne.0)         
+     &        CALL abort_gcm('groupe','probleme du nombre de point',1)
          endif
          firstcall=.false.
Index: LMDZ6/trunk/libf/dyn3d/guide_mod.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3d/guide_mod.F90	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/guide_mod.F90	(revision 4470)
@@ -359,4 +359,6 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
+    INCLUDE "iniprint.h"
+
 
     ! Variables entree
@@ -382,4 +384,6 @@
     INTEGER       :: l
     CHARACTER(LEN=20) :: modname="guide_main"
+    CHARACTER (len = 80)   :: abort_message
+
 
 !-----------------------------------------------------------------------
@@ -447,7 +451,8 @@
       IF (reste.EQ.0.) THEN
           IF (itau_test.EQ.itau) THEN
-            write(*,*)trim(modname)//' second pass in advreel at itau=',&
+            write(lunout,*)trim(modname)//' second pass in advreel at itau=',&
             itau
-            stop
+              abort_message='stopped'
+              CALL abort_gcm(modname,abort_message,1) 
           ELSE
               IF (guide_v) vnat1=vnat2
@@ -942,4 +947,5 @@
     integer i,j,ilon,ilat
     character(len=20),parameter :: modname="tau2alpha"
+    CHARACTER (len = 80)   :: abort_message
 
 
@@ -1038,5 +1044,6 @@
               if (gamma.lt.1.e-5) then
                 write(*,*)trim(modname)//' gamma =',gamma,'<1e-5'
-                stop
+                abort_message='stopped'
+                CALL abort_gcm(modname,abort_message,1)
               endif
               gamma=log(0.5)/log(gamma)
Index: LMDZ6/trunk/libf/dyn3d/vlsplt.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/vlsplt.F	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/vlsplt.F	(revision 4470)
@@ -184,6 +184,4 @@
             DO ij=iip2,ip1jm-1
                dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
-c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
-c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
             ENDDO
             DO ij=iip1+iip1,ip1jm,iip1
@@ -310,5 +308,4 @@
       ENDDO
 #endif
-c	stop
 
 c	go to 9999
Index: LMDZ6/trunk/libf/dyn3d/vlspltqs.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/vlspltqs.F	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/vlspltqs.F	(revision 4470)
@@ -248,6 +248,4 @@
             DO ij=iip2,ip1jm-1
                dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
-c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
-c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
             ENDDO
             DO ij=iip1+iip1,ip1jm,iip1
Index: LMDZ6/trunk/libf/dyn3d/wrgrads.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/wrgrads.F	(revision 4469)
+++ LMDZ6/trunk/libf/dyn3d/wrgrads.F	(revision 4470)
@@ -80,6 +80,5 @@
            print*,'nvar  ',nvar(if)
            print*,'vars ',(var(iv,if),iv=1,nvar(if))
-
-           stop
+           CALL abort_gcm("wrgrads","problem",1)
          endif
       endif