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