Read_DGModel1D_t Subroutine

  1. SELF_DGModel1D_t.f90
  2. SELF_DGModel1D_t
  3. Read_DGModel1D_t

public subroutine Read_DGModel1D_t(this, fileName)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D_t), intent(inout) :: this
character, intent(in) :: fileName

Contents

Source Code

Read_DGModel1D_t

Source Code

  subroutine Read_DGModel1D_t(this,fileName)
    implicit none
    class(DGModel1D_t),intent(inout) :: this
    character(*),intent(in) :: fileName
    ! Local
    integer(HID_T) :: fileId
    integer(HID_T) :: solOffset(1:3)
    integer :: firstElem
    integer :: N

    call Open_HDF5(fileName,H5F_ACC_RDWR_F,fileId)
    call ReadArray_HDF5(fileId,'/controlgrid/solution/interior',this%solution%interior)
    call Close_HDF5(fileId)
    call this%solution%UpdateDevice()

  endsubroutine Read_DGModel1D_t