Subroutine that terminates the simulation.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | errorcode |
subroutine korc_abort(errorcode)
!! @note Subroutine that terminates the simulation. @endnote
INTEGER,INTENT(IN) :: errorcode
INTEGER :: mpierr
!! MPI error status
!! 11: korc_hpc:set_paths
!! 12: korc_experimental:get_Hollmann_distribution
!! 13: korc_input:read_namelist
!! 14: korc_hpc:load_particle_ic
!! 15: korc_interp:interp_fields
!! 16: korc_interp:interp_profiles
!! 17: korc_fields:mean_F_field
!! 18: korc_fields:initialize_fields
!! 19: korc_spatial_distribution:initial_spatial_distribution
!! 20: korc_experimental_pdf:load_data_from_hdf5
!! 21: korc_interp:get_fio_ion_p
!! 22: korc_fio_interface:initialize_nimrod
!! 23: korc_interp:check_if_in_fields_domain
!! 24: korc_collisions:large_angle_source
!! 25: korc_ppusher:adv_GCinterp_psiwE_top
!! 26: korc_collisions:define_collisions_time_step
flush(output_unit_write)
!call MPI_BARRIER(MPI_COMM_WORLD,mpierr)
call MPI_ABORT(MPI_COMM_WORLD, errorcode, mpierr)
end subroutine korc_abort