Changeset 2160 for LMDZ5/branches/testing/libf/dyn3dmem/abort_gcm.F

Timestamp:

Nov 28, 2014, 4:36:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/abort_gcm.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/abort_gcm.F

@@ -23 +23 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character(len=*) modname
+      character(len=*), intent(in):: modname
       integer ierr, ierror_mpi
-      character(len=*) message
+      character(len=*), intent(in):: message
 
       write(lunout,*) 'in abort_gcm'
@@ -46 +46 @@
         write(lunout,*) 'Everything is cool'
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
 #ifdef CPP_MPI
 C$OMP CRITICAL (MPI_ABORT_GCM)