Index: /LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F
===================================================================
--- /LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F	(revision 4455)
+++ /LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F	(revision 4456)
@@ -22,5 +22,8 @@
 c   -------
 
-      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
+      IF (ngrid.NE.2+(jm-2)*(im-1)) then
+         print *, 'probleme de dim'
+         stop 1
+      end if
 c   traitement des poles
       CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
Index: /LMDZ6/trunk/libf/filtrez/mod_fft_wrapper.F90
===================================================================
--- /LMDZ6/trunk/libf/filtrez/mod_fft_wrapper.F90	(revision 4455)
+++ /LMDZ6/trunk/libf/filtrez/mod_fft_wrapper.F90	(revision 4456)
@@ -11,5 +11,6 @@
     INTEGER :: nb
     
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
   END SUBROUTINE Init_fft
   
@@ -21,5 +22,6 @@
     COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
     
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
     
   END SUBROUTINE fft_forward
@@ -31,5 +33,6 @@
     COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
   
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
     
   END SUBROUTINE fft_backward