Commit 425d8d2a authored by Roy Fabrice's avatar Roy Fabrice
Browse files

add some uses and calls

parent 33fc43dc
......@@ -28,18 +28,43 @@
!------------------------------------------------------------------------------------------------------------------------------------
program add_cells_to_halos
use common_shared_variables
use add_cells_to_halos_parameters_m
use add_cells_m
use common_shared_variables_m
use halos_array_m
use iso_fortran_env, only : ERROR_UNIT
use fortran_hdf5_manage_interface_m
use mpi
use mpi_process_m
implicit none
type(halos_array_t) :: halos_array
integer :: mpierr
type(add_cells_to_halos_parameters_t) :: parameters
integer :: thread_provided
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'add_cells_to_halos begins'
#endif
call mpi_init_thread(MPI_THREAD_FUNNELED, thread_provided, mpierr)
call mpi_process%Init()
! initialize mpi and hdf5
call mpi_init_thread(MPI_THREAD_FUNNELED, thread_provided, mpierr)
call mpi_process%Init()
call hdf5_init()
! read parameters
call parameters%Read()
! initialize halos_array
call halos_array%Init(parameters)
! process list of halos
call add_cells(halos_array, parameters)
! finalize hdf5 and mpi
call hdf5_finalize()
call mpi_finalize(mpierr)
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'add_cells_to_halos ends'
......
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