Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(DGModel1D_t), | intent(inout) | :: | this | |||
character, | intent(in) | :: | fileName |
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