Changeset 3504 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

Timestamp:

Nov 8, 2024, 10:57:14 AM (13 days ago)

Author:

afalco

Message:

Pluto: print only on master process.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (1 diff)

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

@@ -726 +726 @@
             ! at firstcall of callcorrk so we can output XspecIR, XspecVI
             ! when using Dynamico
-            print*, "physiq_mod: Correlated-k data base folder:",trim(datadir)
+            if (is_master) print*, "physiq_mod: Correlated-k data base folder:",trim(datadir)
             call getin_p("corrkdir",corrkdir)
-            print*,"corrkdir = ", corrkdir
+            if (is_master) print*,"corrkdir = ", corrkdir
             write (tmp1, '(i4)') L_NSPECTI
             write (tmp2, '(i4)') L_NSPECTV