subroutine WriteHDF5_Vector3D_t(this,fileId,group)
implicit none
class(Vector3D_t),intent(in) :: this
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: group
! Local
integer :: ivar,idir
character(4) :: dimvar
call CreateGroup_HDF5(fileId,trim(group))
do ivar = 1,this%nVar
call this%meta(ivar)%WriteHDF5(group,ivar,fileId)
enddo
do idir = 1,3
write(dimvar,'(I1)') idir
dimvar = "dim"//trim(dimvar)
do ivar = 1,this%nVar
call WriteArray_HDF5(fileId, &
trim(group)//"/"//trim(this%meta(ivar)%name)//"_"//dimvar, &
this%interior(:,:,:,:,ivar,idir))
enddo
enddo
endsubroutine WriteHDF5_Vector3D_t