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

skeleton for cells extraction

parent 44258367
!------------------------------------------------------------------------------------------------------------------------------------
! Copyright 2020 Fabrice Roy
!
! Contact: fabrice.roy@obspm.fr
!
! This file is part of pFoF.
!
! pFoF is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! pFoF is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with pFoF. If not, see <http://www.gnu.org/licenses/>.
!> @file
!! Extract cells from cells HDF5 files given a position and a radius
!! @brief
!!
!! @author Fabrice Roy
!> Extract cells from cells HDF5 files given a position and a radius
!------------------------------------------------------------------------------------------------------------------------------------
module extract_cells_m
use common_shared_variables_m
use iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT
implicit none
private
public :: extract_cells
contains
!------------------------------------------------------------------------------------------------------------------------------------
subroutine extract_cells(center, radius, parameters)
use add_cells_to_halos_parameters_m
real(kind=4), dimension(3), intent(in) :: center
real(kind=4), intent(in) :: radius
type(add_cells_to_halos_parameters_t) :: parameters
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'extract_cells begins on process', mpi_process%rank
#endif
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'extract_cells ends on process', mpi_process%rank
#endif
end subroutine extract_cells
end module extract_cells_m
\ No newline at end of file
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