Changeset 3812

Timestamp:

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

Author:

afalco

Message:

Less error messages in parallel.
AF

Location:

trunk

Files:

• LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F (modified) (1 diff)
• LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (modified) (1 diff)
• LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (3 diffs)

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

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -371 +371 @@
      calllott=.false. ! default value
      call getin_p("calllott",calllott)
-     write(*,*)" calllott = ",calllott
+     if (is_master) write(*,*)trim(rname)//": calllott = ",calllott
 
      if (is_master) write(*,*)trim(rname)//&

trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

@@ -1155 +1155 @@
 ! II.3 Gravity wave and subgrid scale topography drag :
 !    -------------------------------------------------
-
       IF(calllott)THEN
         CALL calldrag_noro(ngrid,nlayer,ptimestep, &
@@ -2134 +2133 @@
             ENDIF ! of IF (grid_type==unstructured)
 
-            write(*,*)'PHYSIQ: writing restartfi at time =',ztime_restart
+            if (is_master) write(*,*)'PHYSIQ: writing restartfi at time =',ztime_restart
 
             call physdem1("restartfi.nc",nsoilmx,ngrid,nlayer,nq, &
@@ -2413 +2412 @@
 
       if (lastcall.and.is_omp_master) then
-        write(*,*) "physiq: call xios_context_finalize"
+        if (is_master) write(*,*) "physiq: call xios_context_finalize"
         call xios_context_finalize
       endif