Changeset 1931 for LMDZ5/trunk/libf/phylmd/soil.F90

Timestamp:

Jan 17, 2014, 6:49:48 PM (11 years ago)

Author:

lguez

Message:

abort and exit are not in the Fortran standard. Replaced them by abort_gcm.

File:

• LMDZ5/trunk/libf/phylmd/soil.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/soil.F90

@@ -178 +178 @@
   ELSE
      WRITE(lunout,*) "valeur d indice non prevue", indice
-     CALL abort
+     call abort_gcm("soil", "", 1)
   ENDIF