solve_interface_tl.F

1 !WRF:MEDIATION_LAYER:ADT_BARRIER
2 !
3 
4 SUBROUTINE solve_interface_tl ( grid ) 
5 
6    USE module_domain
7    USE module_timing
8    USE module_driver_constants
9    USE module_configure
10    USE module_wrf_error
11 
12    IMPLICIT NONE
13 
14    INTERFACE
15 #if (EM_CORE == 1 && DA_CORE != 1)
16 # include  <solve_em_tl.int>
17 #endif
18 #if (NMM_CORE == 1)
19 # include  <solve_nmm.int>
20 #endif
21 #if (COAMPS_CORE == 1)
22 # include  <solve_coamps.int>
23 #endif
24 #if (EXP_CORE == 1)
25 # include  <solve_exp.int>
26 #endif
27    END INTERFACE
28 
29    TYPE(domain) , INTENT(INOUT)  :: grid
30    TYPE (grid_config_rec_type)   :: config_flags
31 
32    INTEGER     :: idum1, idum2
33 
34 #ifdef DEREF_KLUDGE
35    INTEGER     :: sm31 , em31 , sm32 , em32 , sm33 , em33
36    INTEGER     :: sm31x, em31x, sm32x, em32x, sm33x, em33x
37    INTEGER     :: sm31y, em31y, sm32y, em32y, sm33y, em33y
38 #endif
39 
40    CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags )
41    CALL set_scalar_indices_from_config ( grid%id , idum1 , idum2 )
42 
43 #include "deref_kludge.h"
44 
45    IF ( .FALSE.                         ) THEN
46 
47 #if (EM_CORE == 1 && DA_CORE != 1)
48    ELSE IF ( config_flags%dyn_opt == DYN_EM_TL ) THEN
49      CALL solve_em_tl ( grid , config_flags , &
50 !
51 # include <em_actual_args.inc>
52 !
53                )
54 
55 # ifdef WRF_CHEM
56    IF ( config_flags%chem_opt == RADM2  ) THEN
57      CALL chem_driver  ( grid , config_flags , &
58 !
59 # include <em_actual_args.inc>
60 !
61                )
62    ENDIF
63    IF ( config_flags%chem_opt == RADM2SORG ) THEN
64      CALL chem_driver  ( grid , config_flags , &
65 !
66 # include <em_actual_args.inc>
67 !
68                )
69    ENDIF
70 # endif
71 #endif
72 #if (NMM_CORE == 1)
73    ELSE IF ( config_flags%dyn_opt == DYN_NMM  ) THEN
74      CALL solve_nmm  ( grid , config_flags , &
75 !
76 # include <nmm_actual_args.inc>
77 !
78                )
79 #endif
80 #if (COAMPS_CORE == 1)
81    ELSE IF ( config_flags%dyn_opt == DYN_COAMPS  ) THEN
82      CALL solve_coamps  ( grid , config_flags , &
83 !
84 # include <coamps_actual_args.inc>
85 !
86                )
87 #endif
88 
89 ! ###### 4. Edit share/solve_interface.F to add call to experimental core
90 
91 #if (EXP_CORE == 1)
92    ELSE IF ( config_flags%dyn_opt == DYN_EXP  ) THEN
93      CALL solve_exp  ( grid ,            &
94 !
95 # include <exp_actual_args.inc>
96 !
97                )
98 #endif
99 
100    ELSE
101 
102      WRITE( wrf_err_message , * ) 'Invalid dynamics option: dyn_opt = ',config_flags%dyn_opt
103      CALL wrf_error_fatal ( TRIM ( wrf_err_message ) )
104      
105    END IF
106 
107 END SUBROUTINE solve_interface_tl
108