source: LMDZ6/branches/Amaury_dev/libf/misc/lmdz_vampir.F90 @ 5208

Last change on this file since 5208 was 5134, checked in by abarral, 4 months ago

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1module lmdz_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
11  INTEGER, parameter :: nb_inst = 7
12  INTEGER :: MPE_begin(nb_inst)
13  INTEGER :: MPE_end(nb_inst)
14
15CONTAINS
16
17  SUBROUTINE InitVampir
18    IMPLICIT NONE
19
20#ifdef USE_VT
21    INCLUDE 'VT.inc'
22    INTEGER :: ierr
23   
24    CALL VTSYMDEF(VTcaldyn,"caldyn","caldyn",ierr)
25    CALL VTSYMDEF(VTintegre,"integre","integre",ierr)
26    CALL VTSYMDEF(VTadvection,"advection","advection",ierr)
27    CALL VTSYMDEF(VTdissipation,"dissipation","dissipation",ierr)
28    CALL VTSYMDEF(VThallo,"hallo","hallo",ierr)
29    CALL VTSYMDEF(VTphysiq,"physiq","physiq",ierr)
30    CALL VTSYMDEF(VTinca,"inca","inca",ierr)
31#endif
32
33#ifdef USE_MPE
34    INCLUDE 'mpe_logf.h'
35    INTEGER :: ierr,i
36   
37    DO i=1,nb_inst
38      ierr = MPE_Log_get_state_eventIDs( MPE_begin(i), MPE_end(i) )
39    ENDDO
40   
41    ierr = MPE_Describe_state( MPE_begin(VTcaldyn), MPE_end(VTcaldyn),"caldyn", "yellow" )
42    ierr = MPE_Describe_state( MPE_begin(VTintegre), MPE_end(VTintegre),"integre", "blue" )
43    ierr = MPE_Describe_state( MPE_begin(VTadvection), MPE_end(VTadvection),"advection", "green" )
44    ierr = MPE_Describe_state( MPE_begin(VTdissipation), MPE_end(VTdissipation),"dissipation", "ivory" )
45    ierr = MPE_Describe_state( MPE_begin(VThallo), MPE_end(VThallo),"hallo", "orange" )
46    ierr = MPE_Describe_state( MPE_begin(VTphysiq), MPE_end(VTphysiq),"physiq", "purple" )
47    ierr = MPE_Describe_state( MPE_begin(VTinca), MPE_end(VTinca),"inca", "LightBlue" )
48#endif     
49  END SUBROUTINE  InitVampir
50
51  SUBROUTINE VTb(number)
52    IMPLICIT NONE
53    INTEGER :: number
54#ifdef USE_VT   
55    INCLUDE 'VT.inc'
56    INTEGER :: ierr
57   
58    CALL VTBEGIN(number,ierr)
59#endif
60#ifdef USE_MPE
61    INCLUDE 'mpe_logf.h'
62    INTEGER :: ierr,i
63    ierr = MPE_Log_event( MPE_begin(number), 0, '' )
64#endif
65
66  END SUBROUTINE  VTb
67
68  SUBROUTINE VTe(number)
69    IMPLICIT NONE
70    INTEGER :: Number
71#ifdef USE_VT   
72    INCLUDE 'VT.inc'
73    INTEGER :: ierr
74   
75    CALL VTEND(number,ierr)
76#endif   
77
78#ifdef USE_MPE
79    INCLUDE 'mpe_logf.h'
80    INTEGER :: ierr,i
81    ierr = MPE_Log_event( MPE_end(number), 0, '' )
82#endif
83
84  END SUBROUTINE  VTe
85
86END MODULE lmdz_vampir
Note: See TracBrowser for help on using the repository browser.