clean Subroutine

public subroutine clean(this, rc)

Type Bound

ExtData_IoBundle

Arguments

Type IntentOptional Attributes Name
class(ExtData_IoBundle), intent(inout) :: this
integer, intent(out), optional :: rc

Calls

proc~~clean~~CallsGraph proc~clean ExtData_IoBundle%clean esmf_fieldbundledestroy esmf_fieldbundledestroy proc~clean->esmf_fieldbundledestroy proc~mapl_return MAPL_Return proc~clean->proc~mapl_return proc~mapl_verify MAPL_Verify proc~clean->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

Source Code

  subroutine clean(this, rc)
    class (ExtData_IoBundle), intent(inout) :: this
    integer, optional, intent(out) :: rc

    integer :: status
    call ESMF_FieldBundleDestroy(this%pbundle, noGarbage=.true.,rc=status)
    _VERIFY(status)
    
     _RETURN(ESMF_SUCCESS)

  end subroutine clean