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

module lmdz_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 lmdz_vampir