Changeset 151 for codes/icosagcm/trunk/src/trace.F90

Timestamp:

05/13/13 14:30:31 (11 years ago)

Author:

ymipsl

Message:

Implementation of mixte parallelism MPI/OpenMP into src directory

YM

File:

• codes/icosagcm/trunk/src/trace.F90 (modified) (3 diffs)

codes/icosagcm/trunk/src/trace.F90

@@ -1 +1 @@
 MODULE trace
 
-
+  INTEGER,SAVE :: markId
+  
 CONTAINS
 
+  SUBROUTINE init_trace
+  IMPLICIT NONE
+#ifdef VTRACE
+#include <vt_user.inc>
+#endif 
+
+#ifdef VTRACE
+     VT_MARKER_DEF("marker", VT_MARKER_TYPE_HINT, markId)
+#endif
+  
+  END SUBROUTINE init_trace
+  
+  
   SUBROUTINE trace_start(name)
   IMPLICIT NONE
@@ -11 +25 @@
 #endif 
 
+!$OMP MASTER
 #ifdef VTRACE
      VT_USER_START(name)
 #endif
+!$OMP END MASTER
 
   END SUBROUTINE trace_start    
@@ -25 +41 @@
     CHARACTER(LEN=*),INTENT(IN) :: name
 
+!$OMP MASTER
 #ifdef VTRACE
      VT_USER_END(name)
 #endif
+!$OMP END MASTER
 
   END SUBROUTINE trace_end    
 
+  SUBROUTINE Marker(name)
+  IMPLICIT NONE
+  CHARACTER(LEN=*),INTENT(IN) :: name
+#ifdef VTRACE
+#include <vt_user.inc>
+#endif 
+
+!$OMP MASTER
+#ifdef VTRACE
+     VT_MARKER(markId,name)
+#endif
+!$OMP END MASTER
+
+  END SUBROUTINE Marker
+
 END MODULE trace