share/solve_em.int

   1 SUBROUTINE solve_em      ( grid , config_flags     &
   2 !
   3 #include <dummy_new_args.inc>
   4 !
   5                  )
   6
   7    USE module_domain
   8    USE module_configure
   9    USE module_driver_constants
  10
  11    !  Input data.
  12    TYPE(domain) , INTENT(INOUT)                  :: grid
  13    TYPE (grid_config_rec_type) , INTENT(IN)      :: config_flags
  14
  15 #include <dummy_new_decl.inc>
  16
  17 END SUBROUTINE solve_em
  18