SUBROUTINE start_domain_em ( grid & ! #include ! ) USE module_domain USE module_driver_constants ! Input data. TYPE(domain) , INTENT(INOUT) :: grid #include END SUBROUTINE start_domain_em