clean Subroutine

public subroutine clean(this, rc)

Type Bound

ExtDataNG_IOBundle

Arguments

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

Calls

proc~~clean~2~~CallsGraph proc~clean~2 ExtDataNG_IOBundle%clean esmf_fieldbundledestroy esmf_fieldbundledestroy proc~clean~2->esmf_fieldbundledestroy proc~mapl_return MAPL_Return proc~clean~2->proc~mapl_return proc~mapl_verify MAPL_Verify proc~clean~2->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 (ExtDataNG_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