Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/interpolateH2He.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/interpolateH2He.F90 (modified) (3 diffs)

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

@@ -15 +15 @@
 
       use datafile_mod, only: datadir
+      use mod_phys_lmdz_para, only : is_master
 
       implicit none
@@ -68 +69 @@
 
       if(firstcall)then ! called by sugas_corrk only
-         print*,'----------------------------------------------------'
-         print*,'Initialising H2-He continuum from HITRAN database...'
+         if (is_master) print*,'----------------------------------------------------'
+         if (is_master) print*,'Initialising H2-He continuum from HITRAN database...'
 
 !     1.1 Open the ASCII files
@@ -108 +109 @@
 !$OMP BARRIER
 
+         if (is_master) then 
          print*,'interpolateH2He: At wavenumber ',wn,' cm^-1'
          print*,'   temperature                 ',temp,' K'
          print*,'   H2 partial pressure         ',presH2,' Pa'
          print*,'   and He partial pressure     ',presHe,' Pa'
+         end if
 
       endif