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

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

@@ -6 +6 @@
        USE comgeomfi_h
        USE tracer_h, only: noms,rho_co2,rho_ice
+       use mod_phys_lmdz_para, only : is_master
                   
        implicit none
@@ -86 +87 @@
       IF (firstcall) THEN
 
-        write(*,*) "Tracers found in aeropacity:"
+        if (is_master) write(*,*) "Tracers found in aeropacity:"
         do iq=1,nq
           tracername=noms(iq)
           if (tracername.eq."co2_ice") then
             i_co2ice=iq
-          write(*,*) "i_co2ice=",i_co2ice
+          if (is_master) write(*,*) "i_co2ice=",i_co2ice
 
           endif
           if (tracername.eq."h2o_ice") then
             i_h2oice=iq
-            write(*,*) "i_h2oice=",i_h2oice
+            if (is_master) write(*,*) "i_h2oice=",i_h2oice
           endif
         enddo
 
         if (noaero) then
-          print*, "No active aerosols found in aeropacity"
+          if (is_master) print*, "No active aerosols found in aeropacity"
         else
-          print*, "If you would like to use aerosols, make sure any old"
-          print*, "start files are updated in newstart using the option"
-          print*, "q=0"
-          write(*,*) "Active aerosols found in aeropacity:"
+          if (is_master) print*, "If you would like to use aerosols, make sure any old"
+          if (is_master) print*, "start files are updated in newstart using the option"
+          if (is_master) print*, "q=0"
+          if (is_master) write(*,*) "Active aerosols found in aeropacity:"
         endif
 
         if ((iaero_co2.ne.0).and.(.not.noaero)) then
-          print*, 'iaero_co2=  ',iaero_co2
+          if (is_master) print*, 'iaero_co2=  ',iaero_co2
         endif
         if (iaero_h2o.ne.0) then
-          print*,'iaero_h2o=  ',iaero_h2o    
+          if (is_master) print*,'iaero_h2o=  ',iaero_h2o    
         endif
         if (iaero_dust.ne.0) then
-          print*,'iaero_dust= ',iaero_dust
+          if (is_master) print*,'iaero_dust= ',iaero_dust
         endif
         if (iaero_h2so4.ne.0) then
-          print*,'iaero_h2so4= ',iaero_h2so4
+          if (is_master) print*,'iaero_h2so4= ',iaero_h2so4
         endif
         if (iaero_back2lay.ne.0) then
-          print*,'iaero_back2lay= ',iaero_back2lay
+          if (is_master) print*,'iaero_back2lay= ',iaero_back2lay
         endif