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

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

@@ -5 +5 @@
       use comgeomfi_h, only: lati
       use planetwide_mod, only: planetwide_maxval, planetwide_minval
+      use mod_phys_lmdz_para, only : is_master
 
       IMPLICIT NONE
@@ -36 +37 @@
       call planetwide_minval(albedodat,min_albedo)
       call planetwide_maxval(albedodat,max_albedo)
+      if (is_master) then
       write(*,*) 'surfini: minimum corrected albedo',min_albedo
       write(*,*) 'surfini: maximum corrected albedo',max_albedo
+      end if
 
       if (igcm_co2_ice.ne.0) then
@@ -52 +55 @@
         ENDDO ! of DO ig=1,ngrid     
       else
+        if (is_master) then
         write(*,*) "surfini: No CO2 ice tracer on surface  ..."
         write(*,*) "         and therefore no albedo change."
+        end if
       endif
 
       call planetwide_minval(psolaralb,min_albedo)
       call planetwide_maxval(psolaralb,max_albedo)
+      if (is_master) then
       write(*,*) 'surfini: minimum corrected albedo',min_albedo
       write(*,*) 'surfini: maximum corrected albedo',max_albedo
+      end if
 
       END