share/start_domain_em.int

   1       SUBROUTINE start_domain_em ( grid, allowed_to_read  &
   2 !
   3 #          include <dummy_new_args.inc>
   4 !
   5                                  )
   6          USE module_domain
   7          USE module_driver_constants
   8          TYPE(domain) , INTENT(INOUT)  :: grid
   9          LOGICAL      , INTENT(IN)     :: allowed_to_read
  10 #include <dummy_new_decl.inc>
  11       END SUBROUTINE start_domain_em
  12