ResPart_set_GetSurfaceStresses Subroutine

private subroutine ResPart_set_GetSurfaceStresses(this, P, U, V, W, ibVF, visc)

Compute hydrodynamic stresses on markers

Type Bound

ResPart_set

Arguments

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

Collection of Resolved Particles
type(eulerian_obj_r), intent(in) :: P

Fluid pressure field
type(eulerian_obj_r), intent(in) :: U

Fluid velocity field in 1-dir
type(eulerian_obj_r), intent(in) :: V

Fluid velocity field in 2-dir
type(eulerian_obj_r), intent(in) :: W

Fluid velocity field in 3-dir
type(eulerian_obj_r), intent(in) :: ibVF

Solid volume fraction
real(kind=wp), intent(in) :: visc

Fluid viscosity

Calls

proc~~respart_set_getsurfacestresses~~CallsGraph proc~respart_set_getsurfacestresses ResPart_set%ResPart_set_GetSurfaceStresses interpolate interpolate proc~respart_set_getsurfacestresses->interpolate markers markers proc~respart_set_getsurfacestresses->markers proc~op_obj_strainrate op_obj%op_obj_StrainRate proc~respart_set_getsurfacestresses->proc~op_obj_strainrate proc~eulerian_obj_init eulerian_obj_base%eulerian_obj_Init proc~op_obj_strainrate->proc~eulerian_obj_init proc~eulerian_obj_updateghostcells eulerian_obj_base%eulerian_obj_UpdateGhostCells proc~op_obj_strainrate->proc~eulerian_obj_updateghostcells proc~eulerian_obj_updateghostcells_x eulerian_obj_base%eulerian_obj_UpdateGhostCells_x proc~eulerian_obj_updateghostcells->proc~eulerian_obj_updateghostcells_x proc~eulerian_obj_updateghostcells_y eulerian_obj_base%eulerian_obj_UpdateGhostCells_y proc~eulerian_obj_updateghostcells->proc~eulerian_obj_updateghostcells_y proc~eulerian_obj_updateghostcells_z eulerian_obj_base%eulerian_obj_UpdateGhostCells_z proc~eulerian_obj_updateghostcells->proc~eulerian_obj_updateghostcells_z cell cell proc~eulerian_obj_updateghostcells_x->cell mpi_irecv mpi_irecv proc~eulerian_obj_updateghostcells_x->mpi_irecv mpi_isend mpi_isend proc~eulerian_obj_updateghostcells_x->mpi_isend mpi_waitall mpi_waitall proc~eulerian_obj_updateghostcells_x->mpi_waitall proc~eulerian_obj_updateghostcells_y->cell proc~eulerian_obj_updateghostcells_y->mpi_irecv proc~eulerian_obj_updateghostcells_y->mpi_isend proc~eulerian_obj_updateghostcells_y->mpi_waitall proc~eulerian_obj_updateghostcells_z->cell proc~eulerian_obj_updateghostcells_z->mpi_irecv proc~eulerian_obj_updateghostcells_z->mpi_isend proc~eulerian_obj_updateghostcells_z->mpi_waitall

Called by

proc~~respart_set_getsurfacestresses~~CalledByGraph proc~respart_set_getsurfacestresses ResPart_set%ResPart_set_GetSurfaceStresses proc~respart_set_gethydroforces ResPart_set%ResPart_set_GetHydroForces proc~respart_set_gethydroforces->proc~respart_set_getsurfacestresses proc~cdifs_obj_advancesolutionrp cdifs_obj_AdvanceSolutionRP proc~cdifs_obj_advancesolutionrp->proc~respart_set_gethydroforces proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionrp interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution