DISPATCH
dispatch.f90
1
!===============================================================================
2
!> Generic DISPATCH main program for Cartesian meshes
3
!===============================================================================
4
PROGRAM
dispatch
5
USE
setup_mod
6
USE
dispatcher_mod
7
USE
cartesian_mod
8
type(
cartesian_t
):: cartesian
! Use Cartesian patch arrangement
9
!.............................................................................
10
call
setup%init
! Standard setup (MPI, I/O, scaling, ...)
11
call
dispatcher%init
! Initialize the dispatcher
12
call
cartesian%init
! Initialize the task list
13
call
dispatcher%execute (cartesian%task_list)
! Run dispatcher on the task_list
14
call
setup%end
! End setup
15
!===============================================================================
16
END PROGRAM
dispatch
dispatcher_mod
Do not use a dispatcher, but call task_listexecute, which relies on threads handling a ready queue...
Definition:
dispatcher_mod.f90:5
cartesian_mod::cartesian_t
Definition:
cartesian_mod.f90:19
dispatch.f90
Generated by
1.8.13