subroutine Write_Mesh1D(this,meshFile)
! Writes mesh output in HOPR format (serial IO only)
implicit none
class(Mesh1D),intent(inout) :: this
character(*),intent(in) :: meshFile
! Local
integer(HID_T) :: fileId
call Open_HDF5(meshFile,H5F_ACC_RDWR_F,fileId)
call WriteAttribute_HDF5(fileId,'nElems',this%nElem)
call WriteAttribute_HDF5(fileId,'Ngeo',this%nGeo)
call WriteAttribute_HDF5(fileId,'nBCs',this%nBCs)
call WriteArray_HDF5(fileId,'BCType',this%bcType)
! Read local subarray of ElemInfo
call WriteArray_HDF5(fileId,'ElemInfo',this%elemInfo)
! Read local subarray of NodeCoords and GlobalNodeIDs
call WriteArray_HDF5(fileId,'NodeCoords',this%nodeCoords)
call WriteArray_HDF5(fileId,'GlobalNodeIDs',this%globalNodeIDs)
call Close_HDF5(fileID)
endsubroutine Write_Mesh1D