Changeset 1939 for LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F

Timestamp:

Jan 21, 2014, 3:23:17 PM (10 years ago)

Author:

lguez

Message:

Same as revision 1930: replaced abort by abort_gcm.

Also replaced real*8 by real(kind=8) (was done way back in revision 1220 for
dyn3d/fxhyp.F but not dyn3dpar/fxhyp.F).

File:

• LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F

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