Skip to content

Recreated: Debug/updates for hdf5 routines #1825

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
danielpeter merged 3 commits into from
Jul 28, 2025
Merged

Recreated: Debug/updates for hdf5 routines #1825

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
e75c637
Merge branch 'hdf5_update' into devel
mnagaso Jul 28, 2025
4f8b299
Fix: Remove invalid h5tset_size_f call for integer attributes in h5_a…
mnagaso Jul 28, 2025
4ee070d
Merge branch 'devel' into hdf5_update
mnagaso Jul 28, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 0 additions & 3 deletions src/shared/hdf5_manager.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1506,9 +1506,6 @@ subroutine h5_add_attribute_i(attribute_name, data)
call h5tcopy_f(H5T_NATIVE_INTEGER, atype_id, error) ! for a string tag of attribute value
if (error /= 0) write(*,*) 'hdf5 tcopy failed for attribute, ', attribute_name
call check_error()
call h5tset_size_f(atype_id, taglen, error)
if (error /= 0) write(*,*) 'hdf5 set_size failed for attribute, ', attribute_name
call check_error()
! here the attribute is written on the current openning dataset
call h5acreate_f(dataset_id, trim(attribute_name), atype_id, aspace_id, attr_id, error)
if (error /= 0) write(*,*) 'hdf5 acreate failed for attribute, ', attribute_name
Expand Down
6 changes: 6 additions & 0 deletions src/tomography/postprocess_sensitivity_kernels/smooth_sem_pde.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -53,6 +53,7 @@ program smooth_sem_pde
nspec_inner_elastic,nspec_outer_elastic,phase_ispec_inner_elastic
!use specfem_par_acoustic, only: ispec_is_acoustic, nspec_acoustic
!use specfem_par_poroelastic, only: ispec_is_poroelastic

use pml_par, only: is_CPML, NSPEC_CPML, CPML_to_spec

implicit none
Expand Down Expand Up @@ -369,6 +370,7 @@ program smooth_sem_pde
enddo;enddo;enddo
enddo
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ddat_glob(:) = 0.0

if (USE_GPU .and. GPU_MODE) then
Expand Down Expand Up @@ -424,6 +426,7 @@ program smooth_sem_pde
else
num_elements = nspec_inner_elastic
endif

if (USE_GPU .and. GPU_MODE) then
call compute_update_element_smooth_pde_gpu(Mesh_pointer, &
Smooth_container, &
Expand Down Expand Up @@ -849,6 +852,9 @@ subroutine assemble_MPI_send_smooth(NPROC,NGLOB_AB, &

end subroutine assemble_MPI_send_smooth

!
!-------------------------------------------------------------------------------------------------
!

subroutine assemble_MPI_send_smooth_cuda(NPROC,&
buffer_send_vector_ext_mesh_smooth, &
Expand Down
Loading