SUBROUTINE a_start_domain_em ( grid, allowed_to_read & ! # include ! ) USE module_domain USE module_driver_constants TYPE(domain) , INTENT(INOUT) :: grid LOGICAL , INTENT(IN) :: allowed_to_read #include END SUBROUTINE a_start_domain_em