Changeset 665 for codes/icosagcm/devel/src/unstructured/data_unstructured.F90

Timestamp:

01/20/18 18:46:10 (6 years ago)

Author:

dubos

Message:

devel/unstructured : OpenMP fixes

File:

• codes/icosagcm/devel/src/unstructured/data_unstructured.F90 (modified) (2 diffs)

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

@@ -58 +58 @@
   !----------------------------      PROFILING      --------------------------
   
-  SUBROUTINE init_trace()
+  SUBROUTINE init_trace() BINDC(init_trace)
+    !$OMP MASTER
     time_spent(:)=0.
     bytes(:)=0
     nb_calls(:)=0
+    !$OMP END MASTER
   END SUBROUTINE init_trace
 
@@ -67 +69 @@
     INTEGER :: id
     DBL :: total_spent
+    !$OMP MASTER
     total_spent=SUM(time_spent)
-    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(total_spent>.01) 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
+    !$OMP END MASTER
   END SUBROUTINE print_trace
 
   SUBROUTINE enter_trace(id, nbytes)
     INTEGER :: id, nbytes
+    !$OMP MASTER
     current_id = id
     bytes(id) = bytes(id) + nbytes
     nb_calls(id)=nb_calls(id)+1
     start_time = OMP_GET_WTIME()
+    !$OMP END MASTER
   END SUBROUTINE enter_trace
 
   SUBROUTINE exit_trace()
     DBL :: elapsed
+    !$OMP MASTER
     elapsed = OMP_GET_WTIME()-start_time
     IF(elapsed<0.) elapsed=0.
     time_spent(current_id) = time_spent(current_id) + elapsed
+    !$OMP END MASTER
   END SUBROUTINE exit_trace