initialize_global_time_profiler Subroutine

public subroutine initialize_global_time_profiler(unusable, name, comm)

Arguments

Type IntentOptional Attributes Name
class(KeywordEnforcer), intent(in), optional :: unusable
character(len=*), intent(in), optional :: name
integer, intent(in), optional :: comm

Calls

proc~~initialize_global_time_profiler~~CallsGraph proc~initialize_global_time_profiler initialize_global_time_profiler proc~get_global_time_profiler get_global_time_profiler proc~initialize_global_time_profiler->proc~get_global_time_profiler

Called by

proc~~initialize_global_time_profiler~~CalledByGraph proc~initialize_global_time_profiler initialize_global_time_profiler proc~initialize~8 ExtData_DriverGridComp%initialize proc~initialize~8->proc~initialize_global_time_profiler proc~run~18 ExtDataDriver%run proc~run~18->proc~initialize~8 program~extdata_driver ExtData_Driver program~extdata_driver->proc~run~18

Source Code

   subroutine initialize_global_time_profiler(unusable, name, comm)
      class (KeywordEnforcer), optional, intent(in) :: unusable
      character(*), optional, intent(in) :: name
      integer, optional, intent(in) :: comm

      type(TimeProfiler), pointer :: time_profiler
      character(:), allocatable :: name_
      integer :: world_comm

      if (present(name)) then
         name_ = name
      else
         name_ = 'All'
      end if

      if (present(comm)) then
         world_comm = comm
      else
         world_comm = MPI_COMM_WORLD
      end if

      time_profiler => get_global_time_profiler()
      time_profiler = TimeProfiler(name_, comm_world = world_comm)

      _UNUSED_DUMMY(unusable)
   end subroutine initialize_global_time_profiler