close_hdf5_files Subroutine

subroutine close_hdf5_files()

Arguments

None

Calls

proc~~close_hdf5_files~~CallsGraph proc~close_hdf5_files close_hdf5_files h5fclose_f h5fclose_f proc~close_hdf5_files->h5fclose_f proc~additional_data_hdf5_2d_casing additional_data_HDF5_2D_casing proc~close_hdf5_files->proc~additional_data_hdf5_2d_casing h5dcreate_f h5dcreate_f proc~additional_data_hdf5_2d_casing->h5dcreate_f h5dwrite_f h5dwrite_f proc~additional_data_hdf5_2d_casing->h5dwrite_f h5sclose_f h5sclose_f proc~additional_data_hdf5_2d_casing->h5sclose_f h5screate_simple_f h5screate_simple_f proc~additional_data_hdf5_2d_casing->h5screate_simple_f

Called by

proc~~close_hdf5_files~~CalledByGraph proc~close_hdf5_files close_hdf5_files proc~handle_numerical_error handle_numerical_error proc~handle_numerical_error->proc~close_hdf5_files program~reims_p reims_p program~reims_p->proc~close_hdf5_files proc~main_loop main_loop program~reims_p->proc~main_loop proc~main_loop->proc~handle_numerical_error

Source Code

subroutine close_hdf5_files()
    integer :: j
    if(h5%write_results2D) then
        do j = 1, size(mesh2Ds)
            call additional_data_HDF5_2D_casing(mesh2Ds(j),step2D)
            call h5fclose_f(mesh2Ds(j)%f_id_writing, error)
        enddo
    endif
    call h5%close()
end subroutine close_hdf5_files