Changeset 2100 for LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

Timestamp:

Jul 22, 2014, 6:33:56 PM (10 years ago)

Author:

lguez

Message:

Removed "on rentre dans guide_main" from guide_main in dyn3dpar, was
already commented out in the dyn3dmem version.

Keeping length of lines under 80 characters in physiq (for
readability). Removed wrong comments "ajout des tendances de la
diffusion turbulente". Replaced "con" by "convection" as an argument
of add_phys_tend.

File:

• LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

@@ -27 +27 @@
 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'
@@ -53 +53 @@
         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)