profiler_init Subroutine

public subroutine profiler_init(enabled)

Initialise the profiler

Arguments

Type IntentOptional Attributes Name
logical, intent(in), optional :: enabled

Called by

proc~~profiler_init~~CalledByGraph proc~profiler_init profiler_init proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~profiler_init proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   subroutine profiler_init(enabled)
      !! Initialise the profiler
      logical, intent(in), optional :: enabled

      state%initialized = .true.
      state%enabled = .true.
      if (present(enabled)) state%enabled = enabled
      state%num_regions = 0
   end subroutine profiler_init