load_tem_BC_qVal Subroutine

public subroutine load_tem_BC_qVal(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_qVal( 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 = 'hasQVal',     &
      &                             basename = basename,      &
      &                             flag_per_BC = me%hasQVal, &
      &                             myPart   = myPart,        &
      &                             comm     = comm           )

    allocate(me%qVal(me%nSides, nElems))

    call load_tem_BC_realArray( offset   = offset,    &
      &                         propname = 'hasQVal', &
      &                         arraylen = me%nSides, &
      &                         nElems   = nElems,    &
      &                         propdat  = me%qVal,   &
      &                         basename = basename,  &
      &                         myPart   = myPart,    &
      &                         comm     = comm       )

  end subroutine load_tem_BC_qVal