Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/time.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/ICOSAGCM/src/time.f90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/time.f90

@@ -51 +51 @@
   USE getin_mod
   USE mpipara
+  USE omp_para, ONLY: omp_master
   IMPLICIT NONE
   REAL(rstd) :: run_length
@@ -74 +75 @@
     write_period=write_period/scale_factor
     itau_out=FLOOR(.5+write_period/dt)
-    IF (is_mpi_root) PRINT *, 'Output frequency (scaled) set to ',write_period, ' : itau_out = ',itau_out
+    IF (is_mpi_root .AND. omp_master) PRINT *, 'Output frequency (scaled) set to ',write_period, ' : itau_out = ',itau_out
     ENDIF 
 
@@ -86 +87 @@
     CALL getin('itau_physics',itau_physics)
 
-    IF (is_mpi_root)  THEN
+    IF (is_mpi_root .AND. omp_master)  THEN
        PRINT *, 'itaumax=',itaumax
        PRINT *, 'itau_adv=',itau_adv, 'itau_dissip=',itau_dissip, 'itau_physics=',itau_physics