eulerian_obj_Final Subroutine

private pure subroutine eulerian_obj_Final(this)

Finalizes the Eulerian object and free memory.

Type Bound

eulerian_obj_base

Arguments

Type IntentOptional Attributes Name
class(eulerian_obj_base), intent(inout) :: this

An Eulerian object


Called by

proc~~eulerian_obj_final~~CalledByGraph proc~eulerian_obj_final eulerian_obj_base%eulerian_obj_Final proc~cdifs_obj_advancesolutionib cdifs_obj_AdvanceSolutionIB proc~cdifs_obj_advancesolutionib->proc~eulerian_obj_final proc~respart_set_getibforcing ResPart_set%ResPart_set_GetIBForcing proc~cdifs_obj_advancesolutionib->proc~respart_set_getibforcing proc~respart_set_updatesdf ResPart_set%ResPart_set_UpdateSDF proc~cdifs_obj_advancesolutionib->proc~respart_set_updatesdf proc~eulerian_set_final eulerian_set%eulerian_set_Final proc~eulerian_set_final->proc~eulerian_obj_final proc~hypre_obj_final hypre_obj%hypre_obj_Final proc~hypre_obj_final->proc~eulerian_obj_final proc~marker_set_computesolidvolfrac marker_set%marker_set_ComputeSolidVolFrac proc~marker_set_computesolidvolfrac->proc~eulerian_obj_final proc~marker_set_getibforcing marker_set%marker_set_GetIBForcing proc~marker_set_getibforcing->proc~eulerian_obj_final proc~marker_set_updatenormals marker_set%marker_set_UpdateNormals proc~marker_set_updatenormals->proc~eulerian_obj_final proc~marker_set_updatesdf marker_set%marker_set_UpdateSDF proc~marker_set_updatesdf->proc~eulerian_obj_final proc~solid_set_filter solid_set%solid_set_Filter proc~solid_set_filter->proc~eulerian_obj_final proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionib proc~cdifs_obj_advancesolutionrp cdifs_obj_AdvanceSolutionRP proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionrp proc~respart_set_getibforcing->proc~marker_set_getibforcing proc~respart_set_updatenormals ResPart_set%ResPart_set_UpdateNormals proc~respart_set_updatenormals->proc~marker_set_updatenormals proc~respart_set_updatesdf->proc~marker_set_updatesdf proc~setupcasefields SetUpCaseFields proc~setupcasefields->proc~eulerian_set_final proc~setupcasefields~10 SetUpCaseFields proc~setupcasefields~10->proc~eulerian_set_final proc~setupcasefields~2 SetUpCaseFields proc~setupcasefields~2->proc~eulerian_set_final proc~setupcasefields~3 SetUpCaseFields proc~setupcasefields~3->proc~eulerian_set_final proc~setupcasefields~4 SetUpCaseFields proc~setupcasefields~4->proc~eulerian_set_final proc~setupcasefields~5 SetUpCaseFields proc~setupcasefields~5->proc~eulerian_set_final proc~setupcasefields~6 SetUpCaseFields proc~setupcasefields~6->proc~eulerian_set_final proc~setupcasefields~7 SetUpCaseFields proc~setupcasefields~7->proc~eulerian_set_final proc~setupcasefields~8 SetUpCaseFields proc~setupcasefields~8->proc~eulerian_set_final proc~setupcasefields~9 SetUpCaseFields proc~setupcasefields~9->proc~eulerian_set_final interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution proc~cdifs_obj_computesolidvf cdifs_obj%cdifs_obj_ComputeSolidVF proc~cdifs_obj_computesolidvf->proc~respart_set_updatenormals proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~respart_set_updatesdf proc~cdifs_obj_preparesolver->proc~cdifs_obj_computesolidvf proc~grans_obj_computesolidvf grans_obj%grans_obj_ComputeSolidVF proc~grans_obj_computesolidvf->proc~respart_set_updatenormals proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~respart_set_updatesdf proc~grans_obj_preparesolver->proc~grans_obj_computesolidvf interface~grans_obj_writeoutputdata grans_obj%grans_obj_WriteOutputData proc~grans_obj_preparesolver->interface~grans_obj_writeoutputdata proc~grans_obj_writeoutputdata grans_obj_WriteOutputData proc~grans_obj_writeoutputdata->proc~respart_set_updatesdf proc~grans_obj_writeoutputdata->proc~grans_obj_computesolidvf program~main main program~main->proc~setupcasefields program~main~10 main program~main~10->proc~setupcasefields~6 program~main~11 main program~main~11->proc~setupcasefields~7 program~main~12 main program~main~12->proc~setupcasefields~8 program~main~13 main program~main~13->proc~setupcasefields~9 program~main~14 main program~main~14->proc~setupcasefields~10 program~main~3 main program~main~3->proc~setupcasefields~2 program~main~5 main program~main~5->proc~setupcasefields~3 program~main~8 main program~main~8->proc~setupcasefields~4 program~main~9 main program~main~9->proc~setupcasefields~5 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver interface~grans_obj_writeoutputdata->proc~grans_obj_writeoutputdata proc~cdifs_obj_advancesolutionrp->proc~cdifs_obj_computesolidvf

Source Code

    pure subroutine eulerian_obj_Final(this)
      !> Finalizes the Eulerian object and free memory.
      implicit none
      class(eulerian_obj_base), intent(inout) :: this                          !! An Eulerian object

      ! Nullify pointers
      this%parallel => null()
      this%block    => null()

      ! Deallocate data
      call this%Deallocate

      return
    end subroutine eulerian_obj_Final