1 !WRF:MEDIATION_LAYER:ADT_BARRIER
4 SUBROUTINE solve_interface ( grid )
8 USE module_driver_constants
15 #if (EM_CORE == 1 && DA_CORE != 1)
16 # include <solve_em.int>
19 # include <solve_nmm.int>
21 #if (COAMPS_CORE == 1)
22 # include <solve_coamps.int>
25 # include <solve_exp.int>
29 TYPE(domain) , INTENT(INOUT) :: grid
30 TYPE (grid_config_rec_type) :: config_flags
32 INTEGER :: idum1, idum2
34 CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags )
35 CALL set_scalar_indices_from_config ( grid%id , idum1 , idum2 )
37 #if (EM_CORE == 1 && DA_CORE != 1)
38 CALL solve_em ( grid , config_flags &
40 # include <actual_new_args.inc>
45 IF ( config_flags%chem_opt > 0 ) THEN
47 CALL chem_driver ( grid , config_flags &
49 # include <actual_new_args.inc>
56 CALL solve_nmm ( grid , config_flags &
58 # include <actual_new_args.inc>
62 IF ( config_flags%chem_opt > 0 ) THEN
64 CALL chem_driver ( grid , config_flags &
66 # include <actual_new_args.inc>
72 #if (COAMPS_CORE == 1)
73 CALL solve_coamps ( grid , config_flags &
75 # include <actual_new_args.inc>
80 ! ###### 4. Edit share/solve_interface.F to add call to experimental core
83 CALL solve_exp ( grid &
85 # include <exp_actual_args.inc>
90 END SUBROUTINE solve_interface