ArrDescrCommFree Subroutine

public subroutine ArrDescrCommFree(arrdes, rc)

Arguments

Type IntentOptional Attributes Name
type(ArrDescr), intent(inout) :: arrdes
integer, intent(out), optional :: rc

Calls

proc~~arrdescrcommfree~~CallsGraph proc~arrdescrcommfree ArrDescrCommFree mpi_comm_free mpi_comm_free proc~arrdescrcommfree->mpi_comm_free proc~mapl_return MAPL_Return proc~arrdescrcommfree->proc~mapl_return proc~mapl_verify MAPL_Verify proc~arrdescrcommfree->proc~mapl_verify 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

Called by

proc~~arrdescrcommfree~~CalledByGraph proc~arrdescrcommfree ArrDescrCommFree proc~mapl_esmfstatereadfromfile MAPL_ESMFStateReadFromFile proc~mapl_esmfstatereadfromfile->proc~arrdescrcommfree proc~mapl_genericfinalize MAPL_GenericFinalize proc~mapl_genericfinalize->proc~arrdescrcommfree proc~mapl_genericrecord MAPL_GenericRecord proc~mapl_genericrecord->proc~arrdescrcommfree proc~mapl_genericstatesave MAPL_GenericStateSave proc~mapl_genericstatesave->proc~arrdescrcommfree proc~mapl_genericstatesave->proc~mapl_genericstatesave proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericstaterestore MAPL_GenericStateRestore proc~mapl_genericstaterestore->proc~mapl_esmfstatereadfromfile proc~mapl_genericstaterestore->proc~mapl_genericstaterestore

Source Code

  subroutine ArrDescrCommFree(arrdes, rc)
    type(ArrDescr), intent(inout) :: arrdes
    integer, optional, intent(out) :: rc

    integer :: status

    call MAPL_CommFree(arrdes%Xcomm, _RC)
    call MAPL_CommFree(arrdes%Ycomm, _RC)
    call MAPL_CommFree(arrdes%readers_comm, _RC)
    call MAPL_CommFree(arrdes%writers_comm, _RC)
    call MAPL_CommFree(arrdes%IOgathercomm, _RC)
    call MAPL_CommFree(arrdes%IOscattercomm, _RC)
    
    _RETURN(ESMF_SUCCESS)
  end subroutine ArrDescrCommFree