Changeset 699 for codes/icosagcm

Timestamp:

05/18/18 12:31:45 (6 years ago)

Author:

dubos

Message:

devel/unstructured : PRINT perf only if MPI master

Location:

codes/icosagcm/devel

Files:

• Python/src/unstructured.pyx (modified) (1 diff)
• src/unstructured/data_unstructured.F90 (modified) (2 diffs)

codes/icosagcm/devel/Python/src/unstructured.pyx

@@ -89 +89 @@
     c_int,'llm','nqdyn','primal_num','max_primal_deg',
     'dual_num','max_dual_deg','edge_num','max_trisk_deg',
-    'caldyn_thermo','caldyn_eta','nb_threads',
+    'caldyn_thermo','caldyn_eta','nb_threads','dynamico_mpi_rank',
     c_double,'elapsed',
     c_num, 'g', 'ptop', 'cpp', 'cppv',

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -34 +34 @@
   NUM2(:,:), ALLOCATABLE          :: Riv2, wee, ap,bp, mass_bl, mass_dak, mass_dbk
 
-  INTEGER(C_INT), BIND(C) :: comm_icosa
+  INTEGER(C_INT), BIND(C) :: comm_icosa, dynamico_mpi_rank=0
 
   INTEGER, PARAMETER :: id_dev1=1, id_dev2=2, &
@@ -73 +73 @@
     TIME :: total_spent
     !$OMP MASTER
-    total_spent=SUM(time_spent)
-    IF(total_spent>1.) THEN
-       PRINT *, '========================= Performance metrics ========================='
-       PRINT *, 'Total time spent in instrumented code (seconds) :', total_spent
-       PRINT *, 'Name, #calls, %time, microsec/call, MB/sec'    
-       DO id=1,nb_routines
-          IF(nb_calls(id)>0) PRINT *, id_name(id), nb_calls(id), INT(100.*time_spent(id)/total_spent), &
-               INT(1e6*time_spent(id)/nb_calls(id)), INT(1e-6*bytes(id)/time_spent(id))
-       END DO
-       CALL init_trace()
+    IF(dynamico_mpi_rank==0) THEN
+       total_spent=SUM(time_spent)
+       IF(total_spent>1.) THEN
+          PRINT *, '========================= Performance metrics ========================='
+          PRINT *, 'Total time spent in instrumented code (seconds) :', total_spent
+          PRINT *, 'Name, #calls, %time, microsec/call, MB/sec'    
+          DO id=1,nb_routines
+             IF(nb_calls(id)>0) PRINT *, id_name(id), nb_calls(id), INT(100.*time_spent(id)/total_spent), &
+                  INT(1e6*time_spent(id)/nb_calls(id)), INT(1e-6*bytes(id)/time_spent(id))
+          END DO
+          CALL init_trace()
+       END IF
     END IF
     !$OMP END MASTER