Context Navigation

trace.F90 @ 173

Last change on this file since 173 was 151, checked in by ymipsl, 11 years ago

Implementation of mixte parallelism MPI/OpenMP into src directory

File size: 986 bytes

Rev	Line
[145]	1	MODULE trace
	2
[151]	3	INTEGER,SAVE :: markId
	4
[145]	5	CONTAINS
	6
[151]	7	SUBROUTINE init_trace
	8	IMPLICIT NONE
	9	#ifdef VTRACE
	10	#include <vt_user.inc>
	11	#endif
	12
	13	#ifdef VTRACE
	14	VT_MARKER_DEF("marker", VT_MARKER_TYPE_HINT, markId)
	15	#endif
	16
	17	END SUBROUTINE init_trace
	18
	19
[145]	20	SUBROUTINE trace_start(name)
	21	IMPLICIT NONE
	22	CHARACTER(LEN=*),INTENT(IN) :: name
	23	#ifdef VTRACE
	24	#include <vt_user.inc>
	25	#endif
	26
[151]	27	!$OMP MASTER
[145]	28	#ifdef VTRACE
	29	VT_USER_START(name)
	30	#endif
[151]	31	!$OMP END MASTER
[145]	32
	33	END SUBROUTINE trace_start
	34
	35	SUBROUTINE trace_end(name)
	36	IMPLICIT NONE
	37	#ifdef VTRACE
	38	#include <vt_user.inc>
	39	#endif
	40
	41	CHARACTER(LEN=*),INTENT(IN) :: name
	42
[151]	43	!$OMP MASTER
[145]	44	#ifdef VTRACE
	45	VT_USER_END(name)
	46	#endif
[151]	47	!$OMP END MASTER
[145]	48
	49	END SUBROUTINE trace_end
	50
[151]	51	SUBROUTINE Marker(name)
	52	IMPLICIT NONE
	53	CHARACTER(LEN=*),INTENT(IN) :: name
	54	#ifdef VTRACE
	55	#include <vt_user.inc>
	56	#endif
	57
	58	!$OMP MASTER
	59	#ifdef VTRACE
	60	VT_MARKER(markId,name)
	61	#endif
	62	!$OMP END MASTER
	63
	64	END SUBROUTINE Marker
	65
[145]	66	END MODULE trace

Note: See TracBrowser for help on using the repository browser.