Commit e6188e1b authored by Roy Fabrice's avatar Roy Fabrice
Browse files

test without hdf5 i/o

parent 7f1990eb
......@@ -41,7 +41,8 @@ module particles_cube_m
public :: particles_cube_t
type particles_cube_t
integer(INT32) :: groups_number
integer(INT32) :: groups_number
! number of groups when the particles are sorted in the cube
integer(INT32), allocatable, dimension(:) :: particles_number_per_group
integer(INT32) :: process_particles_number !< local dark matter particles number
integer(INT32) :: process_stars_number !< local stars number
......@@ -56,46 +57,47 @@ module particles_cube_m
contains
procedure :: Read => Read_particles_cube
procedure, private :: Read_ramses => Read_ramses_particles_cube
procedure, private :: Read_hdf5 => Read_hdf5_particles_cube
procedure, private :: Read_hdf5_unsorted_particles_cube
procedure, private :: Read_hdf5_sorted_particles_cube
procedure, private :: Read_hdf5_unsorted_particles_mpi_cube
procedure, private :: Read_hdf5_sorted_particles_mpi_cube
! procedure, private :: Read_hdf5 => Read_hdf5_particles_cube
! procedure, private :: Read_hdf5_unsorted_particles_cube
! procedure, private :: Read_hdf5_sorted_particles_cube
! procedure, private :: Read_hdf5_unsorted_particles_mpi_cube
! procedure, private :: Read_hdf5_sorted_particles_mpi_cube
! add write procedures
end type particles_cube_t
interface
module subroutine Read_hdf5_particles_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
end subroutine Read_hdf5_particles_cube
module subroutine Read_hdf5_sorted_particles_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
end subroutine Read_hdf5_sorted_particles_cube
module subroutine Read_hdf5_unsorted_particles_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
end subroutine Read_hdf5_unsorted_particles_cube
module subroutine Read_hdf5_sorted_particles_mpi_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
end subroutine Read_hdf5_sorted_particles_mpi_cube
module subroutine Read_hdf5_unsorted_particles_mpi_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
end subroutine Read_hdf5_unsorted_particles_mpi_cube
end interface
! interface
! module subroutine Read_hdf5_particles_cube(this, parameters)
! use pfof_parameters_m, only : p_parameters_t
! class(particles_cube_t), intent(out) :: this
! class(pfof_parameters_t), intent(in) :: parameters
! end subroutine Read_hdf5_particles_cube
! module subroutine Read_hdf5_sorted_particles_cube(this, parameters)
! use pfof_parameters_m, only : pfof_parameters_t
! class(particles_cube_t), intent(out) :: this
! class(pfof_parameters_t), intent(in) :: parameters
! end subroutine Read_hdf5_sorted_particles_cube
! module subroutine Read_hdf5_unsorted_particles_cube(this, parameters)
! use pfof_parameters_m, only : pfof_parameters_t
! class(particles_cube_t), intent(out) :: this
! class(pfof_parameters_t), intent(in) :: parameters
! end subroutine Read_hdf5_unsorted_particles_cube
! module subroutine Read_hdf5_sorted_particles_mpi_cube(this, parameters)
! use pfof_parameters_m, only : pfof_parameters_t
! class(particles_cube_t), intent(out) :: this
! class(pfof_parameters_t), intent(in) :: parameters
! end subroutine Read_hdf5_sorted_particles_mpi_cube
! module subroutine Read_hdf5_unsorted_particles_mpi_cube(this, parameters)
! use pfof_parameters_m, only : pfof_parameters_t
! class(particles_cube_t), intent(out) :: this
! class(pfof_parameters_t), intent(in) :: parameters
! end subroutine Read_hdf5_unsorted_particles_mpi_cube
! end interface
interface
module subroutine Read_ramses_particles_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
use p2ch_parameters_m, only : p2ch_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
class(p2ch_parameters_t), intent(in) :: parameters
end subroutine Read_ramses_particles_cube
module subroutine Distribute_ramses_particles_cube(id_array, id_array_inv)
integer(kind=4), intent(inout), dimension(*) :: id_array
......@@ -115,10 +117,10 @@ contains
!> @param[in] parameters : parameters of the run
subroutine Read_particles_cube(this, parameters)
use pfof_parameters_m, only : pfof_parameters_t
use p2ch_parameters_m, only : p2ch_parameters_t
class(particles_cube_t), intent(out) :: this
class(pfof_parameters_t), intent(in) :: parameters
class(p2ch_parameters_t), intent(in) :: parameters
character(*), parameter :: ROUTINE_NAME = 'Read_particles_cube'
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment