!WRF:MEDIATION_LAYER:ADT_BARRIER
!


SUBROUTINE solve_interface ( grid )  1,10

   USE module_domain
   USE module_timing
   USE module_driver_constants
   USE module_configure
   USE module_wrf_error

   IMPLICIT NONE

   INTERFACE
#include  <solve_eh.int>
#include  <solve_em.int>
   END INTERFACE

   TYPE(domain) , INTENT(INOUT)  :: grid
   TYPE (grid_config_rec_type)   :: config_flags

   INTEGER     :: idum1, idum2

#ifdef DEREF_KLUDGE
   INTEGER     :: sm31 , em31 , sm32 , em32 , sm33 , em33
   INTEGER     :: sm31x, em31x, sm32x, em32x, sm33x, em33x
   INTEGER     :: sm31y, em31y, sm32y, em32y, sm33y, em33y
#endif

   CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags )
   CALL set_scalar_indices_from_config ( grid%id , idum1 , idum2 )

#ifdef DEREF_KLUDGE
   sm31             = grid%sm31
   em31             = grid%em31
   sm32             = grid%sm32
   em32             = grid%em32
   sm33             = grid%sm33
   em33             = grid%em33
   sm31x            = grid%sm31x
   em31x            = grid%em31x
   sm32x            = grid%sm32x
   em32x            = grid%em32x
   sm33x            = grid%sm33x
   em33x            = grid%em33x
   sm31y            = grid%sm31y
   em31y            = grid%em31y
   sm32y            = grid%sm32y
   em32y            = grid%em32y
   sm33y            = grid%sm33y
   em33y            = grid%em33y
#endif

   IF ( config_flags%dyn_opt == DYN_EH  ) THEN

     CALL solve_eh  ( grid , config_flags , &
!
#include <eh_actual_args.inc>
!
               )
   ELSE IF ( config_flags%dyn_opt == DYN_EM  ) THEN

     CALL solve_em  ( grid , config_flags , &
!
#include <em_actual_args.inc>
!
               )

! ###### 4. Edit share/solve_interface.F to add call to experimental core

   ELSE IF ( config_flags%dyn_opt == DYN_EXP  ) THEN

     CALL solve_exp  ( grid ,            &
!
#include <exp_actual_args.inc>
!
               )

   ELSE

     WRITE( wrf_err_message , * ) 'Invalid dynamics option: dyn_opt = ',config_flags%dyn_opt
     CALL wrf_error_fatal ( TRIM ( wrf_err_message ) )
     
   END IF

   grid%total_time_steps = grid%total_time_steps + 1

END SUBROUTINE solve_interface