Changeset 318 for codes/icosagcm/branches

Timestamp:

01/16/15 15:05:23 (9 years ago)

Author:

ymipsl

Message:

Less output duringg the grid optimization phase

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90 (modified) (2 diffs)

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

@@ -192 +192 @@
   USE vector
   USE getin_mod
+  USE mpipara
   IMPLICIT NONE
     INTEGER :: nb_it=0
@@ -274 +275 @@
 
       IF (check) THEN
-        PRINT *,"it = ",it,"  diff centroid circumcenter ",sum
+!$OMP MASTER
+        IF (is_mpi_master) PRINT *,"it = ",it,"  diff centroid circumcenter ",sum
+!$OMP END MASTER
       ENDIF