WriteHDF5_Scalar3D_t Subroutine

  subroutine WriteHDF5_Scalar3D_t(this,fileId,group)
    implicit none
    class(Scalar3D_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)
      call WriteArray_HDF5(fileId, &
                           trim(group)//trim(this%meta(ivar)%name), &
                           this%interior(:,:,:,:,ivar))
    enddo

  endsubroutine WriteHDF5_Scalar3D_t