Changeset 1106 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/abort_gcm.F

Timestamp:

Feb 24, 2009, 3:46:23 PM (15 years ago)

Author:

lguez

Message:

"comconst.h", and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3d/abort_gcm.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/abort_gcm.F

@@ -19 +19 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character*(*) modname
+      character(len=*) modname
       integer ierr
-      character*(*) message
+      character(len=*) message
 
 !      write(lunout,*) 'in abort_gcm'