Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/sponge.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/sponge.f90 (modified) (1 diff)

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

@@ -29 +29 @@
     tau_sponge = 1.e-4
     CALL getin("tau_sponge",tau_sponge)
-    PRINT*,'tau_sponge = ',tau_sponge
+    IF (is_mpi_master .AND. omp_master) PRINT*,'tau_sponge = ',tau_sponge
 
     iflag_sponge = 0
     CALL getin("iflag_sponge",iflag_sponge)
-    PRINT*,'iflag_sponge = ',iflag_sponge
+    IF (is_mpi_master .AND. omp_master) PRINT*,'iflag_sponge = ',iflag_sponge
     
     mode_sponge = 1
     CALL getin("mode_sponge",mode_sponge)
-    PRINT*,'mode_sponge = ',mode_sponge
+    IF (is_mpi_master .AND. omp_master) PRINT*,'mode_sponge = ',mode_sponge
 
     IF (iflag_sponge == 0) THEN
-      PRINT*,'init_sponge: no sponge'
+      IF (is_mpi_master .AND. omp_master) PRINT*,'init_sponge: no sponge'
       RETURN
     ENDIF