load_tem_BC_normal Subroutine

public subroutine load_tem_BC_normal(me, offset, nElems, basename, myPart, comm)

load bc qVal header from lua file, qVal from qVal.lsb

Arguments

Type IntentOptional 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

Source Code

  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