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

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

@@ -4 +4 @@
       use radinc_h, only: naerkind
       use aerosol_mod
+      use mod_phys_lmdz_para, only : is_master
 
       IMPLICIT NONE
@@ -26 +27 @@
          iaero_co2=ia
       endif
-      write(*,*) '--- CO2 aerosol = ', iaero_co2
+      if (is_master) write(*,*) '--- CO2 aerosol = ', iaero_co2
  
       if (aeroh2o) then
@@ -32 +33 @@
          iaero_h2o=ia
       endif
-      write(*,*) '--- H2O aerosol = ', iaero_h2o
+      if (is_master) write(*,*) '--- H2O aerosol = ', iaero_h2o
 
       if (dusttau.gt.0) then
@@ -38 +39 @@
          iaero_dust=ia
       endif
-      write(*,*) '--- Dust aerosol = ', iaero_dust
+      if (is_master) write(*,*) '--- Dust aerosol = ', iaero_dust
 
       if (aeroh2so4) then
@@ -44 +45 @@
          iaero_h2so4=ia
       endif
-      write(*,*) '--- H2SO4 aerosol = ', iaero_h2so4
+      if (is_master) write(*,*) '--- H2SO4 aerosol = ', iaero_h2so4
       
       if (aeroback2lay) then
@@ -50 +51 @@
          iaero_back2lay=ia
       endif
-      write(*,*) '--- Two-layer aerosol = ', iaero_back2lay
+      if (is_master) write(*,*) '--- Two-layer aerosol = ',
+     &           iaero_back2lay
 
-      write(*,*) '=== Number of aerosols= ', ia
+      if (is_master) write(*,*) '=== Number of aerosols= ', ia
       
 ! For the zero aerosol case, we currently make a dummy co2 aerosol which is zero everywhere.