load bc qVal header from lua file, qVal from qVal.lsb
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_BC_prop_type), | intent(inout) | :: | me |
Boundary condition construct to load the data into |
||
integer(kind=long_k), | intent(in) | :: | offset |
Offset of the local set of elements in the global list |
||
integer, | intent(in) | :: | nElems |
Local number of elements that have qVal |
||
character(len=*), | intent(in) | :: | basename |
Name of the file, the data is stored in, will be appended with ".lua" for the header information and ".lsb" or ".msb" for the binary data. |
||
integer, | intent(in) | :: | myPart |
Partition to load |
||
integer, | intent(in) | :: | comm |
Communicator to use |
subroutine load_tem_BC_normal( me, offset, nElems, basename, myPart, comm )
! ---------------------------------------------------------------------------
!> Boundary condition construct to load the data into
type(tem_BC_prop_type), intent(inout) :: me
!> Offset of the local set of elements in the global list
integer(kind=long_k), intent(in) :: offset
!> Local number of elements that have qVal
integer, intent(in) :: nElems
!> Name of the file, the data is stored in, will be appended with
!! ".lua" for the header information and ".lsb" or ".msb" for the
!! binary data.
character(len=*), intent(in) :: basename
!> Partition to load
integer, intent(in) :: myPart
!> Communicator to use
integer, intent(in) :: comm
! ---------------------------------------------------------------------------
! ---------------------------------------------------------------------------
call load_tem_BC_logicalHeader( nBCtypes = me%nBCtypes, &
& propName = 'hasNormal', &
& basename = basename, &
& flag_per_BC = me%hasNormal, &
& myPart = myPart, &
& comm = comm )
allocate(me%normal(3, nElems))
call load_tem_BC_realArray( offset = offset, &
& propname = 'hasNormal', &
& arraylen = 3, &
& nElems = nElems, &
& propdat = me%normal, &
& basename = basename, &
& myPart = myPart, &
& comm = comm )
end subroutine load_tem_BC_normal