SUBROUTINE solve_em ( grid , config_flags & ! #include ! ) USE module_domain USE module_configure USE module_driver_constants ! Input data. TYPE(domain) , INTENT(INOUT) :: grid TYPE (grid_config_rec_type) , INTENT(IN) :: config_flags #include END SUBROUTINE solve_em