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

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

@@ -11 +11 @@
       use netcdf95, only: NF95_PUT_VAR
       use control_mod, only : planet_type
+      use mod_phys_lmdz_para, only : is_master
 
       IMPLICIT NONE
@@ -81 +82 @@
       !!!     .... while keeping everything OK for LMDZ EARTH
       if ((planet_type.eq."generic").or.(planet_type.eq."mars")) then
-          write(lunout,*) trim(modname),' : Planeto-like start file'
+          if (is_master) write(lunout,*) trim(modname),
+     &          ' : Planeto-like start file'
           start_file_type="planeto"
           idecal = 4
       else
-          write(lunout,*) trim(modname),' : Earth-like start file'
+          if (is_master) write(lunout,*) trim(modname),
+     &          ' : Earth-like start file'
           idecal = 5
       endif
@@ -573 +576 @@
       ierr = NF_CLOSE(nid) ! fermer le fichier
 
-      PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
-      PRINT*,'rad,omeg,g,cpp,kappa',
+      if (is_master) PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
+      if (is_master) PRINT*,'rad,omeg,g,cpp,kappa',
      ,        rad,omeg,g,cpp,kappa