Changeset 1930 for LMDZ5/trunk/libf/dyn3d/dynredem.F

Timestamp:

Jan 17, 2014, 5:45:09 PM (11 years ago)

Author:

lguez

Message:

abort, dfloat and pause are not in the Fortran standard. Replaced
abort by abort_gcm and dfloat by dble. Note: I modified dyn3dpar files
that were identical to dyn3d modified files.

File:

• LMDZ5/trunk/libf/dyn3d/dynredem.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d/dynredem.F

@@ -133 +133 @@
      &                  //trim(fichnom)
          write(lunout,*)' ierr = ', ierr
-         CALL ABORT
+         CALL ABORT_GCM("DYNREDEM0", "", 1)
       ENDIF
 c
@@ -512 +512 @@
       IF (ierr .NE. NF_NOERR) THEN
          write(lunout,*)"dynredem1: Pb. d ouverture "//trim(fichnom)
-         CALL abort
+         call abort_gcm("dynredem1", "", 1)
       ENDIF