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

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

@@ -32 +32 @@
       use sfluxi_pluto_mod, only: sfluxi_pluto
       use sfluxv_pluto_mod, only: sfluxv_pluto
+      use mod_phys_lmdz_para, only : is_master
 
 
@@ -222 +223 @@
       if(firstcall) then
 
-         print*, "callcorrk: Correlated-k data folder:",trim(datadir)
+         if (is_master) print*, "callcorrk: Correlated-k data folder:",trim(datadir)
          call getin("corrkdir",corrkdir)
          print*, "corrkdir = ",corrkdir
@@ -230 +231 @@
          banddir=trim(adjustl(corrkdir))//'/'//trim(adjustl(banddir))
 
-         print*,'starting sugas'
+         if (is_master) print*,'starting sugas'
          call sugas_corrk       ! set up gaseous absorption properties
-         print*,'starting setspi'
+         if (is_master) print*,'starting setspi'
          call setspi            ! basic infrared properties
-         print*,'starting setspv'
+         if (is_master) print*,'starting setspv'
          call setspv            ! basic visible properties
 
@@ -259 +260 @@
               call haze_reffrad_fix(ngrid,nlayer,zzlay, &
                   reffrad,nueffrad)
-              print*, 'haze_radproffix=T : fixed profile for haze rad'
+              if (is_master) print*, 'haze_radproffix=T : fixed profile for haze rad'
            else
-              print*,'reffrad haze:',reffrad(1,1,iaero_haze)
-              print*,'nueff haze',nueffrad(1,1,iaero_haze)
+              if (is_master) print*,'reffrad haze:',reffrad(1,1,iaero_haze)
+              if (is_master) print*,'nueff haze',nueffrad(1,1,iaero_haze)
            endif
          endif ! radiative haze