Changeset 2249 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Mar 25, 2015, 7:17:55 PM (9 years ago)

Author:

lguez

Message:

abort_message was not defined.

File:

• LMDZ5/trunk/libf/dyn3d/guide_mod.F90 (modified) (7 diffs)

LMDZ5/trunk/libf/dyn3d/guide_mod.F90

@@ -109 +109 @@
     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 +156 @@
           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 +165 @@
                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 +173 @@
                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 +181 @@
                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 +189 @@
                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 +198 @@
     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)