Index: LMDZ5/trunk/libf/dyn3d/guide_mod.F90
===================================================================
--- LMDZ5/trunk/libf/dyn3d/guide_mod.F90	(revision 2248)
+++ LMDZ5/trunk/libf/dyn3d/guide_mod.F90	(revision 2249)
@@ -109,5 +109,5 @@
     CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie')
     CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim')
-    
+
 ! Sauvegarde du for�age
     CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
@@ -156,6 +156,6 @@
           rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
           if (rcod.NE.NF_NOERR) THEN
-             print *,'Guide: probleme -> pas de fichier apbp.nc'
-             CALL abort_gcm(modname,abort_message,1)
+             CALL abort_gcm(modname, &
+                  'Guide: probleme -> pas de fichier apbp.nc',1)
           endif
        endif
@@ -165,6 +165,6 @@
                rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier u.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier u.nc',1)
                endif
            endif
@@ -173,6 +173,6 @@
                rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier v.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier v.nc',1)
                endif
            endif
@@ -181,6 +181,6 @@
                rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier T.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier T.nc',1)
                endif
            endif
@@ -189,6 +189,6 @@
                rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier hur.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier hur.nc',1)
                endif
            endif
@@ -198,6 +198,5 @@
     IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
     IF (error.NE.NF_NOERR) THEN
-        print *,'Guide: probleme lecture niveaux pression'
-        CALL abort_gcm(modname,abort_message,1)
+        CALL abort_gcm(modname,'Guide: probleme lecture niveaux pression',1)
     ENDIF
     error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)