Changeset 3504 for trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_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/phyetat0_mod.F90 (modified) (12 diffs)

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

@@ -26 +26 @@
                      inquire_dimension, inquire_dimension_length
   use callkeys_mod, only: surfalbedo,surfemis, callsoil
+  use mod_phys_lmdz_para, only : is_master
   implicit none
 
@@ -100 +101 @@
 
   ! possibility to modify tab_cntrl in tabfi
-  write(*,*)
-  write(*,*) 'TABFI in phyeta0: Lmodif=',Lmodif," tab0=",tab0
+  if (is_master) write(*,*)
+  if (is_master) write(*,*) 'TABFI in phyeta0: Lmodif=',Lmodif," tab0=",tab0
   call tabfi (ngrid,nid_start,Lmodif,tab0,day_ini,lmax,p_rad, &
                    p_omeg,p_g,p_cpp,p_mugaz,p_daysec,time)
@@ -119 +120 @@
   phisfi(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: surface geopotential <phisfi> range:", &
+if (is_master) write(*,*) "phyetat0: surface geopotential <phisfi> range:", &
                minval(phisfi), maxval(phisfi)
 
@@ -132 +133 @@
   surfalbedo=0.5
   call getin_p("surfalbedo",surfalbedo)
-  print*,"surfalbedo",surfalbedo
+  if (is_master) print*,"surfalbedo",surfalbedo
   albedodat(:)=surfalbedo
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: Bare ground albedo <albedodat> range:", &
+if (is_master) write(*,*) "phyetat0: Bare ground albedo <albedodat> range:", &
              minval(albedodat), maxval(albedodat)
 
@@ -147 +148 @@
   zmea(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: <ZMEA> range:", &
+if (is_master) write(*,*) "phyetat0: <ZMEA> range:", &
              minval(zmea), maxval(zmea)
 
@@ -159 +160 @@
   zstd(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: <ZSTD> range:", &
+if (is_master) write(*,*) "phyetat0: <ZSTD> range:", &
              minval(zstd), maxval(zstd)
 
@@ -171 +172 @@
   zsig(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: <ZSIG> range:", &
+if (is_master) write(*,*) "phyetat0: <ZSIG> range:", &
              minval(zsig), maxval(zsig)
 
@@ -183 +184 @@
   zgam(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: <ZGAM> range:", &
+if (is_master) write(*,*) "phyetat0: <ZGAM> range:", &
              minval(zgam), maxval(zgam)
 
@@ -195 +196 @@
   zthe(:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: <ZTHE> range:", &
+if (is_master) write(*,*) "phyetat0: <ZTHE> range:", &
              minval(zthe), maxval(zthe)
 
@@ -207 +208 @@
   tsurf(:)=0. ! will be updated afterwards in physiq !
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: Surface temperature <tsurf> range:", &
+if (is_master) write(*,*) "phyetat0: Surface temperature <tsurf> range:", &
              minval(tsurf), maxval(tsurf)
 
@@ -220 +221 @@
   surfemis=1.0
   call getin_p("surfemis",surfemis)
-  print*,"surfemis",surfemis
+  if (is_master) print*,"surfemis",surfemis
   emis(:)=surfemis
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: Surface emissivity <emis> range:", &
+if (is_master) write(*,*) "phyetat0: Surface emissivity <emis> range:", &
              minval(emis), maxval(emis)
 
@@ -237 +238 @@
   q2(:,:)=0.
 endif ! of if (startphy_file)
-write(*,*) "phyetat0: PBL wind variance <q2> range:", &
+if (is_master) write(*,*) "phyetat0: PBL wind variance <q2> range:", &
              minval(q2), maxval(q2)