Merge pull request #1825 from mnagaso/hdf5_update

 Recreated: Debug/updates for hdf5 routines

Author: danielpeter

src/shared/hdf5_manager.F90

@@ -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

src/tomography/postprocess_sensitivity_kernels/smooth_sem_pde.F90

@@ -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
@@ -369,6 +370,7 @@ program smooth_sem_pde
     enddo;enddo;enddo
   enddo
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
   ddat_glob(:) = 0.0
 
   if (USE_GPU .and. GPU_MODE) then 
@@ -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, &
@@ -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, &