DISPATCH
dispatch.f90
1 !===============================================================================
2 !> Generic DISPATCH main program for Cartesian meshes
3 !===============================================================================
4 PROGRAM dispatch
5  USE setup_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
Do not use a dispatcher, but call task_listexecute, which relies on threads handling a ready queue...