vampir.F90

Go to the documentation of this file.

module vampir

  INTEGER,parameter :: vtcaldyn=1
  INTEGER,parameter :: vtintegre=2
  INTEGER,parameter :: vtadvection=3
  INTEGER,parameter :: vtdissipation=4
  INTEGER,parameter :: vthallo=5
  INTEGER,parameter :: vtphysiq=6
  INTEGER,parameter :: vtinca=7
  
  INTEGER,parameter :: nb_inst=7
  INTEGER :: mpe_begin(nb_inst)
  INTEGER :: mpe_end(nb_inst)
  
contains

  subroutine initvampir
    implicit none

#ifdef USE_VT
    include 'VT.inc'
    integer :: ierr
    
    call vtsymdef(vtcaldyn,"caldyn","caldyn",ierr)
    call vtsymdef(vtintegre,"integre","integre",ierr)
    call vtsymdef(vtadvection,"advection","advection",ierr)
    call vtsymdef(vtdissipation,"dissipation","dissipation",ierr)
    call vtsymdef(vthallo,"hallo","hallo",ierr)
    call vtsymdef(vtphysiq,"physiq","physiq",ierr)
    call vtsymdef(vtinca,"inca","inca",ierr)
#endif

#ifdef USE_MPE
    include 'mpe_logf.h' 
    integer :: ierr,i
    
    DO i=1,nb_inst
      ierr = mpe_log_get_state_eventids( mpe_begin(i), mpe_end(i) )
    ENDDO
    
    ierr = mpe_describe_state( mpe_begin(vtcaldyn), mpe_end(vtcaldyn),"caldyn", "yellow" )
    ierr = mpe_describe_state( mpe_begin(vtintegre), mpe_end(vtintegre),"integre", "blue" )
    ierr = mpe_describe_state( mpe_begin(vtadvection), mpe_end(vtadvection),"advection", "green" )
    ierr = mpe_describe_state( mpe_begin(vtdissipation), mpe_end(vtdissipation),"dissipation", "ivory" )
    ierr = mpe_describe_state( mpe_begin(vthallo), mpe_end(vthallo),"hallo", "orange" )
    ierr = mpe_describe_state( mpe_begin(vtphysiq), mpe_end(vtphysiq),"physiq", "purple" )
    ierr = mpe_describe_state( mpe_begin(vtinca), mpe_end(vtinca),"inca", "LightBlue" )
#endif     
  end subroutine initvampir

  subroutine vtb(number)
    implicit none
    INTEGER :: number
#ifdef USE_VT    
    include 'VT.inc'
    integer :: ierr
    
    call vtbegin(number,ierr)
#endif 
#ifdef USE_MPE
    include 'mpe_logf.h' 
    integer :: ierr,i
    ierr = mpe_log_event( mpe_begin(number), 0, '' )
#endif

  end subroutine vtb

  subroutine vte(number)
    implicit none
    INTEGER :: Number
#ifdef USE_VT    
    include 'VT.inc'
    integer :: ierr
   
    call vtend(number,ierr)
#endif    

#ifdef USE_MPE
    include 'mpe_logf.h' 
    integer :: ierr,i
    ierr = mpe_log_event( mpe_end(number), 0, '' )
#endif

  end subroutine vte
  
end module vampir