source: codes/icosagcm/trunk/src/trace.F90 @ 156

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

Implementation of mixte parallelism MPI/OpenMP into src directory

YM
File size: 986 bytes
Line 
1MODULE trace
2
3  INTEGER,SAVE :: markId
4 
5CONTAINS
6
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 
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
27!$OMP MASTER
28#ifdef VTRACE
29     VT_USER_START(name)
30#endif
31!$OMP END MASTER
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
43!$OMP MASTER
44#ifdef VTRACE
45     VT_USER_END(name)
46#endif
47!$OMP END MASTER
48
49  END SUBROUTINE trace_end   
50
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
66END MODULE trace
Note: See TracBrowser for help on using the repository browser.