Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(tem_varSys_op_type), | intent(in) | :: | fun |
Description of the method to obtain the variables, here some preset values might be stored, like the space time function to use or the required variables. |
||
type(tem_varSys_type), | intent(in) | :: | varSys |
The variable system to obtain the variable from. |
||
real(kind=rk), | intent(in) | :: | point(:,:) |
List of space coordinate points to store as growing array in method_data |
||
character, | intent(in), | optional | :: | offset_bit(:) |
Offset bit encoded as character for every point. Offset integer coord(3) is converted into a character with offset_bit = achar( (coord(1)+1) + (coord(2)+1)4 + (coord(3)+1)16 ) Backward transformation form character to 3 integer: coord(1) = mod(ichar(offset_bit),4) - 1 coord(2) = mod(ichar(offset_bit),16)/4 - 1 coord(3) = ichar(offset_bit)/16 - 1 If not present default is to center i.e offset_bit = achar(1+4+16) |
|
integer, | intent(in) | :: | iLevel |
Level to which input points belong to |
||
type(treelmesh_type), | intent(in) | :: | tree |
global treelm mesh info |
||
integer, | intent(in) | :: | nPnts |
Number of points to add in method_data of this variable |
||
integer, | intent(out) | :: | idx(:) |
Index of points in the growing array and variable val array. Size: n This must be stored in boundary or source depends on who calls this routine. This index is required to return a value using getValOfIndex. |
subroutine tem_varSys_setupIndices_dummy(fun, varSys, point, offset_bit, &
& iLevel, tree, nPnts, idx)
!> Description of the method to obtain the variables, here some preset
!! values might be stored, like the space time function to use or the
!! required variables.
class(tem_varSys_op_type), intent(in) :: fun
!> The variable system to obtain the variable from.
type(tem_varSys_type), intent(in) :: varSys
!> List of space coordinate points to store as growing array in
!! method_data
real(kind=rk), intent(in) :: point(:,:)
!> Offset bit encoded as character for every point.
!!
!! Offset integer coord(3) is converted into a character with
!! offset_bit = achar( (coord(1)+1) + (coord(2)+1)*4 + (coord(3)+1)*16 )
!! Backward transformation form character to 3 integer:
!! coord(1) = mod(ichar(offset_bit),4) - 1
!! coord(2) = mod(ichar(offset_bit),16)/4 - 1
!! coord(3) = ichar(offset_bit)/16 - 1
!!
!! If not present default is to center i.e offset_bit = achar(1+4+16)
character, optional, intent(in) :: offset_bit(:)
!> Level to which input points belong to
integer, intent(in) :: iLevel
!> global treelm mesh info
type(treelmesh_type), intent(in) :: tree
!> Number of points to add in method_data of this variable
integer, intent(in) :: nPnts
!> Index of points in the growing array and variable val array.
!! Size: n
!!
!! This must be stored in boundary or source depends on who
!! calls this routine.
!! This index is required to return a value using getValOfIndex.
integer, intent(out) :: idx(:)
write(*,*) 'point(1,1):', point(1,1)
if (present(offset_bit)) write(*,*) 'offset_bit(1):', offset_bit(1)
write(*,*) 'iLevel:', iLevel
write(*,*) 'tree%nElems:', tree%nElems
write(*,*) 'nPnts:', nPnts
idx = 0
call tem_abort('Not implemented for '//trim(varSys%varName%val(fun%myPos)) &
& //':is dummy setupIndices')
end subroutine tem_varSys_setupIndices_dummy