Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/setspv.F90

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/setspv.F90 (modified) (7 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/setspv.F90

@@ -27 +27 @@
                              STELLARF,TAURAY
       use datafile_mod, only: datadir
+      use mod_phys_lmdz_para, only : is_master
 
       implicit none
@@ -82 +83 @@
       close(131)
 
-      write(*,*) 'setspv: L_NSPECTV = ',L_NSPECTV, 'in the model '
-      write(*,*) '        there are   ',nb, 'entries in ',TRIM(file_path)
+      if (is_master) write(*,*) 'setspv: L_NSPECTV = ',L_NSPECTV, 'in the model '
+      if (is_master) write(*,*) '        there are   ',nb, 'entries in ',TRIM(file_path)
       if(nb.ne.L_NSPECTV) then
          write(*,*) 'MISMATCH !! I stop here'
@@ -102 +103 @@
 !$OMP BARRIER
 
+      if (is_master) then
       print*,'setspv: VI band limits:'
       do M=1,L_NSPECTV+1
@@ -107 +109 @@
       end do
       print*,' '
+      end if
 
 !     Set up mean wavenumbers and wavenumber deltas.  Units of 
@@ -123 +126 @@
 !     Set up stellar spectrum
 
-      write(*,*)'setspv: Interpolating stellar spectrum from the hires data...'
+      if (is_master) write(*,*)'setspv: Interpolating stellar spectrum from the hires data...'
       call ave_stelspec(STELLAR)
 
@@ -132 +135 @@
          sum         = sum+STELLARF(N)
       end do
-      write(6,'("setspv: Stellar flux at 1 AU = ",f7.2," W m-2")') sum
-      print*,' '
+      if (is_master) write(6,'("setspv: Stellar flux at 1 AU = ",f7.2," W m-2")') sum
+      if (is_master) print*,' '
 
 
@@ -144 +147 @@
          call calc_rayleigh
       else
-         print*,'setspv: No Rayleigh scattering, check for NaN in output!'
+         if (is_master) print*,'setspv: No Rayleigh scattering, check for NaN in output!'
          do N=1,L_NSPECTV
             TAURAY(N) = 1E-16