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

Timestamp:

Nov 8, 2024, 10:57:14 AM (2 weeks ago)

Author:

afalco

Message:

Pluto: print only on master process.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/surfini.F90 (modified) (3 diffs)

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

@@ -7 +7 @@
       use radinc_h, only : L_NSPECTV
       use callkeys_mod, only : albedosnow, albedon2ice
+      use mod_phys_lmdz_para, only : is_master
 
       IMPLICIT NONE
@@ -51 +52 @@
       call planetwide_minval(albedo_bareground,min_albedo)
       call planetwide_maxval(albedo_bareground,max_albedo)
-      write(*,*) 'surfini: minimum bare ground albedo',min_albedo
-      write(*,*) 'surfini: maximum bare ground albedo',max_albedo
+if (is_master)       write(*,*) 'surfini: minimum bare ground albedo',min_albedo
+      if (is_master) write(*,*) 'surfini: maximum bare ground albedo',max_albedo
 
 
@@ -65 +66 @@
          ENDDO
       else
-         write(*,*) "surfini: No N2 ice tracer on surface  ..."
-         write(*,*) "         and therefore no albedo change."
+         if (is_master) write(*,*) "surfini: No N2 ice tracer on surface  ..."
+         if (is_master) write(*,*) "         and therefore no albedo change."
       endif
       call planetwide_minval(albedo,min_albedo)
       call planetwide_maxval(albedo,max_albedo)
-      write(*,*) 'surfini: minimum corrected initial albedo',min_albedo
-      write(*,*) 'surfini: maximum corrected initial albedo',max_albedo
+      if (is_master) write(*,*) 'surfini: minimum corrected initial albedo',min_albedo
+      if (is_master) write(*,*) 'surfini: maximum corrected initial albedo',max_albedo