additional_data_HDF5_2D_casing Subroutine

public subroutine additional_data_HDF5_2D_casing(me, NbSteps)

Arguments

Type IntentOptional Attributes Name
type(mesh2D_t), intent(inout) :: me
integer(kind=i_64), intent(in) :: NbSteps

Calls

proc~~additional_data_hdf5_2d_casing~~CallsGraph proc~additional_data_hdf5_2d_casing 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~~additional_data_hdf5_2d_casing~~CalledByGraph proc~additional_data_hdf5_2d_casing additional_data_HDF5_2D_casing proc~close_hdf5_files close_hdf5_files proc~close_hdf5_files->proc~additional_data_hdf5_2d_casing 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 additional_data_HDF5_2D_casing(me,NbSteps)
  type(mesh2D_t),     intent(inout) :: me
  integer(i_64), intent(in) :: NbSteps

  integer(hsize_t), dimension(1) :: maxdims_nbsteps
  integer(hsize_t), dimension(1) :: dims_nbsteps
  integer(hid_t) :: nbsteps_id,nbsteps_space_id
  integer :: error

  ! NumberOfSteps
  dims_nbsteps=(/1/)
  maxdims_nbsteps=dims_nbsteps
  call h5screate_simple_f(1, dims_nbsteps, nbsteps_space_id, error, maxdims_nbsteps)
  call h5dcreate_f(me%f_id_writing, "NumberOfSteps", H5T_STD_I64LE, nbsteps_space_id, nbsteps_id, error)
  call h5dwrite_f(nbsteps_id, H5T_STD_I64LE, NbSteps+1, dims_nbsteps, error)
  call h5sclose_f(nbsteps_space_id, error)

end subroutine additional_data_HDF5_2D_casing