This subroutine fills the initial force, initial velocity, predef. velocity array for the surface points Xk as well as the velocity array for the neighbors.
!$omp single
!$omp end single
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(mus_IBM_type), | intent(in) | :: | me | datatype to store the surface information |
||
type(mus_IBM_tmpData_type), | intent(inout) | :: | IBMData | tmp IBMData type to be filled |
||
real(kind=rk), | intent(in) | :: | state(:) | the state array holding the pdfs |
||
type(treelmesh_type), | intent(in) | :: | globTree | global tree information |
||
type(tem_stencilHeader_type), | intent(in) | :: | stencil(:) | stencil used by the IBM |
||
integer, | intent(in) | :: | stencilPos | position of the IBM stencil |
||
type(tem_levelDesc_type), | intent(in) | :: | levelDesc | level descriptor incl. ghost and fluid elements |
||
type(tem_varSys_type) | :: | globSys | global variable system of the current scheme |
|||
integer | :: | pdfPos | position of the velocity in the global variable system |
|||
integer | :: | iLevel | the current level |
|||
type(mus_convertFac_type), | intent(in) | :: | convFac | conversion factors |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | iPoint | ||||
integer, | private | :: | iNeigh | ||||
integer, | private | :: | iDir | ||||
real(kind=rk), | private | :: | pos(1,3) | ||||
real(kind=rk), | private | :: | bary(3) | ||||
integer, | private | :: | neighPos | ||||
integer, | private | :: | neighPos_X | ||||
integer, | private | :: | minPos | ||||
integer, | private | :: | maxPos | ||||
integer, | private | :: | minNeigh | ||||
integer, | private | :: | maxNeigh |