Changeset 3812 for trunk/LMDZ.PLUTO

Timestamp:

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

Author:

afalco

Message:

Less error messages in parallel.
AF

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• inifis_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (3 diffs)

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