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

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

Add vampirtrace management

YM
File size: 466 bytes
Line 
1MODULE trace
2
3
4CONTAINS
5
6  SUBROUTINE trace_start(name)
7  IMPLICIT NONE
8    CHARACTER(LEN=*),INTENT(IN) :: name 
9#ifdef VTRACE
10#include <vt_user.inc>
11#endif 
12
13#ifdef VTRACE
14     VT_USER_START(name)
15#endif
16
17  END SUBROUTINE trace_start   
18
19  SUBROUTINE trace_end(name)
20  IMPLICIT NONE
21#ifdef VTRACE
22#include <vt_user.inc>
23#endif
24
25    CHARACTER(LEN=*),INTENT(IN) :: name
26
27#ifdef VTRACE
28     VT_USER_END(name)
29#endif
30
31  END SUBROUTINE trace_end   
32
33END MODULE trace
Note: See TracBrowser for help on using the repository browser.