Changeset 3504 for trunk/LMDZ.PLUTO/libf/phypluto/iniorbit.F

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/iniorbit.F (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/iniorbit.F

@@ -1 +1 @@
       SUBROUTINE iniorbit
      $     (papoastr,pperiastr,pyear_day,pperi_day,pobliq)
-      
+
       USE planete_mod, only: apoastr, periastr, year_day, obliquit,
      &                       peri_day, e_elips, p_elips, timeperi
       use comcstfi_mod, only: pi
+      use mod_phys_lmdz_para, only : is_master
       IMPLICIT NONE
 
@@ -32 +33 @@
       peri_day=pperi_day
 
-      PRINT*,'iniorbit: Periastron in AU  ',periastr
-      PRINT*,'iniorbit: Apoastron in AU  ',apoastr 
-      PRINT*,'iniorbit: Obliquity in degrees  :',obliquit
-
+      if (is_master) then
+            PRINT*,'iniorbit: Periastron in AU  ',periastr
+            PRINT*,'iniorbit: Apoastron in AU  ',apoastr
+            PRINT*,'iniorbit: Obliquity in degrees  :',obliquit
+      endif
 
       e_elips=(apoastr-periastr)/(periastr+apoastr)
       p_elips=0.5*(periastr+apoastr)*(1-e_elips*e_elips)
 
-      print*,'iniorbit: e_elips',e_elips
-      print*,'iniorbit: p_elips',p_elips
-
+      if (is_master) then
+            print*,'iniorbit: e_elips',e_elips
+            print*,'iniorbit: p_elips',p_elips
+      endif
 !-----------------------------------------------------------------------
 ! compute polar angle and distance to the Sun: