This routine calculates the surface velocity for all local xk.
| 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  | 
||
| type(tem_levelDesc_type), | intent(in) | :: | levelDesc | level descriptor incl. ghost and fluid elements  | 
||
| type(tem_general_type), | intent(in) | :: | general | general info  | 
||
| integer | :: | iLevel | the current level  | 
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | iPoint | ||||
| real(kind=rk), | private | :: | pos(1,3) | ||||
| integer, | private | :: | minPos | ||||
| integer, | private | :: | maxPos | ||||
| real(kind=rk), | private | :: | vel(1,3) |