Commit 0b059387 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

test modifications and updates

parent 286b1f19
......@@ -97,9 +97,12 @@ SRC = constants_m.F90 \
pfof_snap_parameters_m.F90 \
common_metadata_m.F90 \
ramses_info_m.F90 \
mpi_communicator_m.F90 \
particles_cube_m.F90 \
read_hdf5_particles_cube_sm.F90 \
read_ramses_part_file_m.F90 \
read_ramses_particles_cube_sm.F90 \
print_credits_m.F90 \
mpi_communicator_m.F90 \
pfof_snap.F90
OBJS=$(SRC:%.F90=%.o)
......
......@@ -69,16 +69,14 @@ program Pfof_snap
end if
! Read parameters
!call Init_parameters()
call parameters%Read()
! Print parameters on screen
if(mpi_process%rank==0) then
!call Print_screen_parameters()
call parameters%Write(OUTPUT_UNIT)
end if
! Creates the different communicators used for the analysis and the // I/O
! Creates the different communicators used for the analysis and the parallel I/O
call Build_mpi_process_cart(mpi_process, parameters)
! Initialize HDF5 interface
......
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