! Initialise OpenACC...
#ifdef _OPENACC
  call initialisation_openacc
#endif
! ... before initialising MPI
  call mpi_init(code)