config_reads.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/config_reads.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 ! Contains namelist statements for module_config.F.
8 #ifndef NAMELIST_READ_UNIT
9 # define NAMELIST_READ_UNIT nml_read_unit
10 #endif
11 #ifndef NAMELIST_WRITE_UNIT
12 # define NAMELIST_WRITE_UNIT nml_write_unit
13 #endif
14 !
15 nml_read_error = .FALSE.
16 NML_LOOP : DO i=1,30
17 REWIND ( UNIT = NAMELIST_READ_UNIT )
18 SELECT CASE ( i )
19 CASE ( 1 )
20 nml_name = "wrfvar1"
21 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar1 , ERR=9201, END=9202 )
22 #ifndef NO_NAMELIST_PRINT
23 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar1 )
24 #endif
25 CYCLE NML_LOOP
26 CASE ( 2 )
27 nml_name = "wrfvar2"
28 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar2 , ERR=9201, END=9202 )
29 #ifndef NO_NAMELIST_PRINT
30 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar2 )
31 #endif
32 CYCLE NML_LOOP
33 CASE ( 3 )
34 nml_name = "wrfvar3"
35 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar3 , ERR=9201, END=9202 )
36 #ifndef NO_NAMELIST_PRINT
37 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar3 )
38 #endif
39 CYCLE NML_LOOP
40 CASE ( 4 )
41 nml_name = "wrfvar4"
42 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar4 , ERR=9201, END=9202 )
43 #ifndef NO_NAMELIST_PRINT
44 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar4 )
45 #endif
46 CYCLE NML_LOOP
47 CASE ( 5 )
48 nml_name = "wrfvar5"
49 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar5 , ERR=9201, END=9202 )
50 #ifndef NO_NAMELIST_PRINT
51 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar5 )
52 #endif
53 CYCLE NML_LOOP
54 CASE ( 6 )
55 nml_name = "wrfvar6"
56 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar6 , ERR=9201, END=9202 )
57 #ifndef NO_NAMELIST_PRINT
58 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar6 )
59 #endif
60 CYCLE NML_LOOP
61 CASE ( 7 )
62 nml_name = "wrfvar7"
63 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar7 , ERR=9201, END=9202 )
64 #ifndef NO_NAMELIST_PRINT
65 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar7 )
66 #endif
67 CYCLE NML_LOOP
68 CASE ( 8 )
69 nml_name = "wrfvar8"
70 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar8 , ERR=9201, END=9202 )
71 #ifndef NO_NAMELIST_PRINT
72 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar8 )
73 #endif
74 CYCLE NML_LOOP
75 CASE ( 9 )
76 nml_name = "wrfvar9"
77 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar9 , ERR=9201, END=9202 )
78 #ifndef NO_NAMELIST_PRINT
79 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar9 )
80 #endif
81 CYCLE NML_LOOP
82 CASE ( 10 )
83 nml_name = "wrfvar10"
84 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar10 , ERR=9201, END=9202 )
85 #ifndef NO_NAMELIST_PRINT
86 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar10 )
87 #endif
88 CYCLE NML_LOOP
89 CASE ( 11 )
90 nml_name = "wrfvar11"
91 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar11 , ERR=9201, END=9202 )
92 #ifndef NO_NAMELIST_PRINT
93 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar11 )
94 #endif
95 CYCLE NML_LOOP
96 CASE ( 12 )
97 nml_name = "wrfvar12"
98 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar12 , ERR=9201, END=9202 )
99 #ifndef NO_NAMELIST_PRINT
100 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar12 )
101 #endif
102 CYCLE NML_LOOP
103 CASE ( 13 )
104 nml_name = "wrfvar13"
105 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar13 , ERR=9201, END=9202 )
106 #ifndef NO_NAMELIST_PRINT
107 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar13 )
108 #endif
109 CYCLE NML_LOOP
110 CASE ( 14 )
111 nml_name = "wrfvar14"
112 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar14 , ERR=9201, END=9202 )
113 #ifndef NO_NAMELIST_PRINT
114 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar14 )
115 #endif
116 CYCLE NML_LOOP
117 CASE ( 15 )
118 nml_name = "wrfvar15"
119 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar15 , ERR=9201, END=9202 )
120 #ifndef NO_NAMELIST_PRINT
121 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar15 )
122 #endif
123 CYCLE NML_LOOP
124 CASE ( 16 )
125 nml_name = "wrfvar16"
126 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar16 , ERR=9201, END=9202 )
127 #ifndef NO_NAMELIST_PRINT
128 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar16 )
129 #endif
130 CYCLE NML_LOOP
131 CASE ( 17 )
132 nml_name = "wrfvar17"
133 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar17 , ERR=9201, END=9202 )
134 #ifndef NO_NAMELIST_PRINT
135 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar17 )
136 #endif
137 CYCLE NML_LOOP
138 CASE ( 18 )
139 nml_name = "wrfvar18"
140 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar18 , ERR=9201, END=9202 )
141 #ifndef NO_NAMELIST_PRINT
142 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar18 )
143 #endif
144 CYCLE NML_LOOP
145 CASE ( 19 )
146 nml_name = "wrfvar19"
147 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar19 , ERR=9201, END=9202 )
148 #ifndef NO_NAMELIST_PRINT
149 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar19 )
150 #endif
151 CYCLE NML_LOOP
152 CASE ( 20 )
153 nml_name = "wrfvar20"
154 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar20 , ERR=9201, END=9202 )
155 #ifndef NO_NAMELIST_PRINT
156 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar20 )
157 #endif
158 CYCLE NML_LOOP
159 CASE ( 21 )
160 nml_name = "wrfvar21"
161 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar21 , ERR=9201, END=9202 )
162 #ifndef NO_NAMELIST_PRINT
163 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar21 )
164 #endif
165 CYCLE NML_LOOP
166 CASE ( 22 )
167 nml_name = "wrfvar22"
168 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar22 , ERR=9201, END=9202 )
169 #ifndef NO_NAMELIST_PRINT
170 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar22 )
171 #endif
172 CYCLE NML_LOOP
173 CASE ( 23 )
174 nml_name = "wrfvar23"
175 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar23 , ERR=9201, END=9202 )
176 #ifndef NO_NAMELIST_PRINT
177 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar23 )
178 #endif
179 CYCLE NML_LOOP
180 CASE ( 24 )
181 nml_name = "time_control"
182 READ ( UNIT = NAMELIST_READ_UNIT , NML = time_control , ERR=9201, END=9202 )
183 #ifndef NO_NAMELIST_PRINT
184 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = time_control )
185 #endif
186 CYCLE NML_LOOP
187 CASE ( 25 )
188 nml_name = "fdda"
189 READ ( UNIT = NAMELIST_READ_UNIT , NML = fdda , ERR=9201, END=9202 )
190 #ifndef NO_NAMELIST_PRINT
191 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = fdda )
192 #endif
193 CYCLE NML_LOOP
194 CASE ( 26 )
195 nml_name = "domains"
196 READ ( UNIT = NAMELIST_READ_UNIT , NML = domains , ERR=9201, END=9202 )
197 #ifndef NO_NAMELIST_PRINT
198 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = domains )
199 #endif
200 CYCLE NML_LOOP
201 CASE ( 27 )
202 nml_name = "physics"
203 READ ( UNIT = NAMELIST_READ_UNIT , NML = physics , ERR=9201, END=9202 )
204 #ifndef NO_NAMELIST_PRINT
205 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = physics )
206 #endif
207 CYCLE NML_LOOP
208 CASE ( 28 )
209 nml_name = "dynamics"
210 READ ( UNIT = NAMELIST_READ_UNIT , NML = dynamics , ERR=9201, END=9202 )
211 #ifndef NO_NAMELIST_PRINT
212 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = dynamics )
213 #endif
214 CYCLE NML_LOOP
215 CASE ( 29 )
216 nml_name = "bdy_control"
217 READ ( UNIT = NAMELIST_READ_UNIT , NML = bdy_control , ERR=9201, END=9202 )
218 #ifndef NO_NAMELIST_PRINT
219 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = bdy_control )
220 #endif
221 CYCLE NML_LOOP
222 CASE ( 30 )
223 nml_name = "grib2"
224 READ ( UNIT = NAMELIST_READ_UNIT , NML = grib2 , ERR=9201, END=9202 )
225 #ifndef NO_NAMELIST_PRINT
226 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = grib2 )
227 #endif
228 CYCLE NML_LOOP
229 END SELECT
230 9201 CALL wrf_message("Error while reading namelist "//TRIM(nml_name))
231 nml_read_error = .TRUE.
232 CYCLE NML_LOOP
233 9202 CALL wrf_message("Namelist "//TRIM(nml_name)//" not found in namelist.input."// &
234 " Using registry defaults for variables in "//TRIM(nml_name))
235 END DO NML_LOOP
236
237 IF ( nml_read_error ) CALL wrf_error_fatal("Errors while reading one or more namelists from namelist.input.")
238 !ENDOFREGISTRYGENERATEDINCLUDE