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 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar1 , IOSTAT=io_status )
16 IF (io_status /= 0) THEN
17 CALL wrf_error_fatal("Cannot read namelist wrfvar1")
18 END IF
19 #ifndef NO_NAMELIST_PRINT
20 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar1 )
21 #endif
22 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar2 , IOSTAT=io_status )
23 IF (io_status /= 0) THEN
24 CALL wrf_error_fatal("Cannot read namelist wrfvar2")
25 END IF
26 #ifndef NO_NAMELIST_PRINT
27 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar2 )
28 #endif
29 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar3 , IOSTAT=io_status )
30 IF (io_status /= 0) THEN
31 CALL wrf_error_fatal("Cannot read namelist wrfvar3")
32 END IF
33 #ifndef NO_NAMELIST_PRINT
34 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar3 )
35 #endif
36 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar4 , IOSTAT=io_status )
37 IF (io_status /= 0) THEN
38 CALL wrf_error_fatal("Cannot read namelist wrfvar4")
39 END IF
40 #ifndef NO_NAMELIST_PRINT
41 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar4 )
42 #endif
43 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar5 , IOSTAT=io_status )
44 IF (io_status /= 0) THEN
45 CALL wrf_error_fatal("Cannot read namelist wrfvar5")
46 END IF
47 #ifndef NO_NAMELIST_PRINT
48 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar5 )
49 #endif
50 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar6 , IOSTAT=io_status )
51 IF (io_status /= 0) THEN
52 CALL wrf_error_fatal("Cannot read namelist wrfvar6")
53 END IF
54 #ifndef NO_NAMELIST_PRINT
55 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar6 )
56 #endif
57 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar7 , IOSTAT=io_status )
58 IF (io_status /= 0) THEN
59 CALL wrf_error_fatal("Cannot read namelist wrfvar7")
60 END IF
61 #ifndef NO_NAMELIST_PRINT
62 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar7 )
63 #endif
64 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar8 , IOSTAT=io_status )
65 IF (io_status /= 0) THEN
66 CALL wrf_error_fatal("Cannot read namelist wrfvar8")
67 END IF
68 #ifndef NO_NAMELIST_PRINT
69 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar8 )
70 #endif
71 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar9 , IOSTAT=io_status )
72 IF (io_status /= 0) THEN
73 CALL wrf_error_fatal("Cannot read namelist wrfvar9")
74 END IF
75 #ifndef NO_NAMELIST_PRINT
76 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar9 )
77 #endif
78 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar10 , IOSTAT=io_status )
79 IF (io_status /= 0) THEN
80 CALL wrf_error_fatal("Cannot read namelist wrfvar10")
81 END IF
82 #ifndef NO_NAMELIST_PRINT
83 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar10 )
84 #endif
85 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar11 , IOSTAT=io_status )
86 IF (io_status /= 0) THEN
87 CALL wrf_error_fatal("Cannot read namelist wrfvar11")
88 END IF
89 #ifndef NO_NAMELIST_PRINT
90 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar11 )
91 #endif
92 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar12 , IOSTAT=io_status )
93 IF (io_status /= 0) THEN
94 CALL wrf_error_fatal("Cannot read namelist wrfvar12")
95 END IF
96 #ifndef NO_NAMELIST_PRINT
97 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar12 )
98 #endif
99 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar13 , IOSTAT=io_status )
100 IF (io_status /= 0) THEN
101 CALL wrf_error_fatal("Cannot read namelist wrfvar13")
102 END IF
103 #ifndef NO_NAMELIST_PRINT
104 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar13 )
105 #endif
106 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar14 , IOSTAT=io_status )
107 IF (io_status /= 0) THEN
108 CALL wrf_error_fatal("Cannot read namelist wrfvar14")
109 END IF
110 #ifndef NO_NAMELIST_PRINT
111 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar14 )
112 #endif
113 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar15 , IOSTAT=io_status )
114 IF (io_status /= 0) THEN
115 CALL wrf_error_fatal("Cannot read namelist wrfvar15")
116 END IF
117 #ifndef NO_NAMELIST_PRINT
118 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar15 )
119 #endif
120 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar16 , IOSTAT=io_status )
121 IF (io_status /= 0) THEN
122 CALL wrf_error_fatal("Cannot read namelist wrfvar16")
123 END IF
124 #ifndef NO_NAMELIST_PRINT
125 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar16 )
126 #endif
127 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar17 , IOSTAT=io_status )
128 IF (io_status /= 0) THEN
129 CALL wrf_error_fatal("Cannot read namelist wrfvar17")
130 END IF
131 #ifndef NO_NAMELIST_PRINT
132 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar17 )
133 #endif
134 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar18 , IOSTAT=io_status )
135 IF (io_status /= 0) THEN
136 CALL wrf_error_fatal("Cannot read namelist wrfvar18")
137 END IF
138 #ifndef NO_NAMELIST_PRINT
139 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar18 )
140 #endif
141 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar19 , IOSTAT=io_status )
142 IF (io_status /= 0) THEN
143 CALL wrf_error_fatal("Cannot read namelist wrfvar19")
144 END IF
145 #ifndef NO_NAMELIST_PRINT
146 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar19 )
147 #endif
148 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar20 , IOSTAT=io_status )
149 IF (io_status /= 0) THEN
150 CALL wrf_error_fatal("Cannot read namelist wrfvar20")
151 END IF
152 #ifndef NO_NAMELIST_PRINT
153 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar20 )
154 #endif
155 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar21 , IOSTAT=io_status )
156 IF (io_status /= 0) THEN
157 CALL wrf_error_fatal("Cannot read namelist wrfvar21")
158 END IF
159 #ifndef NO_NAMELIST_PRINT
160 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar21 )
161 #endif
162 READ ( UNIT = NAMELIST_READ_UNIT , NML = wrfvar22 , IOSTAT=io_status )
163 IF (io_status /= 0) THEN
164 CALL wrf_error_fatal("Cannot read namelist wrfvar22")
165 END IF
166 #ifndef NO_NAMELIST_PRINT
167 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = wrfvar22 )
168 #endif
169 READ ( UNIT = NAMELIST_READ_UNIT , NML = time_control , IOSTAT=io_status )
170 IF (io_status /= 0) THEN
171 CALL wrf_error_fatal("Cannot read namelist time_control")
172 END IF
173 #ifndef NO_NAMELIST_PRINT
174 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = time_control )
175 #endif
176 READ ( UNIT = NAMELIST_READ_UNIT , NML = fdda , IOSTAT=io_status )
177 IF (io_status /= 0) THEN
178 CALL wrf_error_fatal("Cannot read namelist fdda")
179 END IF
180 #ifndef NO_NAMELIST_PRINT
181 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = fdda )
182 #endif
183 READ ( UNIT = NAMELIST_READ_UNIT , NML = domains , IOSTAT=io_status )
184 IF (io_status /= 0) THEN
185 CALL wrf_error_fatal("Cannot read namelist domains")
186 END IF
187 #ifndef NO_NAMELIST_PRINT
188 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = domains )
189 #endif
190 READ ( UNIT = NAMELIST_READ_UNIT , NML = physics , IOSTAT=io_status )
191 IF (io_status /= 0) THEN
192 CALL wrf_error_fatal("Cannot read namelist physics")
193 END IF
194 #ifndef NO_NAMELIST_PRINT
195 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = physics )
196 #endif
197 READ ( UNIT = NAMELIST_READ_UNIT , NML = dynamics , IOSTAT=io_status )
198 IF (io_status /= 0) THEN
199 CALL wrf_error_fatal("Cannot read namelist dynamics")
200 END IF
201 #ifndef NO_NAMELIST_PRINT
202 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = dynamics )
203 #endif
204 READ ( UNIT = NAMELIST_READ_UNIT , NML = bdy_control , IOSTAT=io_status )
205 IF (io_status /= 0) THEN
206 CALL wrf_error_fatal("Cannot read namelist bdy_control")
207 END IF
208 #ifndef NO_NAMELIST_PRINT
209 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = bdy_control )
210 #endif
211 READ ( UNIT = NAMELIST_READ_UNIT , NML = grib2 , IOSTAT=io_status )
212 IF (io_status /= 0) THEN
213 CALL wrf_error_fatal("Cannot read namelist grib2")
214 END IF
215 #ifndef NO_NAMELIST_PRINT
216 WRITE ( UNIT = NAMELIST_WRITE_UNIT, NML = grib2 )
217 #endif
218 !ENDOFREGISTRYGENERATEDINCLUDE