Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/tabfi.F

Timestamp:

12/02/14 19:21:00 (10 years ago)

Author:

milmd

Message:

Less output messages are written. On 20000 cores it is better. In LMDZ, only master of MPI and OpenMP can write.

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/tabfi.F (modified) (6 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/tabfi.F

@@ -53 +53 @@
       use planete_mod, only: year_day, periastr, apoastr, peri_day,
      &                       obliquit, z0, lmixmin, emin_turb
+      use mod_phys_lmdz_para, only : is_master
 
       implicit none
@@ -82 +83 @@
       LOGICAL :: found
       
-      write(*,*)"tabfi: nid=",nid," tab0=",tab0," Lmodif=",Lmodif
+      if (is_master) write(*,*)"tabfi: nid=",nid," tab0=",tab0,
+     &          " Lmodif=",Lmodif
 
       IF (nid.eq.0) then
@@ -90 +92 @@
         ! Ehouarn: Default Saturn values:
         tab_cntrl(:)=0
-        write(*,*) "Using default Saturn values..."
+        if (is_master) write(*,*) "Using default Saturn values..."
         ! these should be read in a def file I guess...
         lmax=0 ! not used anyways
@@ -164 +166 @@
          call abort
        else
-         write(*,*)'tabfi: tab_cntrl',tab_cntrl
+         if (is_master) write(*,*)'tabfi: tab_cntrl',tab_cntrl
        endif
 c
@@ -227 +229 @@
    5  FORMAT(a20,f12.2,f12.2)
  
+      if (is_master) then
       write(*,*) '*****************************************************'
       write(*,*) 'Reading tab_cntrl when calling tabfi before changes'
@@ -265 +268 @@
       write(*,*)
       write(*,*) 'Lmodif in tabfi!!!!!!!',Lmodif
+      end if !of if (is_master)
 
 c-----------------------------------------------------------------------