This function calculates the sigma for the 2d box shape sponge layer from coord for polynomial n6. Sponge profile: where, \sigma_A - sponge strength, L - thickness, x0 - start of sponge.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_spongeLayer_box_type) | :: | me | Spatial sponge layer to evaluate |
|||
real(kind=rk), | intent(in) | :: | coord(n,3) | barycentric Ids of an elements. 1st index goes over number of elements and 2nd index goes over x,y,z coordinates |
||
integer, | intent(in) | :: | n | Number of arrays to return |
return value
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | i | ||||
real(kind=rk), | private | :: | sigma | ||||
real(kind=rk), | private | :: | origin(2) | ||||
real(kind=rk), | private | :: | extent(2) | ||||
real(kind=rk), | private | :: | coordLoc(2) | ||||
real(kind=rk), | private | :: | normal | ||||
real(kind=rk), | private | :: | proj_len1 | ||||
real(kind=rk), | private | :: | proj_len2 | ||||
real(kind=rk), | private | :: | vec_min(2) | ||||
real(kind=rk), | private | :: | vec_max(2) | ||||
real(kind=rk), | private | :: | vec_minSqr(2) | ||||
real(kind=rk), | private | :: | vec_maxSqr(2) | ||||
real(kind=rk), | private | :: | rad | ||||
real(kind=rk), | private | :: | const_fac | ||||
real(kind=rk), | private | :: | box_max(2) |