MAPL_Initialize Subroutine

public subroutine MAPL_Initialize(unusable, comm, logging_config, rc)

Arguments

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

Calls

proc~~mapl_initialize~~CallsGraph proc~mapl_initialize MAPL_Initialize basic_config basic_config proc~mapl_initialize->basic_config filehandler filehandler proc~mapl_initialize->filehandler initialize_profiler initialize_profiler proc~mapl_initialize->initialize_profiler load_file load_file proc~mapl_initialize->load_file mpi_comm_rank mpi_comm_rank proc~mapl_initialize->mpi_comm_rank mpiformatter mpiformatter proc~mapl_initialize->mpiformatter mpilock mpilock proc~mapl_initialize->mpilock none~warning Logger%warning proc~mapl_initialize->none~warning proc~initialize~6 initialize proc~mapl_initialize->proc~initialize~6 proc~mapl_return MAPL_Return proc~mapl_initialize->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_initialize->proc~mapl_verify proc~start_global_time_profiler start_global_time_profiler proc~mapl_initialize->proc~start_global_time_profiler push_back push_back proc~mapl_initialize->push_back set_formatter set_formatter proc~mapl_initialize->set_formatter set_level set_level proc~mapl_initialize->set_level set_lock set_lock proc~mapl_initialize->set_lock streamhandler streamhandler proc~mapl_initialize->streamhandler at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~start_global_time_profiler->proc~mapl_return proc~start_global_time_profiler->proc~mapl_verify none~start~83 TimeProfiler%start proc~start_global_time_profiler->none~start~83 proc~get_global_time_profiler get_global_time_profiler proc~start_global_time_profiler->proc~get_global_time_profiler none~start_self BaseProfiler%start_self none~start~83->none~start_self none~start_self->proc~mapl_return interface~mapl_assert MAPL_Assert none~start_self->interface~mapl_assert none~get_name~5 MeterNode%get_name none~start_self->none~get_name~5 none~start~47 BaseProfiler%start none~start_self->none~start~47

Called by

proc~~mapl_initialize~~CalledByGraph proc~mapl_initialize MAPL_Initialize proc~main main proc~main->proc~mapl_initialize proc~main~2 main proc~main~2->proc~mapl_initialize proc~newextdatadriver newExtDataDriver proc~newextdatadriver->proc~mapl_initialize program~time_ave time_ave program~time_ave->proc~mapl_initialize program~ut_regridding ut_ReGridding program~ut_regridding->proc~mapl_initialize interface~extdatadriver ExtDataDriver interface~extdatadriver->proc~newextdatadriver program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main program~regrid_util Regrid_Util program~regrid_util->proc~main~2

Source Code

   subroutine MAPL_Initialize(unusable,comm,logging_config,rc)
      class (KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(in) :: comm
      character(len=*), optional,intent(in) :: logging_config
      integer, optional, intent(out) :: rc

      character(:), allocatable :: logging_configuration_file
      integer :: comm_world,status

      _UNUSED_DUMMY(unusable)

      if (present(logging_config)) then
         logging_configuration_file=logging_config
      else
         logging_configuration_file=''
      end if
      if (present(comm)) then
         comm_world = comm
      else
         comm_world=MPI_COMM_WORLD
      end if
#ifdef BUILD_WITH_PFLOGGER
      call initialize_pflogger(comm=comm_world,logging_config=logging_configuration_file,rc=status)
      _VERIFY(status)
#endif
      call initialize_profiler(comm=comm_world)
      call start_global_time_profiler(rc=status)
      _VERIFY(status)
      _RETURN(_SUCCESS)

   end subroutine MAPL_Initialize