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

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F

@@ -19 +19 @@
       use assert_m, only: assert
       use sponge_mod_p, only: callsponge,mode_sponge,nsponge,tetasponge
+      use mod_phys_lmdz_para, only : is_master
       IMPLICIT NONE
 !-----------------------------------------------------------------------
@@ -952 +953 @@
 
 
+      if (is_master) then
       write(lunout,*)' #########################################'
       write(lunout,*)' Configuration des parametres lus via run.def '
@@ -1007 +1009 @@
        write(lunout,*)' moyzon_ch = ', moyzon_ch
       endif
+      end if !of if (is_master)
 
       RETURN