mapl_initialize Subroutine

public subroutine mapl_initialize(hconfig, unusable, is_model_pet, servers, mpiCommunicator, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(inout) :: hconfig
class(KeywordEnforcer), intent(in), optional :: unusable
logical, intent(out), optional :: is_model_pet
type(ESMF_GridComp), intent(out), optional, allocatable :: servers(:)
integer, intent(in), optional :: mpiCommunicator
integer, intent(out), optional :: rc

Calls

proc~~mapl_initialize~2~~CallsGraph proc~mapl_initialize~2 mapl_initialize none~initialize~25 MaplFramework%initialize proc~mapl_initialize~2->none~initialize~25 proc~mapl_return MAPL_Return proc~mapl_initialize~2->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_initialize~2->proc~mapl_verify none~initialize~25->proc~mapl_return none~initialize~25->proc~mapl_verify ESMF_VMGetCurrent ESMF_VMGetCurrent none~initialize~25->ESMF_VMGetCurrent interface~mapl_assert MAPL_Assert none~initialize~25->interface~mapl_assert none~initialize_esmf MaplFramework%initialize_esmf none~initialize~25->none~initialize_esmf none~initialize_pflogger MaplFramework%initialize_pflogger none~initialize~25->none~initialize_pflogger none~initialize_profilers MaplFramework%initialize_profilers none~initialize~25->none~initialize_profilers none~initialize_servers MaplFramework%initialize_servers none~initialize~25->none~initialize_servers 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

Source Code

   subroutine mapl_initialize(hconfig, unusable, is_model_pet, servers, mpiCommunicator, rc)
      type(ESMF_HConfig), intent(inout) :: hconfig
      class(KeywordEnforcer), optional, intent(in) :: unusable
      logical, optional, intent(out) :: is_model_pet
      integer, optional, intent(in) :: mpiCommunicator
      type(ESMF_GridComp), allocatable, optional, intent(out) :: servers(:)
      integer, optional, intent(out) :: rc

      integer :: status

      call the_mapl_object%initialize(hconfig=hconfig, is_model_pet=is_model_pet, servers=servers, mpiCommunicator=mpiCommunicator, _RC)

      _RETURN(_SUCCESS)
      _UNUSED_DUMMY(unusable)
   end subroutine mapl_initialize