Changeset 3812 for trunk/LMDZ.COMMON

Timestamp:

Jun 24, 2025, 5:29:51 PM (12 days ago)

Author:

afalco

Message:

Less error messages in parallel.
AF

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F

@@ -31 +31 @@
       character(len=*), intent(in):: message
 
-      write(lunout,*) 'in abort_gcm'
+      if (MPI_rank .eq. 0) write(lunout,*) 'in abort_gcm'
 #ifdef CPP_IOIPSL
 c$OMP MASTER