Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Scalar1D_t), | intent(in) | :: | this | |||
integer(kind=HID_T), | intent(in) | :: | fileId | |||
character, | intent(in) | :: | group |
subroutine WriteHDF5_Scalar1D_t(this,fileId,group)
implicit none
class(Scalar1D_t),intent(in) :: this
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: group
! Local
integer :: ivar
call CreateGroup_HDF5(fileId,trim(group))
do ivar = 1,this%nVar
call this%meta(ivar)%WriteHDF5(group,ivar,fileId)
enddo
call WriteArray_HDF5(fileId,trim(group)//"/interior", &
this%interior)
call WriteArray_HDF5(fileId,trim(group)//"/boundary", &
this%boundary)
endsubroutine WriteHDF5_Scalar1D_t