Changeset 1930 for LMDZ5/trunk/libf/dyn3d/fyhyp.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/fyhyp.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/fyhyp.F

@@ -162 +162 @@
         WRITE(6,*)'Modifier les valeurs de  grossismy ,tauy ou dzoomy',
      , ' et relancer ! ***  '
-        CALL ABORT
+        CALL ABORT_GCM("FYHYP", "", 1)
 
        ENDIF