source: LMDZ4/branches/V3_test/libf/bibio/vampir.F90 @ 3733

Last change on this file since 3733 was 711, checked in by Laurent Fairhead, 18 years ago

Import initial YM
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1module Vampir
2
3  INTEGER,parameter :: VTcaldyn=1
4  INTEGER,parameter :: VTintegre=2
5  INTEGER,parameter :: VTadvection=3
6  INTEGER,parameter :: VTdissipation=4
7  INTEGER,parameter :: VThallo=5
8  INTEGER,parameter :: VTphysiq=6
9  INTEGER,parameter :: VTinca=7
10 
11contains
12
13  subroutine InitVampir
14    implicit none
15#ifdef USE_VT
16    include 'VT.inc'
17    integer :: ierr
18   
19    call VTSYMDEF(VTcaldyn,"caldyn","caldyn",ierr)
20    call VTSYMDEF(VTintegre,"integre","integre",ierr)
21    call VTSYMDEF(VTadvection,"advection","advection",ierr)
22    call VTSYMDEF(VTdissipation,"dissipation","dissipation",ierr)
23    call VTSYMDEF(VThallo,"hallo","hallo",ierr)
24    call VTSYMDEF(VTphysiq,"physiq","physiq",ierr)
25    call VTSYMDEF(VTinca,"inca","inca",ierr)
26#endif 
27  end subroutine InitVampir
28 
29  subroutine VTb(number)
30    implicit none
31    INTEGER :: number
32#ifdef USE_VT   
33    include 'VT.inc'
34    integer :: ierr
35   
36    call VTBEGIN(number,ierr)
37#endif
38  end subroutine VTb
39 
40  subroutine VTe(number)
41    implicit none
42    INTEGER :: Number
43#ifdef USE_VT   
44    include 'VT.inc'
45    integer :: ierr
46   
47    call VTEND(number,ierr)
48#endif   
49
50  end subroutine VTe
51 
52end module Vampir
53 
Note: See TracBrowser for help on using the repository browser.