Commit 6b3e4635 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

replace modhdf5 with fhi

build ok
parent b6219c89
......@@ -160,11 +160,14 @@ contains
subroutine H5read_halo_dm_data(info_proc, filename, position_part, velocity_part, identity_part,&
mass_part, potential_part, field_part, parameter_pfof, info_ramses, info_cone)
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_files_m, only : hdf5_close_file, hdf5_open_file
use fortran_hdf5_manage_groups_m, only : hdf5_close_group, hdf5_open_group
use fortran_hdf5_read_attribute_m
use fortran_hdf5_read_data_m
use iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT
use modconstant, only : ERR_MSG_LEN, IDKIND, &
type_common_metadata, type_parameter_pfof, type_info_ramses, type_info_cone_part
use modhdf5, only : H5_FILENAME_LEN, HID_T, H5_STR_LEN, Hdf5_open_file, Hdf5_open_group, Hdf5_close_group,&
Hdf5_read_data, Hdf5_close_file
use modmpicommons, only : type_info_process
use modreadmeta, only : Read_meta_common, &
Read_meta_halofinder_parameter, &
......
include ../../Make.inc
EXE = pfof_snap
EXE = pfof_snap.exe
COMMONDIR = ../../common/src/
OBJDIR=../../obj/
MODDIR=../../mod/
VPATH= $(COMMONDIR):.
SRC = modhdf5.f90 \
modconstant.f90 \
mpi_process_m.f90 \
SRC = modconstant.f90 \
type_info_ramses_mod.f90\
modmpicommons.f90 \
modindex.f90 \
......
......@@ -38,9 +38,6 @@ module modwritestarcube
use fortran_hdf5_write_data_m
use fortran_hdf5_write_mpi_data_m
use hdf5, only : HID_T
! use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, hdf5_close_file, hdf5_close_group, hdf5_close_mpi_file, &
! hdf5_create_file, hdf5_create_group, hdf5_create_mpi_file, &
! hdf5_open_group, hdf5_write_attr, hdf5_write_data, hdf5_write_mpi_data, HID_T
use modmpicom, only : info_proc
use modvariables, only : inforamses, param, xmax, xmin, ymax, ymin, zmax, zmin
use modmpicommons, only : procid, procnb
......
......@@ -29,8 +29,7 @@ program Friend
use fortran_hdf5_manage_interface_m, only : hdf5_finalize, hdf5_init
use modio, only : Print_screen_parameters, Init_parameters, Read_ramses, The_end, Title, Write_timings
use modmpicom, only : Setcommunicators
! use modmpicommons, only : Emergencystop, procid, procnb
use shared_variables_m
use modmpicommons, only : Emergencystop, procid, procnb
use modreadcube, only : Readcube, Selectreadcubetype
use modtiming, only : tfof, tfofinit, tfofloc, timeint, tobs, tout, traccord, tread, treadfile
use modvarcommons, only : nres
......@@ -38,7 +37,7 @@ program Friend
use modwritedmcube, only : Selectwritedmcube, Writedmcube
use modwritestarcube, only : Selectwritestarcube, Writestarcube
use mpi
use select_dm_m, only : Select_dm_particles
use select_dm_mod, only : Select_dm_particles
implicit none
......
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