get_nl_config.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/get_nl_config.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 SUBROUTINE nl_get_write_increments ( id_id , write_increments )
8   logical , INTENT(OUT) :: write_increments
9   INTEGER id_id
10   CHARACTER*80 emess
11   IF ( id_id .NE. 1 ) THEN
12     call wrf_debug(1,&
13 'WARNING in nl_get_write_increments: write_increments applies to all domains. First arg ignored.')
14   ENDIF
15   write_increments = model_config_rec%write_increments
16   RETURN
17 END SUBROUTINE nl_get_write_increments
18 SUBROUTINE nl_get_var4d ( id_id , var4d )
19   logical , INTENT(OUT) :: var4d
20   INTEGER id_id
21   CHARACTER*80 emess
22   IF ( id_id .NE. 1 ) THEN
23     call wrf_debug(1,&
24 'WARNING in nl_get_var4d: var4d applies to all domains. First arg ignored.')
25   ENDIF
26   var4d = model_config_rec%var4d
27   RETURN
28 END SUBROUTINE nl_get_var4d
29 SUBROUTINE nl_get_var4d_multi_inc ( id_id , var4d_multi_inc )
30   integer , INTENT(OUT) :: var4d_multi_inc
31   INTEGER id_id
32   CHARACTER*80 emess
33   IF ( id_id .NE. 1 ) THEN
34     call wrf_debug(1,&
35 'WARNING in nl_get_var4d_multi_inc: var4d_multi_inc applies to all domains. First arg ignored.')
36   ENDIF
37   var4d_multi_inc = model_config_rec%var4d_multi_inc
38   RETURN
39 END SUBROUTINE nl_get_var4d_multi_inc
40 SUBROUTINE nl_get_var4d_coupling ( id_id , var4d_coupling )
41   integer , INTENT(OUT) :: var4d_coupling
42   INTEGER id_id
43   CHARACTER*80 emess
44   IF ( id_id .NE. 1 ) THEN
45     call wrf_debug(1,&
46 'WARNING in nl_get_var4d_coupling: var4d_coupling applies to all domains. First arg ignored.')
47   ENDIF
48   var4d_coupling = model_config_rec%var4d_coupling
49   RETURN
50 END SUBROUTINE nl_get_var4d_coupling
51 SUBROUTINE nl_get_global ( id_id , global )
52   logical , INTENT(OUT) :: global
53   INTEGER id_id
54   CHARACTER*80 emess
55   IF ( id_id .NE. 1 ) THEN
56     call wrf_debug(1,&
57 'WARNING in nl_get_global: global applies to all domains. First arg ignored.')
58   ENDIF
59   global = model_config_rec%global
60   RETURN
61 END SUBROUTINE nl_get_global
62 SUBROUTINE nl_get_oi_use ( id_id , oi_use )
63   logical , INTENT(OUT) :: oi_use
64   INTEGER id_id
65   CHARACTER*80 emess
66   IF ( id_id .NE. 1 ) THEN
67     call wrf_debug(1,&
68 'WARNING in nl_get_oi_use: oi_use applies to all domains. First arg ignored.')
69   ENDIF
70   oi_use = model_config_rec%oi_use
71   RETURN
72 END SUBROUTINE nl_get_oi_use
73 SUBROUTINE nl_get_print_detail_airep ( id_id , print_detail_airep )
74   logical , INTENT(OUT) :: print_detail_airep
75   INTEGER id_id
76   CHARACTER*80 emess
77   IF ( id_id .NE. 1 ) THEN
78     call wrf_debug(1,&
79 'WARNING in nl_get_print_detail_airep: print_detail_airep applies to all domains. First arg ignored.')
80   ENDIF
81   print_detail_airep = model_config_rec%print_detail_airep
82   RETURN
83 END SUBROUTINE nl_get_print_detail_airep
84 SUBROUTINE nl_get_print_detail_radar ( id_id , print_detail_radar )
85   logical , INTENT(OUT) :: print_detail_radar
86   INTEGER id_id
87   CHARACTER*80 emess
88   IF ( id_id .NE. 1 ) THEN
89     call wrf_debug(1,&
90 'WARNING in nl_get_print_detail_radar: print_detail_radar applies to all domains. First arg ignored.')
91   ENDIF
92   print_detail_radar = model_config_rec%print_detail_radar
93   RETURN
94 END SUBROUTINE nl_get_print_detail_radar
95 SUBROUTINE nl_get_print_detail_rad ( id_id , print_detail_rad )
96   logical , INTENT(OUT) :: print_detail_rad
97   INTEGER id_id
98   CHARACTER*80 emess
99   IF ( id_id .NE. 1 ) THEN
100     call wrf_debug(1,&
101 'WARNING in nl_get_print_detail_rad: print_detail_rad applies to all domains. First arg ignored.')
102   ENDIF
103   print_detail_rad = model_config_rec%print_detail_rad
104   RETURN
105 END SUBROUTINE nl_get_print_detail_rad
106 SUBROUTINE nl_get_print_detail_xa ( id_id , print_detail_xa )
107   logical , INTENT(OUT) :: print_detail_xa
108   INTEGER id_id
109   CHARACTER*80 emess
110   IF ( id_id .NE. 1 ) THEN
111     call wrf_debug(1,&
112 'WARNING in nl_get_print_detail_xa: print_detail_xa applies to all domains. First arg ignored.')
113   ENDIF
114   print_detail_xa = model_config_rec%print_detail_xa
115   RETURN
116 END SUBROUTINE nl_get_print_detail_xa
117 SUBROUTINE nl_get_print_detail_xb ( id_id , print_detail_xb )
118   logical , INTENT(OUT) :: print_detail_xb
119   INTEGER id_id
120   CHARACTER*80 emess
121   IF ( id_id .NE. 1 ) THEN
122     call wrf_debug(1,&
123 'WARNING in nl_get_print_detail_xb: print_detail_xb applies to all domains. First arg ignored.')
124   ENDIF
125   print_detail_xb = model_config_rec%print_detail_xb
126   RETURN
127 END SUBROUTINE nl_get_print_detail_xb
128 SUBROUTINE nl_get_print_detail_obs ( id_id , print_detail_obs )
129   logical , INTENT(OUT) :: print_detail_obs
130   INTEGER id_id
131   CHARACTER*80 emess
132   IF ( id_id .NE. 1 ) THEN
133     call wrf_debug(1,&
134 'WARNING in nl_get_print_detail_obs: print_detail_obs applies to all domains. First arg ignored.')
135   ENDIF
136   print_detail_obs = model_config_rec%print_detail_obs
137   RETURN
138 END SUBROUTINE nl_get_print_detail_obs
139 SUBROUTINE nl_get_print_detail_f_obs ( id_id , print_detail_f_obs )
140   logical , INTENT(OUT) :: print_detail_f_obs
141   INTEGER id_id
142   CHARACTER*80 emess
143   IF ( id_id .NE. 1 ) THEN
144     call wrf_debug(1,&
145 'WARNING in nl_get_print_detail_f_obs: print_detail_f_obs applies to all domains. First arg ignored.')
146   ENDIF
147   print_detail_f_obs = model_config_rec%print_detail_f_obs
148   RETURN
149 END SUBROUTINE nl_get_print_detail_f_obs
150 SUBROUTINE nl_get_print_detail_map ( id_id , print_detail_map )
151   logical , INTENT(OUT) :: print_detail_map
152   INTEGER id_id
153   CHARACTER*80 emess
154   IF ( id_id .NE. 1 ) THEN
155     call wrf_debug(1,&
156 'WARNING in nl_get_print_detail_map: print_detail_map applies to all domains. First arg ignored.')
157   ENDIF
158   print_detail_map = model_config_rec%print_detail_map
159   RETURN
160 END SUBROUTINE nl_get_print_detail_map
161 SUBROUTINE nl_get_print_detail_grad ( id_id , print_detail_grad )
162   logical , INTENT(OUT) :: print_detail_grad
163   INTEGER id_id
164   CHARACTER*80 emess
165   IF ( id_id .NE. 1 ) THEN
166     call wrf_debug(1,&
167 'WARNING in nl_get_print_detail_grad: print_detail_grad applies to all domains. First arg ignored.')
168   ENDIF
169   print_detail_grad = model_config_rec%print_detail_grad
170   RETURN
171 END SUBROUTINE nl_get_print_detail_grad
172 SUBROUTINE nl_get_print_detail_regression ( id_id , print_detail_regression )
173   logical , INTENT(OUT) :: print_detail_regression
174   INTEGER id_id
175   CHARACTER*80 emess
176   IF ( id_id .NE. 1 ) THEN
177     call wrf_debug(1,&
178 'WARNING in nl_get_print_detail_regression: print_detail_regression applies to all domains. First arg ignored.')
179   ENDIF
180   print_detail_regression = model_config_rec%print_detail_regression
181   RETURN
182 END SUBROUTINE nl_get_print_detail_regression
183 SUBROUTINE nl_get_print_detail_spectral ( id_id , print_detail_spectral )
184   logical , INTENT(OUT) :: print_detail_spectral
185   INTEGER id_id
186   CHARACTER*80 emess
187   IF ( id_id .NE. 1 ) THEN
188     call wrf_debug(1,&
189 'WARNING in nl_get_print_detail_spectral: print_detail_spectral applies to all domains. First arg ignored.')
190   ENDIF
191   print_detail_spectral = model_config_rec%print_detail_spectral
192   RETURN
193 END SUBROUTINE nl_get_print_detail_spectral
194 SUBROUTINE nl_get_print_detail_testing ( id_id , print_detail_testing )
195   logical , INTENT(OUT) :: print_detail_testing
196   INTEGER id_id
197   CHARACTER*80 emess
198   IF ( id_id .NE. 1 ) THEN
199     call wrf_debug(1,&
200 'WARNING in nl_get_print_detail_testing: print_detail_testing applies to all domains. First arg ignored.')
201   ENDIF
202   print_detail_testing = model_config_rec%print_detail_testing
203   RETURN
204 END SUBROUTINE nl_get_print_detail_testing
205 SUBROUTINE nl_get_print_detail_parallel ( id_id , print_detail_parallel )
206   logical , INTENT(OUT) :: print_detail_parallel
207   INTEGER id_id
208   CHARACTER*80 emess
209   IF ( id_id .NE. 1 ) THEN
210     call wrf_debug(1,&
211 'WARNING in nl_get_print_detail_parallel: print_detail_parallel applies to all domains. First arg ignored.')
212   ENDIF
213   print_detail_parallel = model_config_rec%print_detail_parallel
214   RETURN
215 END SUBROUTINE nl_get_print_detail_parallel
216 SUBROUTINE nl_get_print_detail_be ( id_id , print_detail_be )
217   logical , INTENT(OUT) :: print_detail_be
218   INTEGER id_id
219   CHARACTER*80 emess
220   IF ( id_id .NE. 1 ) THEN
221     call wrf_debug(1,&
222 'WARNING in nl_get_print_detail_be: print_detail_be applies to all domains. First arg ignored.')
223   ENDIF
224   print_detail_be = model_config_rec%print_detail_be
225   RETURN
226 END SUBROUTINE nl_get_print_detail_be
227 SUBROUTINE nl_get_print_detail_timing ( id_id , print_detail_timing )
228   logical , INTENT(OUT) :: print_detail_timing
229   INTEGER id_id
230   CHARACTER*80 emess
231   IF ( id_id .NE. 1 ) THEN
232     call wrf_debug(1,&
233 'WARNING in nl_get_print_detail_timing: print_detail_timing applies to all domains. First arg ignored.')
234   ENDIF
235   print_detail_timing = model_config_rec%print_detail_timing
236   RETURN
237 END SUBROUTINE nl_get_print_detail_timing
238 SUBROUTINE nl_get_check_max_iv_print ( id_id , check_max_iv_print )
239   logical , INTENT(OUT) :: check_max_iv_print
240   INTEGER id_id
241   CHARACTER*80 emess
242   IF ( id_id .NE. 1 ) THEN
243     call wrf_debug(1,&
244 'WARNING in nl_get_check_max_iv_print: check_max_iv_print applies to all domains. First arg ignored.')
245   ENDIF
246   check_max_iv_print = model_config_rec%check_max_iv_print
247   RETURN
248 END SUBROUTINE nl_get_check_max_iv_print
249 SUBROUTINE nl_get_analysis_accu ( id_id , analysis_accu )
250   integer , INTENT(OUT) :: analysis_accu
251   INTEGER id_id
252   CHARACTER*80 emess
253   IF ( id_id .NE. 1 ) THEN
254     call wrf_debug(1,&
255 'WARNING in nl_get_analysis_accu: analysis_accu applies to all domains. First arg ignored.')
256   ENDIF
257   analysis_accu = model_config_rec%analysis_accu
258   RETURN
259 END SUBROUTINE nl_get_analysis_accu
260 SUBROUTINE nl_get_calc_w_increment ( id_id , calc_w_increment )
261   logical , INTENT(OUT) :: calc_w_increment
262   INTEGER id_id
263   CHARACTER*80 emess
264   IF ( id_id .NE. 1 ) THEN
265     call wrf_debug(1,&
266 'WARNING in nl_get_calc_w_increment: calc_w_increment applies to all domains. First arg ignored.')
267   ENDIF
268   calc_w_increment = model_config_rec%calc_w_increment
269   RETURN
270 END SUBROUTINE nl_get_calc_w_increment
271 SUBROUTINE nl_get_dt_cloud_model ( id_id , dt_cloud_model )
272   logical , INTENT(OUT) :: dt_cloud_model
273   INTEGER id_id
274   CHARACTER*80 emess
275   IF ( id_id .NE. 1 ) THEN
276     call wrf_debug(1,&
277 'WARNING in nl_get_dt_cloud_model: dt_cloud_model applies to all domains. First arg ignored.')
278   ENDIF
279   dt_cloud_model = model_config_rec%dt_cloud_model
280   RETURN
281 END SUBROUTINE nl_get_dt_cloud_model
282 SUBROUTINE nl_get_write_qcw ( id_id , write_qcw )
283   logical , INTENT(OUT) :: write_qcw
284   INTEGER id_id
285   CHARACTER*80 emess
286   IF ( id_id .NE. 1 ) THEN
287     call wrf_debug(1,&
288 'WARNING in nl_get_write_qcw: write_qcw applies to all domains. First arg ignored.')
289   ENDIF
290   write_qcw = model_config_rec%write_qcw
291   RETURN
292 END SUBROUTINE nl_get_write_qcw
293 SUBROUTINE nl_get_write_qrn ( id_id , write_qrn )
294   logical , INTENT(OUT) :: write_qrn
295   INTEGER id_id
296   CHARACTER*80 emess
297   IF ( id_id .NE. 1 ) THEN
298     call wrf_debug(1,&
299 'WARNING in nl_get_write_qrn: write_qrn applies to all domains. First arg ignored.')
300   ENDIF
301   write_qrn = model_config_rec%write_qrn
302   RETURN
303 END SUBROUTINE nl_get_write_qrn
304 SUBROUTINE nl_get_write_qci ( id_id , write_qci )
305   logical , INTENT(OUT) :: write_qci
306   INTEGER id_id
307   CHARACTER*80 emess
308   IF ( id_id .NE. 1 ) THEN
309     call wrf_debug(1,&
310 'WARNING in nl_get_write_qci: write_qci applies to all domains. First arg ignored.')
311   ENDIF
312   write_qci = model_config_rec%write_qci
313   RETURN
314 END SUBROUTINE nl_get_write_qci
315 SUBROUTINE nl_get_write_qsn ( id_id , write_qsn )
316   logical , INTENT(OUT) :: write_qsn
317   INTEGER id_id
318   CHARACTER*80 emess
319   IF ( id_id .NE. 1 ) THEN
320     call wrf_debug(1,&
321 'WARNING in nl_get_write_qsn: write_qsn applies to all domains. First arg ignored.')
322   ENDIF
323   write_qsn = model_config_rec%write_qsn
324   RETURN
325 END SUBROUTINE nl_get_write_qsn
326 SUBROUTINE nl_get_write_qgr ( id_id , write_qgr )
327   logical , INTENT(OUT) :: write_qgr
328   INTEGER id_id
329   CHARACTER*80 emess
330   IF ( id_id .NE. 1 ) THEN
331     call wrf_debug(1,&
332 'WARNING in nl_get_write_qgr: write_qgr applies to all domains. First arg ignored.')
333   ENDIF
334   write_qgr = model_config_rec%write_qgr
335   RETURN
336 END SUBROUTINE nl_get_write_qgr
337 SUBROUTINE nl_get_write_filtered_obs ( id_id , write_filtered_obs )
338   logical , INTENT(OUT) :: write_filtered_obs
339   INTEGER id_id
340   CHARACTER*80 emess
341   IF ( id_id .NE. 1 ) THEN
342     call wrf_debug(1,&
343 'WARNING in nl_get_write_filtered_obs: write_filtered_obs applies to all domains. First arg ignored.')
344   ENDIF
345   write_filtered_obs = model_config_rec%write_filtered_obs
346   RETURN
347 END SUBROUTINE nl_get_write_filtered_obs
348 SUBROUTINE nl_get_fg_format ( id_id , fg_format )
349   integer , INTENT(OUT) :: fg_format
350   INTEGER id_id
351   CHARACTER*80 emess
352   IF ( id_id .NE. 1 ) THEN
353     call wrf_debug(1,&
354 'WARNING in nl_get_fg_format: fg_format applies to all domains. First arg ignored.')
355   ENDIF
356   fg_format = model_config_rec%fg_format
357   RETURN
358 END SUBROUTINE nl_get_fg_format
359 SUBROUTINE nl_get_ob_format ( id_id , ob_format )
360   integer , INTENT(OUT) :: ob_format
361   INTEGER id_id
362   CHARACTER*80 emess
363   IF ( id_id .NE. 1 ) THEN
364     call wrf_debug(1,&
365 'WARNING in nl_get_ob_format: ob_format applies to all domains. First arg ignored.')
366   ENDIF
367   ob_format = model_config_rec%ob_format
368   RETURN
369 END SUBROUTINE nl_get_ob_format
370 SUBROUTINE nl_get_num_fgat_time ( id_id , num_fgat_time )
371   integer , INTENT(OUT) :: num_fgat_time
372   INTEGER id_id
373   CHARACTER*80 emess
374   IF ( id_id .NE. 1 ) THEN
375     call wrf_debug(1,&
376 'WARNING in nl_get_num_fgat_time: num_fgat_time applies to all domains. First arg ignored.')
377   ENDIF
378   num_fgat_time = model_config_rec%num_fgat_time
379   RETURN
380 END SUBROUTINE nl_get_num_fgat_time
381 SUBROUTINE nl_get_use_synopobs ( id_id , use_synopobs )
382   logical , INTENT(OUT) :: use_synopobs
383   INTEGER id_id
384   CHARACTER*80 emess
385   IF ( id_id .NE. 1 ) THEN
386     call wrf_debug(1,&
387 'WARNING in nl_get_use_synopobs: use_synopobs applies to all domains. First arg ignored.')
388   ENDIF
389   use_synopobs = model_config_rec%use_synopobs
390   RETURN
391 END SUBROUTINE nl_get_use_synopobs
392 SUBROUTINE nl_get_use_shipsobs ( id_id , use_shipsobs )
393   logical , INTENT(OUT) :: use_shipsobs
394   INTEGER id_id
395   CHARACTER*80 emess
396   IF ( id_id .NE. 1 ) THEN
397     call wrf_debug(1,&
398 'WARNING in nl_get_use_shipsobs: use_shipsobs applies to all domains. First arg ignored.')
399   ENDIF
400   use_shipsobs = model_config_rec%use_shipsobs
401   RETURN
402 END SUBROUTINE nl_get_use_shipsobs
403 SUBROUTINE nl_get_use_metarobs ( id_id , use_metarobs )
404   logical , INTENT(OUT) :: use_metarobs
405   INTEGER id_id
406   CHARACTER*80 emess
407   IF ( id_id .NE. 1 ) THEN
408     call wrf_debug(1,&
409 'WARNING in nl_get_use_metarobs: use_metarobs applies to all domains. First arg ignored.')
410   ENDIF
411   use_metarobs = model_config_rec%use_metarobs
412   RETURN
413 END SUBROUTINE nl_get_use_metarobs
414 SUBROUTINE nl_get_use_soundobs ( id_id , use_soundobs )
415   logical , INTENT(OUT) :: use_soundobs
416   INTEGER id_id
417   CHARACTER*80 emess
418   IF ( id_id .NE. 1 ) THEN
419     call wrf_debug(1,&
420 'WARNING in nl_get_use_soundobs: use_soundobs applies to all domains. First arg ignored.')
421   ENDIF
422   use_soundobs = model_config_rec%use_soundobs
423   RETURN
424 END SUBROUTINE nl_get_use_soundobs
425 SUBROUTINE nl_get_use_pilotobs ( id_id , use_pilotobs )
426   logical , INTENT(OUT) :: use_pilotobs
427   INTEGER id_id
428   CHARACTER*80 emess
429   IF ( id_id .NE. 1 ) THEN
430     call wrf_debug(1,&
431 'WARNING in nl_get_use_pilotobs: use_pilotobs applies to all domains. First arg ignored.')
432   ENDIF
433   use_pilotobs = model_config_rec%use_pilotobs
434   RETURN
435 END SUBROUTINE nl_get_use_pilotobs
436 SUBROUTINE nl_get_use_airepobs ( id_id , use_airepobs )
437   logical , INTENT(OUT) :: use_airepobs
438   INTEGER id_id
439   CHARACTER*80 emess
440   IF ( id_id .NE. 1 ) THEN
441     call wrf_debug(1,&
442 'WARNING in nl_get_use_airepobs: use_airepobs applies to all domains. First arg ignored.')
443   ENDIF
444   use_airepobs = model_config_rec%use_airepobs
445   RETURN
446 END SUBROUTINE nl_get_use_airepobs
447 SUBROUTINE nl_get_use_geoamvobs ( id_id , use_geoamvobs )
448   logical , INTENT(OUT) :: use_geoamvobs
449   INTEGER id_id
450   CHARACTER*80 emess
451   IF ( id_id .NE. 1 ) THEN
452     call wrf_debug(1,&
453 'WARNING in nl_get_use_geoamvobs: use_geoamvobs applies to all domains. First arg ignored.')
454   ENDIF
455   use_geoamvobs = model_config_rec%use_geoamvobs
456   RETURN
457 END SUBROUTINE nl_get_use_geoamvobs
458 SUBROUTINE nl_get_use_polaramvobs ( id_id , use_polaramvobs )
459   logical , INTENT(OUT) :: use_polaramvobs
460   INTEGER id_id
461   CHARACTER*80 emess
462   IF ( id_id .NE. 1 ) THEN
463     call wrf_debug(1,&
464 'WARNING in nl_get_use_polaramvobs: use_polaramvobs applies to all domains. First arg ignored.')
465   ENDIF
466   use_polaramvobs = model_config_rec%use_polaramvobs
467   RETURN
468 END SUBROUTINE nl_get_use_polaramvobs
469 SUBROUTINE nl_get_use_bogusobs ( id_id , use_bogusobs )
470   logical , INTENT(OUT) :: use_bogusobs
471   INTEGER id_id
472   CHARACTER*80 emess
473   IF ( id_id .NE. 1 ) THEN
474     call wrf_debug(1,&
475 'WARNING in nl_get_use_bogusobs: use_bogusobs applies to all domains. First arg ignored.')
476   ENDIF
477   use_bogusobs = model_config_rec%use_bogusobs
478   RETURN
479 END SUBROUTINE nl_get_use_bogusobs
480 SUBROUTINE nl_get_use_buoyobs ( id_id , use_buoyobs )
481   logical , INTENT(OUT) :: use_buoyobs
482   INTEGER id_id
483   CHARACTER*80 emess
484   IF ( id_id .NE. 1 ) THEN
485     call wrf_debug(1,&
486 'WARNING in nl_get_use_buoyobs: use_buoyobs applies to all domains. First arg ignored.')
487   ENDIF
488   use_buoyobs = model_config_rec%use_buoyobs
489   RETURN
490 END SUBROUTINE nl_get_use_buoyobs
491 SUBROUTINE nl_get_use_profilerobs ( id_id , use_profilerobs )
492   logical , INTENT(OUT) :: use_profilerobs
493   INTEGER id_id
494   CHARACTER*80 emess
495   IF ( id_id .NE. 1 ) THEN
496     call wrf_debug(1,&
497 'WARNING in nl_get_use_profilerobs: use_profilerobs applies to all domains. First arg ignored.')
498   ENDIF
499   use_profilerobs = model_config_rec%use_profilerobs
500   RETURN
501 END SUBROUTINE nl_get_use_profilerobs
502 SUBROUTINE nl_get_use_satemobs ( id_id , use_satemobs )
503   logical , INTENT(OUT) :: use_satemobs
504   INTEGER id_id
505   CHARACTER*80 emess
506   IF ( id_id .NE. 1 ) THEN
507     call wrf_debug(1,&
508 'WARNING in nl_get_use_satemobs: use_satemobs applies to all domains. First arg ignored.')
509   ENDIF
510   use_satemobs = model_config_rec%use_satemobs
511   RETURN
512 END SUBROUTINE nl_get_use_satemobs
513 SUBROUTINE nl_get_use_gpspwobs ( id_id , use_gpspwobs )
514   logical , INTENT(OUT) :: use_gpspwobs
515   INTEGER id_id
516   CHARACTER*80 emess
517   IF ( id_id .NE. 1 ) THEN
518     call wrf_debug(1,&
519 'WARNING in nl_get_use_gpspwobs: use_gpspwobs applies to all domains. First arg ignored.')
520   ENDIF
521   use_gpspwobs = model_config_rec%use_gpspwobs
522   RETURN
523 END SUBROUTINE nl_get_use_gpspwobs
524 SUBROUTINE nl_get_use_gpsrefobs ( id_id , use_gpsrefobs )
525   logical , INTENT(OUT) :: use_gpsrefobs
526   INTEGER id_id
527   CHARACTER*80 emess
528   IF ( id_id .NE. 1 ) THEN
529     call wrf_debug(1,&
530 'WARNING in nl_get_use_gpsrefobs: use_gpsrefobs applies to all domains. First arg ignored.')
531   ENDIF
532   use_gpsrefobs = model_config_rec%use_gpsrefobs
533   RETURN
534 END SUBROUTINE nl_get_use_gpsrefobs
535 SUBROUTINE nl_get_use_ssmiretrievalobs ( id_id , use_ssmiretrievalobs )
536   logical , INTENT(OUT) :: use_ssmiretrievalobs
537   INTEGER id_id
538   CHARACTER*80 emess
539   IF ( id_id .NE. 1 ) THEN
540     call wrf_debug(1,&
541 'WARNING in nl_get_use_ssmiretrievalobs: use_ssmiretrievalobs applies to all domains. First arg ignored.')
542   ENDIF
543   use_ssmiretrievalobs = model_config_rec%use_ssmiretrievalobs
544   RETURN
545 END SUBROUTINE nl_get_use_ssmiretrievalobs
546 SUBROUTINE nl_get_use_ssmitbobs ( id_id , use_ssmitbobs )
547   logical , INTENT(OUT) :: use_ssmitbobs
548   INTEGER id_id
549   CHARACTER*80 emess
550   IF ( id_id .NE. 1 ) THEN
551     call wrf_debug(1,&
552 'WARNING in nl_get_use_ssmitbobs: use_ssmitbobs applies to all domains. First arg ignored.')
553   ENDIF
554   use_ssmitbobs = model_config_rec%use_ssmitbobs
555   RETURN
556 END SUBROUTINE nl_get_use_ssmitbobs
557 SUBROUTINE nl_get_use_ssmt1obs ( id_id , use_ssmt1obs )
558   logical , INTENT(OUT) :: use_ssmt1obs
559   INTEGER id_id
560   CHARACTER*80 emess
561   IF ( id_id .NE. 1 ) THEN
562     call wrf_debug(1,&
563 'WARNING in nl_get_use_ssmt1obs: use_ssmt1obs applies to all domains. First arg ignored.')
564   ENDIF
565   use_ssmt1obs = model_config_rec%use_ssmt1obs
566   RETURN
567 END SUBROUTINE nl_get_use_ssmt1obs
568 SUBROUTINE nl_get_use_ssmt2obs ( id_id , use_ssmt2obs )
569   logical , INTENT(OUT) :: use_ssmt2obs
570   INTEGER id_id
571   CHARACTER*80 emess
572   IF ( id_id .NE. 1 ) THEN
573     call wrf_debug(1,&
574 'WARNING in nl_get_use_ssmt2obs: use_ssmt2obs applies to all domains. First arg ignored.')
575   ENDIF
576   use_ssmt2obs = model_config_rec%use_ssmt2obs
577   RETURN
578 END SUBROUTINE nl_get_use_ssmt2obs
579 SUBROUTINE nl_get_use_qscatobs ( id_id , use_qscatobs )
580   logical , INTENT(OUT) :: use_qscatobs
581   INTEGER id_id
582   CHARACTER*80 emess
583   IF ( id_id .NE. 1 ) THEN
584     call wrf_debug(1,&
585 'WARNING in nl_get_use_qscatobs: use_qscatobs applies to all domains. First arg ignored.')
586   ENDIF
587   use_qscatobs = model_config_rec%use_qscatobs
588   RETURN
589 END SUBROUTINE nl_get_use_qscatobs
590 SUBROUTINE nl_get_use_radarobs ( id_id , use_radarobs )
591   logical , INTENT(OUT) :: use_radarobs
592   INTEGER id_id
593   CHARACTER*80 emess
594   IF ( id_id .NE. 1 ) THEN
595     call wrf_debug(1,&
596 'WARNING in nl_get_use_radarobs: use_radarobs applies to all domains. First arg ignored.')
597   ENDIF
598   use_radarobs = model_config_rec%use_radarobs
599   RETURN
600 END SUBROUTINE nl_get_use_radarobs
601 SUBROUTINE nl_get_use_radar_rv ( id_id , use_radar_rv )
602   logical , INTENT(OUT) :: use_radar_rv
603   INTEGER id_id
604   CHARACTER*80 emess
605   IF ( id_id .NE. 1 ) THEN
606     call wrf_debug(1,&
607 'WARNING in nl_get_use_radar_rv: use_radar_rv applies to all domains. First arg ignored.')
608   ENDIF
609   use_radar_rv = model_config_rec%use_radar_rv
610   RETURN
611 END SUBROUTINE nl_get_use_radar_rv
612 SUBROUTINE nl_get_use_radar_rf ( id_id , use_radar_rf )
613   logical , INTENT(OUT) :: use_radar_rf
614   INTEGER id_id
615   CHARACTER*80 emess
616   IF ( id_id .NE. 1 ) THEN
617     call wrf_debug(1,&
618 'WARNING in nl_get_use_radar_rf: use_radar_rf applies to all domains. First arg ignored.')
619   ENDIF
620   use_radar_rf = model_config_rec%use_radar_rf
621   RETURN
622 END SUBROUTINE nl_get_use_radar_rf
623 SUBROUTINE nl_get_use_hirs2obs ( id_id , use_hirs2obs )
624   logical , INTENT(OUT) :: use_hirs2obs
625   INTEGER id_id
626   CHARACTER*80 emess
627   IF ( id_id .NE. 1 ) THEN
628     call wrf_debug(1,&
629 'WARNING in nl_get_use_hirs2obs: use_hirs2obs applies to all domains. First arg ignored.')
630   ENDIF
631   use_hirs2obs = model_config_rec%use_hirs2obs
632   RETURN
633 END SUBROUTINE nl_get_use_hirs2obs
634 SUBROUTINE nl_get_use_hirs3obs ( id_id , use_hirs3obs )
635   logical , INTENT(OUT) :: use_hirs3obs
636   INTEGER id_id
637   CHARACTER*80 emess
638   IF ( id_id .NE. 1 ) THEN
639     call wrf_debug(1,&
640 'WARNING in nl_get_use_hirs3obs: use_hirs3obs applies to all domains. First arg ignored.')
641   ENDIF
642   use_hirs3obs = model_config_rec%use_hirs3obs
643   RETURN
644 END SUBROUTINE nl_get_use_hirs3obs
645 SUBROUTINE nl_get_use_hirs4obs ( id_id , use_hirs4obs )
646   logical , INTENT(OUT) :: use_hirs4obs
647   INTEGER id_id
648   CHARACTER*80 emess
649   IF ( id_id .NE. 1 ) THEN
650     call wrf_debug(1,&
651 'WARNING in nl_get_use_hirs4obs: use_hirs4obs applies to all domains. First arg ignored.')
652   ENDIF
653   use_hirs4obs = model_config_rec%use_hirs4obs
654   RETURN
655 END SUBROUTINE nl_get_use_hirs4obs
656 SUBROUTINE nl_get_use_mhsobs ( id_id , use_mhsobs )
657   logical , INTENT(OUT) :: use_mhsobs
658   INTEGER id_id
659   CHARACTER*80 emess
660   IF ( id_id .NE. 1 ) THEN
661     call wrf_debug(1,&
662 'WARNING in nl_get_use_mhsobs: use_mhsobs applies to all domains. First arg ignored.')
663   ENDIF
664   use_mhsobs = model_config_rec%use_mhsobs
665   RETURN
666 END SUBROUTINE nl_get_use_mhsobs
667 SUBROUTINE nl_get_use_msuobs ( id_id , use_msuobs )
668   logical , INTENT(OUT) :: use_msuobs
669   INTEGER id_id
670   CHARACTER*80 emess
671   IF ( id_id .NE. 1 ) THEN
672     call wrf_debug(1,&
673 'WARNING in nl_get_use_msuobs: use_msuobs applies to all domains. First arg ignored.')
674   ENDIF
675   use_msuobs = model_config_rec%use_msuobs
676   RETURN
677 END SUBROUTINE nl_get_use_msuobs
678 SUBROUTINE nl_get_use_amsuaobs ( id_id , use_amsuaobs )
679   logical , INTENT(OUT) :: use_amsuaobs
680   INTEGER id_id
681   CHARACTER*80 emess
682   IF ( id_id .NE. 1 ) THEN
683     call wrf_debug(1,&
684 'WARNING in nl_get_use_amsuaobs: use_amsuaobs applies to all domains. First arg ignored.')
685   ENDIF
686   use_amsuaobs = model_config_rec%use_amsuaobs
687   RETURN
688 END SUBROUTINE nl_get_use_amsuaobs
689 SUBROUTINE nl_get_use_amsubobs ( id_id , use_amsubobs )
690   logical , INTENT(OUT) :: use_amsubobs
691   INTEGER id_id
692   CHARACTER*80 emess
693   IF ( id_id .NE. 1 ) THEN
694     call wrf_debug(1,&
695 'WARNING in nl_get_use_amsubobs: use_amsubobs applies to all domains. First arg ignored.')
696   ENDIF
697   use_amsubobs = model_config_rec%use_amsubobs
698   RETURN
699 END SUBROUTINE nl_get_use_amsubobs
700 SUBROUTINE nl_get_use_airsobs ( id_id , use_airsobs )
701   logical , INTENT(OUT) :: use_airsobs
702   INTEGER id_id
703   CHARACTER*80 emess
704   IF ( id_id .NE. 1 ) THEN
705     call wrf_debug(1,&
706 'WARNING in nl_get_use_airsobs: use_airsobs applies to all domains. First arg ignored.')
707   ENDIF
708   use_airsobs = model_config_rec%use_airsobs
709   RETURN
710 END SUBROUTINE nl_get_use_airsobs
711 SUBROUTINE nl_get_use_airsretobs ( id_id , use_airsretobs )
712   logical , INTENT(OUT) :: use_airsretobs
713   INTEGER id_id
714   CHARACTER*80 emess
715   IF ( id_id .NE. 1 ) THEN
716     call wrf_debug(1,&
717 'WARNING in nl_get_use_airsretobs: use_airsretobs applies to all domains. First arg ignored.')
718   ENDIF
719   use_airsretobs = model_config_rec%use_airsretobs
720   RETURN
721 END SUBROUTINE nl_get_use_airsretobs
722 SUBROUTINE nl_get_use_eos_amsuaobs ( id_id , use_eos_amsuaobs )
723   logical , INTENT(OUT) :: use_eos_amsuaobs
724   INTEGER id_id
725   CHARACTER*80 emess
726   IF ( id_id .NE. 1 ) THEN
727     call wrf_debug(1,&
728 'WARNING in nl_get_use_eos_amsuaobs: use_eos_amsuaobs applies to all domains. First arg ignored.')
729   ENDIF
730   use_eos_amsuaobs = model_config_rec%use_eos_amsuaobs
731   RETURN
732 END SUBROUTINE nl_get_use_eos_amsuaobs
733 SUBROUTINE nl_get_use_eos_radobs ( id_id , use_eos_radobs )
734   logical , INTENT(OUT) :: use_eos_radobs
735   INTEGER id_id
736   CHARACTER*80 emess
737   IF ( id_id .NE. 1 ) THEN
738     call wrf_debug(1,&
739 'WARNING in nl_get_use_eos_radobs: use_eos_radobs applies to all domains. First arg ignored.')
740   ENDIF
741   use_eos_radobs = model_config_rec%use_eos_radobs
742   RETURN
743 END SUBROUTINE nl_get_use_eos_radobs
744 SUBROUTINE nl_get_use_hsbobs ( id_id , use_hsbobs )
745   logical , INTENT(OUT) :: use_hsbobs
746   INTEGER id_id
747   CHARACTER*80 emess
748   IF ( id_id .NE. 1 ) THEN
749     call wrf_debug(1,&
750 'WARNING in nl_get_use_hsbobs: use_hsbobs applies to all domains. First arg ignored.')
751   ENDIF
752   use_hsbobs = model_config_rec%use_hsbobs
753   RETURN
754 END SUBROUTINE nl_get_use_hsbobs
755 SUBROUTINE nl_get_use_ssmisobs ( id_id , use_ssmisobs )
756   logical , INTENT(OUT) :: use_ssmisobs
757   INTEGER id_id
758   CHARACTER*80 emess
759   IF ( id_id .NE. 1 ) THEN
760     call wrf_debug(1,&
761 'WARNING in nl_get_use_ssmisobs: use_ssmisobs applies to all domains. First arg ignored.')
762   ENDIF
763   use_ssmisobs = model_config_rec%use_ssmisobs
764   RETURN
765 END SUBROUTINE nl_get_use_ssmisobs
766 SUBROUTINE nl_get_use_kma1dvar ( id_id , use_kma1dvar )
767   logical , INTENT(OUT) :: use_kma1dvar
768   INTEGER id_id
769   CHARACTER*80 emess
770   IF ( id_id .NE. 1 ) THEN
771     call wrf_debug(1,&
772 'WARNING in nl_get_use_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
773   ENDIF
774   use_kma1dvar = model_config_rec%use_kma1dvar
775   RETURN
776 END SUBROUTINE nl_get_use_kma1dvar
777 SUBROUTINE nl_get_use_filtered_rad ( id_id , use_filtered_rad )
778   logical , INTENT(OUT) :: use_filtered_rad
779   INTEGER id_id
780   CHARACTER*80 emess
781   IF ( id_id .NE. 1 ) THEN
782     call wrf_debug(1,&
783 'WARNING in nl_get_use_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
784   ENDIF
785   use_filtered_rad = model_config_rec%use_filtered_rad
786   RETURN
787 END SUBROUTINE nl_get_use_filtered_rad
788 SUBROUTINE nl_get_use_obs_errfac ( id_id , use_obs_errfac )
789   logical , INTENT(OUT) :: use_obs_errfac
790   INTEGER id_id
791   CHARACTER*80 emess
792   IF ( id_id .NE. 1 ) THEN
793     call wrf_debug(1,&
794 'WARNING in nl_get_use_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
795   ENDIF
796   use_obs_errfac = model_config_rec%use_obs_errfac
797   RETURN
798 END SUBROUTINE nl_get_use_obs_errfac
799 SUBROUTINE nl_get_check_max_iv ( id_id , check_max_iv )
800   logical , INTENT(OUT) :: check_max_iv
801   INTEGER id_id
802   CHARACTER*80 emess
803   IF ( id_id .NE. 1 ) THEN
804     call wrf_debug(1,&
805 'WARNING in nl_get_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
806   ENDIF
807   check_max_iv = model_config_rec%check_max_iv
808   RETURN
809 END SUBROUTINE nl_get_check_max_iv
810 SUBROUTINE nl_get_put_rand_seed ( id_id , put_rand_seed )
811   logical , INTENT(OUT) :: put_rand_seed
812   INTEGER id_id
813   CHARACTER*80 emess
814   IF ( id_id .NE. 1 ) THEN
815     call wrf_debug(1,&
816 'WARNING in nl_get_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
817   ENDIF
818   put_rand_seed = model_config_rec%put_rand_seed
819   RETURN
820 END SUBROUTINE nl_get_put_rand_seed
821 SUBROUTINE nl_get_omb_set_rand ( id_id , omb_set_rand )
822   logical , INTENT(OUT) :: omb_set_rand
823   INTEGER id_id
824   CHARACTER*80 emess
825   IF ( id_id .NE. 1 ) THEN
826     call wrf_debug(1,&
827 'WARNING in nl_get_omb_set_rand: omb_set_rand applies to all domains. First arg ignored.')
828   ENDIF
829   omb_set_rand = model_config_rec%omb_set_rand
830   RETURN
831 END SUBROUTINE nl_get_omb_set_rand
832 SUBROUTINE nl_get_omb_add_noise ( id_id , omb_add_noise )
833   logical , INTENT(OUT) :: omb_add_noise
834   INTEGER id_id
835   CHARACTER*80 emess
836   IF ( id_id .NE. 1 ) THEN
837     call wrf_debug(1,&
838 'WARNING in nl_get_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
839   ENDIF
840   omb_add_noise = model_config_rec%omb_add_noise
841   RETURN
842 END SUBROUTINE nl_get_omb_add_noise
843 SUBROUTINE nl_get_position_lev_dependant ( id_id , position_lev_dependant )
844   logical , INTENT(OUT) :: position_lev_dependant
845   INTEGER id_id
846   CHARACTER*80 emess
847   IF ( id_id .NE. 1 ) THEN
848     call wrf_debug(1,&
849 'WARNING in nl_get_position_lev_dependant: position_lev_dependant applies to all domains. First arg ignored.')
850   ENDIF
851   position_lev_dependant = model_config_rec%position_lev_dependant
852   RETURN
853 END SUBROUTINE nl_get_position_lev_dependant
854 SUBROUTINE nl_get_obs_qc_pointer ( id_id , obs_qc_pointer )
855   integer , INTENT(OUT) :: obs_qc_pointer
856   INTEGER id_id
857   CHARACTER*80 emess
858   IF ( id_id .NE. 1 ) THEN
859     call wrf_debug(1,&
860 'WARNING in nl_get_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
861   ENDIF
862   obs_qc_pointer = model_config_rec%obs_qc_pointer
863   RETURN
864 END SUBROUTINE nl_get_obs_qc_pointer
865 SUBROUTINE nl_get_max_sound_input ( id_id , max_sound_input )
866   integer , INTENT(OUT) :: max_sound_input
867   INTEGER id_id
868   CHARACTER*80 emess
869   IF ( id_id .NE. 1 ) THEN
870     call wrf_debug(1,&
871 'WARNING in nl_get_max_sound_input: max_sound_input applies to all domains. First arg ignored.')
872   ENDIF
873   max_sound_input = model_config_rec%max_sound_input
874   RETURN
875 END SUBROUTINE nl_get_max_sound_input
876 SUBROUTINE nl_get_max_synop_input ( id_id , max_synop_input )
877   integer , INTENT(OUT) :: max_synop_input
878   INTEGER id_id
879   CHARACTER*80 emess
880   IF ( id_id .NE. 1 ) THEN
881     call wrf_debug(1,&
882 'WARNING in nl_get_max_synop_input: max_synop_input applies to all domains. First arg ignored.')
883   ENDIF
884   max_synop_input = model_config_rec%max_synop_input
885   RETURN
886 END SUBROUTINE nl_get_max_synop_input
887 SUBROUTINE nl_get_max_geoamv_input ( id_id , max_geoamv_input )
888   integer , INTENT(OUT) :: max_geoamv_input
889   INTEGER id_id
890   CHARACTER*80 emess
891   IF ( id_id .NE. 1 ) THEN
892     call wrf_debug(1,&
893 'WARNING in nl_get_max_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
894   ENDIF
895   max_geoamv_input = model_config_rec%max_geoamv_input
896   RETURN
897 END SUBROUTINE nl_get_max_geoamv_input
898 SUBROUTINE nl_get_max_polaramv_input ( id_id , max_polaramv_input )
899   integer , INTENT(OUT) :: max_polaramv_input
900   INTEGER id_id
901   CHARACTER*80 emess
902   IF ( id_id .NE. 1 ) THEN
903     call wrf_debug(1,&
904 'WARNING in nl_get_max_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
905   ENDIF
906   max_polaramv_input = model_config_rec%max_polaramv_input
907   RETURN
908 END SUBROUTINE nl_get_max_polaramv_input
909 SUBROUTINE nl_get_max_airep_input ( id_id , max_airep_input )
910   integer , INTENT(OUT) :: max_airep_input
911   INTEGER id_id
912   CHARACTER*80 emess
913   IF ( id_id .NE. 1 ) THEN
914     call wrf_debug(1,&
915 'WARNING in nl_get_max_airep_input: max_airep_input applies to all domains. First arg ignored.')
916   ENDIF
917   max_airep_input = model_config_rec%max_airep_input
918   RETURN
919 END SUBROUTINE nl_get_max_airep_input
920 SUBROUTINE nl_get_max_satem_input ( id_id , max_satem_input )
921   integer , INTENT(OUT) :: max_satem_input
922   INTEGER id_id
923   CHARACTER*80 emess
924   IF ( id_id .NE. 1 ) THEN
925     call wrf_debug(1,&
926 'WARNING in nl_get_max_satem_input: max_satem_input applies to all domains. First arg ignored.')
927   ENDIF
928   max_satem_input = model_config_rec%max_satem_input
929   RETURN
930 END SUBROUTINE nl_get_max_satem_input
931 SUBROUTINE nl_get_max_pilot_input ( id_id , max_pilot_input )
932   integer , INTENT(OUT) :: max_pilot_input
933   INTEGER id_id
934   CHARACTER*80 emess
935   IF ( id_id .NE. 1 ) THEN
936     call wrf_debug(1,&
937 'WARNING in nl_get_max_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
938   ENDIF
939   max_pilot_input = model_config_rec%max_pilot_input
940   RETURN
941 END SUBROUTINE nl_get_max_pilot_input
942 SUBROUTINE nl_get_max_radar_input ( id_id , max_radar_input )
943   integer , INTENT(OUT) :: max_radar_input
944   INTEGER id_id
945   CHARACTER*80 emess
946   IF ( id_id .NE. 1 ) THEN
947     call wrf_debug(1,&
948 'WARNING in nl_get_max_radar_input: max_radar_input applies to all domains. First arg ignored.')
949   ENDIF
950   max_radar_input = model_config_rec%max_radar_input
951   RETURN
952 END SUBROUTINE nl_get_max_radar_input
953 SUBROUTINE nl_get_max_metar_input ( id_id , max_metar_input )
954   integer , INTENT(OUT) :: max_metar_input
955   INTEGER id_id
956   CHARACTER*80 emess
957   IF ( id_id .NE. 1 ) THEN
958     call wrf_debug(1,&
959 'WARNING in nl_get_max_metar_input: max_metar_input applies to all domains. First arg ignored.')
960   ENDIF
961   max_metar_input = model_config_rec%max_metar_input
962   RETURN
963 END SUBROUTINE nl_get_max_metar_input
964 SUBROUTINE nl_get_max_gpspw_input ( id_id , max_gpspw_input )
965   integer , INTENT(OUT) :: max_gpspw_input
966   INTEGER id_id
967   CHARACTER*80 emess
968   IF ( id_id .NE. 1 ) THEN
969     call wrf_debug(1,&
970 'WARNING in nl_get_max_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
971   ENDIF
972   max_gpspw_input = model_config_rec%max_gpspw_input
973   RETURN
974 END SUBROUTINE nl_get_max_gpspw_input
975 SUBROUTINE nl_get_max_ships_input ( id_id , max_ships_input )
976   integer , INTENT(OUT) :: max_ships_input
977   INTEGER id_id
978   CHARACTER*80 emess
979   IF ( id_id .NE. 1 ) THEN
980     call wrf_debug(1,&
981 'WARNING in nl_get_max_ships_input: max_ships_input applies to all domains. First arg ignored.')
982   ENDIF
983   max_ships_input = model_config_rec%max_ships_input
984   RETURN
985 END SUBROUTINE nl_get_max_ships_input
986 SUBROUTINE nl_get_max_profiler_input ( id_id , max_profiler_input )
987   integer , INTENT(OUT) :: max_profiler_input
988   INTEGER id_id
989   CHARACTER*80 emess
990   IF ( id_id .NE. 1 ) THEN
991     call wrf_debug(1,&
992 'WARNING in nl_get_max_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
993   ENDIF
994   max_profiler_input = model_config_rec%max_profiler_input
995   RETURN
996 END SUBROUTINE nl_get_max_profiler_input
997 SUBROUTINE nl_get_max_bogus_input ( id_id , max_bogus_input )
998   integer , INTENT(OUT) :: max_bogus_input
999   INTEGER id_id
1000   CHARACTER*80 emess
1001   IF ( id_id .NE. 1 ) THEN
1002     call wrf_debug(1,&
1003 'WARNING in nl_get_max_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
1004   ENDIF
1005   max_bogus_input = model_config_rec%max_bogus_input
1006   RETURN
1007 END SUBROUTINE nl_get_max_bogus_input
1008 SUBROUTINE nl_get_max_buoy_input ( id_id , max_buoy_input )
1009   integer , INTENT(OUT) :: max_buoy_input
1010   INTEGER id_id
1011   CHARACTER*80 emess
1012   IF ( id_id .NE. 1 ) THEN
1013     call wrf_debug(1,&
1014 'WARNING in nl_get_max_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
1015   ENDIF
1016   max_buoy_input = model_config_rec%max_buoy_input
1017   RETURN
1018 END SUBROUTINE nl_get_max_buoy_input
1019 SUBROUTINE nl_get_max_ssmi_rv_input ( id_id , max_ssmi_rv_input )
1020   integer , INTENT(OUT) :: max_ssmi_rv_input
1021   INTEGER id_id
1022   CHARACTER*80 emess
1023   IF ( id_id .NE. 1 ) THEN
1024     call wrf_debug(1,&
1025 'WARNING in nl_get_max_ssmi_rv_input: max_ssmi_rv_input applies to all domains. First arg ignored.')
1026   ENDIF
1027   max_ssmi_rv_input = model_config_rec%max_ssmi_rv_input
1028   RETURN
1029 END SUBROUTINE nl_get_max_ssmi_rv_input
1030 SUBROUTINE nl_get_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
1031   integer , INTENT(OUT) :: max_ssmi_tb_input
1032   INTEGER id_id
1033   CHARACTER*80 emess
1034   IF ( id_id .NE. 1 ) THEN
1035     call wrf_debug(1,&
1036 'WARNING in nl_get_max_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
1037   ENDIF
1038   max_ssmi_tb_input = model_config_rec%max_ssmi_tb_input
1039   RETURN
1040 END SUBROUTINE nl_get_max_ssmi_tb_input
1041 SUBROUTINE nl_get_max_ssmt1_input ( id_id , max_ssmt1_input )
1042   integer , INTENT(OUT) :: max_ssmt1_input
1043   INTEGER id_id
1044   CHARACTER*80 emess
1045   IF ( id_id .NE. 1 ) THEN
1046     call wrf_debug(1,&
1047 'WARNING in nl_get_max_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
1048   ENDIF
1049   max_ssmt1_input = model_config_rec%max_ssmt1_input
1050   RETURN
1051 END SUBROUTINE nl_get_max_ssmt1_input
1052 SUBROUTINE nl_get_max_ssmt2_input ( id_id , max_ssmt2_input )
1053   integer , INTENT(OUT) :: max_ssmt2_input
1054   INTEGER id_id
1055   CHARACTER*80 emess
1056   IF ( id_id .NE. 1 ) THEN
1057     call wrf_debug(1,&
1058 'WARNING in nl_get_max_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
1059   ENDIF
1060   max_ssmt2_input = model_config_rec%max_ssmt2_input
1061   RETURN
1062 END SUBROUTINE nl_get_max_ssmt2_input
1063 SUBROUTINE nl_get_max_qscat_input ( id_id , max_qscat_input )
1064   integer , INTENT(OUT) :: max_qscat_input
1065   INTEGER id_id
1066   CHARACTER*80 emess
1067   IF ( id_id .NE. 1 ) THEN
1068     call wrf_debug(1,&
1069 'WARNING in nl_get_max_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
1070   ENDIF
1071   max_qscat_input = model_config_rec%max_qscat_input
1072   RETURN
1073 END SUBROUTINE nl_get_max_qscat_input
1074 SUBROUTINE nl_get_max_gpsref_input ( id_id , max_gpsref_input )
1075   integer , INTENT(OUT) :: max_gpsref_input
1076   INTEGER id_id
1077   CHARACTER*80 emess
1078   IF ( id_id .NE. 1 ) THEN
1079     call wrf_debug(1,&
1080 'WARNING in nl_get_max_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
1081   ENDIF
1082   max_gpsref_input = model_config_rec%max_gpsref_input
1083   RETURN
1084 END SUBROUTINE nl_get_max_gpsref_input
1085 SUBROUTINE nl_get_max_airsr_input ( id_id , max_airsr_input )
1086   integer , INTENT(OUT) :: max_airsr_input
1087   INTEGER id_id
1088   CHARACTER*80 emess
1089   IF ( id_id .NE. 1 ) THEN
1090     call wrf_debug(1,&
1091 'WARNING in nl_get_max_airsr_input: max_airsr_input applies to all domains. First arg ignored.')
1092   ENDIF
1093   max_airsr_input = model_config_rec%max_airsr_input
1094   RETURN
1095 END SUBROUTINE nl_get_max_airsr_input
1096 SUBROUTINE nl_get_max_tovs_input ( id_id , max_tovs_input )
1097   integer , INTENT(OUT) :: max_tovs_input
1098   INTEGER id_id
1099   CHARACTER*80 emess
1100   IF ( id_id .NE. 1 ) THEN
1101     call wrf_debug(1,&
1102 'WARNING in nl_get_max_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
1103   ENDIF
1104   max_tovs_input = model_config_rec%max_tovs_input
1105   RETURN
1106 END SUBROUTINE nl_get_max_tovs_input
1107 SUBROUTINE nl_get_max_ssmis_input ( id_id , max_ssmis_input )
1108   integer , INTENT(OUT) :: max_ssmis_input
1109   INTEGER id_id
1110   CHARACTER*80 emess
1111   IF ( id_id .NE. 1 ) THEN
1112     call wrf_debug(1,&
1113 'WARNING in nl_get_max_ssmis_input: max_ssmis_input applies to all domains. First arg ignored.')
1114   ENDIF
1115   max_ssmis_input = model_config_rec%max_ssmis_input
1116   RETURN
1117 END SUBROUTINE nl_get_max_ssmis_input
1118 SUBROUTINE nl_get_report_start ( id_id , report_start )
1119   integer , INTENT(OUT) :: report_start
1120   INTEGER id_id
1121   CHARACTER*80 emess
1122   IF ( id_id .NE. 1 ) THEN
1123     call wrf_debug(1,&
1124 'WARNING in nl_get_report_start: report_start applies to all domains. First arg ignored.')
1125   ENDIF
1126   report_start = model_config_rec%report_start
1127   RETURN
1128 END SUBROUTINE nl_get_report_start
1129 SUBROUTINE nl_get_report_end ( id_id , report_end )
1130   integer , INTENT(OUT) :: report_end
1131   INTEGER id_id
1132   CHARACTER*80 emess
1133   IF ( id_id .NE. 1 ) THEN
1134     call wrf_debug(1,&
1135 'WARNING in nl_get_report_end: report_end applies to all domains. First arg ignored.')
1136   ENDIF
1137   report_end = model_config_rec%report_end
1138   RETURN
1139 END SUBROUTINE nl_get_report_end
1140 SUBROUTINE nl_get_tovs_start ( id_id , tovs_start )
1141   integer , INTENT(OUT) :: tovs_start
1142   INTEGER id_id
1143   CHARACTER*80 emess
1144   IF ( id_id .NE. 1 ) THEN
1145     call wrf_debug(1,&
1146 'WARNING in nl_get_tovs_start: tovs_start applies to all domains. First arg ignored.')
1147   ENDIF
1148   tovs_start = model_config_rec%tovs_start
1149   RETURN
1150 END SUBROUTINE nl_get_tovs_start
1151 SUBROUTINE nl_get_tovs_end ( id_id , tovs_end )
1152   integer , INTENT(OUT) :: tovs_end
1153   INTEGER id_id
1154   CHARACTER*80 emess
1155   IF ( id_id .NE. 1 ) THEN
1156     call wrf_debug(1,&
1157 'WARNING in nl_get_tovs_end: tovs_end applies to all domains. First arg ignored.')
1158   ENDIF
1159   tovs_end = model_config_rec%tovs_end
1160   RETURN
1161 END SUBROUTINE nl_get_tovs_end
1162 SUBROUTINE nl_get_max_ext_its ( id_id , max_ext_its )
1163   integer , INTENT(OUT) :: max_ext_its
1164   INTEGER id_id
1165   CHARACTER*80 emess
1166   IF ( id_id .NE. 1 ) THEN
1167     call wrf_debug(1,&
1168 'WARNING in nl_get_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
1169   ENDIF
1170   max_ext_its = model_config_rec%max_ext_its
1171   RETURN
1172 END SUBROUTINE nl_get_max_ext_its
1173 SUBROUTINE nl_get_ntmax ( id_id , ntmax )
1174   integer , INTENT(OUT) :: ntmax
1175   INTEGER id_id
1176   CHARACTER*80 emess
1177   IF ( id_id .NE. 1 ) THEN
1178     call wrf_debug(1,&
1179 'WARNING in nl_get_ntmax: ntmax applies to all domains. First arg ignored.')
1180   ENDIF
1181   ntmax = model_config_rec%ntmax
1182   RETURN
1183 END SUBROUTINE nl_get_ntmax
1184 SUBROUTINE nl_get_nsave ( id_id , nsave )
1185   integer , INTENT(OUT) :: nsave
1186   INTEGER id_id
1187   CHARACTER*80 emess
1188   IF ( id_id .NE. 1 ) THEN
1189     call wrf_debug(1,&
1190 'WARNING in nl_get_nsave: nsave applies to all domains. First arg ignored.')
1191   ENDIF
1192   nsave = model_config_rec%nsave
1193   RETURN
1194 END SUBROUTINE nl_get_nsave
1195 SUBROUTINE nl_get_write_interval ( id_id , write_interval )
1196   integer , INTENT(OUT) :: write_interval
1197   INTEGER id_id
1198   CHARACTER*80 emess
1199   IF ( id_id .NE. 1 ) THEN
1200     call wrf_debug(1,&
1201 'WARNING in nl_get_write_interval: write_interval applies to all domains. First arg ignored.')
1202   ENDIF
1203   write_interval = model_config_rec%write_interval
1204   RETURN
1205 END SUBROUTINE nl_get_write_interval
1206 SUBROUTINE nl_get_eps ( id_id , eps )
1207   real , INTENT(OUT) :: eps
1208   INTEGER id_id
1209   CHARACTER*80 emess
1210   IF ( id_id .LT. 1 .OR. id_id .GT. max_outer_iterations ) THEN
1211     WRITE(emess,*)'nl_get_eps: Out of range eps number: ',id_id
1212     CALL wrf_error_fatal(emess)
1213   ENDIF
1214   eps = model_config_rec%eps(id_id)
1215   RETURN
1216 END SUBROUTINE nl_get_eps
1217 SUBROUTINE nl_get_rf_passes ( id_id , rf_passes )
1218   integer , INTENT(OUT) :: rf_passes
1219   INTEGER id_id
1220   CHARACTER*80 emess
1221   IF ( id_id .NE. 1 ) THEN
1222     call wrf_debug(1,&
1223 'WARNING in nl_get_rf_passes: rf_passes applies to all domains. First arg ignored.')
1224   ENDIF
1225   rf_passes = model_config_rec%rf_passes
1226   RETURN
1227 END SUBROUTINE nl_get_rf_passes
1228 SUBROUTINE nl_get_var_scaling1 ( id_id , var_scaling1 )
1229   real , INTENT(OUT) :: var_scaling1
1230   INTEGER id_id
1231   CHARACTER*80 emess
1232   IF ( id_id .NE. 1 ) THEN
1233     call wrf_debug(1,&
1234 'WARNING in nl_get_var_scaling1: var_scaling1 applies to all domains. First arg ignored.')
1235   ENDIF
1236   var_scaling1 = model_config_rec%var_scaling1
1237   RETURN
1238 END SUBROUTINE nl_get_var_scaling1
1239 SUBROUTINE nl_get_var_scaling2 ( id_id , var_scaling2 )
1240   real , INTENT(OUT) :: var_scaling2
1241   INTEGER id_id
1242   CHARACTER*80 emess
1243   IF ( id_id .NE. 1 ) THEN
1244     call wrf_debug(1,&
1245 'WARNING in nl_get_var_scaling2: var_scaling2 applies to all domains. First arg ignored.')
1246   ENDIF
1247   var_scaling2 = model_config_rec%var_scaling2
1248   RETURN
1249 END SUBROUTINE nl_get_var_scaling2
1250 SUBROUTINE nl_get_var_scaling3 ( id_id , var_scaling3 )
1251   real , INTENT(OUT) :: var_scaling3
1252   INTEGER id_id
1253   CHARACTER*80 emess
1254   IF ( id_id .NE. 1 ) THEN
1255     call wrf_debug(1,&
1256 'WARNING in nl_get_var_scaling3: var_scaling3 applies to all domains. First arg ignored.')
1257   ENDIF
1258   var_scaling3 = model_config_rec%var_scaling3
1259   RETURN
1260 END SUBROUTINE nl_get_var_scaling3
1261 SUBROUTINE nl_get_var_scaling4 ( id_id , var_scaling4 )
1262   real , INTENT(OUT) :: var_scaling4
1263   INTEGER id_id
1264   CHARACTER*80 emess
1265   IF ( id_id .NE. 1 ) THEN
1266     call wrf_debug(1,&
1267 'WARNING in nl_get_var_scaling4: var_scaling4 applies to all domains. First arg ignored.')
1268   ENDIF
1269   var_scaling4 = model_config_rec%var_scaling4
1270   RETURN
1271 END SUBROUTINE nl_get_var_scaling4
1272 SUBROUTINE nl_get_var_scaling5 ( id_id , var_scaling5 )
1273   real , INTENT(OUT) :: var_scaling5
1274   INTEGER id_id
1275   CHARACTER*80 emess
1276   IF ( id_id .NE. 1 ) THEN
1277     call wrf_debug(1,&
1278 'WARNING in nl_get_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
1279   ENDIF
1280   var_scaling5 = model_config_rec%var_scaling5
1281   RETURN
1282 END SUBROUTINE nl_get_var_scaling5
1283 SUBROUTINE nl_get_len_scaling1 ( id_id , len_scaling1 )
1284   real , INTENT(OUT) :: len_scaling1
1285   INTEGER id_id
1286   CHARACTER*80 emess
1287   IF ( id_id .NE. 1 ) THEN
1288     call wrf_debug(1,&
1289 'WARNING in nl_get_len_scaling1: len_scaling1 applies to all domains. First arg ignored.')
1290   ENDIF
1291   len_scaling1 = model_config_rec%len_scaling1
1292   RETURN
1293 END SUBROUTINE nl_get_len_scaling1
1294 SUBROUTINE nl_get_len_scaling2 ( id_id , len_scaling2 )
1295   real , INTENT(OUT) :: len_scaling2
1296   INTEGER id_id
1297   CHARACTER*80 emess
1298   IF ( id_id .NE. 1 ) THEN
1299     call wrf_debug(1,&
1300 'WARNING in nl_get_len_scaling2: len_scaling2 applies to all domains. First arg ignored.')
1301   ENDIF
1302   len_scaling2 = model_config_rec%len_scaling2
1303   RETURN
1304 END SUBROUTINE nl_get_len_scaling2
1305 SUBROUTINE nl_get_len_scaling3 ( id_id , len_scaling3 )
1306   real , INTENT(OUT) :: len_scaling3
1307   INTEGER id_id
1308   CHARACTER*80 emess
1309   IF ( id_id .NE. 1 ) THEN
1310     call wrf_debug(1,&
1311 'WARNING in nl_get_len_scaling3: len_scaling3 applies to all domains. First arg ignored.')
1312   ENDIF
1313   len_scaling3 = model_config_rec%len_scaling3
1314   RETURN
1315 END SUBROUTINE nl_get_len_scaling3
1316 SUBROUTINE nl_get_len_scaling4 ( id_id , len_scaling4 )
1317   real , INTENT(OUT) :: len_scaling4
1318   INTEGER id_id
1319   CHARACTER*80 emess
1320   IF ( id_id .NE. 1 ) THEN
1321     call wrf_debug(1,&
1322 'WARNING in nl_get_len_scaling4: len_scaling4 applies to all domains. First arg ignored.')
1323   ENDIF
1324   len_scaling4 = model_config_rec%len_scaling4
1325   RETURN
1326 END SUBROUTINE nl_get_len_scaling4
1327 SUBROUTINE nl_get_len_scaling5 ( id_id , len_scaling5 )
1328   real , INTENT(OUT) :: len_scaling5
1329   INTEGER id_id
1330   CHARACTER*80 emess
1331   IF ( id_id .NE. 1 ) THEN
1332     call wrf_debug(1,&
1333 'WARNING in nl_get_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
1334   ENDIF
1335   len_scaling5 = model_config_rec%len_scaling5
1336   RETURN
1337 END SUBROUTINE nl_get_len_scaling5
1338 SUBROUTINE nl_get_jb_factor ( id_id , jb_factor )
1339   real , INTENT(OUT) :: jb_factor
1340   INTEGER id_id
1341   CHARACTER*80 emess
1342   IF ( id_id .NE. 1 ) THEN
1343     call wrf_debug(1,&
1344 'WARNING in nl_get_jb_factor: jb_factor applies to all domains. First arg ignored.')
1345   ENDIF
1346   jb_factor = model_config_rec%jb_factor
1347   RETURN
1348 END SUBROUTINE nl_get_jb_factor
1349 SUBROUTINE nl_get_je_factor ( id_id , je_factor )
1350   real , INTENT(OUT) :: je_factor
1351   INTEGER id_id
1352   CHARACTER*80 emess
1353   IF ( id_id .NE. 1 ) THEN
1354     call wrf_debug(1,&
1355 'WARNING in nl_get_je_factor: je_factor applies to all domains. First arg ignored.')
1356   ENDIF
1357   je_factor = model_config_rec%je_factor
1358   RETURN
1359 END SUBROUTINE nl_get_je_factor
1360 SUBROUTINE nl_get_power_truncation ( id_id , power_truncation )
1361   real , INTENT(OUT) :: power_truncation
1362   INTEGER id_id
1363   CHARACTER*80 emess
1364   IF ( id_id .NE. 1 ) THEN
1365     call wrf_debug(1,&
1366 'WARNING in nl_get_power_truncation: power_truncation applies to all domains. First arg ignored.')
1367   ENDIF
1368   power_truncation = model_config_rec%power_truncation
1369   RETURN
1370 END SUBROUTINE nl_get_power_truncation
1371 SUBROUTINE nl_get_def_sub_domain ( id_id , def_sub_domain )
1372   logical , INTENT(OUT) :: def_sub_domain
1373   INTEGER id_id
1374   CHARACTER*80 emess
1375   IF ( id_id .NE. 1 ) THEN
1376     call wrf_debug(1,&
1377 'WARNING in nl_get_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
1378   ENDIF
1379   def_sub_domain = model_config_rec%def_sub_domain
1380   RETURN
1381 END SUBROUTINE nl_get_def_sub_domain
1382 SUBROUTINE nl_get_x_start_sub_domain ( id_id , x_start_sub_domain )
1383   real , INTENT(OUT) :: x_start_sub_domain
1384   INTEGER id_id
1385   CHARACTER*80 emess
1386   IF ( id_id .NE. 1 ) THEN
1387     call wrf_debug(1,&
1388 'WARNING in nl_get_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
1389   ENDIF
1390   x_start_sub_domain = model_config_rec%x_start_sub_domain
1391   RETURN
1392 END SUBROUTINE nl_get_x_start_sub_domain
1393 SUBROUTINE nl_get_y_start_sub_domain ( id_id , y_start_sub_domain )
1394   real , INTENT(OUT) :: y_start_sub_domain
1395   INTEGER id_id
1396   CHARACTER*80 emess
1397   IF ( id_id .NE. 1 ) THEN
1398     call wrf_debug(1,&
1399 'WARNING in nl_get_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
1400   ENDIF
1401   y_start_sub_domain = model_config_rec%y_start_sub_domain
1402   RETURN
1403 END SUBROUTINE nl_get_y_start_sub_domain
1404 SUBROUTINE nl_get_x_end_sub_domain ( id_id , x_end_sub_domain )
1405   real , INTENT(OUT) :: x_end_sub_domain
1406   INTEGER id_id
1407   CHARACTER*80 emess
1408   IF ( id_id .NE. 1 ) THEN
1409     call wrf_debug(1,&
1410 'WARNING in nl_get_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
1411   ENDIF
1412   x_end_sub_domain = model_config_rec%x_end_sub_domain
1413   RETURN
1414 END SUBROUTINE nl_get_x_end_sub_domain
1415 SUBROUTINE nl_get_y_end_sub_domain ( id_id , y_end_sub_domain )
1416   real , INTENT(OUT) :: y_end_sub_domain
1417   INTEGER id_id
1418   CHARACTER*80 emess
1419   IF ( id_id .NE. 1 ) THEN
1420     call wrf_debug(1,&
1421 'WARNING in nl_get_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
1422   ENDIF
1423   y_end_sub_domain = model_config_rec%y_end_sub_domain
1424   RETURN
1425 END SUBROUTINE nl_get_y_end_sub_domain
1426 SUBROUTINE nl_get_stdout ( id_id , stdout )
1427   integer , INTENT(OUT) :: stdout
1428   INTEGER id_id
1429   CHARACTER*80 emess
1430   IF ( id_id .NE. 1 ) THEN
1431     call wrf_debug(1,&
1432 'WARNING in nl_get_stdout: stdout applies to all domains. First arg ignored.')
1433   ENDIF
1434   stdout = model_config_rec%stdout
1435   RETURN
1436 END SUBROUTINE nl_get_stdout
1437 SUBROUTINE nl_get_stderr ( id_id , stderr )
1438   integer , INTENT(OUT) :: stderr
1439   INTEGER id_id
1440   CHARACTER*80 emess
1441   IF ( id_id .NE. 1 ) THEN
1442     call wrf_debug(1,&
1443 'WARNING in nl_get_stderr: stderr applies to all domains. First arg ignored.')
1444   ENDIF
1445   stderr = model_config_rec%stderr
1446   RETURN
1447 END SUBROUTINE nl_get_stderr
1448 SUBROUTINE nl_get_trace_unit ( id_id , trace_unit )
1449   integer , INTENT(OUT) :: trace_unit
1450   INTEGER id_id
1451   CHARACTER*80 emess
1452   IF ( id_id .NE. 1 ) THEN
1453     call wrf_debug(1,&
1454 'WARNING in nl_get_trace_unit: trace_unit applies to all domains. First arg ignored.')
1455   ENDIF
1456   trace_unit = model_config_rec%trace_unit
1457   RETURN
1458 END SUBROUTINE nl_get_trace_unit
1459 SUBROUTINE nl_get_trace_pe ( id_id , trace_pe )
1460   integer , INTENT(OUT) :: trace_pe
1461   INTEGER id_id
1462   CHARACTER*80 emess
1463   IF ( id_id .NE. 1 ) THEN
1464     call wrf_debug(1,&
1465 'WARNING in nl_get_trace_pe: trace_pe applies to all domains. First arg ignored.')
1466   ENDIF
1467   trace_pe = model_config_rec%trace_pe
1468   RETURN
1469 END SUBROUTINE nl_get_trace_pe
1470 SUBROUTINE nl_get_trace_repeat_head ( id_id , trace_repeat_head )
1471   integer , INTENT(OUT) :: trace_repeat_head
1472   INTEGER id_id
1473   CHARACTER*80 emess
1474   IF ( id_id .NE. 1 ) THEN
1475     call wrf_debug(1,&
1476 'WARNING in nl_get_trace_repeat_head: trace_repeat_head applies to all domains. First arg ignored.')
1477   ENDIF
1478   trace_repeat_head = model_config_rec%trace_repeat_head
1479   RETURN
1480 END SUBROUTINE nl_get_trace_repeat_head
1481 SUBROUTINE nl_get_trace_repeat_body ( id_id , trace_repeat_body )
1482   integer , INTENT(OUT) :: trace_repeat_body
1483   INTEGER id_id
1484   CHARACTER*80 emess
1485   IF ( id_id .NE. 1 ) THEN
1486     call wrf_debug(1,&
1487 'WARNING in nl_get_trace_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
1488   ENDIF
1489   trace_repeat_body = model_config_rec%trace_repeat_body
1490   RETURN
1491 END SUBROUTINE nl_get_trace_repeat_body
1492 SUBROUTINE nl_get_trace_max_depth ( id_id , trace_max_depth )
1493   integer , INTENT(OUT) :: trace_max_depth
1494   INTEGER id_id
1495   CHARACTER*80 emess
1496   IF ( id_id .NE. 1 ) THEN
1497     call wrf_debug(1,&
1498 'WARNING in nl_get_trace_max_depth: trace_max_depth applies to all domains. First arg ignored.')
1499   ENDIF
1500   trace_max_depth = model_config_rec%trace_max_depth
1501   RETURN
1502 END SUBROUTINE nl_get_trace_max_depth
1503 SUBROUTINE nl_get_trace_use ( id_id , trace_use )
1504   logical , INTENT(OUT) :: trace_use
1505   INTEGER id_id
1506   CHARACTER*80 emess
1507   IF ( id_id .NE. 1 ) THEN
1508     call wrf_debug(1,&
1509 'WARNING in nl_get_trace_use: trace_use applies to all domains. First arg ignored.')
1510   ENDIF
1511   trace_use = model_config_rec%trace_use
1512   RETURN
1513 END SUBROUTINE nl_get_trace_use
1514 SUBROUTINE nl_get_trace_use_frequent ( id_id , trace_use_frequent )
1515   logical , INTENT(OUT) :: trace_use_frequent
1516   INTEGER id_id
1517   CHARACTER*80 emess
1518   IF ( id_id .NE. 1 ) THEN
1519     call wrf_debug(1,&
1520 'WARNING in nl_get_trace_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
1521   ENDIF
1522   trace_use_frequent = model_config_rec%trace_use_frequent
1523   RETURN
1524 END SUBROUTINE nl_get_trace_use_frequent
1525 SUBROUTINE nl_get_trace_use_dull ( id_id , trace_use_dull )
1526   logical , INTENT(OUT) :: trace_use_dull
1527   INTEGER id_id
1528   CHARACTER*80 emess
1529   IF ( id_id .NE. 1 ) THEN
1530     call wrf_debug(1,&
1531 'WARNING in nl_get_trace_use_dull: trace_use_dull applies to all domains. First arg ignored.')
1532   ENDIF
1533   trace_use_dull = model_config_rec%trace_use_dull
1534   RETURN
1535 END SUBROUTINE nl_get_trace_use_dull
1536 SUBROUTINE nl_get_trace_memory ( id_id , trace_memory )
1537   logical , INTENT(OUT) :: trace_memory
1538   INTEGER id_id
1539   CHARACTER*80 emess
1540   IF ( id_id .NE. 1 ) THEN
1541     call wrf_debug(1,&
1542 'WARNING in nl_get_trace_memory: trace_memory applies to all domains. First arg ignored.')
1543   ENDIF
1544   trace_memory = model_config_rec%trace_memory
1545   RETURN
1546 END SUBROUTINE nl_get_trace_memory
1547 SUBROUTINE nl_get_trace_all_pes ( id_id , trace_all_pes )
1548   logical , INTENT(OUT) :: trace_all_pes
1549   INTEGER id_id
1550   CHARACTER*80 emess
1551   IF ( id_id .NE. 1 ) THEN
1552     call wrf_debug(1,&
1553 'WARNING in nl_get_trace_all_pes: trace_all_pes applies to all domains. First arg ignored.')
1554   ENDIF
1555   trace_all_pes = model_config_rec%trace_all_pes
1556   RETURN
1557 END SUBROUTINE nl_get_trace_all_pes
1558 SUBROUTINE nl_get_trace_csv ( id_id , trace_csv )
1559   logical , INTENT(OUT) :: trace_csv
1560   INTEGER id_id
1561   CHARACTER*80 emess
1562   IF ( id_id .NE. 1 ) THEN
1563     call wrf_debug(1,&
1564 'WARNING in nl_get_trace_csv: trace_csv applies to all domains. First arg ignored.')
1565   ENDIF
1566   trace_csv = model_config_rec%trace_csv
1567   RETURN
1568 END SUBROUTINE nl_get_trace_csv
1569 SUBROUTINE nl_get_use_html ( id_id , use_html )
1570   logical , INTENT(OUT) :: use_html
1571   INTEGER id_id
1572   CHARACTER*80 emess
1573   IF ( id_id .NE. 1 ) THEN
1574     call wrf_debug(1,&
1575 'WARNING in nl_get_use_html: use_html applies to all domains. First arg ignored.')
1576   ENDIF
1577   use_html = model_config_rec%use_html
1578   RETURN
1579 END SUBROUTINE nl_get_use_html
1580 SUBROUTINE nl_get_warnings_are_fatal ( id_id , warnings_are_fatal )
1581   logical , INTENT(OUT) :: warnings_are_fatal
1582   INTEGER id_id
1583   CHARACTER*80 emess
1584   IF ( id_id .NE. 1 ) THEN
1585     call wrf_debug(1,&
1586 'WARNING in nl_get_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
1587   ENDIF
1588   warnings_are_fatal = model_config_rec%warnings_are_fatal
1589   RETURN
1590 END SUBROUTINE nl_get_warnings_are_fatal
1591 SUBROUTINE nl_get_test_wrfvar ( id_id , test_wrfvar )
1592   logical , INTENT(OUT) :: test_wrfvar
1593   INTEGER id_id
1594   CHARACTER*80 emess
1595   IF ( id_id .NE. 1 ) THEN
1596     call wrf_debug(1,&
1597 'WARNING in nl_get_test_wrfvar: test_wrfvar applies to all domains. First arg ignored.')
1598   ENDIF
1599   test_wrfvar = model_config_rec%test_wrfvar
1600   RETURN
1601 END SUBROUTINE nl_get_test_wrfvar
1602 SUBROUTINE nl_get_test_transforms ( id_id , test_transforms )
1603   logical , INTENT(OUT) :: test_transforms
1604   INTEGER id_id
1605   CHARACTER*80 emess
1606   IF ( id_id .NE. 1 ) THEN
1607     call wrf_debug(1,&
1608 'WARNING in nl_get_test_transforms: test_transforms applies to all domains. First arg ignored.')
1609   ENDIF
1610   test_transforms = model_config_rec%test_transforms
1611   RETURN
1612 END SUBROUTINE nl_get_test_transforms
1613 SUBROUTINE nl_get_test_statistics ( id_id , test_statistics )
1614   logical , INTENT(OUT) :: test_statistics
1615   INTEGER id_id
1616   CHARACTER*80 emess
1617   IF ( id_id .NE. 1 ) THEN
1618     call wrf_debug(1,&
1619 'WARNING in nl_get_test_statistics: test_statistics applies to all domains. First arg ignored.')
1620   ENDIF
1621   test_statistics = model_config_rec%test_statistics
1622   RETURN
1623 END SUBROUTINE nl_get_test_statistics
1624 SUBROUTINE nl_get_interpolate_stats ( id_id , interpolate_stats )
1625   logical , INTENT(OUT) :: interpolate_stats
1626   INTEGER id_id
1627   CHARACTER*80 emess
1628   IF ( id_id .NE. 1 ) THEN
1629     call wrf_debug(1,&
1630 'WARNING in nl_get_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
1631   ENDIF
1632   interpolate_stats = model_config_rec%interpolate_stats
1633   RETURN
1634 END SUBROUTINE nl_get_interpolate_stats
1635 SUBROUTINE nl_get_test_dm_exact ( id_id , test_dm_exact )
1636   logical , INTENT(OUT) :: test_dm_exact
1637   INTEGER id_id
1638   CHARACTER*80 emess
1639   IF ( id_id .NE. 1 ) THEN
1640     call wrf_debug(1,&
1641 'WARNING in nl_get_test_dm_exact: test_dm_exact applies to all domains. First arg ignored.')
1642   ENDIF
1643   test_dm_exact = model_config_rec%test_dm_exact
1644   RETURN
1645 END SUBROUTINE nl_get_test_dm_exact
1646 SUBROUTINE nl_get_cv_options_hum ( id_id , cv_options_hum )
1647   integer , INTENT(OUT) :: cv_options_hum
1648   INTEGER id_id
1649   CHARACTER*80 emess
1650   IF ( id_id .NE. 1 ) THEN
1651     call wrf_debug(1,&
1652 'WARNING in nl_get_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
1653   ENDIF
1654   cv_options_hum = model_config_rec%cv_options_hum
1655   RETURN
1656 END SUBROUTINE nl_get_cv_options_hum
1657 SUBROUTINE nl_get_check_rh ( id_id , check_rh )
1658   integer , INTENT(OUT) :: check_rh
1659   INTEGER id_id
1660   CHARACTER*80 emess
1661   IF ( id_id .NE. 1 ) THEN
1662     call wrf_debug(1,&
1663 'WARNING in nl_get_check_rh: check_rh applies to all domains. First arg ignored.')
1664   ENDIF
1665   check_rh = model_config_rec%check_rh
1666   RETURN
1667 END SUBROUTINE nl_get_check_rh
1668 SUBROUTINE nl_get_set_omb_rand_fac ( id_id , set_omb_rand_fac )
1669   integer , INTENT(OUT) :: set_omb_rand_fac
1670   INTEGER id_id
1671   CHARACTER*80 emess
1672   IF ( id_id .NE. 1 ) THEN
1673     call wrf_debug(1,&
1674 'WARNING in nl_get_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
1675   ENDIF
1676   set_omb_rand_fac = model_config_rec%set_omb_rand_fac
1677   RETURN
1678 END SUBROUTINE nl_get_set_omb_rand_fac
1679 SUBROUTINE nl_get_seed_array1 ( id_id , seed_array1 )
1680   integer , INTENT(OUT) :: seed_array1
1681   INTEGER id_id
1682   CHARACTER*80 emess
1683   IF ( id_id .NE. 1 ) THEN
1684     call wrf_debug(1,&
1685 'WARNING in nl_get_seed_array1: seed_array1 applies to all domains. First arg ignored.')
1686   ENDIF
1687   seed_array1 = model_config_rec%seed_array1
1688   RETURN
1689 END SUBROUTINE nl_get_seed_array1
1690 SUBROUTINE nl_get_seed_array2 ( id_id , seed_array2 )
1691   integer , INTENT(OUT) :: seed_array2
1692   INTEGER id_id
1693   CHARACTER*80 emess
1694   IF ( id_id .NE. 1 ) THEN
1695     call wrf_debug(1,&
1696 'WARNING in nl_get_seed_array2: seed_array2 applies to all domains. First arg ignored.')
1697   ENDIF
1698   seed_array2 = model_config_rec%seed_array2
1699   RETURN
1700 END SUBROUTINE nl_get_seed_array2
1701 SUBROUTINE nl_get_sfc_assi_options ( id_id , sfc_assi_options )
1702   integer , INTENT(OUT) :: sfc_assi_options
1703   INTEGER id_id
1704   CHARACTER*80 emess
1705   IF ( id_id .NE. 1 ) THEN
1706     call wrf_debug(1,&
1707 'WARNING in nl_get_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
1708   ENDIF
1709   sfc_assi_options = model_config_rec%sfc_assi_options
1710   RETURN
1711 END SUBROUTINE nl_get_sfc_assi_options
1712 SUBROUTINE nl_get_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
1713   logical , INTENT(OUT) :: calculate_cg_cost_fn
1714   INTEGER id_id
1715   CHARACTER*80 emess
1716   IF ( id_id .NE. 1 ) THEN
1717     call wrf_debug(1,&
1718 'WARNING in nl_get_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
1719   ENDIF
1720   calculate_cg_cost_fn = model_config_rec%calculate_cg_cost_fn
1721   RETURN
1722 END SUBROUTINE nl_get_calculate_cg_cost_fn
1723 SUBROUTINE nl_get_lat_stats_option ( id_id , lat_stats_option )
1724   logical , INTENT(OUT) :: lat_stats_option
1725   INTEGER id_id
1726   CHARACTER*80 emess
1727   IF ( id_id .NE. 1 ) THEN
1728     call wrf_debug(1,&
1729 'WARNING in nl_get_lat_stats_option: lat_stats_option applies to all domains. First arg ignored.')
1730   ENDIF
1731   lat_stats_option = model_config_rec%lat_stats_option
1732   RETURN
1733 END SUBROUTINE nl_get_lat_stats_option
1734 SUBROUTINE nl_get_balance_type ( id_id , balance_type )
1735   integer , INTENT(OUT) :: balance_type
1736   INTEGER id_id
1737   CHARACTER*80 emess
1738   IF ( id_id .NE. 1 ) THEN
1739     call wrf_debug(1,&
1740 'WARNING in nl_get_balance_type: balance_type applies to all domains. First arg ignored.')
1741   ENDIF
1742   balance_type = model_config_rec%balance_type
1743   RETURN
1744 END SUBROUTINE nl_get_balance_type
1745 SUBROUTINE nl_get_vert_corr ( id_id , vert_corr )
1746   integer , INTENT(OUT) :: vert_corr
1747   INTEGER id_id
1748   CHARACTER*80 emess
1749   IF ( id_id .NE. 1 ) THEN
1750     call wrf_debug(1,&
1751 'WARNING in nl_get_vert_corr: vert_corr applies to all domains. First arg ignored.')
1752   ENDIF
1753   vert_corr = model_config_rec%vert_corr
1754   RETURN
1755 END SUBROUTINE nl_get_vert_corr
1756 SUBROUTINE nl_get_vertical_ip ( id_id , vertical_ip )
1757   integer , INTENT(OUT) :: vertical_ip
1758   INTEGER id_id
1759   CHARACTER*80 emess
1760   IF ( id_id .NE. 1 ) THEN
1761     call wrf_debug(1,&
1762 'WARNING in nl_get_vertical_ip: vertical_ip applies to all domains. First arg ignored.')
1763   ENDIF
1764   vertical_ip = model_config_rec%vertical_ip
1765   RETURN
1766 END SUBROUTINE nl_get_vertical_ip
1767 SUBROUTINE nl_get_vert_evalue ( id_id , vert_evalue )
1768   integer , INTENT(OUT) :: vert_evalue
1769   INTEGER id_id
1770   CHARACTER*80 emess
1771   IF ( id_id .NE. 1 ) THEN
1772     call wrf_debug(1,&
1773 'WARNING in nl_get_vert_evalue: vert_evalue applies to all domains. First arg ignored.')
1774   ENDIF
1775   vert_evalue = model_config_rec%vert_evalue
1776   RETURN
1777 END SUBROUTINE nl_get_vert_evalue
1778 SUBROUTINE nl_get_max_vert_var1 ( id_id , max_vert_var1 )
1779   real , INTENT(OUT) :: max_vert_var1
1780   INTEGER id_id
1781   CHARACTER*80 emess
1782   IF ( id_id .NE. 1 ) THEN
1783     call wrf_debug(1,&
1784 'WARNING in nl_get_max_vert_var1: max_vert_var1 applies to all domains. First arg ignored.')
1785   ENDIF
1786   max_vert_var1 = model_config_rec%max_vert_var1
1787   RETURN
1788 END SUBROUTINE nl_get_max_vert_var1
1789 SUBROUTINE nl_get_max_vert_var2 ( id_id , max_vert_var2 )
1790   real , INTENT(OUT) :: max_vert_var2
1791   INTEGER id_id
1792   CHARACTER*80 emess
1793   IF ( id_id .NE. 1 ) THEN
1794     call wrf_debug(1,&
1795 'WARNING in nl_get_max_vert_var2: max_vert_var2 applies to all domains. First arg ignored.')
1796   ENDIF
1797   max_vert_var2 = model_config_rec%max_vert_var2
1798   RETURN
1799 END SUBROUTINE nl_get_max_vert_var2
1800 SUBROUTINE nl_get_max_vert_var3 ( id_id , max_vert_var3 )
1801   real , INTENT(OUT) :: max_vert_var3
1802   INTEGER id_id
1803   CHARACTER*80 emess
1804   IF ( id_id .NE. 1 ) THEN
1805     call wrf_debug(1,&
1806 'WARNING in nl_get_max_vert_var3: max_vert_var3 applies to all domains. First arg ignored.')
1807   ENDIF
1808   max_vert_var3 = model_config_rec%max_vert_var3
1809   RETURN
1810 END SUBROUTINE nl_get_max_vert_var3
1811 SUBROUTINE nl_get_max_vert_var4 ( id_id , max_vert_var4 )
1812   real , INTENT(OUT) :: max_vert_var4
1813   INTEGER id_id
1814   CHARACTER*80 emess
1815   IF ( id_id .NE. 1 ) THEN
1816     call wrf_debug(1,&
1817 'WARNING in nl_get_max_vert_var4: max_vert_var4 applies to all domains. First arg ignored.')
1818   ENDIF
1819   max_vert_var4 = model_config_rec%max_vert_var4
1820   RETURN
1821 END SUBROUTINE nl_get_max_vert_var4
1822 SUBROUTINE nl_get_max_vert_var5 ( id_id , max_vert_var5 )
1823   real , INTENT(OUT) :: max_vert_var5
1824   INTEGER id_id
1825   CHARACTER*80 emess
1826   IF ( id_id .NE. 1 ) THEN
1827     call wrf_debug(1,&
1828 'WARNING in nl_get_max_vert_var5: max_vert_var5 applies to all domains. First arg ignored.')
1829   ENDIF
1830   max_vert_var5 = model_config_rec%max_vert_var5
1831   RETURN
1832 END SUBROUTINE nl_get_max_vert_var5
1833 SUBROUTINE nl_get_rtminit_print ( id_id , rtminit_print )
1834   integer , INTENT(OUT) :: rtminit_print
1835   INTEGER id_id
1836   CHARACTER*80 emess
1837   IF ( id_id .NE. 1 ) THEN
1838     call wrf_debug(1,&
1839 'WARNING in nl_get_rtminit_print: rtminit_print applies to all domains. First arg ignored.')
1840   ENDIF
1841   rtminit_print = model_config_rec%rtminit_print
1842   RETURN
1843 END SUBROUTINE nl_get_rtminit_print
1844 SUBROUTINE nl_get_rtminit_nsensor ( id_id , rtminit_nsensor )
1845   integer , INTENT(OUT) :: rtminit_nsensor
1846   INTEGER id_id
1847   CHARACTER*80 emess
1848   IF ( id_id .NE. 1 ) THEN
1849     call wrf_debug(1,&
1850 'WARNING in nl_get_rtminit_nsensor: rtminit_nsensor applies to all domains. First arg ignored.')
1851   ENDIF
1852   rtminit_nsensor = model_config_rec%rtminit_nsensor
1853   RETURN
1854 END SUBROUTINE nl_get_rtminit_nsensor
1855 SUBROUTINE nl_get_rtminit_platform ( id_id , rtminit_platform )
1856   integer , INTENT(OUT) :: rtminit_platform
1857   INTEGER id_id
1858   CHARACTER*80 emess
1859   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
1860     WRITE(emess,*)'nl_get_rtminit_platform: Out of range instruments number: ',id_id
1861     CALL wrf_error_fatal(emess)
1862   ENDIF
1863   rtminit_platform = model_config_rec%rtminit_platform(id_id)
1864   RETURN
1865 END SUBROUTINE nl_get_rtminit_platform
1866 SUBROUTINE nl_get_rtminit_satid ( id_id , rtminit_satid )
1867   integer , INTENT(OUT) :: rtminit_satid
1868   INTEGER id_id
1869   CHARACTER*80 emess
1870   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
1871     WRITE(emess,*)'nl_get_rtminit_satid: Out of range instruments number: ',id_id
1872     CALL wrf_error_fatal(emess)
1873   ENDIF
1874   rtminit_satid = model_config_rec%rtminit_satid(id_id)
1875   RETURN
1876 END SUBROUTINE nl_get_rtminit_satid
1877 SUBROUTINE nl_get_rtminit_sensor ( id_id , rtminit_sensor )
1878   integer , INTENT(OUT) :: rtminit_sensor
1879   INTEGER id_id
1880   CHARACTER*80 emess
1881   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
1882     WRITE(emess,*)'nl_get_rtminit_sensor: Out of range instruments number: ',id_id
1883     CALL wrf_error_fatal(emess)
1884   ENDIF
1885   rtminit_sensor = model_config_rec%rtminit_sensor(id_id)
1886   RETURN
1887 END SUBROUTINE nl_get_rtminit_sensor
1888 SUBROUTINE nl_get_rad_monitoring ( id_id , rad_monitoring )
1889   integer , INTENT(OUT) :: rad_monitoring
1890   INTEGER id_id
1891   CHARACTER*80 emess
1892   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
1893     WRITE(emess,*)'nl_get_rad_monitoring: Out of range instruments number: ',id_id
1894     CALL wrf_error_fatal(emess)
1895   ENDIF
1896   rad_monitoring = model_config_rec%rad_monitoring(id_id)
1897   RETURN
1898 END SUBROUTINE nl_get_rad_monitoring
1899 SUBROUTINE nl_get_thinning_mesh ( id_id , thinning_mesh )
1900   real , INTENT(OUT) :: thinning_mesh
1901   INTEGER id_id
1902   CHARACTER*80 emess
1903   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
1904     WRITE(emess,*)'nl_get_thinning_mesh: Out of range instruments number: ',id_id
1905     CALL wrf_error_fatal(emess)
1906   ENDIF
1907   thinning_mesh = model_config_rec%thinning_mesh(id_id)
1908   RETURN
1909 END SUBROUTINE nl_get_thinning_mesh
1910 SUBROUTINE nl_get_thinning ( id_id , thinning )
1911   logical , INTENT(OUT) :: thinning
1912   INTEGER id_id
1913   CHARACTER*80 emess
1914   IF ( id_id .NE. 1 ) THEN
1915     call wrf_debug(1,&
1916 'WARNING in nl_get_thinning: thinning applies to all domains. First arg ignored.')
1917   ENDIF
1918   thinning = model_config_rec%thinning
1919   RETURN
1920 END SUBROUTINE nl_get_thinning
1921 SUBROUTINE nl_get_read_biascoef ( id_id , read_biascoef )
1922   logical , INTENT(OUT) :: read_biascoef
1923   INTEGER id_id
1924   CHARACTER*80 emess
1925   IF ( id_id .NE. 1 ) THEN
1926     call wrf_debug(1,&
1927 'WARNING in nl_get_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
1928   ENDIF
1929   read_biascoef = model_config_rec%read_biascoef
1930   RETURN
1931 END SUBROUTINE nl_get_read_biascoef
1932 SUBROUTINE nl_get_biascorr ( id_id , biascorr )
1933   logical , INTENT(OUT) :: biascorr
1934   INTEGER id_id
1935   CHARACTER*80 emess
1936   IF ( id_id .NE. 1 ) THEN
1937     call wrf_debug(1,&
1938 'WARNING in nl_get_biascorr: biascorr applies to all domains. First arg ignored.')
1939   ENDIF
1940   biascorr = model_config_rec%biascorr
1941   RETURN
1942 END SUBROUTINE nl_get_biascorr
1943 SUBROUTINE nl_get_biasprep ( id_id , biasprep )
1944   logical , INTENT(OUT) :: biasprep
1945   INTEGER id_id
1946   CHARACTER*80 emess
1947   IF ( id_id .NE. 1 ) THEN
1948     call wrf_debug(1,&
1949 'WARNING in nl_get_biasprep: biasprep applies to all domains. First arg ignored.')
1950   ENDIF
1951   biasprep = model_config_rec%biasprep
1952   RETURN
1953 END SUBROUTINE nl_get_biasprep
1954 SUBROUTINE nl_get_rttov_scatt ( id_id , rttov_scatt )
1955   logical , INTENT(OUT) :: rttov_scatt
1956   INTEGER id_id
1957   CHARACTER*80 emess
1958   IF ( id_id .NE. 1 ) THEN
1959     call wrf_debug(1,&
1960 'WARNING in nl_get_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
1961   ENDIF
1962   rttov_scatt = model_config_rec%rttov_scatt
1963   RETURN
1964 END SUBROUTINE nl_get_rttov_scatt
1965 SUBROUTINE nl_get_write_profile ( id_id , write_profile )
1966   logical , INTENT(OUT) :: write_profile
1967   INTEGER id_id
1968   CHARACTER*80 emess
1969   IF ( id_id .NE. 1 ) THEN
1970     call wrf_debug(1,&
1971 'WARNING in nl_get_write_profile: write_profile applies to all domains. First arg ignored.')
1972   ENDIF
1973   write_profile = model_config_rec%write_profile
1974   RETURN
1975 END SUBROUTINE nl_get_write_profile
1976 SUBROUTINE nl_get_qc_rad ( id_id , qc_rad )
1977   logical , INTENT(OUT) :: qc_rad
1978   INTEGER id_id
1979   CHARACTER*80 emess
1980   IF ( id_id .NE. 1 ) THEN
1981     call wrf_debug(1,&
1982 'WARNING in nl_get_qc_rad: qc_rad applies to all domains. First arg ignored.')
1983   ENDIF
1984   qc_rad = model_config_rec%qc_rad
1985   RETURN
1986 END SUBROUTINE nl_get_qc_rad
1987 SUBROUTINE nl_get_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
1988   logical , INTENT(OUT) :: write_iv_rad_ascii
1989   INTEGER id_id
1990   CHARACTER*80 emess
1991   IF ( id_id .NE. 1 ) THEN
1992     call wrf_debug(1,&
1993 'WARNING in nl_get_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
1994   ENDIF
1995   write_iv_rad_ascii = model_config_rec%write_iv_rad_ascii
1996   RETURN
1997 END SUBROUTINE nl_get_write_iv_rad_ascii
1998 SUBROUTINE nl_get_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
1999   logical , INTENT(OUT) :: write_oa_rad_ascii
2000   INTEGER id_id
2001   CHARACTER*80 emess
2002   IF ( id_id .NE. 1 ) THEN
2003     call wrf_debug(1,&
2004 'WARNING in nl_get_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
2005   ENDIF
2006   write_oa_rad_ascii = model_config_rec%write_oa_rad_ascii
2007   RETURN
2008 END SUBROUTINE nl_get_write_oa_rad_ascii
2009 SUBROUTINE nl_get_write_filtered_rad ( id_id , write_filtered_rad )
2010   logical , INTENT(OUT) :: write_filtered_rad
2011   INTEGER id_id
2012   CHARACTER*80 emess
2013   IF ( id_id .NE. 1 ) THEN
2014     call wrf_debug(1,&
2015 'WARNING in nl_get_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
2016   ENDIF
2017   write_filtered_rad = model_config_rec%write_filtered_rad
2018   RETURN
2019 END SUBROUTINE nl_get_write_filtered_rad
2020 SUBROUTINE nl_get_use_error_factor_rad ( id_id , use_error_factor_rad )
2021   logical , INTENT(OUT) :: use_error_factor_rad
2022   INTEGER id_id
2023   CHARACTER*80 emess
2024   IF ( id_id .NE. 1 ) THEN
2025     call wrf_debug(1,&
2026 'WARNING in nl_get_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
2027   ENDIF
2028   use_error_factor_rad = model_config_rec%use_error_factor_rad
2029   RETURN
2030 END SUBROUTINE nl_get_use_error_factor_rad
2031 SUBROUTINE nl_get_use_landem ( id_id , use_landem )
2032   logical , INTENT(OUT) :: use_landem
2033   INTEGER id_id
2034   CHARACTER*80 emess
2035   IF ( id_id .NE. 1 ) THEN
2036     call wrf_debug(1,&
2037 'WARNING in nl_get_use_landem: use_landem applies to all domains. First arg ignored.')
2038   ENDIF
2039   use_landem = model_config_rec%use_landem
2040   RETURN
2041 END SUBROUTINE nl_get_use_landem
2042 SUBROUTINE nl_get_mw_emis_sea ( id_id , mw_emis_sea )
2043   integer , INTENT(OUT) :: mw_emis_sea
2044   INTEGER id_id
2045   CHARACTER*80 emess
2046   IF ( id_id .NE. 1 ) THEN
2047     call wrf_debug(1,&
2048 'WARNING in nl_get_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
2049   ENDIF
2050   mw_emis_sea = model_config_rec%mw_emis_sea
2051   RETURN
2052 END SUBROUTINE nl_get_mw_emis_sea
2053 SUBROUTINE nl_get_tovs_min_transfer ( id_id , tovs_min_transfer )
2054   integer , INTENT(OUT) :: tovs_min_transfer
2055   INTEGER id_id
2056   CHARACTER*80 emess
2057   IF ( id_id .NE. 1 ) THEN
2058     call wrf_debug(1,&
2059 'WARNING in nl_get_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
2060   ENDIF
2061   tovs_min_transfer = model_config_rec%tovs_min_transfer
2062   RETURN
2063 END SUBROUTINE nl_get_tovs_min_transfer
2064 SUBROUTINE nl_get_tovs_batch ( id_id , tovs_batch )
2065   logical , INTENT(OUT) :: tovs_batch
2066   INTEGER id_id
2067   CHARACTER*80 emess
2068   IF ( id_id .NE. 1 ) THEN
2069     call wrf_debug(1,&
2070 'WARNING in nl_get_tovs_batch: tovs_batch applies to all domains. First arg ignored.')
2071   ENDIF
2072   tovs_batch = model_config_rec%tovs_batch
2073   RETURN
2074 END SUBROUTINE nl_get_tovs_batch
2075 SUBROUTINE nl_get_rtm_option ( id_id , rtm_option )
2076   integer , INTENT(OUT) :: rtm_option
2077   INTEGER id_id
2078   CHARACTER*80 emess
2079   IF ( id_id .NE. 1 ) THEN
2080     call wrf_debug(1,&
2081 'WARNING in nl_get_rtm_option: rtm_option applies to all domains. First arg ignored.')
2082   ENDIF
2083   rtm_option = model_config_rec%rtm_option
2084   RETURN
2085 END SUBROUTINE nl_get_rtm_option
2086 SUBROUTINE nl_get_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
2087   logical , INTENT(OUT) :: use_crtm_kmatrix
2088   INTEGER id_id
2089   CHARACTER*80 emess
2090   IF ( id_id .NE. 1 ) THEN
2091     call wrf_debug(1,&
2092 'WARNING in nl_get_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
2093   ENDIF
2094   use_crtm_kmatrix = model_config_rec%use_crtm_kmatrix
2095   RETURN
2096 END SUBROUTINE nl_get_use_crtm_kmatrix
2097 SUBROUTINE nl_get_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
2098   logical , INTENT(OUT) :: use_crtm_kmatrix_fast
2099   INTEGER id_id
2100   CHARACTER*80 emess
2101   IF ( id_id .NE. 1 ) THEN
2102     call wrf_debug(1,&
2103 'WARNING in nl_get_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
2104   ENDIF
2105   use_crtm_kmatrix_fast = model_config_rec%use_crtm_kmatrix_fast
2106   RETURN
2107 END SUBROUTINE nl_get_use_crtm_kmatrix_fast
2108 SUBROUTINE nl_get_crtm_cloud ( id_id , crtm_cloud )
2109   logical , INTENT(OUT) :: crtm_cloud
2110   INTEGER id_id
2111   CHARACTER*80 emess
2112   IF ( id_id .NE. 1 ) THEN
2113     call wrf_debug(1,&
2114 'WARNING in nl_get_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
2115   ENDIF
2116   crtm_cloud = model_config_rec%crtm_cloud
2117   RETURN
2118 END SUBROUTINE nl_get_crtm_cloud
2119 SUBROUTINE nl_get_spccoeff_file ( id_id , spccoeff_file )
2120   character*256 , INTENT(OUT) :: spccoeff_file
2121   INTEGER id_id
2122   CHARACTER*80 emess
2123   IF ( id_id .NE. 1 ) THEN
2124     call wrf_debug(1,&
2125 'WARNING in nl_get_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
2126   ENDIF
2127   spccoeff_file = trim(model_config_rec%spccoeff_file)
2128   RETURN
2129 END SUBROUTINE nl_get_spccoeff_file
2130 SUBROUTINE nl_get_taucoeff_file ( id_id , taucoeff_file )
2131   character*256 , INTENT(OUT) :: taucoeff_file
2132   INTEGER id_id
2133   CHARACTER*80 emess
2134   IF ( id_id .NE. 1 ) THEN
2135     call wrf_debug(1,&
2136 'WARNING in nl_get_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
2137   ENDIF
2138   taucoeff_file = trim(model_config_rec%taucoeff_file)
2139   RETURN
2140 END SUBROUTINE nl_get_taucoeff_file
2141 SUBROUTINE nl_get_aerosolcoeff_file ( id_id , aerosolcoeff_file )
2142   character*256 , INTENT(OUT) :: aerosolcoeff_file
2143   INTEGER id_id
2144   CHARACTER*80 emess
2145   IF ( id_id .NE. 1 ) THEN
2146     call wrf_debug(1,&
2147 'WARNING in nl_get_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
2148   ENDIF
2149   aerosolcoeff_file = trim(model_config_rec%aerosolcoeff_file)
2150   RETURN
2151 END SUBROUTINE nl_get_aerosolcoeff_file
2152 SUBROUTINE nl_get_cloudcoeff_file ( id_id , cloudcoeff_file )
2153   character*256 , INTENT(OUT) :: cloudcoeff_file
2154   INTEGER id_id
2155   CHARACTER*80 emess
2156   IF ( id_id .NE. 1 ) THEN
2157     call wrf_debug(1,&
2158 'WARNING in nl_get_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
2159   ENDIF
2160   cloudcoeff_file = trim(model_config_rec%cloudcoeff_file)
2161   RETURN
2162 END SUBROUTINE nl_get_cloudcoeff_file
2163 SUBROUTINE nl_get_emiscoeff_file ( id_id , emiscoeff_file )
2164   character*256 , INTENT(OUT) :: emiscoeff_file
2165   INTEGER id_id
2166   CHARACTER*80 emess
2167   IF ( id_id .NE. 1 ) THEN
2168     call wrf_debug(1,&
2169 'WARNING in nl_get_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
2170   ENDIF
2171   emiscoeff_file = trim(model_config_rec%emiscoeff_file)
2172   RETURN
2173 END SUBROUTINE nl_get_emiscoeff_file
2174 SUBROUTINE nl_get_num_pseudo ( id_id , num_pseudo )
2175   integer , INTENT(OUT) :: num_pseudo
2176   INTEGER id_id
2177   CHARACTER*80 emess
2178   IF ( id_id .NE. 1 ) THEN
2179     call wrf_debug(1,&
2180 'WARNING in nl_get_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
2181   ENDIF
2182   num_pseudo = model_config_rec%num_pseudo
2183   RETURN
2184 END SUBROUTINE nl_get_num_pseudo
2185 SUBROUTINE nl_get_pseudo_x ( id_id , pseudo_x )
2186   real , INTENT(OUT) :: pseudo_x
2187   INTEGER id_id
2188   CHARACTER*80 emess
2189   IF ( id_id .NE. 1 ) THEN
2190     call wrf_debug(1,&
2191 'WARNING in nl_get_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
2192   ENDIF
2193   pseudo_x = model_config_rec%pseudo_x
2194   RETURN
2195 END SUBROUTINE nl_get_pseudo_x
2196 SUBROUTINE nl_get_pseudo_y ( id_id , pseudo_y )
2197   real , INTENT(OUT) :: pseudo_y
2198   INTEGER id_id
2199   CHARACTER*80 emess
2200   IF ( id_id .NE. 1 ) THEN
2201     call wrf_debug(1,&
2202 'WARNING in nl_get_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
2203   ENDIF
2204   pseudo_y = model_config_rec%pseudo_y
2205   RETURN
2206 END SUBROUTINE nl_get_pseudo_y
2207 SUBROUTINE nl_get_pseudo_z ( id_id , pseudo_z )
2208   real , INTENT(OUT) :: pseudo_z
2209   INTEGER id_id
2210   CHARACTER*80 emess
2211   IF ( id_id .NE. 1 ) THEN
2212     call wrf_debug(1,&
2213 'WARNING in nl_get_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
2214   ENDIF
2215   pseudo_z = model_config_rec%pseudo_z
2216   RETURN
2217 END SUBROUTINE nl_get_pseudo_z
2218 SUBROUTINE nl_get_pseudo_val ( id_id , pseudo_val )
2219   real , INTENT(OUT) :: pseudo_val
2220   INTEGER id_id
2221   CHARACTER*80 emess
2222   IF ( id_id .NE. 1 ) THEN
2223     call wrf_debug(1,&
2224 'WARNING in nl_get_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
2225   ENDIF
2226   pseudo_val = model_config_rec%pseudo_val
2227   RETURN
2228 END SUBROUTINE nl_get_pseudo_val
2229 SUBROUTINE nl_get_pseudo_err ( id_id , pseudo_err )
2230   real , INTENT(OUT) :: pseudo_err
2231   INTEGER id_id
2232   CHARACTER*80 emess
2233   IF ( id_id .NE. 1 ) THEN
2234     call wrf_debug(1,&
2235 'WARNING in nl_get_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
2236   ENDIF
2237   pseudo_err = model_config_rec%pseudo_err
2238   RETURN
2239 END SUBROUTINE nl_get_pseudo_err
2240 SUBROUTINE nl_get_alphacv_method ( id_id , alphacv_method )
2241   integer , INTENT(OUT) :: alphacv_method
2242   INTEGER id_id
2243   CHARACTER*80 emess
2244   IF ( id_id .NE. 1 ) THEN
2245     call wrf_debug(1,&
2246 'WARNING in nl_get_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
2247   ENDIF
2248   alphacv_method = model_config_rec%alphacv_method
2249   RETURN
2250 END SUBROUTINE nl_get_alphacv_method
2251 SUBROUTINE nl_get_ensdim_alpha ( id_id , ensdim_alpha )
2252   integer , INTENT(OUT) :: ensdim_alpha
2253   INTEGER id_id
2254   CHARACTER*80 emess
2255   IF ( id_id .NE. 1 ) THEN
2256     call wrf_debug(1,&
2257 'WARNING in nl_get_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
2258   ENDIF
2259   ensdim_alpha = model_config_rec%ensdim_alpha
2260   RETURN
2261 END SUBROUTINE nl_get_ensdim_alpha
2262 SUBROUTINE nl_get_alpha_truncation ( id_id , alpha_truncation )
2263   integer , INTENT(OUT) :: alpha_truncation
2264   INTEGER id_id
2265   CHARACTER*80 emess
2266   IF ( id_id .NE. 1 ) THEN
2267     call wrf_debug(1,&
2268 'WARNING in nl_get_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
2269   ENDIF
2270   alpha_truncation = model_config_rec%alpha_truncation
2271   RETURN
2272 END SUBROUTINE nl_get_alpha_truncation
2273 SUBROUTINE nl_get_alpha_corr_type ( id_id , alpha_corr_type )
2274   integer , INTENT(OUT) :: alpha_corr_type
2275   INTEGER id_id
2276   CHARACTER*80 emess
2277   IF ( id_id .NE. 1 ) THEN
2278     call wrf_debug(1,&
2279 'WARNING in nl_get_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
2280   ENDIF
2281   alpha_corr_type = model_config_rec%alpha_corr_type
2282   RETURN
2283 END SUBROUTINE nl_get_alpha_corr_type
2284 SUBROUTINE nl_get_alpha_corr_scale ( id_id , alpha_corr_scale )
2285   real , INTENT(OUT) :: alpha_corr_scale
2286   INTEGER id_id
2287   CHARACTER*80 emess
2288   IF ( id_id .NE. 1 ) THEN
2289     call wrf_debug(1,&
2290 'WARNING in nl_get_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
2291   ENDIF
2292   alpha_corr_scale = model_config_rec%alpha_corr_scale
2293   RETURN
2294 END SUBROUTINE nl_get_alpha_corr_scale
2295 SUBROUTINE nl_get_alpha_std_dev ( id_id , alpha_std_dev )
2296   real , INTENT(OUT) :: alpha_std_dev
2297   INTEGER id_id
2298   CHARACTER*80 emess
2299   IF ( id_id .NE. 1 ) THEN
2300     call wrf_debug(1,&
2301 'WARNING in nl_get_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
2302   ENDIF
2303   alpha_std_dev = model_config_rec%alpha_std_dev
2304   RETURN
2305 END SUBROUTINE nl_get_alpha_std_dev
2306 SUBROUTINE nl_get_analysis_type ( id_id , analysis_type )
2307   character*256 , INTENT(OUT) :: analysis_type
2308   INTEGER id_id
2309   CHARACTER*80 emess
2310   IF ( id_id .NE. 1 ) THEN
2311     call wrf_debug(1,&
2312 'WARNING in nl_get_analysis_type: analysis_type applies to all domains. First arg ignored.')
2313   ENDIF
2314   analysis_type = trim(model_config_rec%analysis_type)
2315   RETURN
2316 END SUBROUTINE nl_get_analysis_type
2317 SUBROUTINE nl_get_analysis_date ( id_id , analysis_date )
2318   character*256 , INTENT(OUT) :: analysis_date
2319   INTEGER id_id
2320   CHARACTER*80 emess
2321   IF ( id_id .NE. 1 ) THEN
2322     call wrf_debug(1,&
2323 'WARNING in nl_get_analysis_date: analysis_date applies to all domains. First arg ignored.')
2324   ENDIF
2325   analysis_date = trim(model_config_rec%analysis_date)
2326   RETURN
2327 END SUBROUTINE nl_get_analysis_date
2328 SUBROUTINE nl_get_pseudo_var ( id_id , pseudo_var )
2329   character*256 , INTENT(OUT) :: pseudo_var
2330   INTEGER id_id
2331   CHARACTER*80 emess
2332   IF ( id_id .NE. 1 ) THEN
2333     call wrf_debug(1,&
2334 'WARNING in nl_get_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
2335   ENDIF
2336   pseudo_var = trim(model_config_rec%pseudo_var)
2337   RETURN
2338 END SUBROUTINE nl_get_pseudo_var
2339 SUBROUTINE nl_get_documentation_url ( id_id , documentation_url )
2340   character*256 , INTENT(OUT) :: documentation_url
2341   INTEGER id_id
2342   CHARACTER*80 emess
2343   IF ( id_id .NE. 1 ) THEN
2344     call wrf_debug(1,&
2345 'WARNING in nl_get_documentation_url: documentation_url applies to all domains. First arg ignored.')
2346   ENDIF
2347   documentation_url = trim(model_config_rec%documentation_url)
2348   RETURN
2349 END SUBROUTINE nl_get_documentation_url
2350 SUBROUTINE nl_get_time_window_min ( id_id , time_window_min )
2351   character*256 , INTENT(OUT) :: time_window_min
2352   INTEGER id_id
2353   CHARACTER*80 emess
2354   IF ( id_id .NE. 1 ) THEN
2355     call wrf_debug(1,&
2356 'WARNING in nl_get_time_window_min: time_window_min applies to all domains. First arg ignored.')
2357   ENDIF
2358   time_window_min = trim(model_config_rec%time_window_min)
2359   RETURN
2360 END SUBROUTINE nl_get_time_window_min
2361 SUBROUTINE nl_get_time_window_max ( id_id , time_window_max )
2362   character*256 , INTENT(OUT) :: time_window_max
2363   INTEGER id_id
2364   CHARACTER*80 emess
2365   IF ( id_id .NE. 1 ) THEN
2366     call wrf_debug(1,&
2367 'WARNING in nl_get_time_window_max: time_window_max applies to all domains. First arg ignored.')
2368   ENDIF
2369   time_window_max = trim(model_config_rec%time_window_max)
2370   RETURN
2371 END SUBROUTINE nl_get_time_window_max
2372 SUBROUTINE nl_get_jcdfi_use ( id_id , jcdfi_use )
2373   logical , INTENT(OUT) :: jcdfi_use
2374   INTEGER id_id
2375   CHARACTER*80 emess
2376   IF ( id_id .NE. 1 ) THEN
2377     call wrf_debug(1,&
2378 'WARNING in nl_get_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
2379   ENDIF
2380   jcdfi_use = model_config_rec%jcdfi_use
2381   RETURN
2382 END SUBROUTINE nl_get_jcdfi_use
2383 SUBROUTINE nl_get_jcdfi_tauc ( id_id , jcdfi_tauc )
2384   real , INTENT(OUT) :: jcdfi_tauc
2385   INTEGER id_id
2386   CHARACTER*80 emess
2387   IF ( id_id .NE. 1 ) THEN
2388     call wrf_debug(1,&
2389 'WARNING in nl_get_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
2390   ENDIF
2391   jcdfi_tauc = model_config_rec%jcdfi_tauc
2392   RETURN
2393 END SUBROUTINE nl_get_jcdfi_tauc
2394 SUBROUTINE nl_get_jcdfi_gama ( id_id , jcdfi_gama )
2395   real , INTENT(OUT) :: jcdfi_gama
2396   INTEGER id_id
2397   CHARACTER*80 emess
2398   IF ( id_id .NE. 1 ) THEN
2399     call wrf_debug(1,&
2400 'WARNING in nl_get_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
2401   ENDIF
2402   jcdfi_gama = model_config_rec%jcdfi_gama
2403   RETURN
2404 END SUBROUTINE nl_get_jcdfi_gama
2405 SUBROUTINE nl_get_jcdfi_error_wind ( id_id , jcdfi_error_wind )
2406   real , INTENT(OUT) :: jcdfi_error_wind
2407   INTEGER id_id
2408   CHARACTER*80 emess
2409   IF ( id_id .NE. 1 ) THEN
2410     call wrf_debug(1,&
2411 'WARNING in nl_get_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
2412   ENDIF
2413   jcdfi_error_wind = model_config_rec%jcdfi_error_wind
2414   RETURN
2415 END SUBROUTINE nl_get_jcdfi_error_wind
2416 SUBROUTINE nl_get_jcdfi_error_t ( id_id , jcdfi_error_t )
2417   real , INTENT(OUT) :: jcdfi_error_t
2418   INTEGER id_id
2419   CHARACTER*80 emess
2420   IF ( id_id .NE. 1 ) THEN
2421     call wrf_debug(1,&
2422 'WARNING in nl_get_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
2423   ENDIF
2424   jcdfi_error_t = model_config_rec%jcdfi_error_t
2425   RETURN
2426 END SUBROUTINE nl_get_jcdfi_error_t
2427 SUBROUTINE nl_get_jcdfi_error_q ( id_id , jcdfi_error_q )
2428   real , INTENT(OUT) :: jcdfi_error_q
2429   INTEGER id_id
2430   CHARACTER*80 emess
2431   IF ( id_id .NE. 1 ) THEN
2432     call wrf_debug(1,&
2433 'WARNING in nl_get_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
2434   ENDIF
2435   jcdfi_error_q = model_config_rec%jcdfi_error_q
2436   RETURN
2437 END SUBROUTINE nl_get_jcdfi_error_q
2438 SUBROUTINE nl_get_jcdfi_error_mu ( id_id , jcdfi_error_mu )
2439   real , INTENT(OUT) :: jcdfi_error_mu
2440   INTEGER id_id
2441   CHARACTER*80 emess
2442   IF ( id_id .NE. 1 ) THEN
2443     call wrf_debug(1,&
2444 'WARNING in nl_get_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
2445   ENDIF
2446   jcdfi_error_mu = model_config_rec%jcdfi_error_mu
2447   RETURN
2448 END SUBROUTINE nl_get_jcdfi_error_mu
2449 SUBROUTINE nl_get_run_days ( id_id , run_days )
2450   integer , INTENT(OUT) :: run_days
2451   INTEGER id_id
2452   CHARACTER*80 emess
2453   IF ( id_id .NE. 1 ) THEN
2454     call wrf_debug(1,&
2455 'WARNING in nl_get_run_days: run_days applies to all domains. First arg ignored.')
2456   ENDIF
2457   run_days = model_config_rec%run_days
2458   RETURN
2459 END SUBROUTINE nl_get_run_days
2460 SUBROUTINE nl_get_run_hours ( id_id , run_hours )
2461   integer , INTENT(OUT) :: run_hours
2462   INTEGER id_id
2463   CHARACTER*80 emess
2464   IF ( id_id .NE. 1 ) THEN
2465     call wrf_debug(1,&
2466 'WARNING in nl_get_run_hours: run_hours applies to all domains. First arg ignored.')
2467   ENDIF
2468   run_hours = model_config_rec%run_hours
2469   RETURN
2470 END SUBROUTINE nl_get_run_hours
2471 SUBROUTINE nl_get_run_minutes ( id_id , run_minutes )
2472   integer , INTENT(OUT) :: run_minutes
2473   INTEGER id_id
2474   CHARACTER*80 emess
2475   IF ( id_id .NE. 1 ) THEN
2476     call wrf_debug(1,&
2477 'WARNING in nl_get_run_minutes: run_minutes applies to all domains. First arg ignored.')
2478   ENDIF
2479   run_minutes = model_config_rec%run_minutes
2480   RETURN
2481 END SUBROUTINE nl_get_run_minutes
2482 SUBROUTINE nl_get_run_seconds ( id_id , run_seconds )
2483   integer , INTENT(OUT) :: run_seconds
2484   INTEGER id_id
2485   CHARACTER*80 emess
2486   IF ( id_id .NE. 1 ) THEN
2487     call wrf_debug(1,&
2488 'WARNING in nl_get_run_seconds: run_seconds applies to all domains. First arg ignored.')
2489   ENDIF
2490   run_seconds = model_config_rec%run_seconds
2491   RETURN
2492 END SUBROUTINE nl_get_run_seconds
2493 SUBROUTINE nl_get_start_year ( id_id , start_year )
2494   integer , INTENT(OUT) :: start_year
2495   INTEGER id_id
2496   CHARACTER*80 emess
2497   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2498     WRITE(emess,*)'nl_get_start_year: Out of range domain number: ',id_id
2499     CALL wrf_error_fatal(emess)
2500   ENDIF
2501   start_year = model_config_rec%start_year(id_id)
2502   RETURN
2503 END SUBROUTINE nl_get_start_year
2504 SUBROUTINE nl_get_start_month ( id_id , start_month )
2505   integer , INTENT(OUT) :: start_month
2506   INTEGER id_id
2507   CHARACTER*80 emess
2508   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2509     WRITE(emess,*)'nl_get_start_month: Out of range domain number: ',id_id
2510     CALL wrf_error_fatal(emess)
2511   ENDIF
2512   start_month = model_config_rec%start_month(id_id)
2513   RETURN
2514 END SUBROUTINE nl_get_start_month
2515 SUBROUTINE nl_get_start_day ( id_id , start_day )
2516   integer , INTENT(OUT) :: start_day
2517   INTEGER id_id
2518   CHARACTER*80 emess
2519   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2520     WRITE(emess,*)'nl_get_start_day: Out of range domain number: ',id_id
2521     CALL wrf_error_fatal(emess)
2522   ENDIF
2523   start_day = model_config_rec%start_day(id_id)
2524   RETURN
2525 END SUBROUTINE nl_get_start_day
2526 SUBROUTINE nl_get_start_hour ( id_id , start_hour )
2527   integer , INTENT(OUT) :: start_hour
2528   INTEGER id_id
2529   CHARACTER*80 emess
2530   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2531     WRITE(emess,*)'nl_get_start_hour: Out of range domain number: ',id_id
2532     CALL wrf_error_fatal(emess)
2533   ENDIF
2534   start_hour = model_config_rec%start_hour(id_id)
2535   RETURN
2536 END SUBROUTINE nl_get_start_hour
2537 SUBROUTINE nl_get_start_minute ( id_id , start_minute )
2538   integer , INTENT(OUT) :: start_minute
2539   INTEGER id_id
2540   CHARACTER*80 emess
2541   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2542     WRITE(emess,*)'nl_get_start_minute: Out of range domain number: ',id_id
2543     CALL wrf_error_fatal(emess)
2544   ENDIF
2545   start_minute = model_config_rec%start_minute(id_id)
2546   RETURN
2547 END SUBROUTINE nl_get_start_minute
2548 SUBROUTINE nl_get_start_second ( id_id , start_second )
2549   integer , INTENT(OUT) :: start_second
2550   INTEGER id_id
2551   CHARACTER*80 emess
2552   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2553     WRITE(emess,*)'nl_get_start_second: Out of range domain number: ',id_id
2554     CALL wrf_error_fatal(emess)
2555   ENDIF
2556   start_second = model_config_rec%start_second(id_id)
2557   RETURN
2558 END SUBROUTINE nl_get_start_second
2559 SUBROUTINE nl_get_end_year ( id_id , end_year )
2560   integer , INTENT(OUT) :: end_year
2561   INTEGER id_id
2562   CHARACTER*80 emess
2563   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2564     WRITE(emess,*)'nl_get_end_year: Out of range domain number: ',id_id
2565     CALL wrf_error_fatal(emess)
2566   ENDIF
2567   end_year = model_config_rec%end_year(id_id)
2568   RETURN
2569 END SUBROUTINE nl_get_end_year
2570 SUBROUTINE nl_get_end_month ( id_id , end_month )
2571   integer , INTENT(OUT) :: end_month
2572   INTEGER id_id
2573   CHARACTER*80 emess
2574   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2575     WRITE(emess,*)'nl_get_end_month: Out of range domain number: ',id_id
2576     CALL wrf_error_fatal(emess)
2577   ENDIF
2578   end_month = model_config_rec%end_month(id_id)
2579   RETURN
2580 END SUBROUTINE nl_get_end_month
2581 SUBROUTINE nl_get_end_day ( id_id , end_day )
2582   integer , INTENT(OUT) :: end_day
2583   INTEGER id_id
2584   CHARACTER*80 emess
2585   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2586     WRITE(emess,*)'nl_get_end_day: Out of range domain number: ',id_id
2587     CALL wrf_error_fatal(emess)
2588   ENDIF
2589   end_day = model_config_rec%end_day(id_id)
2590   RETURN
2591 END SUBROUTINE nl_get_end_day
2592 SUBROUTINE nl_get_end_hour ( id_id , end_hour )
2593   integer , INTENT(OUT) :: end_hour
2594   INTEGER id_id
2595   CHARACTER*80 emess
2596   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2597     WRITE(emess,*)'nl_get_end_hour: Out of range domain number: ',id_id
2598     CALL wrf_error_fatal(emess)
2599   ENDIF
2600   end_hour = model_config_rec%end_hour(id_id)
2601   RETURN
2602 END SUBROUTINE nl_get_end_hour
2603 SUBROUTINE nl_get_end_minute ( id_id , end_minute )
2604   integer , INTENT(OUT) :: end_minute
2605   INTEGER id_id
2606   CHARACTER*80 emess
2607   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2608     WRITE(emess,*)'nl_get_end_minute: Out of range domain number: ',id_id
2609     CALL wrf_error_fatal(emess)
2610   ENDIF
2611   end_minute = model_config_rec%end_minute(id_id)
2612   RETURN
2613 END SUBROUTINE nl_get_end_minute
2614 SUBROUTINE nl_get_end_second ( id_id , end_second )
2615   integer , INTENT(OUT) :: end_second
2616   INTEGER id_id
2617   CHARACTER*80 emess
2618   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2619     WRITE(emess,*)'nl_get_end_second: Out of range domain number: ',id_id
2620     CALL wrf_error_fatal(emess)
2621   ENDIF
2622   end_second = model_config_rec%end_second(id_id)
2623   RETURN
2624 END SUBROUTINE nl_get_end_second
2625 SUBROUTINE nl_get_interval_seconds ( id_id , interval_seconds )
2626   integer , INTENT(OUT) :: interval_seconds
2627   INTEGER id_id
2628   CHARACTER*80 emess
2629   IF ( id_id .NE. 1 ) THEN
2630     call wrf_debug(1,&
2631 'WARNING in nl_get_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
2632   ENDIF
2633   interval_seconds = model_config_rec%interval_seconds
2634   RETURN
2635 END SUBROUTINE nl_get_interval_seconds
2636 SUBROUTINE nl_get_input_from_file ( id_id , input_from_file )
2637   logical , INTENT(OUT) :: input_from_file
2638   INTEGER id_id
2639   CHARACTER*80 emess
2640   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2641     WRITE(emess,*)'nl_get_input_from_file: Out of range domain number: ',id_id
2642     CALL wrf_error_fatal(emess)
2643   ENDIF
2644   input_from_file = model_config_rec%input_from_file(id_id)
2645   RETURN
2646 END SUBROUTINE nl_get_input_from_file
2647 SUBROUTINE nl_get_fine_input_stream ( id_id , fine_input_stream )
2648   integer , INTENT(OUT) :: fine_input_stream
2649   INTEGER id_id
2650   CHARACTER*80 emess
2651   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2652     WRITE(emess,*)'nl_get_fine_input_stream: Out of range domain number: ',id_id
2653     CALL wrf_error_fatal(emess)
2654   ENDIF
2655   fine_input_stream = model_config_rec%fine_input_stream(id_id)
2656   RETURN
2657 END SUBROUTINE nl_get_fine_input_stream
2658 SUBROUTINE nl_get_input_from_hires ( id_id , input_from_hires )
2659   logical , INTENT(OUT) :: input_from_hires
2660   INTEGER id_id
2661   CHARACTER*80 emess
2662   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2663     WRITE(emess,*)'nl_get_input_from_hires: Out of range domain number: ',id_id
2664     CALL wrf_error_fatal(emess)
2665   ENDIF
2666   input_from_hires = model_config_rec%input_from_hires(id_id)
2667   RETURN
2668 END SUBROUTINE nl_get_input_from_hires
2669 SUBROUTINE nl_get_rsmas_data_path ( id_id , rsmas_data_path )
2670   character*256 , INTENT(OUT) :: rsmas_data_path
2671   INTEGER id_id
2672   CHARACTER*80 emess
2673   IF ( id_id .NE. 1 ) THEN
2674     call wrf_debug(1,&
2675 'WARNING in nl_get_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
2676   ENDIF
2677   rsmas_data_path = trim(model_config_rec%rsmas_data_path)
2678   RETURN
2679 END SUBROUTINE nl_get_rsmas_data_path
2680 SUBROUTINE nl_get_history_interval ( id_id , history_interval )
2681   integer , INTENT(OUT) :: history_interval
2682   INTEGER id_id
2683   CHARACTER*80 emess
2684   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2685     WRITE(emess,*)'nl_get_history_interval: Out of range domain number: ',id_id
2686     CALL wrf_error_fatal(emess)
2687   ENDIF
2688   history_interval = model_config_rec%history_interval(id_id)
2689   RETURN
2690 END SUBROUTINE nl_get_history_interval
2691 SUBROUTINE nl_get_frames_per_outfile ( id_id , frames_per_outfile )
2692   integer , INTENT(OUT) :: frames_per_outfile
2693   INTEGER id_id
2694   CHARACTER*80 emess
2695   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2696     WRITE(emess,*)'nl_get_frames_per_outfile: Out of range domain number: ',id_id
2697     CALL wrf_error_fatal(emess)
2698   ENDIF
2699   frames_per_outfile = model_config_rec%frames_per_outfile(id_id)
2700   RETURN
2701 END SUBROUTINE nl_get_frames_per_outfile
2702 SUBROUTINE nl_get_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
2703   integer , INTENT(OUT) :: frames_per_auxhist1
2704   INTEGER id_id
2705   CHARACTER*80 emess
2706   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2707     WRITE(emess,*)'nl_get_frames_per_auxhist1: Out of range domain number: ',id_id
2708     CALL wrf_error_fatal(emess)
2709   ENDIF
2710   frames_per_auxhist1 = model_config_rec%frames_per_auxhist1(id_id)
2711   RETURN
2712 END SUBROUTINE nl_get_frames_per_auxhist1
2713 SUBROUTINE nl_get_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
2714   integer , INTENT(OUT) :: frames_per_auxhist2
2715   INTEGER id_id
2716   CHARACTER*80 emess
2717   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2718     WRITE(emess,*)'nl_get_frames_per_auxhist2: Out of range domain number: ',id_id
2719     CALL wrf_error_fatal(emess)
2720   ENDIF
2721   frames_per_auxhist2 = model_config_rec%frames_per_auxhist2(id_id)
2722   RETURN
2723 END SUBROUTINE nl_get_frames_per_auxhist2
2724 SUBROUTINE nl_get_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
2725   integer , INTENT(OUT) :: frames_per_auxhist3
2726   INTEGER id_id
2727   CHARACTER*80 emess
2728   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2729     WRITE(emess,*)'nl_get_frames_per_auxhist3: Out of range domain number: ',id_id
2730     CALL wrf_error_fatal(emess)
2731   ENDIF
2732   frames_per_auxhist3 = model_config_rec%frames_per_auxhist3(id_id)
2733   RETURN
2734 END SUBROUTINE nl_get_frames_per_auxhist3
2735 SUBROUTINE nl_get_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
2736   integer , INTENT(OUT) :: frames_per_auxhist4
2737   INTEGER id_id
2738   CHARACTER*80 emess
2739   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2740     WRITE(emess,*)'nl_get_frames_per_auxhist4: Out of range domain number: ',id_id
2741     CALL wrf_error_fatal(emess)
2742   ENDIF
2743   frames_per_auxhist4 = model_config_rec%frames_per_auxhist4(id_id)
2744   RETURN
2745 END SUBROUTINE nl_get_frames_per_auxhist4
2746 SUBROUTINE nl_get_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
2747   integer , INTENT(OUT) :: frames_per_auxhist5
2748   INTEGER id_id
2749   CHARACTER*80 emess
2750   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2751     WRITE(emess,*)'nl_get_frames_per_auxhist5: Out of range domain number: ',id_id
2752     CALL wrf_error_fatal(emess)
2753   ENDIF
2754   frames_per_auxhist5 = model_config_rec%frames_per_auxhist5(id_id)
2755   RETURN
2756 END SUBROUTINE nl_get_frames_per_auxhist5
2757 SUBROUTINE nl_get_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
2758   integer , INTENT(OUT) :: frames_per_auxhist6
2759   INTEGER id_id
2760   CHARACTER*80 emess
2761   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2762     WRITE(emess,*)'nl_get_frames_per_auxhist6: Out of range domain number: ',id_id
2763     CALL wrf_error_fatal(emess)
2764   ENDIF
2765   frames_per_auxhist6 = model_config_rec%frames_per_auxhist6(id_id)
2766   RETURN
2767 END SUBROUTINE nl_get_frames_per_auxhist6
2768 SUBROUTINE nl_get_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
2769   integer , INTENT(OUT) :: frames_per_auxhist7
2770   INTEGER id_id
2771   CHARACTER*80 emess
2772   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2773     WRITE(emess,*)'nl_get_frames_per_auxhist7: Out of range domain number: ',id_id
2774     CALL wrf_error_fatal(emess)
2775   ENDIF
2776   frames_per_auxhist7 = model_config_rec%frames_per_auxhist7(id_id)
2777   RETURN
2778 END SUBROUTINE nl_get_frames_per_auxhist7
2779 SUBROUTINE nl_get_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
2780   integer , INTENT(OUT) :: frames_per_auxhist8
2781   INTEGER id_id
2782   CHARACTER*80 emess
2783   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2784     WRITE(emess,*)'nl_get_frames_per_auxhist8: Out of range domain number: ',id_id
2785     CALL wrf_error_fatal(emess)
2786   ENDIF
2787   frames_per_auxhist8 = model_config_rec%frames_per_auxhist8(id_id)
2788   RETURN
2789 END SUBROUTINE nl_get_frames_per_auxhist8
2790 SUBROUTINE nl_get_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
2791   integer , INTENT(OUT) :: frames_per_auxhist9
2792   INTEGER id_id
2793   CHARACTER*80 emess
2794   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2795     WRITE(emess,*)'nl_get_frames_per_auxhist9: Out of range domain number: ',id_id
2796     CALL wrf_error_fatal(emess)
2797   ENDIF
2798   frames_per_auxhist9 = model_config_rec%frames_per_auxhist9(id_id)
2799   RETURN
2800 END SUBROUTINE nl_get_frames_per_auxhist9
2801 SUBROUTINE nl_get_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
2802   integer , INTENT(OUT) :: frames_per_auxhist10
2803   INTEGER id_id
2804   CHARACTER*80 emess
2805   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2806     WRITE(emess,*)'nl_get_frames_per_auxhist10: Out of range domain number: ',id_id
2807     CALL wrf_error_fatal(emess)
2808   ENDIF
2809   frames_per_auxhist10 = model_config_rec%frames_per_auxhist10(id_id)
2810   RETURN
2811 END SUBROUTINE nl_get_frames_per_auxhist10
2812 SUBROUTINE nl_get_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
2813   integer , INTENT(OUT) :: frames_per_auxhist11
2814   INTEGER id_id
2815   CHARACTER*80 emess
2816   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2817     WRITE(emess,*)'nl_get_frames_per_auxhist11: Out of range domain number: ',id_id
2818     CALL wrf_error_fatal(emess)
2819   ENDIF
2820   frames_per_auxhist11 = model_config_rec%frames_per_auxhist11(id_id)
2821   RETURN
2822 END SUBROUTINE nl_get_frames_per_auxhist11
2823 SUBROUTINE nl_get_restart ( id_id , restart )
2824   logical , INTENT(OUT) :: restart
2825   INTEGER id_id
2826   CHARACTER*80 emess
2827   IF ( id_id .NE. 1 ) THEN
2828     call wrf_debug(1,&
2829 'WARNING in nl_get_restart: restart applies to all domains. First arg ignored.')
2830   ENDIF
2831   restart = model_config_rec%restart
2832   RETURN
2833 END SUBROUTINE nl_get_restart
2834 SUBROUTINE nl_get_restart_interval ( id_id , restart_interval )
2835   integer , INTENT(OUT) :: restart_interval
2836   INTEGER id_id
2837   CHARACTER*80 emess
2838   IF ( id_id .NE. 1 ) THEN
2839     call wrf_debug(1,&
2840 'WARNING in nl_get_restart_interval: restart_interval applies to all domains. First arg ignored.')
2841   ENDIF
2842   restart_interval = model_config_rec%restart_interval
2843   RETURN
2844 END SUBROUTINE nl_get_restart_interval
2845 SUBROUTINE nl_get_io_form_input ( id_id , io_form_input )
2846   integer , INTENT(OUT) :: io_form_input
2847   INTEGER id_id
2848   CHARACTER*80 emess
2849   IF ( id_id .NE. 1 ) THEN
2850     call wrf_debug(1,&
2851 'WARNING in nl_get_io_form_input: io_form_input applies to all domains. First arg ignored.')
2852   ENDIF
2853   io_form_input = model_config_rec%io_form_input
2854   RETURN
2855 END SUBROUTINE nl_get_io_form_input
2856 SUBROUTINE nl_get_io_form_history ( id_id , io_form_history )
2857   integer , INTENT(OUT) :: io_form_history
2858   INTEGER id_id
2859   CHARACTER*80 emess
2860   IF ( id_id .NE. 1 ) THEN
2861     call wrf_debug(1,&
2862 'WARNING in nl_get_io_form_history: io_form_history applies to all domains. First arg ignored.')
2863   ENDIF
2864   io_form_history = model_config_rec%io_form_history
2865   RETURN
2866 END SUBROUTINE nl_get_io_form_history
2867 SUBROUTINE nl_get_io_form_restart ( id_id , io_form_restart )
2868   integer , INTENT(OUT) :: io_form_restart
2869   INTEGER id_id
2870   CHARACTER*80 emess
2871   IF ( id_id .NE. 1 ) THEN
2872     call wrf_debug(1,&
2873 'WARNING in nl_get_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
2874   ENDIF
2875   io_form_restart = model_config_rec%io_form_restart
2876   RETURN
2877 END SUBROUTINE nl_get_io_form_restart
2878 SUBROUTINE nl_get_io_form_boundary ( id_id , io_form_boundary )
2879   integer , INTENT(OUT) :: io_form_boundary
2880   INTEGER id_id
2881   CHARACTER*80 emess
2882   IF ( id_id .NE. 1 ) THEN
2883     call wrf_debug(1,&
2884 'WARNING in nl_get_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
2885   ENDIF
2886   io_form_boundary = model_config_rec%io_form_boundary
2887   RETURN
2888 END SUBROUTINE nl_get_io_form_boundary
2889 SUBROUTINE nl_get_debug_level ( id_id , debug_level )
2890   integer , INTENT(OUT) :: debug_level
2891   INTEGER id_id
2892   CHARACTER*80 emess
2893   IF ( id_id .NE. 1 ) THEN
2894     call wrf_debug(1,&
2895 'WARNING in nl_get_debug_level: debug_level applies to all domains. First arg ignored.')
2896   ENDIF
2897   debug_level = model_config_rec%debug_level
2898   RETURN
2899 END SUBROUTINE nl_get_debug_level
2900 SUBROUTINE nl_get_self_test_domain ( id_id , self_test_domain )
2901   logical , INTENT(OUT) :: self_test_domain
2902   INTEGER id_id
2903   CHARACTER*80 emess
2904   IF ( id_id .NE. 1 ) THEN
2905     call wrf_debug(1,&
2906 'WARNING in nl_get_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
2907   ENDIF
2908   self_test_domain = model_config_rec%self_test_domain
2909   RETURN
2910 END SUBROUTINE nl_get_self_test_domain
2911 SUBROUTINE nl_get_history_outname ( id_id , history_outname )
2912   character*256 , INTENT(OUT) :: history_outname
2913   INTEGER id_id
2914   CHARACTER*80 emess
2915   IF ( id_id .NE. 1 ) THEN
2916     call wrf_debug(1,&
2917 'WARNING in nl_get_history_outname: history_outname applies to all domains. First arg ignored.')
2918   ENDIF
2919   history_outname = trim(model_config_rec%history_outname)
2920   RETURN
2921 END SUBROUTINE nl_get_history_outname
2922 SUBROUTINE nl_get_auxhist1_outname ( id_id , auxhist1_outname )
2923   character*256 , INTENT(OUT) :: auxhist1_outname
2924   INTEGER id_id
2925   CHARACTER*80 emess
2926   IF ( id_id .NE. 1 ) THEN
2927     call wrf_debug(1,&
2928 'WARNING in nl_get_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
2929   ENDIF
2930   auxhist1_outname = trim(model_config_rec%auxhist1_outname)
2931   RETURN
2932 END SUBROUTINE nl_get_auxhist1_outname
2933 SUBROUTINE nl_get_auxhist2_outname ( id_id , auxhist2_outname )
2934   character*256 , INTENT(OUT) :: auxhist2_outname
2935   INTEGER id_id
2936   CHARACTER*80 emess
2937   IF ( id_id .NE. 1 ) THEN
2938     call wrf_debug(1,&
2939 'WARNING in nl_get_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
2940   ENDIF
2941   auxhist2_outname = trim(model_config_rec%auxhist2_outname)
2942   RETURN
2943 END SUBROUTINE nl_get_auxhist2_outname
2944 SUBROUTINE nl_get_auxhist3_outname ( id_id , auxhist3_outname )
2945   character*256 , INTENT(OUT) :: auxhist3_outname
2946   INTEGER id_id
2947   CHARACTER*80 emess
2948   IF ( id_id .NE. 1 ) THEN
2949     call wrf_debug(1,&
2950 'WARNING in nl_get_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
2951   ENDIF
2952   auxhist3_outname = trim(model_config_rec%auxhist3_outname)
2953   RETURN
2954 END SUBROUTINE nl_get_auxhist3_outname
2955 SUBROUTINE nl_get_auxhist4_outname ( id_id , auxhist4_outname )
2956   character*256 , INTENT(OUT) :: auxhist4_outname
2957   INTEGER id_id
2958   CHARACTER*80 emess
2959   IF ( id_id .NE. 1 ) THEN
2960     call wrf_debug(1,&
2961 'WARNING in nl_get_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
2962   ENDIF
2963   auxhist4_outname = trim(model_config_rec%auxhist4_outname)
2964   RETURN
2965 END SUBROUTINE nl_get_auxhist4_outname
2966 SUBROUTINE nl_get_auxhist5_outname ( id_id , auxhist5_outname )
2967   character*256 , INTENT(OUT) :: auxhist5_outname
2968   INTEGER id_id
2969   CHARACTER*80 emess
2970   IF ( id_id .NE. 1 ) THEN
2971     call wrf_debug(1,&
2972 'WARNING in nl_get_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
2973   ENDIF
2974   auxhist5_outname = trim(model_config_rec%auxhist5_outname)
2975   RETURN
2976 END SUBROUTINE nl_get_auxhist5_outname
2977 SUBROUTINE nl_get_auxhist6_outname ( id_id , auxhist6_outname )
2978   character*256 , INTENT(OUT) :: auxhist6_outname
2979   INTEGER id_id
2980   CHARACTER*80 emess
2981   IF ( id_id .NE. 1 ) THEN
2982     call wrf_debug(1,&
2983 'WARNING in nl_get_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
2984   ENDIF
2985   auxhist6_outname = trim(model_config_rec%auxhist6_outname)
2986   RETURN
2987 END SUBROUTINE nl_get_auxhist6_outname
2988 SUBROUTINE nl_get_auxhist7_outname ( id_id , auxhist7_outname )
2989   character*256 , INTENT(OUT) :: auxhist7_outname
2990   INTEGER id_id
2991   CHARACTER*80 emess
2992   IF ( id_id .NE. 1 ) THEN
2993     call wrf_debug(1,&
2994 'WARNING in nl_get_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
2995   ENDIF
2996   auxhist7_outname = trim(model_config_rec%auxhist7_outname)
2997   RETURN
2998 END SUBROUTINE nl_get_auxhist7_outname
2999 SUBROUTINE nl_get_auxhist8_outname ( id_id , auxhist8_outname )
3000   character*256 , INTENT(OUT) :: auxhist8_outname
3001   INTEGER id_id
3002   CHARACTER*80 emess
3003   IF ( id_id .NE. 1 ) THEN
3004     call wrf_debug(1,&
3005 'WARNING in nl_get_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
3006   ENDIF
3007   auxhist8_outname = trim(model_config_rec%auxhist8_outname)
3008   RETURN
3009 END SUBROUTINE nl_get_auxhist8_outname
3010 SUBROUTINE nl_get_auxhist9_outname ( id_id , auxhist9_outname )
3011   character*256 , INTENT(OUT) :: auxhist9_outname
3012   INTEGER id_id
3013   CHARACTER*80 emess
3014   IF ( id_id .NE. 1 ) THEN
3015     call wrf_debug(1,&
3016 'WARNING in nl_get_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
3017   ENDIF
3018   auxhist9_outname = trim(model_config_rec%auxhist9_outname)
3019   RETURN
3020 END SUBROUTINE nl_get_auxhist9_outname
3021 SUBROUTINE nl_get_auxhist10_outname ( id_id , auxhist10_outname )
3022   character*256 , INTENT(OUT) :: auxhist10_outname
3023   INTEGER id_id
3024   CHARACTER*80 emess
3025   IF ( id_id .NE. 1 ) THEN
3026     call wrf_debug(1,&
3027 'WARNING in nl_get_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
3028   ENDIF
3029   auxhist10_outname = trim(model_config_rec%auxhist10_outname)
3030   RETURN
3031 END SUBROUTINE nl_get_auxhist10_outname
3032 SUBROUTINE nl_get_auxhist11_outname ( id_id , auxhist11_outname )
3033   character*256 , INTENT(OUT) :: auxhist11_outname
3034   INTEGER id_id
3035   CHARACTER*80 emess
3036   IF ( id_id .NE. 1 ) THEN
3037     call wrf_debug(1,&
3038 'WARNING in nl_get_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
3039   ENDIF
3040   auxhist11_outname = trim(model_config_rec%auxhist11_outname)
3041   RETURN
3042 END SUBROUTINE nl_get_auxhist11_outname
3043 SUBROUTINE nl_get_history_inname ( id_id , history_inname )
3044   character*256 , INTENT(OUT) :: history_inname
3045   INTEGER id_id
3046   CHARACTER*80 emess
3047   IF ( id_id .NE. 1 ) THEN
3048     call wrf_debug(1,&
3049 'WARNING in nl_get_history_inname: history_inname applies to all domains. First arg ignored.')
3050   ENDIF
3051   history_inname = trim(model_config_rec%history_inname)
3052   RETURN
3053 END SUBROUTINE nl_get_history_inname
3054 SUBROUTINE nl_get_auxhist1_inname ( id_id , auxhist1_inname )
3055   character*256 , INTENT(OUT) :: auxhist1_inname
3056   INTEGER id_id
3057   CHARACTER*80 emess
3058   IF ( id_id .NE. 1 ) THEN
3059     call wrf_debug(1,&
3060 'WARNING in nl_get_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
3061   ENDIF
3062   auxhist1_inname = trim(model_config_rec%auxhist1_inname)
3063   RETURN
3064 END SUBROUTINE nl_get_auxhist1_inname
3065 SUBROUTINE nl_get_auxhist2_inname ( id_id , auxhist2_inname )
3066   character*256 , INTENT(OUT) :: auxhist2_inname
3067   INTEGER id_id
3068   CHARACTER*80 emess
3069   IF ( id_id .NE. 1 ) THEN
3070     call wrf_debug(1,&
3071 'WARNING in nl_get_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
3072   ENDIF
3073   auxhist2_inname = trim(model_config_rec%auxhist2_inname)
3074   RETURN
3075 END SUBROUTINE nl_get_auxhist2_inname
3076 SUBROUTINE nl_get_auxhist3_inname ( id_id , auxhist3_inname )
3077   character*256 , INTENT(OUT) :: auxhist3_inname
3078   INTEGER id_id
3079   CHARACTER*80 emess
3080   IF ( id_id .NE. 1 ) THEN
3081     call wrf_debug(1,&
3082 'WARNING in nl_get_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
3083   ENDIF
3084   auxhist3_inname = trim(model_config_rec%auxhist3_inname)
3085   RETURN
3086 END SUBROUTINE nl_get_auxhist3_inname
3087 SUBROUTINE nl_get_auxhist4_inname ( id_id , auxhist4_inname )
3088   character*256 , INTENT(OUT) :: auxhist4_inname
3089   INTEGER id_id
3090   CHARACTER*80 emess
3091   IF ( id_id .NE. 1 ) THEN
3092     call wrf_debug(1,&
3093 'WARNING in nl_get_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
3094   ENDIF
3095   auxhist4_inname = trim(model_config_rec%auxhist4_inname)
3096   RETURN
3097 END SUBROUTINE nl_get_auxhist4_inname
3098 SUBROUTINE nl_get_auxhist5_inname ( id_id , auxhist5_inname )
3099   character*256 , INTENT(OUT) :: auxhist5_inname
3100   INTEGER id_id
3101   CHARACTER*80 emess
3102   IF ( id_id .NE. 1 ) THEN
3103     call wrf_debug(1,&
3104 'WARNING in nl_get_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
3105   ENDIF
3106   auxhist5_inname = trim(model_config_rec%auxhist5_inname)
3107   RETURN
3108 END SUBROUTINE nl_get_auxhist5_inname
3109 SUBROUTINE nl_get_auxhist6_inname ( id_id , auxhist6_inname )
3110   character*256 , INTENT(OUT) :: auxhist6_inname
3111   INTEGER id_id
3112   CHARACTER*80 emess
3113   IF ( id_id .NE. 1 ) THEN
3114     call wrf_debug(1,&
3115 'WARNING in nl_get_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
3116   ENDIF
3117   auxhist6_inname = trim(model_config_rec%auxhist6_inname)
3118   RETURN
3119 END SUBROUTINE nl_get_auxhist6_inname
3120 SUBROUTINE nl_get_auxhist7_inname ( id_id , auxhist7_inname )
3121   character*256 , INTENT(OUT) :: auxhist7_inname
3122   INTEGER id_id
3123   CHARACTER*80 emess
3124   IF ( id_id .NE. 1 ) THEN
3125     call wrf_debug(1,&
3126 'WARNING in nl_get_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
3127   ENDIF
3128   auxhist7_inname = trim(model_config_rec%auxhist7_inname)
3129   RETURN
3130 END SUBROUTINE nl_get_auxhist7_inname
3131 SUBROUTINE nl_get_auxhist8_inname ( id_id , auxhist8_inname )
3132   character*256 , INTENT(OUT) :: auxhist8_inname
3133   INTEGER id_id
3134   CHARACTER*80 emess
3135   IF ( id_id .NE. 1 ) THEN
3136     call wrf_debug(1,&
3137 'WARNING in nl_get_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
3138   ENDIF
3139   auxhist8_inname = trim(model_config_rec%auxhist8_inname)
3140   RETURN
3141 END SUBROUTINE nl_get_auxhist8_inname
3142 SUBROUTINE nl_get_auxhist9_inname ( id_id , auxhist9_inname )
3143   character*256 , INTENT(OUT) :: auxhist9_inname
3144   INTEGER id_id
3145   CHARACTER*80 emess
3146   IF ( id_id .NE. 1 ) THEN
3147     call wrf_debug(1,&
3148 'WARNING in nl_get_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
3149   ENDIF
3150   auxhist9_inname = trim(model_config_rec%auxhist9_inname)
3151   RETURN
3152 END SUBROUTINE nl_get_auxhist9_inname
3153 SUBROUTINE nl_get_auxhist10_inname ( id_id , auxhist10_inname )
3154   character*256 , INTENT(OUT) :: auxhist10_inname
3155   INTEGER id_id
3156   CHARACTER*80 emess
3157   IF ( id_id .NE. 1 ) THEN
3158     call wrf_debug(1,&
3159 'WARNING in nl_get_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
3160   ENDIF
3161   auxhist10_inname = trim(model_config_rec%auxhist10_inname)
3162   RETURN
3163 END SUBROUTINE nl_get_auxhist10_inname
3164 SUBROUTINE nl_get_auxhist11_inname ( id_id , auxhist11_inname )
3165   character*256 , INTENT(OUT) :: auxhist11_inname
3166   INTEGER id_id
3167   CHARACTER*80 emess
3168   IF ( id_id .NE. 1 ) THEN
3169     call wrf_debug(1,&
3170 'WARNING in nl_get_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
3171   ENDIF
3172   auxhist11_inname = trim(model_config_rec%auxhist11_inname)
3173   RETURN
3174 END SUBROUTINE nl_get_auxhist11_inname
3175 SUBROUTINE nl_get_auxinput1_outname ( id_id , auxinput1_outname )
3176   character*256 , INTENT(OUT) :: auxinput1_outname
3177   INTEGER id_id
3178   CHARACTER*80 emess
3179   IF ( id_id .NE. 1 ) THEN
3180     call wrf_debug(1,&
3181 'WARNING in nl_get_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
3182   ENDIF
3183   auxinput1_outname = trim(model_config_rec%auxinput1_outname)
3184   RETURN
3185 END SUBROUTINE nl_get_auxinput1_outname
3186 SUBROUTINE nl_get_auxinput2_outname ( id_id , auxinput2_outname )
3187   character*256 , INTENT(OUT) :: auxinput2_outname
3188   INTEGER id_id
3189   CHARACTER*80 emess
3190   IF ( id_id .NE. 1 ) THEN
3191     call wrf_debug(1,&
3192 'WARNING in nl_get_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
3193   ENDIF
3194   auxinput2_outname = trim(model_config_rec%auxinput2_outname)
3195   RETURN
3196 END SUBROUTINE nl_get_auxinput2_outname
3197 SUBROUTINE nl_get_auxinput3_outname ( id_id , auxinput3_outname )
3198   character*256 , INTENT(OUT) :: auxinput3_outname
3199   INTEGER id_id
3200   CHARACTER*80 emess
3201   IF ( id_id .NE. 1 ) THEN
3202     call wrf_debug(1,&
3203 'WARNING in nl_get_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
3204   ENDIF
3205   auxinput3_outname = trim(model_config_rec%auxinput3_outname)
3206   RETURN
3207 END SUBROUTINE nl_get_auxinput3_outname
3208 SUBROUTINE nl_get_auxinput4_outname ( id_id , auxinput4_outname )
3209   character*256 , INTENT(OUT) :: auxinput4_outname
3210   INTEGER id_id
3211   CHARACTER*80 emess
3212   IF ( id_id .NE. 1 ) THEN
3213     call wrf_debug(1,&
3214 'WARNING in nl_get_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
3215   ENDIF
3216   auxinput4_outname = trim(model_config_rec%auxinput4_outname)
3217   RETURN
3218 END SUBROUTINE nl_get_auxinput4_outname
3219 SUBROUTINE nl_get_auxinput5_outname ( id_id , auxinput5_outname )
3220   character*256 , INTENT(OUT) :: auxinput5_outname
3221   INTEGER id_id
3222   CHARACTER*80 emess
3223   IF ( id_id .NE. 1 ) THEN
3224     call wrf_debug(1,&
3225 'WARNING in nl_get_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
3226   ENDIF
3227   auxinput5_outname = trim(model_config_rec%auxinput5_outname)
3228   RETURN
3229 END SUBROUTINE nl_get_auxinput5_outname
3230 SUBROUTINE nl_get_auxinput6_outname ( id_id , auxinput6_outname )
3231   character*256 , INTENT(OUT) :: auxinput6_outname
3232   INTEGER id_id
3233   CHARACTER*80 emess
3234   IF ( id_id .NE. 1 ) THEN
3235     call wrf_debug(1,&
3236 'WARNING in nl_get_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
3237   ENDIF
3238   auxinput6_outname = trim(model_config_rec%auxinput6_outname)
3239   RETURN
3240 END SUBROUTINE nl_get_auxinput6_outname
3241 SUBROUTINE nl_get_auxinput7_outname ( id_id , auxinput7_outname )
3242   character*256 , INTENT(OUT) :: auxinput7_outname
3243   INTEGER id_id
3244   CHARACTER*80 emess
3245   IF ( id_id .NE. 1 ) THEN
3246     call wrf_debug(1,&
3247 'WARNING in nl_get_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
3248   ENDIF
3249   auxinput7_outname = trim(model_config_rec%auxinput7_outname)
3250   RETURN
3251 END SUBROUTINE nl_get_auxinput7_outname
3252 SUBROUTINE nl_get_auxinput8_outname ( id_id , auxinput8_outname )
3253   character*256 , INTENT(OUT) :: auxinput8_outname
3254   INTEGER id_id
3255   CHARACTER*80 emess
3256   IF ( id_id .NE. 1 ) THEN
3257     call wrf_debug(1,&
3258 'WARNING in nl_get_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
3259   ENDIF
3260   auxinput8_outname = trim(model_config_rec%auxinput8_outname)
3261   RETURN
3262 END SUBROUTINE nl_get_auxinput8_outname
3263 SUBROUTINE nl_get_auxinput9_outname ( id_id , auxinput9_outname )
3264   character*256 , INTENT(OUT) :: auxinput9_outname
3265   INTEGER id_id
3266   CHARACTER*80 emess
3267   IF ( id_id .NE. 1 ) THEN
3268     call wrf_debug(1,&
3269 'WARNING in nl_get_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
3270   ENDIF
3271   auxinput9_outname = trim(model_config_rec%auxinput9_outname)
3272   RETURN
3273 END SUBROUTINE nl_get_auxinput9_outname
3274 SUBROUTINE nl_get_auxinput10_outname ( id_id , auxinput10_outname )
3275   character*256 , INTENT(OUT) :: auxinput10_outname
3276   INTEGER id_id
3277   CHARACTER*80 emess
3278   IF ( id_id .NE. 1 ) THEN
3279     call wrf_debug(1,&
3280 'WARNING in nl_get_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
3281   ENDIF
3282   auxinput10_outname = trim(model_config_rec%auxinput10_outname)
3283   RETURN
3284 END SUBROUTINE nl_get_auxinput10_outname
3285 SUBROUTINE nl_get_auxinput11_outname ( id_id , auxinput11_outname )
3286   character*256 , INTENT(OUT) :: auxinput11_outname
3287   INTEGER id_id
3288   CHARACTER*80 emess
3289   IF ( id_id .NE. 1 ) THEN
3290     call wrf_debug(1,&
3291 'WARNING in nl_get_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
3292   ENDIF
3293   auxinput11_outname = trim(model_config_rec%auxinput11_outname)
3294   RETURN
3295 END SUBROUTINE nl_get_auxinput11_outname
3296 SUBROUTINE nl_get_auxinput1_inname ( id_id , auxinput1_inname )
3297   character*256 , INTENT(OUT) :: auxinput1_inname
3298   INTEGER id_id
3299   CHARACTER*80 emess
3300   IF ( id_id .NE. 1 ) THEN
3301     call wrf_debug(1,&
3302 'WARNING in nl_get_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
3303   ENDIF
3304   auxinput1_inname = trim(model_config_rec%auxinput1_inname)
3305   RETURN
3306 END SUBROUTINE nl_get_auxinput1_inname
3307 SUBROUTINE nl_get_auxinput2_inname ( id_id , auxinput2_inname )
3308   character*256 , INTENT(OUT) :: auxinput2_inname
3309   INTEGER id_id
3310   CHARACTER*80 emess
3311   IF ( id_id .NE. 1 ) THEN
3312     call wrf_debug(1,&
3313 'WARNING in nl_get_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
3314   ENDIF
3315   auxinput2_inname = trim(model_config_rec%auxinput2_inname)
3316   RETURN
3317 END SUBROUTINE nl_get_auxinput2_inname
3318 SUBROUTINE nl_get_auxinput3_inname ( id_id , auxinput3_inname )
3319   character*256 , INTENT(OUT) :: auxinput3_inname
3320   INTEGER id_id
3321   CHARACTER*80 emess
3322   IF ( id_id .NE. 1 ) THEN
3323     call wrf_debug(1,&
3324 'WARNING in nl_get_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
3325   ENDIF
3326   auxinput3_inname = trim(model_config_rec%auxinput3_inname)
3327   RETURN
3328 END SUBROUTINE nl_get_auxinput3_inname
3329 SUBROUTINE nl_get_auxinput4_inname ( id_id , auxinput4_inname )
3330   character*256 , INTENT(OUT) :: auxinput4_inname
3331   INTEGER id_id
3332   CHARACTER*80 emess
3333   IF ( id_id .NE. 1 ) THEN
3334     call wrf_debug(1,&
3335 'WARNING in nl_get_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
3336   ENDIF
3337   auxinput4_inname = trim(model_config_rec%auxinput4_inname)
3338   RETURN
3339 END SUBROUTINE nl_get_auxinput4_inname
3340 SUBROUTINE nl_get_auxinput5_inname ( id_id , auxinput5_inname )
3341   character*256 , INTENT(OUT) :: auxinput5_inname
3342   INTEGER id_id
3343   CHARACTER*80 emess
3344   IF ( id_id .NE. 1 ) THEN
3345     call wrf_debug(1,&
3346 'WARNING in nl_get_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
3347   ENDIF
3348   auxinput5_inname = trim(model_config_rec%auxinput5_inname)
3349   RETURN
3350 END SUBROUTINE nl_get_auxinput5_inname
3351 SUBROUTINE nl_get_auxinput6_inname ( id_id , auxinput6_inname )
3352   character*256 , INTENT(OUT) :: auxinput6_inname
3353   INTEGER id_id
3354   CHARACTER*80 emess
3355   IF ( id_id .NE. 1 ) THEN
3356     call wrf_debug(1,&
3357 'WARNING in nl_get_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
3358   ENDIF
3359   auxinput6_inname = trim(model_config_rec%auxinput6_inname)
3360   RETURN
3361 END SUBROUTINE nl_get_auxinput6_inname
3362 SUBROUTINE nl_get_auxinput7_inname ( id_id , auxinput7_inname )
3363   character*256 , INTENT(OUT) :: auxinput7_inname
3364   INTEGER id_id
3365   CHARACTER*80 emess
3366   IF ( id_id .NE. 1 ) THEN
3367     call wrf_debug(1,&
3368 'WARNING in nl_get_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
3369   ENDIF
3370   auxinput7_inname = trim(model_config_rec%auxinput7_inname)
3371   RETURN
3372 END SUBROUTINE nl_get_auxinput7_inname
3373 SUBROUTINE nl_get_auxinput8_inname ( id_id , auxinput8_inname )
3374   character*256 , INTENT(OUT) :: auxinput8_inname
3375   INTEGER id_id
3376   CHARACTER*80 emess
3377   IF ( id_id .NE. 1 ) THEN
3378     call wrf_debug(1,&
3379 'WARNING in nl_get_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
3380   ENDIF
3381   auxinput8_inname = trim(model_config_rec%auxinput8_inname)
3382   RETURN
3383 END SUBROUTINE nl_get_auxinput8_inname
3384 SUBROUTINE nl_get_auxinput9_inname ( id_id , auxinput9_inname )
3385   character*256 , INTENT(OUT) :: auxinput9_inname
3386   INTEGER id_id
3387   CHARACTER*80 emess
3388   IF ( id_id .NE. 1 ) THEN
3389     call wrf_debug(1,&
3390 'WARNING in nl_get_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
3391   ENDIF
3392   auxinput9_inname = trim(model_config_rec%auxinput9_inname)
3393   RETURN
3394 END SUBROUTINE nl_get_auxinput9_inname
3395 SUBROUTINE nl_get_gfdda_inname ( id_id , gfdda_inname )
3396   character*256 , INTENT(OUT) :: gfdda_inname
3397   INTEGER id_id
3398   CHARACTER*80 emess
3399   IF ( id_id .NE. 1 ) THEN
3400     call wrf_debug(1,&
3401 'WARNING in nl_get_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
3402   ENDIF
3403   gfdda_inname = trim(model_config_rec%gfdda_inname)
3404   RETURN
3405 END SUBROUTINE nl_get_gfdda_inname
3406 SUBROUTINE nl_get_auxinput11_inname ( id_id , auxinput11_inname )
3407   character*256 , INTENT(OUT) :: auxinput11_inname
3408   INTEGER id_id
3409   CHARACTER*80 emess
3410   IF ( id_id .NE. 1 ) THEN
3411     call wrf_debug(1,&
3412 'WARNING in nl_get_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
3413   ENDIF
3414   auxinput11_inname = trim(model_config_rec%auxinput11_inname)
3415   RETURN
3416 END SUBROUTINE nl_get_auxinput11_inname
3417 SUBROUTINE nl_get_history_interval_mo ( id_id , history_interval_mo )
3418   integer , INTENT(OUT) :: history_interval_mo
3419   INTEGER id_id
3420   CHARACTER*80 emess
3421   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3422     WRITE(emess,*)'nl_get_history_interval_mo: Out of range domain number: ',id_id
3423     CALL wrf_error_fatal(emess)
3424   ENDIF
3425   history_interval_mo = model_config_rec%history_interval_mo(id_id)
3426   RETURN
3427 END SUBROUTINE nl_get_history_interval_mo
3428 SUBROUTINE nl_get_history_interval_d ( id_id , history_interval_d )
3429   integer , INTENT(OUT) :: history_interval_d
3430   INTEGER id_id
3431   CHARACTER*80 emess
3432   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3433     WRITE(emess,*)'nl_get_history_interval_d: Out of range domain number: ',id_id
3434     CALL wrf_error_fatal(emess)
3435   ENDIF
3436   history_interval_d = model_config_rec%history_interval_d(id_id)
3437   RETURN
3438 END SUBROUTINE nl_get_history_interval_d
3439 SUBROUTINE nl_get_history_interval_h ( id_id , history_interval_h )
3440   integer , INTENT(OUT) :: history_interval_h
3441   INTEGER id_id
3442   CHARACTER*80 emess
3443   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3444     WRITE(emess,*)'nl_get_history_interval_h: Out of range domain number: ',id_id
3445     CALL wrf_error_fatal(emess)
3446   ENDIF
3447   history_interval_h = model_config_rec%history_interval_h(id_id)
3448   RETURN
3449 END SUBROUTINE nl_get_history_interval_h
3450 SUBROUTINE nl_get_history_interval_m ( id_id , history_interval_m )
3451   integer , INTENT(OUT) :: history_interval_m
3452   INTEGER id_id
3453   CHARACTER*80 emess
3454   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3455     WRITE(emess,*)'nl_get_history_interval_m: Out of range domain number: ',id_id
3456     CALL wrf_error_fatal(emess)
3457   ENDIF
3458   history_interval_m = model_config_rec%history_interval_m(id_id)
3459   RETURN
3460 END SUBROUTINE nl_get_history_interval_m
3461 SUBROUTINE nl_get_history_interval_s ( id_id , history_interval_s )
3462   integer , INTENT(OUT) :: history_interval_s
3463   INTEGER id_id
3464   CHARACTER*80 emess
3465   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3466     WRITE(emess,*)'nl_get_history_interval_s: Out of range domain number: ',id_id
3467     CALL wrf_error_fatal(emess)
3468   ENDIF
3469   history_interval_s = model_config_rec%history_interval_s(id_id)
3470   RETURN
3471 END SUBROUTINE nl_get_history_interval_s
3472 SUBROUTINE nl_get_inputout_interval_mo ( id_id , inputout_interval_mo )
3473   integer , INTENT(OUT) :: inputout_interval_mo
3474   INTEGER id_id
3475   CHARACTER*80 emess
3476   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3477     WRITE(emess,*)'nl_get_inputout_interval_mo: Out of range domain number: ',id_id
3478     CALL wrf_error_fatal(emess)
3479   ENDIF
3480   inputout_interval_mo = model_config_rec%inputout_interval_mo(id_id)
3481   RETURN
3482 END SUBROUTINE nl_get_inputout_interval_mo
3483 SUBROUTINE nl_get_inputout_interval_d ( id_id , inputout_interval_d )
3484   integer , INTENT(OUT) :: inputout_interval_d
3485   INTEGER id_id
3486   CHARACTER*80 emess
3487   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3488     WRITE(emess,*)'nl_get_inputout_interval_d: Out of range domain number: ',id_id
3489     CALL wrf_error_fatal(emess)
3490   ENDIF
3491   inputout_interval_d = model_config_rec%inputout_interval_d(id_id)
3492   RETURN
3493 END SUBROUTINE nl_get_inputout_interval_d
3494 SUBROUTINE nl_get_inputout_interval_h ( id_id , inputout_interval_h )
3495   integer , INTENT(OUT) :: inputout_interval_h
3496   INTEGER id_id
3497   CHARACTER*80 emess
3498   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3499     WRITE(emess,*)'nl_get_inputout_interval_h: Out of range domain number: ',id_id
3500     CALL wrf_error_fatal(emess)
3501   ENDIF
3502   inputout_interval_h = model_config_rec%inputout_interval_h(id_id)
3503   RETURN
3504 END SUBROUTINE nl_get_inputout_interval_h
3505 SUBROUTINE nl_get_inputout_interval_m ( id_id , inputout_interval_m )
3506   integer , INTENT(OUT) :: inputout_interval_m
3507   INTEGER id_id
3508   CHARACTER*80 emess
3509   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3510     WRITE(emess,*)'nl_get_inputout_interval_m: Out of range domain number: ',id_id
3511     CALL wrf_error_fatal(emess)
3512   ENDIF
3513   inputout_interval_m = model_config_rec%inputout_interval_m(id_id)
3514   RETURN
3515 END SUBROUTINE nl_get_inputout_interval_m
3516 SUBROUTINE nl_get_inputout_interval_s ( id_id , inputout_interval_s )
3517   integer , INTENT(OUT) :: inputout_interval_s
3518   INTEGER id_id
3519   CHARACTER*80 emess
3520   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3521     WRITE(emess,*)'nl_get_inputout_interval_s: Out of range domain number: ',id_id
3522     CALL wrf_error_fatal(emess)
3523   ENDIF
3524   inputout_interval_s = model_config_rec%inputout_interval_s(id_id)
3525   RETURN
3526 END SUBROUTINE nl_get_inputout_interval_s
3527 SUBROUTINE nl_get_inputout_interval ( id_id , inputout_interval )
3528   integer , INTENT(OUT) :: inputout_interval
3529   INTEGER id_id
3530   CHARACTER*80 emess
3531   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3532     WRITE(emess,*)'nl_get_inputout_interval: Out of range domain number: ',id_id
3533     CALL wrf_error_fatal(emess)
3534   ENDIF
3535   inputout_interval = model_config_rec%inputout_interval(id_id)
3536   RETURN
3537 END SUBROUTINE nl_get_inputout_interval
3538 SUBROUTINE nl_get_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
3539   integer , INTENT(OUT) :: auxhist1_interval_mo
3540   INTEGER id_id
3541   CHARACTER*80 emess
3542   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3543     WRITE(emess,*)'nl_get_auxhist1_interval_mo: Out of range domain number: ',id_id
3544     CALL wrf_error_fatal(emess)
3545   ENDIF
3546   auxhist1_interval_mo = model_config_rec%auxhist1_interval_mo(id_id)
3547   RETURN
3548 END SUBROUTINE nl_get_auxhist1_interval_mo
3549 SUBROUTINE nl_get_auxhist1_interval_d ( id_id , auxhist1_interval_d )
3550   integer , INTENT(OUT) :: auxhist1_interval_d
3551   INTEGER id_id
3552   CHARACTER*80 emess
3553   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3554     WRITE(emess,*)'nl_get_auxhist1_interval_d: Out of range domain number: ',id_id
3555     CALL wrf_error_fatal(emess)
3556   ENDIF
3557   auxhist1_interval_d = model_config_rec%auxhist1_interval_d(id_id)
3558   RETURN
3559 END SUBROUTINE nl_get_auxhist1_interval_d
3560 SUBROUTINE nl_get_auxhist1_interval_h ( id_id , auxhist1_interval_h )
3561   integer , INTENT(OUT) :: auxhist1_interval_h
3562   INTEGER id_id
3563   CHARACTER*80 emess
3564   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3565     WRITE(emess,*)'nl_get_auxhist1_interval_h: Out of range domain number: ',id_id
3566     CALL wrf_error_fatal(emess)
3567   ENDIF
3568   auxhist1_interval_h = model_config_rec%auxhist1_interval_h(id_id)
3569   RETURN
3570 END SUBROUTINE nl_get_auxhist1_interval_h
3571 SUBROUTINE nl_get_auxhist1_interval_m ( id_id , auxhist1_interval_m )
3572   integer , INTENT(OUT) :: auxhist1_interval_m
3573   INTEGER id_id
3574   CHARACTER*80 emess
3575   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3576     WRITE(emess,*)'nl_get_auxhist1_interval_m: Out of range domain number: ',id_id
3577     CALL wrf_error_fatal(emess)
3578   ENDIF
3579   auxhist1_interval_m = model_config_rec%auxhist1_interval_m(id_id)
3580   RETURN
3581 END SUBROUTINE nl_get_auxhist1_interval_m
3582 SUBROUTINE nl_get_auxhist1_interval_s ( id_id , auxhist1_interval_s )
3583   integer , INTENT(OUT) :: auxhist1_interval_s
3584   INTEGER id_id
3585   CHARACTER*80 emess
3586   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3587     WRITE(emess,*)'nl_get_auxhist1_interval_s: Out of range domain number: ',id_id
3588     CALL wrf_error_fatal(emess)
3589   ENDIF
3590   auxhist1_interval_s = model_config_rec%auxhist1_interval_s(id_id)
3591   RETURN
3592 END SUBROUTINE nl_get_auxhist1_interval_s
3593 SUBROUTINE nl_get_auxhist1_interval ( id_id , auxhist1_interval )
3594   integer , INTENT(OUT) :: auxhist1_interval
3595   INTEGER id_id
3596   CHARACTER*80 emess
3597   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3598     WRITE(emess,*)'nl_get_auxhist1_interval: Out of range domain number: ',id_id
3599     CALL wrf_error_fatal(emess)
3600   ENDIF
3601   auxhist1_interval = model_config_rec%auxhist1_interval(id_id)
3602   RETURN
3603 END SUBROUTINE nl_get_auxhist1_interval
3604 SUBROUTINE nl_get_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
3605   integer , INTENT(OUT) :: auxhist2_interval_mo
3606   INTEGER id_id
3607   CHARACTER*80 emess
3608   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3609     WRITE(emess,*)'nl_get_auxhist2_interval_mo: Out of range domain number: ',id_id
3610     CALL wrf_error_fatal(emess)
3611   ENDIF
3612   auxhist2_interval_mo = model_config_rec%auxhist2_interval_mo(id_id)
3613   RETURN
3614 END SUBROUTINE nl_get_auxhist2_interval_mo
3615 SUBROUTINE nl_get_auxhist2_interval_d ( id_id , auxhist2_interval_d )
3616   integer , INTENT(OUT) :: auxhist2_interval_d
3617   INTEGER id_id
3618   CHARACTER*80 emess
3619   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3620     WRITE(emess,*)'nl_get_auxhist2_interval_d: Out of range domain number: ',id_id
3621     CALL wrf_error_fatal(emess)
3622   ENDIF
3623   auxhist2_interval_d = model_config_rec%auxhist2_interval_d(id_id)
3624   RETURN
3625 END SUBROUTINE nl_get_auxhist2_interval_d
3626 SUBROUTINE nl_get_auxhist2_interval_h ( id_id , auxhist2_interval_h )
3627   integer , INTENT(OUT) :: auxhist2_interval_h
3628   INTEGER id_id
3629   CHARACTER*80 emess
3630   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3631     WRITE(emess,*)'nl_get_auxhist2_interval_h: Out of range domain number: ',id_id
3632     CALL wrf_error_fatal(emess)
3633   ENDIF
3634   auxhist2_interval_h = model_config_rec%auxhist2_interval_h(id_id)
3635   RETURN
3636 END SUBROUTINE nl_get_auxhist2_interval_h
3637 SUBROUTINE nl_get_auxhist2_interval_m ( id_id , auxhist2_interval_m )
3638   integer , INTENT(OUT) :: auxhist2_interval_m
3639   INTEGER id_id
3640   CHARACTER*80 emess
3641   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3642     WRITE(emess,*)'nl_get_auxhist2_interval_m: Out of range domain number: ',id_id
3643     CALL wrf_error_fatal(emess)
3644   ENDIF
3645   auxhist2_interval_m = model_config_rec%auxhist2_interval_m(id_id)
3646   RETURN
3647 END SUBROUTINE nl_get_auxhist2_interval_m
3648 SUBROUTINE nl_get_auxhist2_interval_s ( id_id , auxhist2_interval_s )
3649   integer , INTENT(OUT) :: auxhist2_interval_s
3650   INTEGER id_id
3651   CHARACTER*80 emess
3652   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3653     WRITE(emess,*)'nl_get_auxhist2_interval_s: Out of range domain number: ',id_id
3654     CALL wrf_error_fatal(emess)
3655   ENDIF
3656   auxhist2_interval_s = model_config_rec%auxhist2_interval_s(id_id)
3657   RETURN
3658 END SUBROUTINE nl_get_auxhist2_interval_s
3659 SUBROUTINE nl_get_auxhist2_interval ( id_id , auxhist2_interval )
3660   integer , INTENT(OUT) :: auxhist2_interval
3661   INTEGER id_id
3662   CHARACTER*80 emess
3663   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3664     WRITE(emess,*)'nl_get_auxhist2_interval: Out of range domain number: ',id_id
3665     CALL wrf_error_fatal(emess)
3666   ENDIF
3667   auxhist2_interval = model_config_rec%auxhist2_interval(id_id)
3668   RETURN
3669 END SUBROUTINE nl_get_auxhist2_interval
3670 SUBROUTINE nl_get_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
3671   integer , INTENT(OUT) :: auxhist3_interval_mo
3672   INTEGER id_id
3673   CHARACTER*80 emess
3674   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3675     WRITE(emess,*)'nl_get_auxhist3_interval_mo: Out of range domain number: ',id_id
3676     CALL wrf_error_fatal(emess)
3677   ENDIF
3678   auxhist3_interval_mo = model_config_rec%auxhist3_interval_mo(id_id)
3679   RETURN
3680 END SUBROUTINE nl_get_auxhist3_interval_mo
3681 SUBROUTINE nl_get_auxhist3_interval_d ( id_id , auxhist3_interval_d )
3682   integer , INTENT(OUT) :: auxhist3_interval_d
3683   INTEGER id_id
3684   CHARACTER*80 emess
3685   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3686     WRITE(emess,*)'nl_get_auxhist3_interval_d: Out of range domain number: ',id_id
3687     CALL wrf_error_fatal(emess)
3688   ENDIF
3689   auxhist3_interval_d = model_config_rec%auxhist3_interval_d(id_id)
3690   RETURN
3691 END SUBROUTINE nl_get_auxhist3_interval_d
3692 SUBROUTINE nl_get_auxhist3_interval_h ( id_id , auxhist3_interval_h )
3693   integer , INTENT(OUT) :: auxhist3_interval_h
3694   INTEGER id_id
3695   CHARACTER*80 emess
3696   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3697     WRITE(emess,*)'nl_get_auxhist3_interval_h: Out of range domain number: ',id_id
3698     CALL wrf_error_fatal(emess)
3699   ENDIF
3700   auxhist3_interval_h = model_config_rec%auxhist3_interval_h(id_id)
3701   RETURN
3702 END SUBROUTINE nl_get_auxhist3_interval_h
3703 SUBROUTINE nl_get_auxhist3_interval_m ( id_id , auxhist3_interval_m )
3704   integer , INTENT(OUT) :: auxhist3_interval_m
3705   INTEGER id_id
3706   CHARACTER*80 emess
3707   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3708     WRITE(emess,*)'nl_get_auxhist3_interval_m: Out of range domain number: ',id_id
3709     CALL wrf_error_fatal(emess)
3710   ENDIF
3711   auxhist3_interval_m = model_config_rec%auxhist3_interval_m(id_id)
3712   RETURN
3713 END SUBROUTINE nl_get_auxhist3_interval_m
3714 SUBROUTINE nl_get_auxhist3_interval_s ( id_id , auxhist3_interval_s )
3715   integer , INTENT(OUT) :: auxhist3_interval_s
3716   INTEGER id_id
3717   CHARACTER*80 emess
3718   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3719     WRITE(emess,*)'nl_get_auxhist3_interval_s: Out of range domain number: ',id_id
3720     CALL wrf_error_fatal(emess)
3721   ENDIF
3722   auxhist3_interval_s = model_config_rec%auxhist3_interval_s(id_id)
3723   RETURN
3724 END SUBROUTINE nl_get_auxhist3_interval_s
3725 SUBROUTINE nl_get_auxhist3_interval ( id_id , auxhist3_interval )
3726   integer , INTENT(OUT) :: auxhist3_interval
3727   INTEGER id_id
3728   CHARACTER*80 emess
3729   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3730     WRITE(emess,*)'nl_get_auxhist3_interval: Out of range domain number: ',id_id
3731     CALL wrf_error_fatal(emess)
3732   ENDIF
3733   auxhist3_interval = model_config_rec%auxhist3_interval(id_id)
3734   RETURN
3735 END SUBROUTINE nl_get_auxhist3_interval
3736 SUBROUTINE nl_get_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
3737   integer , INTENT(OUT) :: auxhist4_interval_mo
3738   INTEGER id_id
3739   CHARACTER*80 emess
3740   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3741     WRITE(emess,*)'nl_get_auxhist4_interval_mo: Out of range domain number: ',id_id
3742     CALL wrf_error_fatal(emess)
3743   ENDIF
3744   auxhist4_interval_mo = model_config_rec%auxhist4_interval_mo(id_id)
3745   RETURN
3746 END SUBROUTINE nl_get_auxhist4_interval_mo
3747 SUBROUTINE nl_get_auxhist4_interval_d ( id_id , auxhist4_interval_d )
3748   integer , INTENT(OUT) :: auxhist4_interval_d
3749   INTEGER id_id
3750   CHARACTER*80 emess
3751   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3752     WRITE(emess,*)'nl_get_auxhist4_interval_d: Out of range domain number: ',id_id
3753     CALL wrf_error_fatal(emess)
3754   ENDIF
3755   auxhist4_interval_d = model_config_rec%auxhist4_interval_d(id_id)
3756   RETURN
3757 END SUBROUTINE nl_get_auxhist4_interval_d
3758 SUBROUTINE nl_get_auxhist4_interval_h ( id_id , auxhist4_interval_h )
3759   integer , INTENT(OUT) :: auxhist4_interval_h
3760   INTEGER id_id
3761   CHARACTER*80 emess
3762   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3763     WRITE(emess,*)'nl_get_auxhist4_interval_h: Out of range domain number: ',id_id
3764     CALL wrf_error_fatal(emess)
3765   ENDIF
3766   auxhist4_interval_h = model_config_rec%auxhist4_interval_h(id_id)
3767   RETURN
3768 END SUBROUTINE nl_get_auxhist4_interval_h
3769 SUBROUTINE nl_get_auxhist4_interval_m ( id_id , auxhist4_interval_m )
3770   integer , INTENT(OUT) :: auxhist4_interval_m
3771   INTEGER id_id
3772   CHARACTER*80 emess
3773   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3774     WRITE(emess,*)'nl_get_auxhist4_interval_m: Out of range domain number: ',id_id
3775     CALL wrf_error_fatal(emess)
3776   ENDIF
3777   auxhist4_interval_m = model_config_rec%auxhist4_interval_m(id_id)
3778   RETURN
3779 END SUBROUTINE nl_get_auxhist4_interval_m
3780 SUBROUTINE nl_get_auxhist4_interval_s ( id_id , auxhist4_interval_s )
3781   integer , INTENT(OUT) :: auxhist4_interval_s
3782   INTEGER id_id
3783   CHARACTER*80 emess
3784   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3785     WRITE(emess,*)'nl_get_auxhist4_interval_s: Out of range domain number: ',id_id
3786     CALL wrf_error_fatal(emess)
3787   ENDIF
3788   auxhist4_interval_s = model_config_rec%auxhist4_interval_s(id_id)
3789   RETURN
3790 END SUBROUTINE nl_get_auxhist4_interval_s
3791 SUBROUTINE nl_get_auxhist4_interval ( id_id , auxhist4_interval )
3792   integer , INTENT(OUT) :: auxhist4_interval
3793   INTEGER id_id
3794   CHARACTER*80 emess
3795   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3796     WRITE(emess,*)'nl_get_auxhist4_interval: Out of range domain number: ',id_id
3797     CALL wrf_error_fatal(emess)
3798   ENDIF
3799   auxhist4_interval = model_config_rec%auxhist4_interval(id_id)
3800   RETURN
3801 END SUBROUTINE nl_get_auxhist4_interval
3802 SUBROUTINE nl_get_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
3803   integer , INTENT(OUT) :: auxhist5_interval_mo
3804   INTEGER id_id
3805   CHARACTER*80 emess
3806   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3807     WRITE(emess,*)'nl_get_auxhist5_interval_mo: Out of range domain number: ',id_id
3808     CALL wrf_error_fatal(emess)
3809   ENDIF
3810   auxhist5_interval_mo = model_config_rec%auxhist5_interval_mo(id_id)
3811   RETURN
3812 END SUBROUTINE nl_get_auxhist5_interval_mo
3813 SUBROUTINE nl_get_auxhist5_interval_d ( id_id , auxhist5_interval_d )
3814   integer , INTENT(OUT) :: auxhist5_interval_d
3815   INTEGER id_id
3816   CHARACTER*80 emess
3817   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3818     WRITE(emess,*)'nl_get_auxhist5_interval_d: Out of range domain number: ',id_id
3819     CALL wrf_error_fatal(emess)
3820   ENDIF
3821   auxhist5_interval_d = model_config_rec%auxhist5_interval_d(id_id)
3822   RETURN
3823 END SUBROUTINE nl_get_auxhist5_interval_d
3824 SUBROUTINE nl_get_auxhist5_interval_h ( id_id , auxhist5_interval_h )
3825   integer , INTENT(OUT) :: auxhist5_interval_h
3826   INTEGER id_id
3827   CHARACTER*80 emess
3828   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3829     WRITE(emess,*)'nl_get_auxhist5_interval_h: Out of range domain number: ',id_id
3830     CALL wrf_error_fatal(emess)
3831   ENDIF
3832   auxhist5_interval_h = model_config_rec%auxhist5_interval_h(id_id)
3833   RETURN
3834 END SUBROUTINE nl_get_auxhist5_interval_h
3835 SUBROUTINE nl_get_auxhist5_interval_m ( id_id , auxhist5_interval_m )
3836   integer , INTENT(OUT) :: auxhist5_interval_m
3837   INTEGER id_id
3838   CHARACTER*80 emess
3839   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3840     WRITE(emess,*)'nl_get_auxhist5_interval_m: Out of range domain number: ',id_id
3841     CALL wrf_error_fatal(emess)
3842   ENDIF
3843   auxhist5_interval_m = model_config_rec%auxhist5_interval_m(id_id)
3844   RETURN
3845 END SUBROUTINE nl_get_auxhist5_interval_m
3846 SUBROUTINE nl_get_auxhist5_interval_s ( id_id , auxhist5_interval_s )
3847   integer , INTENT(OUT) :: auxhist5_interval_s
3848   INTEGER id_id
3849   CHARACTER*80 emess
3850   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3851     WRITE(emess,*)'nl_get_auxhist5_interval_s: Out of range domain number: ',id_id
3852     CALL wrf_error_fatal(emess)
3853   ENDIF
3854   auxhist5_interval_s = model_config_rec%auxhist5_interval_s(id_id)
3855   RETURN
3856 END SUBROUTINE nl_get_auxhist5_interval_s
3857 SUBROUTINE nl_get_auxhist5_interval ( id_id , auxhist5_interval )
3858   integer , INTENT(OUT) :: auxhist5_interval
3859   INTEGER id_id
3860   CHARACTER*80 emess
3861   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3862     WRITE(emess,*)'nl_get_auxhist5_interval: Out of range domain number: ',id_id
3863     CALL wrf_error_fatal(emess)
3864   ENDIF
3865   auxhist5_interval = model_config_rec%auxhist5_interval(id_id)
3866   RETURN
3867 END SUBROUTINE nl_get_auxhist5_interval
3868 SUBROUTINE nl_get_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
3869   integer , INTENT(OUT) :: auxhist6_interval_mo
3870   INTEGER id_id
3871   CHARACTER*80 emess
3872   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3873     WRITE(emess,*)'nl_get_auxhist6_interval_mo: Out of range domain number: ',id_id
3874     CALL wrf_error_fatal(emess)
3875   ENDIF
3876   auxhist6_interval_mo = model_config_rec%auxhist6_interval_mo(id_id)
3877   RETURN
3878 END SUBROUTINE nl_get_auxhist6_interval_mo
3879 SUBROUTINE nl_get_auxhist6_interval_d ( id_id , auxhist6_interval_d )
3880   integer , INTENT(OUT) :: auxhist6_interval_d
3881   INTEGER id_id
3882   CHARACTER*80 emess
3883   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3884     WRITE(emess,*)'nl_get_auxhist6_interval_d: Out of range domain number: ',id_id
3885     CALL wrf_error_fatal(emess)
3886   ENDIF
3887   auxhist6_interval_d = model_config_rec%auxhist6_interval_d(id_id)
3888   RETURN
3889 END SUBROUTINE nl_get_auxhist6_interval_d
3890 SUBROUTINE nl_get_auxhist6_interval_h ( id_id , auxhist6_interval_h )
3891   integer , INTENT(OUT) :: auxhist6_interval_h
3892   INTEGER id_id
3893   CHARACTER*80 emess
3894   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3895     WRITE(emess,*)'nl_get_auxhist6_interval_h: Out of range domain number: ',id_id
3896     CALL wrf_error_fatal(emess)
3897   ENDIF
3898   auxhist6_interval_h = model_config_rec%auxhist6_interval_h(id_id)
3899   RETURN
3900 END SUBROUTINE nl_get_auxhist6_interval_h
3901 SUBROUTINE nl_get_auxhist6_interval_m ( id_id , auxhist6_interval_m )
3902   integer , INTENT(OUT) :: auxhist6_interval_m
3903   INTEGER id_id
3904   CHARACTER*80 emess
3905   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3906     WRITE(emess,*)'nl_get_auxhist6_interval_m: Out of range domain number: ',id_id
3907     CALL wrf_error_fatal(emess)
3908   ENDIF
3909   auxhist6_interval_m = model_config_rec%auxhist6_interval_m(id_id)
3910   RETURN
3911 END SUBROUTINE nl_get_auxhist6_interval_m
3912 SUBROUTINE nl_get_auxhist6_interval_s ( id_id , auxhist6_interval_s )
3913   integer , INTENT(OUT) :: auxhist6_interval_s
3914   INTEGER id_id
3915   CHARACTER*80 emess
3916   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3917     WRITE(emess,*)'nl_get_auxhist6_interval_s: Out of range domain number: ',id_id
3918     CALL wrf_error_fatal(emess)
3919   ENDIF
3920   auxhist6_interval_s = model_config_rec%auxhist6_interval_s(id_id)
3921   RETURN
3922 END SUBROUTINE nl_get_auxhist6_interval_s
3923 SUBROUTINE nl_get_auxhist6_interval ( id_id , auxhist6_interval )
3924   integer , INTENT(OUT) :: auxhist6_interval
3925   INTEGER id_id
3926   CHARACTER*80 emess
3927   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3928     WRITE(emess,*)'nl_get_auxhist6_interval: Out of range domain number: ',id_id
3929     CALL wrf_error_fatal(emess)
3930   ENDIF
3931   auxhist6_interval = model_config_rec%auxhist6_interval(id_id)
3932   RETURN
3933 END SUBROUTINE nl_get_auxhist6_interval
3934 SUBROUTINE nl_get_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
3935   integer , INTENT(OUT) :: auxhist7_interval_mo
3936   INTEGER id_id
3937   CHARACTER*80 emess
3938   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3939     WRITE(emess,*)'nl_get_auxhist7_interval_mo: Out of range domain number: ',id_id
3940     CALL wrf_error_fatal(emess)
3941   ENDIF
3942   auxhist7_interval_mo = model_config_rec%auxhist7_interval_mo(id_id)
3943   RETURN
3944 END SUBROUTINE nl_get_auxhist7_interval_mo
3945 SUBROUTINE nl_get_auxhist7_interval_d ( id_id , auxhist7_interval_d )
3946   integer , INTENT(OUT) :: auxhist7_interval_d
3947   INTEGER id_id
3948   CHARACTER*80 emess
3949   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3950     WRITE(emess,*)'nl_get_auxhist7_interval_d: Out of range domain number: ',id_id
3951     CALL wrf_error_fatal(emess)
3952   ENDIF
3953   auxhist7_interval_d = model_config_rec%auxhist7_interval_d(id_id)
3954   RETURN
3955 END SUBROUTINE nl_get_auxhist7_interval_d
3956 SUBROUTINE nl_get_auxhist7_interval_h ( id_id , auxhist7_interval_h )
3957   integer , INTENT(OUT) :: auxhist7_interval_h
3958   INTEGER id_id
3959   CHARACTER*80 emess
3960   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3961     WRITE(emess,*)'nl_get_auxhist7_interval_h: Out of range domain number: ',id_id
3962     CALL wrf_error_fatal(emess)
3963   ENDIF
3964   auxhist7_interval_h = model_config_rec%auxhist7_interval_h(id_id)
3965   RETURN
3966 END SUBROUTINE nl_get_auxhist7_interval_h
3967 SUBROUTINE nl_get_auxhist7_interval_m ( id_id , auxhist7_interval_m )
3968   integer , INTENT(OUT) :: auxhist7_interval_m
3969   INTEGER id_id
3970   CHARACTER*80 emess
3971   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3972     WRITE(emess,*)'nl_get_auxhist7_interval_m: Out of range domain number: ',id_id
3973     CALL wrf_error_fatal(emess)
3974   ENDIF
3975   auxhist7_interval_m = model_config_rec%auxhist7_interval_m(id_id)
3976   RETURN
3977 END SUBROUTINE nl_get_auxhist7_interval_m
3978 SUBROUTINE nl_get_auxhist7_interval_s ( id_id , auxhist7_interval_s )
3979   integer , INTENT(OUT) :: auxhist7_interval_s
3980   INTEGER id_id
3981   CHARACTER*80 emess
3982   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3983     WRITE(emess,*)'nl_get_auxhist7_interval_s: Out of range domain number: ',id_id
3984     CALL wrf_error_fatal(emess)
3985   ENDIF
3986   auxhist7_interval_s = model_config_rec%auxhist7_interval_s(id_id)
3987   RETURN
3988 END SUBROUTINE nl_get_auxhist7_interval_s
3989 SUBROUTINE nl_get_auxhist7_interval ( id_id , auxhist7_interval )
3990   integer , INTENT(OUT) :: auxhist7_interval
3991   INTEGER id_id
3992   CHARACTER*80 emess
3993   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3994     WRITE(emess,*)'nl_get_auxhist7_interval: Out of range domain number: ',id_id
3995     CALL wrf_error_fatal(emess)
3996   ENDIF
3997   auxhist7_interval = model_config_rec%auxhist7_interval(id_id)
3998   RETURN
3999 END SUBROUTINE nl_get_auxhist7_interval
4000 SUBROUTINE nl_get_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
4001   integer , INTENT(OUT) :: auxhist8_interval_mo
4002   INTEGER id_id
4003   CHARACTER*80 emess
4004   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4005     WRITE(emess,*)'nl_get_auxhist8_interval_mo: Out of range domain number: ',id_id
4006     CALL wrf_error_fatal(emess)
4007   ENDIF
4008   auxhist8_interval_mo = model_config_rec%auxhist8_interval_mo(id_id)
4009   RETURN
4010 END SUBROUTINE nl_get_auxhist8_interval_mo
4011 SUBROUTINE nl_get_auxhist8_interval_d ( id_id , auxhist8_interval_d )
4012   integer , INTENT(OUT) :: auxhist8_interval_d
4013   INTEGER id_id
4014   CHARACTER*80 emess
4015   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4016     WRITE(emess,*)'nl_get_auxhist8_interval_d: Out of range domain number: ',id_id
4017     CALL wrf_error_fatal(emess)
4018   ENDIF
4019   auxhist8_interval_d = model_config_rec%auxhist8_interval_d(id_id)
4020   RETURN
4021 END SUBROUTINE nl_get_auxhist8_interval_d
4022 SUBROUTINE nl_get_auxhist8_interval_h ( id_id , auxhist8_interval_h )
4023   integer , INTENT(OUT) :: auxhist8_interval_h
4024   INTEGER id_id
4025   CHARACTER*80 emess
4026   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4027     WRITE(emess,*)'nl_get_auxhist8_interval_h: Out of range domain number: ',id_id
4028     CALL wrf_error_fatal(emess)
4029   ENDIF
4030   auxhist8_interval_h = model_config_rec%auxhist8_interval_h(id_id)
4031   RETURN
4032 END SUBROUTINE nl_get_auxhist8_interval_h
4033 SUBROUTINE nl_get_auxhist8_interval_m ( id_id , auxhist8_interval_m )
4034   integer , INTENT(OUT) :: auxhist8_interval_m
4035   INTEGER id_id
4036   CHARACTER*80 emess
4037   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4038     WRITE(emess,*)'nl_get_auxhist8_interval_m: Out of range domain number: ',id_id
4039     CALL wrf_error_fatal(emess)
4040   ENDIF
4041   auxhist8_interval_m = model_config_rec%auxhist8_interval_m(id_id)
4042   RETURN
4043 END SUBROUTINE nl_get_auxhist8_interval_m
4044 SUBROUTINE nl_get_auxhist8_interval_s ( id_id , auxhist8_interval_s )
4045   integer , INTENT(OUT) :: auxhist8_interval_s
4046   INTEGER id_id
4047   CHARACTER*80 emess
4048   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4049     WRITE(emess,*)'nl_get_auxhist8_interval_s: Out of range domain number: ',id_id
4050     CALL wrf_error_fatal(emess)
4051   ENDIF
4052   auxhist8_interval_s = model_config_rec%auxhist8_interval_s(id_id)
4053   RETURN
4054 END SUBROUTINE nl_get_auxhist8_interval_s
4055 SUBROUTINE nl_get_auxhist8_interval ( id_id , auxhist8_interval )
4056   integer , INTENT(OUT) :: auxhist8_interval
4057   INTEGER id_id
4058   CHARACTER*80 emess
4059   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4060     WRITE(emess,*)'nl_get_auxhist8_interval: Out of range domain number: ',id_id
4061     CALL wrf_error_fatal(emess)
4062   ENDIF
4063   auxhist8_interval = model_config_rec%auxhist8_interval(id_id)
4064   RETURN
4065 END SUBROUTINE nl_get_auxhist8_interval
4066 SUBROUTINE nl_get_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
4067   integer , INTENT(OUT) :: auxhist9_interval_mo
4068   INTEGER id_id
4069   CHARACTER*80 emess
4070   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4071     WRITE(emess,*)'nl_get_auxhist9_interval_mo: Out of range domain number: ',id_id
4072     CALL wrf_error_fatal(emess)
4073   ENDIF
4074   auxhist9_interval_mo = model_config_rec%auxhist9_interval_mo(id_id)
4075   RETURN
4076 END SUBROUTINE nl_get_auxhist9_interval_mo
4077 SUBROUTINE nl_get_auxhist9_interval_d ( id_id , auxhist9_interval_d )
4078   integer , INTENT(OUT) :: auxhist9_interval_d
4079   INTEGER id_id
4080   CHARACTER*80 emess
4081   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4082     WRITE(emess,*)'nl_get_auxhist9_interval_d: Out of range domain number: ',id_id
4083     CALL wrf_error_fatal(emess)
4084   ENDIF
4085   auxhist9_interval_d = model_config_rec%auxhist9_interval_d(id_id)
4086   RETURN
4087 END SUBROUTINE nl_get_auxhist9_interval_d
4088 SUBROUTINE nl_get_auxhist9_interval_h ( id_id , auxhist9_interval_h )
4089   integer , INTENT(OUT) :: auxhist9_interval_h
4090   INTEGER id_id
4091   CHARACTER*80 emess
4092   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4093     WRITE(emess,*)'nl_get_auxhist9_interval_h: Out of range domain number: ',id_id
4094     CALL wrf_error_fatal(emess)
4095   ENDIF
4096   auxhist9_interval_h = model_config_rec%auxhist9_interval_h(id_id)
4097   RETURN
4098 END SUBROUTINE nl_get_auxhist9_interval_h
4099 SUBROUTINE nl_get_auxhist9_interval_m ( id_id , auxhist9_interval_m )
4100   integer , INTENT(OUT) :: auxhist9_interval_m
4101   INTEGER id_id
4102   CHARACTER*80 emess
4103   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4104     WRITE(emess,*)'nl_get_auxhist9_interval_m: Out of range domain number: ',id_id
4105     CALL wrf_error_fatal(emess)
4106   ENDIF
4107   auxhist9_interval_m = model_config_rec%auxhist9_interval_m(id_id)
4108   RETURN
4109 END SUBROUTINE nl_get_auxhist9_interval_m
4110 SUBROUTINE nl_get_auxhist9_interval_s ( id_id , auxhist9_interval_s )
4111   integer , INTENT(OUT) :: auxhist9_interval_s
4112   INTEGER id_id
4113   CHARACTER*80 emess
4114   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4115     WRITE(emess,*)'nl_get_auxhist9_interval_s: Out of range domain number: ',id_id
4116     CALL wrf_error_fatal(emess)
4117   ENDIF
4118   auxhist9_interval_s = model_config_rec%auxhist9_interval_s(id_id)
4119   RETURN
4120 END SUBROUTINE nl_get_auxhist9_interval_s
4121 SUBROUTINE nl_get_auxhist9_interval ( id_id , auxhist9_interval )
4122   integer , INTENT(OUT) :: auxhist9_interval
4123   INTEGER id_id
4124   CHARACTER*80 emess
4125   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4126     WRITE(emess,*)'nl_get_auxhist9_interval: Out of range domain number: ',id_id
4127     CALL wrf_error_fatal(emess)
4128   ENDIF
4129   auxhist9_interval = model_config_rec%auxhist9_interval(id_id)
4130   RETURN
4131 END SUBROUTINE nl_get_auxhist9_interval
4132 SUBROUTINE nl_get_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
4133   integer , INTENT(OUT) :: auxhist10_interval_mo
4134   INTEGER id_id
4135   CHARACTER*80 emess
4136   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4137     WRITE(emess,*)'nl_get_auxhist10_interval_mo: Out of range domain number: ',id_id
4138     CALL wrf_error_fatal(emess)
4139   ENDIF
4140   auxhist10_interval_mo = model_config_rec%auxhist10_interval_mo(id_id)
4141   RETURN
4142 END SUBROUTINE nl_get_auxhist10_interval_mo
4143 SUBROUTINE nl_get_auxhist10_interval_d ( id_id , auxhist10_interval_d )
4144   integer , INTENT(OUT) :: auxhist10_interval_d
4145   INTEGER id_id
4146   CHARACTER*80 emess
4147   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4148     WRITE(emess,*)'nl_get_auxhist10_interval_d: Out of range domain number: ',id_id
4149     CALL wrf_error_fatal(emess)
4150   ENDIF
4151   auxhist10_interval_d = model_config_rec%auxhist10_interval_d(id_id)
4152   RETURN
4153 END SUBROUTINE nl_get_auxhist10_interval_d
4154 SUBROUTINE nl_get_auxhist10_interval_h ( id_id , auxhist10_interval_h )
4155   integer , INTENT(OUT) :: auxhist10_interval_h
4156   INTEGER id_id
4157   CHARACTER*80 emess
4158   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4159     WRITE(emess,*)'nl_get_auxhist10_interval_h: Out of range domain number: ',id_id
4160     CALL wrf_error_fatal(emess)
4161   ENDIF
4162   auxhist10_interval_h = model_config_rec%auxhist10_interval_h(id_id)
4163   RETURN
4164 END SUBROUTINE nl_get_auxhist10_interval_h
4165 SUBROUTINE nl_get_auxhist10_interval_m ( id_id , auxhist10_interval_m )
4166   integer , INTENT(OUT) :: auxhist10_interval_m
4167   INTEGER id_id
4168   CHARACTER*80 emess
4169   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4170     WRITE(emess,*)'nl_get_auxhist10_interval_m: Out of range domain number: ',id_id
4171     CALL wrf_error_fatal(emess)
4172   ENDIF
4173   auxhist10_interval_m = model_config_rec%auxhist10_interval_m(id_id)
4174   RETURN
4175 END SUBROUTINE nl_get_auxhist10_interval_m
4176 SUBROUTINE nl_get_auxhist10_interval_s ( id_id , auxhist10_interval_s )
4177   integer , INTENT(OUT) :: auxhist10_interval_s
4178   INTEGER id_id
4179   CHARACTER*80 emess
4180   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4181     WRITE(emess,*)'nl_get_auxhist10_interval_s: Out of range domain number: ',id_id
4182     CALL wrf_error_fatal(emess)
4183   ENDIF
4184   auxhist10_interval_s = model_config_rec%auxhist10_interval_s(id_id)
4185   RETURN
4186 END SUBROUTINE nl_get_auxhist10_interval_s
4187 SUBROUTINE nl_get_auxhist10_interval ( id_id , auxhist10_interval )
4188   integer , INTENT(OUT) :: auxhist10_interval
4189   INTEGER id_id
4190   CHARACTER*80 emess
4191   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4192     WRITE(emess,*)'nl_get_auxhist10_interval: Out of range domain number: ',id_id
4193     CALL wrf_error_fatal(emess)
4194   ENDIF
4195   auxhist10_interval = model_config_rec%auxhist10_interval(id_id)
4196   RETURN
4197 END SUBROUTINE nl_get_auxhist10_interval
4198 SUBROUTINE nl_get_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
4199   integer , INTENT(OUT) :: auxhist11_interval_mo
4200   INTEGER id_id
4201   CHARACTER*80 emess
4202   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4203     WRITE(emess,*)'nl_get_auxhist11_interval_mo: Out of range domain number: ',id_id
4204     CALL wrf_error_fatal(emess)
4205   ENDIF
4206   auxhist11_interval_mo = model_config_rec%auxhist11_interval_mo(id_id)
4207   RETURN
4208 END SUBROUTINE nl_get_auxhist11_interval_mo
4209 SUBROUTINE nl_get_auxhist11_interval_d ( id_id , auxhist11_interval_d )
4210   integer , INTENT(OUT) :: auxhist11_interval_d
4211   INTEGER id_id
4212   CHARACTER*80 emess
4213   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4214     WRITE(emess,*)'nl_get_auxhist11_interval_d: Out of range domain number: ',id_id
4215     CALL wrf_error_fatal(emess)
4216   ENDIF
4217   auxhist11_interval_d = model_config_rec%auxhist11_interval_d(id_id)
4218   RETURN
4219 END SUBROUTINE nl_get_auxhist11_interval_d
4220 SUBROUTINE nl_get_auxhist11_interval_h ( id_id , auxhist11_interval_h )
4221   integer , INTENT(OUT) :: auxhist11_interval_h
4222   INTEGER id_id
4223   CHARACTER*80 emess
4224   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4225     WRITE(emess,*)'nl_get_auxhist11_interval_h: Out of range domain number: ',id_id
4226     CALL wrf_error_fatal(emess)
4227   ENDIF
4228   auxhist11_interval_h = model_config_rec%auxhist11_interval_h(id_id)
4229   RETURN
4230 END SUBROUTINE nl_get_auxhist11_interval_h
4231 SUBROUTINE nl_get_auxhist11_interval_m ( id_id , auxhist11_interval_m )
4232   integer , INTENT(OUT) :: auxhist11_interval_m
4233   INTEGER id_id
4234   CHARACTER*80 emess
4235   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4236     WRITE(emess,*)'nl_get_auxhist11_interval_m: Out of range domain number: ',id_id
4237     CALL wrf_error_fatal(emess)
4238   ENDIF
4239   auxhist11_interval_m = model_config_rec%auxhist11_interval_m(id_id)
4240   RETURN
4241 END SUBROUTINE nl_get_auxhist11_interval_m
4242 SUBROUTINE nl_get_auxhist11_interval_s ( id_id , auxhist11_interval_s )
4243   integer , INTENT(OUT) :: auxhist11_interval_s
4244   INTEGER id_id
4245   CHARACTER*80 emess
4246   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4247     WRITE(emess,*)'nl_get_auxhist11_interval_s: Out of range domain number: ',id_id
4248     CALL wrf_error_fatal(emess)
4249   ENDIF
4250   auxhist11_interval_s = model_config_rec%auxhist11_interval_s(id_id)
4251   RETURN
4252 END SUBROUTINE nl_get_auxhist11_interval_s
4253 SUBROUTINE nl_get_auxhist11_interval ( id_id , auxhist11_interval )
4254   integer , INTENT(OUT) :: auxhist11_interval
4255   INTEGER id_id
4256   CHARACTER*80 emess
4257   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4258     WRITE(emess,*)'nl_get_auxhist11_interval: Out of range domain number: ',id_id
4259     CALL wrf_error_fatal(emess)
4260   ENDIF
4261   auxhist11_interval = model_config_rec%auxhist11_interval(id_id)
4262   RETURN
4263 END SUBROUTINE nl_get_auxhist11_interval
4264 SUBROUTINE nl_get_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
4265   integer , INTENT(OUT) :: auxinput1_interval_mo
4266   INTEGER id_id
4267   CHARACTER*80 emess
4268   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4269     WRITE(emess,*)'nl_get_auxinput1_interval_mo: Out of range domain number: ',id_id
4270     CALL wrf_error_fatal(emess)
4271   ENDIF
4272   auxinput1_interval_mo = model_config_rec%auxinput1_interval_mo(id_id)
4273   RETURN
4274 END SUBROUTINE nl_get_auxinput1_interval_mo
4275 SUBROUTINE nl_get_auxinput1_interval_d ( id_id , auxinput1_interval_d )
4276   integer , INTENT(OUT) :: auxinput1_interval_d
4277   INTEGER id_id
4278   CHARACTER*80 emess
4279   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4280     WRITE(emess,*)'nl_get_auxinput1_interval_d: Out of range domain number: ',id_id
4281     CALL wrf_error_fatal(emess)
4282   ENDIF
4283   auxinput1_interval_d = model_config_rec%auxinput1_interval_d(id_id)
4284   RETURN
4285 END SUBROUTINE nl_get_auxinput1_interval_d
4286 SUBROUTINE nl_get_auxinput1_interval_h ( id_id , auxinput1_interval_h )
4287   integer , INTENT(OUT) :: auxinput1_interval_h
4288   INTEGER id_id
4289   CHARACTER*80 emess
4290   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4291     WRITE(emess,*)'nl_get_auxinput1_interval_h: Out of range domain number: ',id_id
4292     CALL wrf_error_fatal(emess)
4293   ENDIF
4294   auxinput1_interval_h = model_config_rec%auxinput1_interval_h(id_id)
4295   RETURN
4296 END SUBROUTINE nl_get_auxinput1_interval_h
4297 SUBROUTINE nl_get_auxinput1_interval_m ( id_id , auxinput1_interval_m )
4298   integer , INTENT(OUT) :: auxinput1_interval_m
4299   INTEGER id_id
4300   CHARACTER*80 emess
4301   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4302     WRITE(emess,*)'nl_get_auxinput1_interval_m: Out of range domain number: ',id_id
4303     CALL wrf_error_fatal(emess)
4304   ENDIF
4305   auxinput1_interval_m = model_config_rec%auxinput1_interval_m(id_id)
4306   RETURN
4307 END SUBROUTINE nl_get_auxinput1_interval_m
4308 SUBROUTINE nl_get_auxinput1_interval_s ( id_id , auxinput1_interval_s )
4309   integer , INTENT(OUT) :: auxinput1_interval_s
4310   INTEGER id_id
4311   CHARACTER*80 emess
4312   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4313     WRITE(emess,*)'nl_get_auxinput1_interval_s: Out of range domain number: ',id_id
4314     CALL wrf_error_fatal(emess)
4315   ENDIF
4316   auxinput1_interval_s = model_config_rec%auxinput1_interval_s(id_id)
4317   RETURN
4318 END SUBROUTINE nl_get_auxinput1_interval_s
4319 SUBROUTINE nl_get_auxinput1_interval ( id_id , auxinput1_interval )
4320   integer , INTENT(OUT) :: auxinput1_interval
4321   INTEGER id_id
4322   CHARACTER*80 emess
4323   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4324     WRITE(emess,*)'nl_get_auxinput1_interval: Out of range domain number: ',id_id
4325     CALL wrf_error_fatal(emess)
4326   ENDIF
4327   auxinput1_interval = model_config_rec%auxinput1_interval(id_id)
4328   RETURN
4329 END SUBROUTINE nl_get_auxinput1_interval
4330 SUBROUTINE nl_get_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
4331   integer , INTENT(OUT) :: auxinput2_interval_mo
4332   INTEGER id_id
4333   CHARACTER*80 emess
4334   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4335     WRITE(emess,*)'nl_get_auxinput2_interval_mo: Out of range domain number: ',id_id
4336     CALL wrf_error_fatal(emess)
4337   ENDIF
4338   auxinput2_interval_mo = model_config_rec%auxinput2_interval_mo(id_id)
4339   RETURN
4340 END SUBROUTINE nl_get_auxinput2_interval_mo
4341 SUBROUTINE nl_get_auxinput2_interval_d ( id_id , auxinput2_interval_d )
4342   integer , INTENT(OUT) :: auxinput2_interval_d
4343   INTEGER id_id
4344   CHARACTER*80 emess
4345   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4346     WRITE(emess,*)'nl_get_auxinput2_interval_d: Out of range domain number: ',id_id
4347     CALL wrf_error_fatal(emess)
4348   ENDIF
4349   auxinput2_interval_d = model_config_rec%auxinput2_interval_d(id_id)
4350   RETURN
4351 END SUBROUTINE nl_get_auxinput2_interval_d
4352 SUBROUTINE nl_get_auxinput2_interval_h ( id_id , auxinput2_interval_h )
4353   integer , INTENT(OUT) :: auxinput2_interval_h
4354   INTEGER id_id
4355   CHARACTER*80 emess
4356   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4357     WRITE(emess,*)'nl_get_auxinput2_interval_h: Out of range domain number: ',id_id
4358     CALL wrf_error_fatal(emess)
4359   ENDIF
4360   auxinput2_interval_h = model_config_rec%auxinput2_interval_h(id_id)
4361   RETURN
4362 END SUBROUTINE nl_get_auxinput2_interval_h
4363 SUBROUTINE nl_get_auxinput2_interval_m ( id_id , auxinput2_interval_m )
4364   integer , INTENT(OUT) :: auxinput2_interval_m
4365   INTEGER id_id
4366   CHARACTER*80 emess
4367   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4368     WRITE(emess,*)'nl_get_auxinput2_interval_m: Out of range domain number: ',id_id
4369     CALL wrf_error_fatal(emess)
4370   ENDIF
4371   auxinput2_interval_m = model_config_rec%auxinput2_interval_m(id_id)
4372   RETURN
4373 END SUBROUTINE nl_get_auxinput2_interval_m
4374 SUBROUTINE nl_get_auxinput2_interval_s ( id_id , auxinput2_interval_s )
4375   integer , INTENT(OUT) :: auxinput2_interval_s
4376   INTEGER id_id
4377   CHARACTER*80 emess
4378   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4379     WRITE(emess,*)'nl_get_auxinput2_interval_s: Out of range domain number: ',id_id
4380     CALL wrf_error_fatal(emess)
4381   ENDIF
4382   auxinput2_interval_s = model_config_rec%auxinput2_interval_s(id_id)
4383   RETURN
4384 END SUBROUTINE nl_get_auxinput2_interval_s
4385 SUBROUTINE nl_get_auxinput2_interval ( id_id , auxinput2_interval )
4386   integer , INTENT(OUT) :: auxinput2_interval
4387   INTEGER id_id
4388   CHARACTER*80 emess
4389   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4390     WRITE(emess,*)'nl_get_auxinput2_interval: Out of range domain number: ',id_id
4391     CALL wrf_error_fatal(emess)
4392   ENDIF
4393   auxinput2_interval = model_config_rec%auxinput2_interval(id_id)
4394   RETURN
4395 END SUBROUTINE nl_get_auxinput2_interval
4396 SUBROUTINE nl_get_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
4397   integer , INTENT(OUT) :: auxinput3_interval_mo
4398   INTEGER id_id
4399   CHARACTER*80 emess
4400   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4401     WRITE(emess,*)'nl_get_auxinput3_interval_mo: Out of range domain number: ',id_id
4402     CALL wrf_error_fatal(emess)
4403   ENDIF
4404   auxinput3_interval_mo = model_config_rec%auxinput3_interval_mo(id_id)
4405   RETURN
4406 END SUBROUTINE nl_get_auxinput3_interval_mo
4407 SUBROUTINE nl_get_auxinput3_interval_d ( id_id , auxinput3_interval_d )
4408   integer , INTENT(OUT) :: auxinput3_interval_d
4409   INTEGER id_id
4410   CHARACTER*80 emess
4411   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4412     WRITE(emess,*)'nl_get_auxinput3_interval_d: Out of range domain number: ',id_id
4413     CALL wrf_error_fatal(emess)
4414   ENDIF
4415   auxinput3_interval_d = model_config_rec%auxinput3_interval_d(id_id)
4416   RETURN
4417 END SUBROUTINE nl_get_auxinput3_interval_d
4418 SUBROUTINE nl_get_auxinput3_interval_h ( id_id , auxinput3_interval_h )
4419   integer , INTENT(OUT) :: auxinput3_interval_h
4420   INTEGER id_id
4421   CHARACTER*80 emess
4422   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4423     WRITE(emess,*)'nl_get_auxinput3_interval_h: Out of range domain number: ',id_id
4424     CALL wrf_error_fatal(emess)
4425   ENDIF
4426   auxinput3_interval_h = model_config_rec%auxinput3_interval_h(id_id)
4427   RETURN
4428 END SUBROUTINE nl_get_auxinput3_interval_h
4429 SUBROUTINE nl_get_auxinput3_interval_m ( id_id , auxinput3_interval_m )
4430   integer , INTENT(OUT) :: auxinput3_interval_m
4431   INTEGER id_id
4432   CHARACTER*80 emess
4433   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4434     WRITE(emess,*)'nl_get_auxinput3_interval_m: Out of range domain number: ',id_id
4435     CALL wrf_error_fatal(emess)
4436   ENDIF
4437   auxinput3_interval_m = model_config_rec%auxinput3_interval_m(id_id)
4438   RETURN
4439 END SUBROUTINE nl_get_auxinput3_interval_m
4440 SUBROUTINE nl_get_auxinput3_interval_s ( id_id , auxinput3_interval_s )
4441   integer , INTENT(OUT) :: auxinput3_interval_s
4442   INTEGER id_id
4443   CHARACTER*80 emess
4444   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4445     WRITE(emess,*)'nl_get_auxinput3_interval_s: Out of range domain number: ',id_id
4446     CALL wrf_error_fatal(emess)
4447   ENDIF
4448   auxinput3_interval_s = model_config_rec%auxinput3_interval_s(id_id)
4449   RETURN
4450 END SUBROUTINE nl_get_auxinput3_interval_s
4451 SUBROUTINE nl_get_auxinput3_interval ( id_id , auxinput3_interval )
4452   integer , INTENT(OUT) :: auxinput3_interval
4453   INTEGER id_id
4454   CHARACTER*80 emess
4455   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4456     WRITE(emess,*)'nl_get_auxinput3_interval: Out of range domain number: ',id_id
4457     CALL wrf_error_fatal(emess)
4458   ENDIF
4459   auxinput3_interval = model_config_rec%auxinput3_interval(id_id)
4460   RETURN
4461 END SUBROUTINE nl_get_auxinput3_interval
4462 SUBROUTINE nl_get_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
4463   integer , INTENT(OUT) :: auxinput4_interval_mo
4464   INTEGER id_id
4465   CHARACTER*80 emess
4466   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4467     WRITE(emess,*)'nl_get_auxinput4_interval_mo: Out of range domain number: ',id_id
4468     CALL wrf_error_fatal(emess)
4469   ENDIF
4470   auxinput4_interval_mo = model_config_rec%auxinput4_interval_mo(id_id)
4471   RETURN
4472 END SUBROUTINE nl_get_auxinput4_interval_mo
4473 SUBROUTINE nl_get_auxinput4_interval_d ( id_id , auxinput4_interval_d )
4474   integer , INTENT(OUT) :: auxinput4_interval_d
4475   INTEGER id_id
4476   CHARACTER*80 emess
4477   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4478     WRITE(emess,*)'nl_get_auxinput4_interval_d: Out of range domain number: ',id_id
4479     CALL wrf_error_fatal(emess)
4480   ENDIF
4481   auxinput4_interval_d = model_config_rec%auxinput4_interval_d(id_id)
4482   RETURN
4483 END SUBROUTINE nl_get_auxinput4_interval_d
4484 SUBROUTINE nl_get_auxinput4_interval_h ( id_id , auxinput4_interval_h )
4485   integer , INTENT(OUT) :: auxinput4_interval_h
4486   INTEGER id_id
4487   CHARACTER*80 emess
4488   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4489     WRITE(emess,*)'nl_get_auxinput4_interval_h: Out of range domain number: ',id_id
4490     CALL wrf_error_fatal(emess)
4491   ENDIF
4492   auxinput4_interval_h = model_config_rec%auxinput4_interval_h(id_id)
4493   RETURN
4494 END SUBROUTINE nl_get_auxinput4_interval_h
4495 SUBROUTINE nl_get_auxinput4_interval_m ( id_id , auxinput4_interval_m )
4496   integer , INTENT(OUT) :: auxinput4_interval_m
4497   INTEGER id_id
4498   CHARACTER*80 emess
4499   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4500     WRITE(emess,*)'nl_get_auxinput4_interval_m: Out of range domain number: ',id_id
4501     CALL wrf_error_fatal(emess)
4502   ENDIF
4503   auxinput4_interval_m = model_config_rec%auxinput4_interval_m(id_id)
4504   RETURN
4505 END SUBROUTINE nl_get_auxinput4_interval_m
4506 SUBROUTINE nl_get_auxinput4_interval_s ( id_id , auxinput4_interval_s )
4507   integer , INTENT(OUT) :: auxinput4_interval_s
4508   INTEGER id_id
4509   CHARACTER*80 emess
4510   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4511     WRITE(emess,*)'nl_get_auxinput4_interval_s: Out of range domain number: ',id_id
4512     CALL wrf_error_fatal(emess)
4513   ENDIF
4514   auxinput4_interval_s = model_config_rec%auxinput4_interval_s(id_id)
4515   RETURN
4516 END SUBROUTINE nl_get_auxinput4_interval_s
4517 SUBROUTINE nl_get_auxinput4_interval ( id_id , auxinput4_interval )
4518   integer , INTENT(OUT) :: auxinput4_interval
4519   INTEGER id_id
4520   CHARACTER*80 emess
4521   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4522     WRITE(emess,*)'nl_get_auxinput4_interval: Out of range domain number: ',id_id
4523     CALL wrf_error_fatal(emess)
4524   ENDIF
4525   auxinput4_interval = model_config_rec%auxinput4_interval(id_id)
4526   RETURN
4527 END SUBROUTINE nl_get_auxinput4_interval
4528 SUBROUTINE nl_get_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
4529   integer , INTENT(OUT) :: auxinput5_interval_mo
4530   INTEGER id_id
4531   CHARACTER*80 emess
4532   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4533     WRITE(emess,*)'nl_get_auxinput5_interval_mo: Out of range domain number: ',id_id
4534     CALL wrf_error_fatal(emess)
4535   ENDIF
4536   auxinput5_interval_mo = model_config_rec%auxinput5_interval_mo(id_id)
4537   RETURN
4538 END SUBROUTINE nl_get_auxinput5_interval_mo
4539 SUBROUTINE nl_get_auxinput5_interval_d ( id_id , auxinput5_interval_d )
4540   integer , INTENT(OUT) :: auxinput5_interval_d
4541   INTEGER id_id
4542   CHARACTER*80 emess
4543   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4544     WRITE(emess,*)'nl_get_auxinput5_interval_d: Out of range domain number: ',id_id
4545     CALL wrf_error_fatal(emess)
4546   ENDIF
4547   auxinput5_interval_d = model_config_rec%auxinput5_interval_d(id_id)
4548   RETURN
4549 END SUBROUTINE nl_get_auxinput5_interval_d
4550 SUBROUTINE nl_get_auxinput5_interval_h ( id_id , auxinput5_interval_h )
4551   integer , INTENT(OUT) :: auxinput5_interval_h
4552   INTEGER id_id
4553   CHARACTER*80 emess
4554   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4555     WRITE(emess,*)'nl_get_auxinput5_interval_h: Out of range domain number: ',id_id
4556     CALL wrf_error_fatal(emess)
4557   ENDIF
4558   auxinput5_interval_h = model_config_rec%auxinput5_interval_h(id_id)
4559   RETURN
4560 END SUBROUTINE nl_get_auxinput5_interval_h
4561 SUBROUTINE nl_get_auxinput5_interval_m ( id_id , auxinput5_interval_m )
4562   integer , INTENT(OUT) :: auxinput5_interval_m
4563   INTEGER id_id
4564   CHARACTER*80 emess
4565   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4566     WRITE(emess,*)'nl_get_auxinput5_interval_m: Out of range domain number: ',id_id
4567     CALL wrf_error_fatal(emess)
4568   ENDIF
4569   auxinput5_interval_m = model_config_rec%auxinput5_interval_m(id_id)
4570   RETURN
4571 END SUBROUTINE nl_get_auxinput5_interval_m
4572 SUBROUTINE nl_get_auxinput5_interval_s ( id_id , auxinput5_interval_s )
4573   integer , INTENT(OUT) :: auxinput5_interval_s
4574   INTEGER id_id
4575   CHARACTER*80 emess
4576   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4577     WRITE(emess,*)'nl_get_auxinput5_interval_s: Out of range domain number: ',id_id
4578     CALL wrf_error_fatal(emess)
4579   ENDIF
4580   auxinput5_interval_s = model_config_rec%auxinput5_interval_s(id_id)
4581   RETURN
4582 END SUBROUTINE nl_get_auxinput5_interval_s
4583 SUBROUTINE nl_get_auxinput5_interval ( id_id , auxinput5_interval )
4584   integer , INTENT(OUT) :: auxinput5_interval
4585   INTEGER id_id
4586   CHARACTER*80 emess
4587   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4588     WRITE(emess,*)'nl_get_auxinput5_interval: Out of range domain number: ',id_id
4589     CALL wrf_error_fatal(emess)
4590   ENDIF
4591   auxinput5_interval = model_config_rec%auxinput5_interval(id_id)
4592   RETURN
4593 END SUBROUTINE nl_get_auxinput5_interval
4594 SUBROUTINE nl_get_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
4595   integer , INTENT(OUT) :: auxinput6_interval_mo
4596   INTEGER id_id
4597   CHARACTER*80 emess
4598   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4599     WRITE(emess,*)'nl_get_auxinput6_interval_mo: Out of range domain number: ',id_id
4600     CALL wrf_error_fatal(emess)
4601   ENDIF
4602   auxinput6_interval_mo = model_config_rec%auxinput6_interval_mo(id_id)
4603   RETURN
4604 END SUBROUTINE nl_get_auxinput6_interval_mo
4605 SUBROUTINE nl_get_auxinput6_interval_d ( id_id , auxinput6_interval_d )
4606   integer , INTENT(OUT) :: auxinput6_interval_d
4607   INTEGER id_id
4608   CHARACTER*80 emess
4609   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4610     WRITE(emess,*)'nl_get_auxinput6_interval_d: Out of range domain number: ',id_id
4611     CALL wrf_error_fatal(emess)
4612   ENDIF
4613   auxinput6_interval_d = model_config_rec%auxinput6_interval_d(id_id)
4614   RETURN
4615 END SUBROUTINE nl_get_auxinput6_interval_d
4616 SUBROUTINE nl_get_auxinput6_interval_h ( id_id , auxinput6_interval_h )
4617   integer , INTENT(OUT) :: auxinput6_interval_h
4618   INTEGER id_id
4619   CHARACTER*80 emess
4620   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4621     WRITE(emess,*)'nl_get_auxinput6_interval_h: Out of range domain number: ',id_id
4622     CALL wrf_error_fatal(emess)
4623   ENDIF
4624   auxinput6_interval_h = model_config_rec%auxinput6_interval_h(id_id)
4625   RETURN
4626 END SUBROUTINE nl_get_auxinput6_interval_h
4627 SUBROUTINE nl_get_auxinput6_interval_m ( id_id , auxinput6_interval_m )
4628   integer , INTENT(OUT) :: auxinput6_interval_m
4629   INTEGER id_id
4630   CHARACTER*80 emess
4631   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4632     WRITE(emess,*)'nl_get_auxinput6_interval_m: Out of range domain number: ',id_id
4633     CALL wrf_error_fatal(emess)
4634   ENDIF
4635   auxinput6_interval_m = model_config_rec%auxinput6_interval_m(id_id)
4636   RETURN
4637 END SUBROUTINE nl_get_auxinput6_interval_m
4638 SUBROUTINE nl_get_auxinput6_interval_s ( id_id , auxinput6_interval_s )
4639   integer , INTENT(OUT) :: auxinput6_interval_s
4640   INTEGER id_id
4641   CHARACTER*80 emess
4642   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4643     WRITE(emess,*)'nl_get_auxinput6_interval_s: Out of range domain number: ',id_id
4644     CALL wrf_error_fatal(emess)
4645   ENDIF
4646   auxinput6_interval_s = model_config_rec%auxinput6_interval_s(id_id)
4647   RETURN
4648 END SUBROUTINE nl_get_auxinput6_interval_s
4649 SUBROUTINE nl_get_auxinput6_interval ( id_id , auxinput6_interval )
4650   integer , INTENT(OUT) :: auxinput6_interval
4651   INTEGER id_id
4652   CHARACTER*80 emess
4653   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4654     WRITE(emess,*)'nl_get_auxinput6_interval: Out of range domain number: ',id_id
4655     CALL wrf_error_fatal(emess)
4656   ENDIF
4657   auxinput6_interval = model_config_rec%auxinput6_interval(id_id)
4658   RETURN
4659 END SUBROUTINE nl_get_auxinput6_interval
4660 SUBROUTINE nl_get_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
4661   integer , INTENT(OUT) :: auxinput7_interval_mo
4662   INTEGER id_id
4663   CHARACTER*80 emess
4664   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4665     WRITE(emess,*)'nl_get_auxinput7_interval_mo: Out of range domain number: ',id_id
4666     CALL wrf_error_fatal(emess)
4667   ENDIF
4668   auxinput7_interval_mo = model_config_rec%auxinput7_interval_mo(id_id)
4669   RETURN
4670 END SUBROUTINE nl_get_auxinput7_interval_mo
4671 SUBROUTINE nl_get_auxinput7_interval_d ( id_id , auxinput7_interval_d )
4672   integer , INTENT(OUT) :: auxinput7_interval_d
4673   INTEGER id_id
4674   CHARACTER*80 emess
4675   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4676     WRITE(emess,*)'nl_get_auxinput7_interval_d: Out of range domain number: ',id_id
4677     CALL wrf_error_fatal(emess)
4678   ENDIF
4679   auxinput7_interval_d = model_config_rec%auxinput7_interval_d(id_id)
4680   RETURN
4681 END SUBROUTINE nl_get_auxinput7_interval_d
4682 SUBROUTINE nl_get_auxinput7_interval_h ( id_id , auxinput7_interval_h )
4683   integer , INTENT(OUT) :: auxinput7_interval_h
4684   INTEGER id_id
4685   CHARACTER*80 emess
4686   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4687     WRITE(emess,*)'nl_get_auxinput7_interval_h: Out of range domain number: ',id_id
4688     CALL wrf_error_fatal(emess)
4689   ENDIF
4690   auxinput7_interval_h = model_config_rec%auxinput7_interval_h(id_id)
4691   RETURN
4692 END SUBROUTINE nl_get_auxinput7_interval_h
4693 SUBROUTINE nl_get_auxinput7_interval_m ( id_id , auxinput7_interval_m )
4694   integer , INTENT(OUT) :: auxinput7_interval_m
4695   INTEGER id_id
4696   CHARACTER*80 emess
4697   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4698     WRITE(emess,*)'nl_get_auxinput7_interval_m: Out of range domain number: ',id_id
4699     CALL wrf_error_fatal(emess)
4700   ENDIF
4701   auxinput7_interval_m = model_config_rec%auxinput7_interval_m(id_id)
4702   RETURN
4703 END SUBROUTINE nl_get_auxinput7_interval_m
4704 SUBROUTINE nl_get_auxinput7_interval_s ( id_id , auxinput7_interval_s )
4705   integer , INTENT(OUT) :: auxinput7_interval_s
4706   INTEGER id_id
4707   CHARACTER*80 emess
4708   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4709     WRITE(emess,*)'nl_get_auxinput7_interval_s: Out of range domain number: ',id_id
4710     CALL wrf_error_fatal(emess)
4711   ENDIF
4712   auxinput7_interval_s = model_config_rec%auxinput7_interval_s(id_id)
4713   RETURN
4714 END SUBROUTINE nl_get_auxinput7_interval_s
4715 SUBROUTINE nl_get_auxinput7_interval ( id_id , auxinput7_interval )
4716   integer , INTENT(OUT) :: auxinput7_interval
4717   INTEGER id_id
4718   CHARACTER*80 emess
4719   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4720     WRITE(emess,*)'nl_get_auxinput7_interval: Out of range domain number: ',id_id
4721     CALL wrf_error_fatal(emess)
4722   ENDIF
4723   auxinput7_interval = model_config_rec%auxinput7_interval(id_id)
4724   RETURN
4725 END SUBROUTINE nl_get_auxinput7_interval
4726 SUBROUTINE nl_get_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
4727   integer , INTENT(OUT) :: auxinput8_interval_mo
4728   INTEGER id_id
4729   CHARACTER*80 emess
4730   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4731     WRITE(emess,*)'nl_get_auxinput8_interval_mo: Out of range domain number: ',id_id
4732     CALL wrf_error_fatal(emess)
4733   ENDIF
4734   auxinput8_interval_mo = model_config_rec%auxinput8_interval_mo(id_id)
4735   RETURN
4736 END SUBROUTINE nl_get_auxinput8_interval_mo
4737 SUBROUTINE nl_get_auxinput8_interval_d ( id_id , auxinput8_interval_d )
4738   integer , INTENT(OUT) :: auxinput8_interval_d
4739   INTEGER id_id
4740   CHARACTER*80 emess
4741   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4742     WRITE(emess,*)'nl_get_auxinput8_interval_d: Out of range domain number: ',id_id
4743     CALL wrf_error_fatal(emess)
4744   ENDIF
4745   auxinput8_interval_d = model_config_rec%auxinput8_interval_d(id_id)
4746   RETURN
4747 END SUBROUTINE nl_get_auxinput8_interval_d
4748 SUBROUTINE nl_get_auxinput8_interval_h ( id_id , auxinput8_interval_h )
4749   integer , INTENT(OUT) :: auxinput8_interval_h
4750   INTEGER id_id
4751   CHARACTER*80 emess
4752   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4753     WRITE(emess,*)'nl_get_auxinput8_interval_h: Out of range domain number: ',id_id
4754     CALL wrf_error_fatal(emess)
4755   ENDIF
4756   auxinput8_interval_h = model_config_rec%auxinput8_interval_h(id_id)
4757   RETURN
4758 END SUBROUTINE nl_get_auxinput8_interval_h
4759 SUBROUTINE nl_get_auxinput8_interval_m ( id_id , auxinput8_interval_m )
4760   integer , INTENT(OUT) :: auxinput8_interval_m
4761   INTEGER id_id
4762   CHARACTER*80 emess
4763   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4764     WRITE(emess,*)'nl_get_auxinput8_interval_m: Out of range domain number: ',id_id
4765     CALL wrf_error_fatal(emess)
4766   ENDIF
4767   auxinput8_interval_m = model_config_rec%auxinput8_interval_m(id_id)
4768   RETURN
4769 END SUBROUTINE nl_get_auxinput8_interval_m
4770 SUBROUTINE nl_get_auxinput8_interval_s ( id_id , auxinput8_interval_s )
4771   integer , INTENT(OUT) :: auxinput8_interval_s
4772   INTEGER id_id
4773   CHARACTER*80 emess
4774   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4775     WRITE(emess,*)'nl_get_auxinput8_interval_s: Out of range domain number: ',id_id
4776     CALL wrf_error_fatal(emess)
4777   ENDIF
4778   auxinput8_interval_s = model_config_rec%auxinput8_interval_s(id_id)
4779   RETURN
4780 END SUBROUTINE nl_get_auxinput8_interval_s
4781 SUBROUTINE nl_get_auxinput8_interval ( id_id , auxinput8_interval )
4782   integer , INTENT(OUT) :: auxinput8_interval
4783   INTEGER id_id
4784   CHARACTER*80 emess
4785   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4786     WRITE(emess,*)'nl_get_auxinput8_interval: Out of range domain number: ',id_id
4787     CALL wrf_error_fatal(emess)
4788   ENDIF
4789   auxinput8_interval = model_config_rec%auxinput8_interval(id_id)
4790   RETURN
4791 END SUBROUTINE nl_get_auxinput8_interval
4792 SUBROUTINE nl_get_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
4793   integer , INTENT(OUT) :: auxinput9_interval_mo
4794   INTEGER id_id
4795   CHARACTER*80 emess
4796   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4797     WRITE(emess,*)'nl_get_auxinput9_interval_mo: Out of range domain number: ',id_id
4798     CALL wrf_error_fatal(emess)
4799   ENDIF
4800   auxinput9_interval_mo = model_config_rec%auxinput9_interval_mo(id_id)
4801   RETURN
4802 END SUBROUTINE nl_get_auxinput9_interval_mo
4803 SUBROUTINE nl_get_auxinput9_interval_d ( id_id , auxinput9_interval_d )
4804   integer , INTENT(OUT) :: auxinput9_interval_d
4805   INTEGER id_id
4806   CHARACTER*80 emess
4807   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4808     WRITE(emess,*)'nl_get_auxinput9_interval_d: Out of range domain number: ',id_id
4809     CALL wrf_error_fatal(emess)
4810   ENDIF
4811   auxinput9_interval_d = model_config_rec%auxinput9_interval_d(id_id)
4812   RETURN
4813 END SUBROUTINE nl_get_auxinput9_interval_d
4814 SUBROUTINE nl_get_auxinput9_interval_h ( id_id , auxinput9_interval_h )
4815   integer , INTENT(OUT) :: auxinput9_interval_h
4816   INTEGER id_id
4817   CHARACTER*80 emess
4818   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4819     WRITE(emess,*)'nl_get_auxinput9_interval_h: Out of range domain number: ',id_id
4820     CALL wrf_error_fatal(emess)
4821   ENDIF
4822   auxinput9_interval_h = model_config_rec%auxinput9_interval_h(id_id)
4823   RETURN
4824 END SUBROUTINE nl_get_auxinput9_interval_h
4825 SUBROUTINE nl_get_auxinput9_interval_m ( id_id , auxinput9_interval_m )
4826   integer , INTENT(OUT) :: auxinput9_interval_m
4827   INTEGER id_id
4828   CHARACTER*80 emess
4829   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4830     WRITE(emess,*)'nl_get_auxinput9_interval_m: Out of range domain number: ',id_id
4831     CALL wrf_error_fatal(emess)
4832   ENDIF
4833   auxinput9_interval_m = model_config_rec%auxinput9_interval_m(id_id)
4834   RETURN
4835 END SUBROUTINE nl_get_auxinput9_interval_m
4836 SUBROUTINE nl_get_auxinput9_interval_s ( id_id , auxinput9_interval_s )
4837   integer , INTENT(OUT) :: auxinput9_interval_s
4838   INTEGER id_id
4839   CHARACTER*80 emess
4840   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4841     WRITE(emess,*)'nl_get_auxinput9_interval_s: Out of range domain number: ',id_id
4842     CALL wrf_error_fatal(emess)
4843   ENDIF
4844   auxinput9_interval_s = model_config_rec%auxinput9_interval_s(id_id)
4845   RETURN
4846 END SUBROUTINE nl_get_auxinput9_interval_s
4847 SUBROUTINE nl_get_auxinput9_interval ( id_id , auxinput9_interval )
4848   integer , INTENT(OUT) :: auxinput9_interval
4849   INTEGER id_id
4850   CHARACTER*80 emess
4851   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4852     WRITE(emess,*)'nl_get_auxinput9_interval: Out of range domain number: ',id_id
4853     CALL wrf_error_fatal(emess)
4854   ENDIF
4855   auxinput9_interval = model_config_rec%auxinput9_interval(id_id)
4856   RETURN
4857 END SUBROUTINE nl_get_auxinput9_interval
4858 SUBROUTINE nl_get_gfdda_interval_mo ( id_id , gfdda_interval_mo )
4859   integer , INTENT(OUT) :: gfdda_interval_mo
4860   INTEGER id_id
4861   CHARACTER*80 emess
4862   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4863     WRITE(emess,*)'nl_get_gfdda_interval_mo: Out of range domain number: ',id_id
4864     CALL wrf_error_fatal(emess)
4865   ENDIF
4866   gfdda_interval_mo = model_config_rec%gfdda_interval_mo(id_id)
4867   RETURN
4868 END SUBROUTINE nl_get_gfdda_interval_mo
4869 SUBROUTINE nl_get_gfdda_interval_d ( id_id , gfdda_interval_d )
4870   integer , INTENT(OUT) :: gfdda_interval_d
4871   INTEGER id_id
4872   CHARACTER*80 emess
4873   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4874     WRITE(emess,*)'nl_get_gfdda_interval_d: Out of range domain number: ',id_id
4875     CALL wrf_error_fatal(emess)
4876   ENDIF
4877   gfdda_interval_d = model_config_rec%gfdda_interval_d(id_id)
4878   RETURN
4879 END SUBROUTINE nl_get_gfdda_interval_d
4880 SUBROUTINE nl_get_gfdda_interval_h ( id_id , gfdda_interval_h )
4881   integer , INTENT(OUT) :: gfdda_interval_h
4882   INTEGER id_id
4883   CHARACTER*80 emess
4884   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4885     WRITE(emess,*)'nl_get_gfdda_interval_h: Out of range domain number: ',id_id
4886     CALL wrf_error_fatal(emess)
4887   ENDIF
4888   gfdda_interval_h = model_config_rec%gfdda_interval_h(id_id)
4889   RETURN
4890 END SUBROUTINE nl_get_gfdda_interval_h
4891 SUBROUTINE nl_get_gfdda_interval_m ( id_id , gfdda_interval_m )
4892   integer , INTENT(OUT) :: gfdda_interval_m
4893   INTEGER id_id
4894   CHARACTER*80 emess
4895   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4896     WRITE(emess,*)'nl_get_gfdda_interval_m: Out of range domain number: ',id_id
4897     CALL wrf_error_fatal(emess)
4898   ENDIF
4899   gfdda_interval_m = model_config_rec%gfdda_interval_m(id_id)
4900   RETURN
4901 END SUBROUTINE nl_get_gfdda_interval_m
4902 SUBROUTINE nl_get_gfdda_interval_s ( id_id , gfdda_interval_s )
4903   integer , INTENT(OUT) :: gfdda_interval_s
4904   INTEGER id_id
4905   CHARACTER*80 emess
4906   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4907     WRITE(emess,*)'nl_get_gfdda_interval_s: Out of range domain number: ',id_id
4908     CALL wrf_error_fatal(emess)
4909   ENDIF
4910   gfdda_interval_s = model_config_rec%gfdda_interval_s(id_id)
4911   RETURN
4912 END SUBROUTINE nl_get_gfdda_interval_s
4913 SUBROUTINE nl_get_gfdda_interval ( id_id , gfdda_interval )
4914   integer , INTENT(OUT) :: gfdda_interval
4915   INTEGER id_id
4916   CHARACTER*80 emess
4917   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4918     WRITE(emess,*)'nl_get_gfdda_interval: Out of range domain number: ',id_id
4919     CALL wrf_error_fatal(emess)
4920   ENDIF
4921   gfdda_interval = model_config_rec%gfdda_interval(id_id)
4922   RETURN
4923 END SUBROUTINE nl_get_gfdda_interval
4924 SUBROUTINE nl_get_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
4925   integer , INTENT(OUT) :: auxinput11_interval_mo
4926   INTEGER id_id
4927   CHARACTER*80 emess
4928   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4929     WRITE(emess,*)'nl_get_auxinput11_interval_mo: Out of range domain number: ',id_id
4930     CALL wrf_error_fatal(emess)
4931   ENDIF
4932   auxinput11_interval_mo = model_config_rec%auxinput11_interval_mo(id_id)
4933   RETURN
4934 END SUBROUTINE nl_get_auxinput11_interval_mo
4935 SUBROUTINE nl_get_auxinput11_interval_d ( id_id , auxinput11_interval_d )
4936   integer , INTENT(OUT) :: auxinput11_interval_d
4937   INTEGER id_id
4938   CHARACTER*80 emess
4939   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4940     WRITE(emess,*)'nl_get_auxinput11_interval_d: Out of range domain number: ',id_id
4941     CALL wrf_error_fatal(emess)
4942   ENDIF
4943   auxinput11_interval_d = model_config_rec%auxinput11_interval_d(id_id)
4944   RETURN
4945 END SUBROUTINE nl_get_auxinput11_interval_d
4946 SUBROUTINE nl_get_auxinput11_interval_h ( id_id , auxinput11_interval_h )
4947   integer , INTENT(OUT) :: auxinput11_interval_h
4948   INTEGER id_id
4949   CHARACTER*80 emess
4950   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4951     WRITE(emess,*)'nl_get_auxinput11_interval_h: Out of range domain number: ',id_id
4952     CALL wrf_error_fatal(emess)
4953   ENDIF
4954   auxinput11_interval_h = model_config_rec%auxinput11_interval_h(id_id)
4955   RETURN
4956 END SUBROUTINE nl_get_auxinput11_interval_h
4957 SUBROUTINE nl_get_auxinput11_interval_m ( id_id , auxinput11_interval_m )
4958   integer , INTENT(OUT) :: auxinput11_interval_m
4959   INTEGER id_id
4960   CHARACTER*80 emess
4961   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4962     WRITE(emess,*)'nl_get_auxinput11_interval_m: Out of range domain number: ',id_id
4963     CALL wrf_error_fatal(emess)
4964   ENDIF
4965   auxinput11_interval_m = model_config_rec%auxinput11_interval_m(id_id)
4966   RETURN
4967 END SUBROUTINE nl_get_auxinput11_interval_m
4968 SUBROUTINE nl_get_auxinput11_interval_s ( id_id , auxinput11_interval_s )
4969   integer , INTENT(OUT) :: auxinput11_interval_s
4970   INTEGER id_id
4971   CHARACTER*80 emess
4972   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4973     WRITE(emess,*)'nl_get_auxinput11_interval_s: Out of range domain number: ',id_id
4974     CALL wrf_error_fatal(emess)
4975   ENDIF
4976   auxinput11_interval_s = model_config_rec%auxinput11_interval_s(id_id)
4977   RETURN
4978 END SUBROUTINE nl_get_auxinput11_interval_s
4979 SUBROUTINE nl_get_auxinput11_interval ( id_id , auxinput11_interval )
4980   integer , INTENT(OUT) :: auxinput11_interval
4981   INTEGER id_id
4982   CHARACTER*80 emess
4983   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4984     WRITE(emess,*)'nl_get_auxinput11_interval: Out of range domain number: ',id_id
4985     CALL wrf_error_fatal(emess)
4986   ENDIF
4987   auxinput11_interval = model_config_rec%auxinput11_interval(id_id)
4988   RETURN
4989 END SUBROUTINE nl_get_auxinput11_interval
4990 SUBROUTINE nl_get_restart_interval_mo ( id_id , restart_interval_mo )
4991   integer , INTENT(OUT) :: restart_interval_mo
4992   INTEGER id_id
4993   CHARACTER*80 emess
4994   IF ( id_id .NE. 1 ) THEN
4995     call wrf_debug(1,&
4996 'WARNING in nl_get_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
4997   ENDIF
4998   restart_interval_mo = model_config_rec%restart_interval_mo
4999   RETURN
5000 END SUBROUTINE nl_get_restart_interval_mo
5001 SUBROUTINE nl_get_restart_interval_d ( id_id , restart_interval_d )
5002   integer , INTENT(OUT) :: restart_interval_d
5003   INTEGER id_id
5004   CHARACTER*80 emess
5005   IF ( id_id .NE. 1 ) THEN
5006     call wrf_debug(1,&
5007 'WARNING in nl_get_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
5008   ENDIF
5009   restart_interval_d = model_config_rec%restart_interval_d
5010   RETURN
5011 END SUBROUTINE nl_get_restart_interval_d
5012 SUBROUTINE nl_get_restart_interval_h ( id_id , restart_interval_h )
5013   integer , INTENT(OUT) :: restart_interval_h
5014   INTEGER id_id
5015   CHARACTER*80 emess
5016   IF ( id_id .NE. 1 ) THEN
5017     call wrf_debug(1,&
5018 'WARNING in nl_get_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
5019   ENDIF
5020   restart_interval_h = model_config_rec%restart_interval_h
5021   RETURN
5022 END SUBROUTINE nl_get_restart_interval_h
5023 SUBROUTINE nl_get_restart_interval_m ( id_id , restart_interval_m )
5024   integer , INTENT(OUT) :: restart_interval_m
5025   INTEGER id_id
5026   CHARACTER*80 emess
5027   IF ( id_id .NE. 1 ) THEN
5028     call wrf_debug(1,&
5029 'WARNING in nl_get_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
5030   ENDIF
5031   restart_interval_m = model_config_rec%restart_interval_m
5032   RETURN
5033 END SUBROUTINE nl_get_restart_interval_m
5034 SUBROUTINE nl_get_restart_interval_s ( id_id , restart_interval_s )
5035   integer , INTENT(OUT) :: restart_interval_s
5036   INTEGER id_id
5037   CHARACTER*80 emess
5038   IF ( id_id .NE. 1 ) THEN
5039     call wrf_debug(1,&
5040 'WARNING in nl_get_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
5041   ENDIF
5042   restart_interval_s = model_config_rec%restart_interval_s
5043   RETURN
5044 END SUBROUTINE nl_get_restart_interval_s
5045 SUBROUTINE nl_get_history_begin_y ( id_id , history_begin_y )
5046   integer , INTENT(OUT) :: history_begin_y
5047   INTEGER id_id
5048   CHARACTER*80 emess
5049   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5050     WRITE(emess,*)'nl_get_history_begin_y: Out of range domain number: ',id_id
5051     CALL wrf_error_fatal(emess)
5052   ENDIF
5053   history_begin_y = model_config_rec%history_begin_y(id_id)
5054   RETURN
5055 END SUBROUTINE nl_get_history_begin_y
5056 SUBROUTINE nl_get_history_begin_mo ( id_id , history_begin_mo )
5057   integer , INTENT(OUT) :: history_begin_mo
5058   INTEGER id_id
5059   CHARACTER*80 emess
5060   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5061     WRITE(emess,*)'nl_get_history_begin_mo: Out of range domain number: ',id_id
5062     CALL wrf_error_fatal(emess)
5063   ENDIF
5064   history_begin_mo = model_config_rec%history_begin_mo(id_id)
5065   RETURN
5066 END SUBROUTINE nl_get_history_begin_mo
5067 SUBROUTINE nl_get_history_begin_d ( id_id , history_begin_d )
5068   integer , INTENT(OUT) :: history_begin_d
5069   INTEGER id_id
5070   CHARACTER*80 emess
5071   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5072     WRITE(emess,*)'nl_get_history_begin_d: Out of range domain number: ',id_id
5073     CALL wrf_error_fatal(emess)
5074   ENDIF
5075   history_begin_d = model_config_rec%history_begin_d(id_id)
5076   RETURN
5077 END SUBROUTINE nl_get_history_begin_d
5078 SUBROUTINE nl_get_history_begin_h ( id_id , history_begin_h )
5079   integer , INTENT(OUT) :: history_begin_h
5080   INTEGER id_id
5081   CHARACTER*80 emess
5082   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5083     WRITE(emess,*)'nl_get_history_begin_h: Out of range domain number: ',id_id
5084     CALL wrf_error_fatal(emess)
5085   ENDIF
5086   history_begin_h = model_config_rec%history_begin_h(id_id)
5087   RETURN
5088 END SUBROUTINE nl_get_history_begin_h
5089 SUBROUTINE nl_get_history_begin_m ( id_id , history_begin_m )
5090   integer , INTENT(OUT) :: history_begin_m
5091   INTEGER id_id
5092   CHARACTER*80 emess
5093   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5094     WRITE(emess,*)'nl_get_history_begin_m: Out of range domain number: ',id_id
5095     CALL wrf_error_fatal(emess)
5096   ENDIF
5097   history_begin_m = model_config_rec%history_begin_m(id_id)
5098   RETURN
5099 END SUBROUTINE nl_get_history_begin_m
5100 SUBROUTINE nl_get_history_begin_s ( id_id , history_begin_s )
5101   integer , INTENT(OUT) :: history_begin_s
5102   INTEGER id_id
5103   CHARACTER*80 emess
5104   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5105     WRITE(emess,*)'nl_get_history_begin_s: Out of range domain number: ',id_id
5106     CALL wrf_error_fatal(emess)
5107   ENDIF
5108   history_begin_s = model_config_rec%history_begin_s(id_id)
5109   RETURN
5110 END SUBROUTINE nl_get_history_begin_s
5111 SUBROUTINE nl_get_inputout_begin_y ( id_id , inputout_begin_y )
5112   integer , INTENT(OUT) :: inputout_begin_y
5113   INTEGER id_id
5114   CHARACTER*80 emess
5115   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5116     WRITE(emess,*)'nl_get_inputout_begin_y: Out of range domain number: ',id_id
5117     CALL wrf_error_fatal(emess)
5118   ENDIF
5119   inputout_begin_y = model_config_rec%inputout_begin_y(id_id)
5120   RETURN
5121 END SUBROUTINE nl_get_inputout_begin_y
5122 SUBROUTINE nl_get_inputout_begin_mo ( id_id , inputout_begin_mo )
5123   integer , INTENT(OUT) :: inputout_begin_mo
5124   INTEGER id_id
5125   CHARACTER*80 emess
5126   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5127     WRITE(emess,*)'nl_get_inputout_begin_mo: Out of range domain number: ',id_id
5128     CALL wrf_error_fatal(emess)
5129   ENDIF
5130   inputout_begin_mo = model_config_rec%inputout_begin_mo(id_id)
5131   RETURN
5132 END SUBROUTINE nl_get_inputout_begin_mo
5133 SUBROUTINE nl_get_inputout_begin_d ( id_id , inputout_begin_d )
5134   integer , INTENT(OUT) :: inputout_begin_d
5135   INTEGER id_id
5136   CHARACTER*80 emess
5137   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5138     WRITE(emess,*)'nl_get_inputout_begin_d: Out of range domain number: ',id_id
5139     CALL wrf_error_fatal(emess)
5140   ENDIF
5141   inputout_begin_d = model_config_rec%inputout_begin_d(id_id)
5142   RETURN
5143 END SUBROUTINE nl_get_inputout_begin_d
5144 SUBROUTINE nl_get_inputout_begin_h ( id_id , inputout_begin_h )
5145   integer , INTENT(OUT) :: inputout_begin_h
5146   INTEGER id_id
5147   CHARACTER*80 emess
5148   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5149     WRITE(emess,*)'nl_get_inputout_begin_h: Out of range domain number: ',id_id
5150     CALL wrf_error_fatal(emess)
5151   ENDIF
5152   inputout_begin_h = model_config_rec%inputout_begin_h(id_id)
5153   RETURN
5154 END SUBROUTINE nl_get_inputout_begin_h
5155 SUBROUTINE nl_get_inputout_begin_m ( id_id , inputout_begin_m )
5156   integer , INTENT(OUT) :: inputout_begin_m
5157   INTEGER id_id
5158   CHARACTER*80 emess
5159   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5160     WRITE(emess,*)'nl_get_inputout_begin_m: Out of range domain number: ',id_id
5161     CALL wrf_error_fatal(emess)
5162   ENDIF
5163   inputout_begin_m = model_config_rec%inputout_begin_m(id_id)
5164   RETURN
5165 END SUBROUTINE nl_get_inputout_begin_m
5166 SUBROUTINE nl_get_inputout_begin_s ( id_id , inputout_begin_s )
5167   integer , INTENT(OUT) :: inputout_begin_s
5168   INTEGER id_id
5169   CHARACTER*80 emess
5170   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5171     WRITE(emess,*)'nl_get_inputout_begin_s: Out of range domain number: ',id_id
5172     CALL wrf_error_fatal(emess)
5173   ENDIF
5174   inputout_begin_s = model_config_rec%inputout_begin_s(id_id)
5175   RETURN
5176 END SUBROUTINE nl_get_inputout_begin_s
5177 SUBROUTINE nl_get_auxhist1_begin_y ( id_id , auxhist1_begin_y )
5178   integer , INTENT(OUT) :: auxhist1_begin_y
5179   INTEGER id_id
5180   CHARACTER*80 emess
5181   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5182     WRITE(emess,*)'nl_get_auxhist1_begin_y: Out of range domain number: ',id_id
5183     CALL wrf_error_fatal(emess)
5184   ENDIF
5185   auxhist1_begin_y = model_config_rec%auxhist1_begin_y(id_id)
5186   RETURN
5187 END SUBROUTINE nl_get_auxhist1_begin_y
5188 SUBROUTINE nl_get_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
5189   integer , INTENT(OUT) :: auxhist1_begin_mo
5190   INTEGER id_id
5191   CHARACTER*80 emess
5192   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5193     WRITE(emess,*)'nl_get_auxhist1_begin_mo: Out of range domain number: ',id_id
5194     CALL wrf_error_fatal(emess)
5195   ENDIF
5196   auxhist1_begin_mo = model_config_rec%auxhist1_begin_mo(id_id)
5197   RETURN
5198 END SUBROUTINE nl_get_auxhist1_begin_mo
5199 SUBROUTINE nl_get_auxhist1_begin_d ( id_id , auxhist1_begin_d )
5200   integer , INTENT(OUT) :: auxhist1_begin_d
5201   INTEGER id_id
5202   CHARACTER*80 emess
5203   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5204     WRITE(emess,*)'nl_get_auxhist1_begin_d: Out of range domain number: ',id_id
5205     CALL wrf_error_fatal(emess)
5206   ENDIF
5207   auxhist1_begin_d = model_config_rec%auxhist1_begin_d(id_id)
5208   RETURN
5209 END SUBROUTINE nl_get_auxhist1_begin_d
5210 SUBROUTINE nl_get_auxhist1_begin_h ( id_id , auxhist1_begin_h )
5211   integer , INTENT(OUT) :: auxhist1_begin_h
5212   INTEGER id_id
5213   CHARACTER*80 emess
5214   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5215     WRITE(emess,*)'nl_get_auxhist1_begin_h: Out of range domain number: ',id_id
5216     CALL wrf_error_fatal(emess)
5217   ENDIF
5218   auxhist1_begin_h = model_config_rec%auxhist1_begin_h(id_id)
5219   RETURN
5220 END SUBROUTINE nl_get_auxhist1_begin_h
5221 SUBROUTINE nl_get_auxhist1_begin_m ( id_id , auxhist1_begin_m )
5222   integer , INTENT(OUT) :: auxhist1_begin_m
5223   INTEGER id_id
5224   CHARACTER*80 emess
5225   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5226     WRITE(emess,*)'nl_get_auxhist1_begin_m: Out of range domain number: ',id_id
5227     CALL wrf_error_fatal(emess)
5228   ENDIF
5229   auxhist1_begin_m = model_config_rec%auxhist1_begin_m(id_id)
5230   RETURN
5231 END SUBROUTINE nl_get_auxhist1_begin_m
5232 SUBROUTINE nl_get_auxhist1_begin_s ( id_id , auxhist1_begin_s )
5233   integer , INTENT(OUT) :: auxhist1_begin_s
5234   INTEGER id_id
5235   CHARACTER*80 emess
5236   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5237     WRITE(emess,*)'nl_get_auxhist1_begin_s: Out of range domain number: ',id_id
5238     CALL wrf_error_fatal(emess)
5239   ENDIF
5240   auxhist1_begin_s = model_config_rec%auxhist1_begin_s(id_id)
5241   RETURN
5242 END SUBROUTINE nl_get_auxhist1_begin_s
5243 SUBROUTINE nl_get_auxhist2_begin_y ( id_id , auxhist2_begin_y )
5244   integer , INTENT(OUT) :: auxhist2_begin_y
5245   INTEGER id_id
5246   CHARACTER*80 emess
5247   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5248     WRITE(emess,*)'nl_get_auxhist2_begin_y: Out of range domain number: ',id_id
5249     CALL wrf_error_fatal(emess)
5250   ENDIF
5251   auxhist2_begin_y = model_config_rec%auxhist2_begin_y(id_id)
5252   RETURN
5253 END SUBROUTINE nl_get_auxhist2_begin_y
5254 SUBROUTINE nl_get_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
5255   integer , INTENT(OUT) :: auxhist2_begin_mo
5256   INTEGER id_id
5257   CHARACTER*80 emess
5258   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5259     WRITE(emess,*)'nl_get_auxhist2_begin_mo: Out of range domain number: ',id_id
5260     CALL wrf_error_fatal(emess)
5261   ENDIF
5262   auxhist2_begin_mo = model_config_rec%auxhist2_begin_mo(id_id)
5263   RETURN
5264 END SUBROUTINE nl_get_auxhist2_begin_mo
5265 SUBROUTINE nl_get_auxhist2_begin_d ( id_id , auxhist2_begin_d )
5266   integer , INTENT(OUT) :: auxhist2_begin_d
5267   INTEGER id_id
5268   CHARACTER*80 emess
5269   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5270     WRITE(emess,*)'nl_get_auxhist2_begin_d: Out of range domain number: ',id_id
5271     CALL wrf_error_fatal(emess)
5272   ENDIF
5273   auxhist2_begin_d = model_config_rec%auxhist2_begin_d(id_id)
5274   RETURN
5275 END SUBROUTINE nl_get_auxhist2_begin_d
5276 SUBROUTINE nl_get_auxhist2_begin_h ( id_id , auxhist2_begin_h )
5277   integer , INTENT(OUT) :: auxhist2_begin_h
5278   INTEGER id_id
5279   CHARACTER*80 emess
5280   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5281     WRITE(emess,*)'nl_get_auxhist2_begin_h: Out of range domain number: ',id_id
5282     CALL wrf_error_fatal(emess)
5283   ENDIF
5284   auxhist2_begin_h = model_config_rec%auxhist2_begin_h(id_id)
5285   RETURN
5286 END SUBROUTINE nl_get_auxhist2_begin_h
5287 SUBROUTINE nl_get_auxhist2_begin_m ( id_id , auxhist2_begin_m )
5288   integer , INTENT(OUT) :: auxhist2_begin_m
5289   INTEGER id_id
5290   CHARACTER*80 emess
5291   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5292     WRITE(emess,*)'nl_get_auxhist2_begin_m: Out of range domain number: ',id_id
5293     CALL wrf_error_fatal(emess)
5294   ENDIF
5295   auxhist2_begin_m = model_config_rec%auxhist2_begin_m(id_id)
5296   RETURN
5297 END SUBROUTINE nl_get_auxhist2_begin_m
5298 SUBROUTINE nl_get_auxhist2_begin_s ( id_id , auxhist2_begin_s )
5299   integer , INTENT(OUT) :: auxhist2_begin_s
5300   INTEGER id_id
5301   CHARACTER*80 emess
5302   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5303     WRITE(emess,*)'nl_get_auxhist2_begin_s: Out of range domain number: ',id_id
5304     CALL wrf_error_fatal(emess)
5305   ENDIF
5306   auxhist2_begin_s = model_config_rec%auxhist2_begin_s(id_id)
5307   RETURN
5308 END SUBROUTINE nl_get_auxhist2_begin_s
5309 SUBROUTINE nl_get_auxhist3_begin_y ( id_id , auxhist3_begin_y )
5310   integer , INTENT(OUT) :: auxhist3_begin_y
5311   INTEGER id_id
5312   CHARACTER*80 emess
5313   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5314     WRITE(emess,*)'nl_get_auxhist3_begin_y: Out of range domain number: ',id_id
5315     CALL wrf_error_fatal(emess)
5316   ENDIF
5317   auxhist3_begin_y = model_config_rec%auxhist3_begin_y(id_id)
5318   RETURN
5319 END SUBROUTINE nl_get_auxhist3_begin_y
5320 SUBROUTINE nl_get_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
5321   integer , INTENT(OUT) :: auxhist3_begin_mo
5322   INTEGER id_id
5323   CHARACTER*80 emess
5324   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5325     WRITE(emess,*)'nl_get_auxhist3_begin_mo: Out of range domain number: ',id_id
5326     CALL wrf_error_fatal(emess)
5327   ENDIF
5328   auxhist3_begin_mo = model_config_rec%auxhist3_begin_mo(id_id)
5329   RETURN
5330 END SUBROUTINE nl_get_auxhist3_begin_mo
5331 SUBROUTINE nl_get_auxhist3_begin_d ( id_id , auxhist3_begin_d )
5332   integer , INTENT(OUT) :: auxhist3_begin_d
5333   INTEGER id_id
5334   CHARACTER*80 emess
5335   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5336     WRITE(emess,*)'nl_get_auxhist3_begin_d: Out of range domain number: ',id_id
5337     CALL wrf_error_fatal(emess)
5338   ENDIF
5339   auxhist3_begin_d = model_config_rec%auxhist3_begin_d(id_id)
5340   RETURN
5341 END SUBROUTINE nl_get_auxhist3_begin_d
5342 SUBROUTINE nl_get_auxhist3_begin_h ( id_id , auxhist3_begin_h )
5343   integer , INTENT(OUT) :: auxhist3_begin_h
5344   INTEGER id_id
5345   CHARACTER*80 emess
5346   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5347     WRITE(emess,*)'nl_get_auxhist3_begin_h: Out of range domain number: ',id_id
5348     CALL wrf_error_fatal(emess)
5349   ENDIF
5350   auxhist3_begin_h = model_config_rec%auxhist3_begin_h(id_id)
5351   RETURN
5352 END SUBROUTINE nl_get_auxhist3_begin_h
5353 SUBROUTINE nl_get_auxhist3_begin_m ( id_id , auxhist3_begin_m )
5354   integer , INTENT(OUT) :: auxhist3_begin_m
5355   INTEGER id_id
5356   CHARACTER*80 emess
5357   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5358     WRITE(emess,*)'nl_get_auxhist3_begin_m: Out of range domain number: ',id_id
5359     CALL wrf_error_fatal(emess)
5360   ENDIF
5361   auxhist3_begin_m = model_config_rec%auxhist3_begin_m(id_id)
5362   RETURN
5363 END SUBROUTINE nl_get_auxhist3_begin_m
5364 SUBROUTINE nl_get_auxhist3_begin_s ( id_id , auxhist3_begin_s )
5365   integer , INTENT(OUT) :: auxhist3_begin_s
5366   INTEGER id_id
5367   CHARACTER*80 emess
5368   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5369     WRITE(emess,*)'nl_get_auxhist3_begin_s: Out of range domain number: ',id_id
5370     CALL wrf_error_fatal(emess)
5371   ENDIF
5372   auxhist3_begin_s = model_config_rec%auxhist3_begin_s(id_id)
5373   RETURN
5374 END SUBROUTINE nl_get_auxhist3_begin_s
5375 SUBROUTINE nl_get_auxhist4_begin_y ( id_id , auxhist4_begin_y )
5376   integer , INTENT(OUT) :: auxhist4_begin_y
5377   INTEGER id_id
5378   CHARACTER*80 emess
5379   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5380     WRITE(emess,*)'nl_get_auxhist4_begin_y: Out of range domain number: ',id_id
5381     CALL wrf_error_fatal(emess)
5382   ENDIF
5383   auxhist4_begin_y = model_config_rec%auxhist4_begin_y(id_id)
5384   RETURN
5385 END SUBROUTINE nl_get_auxhist4_begin_y
5386 SUBROUTINE nl_get_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
5387   integer , INTENT(OUT) :: auxhist4_begin_mo
5388   INTEGER id_id
5389   CHARACTER*80 emess
5390   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5391     WRITE(emess,*)'nl_get_auxhist4_begin_mo: Out of range domain number: ',id_id
5392     CALL wrf_error_fatal(emess)
5393   ENDIF
5394   auxhist4_begin_mo = model_config_rec%auxhist4_begin_mo(id_id)
5395   RETURN
5396 END SUBROUTINE nl_get_auxhist4_begin_mo
5397 SUBROUTINE nl_get_auxhist4_begin_d ( id_id , auxhist4_begin_d )
5398   integer , INTENT(OUT) :: auxhist4_begin_d
5399   INTEGER id_id
5400   CHARACTER*80 emess
5401   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5402     WRITE(emess,*)'nl_get_auxhist4_begin_d: Out of range domain number: ',id_id
5403     CALL wrf_error_fatal(emess)
5404   ENDIF
5405   auxhist4_begin_d = model_config_rec%auxhist4_begin_d(id_id)
5406   RETURN
5407 END SUBROUTINE nl_get_auxhist4_begin_d
5408 SUBROUTINE nl_get_auxhist4_begin_h ( id_id , auxhist4_begin_h )
5409   integer , INTENT(OUT) :: auxhist4_begin_h
5410   INTEGER id_id
5411   CHARACTER*80 emess
5412   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5413     WRITE(emess,*)'nl_get_auxhist4_begin_h: Out of range domain number: ',id_id
5414     CALL wrf_error_fatal(emess)
5415   ENDIF
5416   auxhist4_begin_h = model_config_rec%auxhist4_begin_h(id_id)
5417   RETURN
5418 END SUBROUTINE nl_get_auxhist4_begin_h
5419 SUBROUTINE nl_get_auxhist4_begin_m ( id_id , auxhist4_begin_m )
5420   integer , INTENT(OUT) :: auxhist4_begin_m
5421   INTEGER id_id
5422   CHARACTER*80 emess
5423   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5424     WRITE(emess,*)'nl_get_auxhist4_begin_m: Out of range domain number: ',id_id
5425     CALL wrf_error_fatal(emess)
5426   ENDIF
5427   auxhist4_begin_m = model_config_rec%auxhist4_begin_m(id_id)
5428   RETURN
5429 END SUBROUTINE nl_get_auxhist4_begin_m
5430 SUBROUTINE nl_get_auxhist4_begin_s ( id_id , auxhist4_begin_s )
5431   integer , INTENT(OUT) :: auxhist4_begin_s
5432   INTEGER id_id
5433   CHARACTER*80 emess
5434   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5435     WRITE(emess,*)'nl_get_auxhist4_begin_s: Out of range domain number: ',id_id
5436     CALL wrf_error_fatal(emess)
5437   ENDIF
5438   auxhist4_begin_s = model_config_rec%auxhist4_begin_s(id_id)
5439   RETURN
5440 END SUBROUTINE nl_get_auxhist4_begin_s
5441 SUBROUTINE nl_get_auxhist5_begin_y ( id_id , auxhist5_begin_y )
5442   integer , INTENT(OUT) :: auxhist5_begin_y
5443   INTEGER id_id
5444   CHARACTER*80 emess
5445   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5446     WRITE(emess,*)'nl_get_auxhist5_begin_y: Out of range domain number: ',id_id
5447     CALL wrf_error_fatal(emess)
5448   ENDIF
5449   auxhist5_begin_y = model_config_rec%auxhist5_begin_y(id_id)
5450   RETURN
5451 END SUBROUTINE nl_get_auxhist5_begin_y
5452 SUBROUTINE nl_get_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
5453   integer , INTENT(OUT) :: auxhist5_begin_mo
5454   INTEGER id_id
5455   CHARACTER*80 emess
5456   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5457     WRITE(emess,*)'nl_get_auxhist5_begin_mo: Out of range domain number: ',id_id
5458     CALL wrf_error_fatal(emess)
5459   ENDIF
5460   auxhist5_begin_mo = model_config_rec%auxhist5_begin_mo(id_id)
5461   RETURN
5462 END SUBROUTINE nl_get_auxhist5_begin_mo
5463 SUBROUTINE nl_get_auxhist5_begin_d ( id_id , auxhist5_begin_d )
5464   integer , INTENT(OUT) :: auxhist5_begin_d
5465   INTEGER id_id
5466   CHARACTER*80 emess
5467   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5468     WRITE(emess,*)'nl_get_auxhist5_begin_d: Out of range domain number: ',id_id
5469     CALL wrf_error_fatal(emess)
5470   ENDIF
5471   auxhist5_begin_d = model_config_rec%auxhist5_begin_d(id_id)
5472   RETURN
5473 END SUBROUTINE nl_get_auxhist5_begin_d
5474 SUBROUTINE nl_get_auxhist5_begin_h ( id_id , auxhist5_begin_h )
5475   integer , INTENT(OUT) :: auxhist5_begin_h
5476   INTEGER id_id
5477   CHARACTER*80 emess
5478   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5479     WRITE(emess,*)'nl_get_auxhist5_begin_h: Out of range domain number: ',id_id
5480     CALL wrf_error_fatal(emess)
5481   ENDIF
5482   auxhist5_begin_h = model_config_rec%auxhist5_begin_h(id_id)
5483   RETURN
5484 END SUBROUTINE nl_get_auxhist5_begin_h
5485 SUBROUTINE nl_get_auxhist5_begin_m ( id_id , auxhist5_begin_m )
5486   integer , INTENT(OUT) :: auxhist5_begin_m
5487   INTEGER id_id
5488   CHARACTER*80 emess
5489   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5490     WRITE(emess,*)'nl_get_auxhist5_begin_m: Out of range domain number: ',id_id
5491     CALL wrf_error_fatal(emess)
5492   ENDIF
5493   auxhist5_begin_m = model_config_rec%auxhist5_begin_m(id_id)
5494   RETURN
5495 END SUBROUTINE nl_get_auxhist5_begin_m
5496 SUBROUTINE nl_get_auxhist5_begin_s ( id_id , auxhist5_begin_s )
5497   integer , INTENT(OUT) :: auxhist5_begin_s
5498   INTEGER id_id
5499   CHARACTER*80 emess
5500   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5501     WRITE(emess,*)'nl_get_auxhist5_begin_s: Out of range domain number: ',id_id
5502     CALL wrf_error_fatal(emess)
5503   ENDIF
5504   auxhist5_begin_s = model_config_rec%auxhist5_begin_s(id_id)
5505   RETURN
5506 END SUBROUTINE nl_get_auxhist5_begin_s
5507 SUBROUTINE nl_get_auxhist6_begin_y ( id_id , auxhist6_begin_y )
5508   integer , INTENT(OUT) :: auxhist6_begin_y
5509   INTEGER id_id
5510   CHARACTER*80 emess
5511   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5512     WRITE(emess,*)'nl_get_auxhist6_begin_y: Out of range domain number: ',id_id
5513     CALL wrf_error_fatal(emess)
5514   ENDIF
5515   auxhist6_begin_y = model_config_rec%auxhist6_begin_y(id_id)
5516   RETURN
5517 END SUBROUTINE nl_get_auxhist6_begin_y
5518 SUBROUTINE nl_get_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
5519   integer , INTENT(OUT) :: auxhist6_begin_mo
5520   INTEGER id_id
5521   CHARACTER*80 emess
5522   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5523     WRITE(emess,*)'nl_get_auxhist6_begin_mo: Out of range domain number: ',id_id
5524     CALL wrf_error_fatal(emess)
5525   ENDIF
5526   auxhist6_begin_mo = model_config_rec%auxhist6_begin_mo(id_id)
5527   RETURN
5528 END SUBROUTINE nl_get_auxhist6_begin_mo
5529 SUBROUTINE nl_get_auxhist6_begin_d ( id_id , auxhist6_begin_d )
5530   integer , INTENT(OUT) :: auxhist6_begin_d
5531   INTEGER id_id
5532   CHARACTER*80 emess
5533   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5534     WRITE(emess,*)'nl_get_auxhist6_begin_d: Out of range domain number: ',id_id
5535     CALL wrf_error_fatal(emess)
5536   ENDIF
5537   auxhist6_begin_d = model_config_rec%auxhist6_begin_d(id_id)
5538   RETURN
5539 END SUBROUTINE nl_get_auxhist6_begin_d
5540 SUBROUTINE nl_get_auxhist6_begin_h ( id_id , auxhist6_begin_h )
5541   integer , INTENT(OUT) :: auxhist6_begin_h
5542   INTEGER id_id
5543   CHARACTER*80 emess
5544   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5545     WRITE(emess,*)'nl_get_auxhist6_begin_h: Out of range domain number: ',id_id
5546     CALL wrf_error_fatal(emess)
5547   ENDIF
5548   auxhist6_begin_h = model_config_rec%auxhist6_begin_h(id_id)
5549   RETURN
5550 END SUBROUTINE nl_get_auxhist6_begin_h
5551 SUBROUTINE nl_get_auxhist6_begin_m ( id_id , auxhist6_begin_m )
5552   integer , INTENT(OUT) :: auxhist6_begin_m
5553   INTEGER id_id
5554   CHARACTER*80 emess
5555   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5556     WRITE(emess,*)'nl_get_auxhist6_begin_m: Out of range domain number: ',id_id
5557     CALL wrf_error_fatal(emess)
5558   ENDIF
5559   auxhist6_begin_m = model_config_rec%auxhist6_begin_m(id_id)
5560   RETURN
5561 END SUBROUTINE nl_get_auxhist6_begin_m
5562 SUBROUTINE nl_get_auxhist6_begin_s ( id_id , auxhist6_begin_s )
5563   integer , INTENT(OUT) :: auxhist6_begin_s
5564   INTEGER id_id
5565   CHARACTER*80 emess
5566   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5567     WRITE(emess,*)'nl_get_auxhist6_begin_s: Out of range domain number: ',id_id
5568     CALL wrf_error_fatal(emess)
5569   ENDIF
5570   auxhist6_begin_s = model_config_rec%auxhist6_begin_s(id_id)
5571   RETURN
5572 END SUBROUTINE nl_get_auxhist6_begin_s
5573 SUBROUTINE nl_get_auxhist7_begin_y ( id_id , auxhist7_begin_y )
5574   integer , INTENT(OUT) :: auxhist7_begin_y
5575   INTEGER id_id
5576   CHARACTER*80 emess
5577   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5578     WRITE(emess,*)'nl_get_auxhist7_begin_y: Out of range domain number: ',id_id
5579     CALL wrf_error_fatal(emess)
5580   ENDIF
5581   auxhist7_begin_y = model_config_rec%auxhist7_begin_y(id_id)
5582   RETURN
5583 END SUBROUTINE nl_get_auxhist7_begin_y
5584 SUBROUTINE nl_get_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
5585   integer , INTENT(OUT) :: auxhist7_begin_mo
5586   INTEGER id_id
5587   CHARACTER*80 emess
5588   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5589     WRITE(emess,*)'nl_get_auxhist7_begin_mo: Out of range domain number: ',id_id
5590     CALL wrf_error_fatal(emess)
5591   ENDIF
5592   auxhist7_begin_mo = model_config_rec%auxhist7_begin_mo(id_id)
5593   RETURN
5594 END SUBROUTINE nl_get_auxhist7_begin_mo
5595 SUBROUTINE nl_get_auxhist7_begin_d ( id_id , auxhist7_begin_d )
5596   integer , INTENT(OUT) :: auxhist7_begin_d
5597   INTEGER id_id
5598   CHARACTER*80 emess
5599   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5600     WRITE(emess,*)'nl_get_auxhist7_begin_d: Out of range domain number: ',id_id
5601     CALL wrf_error_fatal(emess)
5602   ENDIF
5603   auxhist7_begin_d = model_config_rec%auxhist7_begin_d(id_id)
5604   RETURN
5605 END SUBROUTINE nl_get_auxhist7_begin_d
5606 SUBROUTINE nl_get_auxhist7_begin_h ( id_id , auxhist7_begin_h )
5607   integer , INTENT(OUT) :: auxhist7_begin_h
5608   INTEGER id_id
5609   CHARACTER*80 emess
5610   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5611     WRITE(emess,*)'nl_get_auxhist7_begin_h: Out of range domain number: ',id_id
5612     CALL wrf_error_fatal(emess)
5613   ENDIF
5614   auxhist7_begin_h = model_config_rec%auxhist7_begin_h(id_id)
5615   RETURN
5616 END SUBROUTINE nl_get_auxhist7_begin_h
5617 SUBROUTINE nl_get_auxhist7_begin_m ( id_id , auxhist7_begin_m )
5618   integer , INTENT(OUT) :: auxhist7_begin_m
5619   INTEGER id_id
5620   CHARACTER*80 emess
5621   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5622     WRITE(emess,*)'nl_get_auxhist7_begin_m: Out of range domain number: ',id_id
5623     CALL wrf_error_fatal(emess)
5624   ENDIF
5625   auxhist7_begin_m = model_config_rec%auxhist7_begin_m(id_id)
5626   RETURN
5627 END SUBROUTINE nl_get_auxhist7_begin_m
5628 SUBROUTINE nl_get_auxhist7_begin_s ( id_id , auxhist7_begin_s )
5629   integer , INTENT(OUT) :: auxhist7_begin_s
5630   INTEGER id_id
5631   CHARACTER*80 emess
5632   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5633     WRITE(emess,*)'nl_get_auxhist7_begin_s: Out of range domain number: ',id_id
5634     CALL wrf_error_fatal(emess)
5635   ENDIF
5636   auxhist7_begin_s = model_config_rec%auxhist7_begin_s(id_id)
5637   RETURN
5638 END SUBROUTINE nl_get_auxhist7_begin_s
5639 SUBROUTINE nl_get_auxhist8_begin_y ( id_id , auxhist8_begin_y )
5640   integer , INTENT(OUT) :: auxhist8_begin_y
5641   INTEGER id_id
5642   CHARACTER*80 emess
5643   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5644     WRITE(emess,*)'nl_get_auxhist8_begin_y: Out of range domain number: ',id_id
5645     CALL wrf_error_fatal(emess)
5646   ENDIF
5647   auxhist8_begin_y = model_config_rec%auxhist8_begin_y(id_id)
5648   RETURN
5649 END SUBROUTINE nl_get_auxhist8_begin_y
5650 SUBROUTINE nl_get_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
5651   integer , INTENT(OUT) :: auxhist8_begin_mo
5652   INTEGER id_id
5653   CHARACTER*80 emess
5654   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5655     WRITE(emess,*)'nl_get_auxhist8_begin_mo: Out of range domain number: ',id_id
5656     CALL wrf_error_fatal(emess)
5657   ENDIF
5658   auxhist8_begin_mo = model_config_rec%auxhist8_begin_mo(id_id)
5659   RETURN
5660 END SUBROUTINE nl_get_auxhist8_begin_mo
5661 SUBROUTINE nl_get_auxhist8_begin_d ( id_id , auxhist8_begin_d )
5662   integer , INTENT(OUT) :: auxhist8_begin_d
5663   INTEGER id_id
5664   CHARACTER*80 emess
5665   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5666     WRITE(emess,*)'nl_get_auxhist8_begin_d: Out of range domain number: ',id_id
5667     CALL wrf_error_fatal(emess)
5668   ENDIF
5669   auxhist8_begin_d = model_config_rec%auxhist8_begin_d(id_id)
5670   RETURN
5671 END SUBROUTINE nl_get_auxhist8_begin_d
5672 SUBROUTINE nl_get_auxhist8_begin_h ( id_id , auxhist8_begin_h )
5673   integer , INTENT(OUT) :: auxhist8_begin_h
5674   INTEGER id_id
5675   CHARACTER*80 emess
5676   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5677     WRITE(emess,*)'nl_get_auxhist8_begin_h: Out of range domain number: ',id_id
5678     CALL wrf_error_fatal(emess)
5679   ENDIF
5680   auxhist8_begin_h = model_config_rec%auxhist8_begin_h(id_id)
5681   RETURN
5682 END SUBROUTINE nl_get_auxhist8_begin_h
5683 SUBROUTINE nl_get_auxhist8_begin_m ( id_id , auxhist8_begin_m )
5684   integer , INTENT(OUT) :: auxhist8_begin_m
5685   INTEGER id_id
5686   CHARACTER*80 emess
5687   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5688     WRITE(emess,*)'nl_get_auxhist8_begin_m: Out of range domain number: ',id_id
5689     CALL wrf_error_fatal(emess)
5690   ENDIF
5691   auxhist8_begin_m = model_config_rec%auxhist8_begin_m(id_id)
5692   RETURN
5693 END SUBROUTINE nl_get_auxhist8_begin_m
5694 SUBROUTINE nl_get_auxhist8_begin_s ( id_id , auxhist8_begin_s )
5695   integer , INTENT(OUT) :: auxhist8_begin_s
5696   INTEGER id_id
5697   CHARACTER*80 emess
5698   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5699     WRITE(emess,*)'nl_get_auxhist8_begin_s: Out of range domain number: ',id_id
5700     CALL wrf_error_fatal(emess)
5701   ENDIF
5702   auxhist8_begin_s = model_config_rec%auxhist8_begin_s(id_id)
5703   RETURN
5704 END SUBROUTINE nl_get_auxhist8_begin_s
5705 SUBROUTINE nl_get_auxhist9_begin_y ( id_id , auxhist9_begin_y )
5706   integer , INTENT(OUT) :: auxhist9_begin_y
5707   INTEGER id_id
5708   CHARACTER*80 emess
5709   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5710     WRITE(emess,*)'nl_get_auxhist9_begin_y: Out of range domain number: ',id_id
5711     CALL wrf_error_fatal(emess)
5712   ENDIF
5713   auxhist9_begin_y = model_config_rec%auxhist9_begin_y(id_id)
5714   RETURN
5715 END SUBROUTINE nl_get_auxhist9_begin_y
5716 SUBROUTINE nl_get_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
5717   integer , INTENT(OUT) :: auxhist9_begin_mo
5718   INTEGER id_id
5719   CHARACTER*80 emess
5720   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5721     WRITE(emess,*)'nl_get_auxhist9_begin_mo: Out of range domain number: ',id_id
5722     CALL wrf_error_fatal(emess)
5723   ENDIF
5724   auxhist9_begin_mo = model_config_rec%auxhist9_begin_mo(id_id)
5725   RETURN
5726 END SUBROUTINE nl_get_auxhist9_begin_mo
5727 SUBROUTINE nl_get_auxhist9_begin_d ( id_id , auxhist9_begin_d )
5728   integer , INTENT(OUT) :: auxhist9_begin_d
5729   INTEGER id_id
5730   CHARACTER*80 emess
5731   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5732     WRITE(emess,*)'nl_get_auxhist9_begin_d: Out of range domain number: ',id_id
5733     CALL wrf_error_fatal(emess)
5734   ENDIF
5735   auxhist9_begin_d = model_config_rec%auxhist9_begin_d(id_id)
5736   RETURN
5737 END SUBROUTINE nl_get_auxhist9_begin_d
5738 SUBROUTINE nl_get_auxhist9_begin_h ( id_id , auxhist9_begin_h )
5739   integer , INTENT(OUT) :: auxhist9_begin_h
5740   INTEGER id_id
5741   CHARACTER*80 emess
5742   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5743     WRITE(emess,*)'nl_get_auxhist9_begin_h: Out of range domain number: ',id_id
5744     CALL wrf_error_fatal(emess)
5745   ENDIF
5746   auxhist9_begin_h = model_config_rec%auxhist9_begin_h(id_id)
5747   RETURN
5748 END SUBROUTINE nl_get_auxhist9_begin_h
5749 SUBROUTINE nl_get_auxhist9_begin_m ( id_id , auxhist9_begin_m )
5750   integer , INTENT(OUT) :: auxhist9_begin_m
5751   INTEGER id_id
5752   CHARACTER*80 emess
5753   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5754     WRITE(emess,*)'nl_get_auxhist9_begin_m: Out of range domain number: ',id_id
5755     CALL wrf_error_fatal(emess)
5756   ENDIF
5757   auxhist9_begin_m = model_config_rec%auxhist9_begin_m(id_id)
5758   RETURN
5759 END SUBROUTINE nl_get_auxhist9_begin_m
5760 SUBROUTINE nl_get_auxhist9_begin_s ( id_id , auxhist9_begin_s )
5761   integer , INTENT(OUT) :: auxhist9_begin_s
5762   INTEGER id_id
5763   CHARACTER*80 emess
5764   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5765     WRITE(emess,*)'nl_get_auxhist9_begin_s: Out of range domain number: ',id_id
5766     CALL wrf_error_fatal(emess)
5767   ENDIF
5768   auxhist9_begin_s = model_config_rec%auxhist9_begin_s(id_id)
5769   RETURN
5770 END SUBROUTINE nl_get_auxhist9_begin_s
5771 SUBROUTINE nl_get_auxhist10_begin_y ( id_id , auxhist10_begin_y )
5772   integer , INTENT(OUT) :: auxhist10_begin_y
5773   INTEGER id_id
5774   CHARACTER*80 emess
5775   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5776     WRITE(emess,*)'nl_get_auxhist10_begin_y: Out of range domain number: ',id_id
5777     CALL wrf_error_fatal(emess)
5778   ENDIF
5779   auxhist10_begin_y = model_config_rec%auxhist10_begin_y(id_id)
5780   RETURN
5781 END SUBROUTINE nl_get_auxhist10_begin_y
5782 SUBROUTINE nl_get_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
5783   integer , INTENT(OUT) :: auxhist10_begin_mo
5784   INTEGER id_id
5785   CHARACTER*80 emess
5786   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5787     WRITE(emess,*)'nl_get_auxhist10_begin_mo: Out of range domain number: ',id_id
5788     CALL wrf_error_fatal(emess)
5789   ENDIF
5790   auxhist10_begin_mo = model_config_rec%auxhist10_begin_mo(id_id)
5791   RETURN
5792 END SUBROUTINE nl_get_auxhist10_begin_mo
5793 SUBROUTINE nl_get_auxhist10_begin_d ( id_id , auxhist10_begin_d )
5794   integer , INTENT(OUT) :: auxhist10_begin_d
5795   INTEGER id_id
5796   CHARACTER*80 emess
5797   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5798     WRITE(emess,*)'nl_get_auxhist10_begin_d: Out of range domain number: ',id_id
5799     CALL wrf_error_fatal(emess)
5800   ENDIF
5801   auxhist10_begin_d = model_config_rec%auxhist10_begin_d(id_id)
5802   RETURN
5803 END SUBROUTINE nl_get_auxhist10_begin_d
5804 SUBROUTINE nl_get_auxhist10_begin_h ( id_id , auxhist10_begin_h )
5805   integer , INTENT(OUT) :: auxhist10_begin_h
5806   INTEGER id_id
5807   CHARACTER*80 emess
5808   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5809     WRITE(emess,*)'nl_get_auxhist10_begin_h: Out of range domain number: ',id_id
5810     CALL wrf_error_fatal(emess)
5811   ENDIF
5812   auxhist10_begin_h = model_config_rec%auxhist10_begin_h(id_id)
5813   RETURN
5814 END SUBROUTINE nl_get_auxhist10_begin_h
5815 SUBROUTINE nl_get_auxhist10_begin_m ( id_id , auxhist10_begin_m )
5816   integer , INTENT(OUT) :: auxhist10_begin_m
5817   INTEGER id_id
5818   CHARACTER*80 emess
5819   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5820     WRITE(emess,*)'nl_get_auxhist10_begin_m: Out of range domain number: ',id_id
5821     CALL wrf_error_fatal(emess)
5822   ENDIF
5823   auxhist10_begin_m = model_config_rec%auxhist10_begin_m(id_id)
5824   RETURN
5825 END SUBROUTINE nl_get_auxhist10_begin_m
5826 SUBROUTINE nl_get_auxhist10_begin_s ( id_id , auxhist10_begin_s )
5827   integer , INTENT(OUT) :: auxhist10_begin_s
5828   INTEGER id_id
5829   CHARACTER*80 emess
5830   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5831     WRITE(emess,*)'nl_get_auxhist10_begin_s: Out of range domain number: ',id_id
5832     CALL wrf_error_fatal(emess)
5833   ENDIF
5834   auxhist10_begin_s = model_config_rec%auxhist10_begin_s(id_id)
5835   RETURN
5836 END SUBROUTINE nl_get_auxhist10_begin_s
5837 SUBROUTINE nl_get_auxhist11_begin_y ( id_id , auxhist11_begin_y )
5838   integer , INTENT(OUT) :: auxhist11_begin_y
5839   INTEGER id_id
5840   CHARACTER*80 emess
5841   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5842     WRITE(emess,*)'nl_get_auxhist11_begin_y: Out of range domain number: ',id_id
5843     CALL wrf_error_fatal(emess)
5844   ENDIF
5845   auxhist11_begin_y = model_config_rec%auxhist11_begin_y(id_id)
5846   RETURN
5847 END SUBROUTINE nl_get_auxhist11_begin_y
5848 SUBROUTINE nl_get_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
5849   integer , INTENT(OUT) :: auxhist11_begin_mo
5850   INTEGER id_id
5851   CHARACTER*80 emess
5852   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5853     WRITE(emess,*)'nl_get_auxhist11_begin_mo: Out of range domain number: ',id_id
5854     CALL wrf_error_fatal(emess)
5855   ENDIF
5856   auxhist11_begin_mo = model_config_rec%auxhist11_begin_mo(id_id)
5857   RETURN
5858 END SUBROUTINE nl_get_auxhist11_begin_mo
5859 SUBROUTINE nl_get_auxhist11_begin_d ( id_id , auxhist11_begin_d )
5860   integer , INTENT(OUT) :: auxhist11_begin_d
5861   INTEGER id_id
5862   CHARACTER*80 emess
5863   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5864     WRITE(emess,*)'nl_get_auxhist11_begin_d: Out of range domain number: ',id_id
5865     CALL wrf_error_fatal(emess)
5866   ENDIF
5867   auxhist11_begin_d = model_config_rec%auxhist11_begin_d(id_id)
5868   RETURN
5869 END SUBROUTINE nl_get_auxhist11_begin_d
5870 SUBROUTINE nl_get_auxhist11_begin_h ( id_id , auxhist11_begin_h )
5871   integer , INTENT(OUT) :: auxhist11_begin_h
5872   INTEGER id_id
5873   CHARACTER*80 emess
5874   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5875     WRITE(emess,*)'nl_get_auxhist11_begin_h: Out of range domain number: ',id_id
5876     CALL wrf_error_fatal(emess)
5877   ENDIF
5878   auxhist11_begin_h = model_config_rec%auxhist11_begin_h(id_id)
5879   RETURN
5880 END SUBROUTINE nl_get_auxhist11_begin_h
5881 SUBROUTINE nl_get_auxhist11_begin_m ( id_id , auxhist11_begin_m )
5882   integer , INTENT(OUT) :: auxhist11_begin_m
5883   INTEGER id_id
5884   CHARACTER*80 emess
5885   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5886     WRITE(emess,*)'nl_get_auxhist11_begin_m: Out of range domain number: ',id_id
5887     CALL wrf_error_fatal(emess)
5888   ENDIF
5889   auxhist11_begin_m = model_config_rec%auxhist11_begin_m(id_id)
5890   RETURN
5891 END SUBROUTINE nl_get_auxhist11_begin_m
5892 SUBROUTINE nl_get_auxhist11_begin_s ( id_id , auxhist11_begin_s )
5893   integer , INTENT(OUT) :: auxhist11_begin_s
5894   INTEGER id_id
5895   CHARACTER*80 emess
5896   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5897     WRITE(emess,*)'nl_get_auxhist11_begin_s: Out of range domain number: ',id_id
5898     CALL wrf_error_fatal(emess)
5899   ENDIF
5900   auxhist11_begin_s = model_config_rec%auxhist11_begin_s(id_id)
5901   RETURN
5902 END SUBROUTINE nl_get_auxhist11_begin_s
5903 SUBROUTINE nl_get_auxinput1_begin_y ( id_id , auxinput1_begin_y )
5904   integer , INTENT(OUT) :: auxinput1_begin_y
5905   INTEGER id_id
5906   CHARACTER*80 emess
5907   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5908     WRITE(emess,*)'nl_get_auxinput1_begin_y: Out of range domain number: ',id_id
5909     CALL wrf_error_fatal(emess)
5910   ENDIF
5911   auxinput1_begin_y = model_config_rec%auxinput1_begin_y(id_id)
5912   RETURN
5913 END SUBROUTINE nl_get_auxinput1_begin_y
5914 SUBROUTINE nl_get_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
5915   integer , INTENT(OUT) :: auxinput1_begin_mo
5916   INTEGER id_id
5917   CHARACTER*80 emess
5918   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5919     WRITE(emess,*)'nl_get_auxinput1_begin_mo: Out of range domain number: ',id_id
5920     CALL wrf_error_fatal(emess)
5921   ENDIF
5922   auxinput1_begin_mo = model_config_rec%auxinput1_begin_mo(id_id)
5923   RETURN
5924 END SUBROUTINE nl_get_auxinput1_begin_mo
5925 SUBROUTINE nl_get_auxinput1_begin_d ( id_id , auxinput1_begin_d )
5926   integer , INTENT(OUT) :: auxinput1_begin_d
5927   INTEGER id_id
5928   CHARACTER*80 emess
5929   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5930     WRITE(emess,*)'nl_get_auxinput1_begin_d: Out of range domain number: ',id_id
5931     CALL wrf_error_fatal(emess)
5932   ENDIF
5933   auxinput1_begin_d = model_config_rec%auxinput1_begin_d(id_id)
5934   RETURN
5935 END SUBROUTINE nl_get_auxinput1_begin_d
5936 SUBROUTINE nl_get_auxinput1_begin_h ( id_id , auxinput1_begin_h )
5937   integer , INTENT(OUT) :: auxinput1_begin_h
5938   INTEGER id_id
5939   CHARACTER*80 emess
5940   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5941     WRITE(emess,*)'nl_get_auxinput1_begin_h: Out of range domain number: ',id_id
5942     CALL wrf_error_fatal(emess)
5943   ENDIF
5944   auxinput1_begin_h = model_config_rec%auxinput1_begin_h(id_id)
5945   RETURN
5946 END SUBROUTINE nl_get_auxinput1_begin_h
5947 SUBROUTINE nl_get_auxinput1_begin_m ( id_id , auxinput1_begin_m )
5948   integer , INTENT(OUT) :: auxinput1_begin_m
5949   INTEGER id_id
5950   CHARACTER*80 emess
5951   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5952     WRITE(emess,*)'nl_get_auxinput1_begin_m: Out of range domain number: ',id_id
5953     CALL wrf_error_fatal(emess)
5954   ENDIF
5955   auxinput1_begin_m = model_config_rec%auxinput1_begin_m(id_id)
5956   RETURN
5957 END SUBROUTINE nl_get_auxinput1_begin_m
5958 SUBROUTINE nl_get_auxinput1_begin_s ( id_id , auxinput1_begin_s )
5959   integer , INTENT(OUT) :: auxinput1_begin_s
5960   INTEGER id_id
5961   CHARACTER*80 emess
5962   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5963     WRITE(emess,*)'nl_get_auxinput1_begin_s: Out of range domain number: ',id_id
5964     CALL wrf_error_fatal(emess)
5965   ENDIF
5966   auxinput1_begin_s = model_config_rec%auxinput1_begin_s(id_id)
5967   RETURN
5968 END SUBROUTINE nl_get_auxinput1_begin_s
5969 SUBROUTINE nl_get_auxinput2_begin_y ( id_id , auxinput2_begin_y )
5970   integer , INTENT(OUT) :: auxinput2_begin_y
5971   INTEGER id_id
5972   CHARACTER*80 emess
5973   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5974     WRITE(emess,*)'nl_get_auxinput2_begin_y: Out of range domain number: ',id_id
5975     CALL wrf_error_fatal(emess)
5976   ENDIF
5977   auxinput2_begin_y = model_config_rec%auxinput2_begin_y(id_id)
5978   RETURN
5979 END SUBROUTINE nl_get_auxinput2_begin_y
5980 SUBROUTINE nl_get_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
5981   integer , INTENT(OUT) :: auxinput2_begin_mo
5982   INTEGER id_id
5983   CHARACTER*80 emess
5984   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5985     WRITE(emess,*)'nl_get_auxinput2_begin_mo: Out of range domain number: ',id_id
5986     CALL wrf_error_fatal(emess)
5987   ENDIF
5988   auxinput2_begin_mo = model_config_rec%auxinput2_begin_mo(id_id)
5989   RETURN
5990 END SUBROUTINE nl_get_auxinput2_begin_mo
5991 SUBROUTINE nl_get_auxinput2_begin_d ( id_id , auxinput2_begin_d )
5992   integer , INTENT(OUT) :: auxinput2_begin_d
5993   INTEGER id_id
5994   CHARACTER*80 emess
5995   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5996     WRITE(emess,*)'nl_get_auxinput2_begin_d: Out of range domain number: ',id_id
5997     CALL wrf_error_fatal(emess)
5998   ENDIF
5999   auxinput2_begin_d = model_config_rec%auxinput2_begin_d(id_id)
6000   RETURN
6001 END SUBROUTINE nl_get_auxinput2_begin_d
6002 SUBROUTINE nl_get_auxinput2_begin_h ( id_id , auxinput2_begin_h )
6003   integer , INTENT(OUT) :: auxinput2_begin_h
6004   INTEGER id_id
6005   CHARACTER*80 emess
6006   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6007     WRITE(emess,*)'nl_get_auxinput2_begin_h: Out of range domain number: ',id_id
6008     CALL wrf_error_fatal(emess)
6009   ENDIF
6010   auxinput2_begin_h = model_config_rec%auxinput2_begin_h(id_id)
6011   RETURN
6012 END SUBROUTINE nl_get_auxinput2_begin_h
6013 SUBROUTINE nl_get_auxinput2_begin_m ( id_id , auxinput2_begin_m )
6014   integer , INTENT(OUT) :: auxinput2_begin_m
6015   INTEGER id_id
6016   CHARACTER*80 emess
6017   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6018     WRITE(emess,*)'nl_get_auxinput2_begin_m: Out of range domain number: ',id_id
6019     CALL wrf_error_fatal(emess)
6020   ENDIF
6021   auxinput2_begin_m = model_config_rec%auxinput2_begin_m(id_id)
6022   RETURN
6023 END SUBROUTINE nl_get_auxinput2_begin_m
6024 SUBROUTINE nl_get_auxinput2_begin_s ( id_id , auxinput2_begin_s )
6025   integer , INTENT(OUT) :: auxinput2_begin_s
6026   INTEGER id_id
6027   CHARACTER*80 emess
6028   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6029     WRITE(emess,*)'nl_get_auxinput2_begin_s: Out of range domain number: ',id_id
6030     CALL wrf_error_fatal(emess)
6031   ENDIF
6032   auxinput2_begin_s = model_config_rec%auxinput2_begin_s(id_id)
6033   RETURN
6034 END SUBROUTINE nl_get_auxinput2_begin_s
6035 SUBROUTINE nl_get_auxinput3_begin_y ( id_id , auxinput3_begin_y )
6036   integer , INTENT(OUT) :: auxinput3_begin_y
6037   INTEGER id_id
6038   CHARACTER*80 emess
6039   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6040     WRITE(emess,*)'nl_get_auxinput3_begin_y: Out of range domain number: ',id_id
6041     CALL wrf_error_fatal(emess)
6042   ENDIF
6043   auxinput3_begin_y = model_config_rec%auxinput3_begin_y(id_id)
6044   RETURN
6045 END SUBROUTINE nl_get_auxinput3_begin_y
6046 SUBROUTINE nl_get_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
6047   integer , INTENT(OUT) :: auxinput3_begin_mo
6048   INTEGER id_id
6049   CHARACTER*80 emess
6050   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6051     WRITE(emess,*)'nl_get_auxinput3_begin_mo: Out of range domain number: ',id_id
6052     CALL wrf_error_fatal(emess)
6053   ENDIF
6054   auxinput3_begin_mo = model_config_rec%auxinput3_begin_mo(id_id)
6055   RETURN
6056 END SUBROUTINE nl_get_auxinput3_begin_mo
6057 SUBROUTINE nl_get_auxinput3_begin_d ( id_id , auxinput3_begin_d )
6058   integer , INTENT(OUT) :: auxinput3_begin_d
6059   INTEGER id_id
6060   CHARACTER*80 emess
6061   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6062     WRITE(emess,*)'nl_get_auxinput3_begin_d: Out of range domain number: ',id_id
6063     CALL wrf_error_fatal(emess)
6064   ENDIF
6065   auxinput3_begin_d = model_config_rec%auxinput3_begin_d(id_id)
6066   RETURN
6067 END SUBROUTINE nl_get_auxinput3_begin_d
6068 SUBROUTINE nl_get_auxinput3_begin_h ( id_id , auxinput3_begin_h )
6069   integer , INTENT(OUT) :: auxinput3_begin_h
6070   INTEGER id_id
6071   CHARACTER*80 emess
6072   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6073     WRITE(emess,*)'nl_get_auxinput3_begin_h: Out of range domain number: ',id_id
6074     CALL wrf_error_fatal(emess)
6075   ENDIF
6076   auxinput3_begin_h = model_config_rec%auxinput3_begin_h(id_id)
6077   RETURN
6078 END SUBROUTINE nl_get_auxinput3_begin_h
6079 SUBROUTINE nl_get_auxinput3_begin_m ( id_id , auxinput3_begin_m )
6080   integer , INTENT(OUT) :: auxinput3_begin_m
6081   INTEGER id_id
6082   CHARACTER*80 emess
6083   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6084     WRITE(emess,*)'nl_get_auxinput3_begin_m: Out of range domain number: ',id_id
6085     CALL wrf_error_fatal(emess)
6086   ENDIF
6087   auxinput3_begin_m = model_config_rec%auxinput3_begin_m(id_id)
6088   RETURN
6089 END SUBROUTINE nl_get_auxinput3_begin_m
6090 SUBROUTINE nl_get_auxinput3_begin_s ( id_id , auxinput3_begin_s )
6091   integer , INTENT(OUT) :: auxinput3_begin_s
6092   INTEGER id_id
6093   CHARACTER*80 emess
6094   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6095     WRITE(emess,*)'nl_get_auxinput3_begin_s: Out of range domain number: ',id_id
6096     CALL wrf_error_fatal(emess)
6097   ENDIF
6098   auxinput3_begin_s = model_config_rec%auxinput3_begin_s(id_id)
6099   RETURN
6100 END SUBROUTINE nl_get_auxinput3_begin_s
6101 SUBROUTINE nl_get_auxinput4_begin_y ( id_id , auxinput4_begin_y )
6102   integer , INTENT(OUT) :: auxinput4_begin_y
6103   INTEGER id_id
6104   CHARACTER*80 emess
6105   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6106     WRITE(emess,*)'nl_get_auxinput4_begin_y: Out of range domain number: ',id_id
6107     CALL wrf_error_fatal(emess)
6108   ENDIF
6109   auxinput4_begin_y = model_config_rec%auxinput4_begin_y(id_id)
6110   RETURN
6111 END SUBROUTINE nl_get_auxinput4_begin_y
6112 SUBROUTINE nl_get_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
6113   integer , INTENT(OUT) :: auxinput4_begin_mo
6114   INTEGER id_id
6115   CHARACTER*80 emess
6116   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6117     WRITE(emess,*)'nl_get_auxinput4_begin_mo: Out of range domain number: ',id_id
6118     CALL wrf_error_fatal(emess)
6119   ENDIF
6120   auxinput4_begin_mo = model_config_rec%auxinput4_begin_mo(id_id)
6121   RETURN
6122 END SUBROUTINE nl_get_auxinput4_begin_mo
6123 SUBROUTINE nl_get_auxinput4_begin_d ( id_id , auxinput4_begin_d )
6124   integer , INTENT(OUT) :: auxinput4_begin_d
6125   INTEGER id_id
6126   CHARACTER*80 emess
6127   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6128     WRITE(emess,*)'nl_get_auxinput4_begin_d: Out of range domain number: ',id_id
6129     CALL wrf_error_fatal(emess)
6130   ENDIF
6131   auxinput4_begin_d = model_config_rec%auxinput4_begin_d(id_id)
6132   RETURN
6133 END SUBROUTINE nl_get_auxinput4_begin_d
6134 SUBROUTINE nl_get_auxinput4_begin_h ( id_id , auxinput4_begin_h )
6135   integer , INTENT(OUT) :: auxinput4_begin_h
6136   INTEGER id_id
6137   CHARACTER*80 emess
6138   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6139     WRITE(emess,*)'nl_get_auxinput4_begin_h: Out of range domain number: ',id_id
6140     CALL wrf_error_fatal(emess)
6141   ENDIF
6142   auxinput4_begin_h = model_config_rec%auxinput4_begin_h(id_id)
6143   RETURN
6144 END SUBROUTINE nl_get_auxinput4_begin_h
6145 SUBROUTINE nl_get_auxinput4_begin_m ( id_id , auxinput4_begin_m )
6146   integer , INTENT(OUT) :: auxinput4_begin_m
6147   INTEGER id_id
6148   CHARACTER*80 emess
6149   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6150     WRITE(emess,*)'nl_get_auxinput4_begin_m: Out of range domain number: ',id_id
6151     CALL wrf_error_fatal(emess)
6152   ENDIF
6153   auxinput4_begin_m = model_config_rec%auxinput4_begin_m(id_id)
6154   RETURN
6155 END SUBROUTINE nl_get_auxinput4_begin_m
6156 SUBROUTINE nl_get_auxinput4_begin_s ( id_id , auxinput4_begin_s )
6157   integer , INTENT(OUT) :: auxinput4_begin_s
6158   INTEGER id_id
6159   CHARACTER*80 emess
6160   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6161     WRITE(emess,*)'nl_get_auxinput4_begin_s: Out of range domain number: ',id_id
6162     CALL wrf_error_fatal(emess)
6163   ENDIF
6164   auxinput4_begin_s = model_config_rec%auxinput4_begin_s(id_id)
6165   RETURN
6166 END SUBROUTINE nl_get_auxinput4_begin_s
6167 SUBROUTINE nl_get_auxinput5_begin_y ( id_id , auxinput5_begin_y )
6168   integer , INTENT(OUT) :: auxinput5_begin_y
6169   INTEGER id_id
6170   CHARACTER*80 emess
6171   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6172     WRITE(emess,*)'nl_get_auxinput5_begin_y: Out of range domain number: ',id_id
6173     CALL wrf_error_fatal(emess)
6174   ENDIF
6175   auxinput5_begin_y = model_config_rec%auxinput5_begin_y(id_id)
6176   RETURN
6177 END SUBROUTINE nl_get_auxinput5_begin_y
6178 SUBROUTINE nl_get_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
6179   integer , INTENT(OUT) :: auxinput5_begin_mo
6180   INTEGER id_id
6181   CHARACTER*80 emess
6182   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6183     WRITE(emess,*)'nl_get_auxinput5_begin_mo: Out of range domain number: ',id_id
6184     CALL wrf_error_fatal(emess)
6185   ENDIF
6186   auxinput5_begin_mo = model_config_rec%auxinput5_begin_mo(id_id)
6187   RETURN
6188 END SUBROUTINE nl_get_auxinput5_begin_mo
6189 SUBROUTINE nl_get_auxinput5_begin_d ( id_id , auxinput5_begin_d )
6190   integer , INTENT(OUT) :: auxinput5_begin_d
6191   INTEGER id_id
6192   CHARACTER*80 emess
6193   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6194     WRITE(emess,*)'nl_get_auxinput5_begin_d: Out of range domain number: ',id_id
6195     CALL wrf_error_fatal(emess)
6196   ENDIF
6197   auxinput5_begin_d = model_config_rec%auxinput5_begin_d(id_id)
6198   RETURN
6199 END SUBROUTINE nl_get_auxinput5_begin_d
6200 SUBROUTINE nl_get_auxinput5_begin_h ( id_id , auxinput5_begin_h )
6201   integer , INTENT(OUT) :: auxinput5_begin_h
6202   INTEGER id_id
6203   CHARACTER*80 emess
6204   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6205     WRITE(emess,*)'nl_get_auxinput5_begin_h: Out of range domain number: ',id_id
6206     CALL wrf_error_fatal(emess)
6207   ENDIF
6208   auxinput5_begin_h = model_config_rec%auxinput5_begin_h(id_id)
6209   RETURN
6210 END SUBROUTINE nl_get_auxinput5_begin_h
6211 SUBROUTINE nl_get_auxinput5_begin_m ( id_id , auxinput5_begin_m )
6212   integer , INTENT(OUT) :: auxinput5_begin_m
6213   INTEGER id_id
6214   CHARACTER*80 emess
6215   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6216     WRITE(emess,*)'nl_get_auxinput5_begin_m: Out of range domain number: ',id_id
6217     CALL wrf_error_fatal(emess)
6218   ENDIF
6219   auxinput5_begin_m = model_config_rec%auxinput5_begin_m(id_id)
6220   RETURN
6221 END SUBROUTINE nl_get_auxinput5_begin_m
6222 SUBROUTINE nl_get_auxinput5_begin_s ( id_id , auxinput5_begin_s )
6223   integer , INTENT(OUT) :: auxinput5_begin_s
6224   INTEGER id_id
6225   CHARACTER*80 emess
6226   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6227     WRITE(emess,*)'nl_get_auxinput5_begin_s: Out of range domain number: ',id_id
6228     CALL wrf_error_fatal(emess)
6229   ENDIF
6230   auxinput5_begin_s = model_config_rec%auxinput5_begin_s(id_id)
6231   RETURN
6232 END SUBROUTINE nl_get_auxinput5_begin_s
6233 SUBROUTINE nl_get_auxinput6_begin_y ( id_id , auxinput6_begin_y )
6234   integer , INTENT(OUT) :: auxinput6_begin_y
6235   INTEGER id_id
6236   CHARACTER*80 emess
6237   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6238     WRITE(emess,*)'nl_get_auxinput6_begin_y: Out of range domain number: ',id_id
6239     CALL wrf_error_fatal(emess)
6240   ENDIF
6241   auxinput6_begin_y = model_config_rec%auxinput6_begin_y(id_id)
6242   RETURN
6243 END SUBROUTINE nl_get_auxinput6_begin_y
6244 SUBROUTINE nl_get_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
6245   integer , INTENT(OUT) :: auxinput6_begin_mo
6246   INTEGER id_id
6247   CHARACTER*80 emess
6248   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6249     WRITE(emess,*)'nl_get_auxinput6_begin_mo: Out of range domain number: ',id_id
6250     CALL wrf_error_fatal(emess)
6251   ENDIF
6252   auxinput6_begin_mo = model_config_rec%auxinput6_begin_mo(id_id)
6253   RETURN
6254 END SUBROUTINE nl_get_auxinput6_begin_mo
6255 SUBROUTINE nl_get_auxinput6_begin_d ( id_id , auxinput6_begin_d )
6256   integer , INTENT(OUT) :: auxinput6_begin_d
6257   INTEGER id_id
6258   CHARACTER*80 emess
6259   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6260     WRITE(emess,*)'nl_get_auxinput6_begin_d: Out of range domain number: ',id_id
6261     CALL wrf_error_fatal(emess)
6262   ENDIF
6263   auxinput6_begin_d = model_config_rec%auxinput6_begin_d(id_id)
6264   RETURN
6265 END SUBROUTINE nl_get_auxinput6_begin_d
6266 SUBROUTINE nl_get_auxinput6_begin_h ( id_id , auxinput6_begin_h )
6267   integer , INTENT(OUT) :: auxinput6_begin_h
6268   INTEGER id_id
6269   CHARACTER*80 emess
6270   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6271     WRITE(emess,*)'nl_get_auxinput6_begin_h: Out of range domain number: ',id_id
6272     CALL wrf_error_fatal(emess)
6273   ENDIF
6274   auxinput6_begin_h = model_config_rec%auxinput6_begin_h(id_id)
6275   RETURN
6276 END SUBROUTINE nl_get_auxinput6_begin_h
6277 SUBROUTINE nl_get_auxinput6_begin_m ( id_id , auxinput6_begin_m )
6278   integer , INTENT(OUT) :: auxinput6_begin_m
6279   INTEGER id_id
6280   CHARACTER*80 emess
6281   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6282     WRITE(emess,*)'nl_get_auxinput6_begin_m: Out of range domain number: ',id_id
6283     CALL wrf_error_fatal(emess)
6284   ENDIF
6285   auxinput6_begin_m = model_config_rec%auxinput6_begin_m(id_id)
6286   RETURN
6287 END SUBROUTINE nl_get_auxinput6_begin_m
6288 SUBROUTINE nl_get_auxinput6_begin_s ( id_id , auxinput6_begin_s )
6289   integer , INTENT(OUT) :: auxinput6_begin_s
6290   INTEGER id_id
6291   CHARACTER*80 emess
6292   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6293     WRITE(emess,*)'nl_get_auxinput6_begin_s: Out of range domain number: ',id_id
6294     CALL wrf_error_fatal(emess)
6295   ENDIF
6296   auxinput6_begin_s = model_config_rec%auxinput6_begin_s(id_id)
6297   RETURN
6298 END SUBROUTINE nl_get_auxinput6_begin_s
6299 SUBROUTINE nl_get_auxinput7_begin_y ( id_id , auxinput7_begin_y )
6300   integer , INTENT(OUT) :: auxinput7_begin_y
6301   INTEGER id_id
6302   CHARACTER*80 emess
6303   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6304     WRITE(emess,*)'nl_get_auxinput7_begin_y: Out of range domain number: ',id_id
6305     CALL wrf_error_fatal(emess)
6306   ENDIF
6307   auxinput7_begin_y = model_config_rec%auxinput7_begin_y(id_id)
6308   RETURN
6309 END SUBROUTINE nl_get_auxinput7_begin_y
6310 SUBROUTINE nl_get_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
6311   integer , INTENT(OUT) :: auxinput7_begin_mo
6312   INTEGER id_id
6313   CHARACTER*80 emess
6314   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6315     WRITE(emess,*)'nl_get_auxinput7_begin_mo: Out of range domain number: ',id_id
6316     CALL wrf_error_fatal(emess)
6317   ENDIF
6318   auxinput7_begin_mo = model_config_rec%auxinput7_begin_mo(id_id)
6319   RETURN
6320 END SUBROUTINE nl_get_auxinput7_begin_mo
6321 SUBROUTINE nl_get_auxinput7_begin_d ( id_id , auxinput7_begin_d )
6322   integer , INTENT(OUT) :: auxinput7_begin_d
6323   INTEGER id_id
6324   CHARACTER*80 emess
6325   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6326     WRITE(emess,*)'nl_get_auxinput7_begin_d: Out of range domain number: ',id_id
6327     CALL wrf_error_fatal(emess)
6328   ENDIF
6329   auxinput7_begin_d = model_config_rec%auxinput7_begin_d(id_id)
6330   RETURN
6331 END SUBROUTINE nl_get_auxinput7_begin_d
6332 SUBROUTINE nl_get_auxinput7_begin_h ( id_id , auxinput7_begin_h )
6333   integer , INTENT(OUT) :: auxinput7_begin_h
6334   INTEGER id_id
6335   CHARACTER*80 emess
6336   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6337     WRITE(emess,*)'nl_get_auxinput7_begin_h: Out of range domain number: ',id_id
6338     CALL wrf_error_fatal(emess)
6339   ENDIF
6340   auxinput7_begin_h = model_config_rec%auxinput7_begin_h(id_id)
6341   RETURN
6342 END SUBROUTINE nl_get_auxinput7_begin_h
6343 SUBROUTINE nl_get_auxinput7_begin_m ( id_id , auxinput7_begin_m )
6344   integer , INTENT(OUT) :: auxinput7_begin_m
6345   INTEGER id_id
6346   CHARACTER*80 emess
6347   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6348     WRITE(emess,*)'nl_get_auxinput7_begin_m: Out of range domain number: ',id_id
6349     CALL wrf_error_fatal(emess)
6350   ENDIF
6351   auxinput7_begin_m = model_config_rec%auxinput7_begin_m(id_id)
6352   RETURN
6353 END SUBROUTINE nl_get_auxinput7_begin_m
6354 SUBROUTINE nl_get_auxinput7_begin_s ( id_id , auxinput7_begin_s )
6355   integer , INTENT(OUT) :: auxinput7_begin_s
6356   INTEGER id_id
6357   CHARACTER*80 emess
6358   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6359     WRITE(emess,*)'nl_get_auxinput7_begin_s: Out of range domain number: ',id_id
6360     CALL wrf_error_fatal(emess)
6361   ENDIF
6362   auxinput7_begin_s = model_config_rec%auxinput7_begin_s(id_id)
6363   RETURN
6364 END SUBROUTINE nl_get_auxinput7_begin_s
6365 SUBROUTINE nl_get_auxinput8_begin_y ( id_id , auxinput8_begin_y )
6366   integer , INTENT(OUT) :: auxinput8_begin_y
6367   INTEGER id_id
6368   CHARACTER*80 emess
6369   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6370     WRITE(emess,*)'nl_get_auxinput8_begin_y: Out of range domain number: ',id_id
6371     CALL wrf_error_fatal(emess)
6372   ENDIF
6373   auxinput8_begin_y = model_config_rec%auxinput8_begin_y(id_id)
6374   RETURN
6375 END SUBROUTINE nl_get_auxinput8_begin_y
6376 SUBROUTINE nl_get_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
6377   integer , INTENT(OUT) :: auxinput8_begin_mo
6378   INTEGER id_id
6379   CHARACTER*80 emess
6380   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6381     WRITE(emess,*)'nl_get_auxinput8_begin_mo: Out of range domain number: ',id_id
6382     CALL wrf_error_fatal(emess)
6383   ENDIF
6384   auxinput8_begin_mo = model_config_rec%auxinput8_begin_mo(id_id)
6385   RETURN
6386 END SUBROUTINE nl_get_auxinput8_begin_mo
6387 SUBROUTINE nl_get_auxinput8_begin_d ( id_id , auxinput8_begin_d )
6388   integer , INTENT(OUT) :: auxinput8_begin_d
6389   INTEGER id_id
6390   CHARACTER*80 emess
6391   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6392     WRITE(emess,*)'nl_get_auxinput8_begin_d: Out of range domain number: ',id_id
6393     CALL wrf_error_fatal(emess)
6394   ENDIF
6395   auxinput8_begin_d = model_config_rec%auxinput8_begin_d(id_id)
6396   RETURN
6397 END SUBROUTINE nl_get_auxinput8_begin_d
6398 SUBROUTINE nl_get_auxinput8_begin_h ( id_id , auxinput8_begin_h )
6399   integer , INTENT(OUT) :: auxinput8_begin_h
6400   INTEGER id_id
6401   CHARACTER*80 emess
6402   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6403     WRITE(emess,*)'nl_get_auxinput8_begin_h: Out of range domain number: ',id_id
6404     CALL wrf_error_fatal(emess)
6405   ENDIF
6406   auxinput8_begin_h = model_config_rec%auxinput8_begin_h(id_id)
6407   RETURN
6408 END SUBROUTINE nl_get_auxinput8_begin_h
6409 SUBROUTINE nl_get_auxinput8_begin_m ( id_id , auxinput8_begin_m )
6410   integer , INTENT(OUT) :: auxinput8_begin_m
6411   INTEGER id_id
6412   CHARACTER*80 emess
6413   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6414     WRITE(emess,*)'nl_get_auxinput8_begin_m: Out of range domain number: ',id_id
6415     CALL wrf_error_fatal(emess)
6416   ENDIF
6417   auxinput8_begin_m = model_config_rec%auxinput8_begin_m(id_id)
6418   RETURN
6419 END SUBROUTINE nl_get_auxinput8_begin_m
6420 SUBROUTINE nl_get_auxinput8_begin_s ( id_id , auxinput8_begin_s )
6421   integer , INTENT(OUT) :: auxinput8_begin_s
6422   INTEGER id_id
6423   CHARACTER*80 emess
6424   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6425     WRITE(emess,*)'nl_get_auxinput8_begin_s: Out of range domain number: ',id_id
6426     CALL wrf_error_fatal(emess)
6427   ENDIF
6428   auxinput8_begin_s = model_config_rec%auxinput8_begin_s(id_id)
6429   RETURN
6430 END SUBROUTINE nl_get_auxinput8_begin_s
6431 SUBROUTINE nl_get_auxinput9_begin_y ( id_id , auxinput9_begin_y )
6432   integer , INTENT(OUT) :: auxinput9_begin_y
6433   INTEGER id_id
6434   CHARACTER*80 emess
6435   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6436     WRITE(emess,*)'nl_get_auxinput9_begin_y: Out of range domain number: ',id_id
6437     CALL wrf_error_fatal(emess)
6438   ENDIF
6439   auxinput9_begin_y = model_config_rec%auxinput9_begin_y(id_id)
6440   RETURN
6441 END SUBROUTINE nl_get_auxinput9_begin_y
6442 SUBROUTINE nl_get_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
6443   integer , INTENT(OUT) :: auxinput9_begin_mo
6444   INTEGER id_id
6445   CHARACTER*80 emess
6446   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6447     WRITE(emess,*)'nl_get_auxinput9_begin_mo: Out of range domain number: ',id_id
6448     CALL wrf_error_fatal(emess)
6449   ENDIF
6450   auxinput9_begin_mo = model_config_rec%auxinput9_begin_mo(id_id)
6451   RETURN
6452 END SUBROUTINE nl_get_auxinput9_begin_mo
6453 SUBROUTINE nl_get_auxinput9_begin_d ( id_id , auxinput9_begin_d )
6454   integer , INTENT(OUT) :: auxinput9_begin_d
6455   INTEGER id_id
6456   CHARACTER*80 emess
6457   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6458     WRITE(emess,*)'nl_get_auxinput9_begin_d: Out of range domain number: ',id_id
6459     CALL wrf_error_fatal(emess)
6460   ENDIF
6461   auxinput9_begin_d = model_config_rec%auxinput9_begin_d(id_id)
6462   RETURN
6463 END SUBROUTINE nl_get_auxinput9_begin_d
6464 SUBROUTINE nl_get_auxinput9_begin_h ( id_id , auxinput9_begin_h )
6465   integer , INTENT(OUT) :: auxinput9_begin_h
6466   INTEGER id_id
6467   CHARACTER*80 emess
6468   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6469     WRITE(emess,*)'nl_get_auxinput9_begin_h: Out of range domain number: ',id_id
6470     CALL wrf_error_fatal(emess)
6471   ENDIF
6472   auxinput9_begin_h = model_config_rec%auxinput9_begin_h(id_id)
6473   RETURN
6474 END SUBROUTINE nl_get_auxinput9_begin_h
6475 SUBROUTINE nl_get_auxinput9_begin_m ( id_id , auxinput9_begin_m )
6476   integer , INTENT(OUT) :: auxinput9_begin_m
6477   INTEGER id_id
6478   CHARACTER*80 emess
6479   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6480     WRITE(emess,*)'nl_get_auxinput9_begin_m: Out of range domain number: ',id_id
6481     CALL wrf_error_fatal(emess)
6482   ENDIF
6483   auxinput9_begin_m = model_config_rec%auxinput9_begin_m(id_id)
6484   RETURN
6485 END SUBROUTINE nl_get_auxinput9_begin_m
6486 SUBROUTINE nl_get_auxinput9_begin_s ( id_id , auxinput9_begin_s )
6487   integer , INTENT(OUT) :: auxinput9_begin_s
6488   INTEGER id_id
6489   CHARACTER*80 emess
6490   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6491     WRITE(emess,*)'nl_get_auxinput9_begin_s: Out of range domain number: ',id_id
6492     CALL wrf_error_fatal(emess)
6493   ENDIF
6494   auxinput9_begin_s = model_config_rec%auxinput9_begin_s(id_id)
6495   RETURN
6496 END SUBROUTINE nl_get_auxinput9_begin_s
6497 SUBROUTINE nl_get_gfdda_begin_y ( id_id , gfdda_begin_y )
6498   integer , INTENT(OUT) :: gfdda_begin_y
6499   INTEGER id_id
6500   CHARACTER*80 emess
6501   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6502     WRITE(emess,*)'nl_get_gfdda_begin_y: Out of range domain number: ',id_id
6503     CALL wrf_error_fatal(emess)
6504   ENDIF
6505   gfdda_begin_y = model_config_rec%gfdda_begin_y(id_id)
6506   RETURN
6507 END SUBROUTINE nl_get_gfdda_begin_y
6508 SUBROUTINE nl_get_gfdda_begin_mo ( id_id , gfdda_begin_mo )
6509   integer , INTENT(OUT) :: gfdda_begin_mo
6510   INTEGER id_id
6511   CHARACTER*80 emess
6512   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6513     WRITE(emess,*)'nl_get_gfdda_begin_mo: Out of range domain number: ',id_id
6514     CALL wrf_error_fatal(emess)
6515   ENDIF
6516   gfdda_begin_mo = model_config_rec%gfdda_begin_mo(id_id)
6517   RETURN
6518 END SUBROUTINE nl_get_gfdda_begin_mo
6519 SUBROUTINE nl_get_gfdda_begin_d ( id_id , gfdda_begin_d )
6520   integer , INTENT(OUT) :: gfdda_begin_d
6521   INTEGER id_id
6522   CHARACTER*80 emess
6523   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6524     WRITE(emess,*)'nl_get_gfdda_begin_d: Out of range domain number: ',id_id
6525     CALL wrf_error_fatal(emess)
6526   ENDIF
6527   gfdda_begin_d = model_config_rec%gfdda_begin_d(id_id)
6528   RETURN
6529 END SUBROUTINE nl_get_gfdda_begin_d
6530 SUBROUTINE nl_get_gfdda_begin_h ( id_id , gfdda_begin_h )
6531   integer , INTENT(OUT) :: gfdda_begin_h
6532   INTEGER id_id
6533   CHARACTER*80 emess
6534   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6535     WRITE(emess,*)'nl_get_gfdda_begin_h: Out of range domain number: ',id_id
6536     CALL wrf_error_fatal(emess)
6537   ENDIF
6538   gfdda_begin_h = model_config_rec%gfdda_begin_h(id_id)
6539   RETURN
6540 END SUBROUTINE nl_get_gfdda_begin_h
6541 SUBROUTINE nl_get_gfdda_begin_m ( id_id , gfdda_begin_m )
6542   integer , INTENT(OUT) :: gfdda_begin_m
6543   INTEGER id_id
6544   CHARACTER*80 emess
6545   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6546     WRITE(emess,*)'nl_get_gfdda_begin_m: Out of range domain number: ',id_id
6547     CALL wrf_error_fatal(emess)
6548   ENDIF
6549   gfdda_begin_m = model_config_rec%gfdda_begin_m(id_id)
6550   RETURN
6551 END SUBROUTINE nl_get_gfdda_begin_m
6552 SUBROUTINE nl_get_gfdda_begin_s ( id_id , gfdda_begin_s )
6553   integer , INTENT(OUT) :: gfdda_begin_s
6554   INTEGER id_id
6555   CHARACTER*80 emess
6556   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6557     WRITE(emess,*)'nl_get_gfdda_begin_s: Out of range domain number: ',id_id
6558     CALL wrf_error_fatal(emess)
6559   ENDIF
6560   gfdda_begin_s = model_config_rec%gfdda_begin_s(id_id)
6561   RETURN
6562 END SUBROUTINE nl_get_gfdda_begin_s
6563 SUBROUTINE nl_get_auxinput11_begin_y ( id_id , auxinput11_begin_y )
6564   integer , INTENT(OUT) :: auxinput11_begin_y
6565   INTEGER id_id
6566   CHARACTER*80 emess
6567   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6568     WRITE(emess,*)'nl_get_auxinput11_begin_y: Out of range domain number: ',id_id
6569     CALL wrf_error_fatal(emess)
6570   ENDIF
6571   auxinput11_begin_y = model_config_rec%auxinput11_begin_y(id_id)
6572   RETURN
6573 END SUBROUTINE nl_get_auxinput11_begin_y
6574 SUBROUTINE nl_get_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
6575   integer , INTENT(OUT) :: auxinput11_begin_mo
6576   INTEGER id_id
6577   CHARACTER*80 emess
6578   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6579     WRITE(emess,*)'nl_get_auxinput11_begin_mo: Out of range domain number: ',id_id
6580     CALL wrf_error_fatal(emess)
6581   ENDIF
6582   auxinput11_begin_mo = model_config_rec%auxinput11_begin_mo(id_id)
6583   RETURN
6584 END SUBROUTINE nl_get_auxinput11_begin_mo
6585 SUBROUTINE nl_get_auxinput11_begin_d ( id_id , auxinput11_begin_d )
6586   integer , INTENT(OUT) :: auxinput11_begin_d
6587   INTEGER id_id
6588   CHARACTER*80 emess
6589   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6590     WRITE(emess,*)'nl_get_auxinput11_begin_d: Out of range domain number: ',id_id
6591     CALL wrf_error_fatal(emess)
6592   ENDIF
6593   auxinput11_begin_d = model_config_rec%auxinput11_begin_d(id_id)
6594   RETURN
6595 END SUBROUTINE nl_get_auxinput11_begin_d
6596 SUBROUTINE nl_get_auxinput11_begin_h ( id_id , auxinput11_begin_h )
6597   integer , INTENT(OUT) :: auxinput11_begin_h
6598   INTEGER id_id
6599   CHARACTER*80 emess
6600   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6601     WRITE(emess,*)'nl_get_auxinput11_begin_h: Out of range domain number: ',id_id
6602     CALL wrf_error_fatal(emess)
6603   ENDIF
6604   auxinput11_begin_h = model_config_rec%auxinput11_begin_h(id_id)
6605   RETURN
6606 END SUBROUTINE nl_get_auxinput11_begin_h
6607 SUBROUTINE nl_get_auxinput11_begin_m ( id_id , auxinput11_begin_m )
6608   integer , INTENT(OUT) :: auxinput11_begin_m
6609   INTEGER id_id
6610   CHARACTER*80 emess
6611   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6612     WRITE(emess,*)'nl_get_auxinput11_begin_m: Out of range domain number: ',id_id
6613     CALL wrf_error_fatal(emess)
6614   ENDIF
6615   auxinput11_begin_m = model_config_rec%auxinput11_begin_m(id_id)
6616   RETURN
6617 END SUBROUTINE nl_get_auxinput11_begin_m
6618 SUBROUTINE nl_get_auxinput11_begin_s ( id_id , auxinput11_begin_s )
6619   integer , INTENT(OUT) :: auxinput11_begin_s
6620   INTEGER id_id
6621   CHARACTER*80 emess
6622   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6623     WRITE(emess,*)'nl_get_auxinput11_begin_s: Out of range domain number: ',id_id
6624     CALL wrf_error_fatal(emess)
6625   ENDIF
6626   auxinput11_begin_s = model_config_rec%auxinput11_begin_s(id_id)
6627   RETURN
6628 END SUBROUTINE nl_get_auxinput11_begin_s
6629 SUBROUTINE nl_get_restart_begin_y ( id_id , restart_begin_y )
6630   integer , INTENT(OUT) :: restart_begin_y
6631   INTEGER id_id
6632   CHARACTER*80 emess
6633   IF ( id_id .NE. 1 ) THEN
6634     call wrf_debug(1,&
6635 'WARNING in nl_get_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
6636   ENDIF
6637   restart_begin_y = model_config_rec%restart_begin_y
6638   RETURN
6639 END SUBROUTINE nl_get_restart_begin_y
6640 SUBROUTINE nl_get_restart_begin_mo ( id_id , restart_begin_mo )
6641   integer , INTENT(OUT) :: restart_begin_mo
6642   INTEGER id_id
6643   CHARACTER*80 emess
6644   IF ( id_id .NE. 1 ) THEN
6645     call wrf_debug(1,&
6646 'WARNING in nl_get_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
6647   ENDIF
6648   restart_begin_mo = model_config_rec%restart_begin_mo
6649   RETURN
6650 END SUBROUTINE nl_get_restart_begin_mo
6651 SUBROUTINE nl_get_restart_begin_d ( id_id , restart_begin_d )
6652   integer , INTENT(OUT) :: restart_begin_d
6653   INTEGER id_id
6654   CHARACTER*80 emess
6655   IF ( id_id .NE. 1 ) THEN
6656     call wrf_debug(1,&
6657 'WARNING in nl_get_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
6658   ENDIF
6659   restart_begin_d = model_config_rec%restart_begin_d
6660   RETURN
6661 END SUBROUTINE nl_get_restart_begin_d
6662 SUBROUTINE nl_get_restart_begin_h ( id_id , restart_begin_h )
6663   integer , INTENT(OUT) :: restart_begin_h
6664   INTEGER id_id
6665   CHARACTER*80 emess
6666   IF ( id_id .NE. 1 ) THEN
6667     call wrf_debug(1,&
6668 'WARNING in nl_get_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
6669   ENDIF
6670   restart_begin_h = model_config_rec%restart_begin_h
6671   RETURN
6672 END SUBROUTINE nl_get_restart_begin_h
6673 SUBROUTINE nl_get_restart_begin_m ( id_id , restart_begin_m )
6674   integer , INTENT(OUT) :: restart_begin_m
6675   INTEGER id_id
6676   CHARACTER*80 emess
6677   IF ( id_id .NE. 1 ) THEN
6678     call wrf_debug(1,&
6679 'WARNING in nl_get_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
6680   ENDIF
6681   restart_begin_m = model_config_rec%restart_begin_m
6682   RETURN
6683 END SUBROUTINE nl_get_restart_begin_m
6684 SUBROUTINE nl_get_restart_begin_s ( id_id , restart_begin_s )
6685   integer , INTENT(OUT) :: restart_begin_s
6686   INTEGER id_id
6687   CHARACTER*80 emess
6688   IF ( id_id .NE. 1 ) THEN
6689     call wrf_debug(1,&
6690 'WARNING in nl_get_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
6691   ENDIF
6692   restart_begin_s = model_config_rec%restart_begin_s
6693   RETURN
6694 END SUBROUTINE nl_get_restart_begin_s
6695 SUBROUTINE nl_get_history_end_y ( id_id , history_end_y )
6696   integer , INTENT(OUT) :: history_end_y
6697   INTEGER id_id
6698   CHARACTER*80 emess
6699   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6700     WRITE(emess,*)'nl_get_history_end_y: Out of range domain number: ',id_id
6701     CALL wrf_error_fatal(emess)
6702   ENDIF
6703   history_end_y = model_config_rec%history_end_y(id_id)
6704   RETURN
6705 END SUBROUTINE nl_get_history_end_y
6706 SUBROUTINE nl_get_history_end_mo ( id_id , history_end_mo )
6707   integer , INTENT(OUT) :: history_end_mo
6708   INTEGER id_id
6709   CHARACTER*80 emess
6710   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6711     WRITE(emess,*)'nl_get_history_end_mo: Out of range domain number: ',id_id
6712     CALL wrf_error_fatal(emess)
6713   ENDIF
6714   history_end_mo = model_config_rec%history_end_mo(id_id)
6715   RETURN
6716 END SUBROUTINE nl_get_history_end_mo
6717 SUBROUTINE nl_get_history_end_d ( id_id , history_end_d )
6718   integer , INTENT(OUT) :: history_end_d
6719   INTEGER id_id
6720   CHARACTER*80 emess
6721   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6722     WRITE(emess,*)'nl_get_history_end_d: Out of range domain number: ',id_id
6723     CALL wrf_error_fatal(emess)
6724   ENDIF
6725   history_end_d = model_config_rec%history_end_d(id_id)
6726   RETURN
6727 END SUBROUTINE nl_get_history_end_d
6728 SUBROUTINE nl_get_history_end_h ( id_id , history_end_h )
6729   integer , INTENT(OUT) :: history_end_h
6730   INTEGER id_id
6731   CHARACTER*80 emess
6732   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6733     WRITE(emess,*)'nl_get_history_end_h: Out of range domain number: ',id_id
6734     CALL wrf_error_fatal(emess)
6735   ENDIF
6736   history_end_h = model_config_rec%history_end_h(id_id)
6737   RETURN
6738 END SUBROUTINE nl_get_history_end_h
6739 SUBROUTINE nl_get_history_end_m ( id_id , history_end_m )
6740   integer , INTENT(OUT) :: history_end_m
6741   INTEGER id_id
6742   CHARACTER*80 emess
6743   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6744     WRITE(emess,*)'nl_get_history_end_m: Out of range domain number: ',id_id
6745     CALL wrf_error_fatal(emess)
6746   ENDIF
6747   history_end_m = model_config_rec%history_end_m(id_id)
6748   RETURN
6749 END SUBROUTINE nl_get_history_end_m
6750 SUBROUTINE nl_get_history_end_s ( id_id , history_end_s )
6751   integer , INTENT(OUT) :: history_end_s
6752   INTEGER id_id
6753   CHARACTER*80 emess
6754   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6755     WRITE(emess,*)'nl_get_history_end_s: Out of range domain number: ',id_id
6756     CALL wrf_error_fatal(emess)
6757   ENDIF
6758   history_end_s = model_config_rec%history_end_s(id_id)
6759   RETURN
6760 END SUBROUTINE nl_get_history_end_s
6761 SUBROUTINE nl_get_inputout_end_y ( id_id , inputout_end_y )
6762   integer , INTENT(OUT) :: inputout_end_y
6763   INTEGER id_id
6764   CHARACTER*80 emess
6765   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6766     WRITE(emess,*)'nl_get_inputout_end_y: Out of range domain number: ',id_id
6767     CALL wrf_error_fatal(emess)
6768   ENDIF
6769   inputout_end_y = model_config_rec%inputout_end_y(id_id)
6770   RETURN
6771 END SUBROUTINE nl_get_inputout_end_y
6772 SUBROUTINE nl_get_inputout_end_mo ( id_id , inputout_end_mo )
6773   integer , INTENT(OUT) :: inputout_end_mo
6774   INTEGER id_id
6775   CHARACTER*80 emess
6776   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6777     WRITE(emess,*)'nl_get_inputout_end_mo: Out of range domain number: ',id_id
6778     CALL wrf_error_fatal(emess)
6779   ENDIF
6780   inputout_end_mo = model_config_rec%inputout_end_mo(id_id)
6781   RETURN
6782 END SUBROUTINE nl_get_inputout_end_mo
6783 SUBROUTINE nl_get_inputout_end_d ( id_id , inputout_end_d )
6784   integer , INTENT(OUT) :: inputout_end_d
6785   INTEGER id_id
6786   CHARACTER*80 emess
6787   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6788     WRITE(emess,*)'nl_get_inputout_end_d: Out of range domain number: ',id_id
6789     CALL wrf_error_fatal(emess)
6790   ENDIF
6791   inputout_end_d = model_config_rec%inputout_end_d(id_id)
6792   RETURN
6793 END SUBROUTINE nl_get_inputout_end_d
6794 SUBROUTINE nl_get_inputout_end_h ( id_id , inputout_end_h )
6795   integer , INTENT(OUT) :: inputout_end_h
6796   INTEGER id_id
6797   CHARACTER*80 emess
6798   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6799     WRITE(emess,*)'nl_get_inputout_end_h: Out of range domain number: ',id_id
6800     CALL wrf_error_fatal(emess)
6801   ENDIF
6802   inputout_end_h = model_config_rec%inputout_end_h(id_id)
6803   RETURN
6804 END SUBROUTINE nl_get_inputout_end_h
6805 SUBROUTINE nl_get_inputout_end_m ( id_id , inputout_end_m )
6806   integer , INTENT(OUT) :: inputout_end_m
6807   INTEGER id_id
6808   CHARACTER*80 emess
6809   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6810     WRITE(emess,*)'nl_get_inputout_end_m: Out of range domain number: ',id_id
6811     CALL wrf_error_fatal(emess)
6812   ENDIF
6813   inputout_end_m = model_config_rec%inputout_end_m(id_id)
6814   RETURN
6815 END SUBROUTINE nl_get_inputout_end_m
6816 SUBROUTINE nl_get_inputout_end_s ( id_id , inputout_end_s )
6817   integer , INTENT(OUT) :: inputout_end_s
6818   INTEGER id_id
6819   CHARACTER*80 emess
6820   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6821     WRITE(emess,*)'nl_get_inputout_end_s: Out of range domain number: ',id_id
6822     CALL wrf_error_fatal(emess)
6823   ENDIF
6824   inputout_end_s = model_config_rec%inputout_end_s(id_id)
6825   RETURN
6826 END SUBROUTINE nl_get_inputout_end_s
6827 SUBROUTINE nl_get_auxhist1_end_y ( id_id , auxhist1_end_y )
6828   integer , INTENT(OUT) :: auxhist1_end_y
6829   INTEGER id_id
6830   CHARACTER*80 emess
6831   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6832     WRITE(emess,*)'nl_get_auxhist1_end_y: Out of range domain number: ',id_id
6833     CALL wrf_error_fatal(emess)
6834   ENDIF
6835   auxhist1_end_y = model_config_rec%auxhist1_end_y(id_id)
6836   RETURN
6837 END SUBROUTINE nl_get_auxhist1_end_y
6838 SUBROUTINE nl_get_auxhist1_end_mo ( id_id , auxhist1_end_mo )
6839   integer , INTENT(OUT) :: auxhist1_end_mo
6840   INTEGER id_id
6841   CHARACTER*80 emess
6842   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6843     WRITE(emess,*)'nl_get_auxhist1_end_mo: Out of range domain number: ',id_id
6844     CALL wrf_error_fatal(emess)
6845   ENDIF
6846   auxhist1_end_mo = model_config_rec%auxhist1_end_mo(id_id)
6847   RETURN
6848 END SUBROUTINE nl_get_auxhist1_end_mo
6849 SUBROUTINE nl_get_auxhist1_end_d ( id_id , auxhist1_end_d )
6850   integer , INTENT(OUT) :: auxhist1_end_d
6851   INTEGER id_id
6852   CHARACTER*80 emess
6853   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6854     WRITE(emess,*)'nl_get_auxhist1_end_d: Out of range domain number: ',id_id
6855     CALL wrf_error_fatal(emess)
6856   ENDIF
6857   auxhist1_end_d = model_config_rec%auxhist1_end_d(id_id)
6858   RETURN
6859 END SUBROUTINE nl_get_auxhist1_end_d
6860 SUBROUTINE nl_get_auxhist1_end_h ( id_id , auxhist1_end_h )
6861   integer , INTENT(OUT) :: auxhist1_end_h
6862   INTEGER id_id
6863   CHARACTER*80 emess
6864   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6865     WRITE(emess,*)'nl_get_auxhist1_end_h: Out of range domain number: ',id_id
6866     CALL wrf_error_fatal(emess)
6867   ENDIF
6868   auxhist1_end_h = model_config_rec%auxhist1_end_h(id_id)
6869   RETURN
6870 END SUBROUTINE nl_get_auxhist1_end_h
6871 SUBROUTINE nl_get_auxhist1_end_m ( id_id , auxhist1_end_m )
6872   integer , INTENT(OUT) :: auxhist1_end_m
6873   INTEGER id_id
6874   CHARACTER*80 emess
6875   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6876     WRITE(emess,*)'nl_get_auxhist1_end_m: Out of range domain number: ',id_id
6877     CALL wrf_error_fatal(emess)
6878   ENDIF
6879   auxhist1_end_m = model_config_rec%auxhist1_end_m(id_id)
6880   RETURN
6881 END SUBROUTINE nl_get_auxhist1_end_m
6882 SUBROUTINE nl_get_auxhist1_end_s ( id_id , auxhist1_end_s )
6883   integer , INTENT(OUT) :: auxhist1_end_s
6884   INTEGER id_id
6885   CHARACTER*80 emess
6886   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6887     WRITE(emess,*)'nl_get_auxhist1_end_s: Out of range domain number: ',id_id
6888     CALL wrf_error_fatal(emess)
6889   ENDIF
6890   auxhist1_end_s = model_config_rec%auxhist1_end_s(id_id)
6891   RETURN
6892 END SUBROUTINE nl_get_auxhist1_end_s
6893 SUBROUTINE nl_get_auxhist2_end_y ( id_id , auxhist2_end_y )
6894   integer , INTENT(OUT) :: auxhist2_end_y
6895   INTEGER id_id
6896   CHARACTER*80 emess
6897   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6898     WRITE(emess,*)'nl_get_auxhist2_end_y: Out of range domain number: ',id_id
6899     CALL wrf_error_fatal(emess)
6900   ENDIF
6901   auxhist2_end_y = model_config_rec%auxhist2_end_y(id_id)
6902   RETURN
6903 END SUBROUTINE nl_get_auxhist2_end_y
6904 SUBROUTINE nl_get_auxhist2_end_mo ( id_id , auxhist2_end_mo )
6905   integer , INTENT(OUT) :: auxhist2_end_mo
6906   INTEGER id_id
6907   CHARACTER*80 emess
6908   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6909     WRITE(emess,*)'nl_get_auxhist2_end_mo: Out of range domain number: ',id_id
6910     CALL wrf_error_fatal(emess)
6911   ENDIF
6912   auxhist2_end_mo = model_config_rec%auxhist2_end_mo(id_id)
6913   RETURN
6914 END SUBROUTINE nl_get_auxhist2_end_mo
6915 SUBROUTINE nl_get_auxhist2_end_d ( id_id , auxhist2_end_d )
6916   integer , INTENT(OUT) :: auxhist2_end_d
6917   INTEGER id_id
6918   CHARACTER*80 emess
6919   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6920     WRITE(emess,*)'nl_get_auxhist2_end_d: Out of range domain number: ',id_id
6921     CALL wrf_error_fatal(emess)
6922   ENDIF
6923   auxhist2_end_d = model_config_rec%auxhist2_end_d(id_id)
6924   RETURN
6925 END SUBROUTINE nl_get_auxhist2_end_d
6926 SUBROUTINE nl_get_auxhist2_end_h ( id_id , auxhist2_end_h )
6927   integer , INTENT(OUT) :: auxhist2_end_h
6928   INTEGER id_id
6929   CHARACTER*80 emess
6930   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6931     WRITE(emess,*)'nl_get_auxhist2_end_h: Out of range domain number: ',id_id
6932     CALL wrf_error_fatal(emess)
6933   ENDIF
6934   auxhist2_end_h = model_config_rec%auxhist2_end_h(id_id)
6935   RETURN
6936 END SUBROUTINE nl_get_auxhist2_end_h
6937 SUBROUTINE nl_get_auxhist2_end_m ( id_id , auxhist2_end_m )
6938   integer , INTENT(OUT) :: auxhist2_end_m
6939   INTEGER id_id
6940   CHARACTER*80 emess
6941   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6942     WRITE(emess,*)'nl_get_auxhist2_end_m: Out of range domain number: ',id_id
6943     CALL wrf_error_fatal(emess)
6944   ENDIF
6945   auxhist2_end_m = model_config_rec%auxhist2_end_m(id_id)
6946   RETURN
6947 END SUBROUTINE nl_get_auxhist2_end_m
6948 SUBROUTINE nl_get_auxhist2_end_s ( id_id , auxhist2_end_s )
6949   integer , INTENT(OUT) :: auxhist2_end_s
6950   INTEGER id_id
6951   CHARACTER*80 emess
6952   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6953     WRITE(emess,*)'nl_get_auxhist2_end_s: Out of range domain number: ',id_id
6954     CALL wrf_error_fatal(emess)
6955   ENDIF
6956   auxhist2_end_s = model_config_rec%auxhist2_end_s(id_id)
6957   RETURN
6958 END SUBROUTINE nl_get_auxhist2_end_s
6959 SUBROUTINE nl_get_auxhist3_end_y ( id_id , auxhist3_end_y )
6960   integer , INTENT(OUT) :: auxhist3_end_y
6961   INTEGER id_id
6962   CHARACTER*80 emess
6963   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6964     WRITE(emess,*)'nl_get_auxhist3_end_y: Out of range domain number: ',id_id
6965     CALL wrf_error_fatal(emess)
6966   ENDIF
6967   auxhist3_end_y = model_config_rec%auxhist3_end_y(id_id)
6968   RETURN
6969 END SUBROUTINE nl_get_auxhist3_end_y
6970 SUBROUTINE nl_get_auxhist3_end_mo ( id_id , auxhist3_end_mo )
6971   integer , INTENT(OUT) :: auxhist3_end_mo
6972   INTEGER id_id
6973   CHARACTER*80 emess
6974   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6975     WRITE(emess,*)'nl_get_auxhist3_end_mo: Out of range domain number: ',id_id
6976     CALL wrf_error_fatal(emess)
6977   ENDIF
6978   auxhist3_end_mo = model_config_rec%auxhist3_end_mo(id_id)
6979   RETURN
6980 END SUBROUTINE nl_get_auxhist3_end_mo
6981 SUBROUTINE nl_get_auxhist3_end_d ( id_id , auxhist3_end_d )
6982   integer , INTENT(OUT) :: auxhist3_end_d
6983   INTEGER id_id
6984   CHARACTER*80 emess
6985   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6986     WRITE(emess,*)'nl_get_auxhist3_end_d: Out of range domain number: ',id_id
6987     CALL wrf_error_fatal(emess)
6988   ENDIF
6989   auxhist3_end_d = model_config_rec%auxhist3_end_d(id_id)
6990   RETURN
6991 END SUBROUTINE nl_get_auxhist3_end_d
6992 SUBROUTINE nl_get_auxhist3_end_h ( id_id , auxhist3_end_h )
6993   integer , INTENT(OUT) :: auxhist3_end_h
6994   INTEGER id_id
6995   CHARACTER*80 emess
6996   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6997     WRITE(emess,*)'nl_get_auxhist3_end_h: Out of range domain number: ',id_id
6998     CALL wrf_error_fatal(emess)
6999   ENDIF
7000   auxhist3_end_h = model_config_rec%auxhist3_end_h(id_id)
7001   RETURN
7002 END SUBROUTINE nl_get_auxhist3_end_h
7003 SUBROUTINE nl_get_auxhist3_end_m ( id_id , auxhist3_end_m )
7004   integer , INTENT(OUT) :: auxhist3_end_m
7005   INTEGER id_id
7006   CHARACTER*80 emess
7007   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7008     WRITE(emess,*)'nl_get_auxhist3_end_m: Out of range domain number: ',id_id
7009     CALL wrf_error_fatal(emess)
7010   ENDIF
7011   auxhist3_end_m = model_config_rec%auxhist3_end_m(id_id)
7012   RETURN
7013 END SUBROUTINE nl_get_auxhist3_end_m
7014 SUBROUTINE nl_get_auxhist3_end_s ( id_id , auxhist3_end_s )
7015   integer , INTENT(OUT) :: auxhist3_end_s
7016   INTEGER id_id
7017   CHARACTER*80 emess
7018   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7019     WRITE(emess,*)'nl_get_auxhist3_end_s: Out of range domain number: ',id_id
7020     CALL wrf_error_fatal(emess)
7021   ENDIF
7022   auxhist3_end_s = model_config_rec%auxhist3_end_s(id_id)
7023   RETURN
7024 END SUBROUTINE nl_get_auxhist3_end_s
7025 SUBROUTINE nl_get_auxhist4_end_y ( id_id , auxhist4_end_y )
7026   integer , INTENT(OUT) :: auxhist4_end_y
7027   INTEGER id_id
7028   CHARACTER*80 emess
7029   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7030     WRITE(emess,*)'nl_get_auxhist4_end_y: Out of range domain number: ',id_id
7031     CALL wrf_error_fatal(emess)
7032   ENDIF
7033   auxhist4_end_y = model_config_rec%auxhist4_end_y(id_id)
7034   RETURN
7035 END SUBROUTINE nl_get_auxhist4_end_y
7036 SUBROUTINE nl_get_auxhist4_end_mo ( id_id , auxhist4_end_mo )
7037   integer , INTENT(OUT) :: auxhist4_end_mo
7038   INTEGER id_id
7039   CHARACTER*80 emess
7040   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7041     WRITE(emess,*)'nl_get_auxhist4_end_mo: Out of range domain number: ',id_id
7042     CALL wrf_error_fatal(emess)
7043   ENDIF
7044   auxhist4_end_mo = model_config_rec%auxhist4_end_mo(id_id)
7045   RETURN
7046 END SUBROUTINE nl_get_auxhist4_end_mo
7047 SUBROUTINE nl_get_auxhist4_end_d ( id_id , auxhist4_end_d )
7048   integer , INTENT(OUT) :: auxhist4_end_d
7049   INTEGER id_id
7050   CHARACTER*80 emess
7051   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7052     WRITE(emess,*)'nl_get_auxhist4_end_d: Out of range domain number: ',id_id
7053     CALL wrf_error_fatal(emess)
7054   ENDIF
7055   auxhist4_end_d = model_config_rec%auxhist4_end_d(id_id)
7056   RETURN
7057 END SUBROUTINE nl_get_auxhist4_end_d
7058 SUBROUTINE nl_get_auxhist4_end_h ( id_id , auxhist4_end_h )
7059   integer , INTENT(OUT) :: auxhist4_end_h
7060   INTEGER id_id
7061   CHARACTER*80 emess
7062   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7063     WRITE(emess,*)'nl_get_auxhist4_end_h: Out of range domain number: ',id_id
7064     CALL wrf_error_fatal(emess)
7065   ENDIF
7066   auxhist4_end_h = model_config_rec%auxhist4_end_h(id_id)
7067   RETURN
7068 END SUBROUTINE nl_get_auxhist4_end_h
7069 SUBROUTINE nl_get_auxhist4_end_m ( id_id , auxhist4_end_m )
7070   integer , INTENT(OUT) :: auxhist4_end_m
7071   INTEGER id_id
7072   CHARACTER*80 emess
7073   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7074     WRITE(emess,*)'nl_get_auxhist4_end_m: Out of range domain number: ',id_id
7075     CALL wrf_error_fatal(emess)
7076   ENDIF
7077   auxhist4_end_m = model_config_rec%auxhist4_end_m(id_id)
7078   RETURN
7079 END SUBROUTINE nl_get_auxhist4_end_m
7080 SUBROUTINE nl_get_auxhist4_end_s ( id_id , auxhist4_end_s )
7081   integer , INTENT(OUT) :: auxhist4_end_s
7082   INTEGER id_id
7083   CHARACTER*80 emess
7084   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7085     WRITE(emess,*)'nl_get_auxhist4_end_s: Out of range domain number: ',id_id
7086     CALL wrf_error_fatal(emess)
7087   ENDIF
7088   auxhist4_end_s = model_config_rec%auxhist4_end_s(id_id)
7089   RETURN
7090 END SUBROUTINE nl_get_auxhist4_end_s
7091 SUBROUTINE nl_get_auxhist5_end_y ( id_id , auxhist5_end_y )
7092   integer , INTENT(OUT) :: auxhist5_end_y
7093   INTEGER id_id
7094   CHARACTER*80 emess
7095   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7096     WRITE(emess,*)'nl_get_auxhist5_end_y: Out of range domain number: ',id_id
7097     CALL wrf_error_fatal(emess)
7098   ENDIF
7099   auxhist5_end_y = model_config_rec%auxhist5_end_y(id_id)
7100   RETURN
7101 END SUBROUTINE nl_get_auxhist5_end_y
7102 SUBROUTINE nl_get_auxhist5_end_mo ( id_id , auxhist5_end_mo )
7103   integer , INTENT(OUT) :: auxhist5_end_mo
7104   INTEGER id_id
7105   CHARACTER*80 emess
7106   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7107     WRITE(emess,*)'nl_get_auxhist5_end_mo: Out of range domain number: ',id_id
7108     CALL wrf_error_fatal(emess)
7109   ENDIF
7110   auxhist5_end_mo = model_config_rec%auxhist5_end_mo(id_id)
7111   RETURN
7112 END SUBROUTINE nl_get_auxhist5_end_mo
7113 SUBROUTINE nl_get_auxhist5_end_d ( id_id , auxhist5_end_d )
7114   integer , INTENT(OUT) :: auxhist5_end_d
7115   INTEGER id_id
7116   CHARACTER*80 emess
7117   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7118     WRITE(emess,*)'nl_get_auxhist5_end_d: Out of range domain number: ',id_id
7119     CALL wrf_error_fatal(emess)
7120   ENDIF
7121   auxhist5_end_d = model_config_rec%auxhist5_end_d(id_id)
7122   RETURN
7123 END SUBROUTINE nl_get_auxhist5_end_d
7124 SUBROUTINE nl_get_auxhist5_end_h ( id_id , auxhist5_end_h )
7125   integer , INTENT(OUT) :: auxhist5_end_h
7126   INTEGER id_id
7127   CHARACTER*80 emess
7128   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7129     WRITE(emess,*)'nl_get_auxhist5_end_h: Out of range domain number: ',id_id
7130     CALL wrf_error_fatal(emess)
7131   ENDIF
7132   auxhist5_end_h = model_config_rec%auxhist5_end_h(id_id)
7133   RETURN
7134 END SUBROUTINE nl_get_auxhist5_end_h
7135 SUBROUTINE nl_get_auxhist5_end_m ( id_id , auxhist5_end_m )
7136   integer , INTENT(OUT) :: auxhist5_end_m
7137   INTEGER id_id
7138   CHARACTER*80 emess
7139   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7140     WRITE(emess,*)'nl_get_auxhist5_end_m: Out of range domain number: ',id_id
7141     CALL wrf_error_fatal(emess)
7142   ENDIF
7143   auxhist5_end_m = model_config_rec%auxhist5_end_m(id_id)
7144   RETURN
7145 END SUBROUTINE nl_get_auxhist5_end_m
7146 SUBROUTINE nl_get_auxhist5_end_s ( id_id , auxhist5_end_s )
7147   integer , INTENT(OUT) :: auxhist5_end_s
7148   INTEGER id_id
7149   CHARACTER*80 emess
7150   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7151     WRITE(emess,*)'nl_get_auxhist5_end_s: Out of range domain number: ',id_id
7152     CALL wrf_error_fatal(emess)
7153   ENDIF
7154   auxhist5_end_s = model_config_rec%auxhist5_end_s(id_id)
7155   RETURN
7156 END SUBROUTINE nl_get_auxhist5_end_s
7157 SUBROUTINE nl_get_auxhist6_end_y ( id_id , auxhist6_end_y )
7158   integer , INTENT(OUT) :: auxhist6_end_y
7159   INTEGER id_id
7160   CHARACTER*80 emess
7161   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7162     WRITE(emess,*)'nl_get_auxhist6_end_y: Out of range domain number: ',id_id
7163     CALL wrf_error_fatal(emess)
7164   ENDIF
7165   auxhist6_end_y = model_config_rec%auxhist6_end_y(id_id)
7166   RETURN
7167 END SUBROUTINE nl_get_auxhist6_end_y
7168 SUBROUTINE nl_get_auxhist6_end_mo ( id_id , auxhist6_end_mo )
7169   integer , INTENT(OUT) :: auxhist6_end_mo
7170   INTEGER id_id
7171   CHARACTER*80 emess
7172   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7173     WRITE(emess,*)'nl_get_auxhist6_end_mo: Out of range domain number: ',id_id
7174     CALL wrf_error_fatal(emess)
7175   ENDIF
7176   auxhist6_end_mo = model_config_rec%auxhist6_end_mo(id_id)
7177   RETURN
7178 END SUBROUTINE nl_get_auxhist6_end_mo
7179 SUBROUTINE nl_get_auxhist6_end_d ( id_id , auxhist6_end_d )
7180   integer , INTENT(OUT) :: auxhist6_end_d
7181   INTEGER id_id
7182   CHARACTER*80 emess
7183   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7184     WRITE(emess,*)'nl_get_auxhist6_end_d: Out of range domain number: ',id_id
7185     CALL wrf_error_fatal(emess)
7186   ENDIF
7187   auxhist6_end_d = model_config_rec%auxhist6_end_d(id_id)
7188   RETURN
7189 END SUBROUTINE nl_get_auxhist6_end_d
7190 SUBROUTINE nl_get_auxhist6_end_h ( id_id , auxhist6_end_h )
7191   integer , INTENT(OUT) :: auxhist6_end_h
7192   INTEGER id_id
7193   CHARACTER*80 emess
7194   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7195     WRITE(emess,*)'nl_get_auxhist6_end_h: Out of range domain number: ',id_id
7196     CALL wrf_error_fatal(emess)
7197   ENDIF
7198   auxhist6_end_h = model_config_rec%auxhist6_end_h(id_id)
7199   RETURN
7200 END SUBROUTINE nl_get_auxhist6_end_h
7201 SUBROUTINE nl_get_auxhist6_end_m ( id_id , auxhist6_end_m )
7202   integer , INTENT(OUT) :: auxhist6_end_m
7203   INTEGER id_id
7204   CHARACTER*80 emess
7205   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7206     WRITE(emess,*)'nl_get_auxhist6_end_m: Out of range domain number: ',id_id
7207     CALL wrf_error_fatal(emess)
7208   ENDIF
7209   auxhist6_end_m = model_config_rec%auxhist6_end_m(id_id)
7210   RETURN
7211 END SUBROUTINE nl_get_auxhist6_end_m
7212 SUBROUTINE nl_get_auxhist6_end_s ( id_id , auxhist6_end_s )
7213   integer , INTENT(OUT) :: auxhist6_end_s
7214   INTEGER id_id
7215   CHARACTER*80 emess
7216   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7217     WRITE(emess,*)'nl_get_auxhist6_end_s: Out of range domain number: ',id_id
7218     CALL wrf_error_fatal(emess)
7219   ENDIF
7220   auxhist6_end_s = model_config_rec%auxhist6_end_s(id_id)
7221   RETURN
7222 END SUBROUTINE nl_get_auxhist6_end_s
7223 SUBROUTINE nl_get_auxhist7_end_y ( id_id , auxhist7_end_y )
7224   integer , INTENT(OUT) :: auxhist7_end_y
7225   INTEGER id_id
7226   CHARACTER*80 emess
7227   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7228     WRITE(emess,*)'nl_get_auxhist7_end_y: Out of range domain number: ',id_id
7229     CALL wrf_error_fatal(emess)
7230   ENDIF
7231   auxhist7_end_y = model_config_rec%auxhist7_end_y(id_id)
7232   RETURN
7233 END SUBROUTINE nl_get_auxhist7_end_y
7234 SUBROUTINE nl_get_auxhist7_end_mo ( id_id , auxhist7_end_mo )
7235   integer , INTENT(OUT) :: auxhist7_end_mo
7236   INTEGER id_id
7237   CHARACTER*80 emess
7238   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7239     WRITE(emess,*)'nl_get_auxhist7_end_mo: Out of range domain number: ',id_id
7240     CALL wrf_error_fatal(emess)
7241   ENDIF
7242   auxhist7_end_mo = model_config_rec%auxhist7_end_mo(id_id)
7243   RETURN
7244 END SUBROUTINE nl_get_auxhist7_end_mo
7245 SUBROUTINE nl_get_auxhist7_end_d ( id_id , auxhist7_end_d )
7246   integer , INTENT(OUT) :: auxhist7_end_d
7247   INTEGER id_id
7248   CHARACTER*80 emess
7249   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7250     WRITE(emess,*)'nl_get_auxhist7_end_d: Out of range domain number: ',id_id
7251     CALL wrf_error_fatal(emess)
7252   ENDIF
7253   auxhist7_end_d = model_config_rec%auxhist7_end_d(id_id)
7254   RETURN
7255 END SUBROUTINE nl_get_auxhist7_end_d
7256 SUBROUTINE nl_get_auxhist7_end_h ( id_id , auxhist7_end_h )
7257   integer , INTENT(OUT) :: auxhist7_end_h
7258   INTEGER id_id
7259   CHARACTER*80 emess
7260   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7261     WRITE(emess,*)'nl_get_auxhist7_end_h: Out of range domain number: ',id_id
7262     CALL wrf_error_fatal(emess)
7263   ENDIF
7264   auxhist7_end_h = model_config_rec%auxhist7_end_h(id_id)
7265   RETURN
7266 END SUBROUTINE nl_get_auxhist7_end_h
7267 SUBROUTINE nl_get_auxhist7_end_m ( id_id , auxhist7_end_m )
7268   integer , INTENT(OUT) :: auxhist7_end_m
7269   INTEGER id_id
7270   CHARACTER*80 emess
7271   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7272     WRITE(emess,*)'nl_get_auxhist7_end_m: Out of range domain number: ',id_id
7273     CALL wrf_error_fatal(emess)
7274   ENDIF
7275   auxhist7_end_m = model_config_rec%auxhist7_end_m(id_id)
7276   RETURN
7277 END SUBROUTINE nl_get_auxhist7_end_m
7278 SUBROUTINE nl_get_auxhist7_end_s ( id_id , auxhist7_end_s )
7279   integer , INTENT(OUT) :: auxhist7_end_s
7280   INTEGER id_id
7281   CHARACTER*80 emess
7282   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7283     WRITE(emess,*)'nl_get_auxhist7_end_s: Out of range domain number: ',id_id
7284     CALL wrf_error_fatal(emess)
7285   ENDIF
7286   auxhist7_end_s = model_config_rec%auxhist7_end_s(id_id)
7287   RETURN
7288 END SUBROUTINE nl_get_auxhist7_end_s
7289 SUBROUTINE nl_get_auxhist8_end_y ( id_id , auxhist8_end_y )
7290   integer , INTENT(OUT) :: auxhist8_end_y
7291   INTEGER id_id
7292   CHARACTER*80 emess
7293   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7294     WRITE(emess,*)'nl_get_auxhist8_end_y: Out of range domain number: ',id_id
7295     CALL wrf_error_fatal(emess)
7296   ENDIF
7297   auxhist8_end_y = model_config_rec%auxhist8_end_y(id_id)
7298   RETURN
7299 END SUBROUTINE nl_get_auxhist8_end_y
7300 SUBROUTINE nl_get_auxhist8_end_mo ( id_id , auxhist8_end_mo )
7301   integer , INTENT(OUT) :: auxhist8_end_mo
7302   INTEGER id_id
7303   CHARACTER*80 emess
7304   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7305     WRITE(emess,*)'nl_get_auxhist8_end_mo: Out of range domain number: ',id_id
7306     CALL wrf_error_fatal(emess)
7307   ENDIF
7308   auxhist8_end_mo = model_config_rec%auxhist8_end_mo(id_id)
7309   RETURN
7310 END SUBROUTINE nl_get_auxhist8_end_mo
7311 SUBROUTINE nl_get_auxhist8_end_d ( id_id , auxhist8_end_d )
7312   integer , INTENT(OUT) :: auxhist8_end_d
7313   INTEGER id_id
7314   CHARACTER*80 emess
7315   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7316     WRITE(emess,*)'nl_get_auxhist8_end_d: Out of range domain number: ',id_id
7317     CALL wrf_error_fatal(emess)
7318   ENDIF
7319   auxhist8_end_d = model_config_rec%auxhist8_end_d(id_id)
7320   RETURN
7321 END SUBROUTINE nl_get_auxhist8_end_d
7322 SUBROUTINE nl_get_auxhist8_end_h ( id_id , auxhist8_end_h )
7323   integer , INTENT(OUT) :: auxhist8_end_h
7324   INTEGER id_id
7325   CHARACTER*80 emess
7326   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7327     WRITE(emess,*)'nl_get_auxhist8_end_h: Out of range domain number: ',id_id
7328     CALL wrf_error_fatal(emess)
7329   ENDIF
7330   auxhist8_end_h = model_config_rec%auxhist8_end_h(id_id)
7331   RETURN
7332 END SUBROUTINE nl_get_auxhist8_end_h
7333 SUBROUTINE nl_get_auxhist8_end_m ( id_id , auxhist8_end_m )
7334   integer , INTENT(OUT) :: auxhist8_end_m
7335   INTEGER id_id
7336   CHARACTER*80 emess
7337   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7338     WRITE(emess,*)'nl_get_auxhist8_end_m: Out of range domain number: ',id_id
7339     CALL wrf_error_fatal(emess)
7340   ENDIF
7341   auxhist8_end_m = model_config_rec%auxhist8_end_m(id_id)
7342   RETURN
7343 END SUBROUTINE nl_get_auxhist8_end_m
7344 SUBROUTINE nl_get_auxhist8_end_s ( id_id , auxhist8_end_s )
7345   integer , INTENT(OUT) :: auxhist8_end_s
7346   INTEGER id_id
7347   CHARACTER*80 emess
7348   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7349     WRITE(emess,*)'nl_get_auxhist8_end_s: Out of range domain number: ',id_id
7350     CALL wrf_error_fatal(emess)
7351   ENDIF
7352   auxhist8_end_s = model_config_rec%auxhist8_end_s(id_id)
7353   RETURN
7354 END SUBROUTINE nl_get_auxhist8_end_s
7355 SUBROUTINE nl_get_auxhist9_end_y ( id_id , auxhist9_end_y )
7356   integer , INTENT(OUT) :: auxhist9_end_y
7357   INTEGER id_id
7358   CHARACTER*80 emess
7359   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7360     WRITE(emess,*)'nl_get_auxhist9_end_y: Out of range domain number: ',id_id
7361     CALL wrf_error_fatal(emess)
7362   ENDIF
7363   auxhist9_end_y = model_config_rec%auxhist9_end_y(id_id)
7364   RETURN
7365 END SUBROUTINE nl_get_auxhist9_end_y
7366 SUBROUTINE nl_get_auxhist9_end_mo ( id_id , auxhist9_end_mo )
7367   integer , INTENT(OUT) :: auxhist9_end_mo
7368   INTEGER id_id
7369   CHARACTER*80 emess
7370   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7371     WRITE(emess,*)'nl_get_auxhist9_end_mo: Out of range domain number: ',id_id
7372     CALL wrf_error_fatal(emess)
7373   ENDIF
7374   auxhist9_end_mo = model_config_rec%auxhist9_end_mo(id_id)
7375   RETURN
7376 END SUBROUTINE nl_get_auxhist9_end_mo
7377 SUBROUTINE nl_get_auxhist9_end_d ( id_id , auxhist9_end_d )
7378   integer , INTENT(OUT) :: auxhist9_end_d
7379   INTEGER id_id
7380   CHARACTER*80 emess
7381   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7382     WRITE(emess,*)'nl_get_auxhist9_end_d: Out of range domain number: ',id_id
7383     CALL wrf_error_fatal(emess)
7384   ENDIF
7385   auxhist9_end_d = model_config_rec%auxhist9_end_d(id_id)
7386   RETURN
7387 END SUBROUTINE nl_get_auxhist9_end_d
7388 SUBROUTINE nl_get_auxhist9_end_h ( id_id , auxhist9_end_h )
7389   integer , INTENT(OUT) :: auxhist9_end_h
7390   INTEGER id_id
7391   CHARACTER*80 emess
7392   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7393     WRITE(emess,*)'nl_get_auxhist9_end_h: Out of range domain number: ',id_id
7394     CALL wrf_error_fatal(emess)
7395   ENDIF
7396   auxhist9_end_h = model_config_rec%auxhist9_end_h(id_id)
7397   RETURN
7398 END SUBROUTINE nl_get_auxhist9_end_h
7399 SUBROUTINE nl_get_auxhist9_end_m ( id_id , auxhist9_end_m )
7400   integer , INTENT(OUT) :: auxhist9_end_m
7401   INTEGER id_id
7402   CHARACTER*80 emess
7403   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7404     WRITE(emess,*)'nl_get_auxhist9_end_m: Out of range domain number: ',id_id
7405     CALL wrf_error_fatal(emess)
7406   ENDIF
7407   auxhist9_end_m = model_config_rec%auxhist9_end_m(id_id)
7408   RETURN
7409 END SUBROUTINE nl_get_auxhist9_end_m
7410 SUBROUTINE nl_get_auxhist9_end_s ( id_id , auxhist9_end_s )
7411   integer , INTENT(OUT) :: auxhist9_end_s
7412   INTEGER id_id
7413   CHARACTER*80 emess
7414   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7415     WRITE(emess,*)'nl_get_auxhist9_end_s: Out of range domain number: ',id_id
7416     CALL wrf_error_fatal(emess)
7417   ENDIF
7418   auxhist9_end_s = model_config_rec%auxhist9_end_s(id_id)
7419   RETURN
7420 END SUBROUTINE nl_get_auxhist9_end_s
7421 SUBROUTINE nl_get_auxhist10_end_y ( id_id , auxhist10_end_y )
7422   integer , INTENT(OUT) :: auxhist10_end_y
7423   INTEGER id_id
7424   CHARACTER*80 emess
7425   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7426     WRITE(emess,*)'nl_get_auxhist10_end_y: Out of range domain number: ',id_id
7427     CALL wrf_error_fatal(emess)
7428   ENDIF
7429   auxhist10_end_y = model_config_rec%auxhist10_end_y(id_id)
7430   RETURN
7431 END SUBROUTINE nl_get_auxhist10_end_y
7432 SUBROUTINE nl_get_auxhist10_end_mo ( id_id , auxhist10_end_mo )
7433   integer , INTENT(OUT) :: auxhist10_end_mo
7434   INTEGER id_id
7435   CHARACTER*80 emess
7436   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7437     WRITE(emess,*)'nl_get_auxhist10_end_mo: Out of range domain number: ',id_id
7438     CALL wrf_error_fatal(emess)
7439   ENDIF
7440   auxhist10_end_mo = model_config_rec%auxhist10_end_mo(id_id)
7441   RETURN
7442 END SUBROUTINE nl_get_auxhist10_end_mo
7443 SUBROUTINE nl_get_auxhist10_end_d ( id_id , auxhist10_end_d )
7444   integer , INTENT(OUT) :: auxhist10_end_d
7445   INTEGER id_id
7446   CHARACTER*80 emess
7447   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7448     WRITE(emess,*)'nl_get_auxhist10_end_d: Out of range domain number: ',id_id
7449     CALL wrf_error_fatal(emess)
7450   ENDIF
7451   auxhist10_end_d = model_config_rec%auxhist10_end_d(id_id)
7452   RETURN
7453 END SUBROUTINE nl_get_auxhist10_end_d
7454 SUBROUTINE nl_get_auxhist10_end_h ( id_id , auxhist10_end_h )
7455   integer , INTENT(OUT) :: auxhist10_end_h
7456   INTEGER id_id
7457   CHARACTER*80 emess
7458   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7459     WRITE(emess,*)'nl_get_auxhist10_end_h: Out of range domain number: ',id_id
7460     CALL wrf_error_fatal(emess)
7461   ENDIF
7462   auxhist10_end_h = model_config_rec%auxhist10_end_h(id_id)
7463   RETURN
7464 END SUBROUTINE nl_get_auxhist10_end_h
7465 SUBROUTINE nl_get_auxhist10_end_m ( id_id , auxhist10_end_m )
7466   integer , INTENT(OUT) :: auxhist10_end_m
7467   INTEGER id_id
7468   CHARACTER*80 emess
7469   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7470     WRITE(emess,*)'nl_get_auxhist10_end_m: Out of range domain number: ',id_id
7471     CALL wrf_error_fatal(emess)
7472   ENDIF
7473   auxhist10_end_m = model_config_rec%auxhist10_end_m(id_id)
7474   RETURN
7475 END SUBROUTINE nl_get_auxhist10_end_m
7476 SUBROUTINE nl_get_auxhist10_end_s ( id_id , auxhist10_end_s )
7477   integer , INTENT(OUT) :: auxhist10_end_s
7478   INTEGER id_id
7479   CHARACTER*80 emess
7480   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7481     WRITE(emess,*)'nl_get_auxhist10_end_s: Out of range domain number: ',id_id
7482     CALL wrf_error_fatal(emess)
7483   ENDIF
7484   auxhist10_end_s = model_config_rec%auxhist10_end_s(id_id)
7485   RETURN
7486 END SUBROUTINE nl_get_auxhist10_end_s
7487 SUBROUTINE nl_get_auxhist11_end_y ( id_id , auxhist11_end_y )
7488   integer , INTENT(OUT) :: auxhist11_end_y
7489   INTEGER id_id
7490   CHARACTER*80 emess
7491   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7492     WRITE(emess,*)'nl_get_auxhist11_end_y: Out of range domain number: ',id_id
7493     CALL wrf_error_fatal(emess)
7494   ENDIF
7495   auxhist11_end_y = model_config_rec%auxhist11_end_y(id_id)
7496   RETURN
7497 END SUBROUTINE nl_get_auxhist11_end_y
7498 SUBROUTINE nl_get_auxhist11_end_mo ( id_id , auxhist11_end_mo )
7499   integer , INTENT(OUT) :: auxhist11_end_mo
7500   INTEGER id_id
7501   CHARACTER*80 emess
7502   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7503     WRITE(emess,*)'nl_get_auxhist11_end_mo: Out of range domain number: ',id_id
7504     CALL wrf_error_fatal(emess)
7505   ENDIF
7506   auxhist11_end_mo = model_config_rec%auxhist11_end_mo(id_id)
7507   RETURN
7508 END SUBROUTINE nl_get_auxhist11_end_mo
7509 SUBROUTINE nl_get_auxhist11_end_d ( id_id , auxhist11_end_d )
7510   integer , INTENT(OUT) :: auxhist11_end_d
7511   INTEGER id_id
7512   CHARACTER*80 emess
7513   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7514     WRITE(emess,*)'nl_get_auxhist11_end_d: Out of range domain number: ',id_id
7515     CALL wrf_error_fatal(emess)
7516   ENDIF
7517   auxhist11_end_d = model_config_rec%auxhist11_end_d(id_id)
7518   RETURN
7519 END SUBROUTINE nl_get_auxhist11_end_d
7520 SUBROUTINE nl_get_auxhist11_end_h ( id_id , auxhist11_end_h )
7521   integer , INTENT(OUT) :: auxhist11_end_h
7522   INTEGER id_id
7523   CHARACTER*80 emess
7524   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7525     WRITE(emess,*)'nl_get_auxhist11_end_h: Out of range domain number: ',id_id
7526     CALL wrf_error_fatal(emess)
7527   ENDIF
7528   auxhist11_end_h = model_config_rec%auxhist11_end_h(id_id)
7529   RETURN
7530 END SUBROUTINE nl_get_auxhist11_end_h
7531 SUBROUTINE nl_get_auxhist11_end_m ( id_id , auxhist11_end_m )
7532   integer , INTENT(OUT) :: auxhist11_end_m
7533   INTEGER id_id
7534   CHARACTER*80 emess
7535   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7536     WRITE(emess,*)'nl_get_auxhist11_end_m: Out of range domain number: ',id_id
7537     CALL wrf_error_fatal(emess)
7538   ENDIF
7539   auxhist11_end_m = model_config_rec%auxhist11_end_m(id_id)
7540   RETURN
7541 END SUBROUTINE nl_get_auxhist11_end_m
7542 SUBROUTINE nl_get_auxhist11_end_s ( id_id , auxhist11_end_s )
7543   integer , INTENT(OUT) :: auxhist11_end_s
7544   INTEGER id_id
7545   CHARACTER*80 emess
7546   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7547     WRITE(emess,*)'nl_get_auxhist11_end_s: Out of range domain number: ',id_id
7548     CALL wrf_error_fatal(emess)
7549   ENDIF
7550   auxhist11_end_s = model_config_rec%auxhist11_end_s(id_id)
7551   RETURN
7552 END SUBROUTINE nl_get_auxhist11_end_s
7553 SUBROUTINE nl_get_auxinput1_end_y ( id_id , auxinput1_end_y )
7554   integer , INTENT(OUT) :: auxinput1_end_y
7555   INTEGER id_id
7556   CHARACTER*80 emess
7557   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7558     WRITE(emess,*)'nl_get_auxinput1_end_y: Out of range domain number: ',id_id
7559     CALL wrf_error_fatal(emess)
7560   ENDIF
7561   auxinput1_end_y = model_config_rec%auxinput1_end_y(id_id)
7562   RETURN
7563 END SUBROUTINE nl_get_auxinput1_end_y
7564 SUBROUTINE nl_get_auxinput1_end_mo ( id_id , auxinput1_end_mo )
7565   integer , INTENT(OUT) :: auxinput1_end_mo
7566   INTEGER id_id
7567   CHARACTER*80 emess
7568   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7569     WRITE(emess,*)'nl_get_auxinput1_end_mo: Out of range domain number: ',id_id
7570     CALL wrf_error_fatal(emess)
7571   ENDIF
7572   auxinput1_end_mo = model_config_rec%auxinput1_end_mo(id_id)
7573   RETURN
7574 END SUBROUTINE nl_get_auxinput1_end_mo
7575 SUBROUTINE nl_get_auxinput1_end_d ( id_id , auxinput1_end_d )
7576   integer , INTENT(OUT) :: auxinput1_end_d
7577   INTEGER id_id
7578   CHARACTER*80 emess
7579   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7580     WRITE(emess,*)'nl_get_auxinput1_end_d: Out of range domain number: ',id_id
7581     CALL wrf_error_fatal(emess)
7582   ENDIF
7583   auxinput1_end_d = model_config_rec%auxinput1_end_d(id_id)
7584   RETURN
7585 END SUBROUTINE nl_get_auxinput1_end_d
7586 SUBROUTINE nl_get_auxinput1_end_h ( id_id , auxinput1_end_h )
7587   integer , INTENT(OUT) :: auxinput1_end_h
7588   INTEGER id_id
7589   CHARACTER*80 emess
7590   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7591     WRITE(emess,*)'nl_get_auxinput1_end_h: Out of range domain number: ',id_id
7592     CALL wrf_error_fatal(emess)
7593   ENDIF
7594   auxinput1_end_h = model_config_rec%auxinput1_end_h(id_id)
7595   RETURN
7596 END SUBROUTINE nl_get_auxinput1_end_h
7597 SUBROUTINE nl_get_auxinput1_end_m ( id_id , auxinput1_end_m )
7598   integer , INTENT(OUT) :: auxinput1_end_m
7599   INTEGER id_id
7600   CHARACTER*80 emess
7601   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7602     WRITE(emess,*)'nl_get_auxinput1_end_m: Out of range domain number: ',id_id
7603     CALL wrf_error_fatal(emess)
7604   ENDIF
7605   auxinput1_end_m = model_config_rec%auxinput1_end_m(id_id)
7606   RETURN
7607 END SUBROUTINE nl_get_auxinput1_end_m
7608 SUBROUTINE nl_get_auxinput1_end_s ( id_id , auxinput1_end_s )
7609   integer , INTENT(OUT) :: auxinput1_end_s
7610   INTEGER id_id
7611   CHARACTER*80 emess
7612   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7613     WRITE(emess,*)'nl_get_auxinput1_end_s: Out of range domain number: ',id_id
7614     CALL wrf_error_fatal(emess)
7615   ENDIF
7616   auxinput1_end_s = model_config_rec%auxinput1_end_s(id_id)
7617   RETURN
7618 END SUBROUTINE nl_get_auxinput1_end_s
7619 SUBROUTINE nl_get_auxinput2_end_y ( id_id , auxinput2_end_y )
7620   integer , INTENT(OUT) :: auxinput2_end_y
7621   INTEGER id_id
7622   CHARACTER*80 emess
7623   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7624     WRITE(emess,*)'nl_get_auxinput2_end_y: Out of range domain number: ',id_id
7625     CALL wrf_error_fatal(emess)
7626   ENDIF
7627   auxinput2_end_y = model_config_rec%auxinput2_end_y(id_id)
7628   RETURN
7629 END SUBROUTINE nl_get_auxinput2_end_y
7630 SUBROUTINE nl_get_auxinput2_end_mo ( id_id , auxinput2_end_mo )
7631   integer , INTENT(OUT) :: auxinput2_end_mo
7632   INTEGER id_id
7633   CHARACTER*80 emess
7634   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7635     WRITE(emess,*)'nl_get_auxinput2_end_mo: Out of range domain number: ',id_id
7636     CALL wrf_error_fatal(emess)
7637   ENDIF
7638   auxinput2_end_mo = model_config_rec%auxinput2_end_mo(id_id)
7639   RETURN
7640 END SUBROUTINE nl_get_auxinput2_end_mo
7641 SUBROUTINE nl_get_auxinput2_end_d ( id_id , auxinput2_end_d )
7642   integer , INTENT(OUT) :: auxinput2_end_d
7643   INTEGER id_id
7644   CHARACTER*80 emess
7645   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7646     WRITE(emess,*)'nl_get_auxinput2_end_d: Out of range domain number: ',id_id
7647     CALL wrf_error_fatal(emess)
7648   ENDIF
7649   auxinput2_end_d = model_config_rec%auxinput2_end_d(id_id)
7650   RETURN
7651 END SUBROUTINE nl_get_auxinput2_end_d
7652 SUBROUTINE nl_get_auxinput2_end_h ( id_id , auxinput2_end_h )
7653   integer , INTENT(OUT) :: auxinput2_end_h
7654   INTEGER id_id
7655   CHARACTER*80 emess
7656   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7657     WRITE(emess,*)'nl_get_auxinput2_end_h: Out of range domain number: ',id_id
7658     CALL wrf_error_fatal(emess)
7659   ENDIF
7660   auxinput2_end_h = model_config_rec%auxinput2_end_h(id_id)
7661   RETURN
7662 END SUBROUTINE nl_get_auxinput2_end_h
7663 SUBROUTINE nl_get_auxinput2_end_m ( id_id , auxinput2_end_m )
7664   integer , INTENT(OUT) :: auxinput2_end_m
7665   INTEGER id_id
7666   CHARACTER*80 emess
7667   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7668     WRITE(emess,*)'nl_get_auxinput2_end_m: Out of range domain number: ',id_id
7669     CALL wrf_error_fatal(emess)
7670   ENDIF
7671   auxinput2_end_m = model_config_rec%auxinput2_end_m(id_id)
7672   RETURN
7673 END SUBROUTINE nl_get_auxinput2_end_m
7674 SUBROUTINE nl_get_auxinput2_end_s ( id_id , auxinput2_end_s )
7675   integer , INTENT(OUT) :: auxinput2_end_s
7676   INTEGER id_id
7677   CHARACTER*80 emess
7678   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7679     WRITE(emess,*)'nl_get_auxinput2_end_s: Out of range domain number: ',id_id
7680     CALL wrf_error_fatal(emess)
7681   ENDIF
7682   auxinput2_end_s = model_config_rec%auxinput2_end_s(id_id)
7683   RETURN
7684 END SUBROUTINE nl_get_auxinput2_end_s
7685 SUBROUTINE nl_get_auxinput3_end_y ( id_id , auxinput3_end_y )
7686   integer , INTENT(OUT) :: auxinput3_end_y
7687   INTEGER id_id
7688   CHARACTER*80 emess
7689   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7690     WRITE(emess,*)'nl_get_auxinput3_end_y: Out of range domain number: ',id_id
7691     CALL wrf_error_fatal(emess)
7692   ENDIF
7693   auxinput3_end_y = model_config_rec%auxinput3_end_y(id_id)
7694   RETURN
7695 END SUBROUTINE nl_get_auxinput3_end_y
7696 SUBROUTINE nl_get_auxinput3_end_mo ( id_id , auxinput3_end_mo )
7697   integer , INTENT(OUT) :: auxinput3_end_mo
7698   INTEGER id_id
7699   CHARACTER*80 emess
7700   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7701     WRITE(emess,*)'nl_get_auxinput3_end_mo: Out of range domain number: ',id_id
7702     CALL wrf_error_fatal(emess)
7703   ENDIF
7704   auxinput3_end_mo = model_config_rec%auxinput3_end_mo(id_id)
7705   RETURN
7706 END SUBROUTINE nl_get_auxinput3_end_mo
7707 SUBROUTINE nl_get_auxinput3_end_d ( id_id , auxinput3_end_d )
7708   integer , INTENT(OUT) :: auxinput3_end_d
7709   INTEGER id_id
7710   CHARACTER*80 emess
7711   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7712     WRITE(emess,*)'nl_get_auxinput3_end_d: Out of range domain number: ',id_id
7713     CALL wrf_error_fatal(emess)
7714   ENDIF
7715   auxinput3_end_d = model_config_rec%auxinput3_end_d(id_id)
7716   RETURN
7717 END SUBROUTINE nl_get_auxinput3_end_d
7718 SUBROUTINE nl_get_auxinput3_end_h ( id_id , auxinput3_end_h )
7719   integer , INTENT(OUT) :: auxinput3_end_h
7720   INTEGER id_id
7721   CHARACTER*80 emess
7722   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7723     WRITE(emess,*)'nl_get_auxinput3_end_h: Out of range domain number: ',id_id
7724     CALL wrf_error_fatal(emess)
7725   ENDIF
7726   auxinput3_end_h = model_config_rec%auxinput3_end_h(id_id)
7727   RETURN
7728 END SUBROUTINE nl_get_auxinput3_end_h
7729 SUBROUTINE nl_get_auxinput3_end_m ( id_id , auxinput3_end_m )
7730   integer , INTENT(OUT) :: auxinput3_end_m
7731   INTEGER id_id
7732   CHARACTER*80 emess
7733   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7734     WRITE(emess,*)'nl_get_auxinput3_end_m: Out of range domain number: ',id_id
7735     CALL wrf_error_fatal(emess)
7736   ENDIF
7737   auxinput3_end_m = model_config_rec%auxinput3_end_m(id_id)
7738   RETURN
7739 END SUBROUTINE nl_get_auxinput3_end_m
7740 SUBROUTINE nl_get_auxinput3_end_s ( id_id , auxinput3_end_s )
7741   integer , INTENT(OUT) :: auxinput3_end_s
7742   INTEGER id_id
7743   CHARACTER*80 emess
7744   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7745     WRITE(emess,*)'nl_get_auxinput3_end_s: Out of range domain number: ',id_id
7746     CALL wrf_error_fatal(emess)
7747   ENDIF
7748   auxinput3_end_s = model_config_rec%auxinput3_end_s(id_id)
7749   RETURN
7750 END SUBROUTINE nl_get_auxinput3_end_s
7751 SUBROUTINE nl_get_auxinput4_end_y ( id_id , auxinput4_end_y )
7752   integer , INTENT(OUT) :: auxinput4_end_y
7753   INTEGER id_id
7754   CHARACTER*80 emess
7755   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7756     WRITE(emess,*)'nl_get_auxinput4_end_y: Out of range domain number: ',id_id
7757     CALL wrf_error_fatal(emess)
7758   ENDIF
7759   auxinput4_end_y = model_config_rec%auxinput4_end_y(id_id)
7760   RETURN
7761 END SUBROUTINE nl_get_auxinput4_end_y
7762 SUBROUTINE nl_get_auxinput4_end_mo ( id_id , auxinput4_end_mo )
7763   integer , INTENT(OUT) :: auxinput4_end_mo
7764   INTEGER id_id
7765   CHARACTER*80 emess
7766   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7767     WRITE(emess,*)'nl_get_auxinput4_end_mo: Out of range domain number: ',id_id
7768     CALL wrf_error_fatal(emess)
7769   ENDIF
7770   auxinput4_end_mo = model_config_rec%auxinput4_end_mo(id_id)
7771   RETURN
7772 END SUBROUTINE nl_get_auxinput4_end_mo
7773 SUBROUTINE nl_get_auxinput4_end_d ( id_id , auxinput4_end_d )
7774   integer , INTENT(OUT) :: auxinput4_end_d
7775   INTEGER id_id
7776   CHARACTER*80 emess
7777   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7778     WRITE(emess,*)'nl_get_auxinput4_end_d: Out of range domain number: ',id_id
7779     CALL wrf_error_fatal(emess)
7780   ENDIF
7781   auxinput4_end_d = model_config_rec%auxinput4_end_d(id_id)
7782   RETURN
7783 END SUBROUTINE nl_get_auxinput4_end_d
7784 SUBROUTINE nl_get_auxinput4_end_h ( id_id , auxinput4_end_h )
7785   integer , INTENT(OUT) :: auxinput4_end_h
7786   INTEGER id_id
7787   CHARACTER*80 emess
7788   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7789     WRITE(emess,*)'nl_get_auxinput4_end_h: Out of range domain number: ',id_id
7790     CALL wrf_error_fatal(emess)
7791   ENDIF
7792   auxinput4_end_h = model_config_rec%auxinput4_end_h(id_id)
7793   RETURN
7794 END SUBROUTINE nl_get_auxinput4_end_h
7795 SUBROUTINE nl_get_auxinput4_end_m ( id_id , auxinput4_end_m )
7796   integer , INTENT(OUT) :: auxinput4_end_m
7797   INTEGER id_id
7798   CHARACTER*80 emess
7799   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7800     WRITE(emess,*)'nl_get_auxinput4_end_m: Out of range domain number: ',id_id
7801     CALL wrf_error_fatal(emess)
7802   ENDIF
7803   auxinput4_end_m = model_config_rec%auxinput4_end_m(id_id)
7804   RETURN
7805 END SUBROUTINE nl_get_auxinput4_end_m
7806 SUBROUTINE nl_get_auxinput4_end_s ( id_id , auxinput4_end_s )
7807   integer , INTENT(OUT) :: auxinput4_end_s
7808   INTEGER id_id
7809   CHARACTER*80 emess
7810   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7811     WRITE(emess,*)'nl_get_auxinput4_end_s: Out of range domain number: ',id_id
7812     CALL wrf_error_fatal(emess)
7813   ENDIF
7814   auxinput4_end_s = model_config_rec%auxinput4_end_s(id_id)
7815   RETURN
7816 END SUBROUTINE nl_get_auxinput4_end_s
7817 SUBROUTINE nl_get_auxinput5_end_y ( id_id , auxinput5_end_y )
7818   integer , INTENT(OUT) :: auxinput5_end_y
7819   INTEGER id_id
7820   CHARACTER*80 emess
7821   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7822     WRITE(emess,*)'nl_get_auxinput5_end_y: Out of range domain number: ',id_id
7823     CALL wrf_error_fatal(emess)
7824   ENDIF
7825   auxinput5_end_y = model_config_rec%auxinput5_end_y(id_id)
7826   RETURN
7827 END SUBROUTINE nl_get_auxinput5_end_y
7828 SUBROUTINE nl_get_auxinput5_end_mo ( id_id , auxinput5_end_mo )
7829   integer , INTENT(OUT) :: auxinput5_end_mo
7830   INTEGER id_id
7831   CHARACTER*80 emess
7832   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7833     WRITE(emess,*)'nl_get_auxinput5_end_mo: Out of range domain number: ',id_id
7834     CALL wrf_error_fatal(emess)
7835   ENDIF
7836   auxinput5_end_mo = model_config_rec%auxinput5_end_mo(id_id)
7837   RETURN
7838 END SUBROUTINE nl_get_auxinput5_end_mo
7839 SUBROUTINE nl_get_auxinput5_end_d ( id_id , auxinput5_end_d )
7840   integer , INTENT(OUT) :: auxinput5_end_d
7841   INTEGER id_id
7842   CHARACTER*80 emess
7843   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7844     WRITE(emess,*)'nl_get_auxinput5_end_d: Out of range domain number: ',id_id
7845     CALL wrf_error_fatal(emess)
7846   ENDIF
7847   auxinput5_end_d = model_config_rec%auxinput5_end_d(id_id)
7848   RETURN
7849 END SUBROUTINE nl_get_auxinput5_end_d
7850 SUBROUTINE nl_get_auxinput5_end_h ( id_id , auxinput5_end_h )
7851   integer , INTENT(OUT) :: auxinput5_end_h
7852   INTEGER id_id
7853   CHARACTER*80 emess
7854   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7855     WRITE(emess,*)'nl_get_auxinput5_end_h: Out of range domain number: ',id_id
7856     CALL wrf_error_fatal(emess)
7857   ENDIF
7858   auxinput5_end_h = model_config_rec%auxinput5_end_h(id_id)
7859   RETURN
7860 END SUBROUTINE nl_get_auxinput5_end_h
7861 SUBROUTINE nl_get_auxinput5_end_m ( id_id , auxinput5_end_m )
7862   integer , INTENT(OUT) :: auxinput5_end_m
7863   INTEGER id_id
7864   CHARACTER*80 emess
7865   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7866     WRITE(emess,*)'nl_get_auxinput5_end_m: Out of range domain number: ',id_id
7867     CALL wrf_error_fatal(emess)
7868   ENDIF
7869   auxinput5_end_m = model_config_rec%auxinput5_end_m(id_id)
7870   RETURN
7871 END SUBROUTINE nl_get_auxinput5_end_m
7872 SUBROUTINE nl_get_auxinput5_end_s ( id_id , auxinput5_end_s )
7873   integer , INTENT(OUT) :: auxinput5_end_s
7874   INTEGER id_id
7875   CHARACTER*80 emess
7876   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7877     WRITE(emess,*)'nl_get_auxinput5_end_s: Out of range domain number: ',id_id
7878     CALL wrf_error_fatal(emess)
7879   ENDIF
7880   auxinput5_end_s = model_config_rec%auxinput5_end_s(id_id)
7881   RETURN
7882 END SUBROUTINE nl_get_auxinput5_end_s
7883 SUBROUTINE nl_get_auxinput6_end_y ( id_id , auxinput6_end_y )
7884   integer , INTENT(OUT) :: auxinput6_end_y
7885   INTEGER id_id
7886   CHARACTER*80 emess
7887   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7888     WRITE(emess,*)'nl_get_auxinput6_end_y: Out of range domain number: ',id_id
7889     CALL wrf_error_fatal(emess)
7890   ENDIF
7891   auxinput6_end_y = model_config_rec%auxinput6_end_y(id_id)
7892   RETURN
7893 END SUBROUTINE nl_get_auxinput6_end_y
7894 SUBROUTINE nl_get_auxinput6_end_mo ( id_id , auxinput6_end_mo )
7895   integer , INTENT(OUT) :: auxinput6_end_mo
7896   INTEGER id_id
7897   CHARACTER*80 emess
7898   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7899     WRITE(emess,*)'nl_get_auxinput6_end_mo: Out of range domain number: ',id_id
7900     CALL wrf_error_fatal(emess)
7901   ENDIF
7902   auxinput6_end_mo = model_config_rec%auxinput6_end_mo(id_id)
7903   RETURN
7904 END SUBROUTINE nl_get_auxinput6_end_mo
7905 SUBROUTINE nl_get_auxinput6_end_d ( id_id , auxinput6_end_d )
7906   integer , INTENT(OUT) :: auxinput6_end_d
7907   INTEGER id_id
7908   CHARACTER*80 emess
7909   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7910     WRITE(emess,*)'nl_get_auxinput6_end_d: Out of range domain number: ',id_id
7911     CALL wrf_error_fatal(emess)
7912   ENDIF
7913   auxinput6_end_d = model_config_rec%auxinput6_end_d(id_id)
7914   RETURN
7915 END SUBROUTINE nl_get_auxinput6_end_d
7916 SUBROUTINE nl_get_auxinput6_end_h ( id_id , auxinput6_end_h )
7917   integer , INTENT(OUT) :: auxinput6_end_h
7918   INTEGER id_id
7919   CHARACTER*80 emess
7920   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7921     WRITE(emess,*)'nl_get_auxinput6_end_h: Out of range domain number: ',id_id
7922     CALL wrf_error_fatal(emess)
7923   ENDIF
7924   auxinput6_end_h = model_config_rec%auxinput6_end_h(id_id)
7925   RETURN
7926 END SUBROUTINE nl_get_auxinput6_end_h
7927 SUBROUTINE nl_get_auxinput6_end_m ( id_id , auxinput6_end_m )
7928   integer , INTENT(OUT) :: auxinput6_end_m
7929   INTEGER id_id
7930   CHARACTER*80 emess
7931   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7932     WRITE(emess,*)'nl_get_auxinput6_end_m: Out of range domain number: ',id_id
7933     CALL wrf_error_fatal(emess)
7934   ENDIF
7935   auxinput6_end_m = model_config_rec%auxinput6_end_m(id_id)
7936   RETURN
7937 END SUBROUTINE nl_get_auxinput6_end_m
7938 SUBROUTINE nl_get_auxinput6_end_s ( id_id , auxinput6_end_s )
7939   integer , INTENT(OUT) :: auxinput6_end_s
7940   INTEGER id_id
7941   CHARACTER*80 emess
7942   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7943     WRITE(emess,*)'nl_get_auxinput6_end_s: Out of range domain number: ',id_id
7944     CALL wrf_error_fatal(emess)
7945   ENDIF
7946   auxinput6_end_s = model_config_rec%auxinput6_end_s(id_id)
7947   RETURN
7948 END SUBROUTINE nl_get_auxinput6_end_s
7949 SUBROUTINE nl_get_auxinput7_end_y ( id_id , auxinput7_end_y )
7950   integer , INTENT(OUT) :: auxinput7_end_y
7951   INTEGER id_id
7952   CHARACTER*80 emess
7953   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7954     WRITE(emess,*)'nl_get_auxinput7_end_y: Out of range domain number: ',id_id
7955     CALL wrf_error_fatal(emess)
7956   ENDIF
7957   auxinput7_end_y = model_config_rec%auxinput7_end_y(id_id)
7958   RETURN
7959 END SUBROUTINE nl_get_auxinput7_end_y
7960 SUBROUTINE nl_get_auxinput7_end_mo ( id_id , auxinput7_end_mo )
7961   integer , INTENT(OUT) :: auxinput7_end_mo
7962   INTEGER id_id
7963   CHARACTER*80 emess
7964   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7965     WRITE(emess,*)'nl_get_auxinput7_end_mo: Out of range domain number: ',id_id
7966     CALL wrf_error_fatal(emess)
7967   ENDIF
7968   auxinput7_end_mo = model_config_rec%auxinput7_end_mo(id_id)
7969   RETURN
7970 END SUBROUTINE nl_get_auxinput7_end_mo
7971 SUBROUTINE nl_get_auxinput7_end_d ( id_id , auxinput7_end_d )
7972   integer , INTENT(OUT) :: auxinput7_end_d
7973   INTEGER id_id
7974   CHARACTER*80 emess
7975   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7976     WRITE(emess,*)'nl_get_auxinput7_end_d: Out of range domain number: ',id_id
7977     CALL wrf_error_fatal(emess)
7978   ENDIF
7979   auxinput7_end_d = model_config_rec%auxinput7_end_d(id_id)
7980   RETURN
7981 END SUBROUTINE nl_get_auxinput7_end_d
7982 SUBROUTINE nl_get_auxinput7_end_h ( id_id , auxinput7_end_h )
7983   integer , INTENT(OUT) :: auxinput7_end_h
7984   INTEGER id_id
7985   CHARACTER*80 emess
7986   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7987     WRITE(emess,*)'nl_get_auxinput7_end_h: Out of range domain number: ',id_id
7988     CALL wrf_error_fatal(emess)
7989   ENDIF
7990   auxinput7_end_h = model_config_rec%auxinput7_end_h(id_id)
7991   RETURN
7992 END SUBROUTINE nl_get_auxinput7_end_h
7993 SUBROUTINE nl_get_auxinput7_end_m ( id_id , auxinput7_end_m )
7994   integer , INTENT(OUT) :: auxinput7_end_m
7995   INTEGER id_id
7996   CHARACTER*80 emess
7997   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7998     WRITE(emess,*)'nl_get_auxinput7_end_m: Out of range domain number: ',id_id
7999     CALL wrf_error_fatal(emess)
8000   ENDIF
8001   auxinput7_end_m = model_config_rec%auxinput7_end_m(id_id)
8002   RETURN
8003 END SUBROUTINE nl_get_auxinput7_end_m
8004 SUBROUTINE nl_get_auxinput7_end_s ( id_id , auxinput7_end_s )
8005   integer , INTENT(OUT) :: auxinput7_end_s
8006   INTEGER id_id
8007   CHARACTER*80 emess
8008   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8009     WRITE(emess,*)'nl_get_auxinput7_end_s: Out of range domain number: ',id_id
8010     CALL wrf_error_fatal(emess)
8011   ENDIF
8012   auxinput7_end_s = model_config_rec%auxinput7_end_s(id_id)
8013   RETURN
8014 END SUBROUTINE nl_get_auxinput7_end_s
8015 SUBROUTINE nl_get_auxinput8_end_y ( id_id , auxinput8_end_y )
8016   integer , INTENT(OUT) :: auxinput8_end_y
8017   INTEGER id_id
8018   CHARACTER*80 emess
8019   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8020     WRITE(emess,*)'nl_get_auxinput8_end_y: Out of range domain number: ',id_id
8021     CALL wrf_error_fatal(emess)
8022   ENDIF
8023   auxinput8_end_y = model_config_rec%auxinput8_end_y(id_id)
8024   RETURN
8025 END SUBROUTINE nl_get_auxinput8_end_y
8026 SUBROUTINE nl_get_auxinput8_end_mo ( id_id , auxinput8_end_mo )
8027   integer , INTENT(OUT) :: auxinput8_end_mo
8028   INTEGER id_id
8029   CHARACTER*80 emess
8030   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8031     WRITE(emess,*)'nl_get_auxinput8_end_mo: Out of range domain number: ',id_id
8032     CALL wrf_error_fatal(emess)
8033   ENDIF
8034   auxinput8_end_mo = model_config_rec%auxinput8_end_mo(id_id)
8035   RETURN
8036 END SUBROUTINE nl_get_auxinput8_end_mo
8037 SUBROUTINE nl_get_auxinput8_end_d ( id_id , auxinput8_end_d )
8038   integer , INTENT(OUT) :: auxinput8_end_d
8039   INTEGER id_id
8040   CHARACTER*80 emess
8041   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8042     WRITE(emess,*)'nl_get_auxinput8_end_d: Out of range domain number: ',id_id
8043     CALL wrf_error_fatal(emess)
8044   ENDIF
8045   auxinput8_end_d = model_config_rec%auxinput8_end_d(id_id)
8046   RETURN
8047 END SUBROUTINE nl_get_auxinput8_end_d
8048 SUBROUTINE nl_get_auxinput8_end_h ( id_id , auxinput8_end_h )
8049   integer , INTENT(OUT) :: auxinput8_end_h
8050   INTEGER id_id
8051   CHARACTER*80 emess
8052   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8053     WRITE(emess,*)'nl_get_auxinput8_end_h: Out of range domain number: ',id_id
8054     CALL wrf_error_fatal(emess)
8055   ENDIF
8056   auxinput8_end_h = model_config_rec%auxinput8_end_h(id_id)
8057   RETURN
8058 END SUBROUTINE nl_get_auxinput8_end_h
8059 SUBROUTINE nl_get_auxinput8_end_m ( id_id , auxinput8_end_m )
8060   integer , INTENT(OUT) :: auxinput8_end_m
8061   INTEGER id_id
8062   CHARACTER*80 emess
8063   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8064     WRITE(emess,*)'nl_get_auxinput8_end_m: Out of range domain number: ',id_id
8065     CALL wrf_error_fatal(emess)
8066   ENDIF
8067   auxinput8_end_m = model_config_rec%auxinput8_end_m(id_id)
8068   RETURN
8069 END SUBROUTINE nl_get_auxinput8_end_m
8070 SUBROUTINE nl_get_auxinput8_end_s ( id_id , auxinput8_end_s )
8071   integer , INTENT(OUT) :: auxinput8_end_s
8072   INTEGER id_id
8073   CHARACTER*80 emess
8074   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8075     WRITE(emess,*)'nl_get_auxinput8_end_s: Out of range domain number: ',id_id
8076     CALL wrf_error_fatal(emess)
8077   ENDIF
8078   auxinput8_end_s = model_config_rec%auxinput8_end_s(id_id)
8079   RETURN
8080 END SUBROUTINE nl_get_auxinput8_end_s
8081 SUBROUTINE nl_get_auxinput9_end_y ( id_id , auxinput9_end_y )
8082   integer , INTENT(OUT) :: auxinput9_end_y
8083   INTEGER id_id
8084   CHARACTER*80 emess
8085   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8086     WRITE(emess,*)'nl_get_auxinput9_end_y: Out of range domain number: ',id_id
8087     CALL wrf_error_fatal(emess)
8088   ENDIF
8089   auxinput9_end_y = model_config_rec%auxinput9_end_y(id_id)
8090   RETURN
8091 END SUBROUTINE nl_get_auxinput9_end_y
8092 SUBROUTINE nl_get_auxinput9_end_mo ( id_id , auxinput9_end_mo )
8093   integer , INTENT(OUT) :: auxinput9_end_mo
8094   INTEGER id_id
8095   CHARACTER*80 emess
8096   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8097     WRITE(emess,*)'nl_get_auxinput9_end_mo: Out of range domain number: ',id_id
8098     CALL wrf_error_fatal(emess)
8099   ENDIF
8100   auxinput9_end_mo = model_config_rec%auxinput9_end_mo(id_id)
8101   RETURN
8102 END SUBROUTINE nl_get_auxinput9_end_mo
8103 SUBROUTINE nl_get_auxinput9_end_d ( id_id , auxinput9_end_d )
8104   integer , INTENT(OUT) :: auxinput9_end_d
8105   INTEGER id_id
8106   CHARACTER*80 emess
8107   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8108     WRITE(emess,*)'nl_get_auxinput9_end_d: Out of range domain number: ',id_id
8109     CALL wrf_error_fatal(emess)
8110   ENDIF
8111   auxinput9_end_d = model_config_rec%auxinput9_end_d(id_id)
8112   RETURN
8113 END SUBROUTINE nl_get_auxinput9_end_d
8114 SUBROUTINE nl_get_auxinput9_end_h ( id_id , auxinput9_end_h )
8115   integer , INTENT(OUT) :: auxinput9_end_h
8116   INTEGER id_id
8117   CHARACTER*80 emess
8118   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8119     WRITE(emess,*)'nl_get_auxinput9_end_h: Out of range domain number: ',id_id
8120     CALL wrf_error_fatal(emess)
8121   ENDIF
8122   auxinput9_end_h = model_config_rec%auxinput9_end_h(id_id)
8123   RETURN
8124 END SUBROUTINE nl_get_auxinput9_end_h
8125 SUBROUTINE nl_get_auxinput9_end_m ( id_id , auxinput9_end_m )
8126   integer , INTENT(OUT) :: auxinput9_end_m
8127   INTEGER id_id
8128   CHARACTER*80 emess
8129   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8130     WRITE(emess,*)'nl_get_auxinput9_end_m: Out of range domain number: ',id_id
8131     CALL wrf_error_fatal(emess)
8132   ENDIF
8133   auxinput9_end_m = model_config_rec%auxinput9_end_m(id_id)
8134   RETURN
8135 END SUBROUTINE nl_get_auxinput9_end_m
8136 SUBROUTINE nl_get_auxinput9_end_s ( id_id , auxinput9_end_s )
8137   integer , INTENT(OUT) :: auxinput9_end_s
8138   INTEGER id_id
8139   CHARACTER*80 emess
8140   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8141     WRITE(emess,*)'nl_get_auxinput9_end_s: Out of range domain number: ',id_id
8142     CALL wrf_error_fatal(emess)
8143   ENDIF
8144   auxinput9_end_s = model_config_rec%auxinput9_end_s(id_id)
8145   RETURN
8146 END SUBROUTINE nl_get_auxinput9_end_s
8147 SUBROUTINE nl_get_gfdda_end_y ( id_id , gfdda_end_y )
8148   integer , INTENT(OUT) :: gfdda_end_y
8149   INTEGER id_id
8150   CHARACTER*80 emess
8151   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8152     WRITE(emess,*)'nl_get_gfdda_end_y: Out of range domain number: ',id_id
8153     CALL wrf_error_fatal(emess)
8154   ENDIF
8155   gfdda_end_y = model_config_rec%gfdda_end_y(id_id)
8156   RETURN
8157 END SUBROUTINE nl_get_gfdda_end_y
8158 SUBROUTINE nl_get_gfdda_end_mo ( id_id , gfdda_end_mo )
8159   integer , INTENT(OUT) :: gfdda_end_mo
8160   INTEGER id_id
8161   CHARACTER*80 emess
8162   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8163     WRITE(emess,*)'nl_get_gfdda_end_mo: Out of range domain number: ',id_id
8164     CALL wrf_error_fatal(emess)
8165   ENDIF
8166   gfdda_end_mo = model_config_rec%gfdda_end_mo(id_id)
8167   RETURN
8168 END SUBROUTINE nl_get_gfdda_end_mo
8169 SUBROUTINE nl_get_gfdda_end_d ( id_id , gfdda_end_d )
8170   integer , INTENT(OUT) :: gfdda_end_d
8171   INTEGER id_id
8172   CHARACTER*80 emess
8173   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8174     WRITE(emess,*)'nl_get_gfdda_end_d: Out of range domain number: ',id_id
8175     CALL wrf_error_fatal(emess)
8176   ENDIF
8177   gfdda_end_d = model_config_rec%gfdda_end_d(id_id)
8178   RETURN
8179 END SUBROUTINE nl_get_gfdda_end_d
8180 SUBROUTINE nl_get_gfdda_end_h ( id_id , gfdda_end_h )
8181   integer , INTENT(OUT) :: gfdda_end_h
8182   INTEGER id_id
8183   CHARACTER*80 emess
8184   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8185     WRITE(emess,*)'nl_get_gfdda_end_h: Out of range domain number: ',id_id
8186     CALL wrf_error_fatal(emess)
8187   ENDIF
8188   gfdda_end_h = model_config_rec%gfdda_end_h(id_id)
8189   RETURN
8190 END SUBROUTINE nl_get_gfdda_end_h
8191 SUBROUTINE nl_get_gfdda_end_m ( id_id , gfdda_end_m )
8192   integer , INTENT(OUT) :: gfdda_end_m
8193   INTEGER id_id
8194   CHARACTER*80 emess
8195   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8196     WRITE(emess,*)'nl_get_gfdda_end_m: Out of range domain number: ',id_id
8197     CALL wrf_error_fatal(emess)
8198   ENDIF
8199   gfdda_end_m = model_config_rec%gfdda_end_m(id_id)
8200   RETURN
8201 END SUBROUTINE nl_get_gfdda_end_m
8202 SUBROUTINE nl_get_gfdda_end_s ( id_id , gfdda_end_s )
8203   integer , INTENT(OUT) :: gfdda_end_s
8204   INTEGER id_id
8205   CHARACTER*80 emess
8206   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8207     WRITE(emess,*)'nl_get_gfdda_end_s: Out of range domain number: ',id_id
8208     CALL wrf_error_fatal(emess)
8209   ENDIF
8210   gfdda_end_s = model_config_rec%gfdda_end_s(id_id)
8211   RETURN
8212 END SUBROUTINE nl_get_gfdda_end_s
8213 SUBROUTINE nl_get_auxinput11_end_y ( id_id , auxinput11_end_y )
8214   integer , INTENT(OUT) :: auxinput11_end_y
8215   INTEGER id_id
8216   CHARACTER*80 emess
8217   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8218     WRITE(emess,*)'nl_get_auxinput11_end_y: Out of range domain number: ',id_id
8219     CALL wrf_error_fatal(emess)
8220   ENDIF
8221   auxinput11_end_y = model_config_rec%auxinput11_end_y(id_id)
8222   RETURN
8223 END SUBROUTINE nl_get_auxinput11_end_y
8224 SUBROUTINE nl_get_auxinput11_end_mo ( id_id , auxinput11_end_mo )
8225   integer , INTENT(OUT) :: auxinput11_end_mo
8226   INTEGER id_id
8227   CHARACTER*80 emess
8228   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8229     WRITE(emess,*)'nl_get_auxinput11_end_mo: Out of range domain number: ',id_id
8230     CALL wrf_error_fatal(emess)
8231   ENDIF
8232   auxinput11_end_mo = model_config_rec%auxinput11_end_mo(id_id)
8233   RETURN
8234 END SUBROUTINE nl_get_auxinput11_end_mo
8235 SUBROUTINE nl_get_auxinput11_end_d ( id_id , auxinput11_end_d )
8236   integer , INTENT(OUT) :: auxinput11_end_d
8237   INTEGER id_id
8238   CHARACTER*80 emess
8239   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8240     WRITE(emess,*)'nl_get_auxinput11_end_d: Out of range domain number: ',id_id
8241     CALL wrf_error_fatal(emess)
8242   ENDIF
8243   auxinput11_end_d = model_config_rec%auxinput11_end_d(id_id)
8244   RETURN
8245 END SUBROUTINE nl_get_auxinput11_end_d
8246 SUBROUTINE nl_get_auxinput11_end_h ( id_id , auxinput11_end_h )
8247   integer , INTENT(OUT) :: auxinput11_end_h
8248   INTEGER id_id
8249   CHARACTER*80 emess
8250   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8251     WRITE(emess,*)'nl_get_auxinput11_end_h: Out of range domain number: ',id_id
8252     CALL wrf_error_fatal(emess)
8253   ENDIF
8254   auxinput11_end_h = model_config_rec%auxinput11_end_h(id_id)
8255   RETURN
8256 END SUBROUTINE nl_get_auxinput11_end_h
8257 SUBROUTINE nl_get_auxinput11_end_m ( id_id , auxinput11_end_m )
8258   integer , INTENT(OUT) :: auxinput11_end_m
8259   INTEGER id_id
8260   CHARACTER*80 emess
8261   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8262     WRITE(emess,*)'nl_get_auxinput11_end_m: Out of range domain number: ',id_id
8263     CALL wrf_error_fatal(emess)
8264   ENDIF
8265   auxinput11_end_m = model_config_rec%auxinput11_end_m(id_id)
8266   RETURN
8267 END SUBROUTINE nl_get_auxinput11_end_m
8268 SUBROUTINE nl_get_auxinput11_end_s ( id_id , auxinput11_end_s )
8269   integer , INTENT(OUT) :: auxinput11_end_s
8270   INTEGER id_id
8271   CHARACTER*80 emess
8272   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8273     WRITE(emess,*)'nl_get_auxinput11_end_s: Out of range domain number: ',id_id
8274     CALL wrf_error_fatal(emess)
8275   ENDIF
8276   auxinput11_end_s = model_config_rec%auxinput11_end_s(id_id)
8277   RETURN
8278 END SUBROUTINE nl_get_auxinput11_end_s
8279 SUBROUTINE nl_get_io_form_auxinput1 ( id_id , io_form_auxinput1 )
8280   integer , INTENT(OUT) :: io_form_auxinput1
8281   INTEGER id_id
8282   CHARACTER*80 emess
8283   IF ( id_id .NE. 1 ) THEN
8284     call wrf_debug(1,&
8285 'WARNING in nl_get_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
8286   ENDIF
8287   io_form_auxinput1 = model_config_rec%io_form_auxinput1
8288   RETURN
8289 END SUBROUTINE nl_get_io_form_auxinput1
8290 SUBROUTINE nl_get_io_form_auxinput2 ( id_id , io_form_auxinput2 )
8291   integer , INTENT(OUT) :: io_form_auxinput2
8292   INTEGER id_id
8293   CHARACTER*80 emess
8294   IF ( id_id .NE. 1 ) THEN
8295     call wrf_debug(1,&
8296 'WARNING in nl_get_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
8297   ENDIF
8298   io_form_auxinput2 = model_config_rec%io_form_auxinput2
8299   RETURN
8300 END SUBROUTINE nl_get_io_form_auxinput2
8301 SUBROUTINE nl_get_io_form_auxinput3 ( id_id , io_form_auxinput3 )
8302   integer , INTENT(OUT) :: io_form_auxinput3
8303   INTEGER id_id
8304   CHARACTER*80 emess
8305   IF ( id_id .NE. 1 ) THEN
8306     call wrf_debug(1,&
8307 'WARNING in nl_get_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
8308   ENDIF
8309   io_form_auxinput3 = model_config_rec%io_form_auxinput3
8310   RETURN
8311 END SUBROUTINE nl_get_io_form_auxinput3
8312 SUBROUTINE nl_get_io_form_auxinput4 ( id_id , io_form_auxinput4 )
8313   integer , INTENT(OUT) :: io_form_auxinput4
8314   INTEGER id_id
8315   CHARACTER*80 emess
8316   IF ( id_id .NE. 1 ) THEN
8317     call wrf_debug(1,&
8318 'WARNING in nl_get_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
8319   ENDIF
8320   io_form_auxinput4 = model_config_rec%io_form_auxinput4
8321   RETURN
8322 END SUBROUTINE nl_get_io_form_auxinput4
8323 SUBROUTINE nl_get_io_form_auxinput5 ( id_id , io_form_auxinput5 )
8324   integer , INTENT(OUT) :: io_form_auxinput5
8325   INTEGER id_id
8326   CHARACTER*80 emess
8327   IF ( id_id .NE. 1 ) THEN
8328     call wrf_debug(1,&
8329 'WARNING in nl_get_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
8330   ENDIF
8331   io_form_auxinput5 = model_config_rec%io_form_auxinput5
8332   RETURN
8333 END SUBROUTINE nl_get_io_form_auxinput5
8334 SUBROUTINE nl_get_io_form_auxinput6 ( id_id , io_form_auxinput6 )
8335   integer , INTENT(OUT) :: io_form_auxinput6
8336   INTEGER id_id
8337   CHARACTER*80 emess
8338   IF ( id_id .NE. 1 ) THEN
8339     call wrf_debug(1,&
8340 'WARNING in nl_get_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
8341   ENDIF
8342   io_form_auxinput6 = model_config_rec%io_form_auxinput6
8343   RETURN
8344 END SUBROUTINE nl_get_io_form_auxinput6
8345 SUBROUTINE nl_get_io_form_auxinput7 ( id_id , io_form_auxinput7 )
8346   integer , INTENT(OUT) :: io_form_auxinput7
8347   INTEGER id_id
8348   CHARACTER*80 emess
8349   IF ( id_id .NE. 1 ) THEN
8350     call wrf_debug(1,&
8351 'WARNING in nl_get_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
8352   ENDIF
8353   io_form_auxinput7 = model_config_rec%io_form_auxinput7
8354   RETURN
8355 END SUBROUTINE nl_get_io_form_auxinput7
8356 SUBROUTINE nl_get_io_form_auxinput8 ( id_id , io_form_auxinput8 )
8357   integer , INTENT(OUT) :: io_form_auxinput8
8358   INTEGER id_id
8359   CHARACTER*80 emess
8360   IF ( id_id .NE. 1 ) THEN
8361     call wrf_debug(1,&
8362 'WARNING in nl_get_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
8363   ENDIF
8364   io_form_auxinput8 = model_config_rec%io_form_auxinput8
8365   RETURN
8366 END SUBROUTINE nl_get_io_form_auxinput8
8367 SUBROUTINE nl_get_io_form_auxinput9 ( id_id , io_form_auxinput9 )
8368   integer , INTENT(OUT) :: io_form_auxinput9
8369   INTEGER id_id
8370   CHARACTER*80 emess
8371   IF ( id_id .NE. 1 ) THEN
8372     call wrf_debug(1,&
8373 'WARNING in nl_get_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
8374   ENDIF
8375   io_form_auxinput9 = model_config_rec%io_form_auxinput9
8376   RETURN
8377 END SUBROUTINE nl_get_io_form_auxinput9
8378 SUBROUTINE nl_get_io_form_gfdda ( id_id , io_form_gfdda )
8379   integer , INTENT(OUT) :: io_form_gfdda
8380   INTEGER id_id
8381   CHARACTER*80 emess
8382   IF ( id_id .NE. 1 ) THEN
8383     call wrf_debug(1,&
8384 'WARNING in nl_get_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
8385   ENDIF
8386   io_form_gfdda = model_config_rec%io_form_gfdda
8387   RETURN
8388 END SUBROUTINE nl_get_io_form_gfdda
8389 SUBROUTINE nl_get_io_form_auxinput11 ( id_id , io_form_auxinput11 )
8390   integer , INTENT(OUT) :: io_form_auxinput11
8391   INTEGER id_id
8392   CHARACTER*80 emess
8393   IF ( id_id .NE. 1 ) THEN
8394     call wrf_debug(1,&
8395 'WARNING in nl_get_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
8396   ENDIF
8397   io_form_auxinput11 = model_config_rec%io_form_auxinput11
8398   RETURN
8399 END SUBROUTINE nl_get_io_form_auxinput11
8400 SUBROUTINE nl_get_io_form_auxhist1 ( id_id , io_form_auxhist1 )
8401   integer , INTENT(OUT) :: io_form_auxhist1
8402   INTEGER id_id
8403   CHARACTER*80 emess
8404   IF ( id_id .NE. 1 ) THEN
8405     call wrf_debug(1,&
8406 'WARNING in nl_get_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
8407   ENDIF
8408   io_form_auxhist1 = model_config_rec%io_form_auxhist1
8409   RETURN
8410 END SUBROUTINE nl_get_io_form_auxhist1
8411 SUBROUTINE nl_get_io_form_auxhist2 ( id_id , io_form_auxhist2 )
8412   integer , INTENT(OUT) :: io_form_auxhist2
8413   INTEGER id_id
8414   CHARACTER*80 emess
8415   IF ( id_id .NE. 1 ) THEN
8416     call wrf_debug(1,&
8417 'WARNING in nl_get_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
8418   ENDIF
8419   io_form_auxhist2 = model_config_rec%io_form_auxhist2
8420   RETURN
8421 END SUBROUTINE nl_get_io_form_auxhist2
8422 SUBROUTINE nl_get_io_form_auxhist3 ( id_id , io_form_auxhist3 )
8423   integer , INTENT(OUT) :: io_form_auxhist3
8424   INTEGER id_id
8425   CHARACTER*80 emess
8426   IF ( id_id .NE. 1 ) THEN
8427     call wrf_debug(1,&
8428 'WARNING in nl_get_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
8429   ENDIF
8430   io_form_auxhist3 = model_config_rec%io_form_auxhist3
8431   RETURN
8432 END SUBROUTINE nl_get_io_form_auxhist3
8433 SUBROUTINE nl_get_io_form_auxhist4 ( id_id , io_form_auxhist4 )
8434   integer , INTENT(OUT) :: io_form_auxhist4
8435   INTEGER id_id
8436   CHARACTER*80 emess
8437   IF ( id_id .NE. 1 ) THEN
8438     call wrf_debug(1,&
8439 'WARNING in nl_get_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
8440   ENDIF
8441   io_form_auxhist4 = model_config_rec%io_form_auxhist4
8442   RETURN
8443 END SUBROUTINE nl_get_io_form_auxhist4
8444 SUBROUTINE nl_get_io_form_auxhist5 ( id_id , io_form_auxhist5 )
8445   integer , INTENT(OUT) :: io_form_auxhist5
8446   INTEGER id_id
8447   CHARACTER*80 emess
8448   IF ( id_id .NE. 1 ) THEN
8449     call wrf_debug(1,&
8450 'WARNING in nl_get_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
8451   ENDIF
8452   io_form_auxhist5 = model_config_rec%io_form_auxhist5
8453   RETURN
8454 END SUBROUTINE nl_get_io_form_auxhist5
8455 SUBROUTINE nl_get_io_form_auxhist6 ( id_id , io_form_auxhist6 )
8456   integer , INTENT(OUT) :: io_form_auxhist6
8457   INTEGER id_id
8458   CHARACTER*80 emess
8459   IF ( id_id .NE. 1 ) THEN
8460     call wrf_debug(1,&
8461 'WARNING in nl_get_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
8462   ENDIF
8463   io_form_auxhist6 = model_config_rec%io_form_auxhist6
8464   RETURN
8465 END SUBROUTINE nl_get_io_form_auxhist6
8466 SUBROUTINE nl_get_io_form_auxhist7 ( id_id , io_form_auxhist7 )
8467   integer , INTENT(OUT) :: io_form_auxhist7
8468   INTEGER id_id
8469   CHARACTER*80 emess
8470   IF ( id_id .NE. 1 ) THEN
8471     call wrf_debug(1,&
8472 'WARNING in nl_get_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
8473   ENDIF
8474   io_form_auxhist7 = model_config_rec%io_form_auxhist7
8475   RETURN
8476 END SUBROUTINE nl_get_io_form_auxhist7
8477 SUBROUTINE nl_get_io_form_auxhist8 ( id_id , io_form_auxhist8 )
8478   integer , INTENT(OUT) :: io_form_auxhist8
8479   INTEGER id_id
8480   CHARACTER*80 emess
8481   IF ( id_id .NE. 1 ) THEN
8482     call wrf_debug(1,&
8483 'WARNING in nl_get_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
8484   ENDIF
8485   io_form_auxhist8 = model_config_rec%io_form_auxhist8
8486   RETURN
8487 END SUBROUTINE nl_get_io_form_auxhist8
8488 SUBROUTINE nl_get_io_form_auxhist9 ( id_id , io_form_auxhist9 )
8489   integer , INTENT(OUT) :: io_form_auxhist9
8490   INTEGER id_id
8491   CHARACTER*80 emess
8492   IF ( id_id .NE. 1 ) THEN
8493     call wrf_debug(1,&
8494 'WARNING in nl_get_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
8495   ENDIF
8496   io_form_auxhist9 = model_config_rec%io_form_auxhist9
8497   RETURN
8498 END SUBROUTINE nl_get_io_form_auxhist9
8499 SUBROUTINE nl_get_io_form_auxhist10 ( id_id , io_form_auxhist10 )
8500   integer , INTENT(OUT) :: io_form_auxhist10
8501   INTEGER id_id
8502   CHARACTER*80 emess
8503   IF ( id_id .NE. 1 ) THEN
8504     call wrf_debug(1,&
8505 'WARNING in nl_get_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
8506   ENDIF
8507   io_form_auxhist10 = model_config_rec%io_form_auxhist10
8508   RETURN
8509 END SUBROUTINE nl_get_io_form_auxhist10
8510 SUBROUTINE nl_get_io_form_auxhist11 ( id_id , io_form_auxhist11 )
8511   integer , INTENT(OUT) :: io_form_auxhist11
8512   INTEGER id_id
8513   CHARACTER*80 emess
8514   IF ( id_id .NE. 1 ) THEN
8515     call wrf_debug(1,&
8516 'WARNING in nl_get_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
8517   ENDIF
8518   io_form_auxhist11 = model_config_rec%io_form_auxhist11
8519   RETURN
8520 END SUBROUTINE nl_get_io_form_auxhist11
8521 SUBROUTINE nl_get_simulation_start_year ( id_id , simulation_start_year )
8522   integer , INTENT(OUT) :: simulation_start_year
8523   INTEGER id_id
8524   CHARACTER*80 emess
8525   IF ( id_id .NE. 1 ) THEN
8526     call wrf_debug(1,&
8527 'WARNING in nl_get_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
8528   ENDIF
8529   simulation_start_year = model_config_rec%simulation_start_year
8530   RETURN
8531 END SUBROUTINE nl_get_simulation_start_year
8532 SUBROUTINE nl_get_simulation_start_month ( id_id , simulation_start_month )
8533   integer , INTENT(OUT) :: simulation_start_month
8534   INTEGER id_id
8535   CHARACTER*80 emess
8536   IF ( id_id .NE. 1 ) THEN
8537     call wrf_debug(1,&
8538 'WARNING in nl_get_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
8539   ENDIF
8540   simulation_start_month = model_config_rec%simulation_start_month
8541   RETURN
8542 END SUBROUTINE nl_get_simulation_start_month
8543 SUBROUTINE nl_get_simulation_start_day ( id_id , simulation_start_day )
8544   integer , INTENT(OUT) :: simulation_start_day
8545   INTEGER id_id
8546   CHARACTER*80 emess
8547   IF ( id_id .NE. 1 ) THEN
8548     call wrf_debug(1,&
8549 'WARNING in nl_get_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
8550   ENDIF
8551   simulation_start_day = model_config_rec%simulation_start_day
8552   RETURN
8553 END SUBROUTINE nl_get_simulation_start_day
8554 SUBROUTINE nl_get_simulation_start_hour ( id_id , simulation_start_hour )
8555   integer , INTENT(OUT) :: simulation_start_hour
8556   INTEGER id_id
8557   CHARACTER*80 emess
8558   IF ( id_id .NE. 1 ) THEN
8559     call wrf_debug(1,&
8560 'WARNING in nl_get_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
8561   ENDIF
8562   simulation_start_hour = model_config_rec%simulation_start_hour
8563   RETURN
8564 END SUBROUTINE nl_get_simulation_start_hour
8565 SUBROUTINE nl_get_simulation_start_minute ( id_id , simulation_start_minute )
8566   integer , INTENT(OUT) :: simulation_start_minute
8567   INTEGER id_id
8568   CHARACTER*80 emess
8569   IF ( id_id .NE. 1 ) THEN
8570     call wrf_debug(1,&
8571 'WARNING in nl_get_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
8572   ENDIF
8573   simulation_start_minute = model_config_rec%simulation_start_minute
8574   RETURN
8575 END SUBROUTINE nl_get_simulation_start_minute
8576 SUBROUTINE nl_get_simulation_start_second ( id_id , simulation_start_second )
8577   integer , INTENT(OUT) :: simulation_start_second
8578   INTEGER id_id
8579   CHARACTER*80 emess
8580   IF ( id_id .NE. 1 ) THEN
8581     call wrf_debug(1,&
8582 'WARNING in nl_get_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
8583   ENDIF
8584   simulation_start_second = model_config_rec%simulation_start_second
8585   RETURN
8586 END SUBROUTINE nl_get_simulation_start_second
8587 SUBROUTINE nl_get_reset_simulation_start ( id_id , reset_simulation_start )
8588   logical , INTENT(OUT) :: reset_simulation_start
8589   INTEGER id_id
8590   CHARACTER*80 emess
8591   IF ( id_id .NE. 1 ) THEN
8592     call wrf_debug(1,&
8593 'WARNING in nl_get_reset_simulation_start: reset_simulation_start applies to all domains. First arg ignored.')
8594   ENDIF
8595   reset_simulation_start = model_config_rec%reset_simulation_start
8596   RETURN
8597 END SUBROUTINE nl_get_reset_simulation_start
8598 SUBROUTINE nl_get_sr_x ( id_id , sr_x )
8599   integer , INTENT(OUT) :: sr_x
8600   INTEGER id_id
8601   CHARACTER*80 emess
8602   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8603     WRITE(emess,*)'nl_get_sr_x: Out of range domain number: ',id_id
8604     CALL wrf_error_fatal(emess)
8605   ENDIF
8606   sr_x = model_config_rec%sr_x(id_id)
8607   RETURN
8608 END SUBROUTINE nl_get_sr_x
8609 SUBROUTINE nl_get_sr_y ( id_id , sr_y )
8610   integer , INTENT(OUT) :: sr_y
8611   INTEGER id_id
8612   CHARACTER*80 emess
8613   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8614     WRITE(emess,*)'nl_get_sr_y: Out of range domain number: ',id_id
8615     CALL wrf_error_fatal(emess)
8616   ENDIF
8617   sr_y = model_config_rec%sr_y(id_id)
8618   RETURN
8619 END SUBROUTINE nl_get_sr_y
8620 SUBROUTINE nl_get_julyr ( id_id , julyr )
8621   integer , INTENT(OUT) :: julyr
8622   INTEGER id_id
8623   CHARACTER*80 emess
8624   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8625     WRITE(emess,*)'nl_get_julyr: Out of range domain number: ',id_id
8626     CALL wrf_error_fatal(emess)
8627   ENDIF
8628   julyr = model_config_rec%julyr(id_id)
8629   RETURN
8630 END SUBROUTINE nl_get_julyr
8631 SUBROUTINE nl_get_julday ( id_id , julday )
8632   integer , INTENT(OUT) :: julday
8633   INTEGER id_id
8634   CHARACTER*80 emess
8635   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8636     WRITE(emess,*)'nl_get_julday: Out of range domain number: ',id_id
8637     CALL wrf_error_fatal(emess)
8638   ENDIF
8639   julday = model_config_rec%julday(id_id)
8640   RETURN
8641 END SUBROUTINE nl_get_julday
8642 SUBROUTINE nl_get_gmt ( id_id , gmt )
8643   real , INTENT(OUT) :: gmt
8644   INTEGER id_id
8645   CHARACTER*80 emess
8646   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8647     WRITE(emess,*)'nl_get_gmt: Out of range domain number: ',id_id
8648     CALL wrf_error_fatal(emess)
8649   ENDIF
8650   gmt = model_config_rec%gmt(id_id)
8651   RETURN
8652 END SUBROUTINE nl_get_gmt
8653 SUBROUTINE nl_get_input_inname ( id_id , input_inname )
8654   character*256 , INTENT(OUT) :: input_inname
8655   INTEGER id_id
8656   CHARACTER*80 emess
8657   IF ( id_id .NE. 1 ) THEN
8658     call wrf_debug(1,&
8659 'WARNING in nl_get_input_inname: input_inname applies to all domains. First arg ignored.')
8660   ENDIF
8661   input_inname = trim(model_config_rec%input_inname)
8662   RETURN
8663 END SUBROUTINE nl_get_input_inname
8664 SUBROUTINE nl_get_input_outname ( id_id , input_outname )
8665   character*256 , INTENT(OUT) :: input_outname
8666   INTEGER id_id
8667   CHARACTER*80 emess
8668   IF ( id_id .NE. 1 ) THEN
8669     call wrf_debug(1,&
8670 'WARNING in nl_get_input_outname: input_outname applies to all domains. First arg ignored.')
8671   ENDIF
8672   input_outname = trim(model_config_rec%input_outname)
8673   RETURN
8674 END SUBROUTINE nl_get_input_outname
8675 SUBROUTINE nl_get_bdy_inname ( id_id , bdy_inname )
8676   character*256 , INTENT(OUT) :: bdy_inname
8677   INTEGER id_id
8678   CHARACTER*80 emess
8679   IF ( id_id .NE. 1 ) THEN
8680     call wrf_debug(1,&
8681 'WARNING in nl_get_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
8682   ENDIF
8683   bdy_inname = trim(model_config_rec%bdy_inname)
8684   RETURN
8685 END SUBROUTINE nl_get_bdy_inname
8686 SUBROUTINE nl_get_bdy_outname ( id_id , bdy_outname )
8687   character*256 , INTENT(OUT) :: bdy_outname
8688   INTEGER id_id
8689   CHARACTER*80 emess
8690   IF ( id_id .NE. 1 ) THEN
8691     call wrf_debug(1,&
8692 'WARNING in nl_get_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
8693   ENDIF
8694   bdy_outname = trim(model_config_rec%bdy_outname)
8695   RETURN
8696 END SUBROUTINE nl_get_bdy_outname
8697 SUBROUTINE nl_get_rst_inname ( id_id , rst_inname )
8698   character*256 , INTENT(OUT) :: rst_inname
8699   INTEGER id_id
8700   CHARACTER*80 emess
8701   IF ( id_id .NE. 1 ) THEN
8702     call wrf_debug(1,&
8703 'WARNING in nl_get_rst_inname: rst_inname applies to all domains. First arg ignored.')
8704   ENDIF
8705   rst_inname = trim(model_config_rec%rst_inname)
8706   RETURN
8707 END SUBROUTINE nl_get_rst_inname
8708 SUBROUTINE nl_get_rst_outname ( id_id , rst_outname )
8709   character*256 , INTENT(OUT) :: rst_outname
8710   INTEGER id_id
8711   CHARACTER*80 emess
8712   IF ( id_id .NE. 1 ) THEN
8713     call wrf_debug(1,&
8714 'WARNING in nl_get_rst_outname: rst_outname applies to all domains. First arg ignored.')
8715   ENDIF
8716   rst_outname = trim(model_config_rec%rst_outname)
8717   RETURN
8718 END SUBROUTINE nl_get_rst_outname
8719 SUBROUTINE nl_get_write_input ( id_id , write_input )
8720   logical , INTENT(OUT) :: write_input
8721   INTEGER id_id
8722   CHARACTER*80 emess
8723   IF ( id_id .NE. 1 ) THEN
8724     call wrf_debug(1,&
8725 'WARNING in nl_get_write_input: write_input applies to all domains. First arg ignored.')
8726   ENDIF
8727   write_input = model_config_rec%write_input
8728   RETURN
8729 END SUBROUTINE nl_get_write_input
8730 SUBROUTINE nl_get_write_restart_at_0h ( id_id , write_restart_at_0h )
8731   logical , INTENT(OUT) :: write_restart_at_0h
8732   INTEGER id_id
8733   CHARACTER*80 emess
8734   IF ( id_id .NE. 1 ) THEN
8735     call wrf_debug(1,&
8736 'WARNING in nl_get_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
8737   ENDIF
8738   write_restart_at_0h = model_config_rec%write_restart_at_0h
8739   RETURN
8740 END SUBROUTINE nl_get_write_restart_at_0h
8741 SUBROUTINE nl_get_adjust_output_times ( id_id , adjust_output_times )
8742   logical , INTENT(OUT) :: adjust_output_times
8743   INTEGER id_id
8744   CHARACTER*80 emess
8745   IF ( id_id .NE. 1 ) THEN
8746     call wrf_debug(1,&
8747 'WARNING in nl_get_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
8748   ENDIF
8749   adjust_output_times = model_config_rec%adjust_output_times
8750   RETURN
8751 END SUBROUTINE nl_get_adjust_output_times
8752 SUBROUTINE nl_get_adjust_input_times ( id_id , adjust_input_times )
8753   logical , INTENT(OUT) :: adjust_input_times
8754   INTEGER id_id
8755   CHARACTER*80 emess
8756   IF ( id_id .NE. 1 ) THEN
8757     call wrf_debug(1,&
8758 'WARNING in nl_get_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
8759   ENDIF
8760   adjust_input_times = model_config_rec%adjust_input_times
8761   RETURN
8762 END SUBROUTINE nl_get_adjust_input_times
8763 SUBROUTINE nl_get_diag_print ( id_id , diag_print )
8764   integer , INTENT(OUT) :: diag_print
8765   INTEGER id_id
8766   CHARACTER*80 emess
8767   IF ( id_id .NE. 1 ) THEN
8768     call wrf_debug(1,&
8769 'WARNING in nl_get_diag_print: diag_print applies to all domains. First arg ignored.')
8770   ENDIF
8771   diag_print = model_config_rec%diag_print
8772   RETURN
8773 END SUBROUTINE nl_get_diag_print
8774 SUBROUTINE nl_get_nocolons ( id_id , nocolons )
8775   logical , INTENT(OUT) :: nocolons
8776   INTEGER id_id
8777   CHARACTER*80 emess
8778   IF ( id_id .NE. 1 ) THEN
8779     call wrf_debug(1,&
8780 'WARNING in nl_get_nocolons: nocolons applies to all domains. First arg ignored.')
8781   ENDIF
8782   nocolons = model_config_rec%nocolons
8783   RETURN
8784 END SUBROUTINE nl_get_nocolons
8785 SUBROUTINE nl_get_time_step ( id_id , time_step )
8786   integer , INTENT(OUT) :: time_step
8787   INTEGER id_id
8788   CHARACTER*80 emess
8789   IF ( id_id .NE. 1 ) THEN
8790     call wrf_debug(1,&
8791 'WARNING in nl_get_time_step: time_step applies to all domains. First arg ignored.')
8792   ENDIF
8793   time_step = model_config_rec%time_step
8794   RETURN
8795 END SUBROUTINE nl_get_time_step
8796 SUBROUTINE nl_get_time_step_fract_num ( id_id , time_step_fract_num )
8797   integer , INTENT(OUT) :: time_step_fract_num
8798   INTEGER id_id
8799   CHARACTER*80 emess
8800   IF ( id_id .NE. 1 ) THEN
8801     call wrf_debug(1,&
8802 'WARNING in nl_get_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
8803   ENDIF
8804   time_step_fract_num = model_config_rec%time_step_fract_num
8805   RETURN
8806 END SUBROUTINE nl_get_time_step_fract_num
8807 SUBROUTINE nl_get_time_step_fract_den ( id_id , time_step_fract_den )
8808   integer , INTENT(OUT) :: time_step_fract_den
8809   INTEGER id_id
8810   CHARACTER*80 emess
8811   IF ( id_id .NE. 1 ) THEN
8812     call wrf_debug(1,&
8813 'WARNING in nl_get_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
8814   ENDIF
8815   time_step_fract_den = model_config_rec%time_step_fract_den
8816   RETURN
8817 END SUBROUTINE nl_get_time_step_fract_den
8818 SUBROUTINE nl_get_max_dom ( id_id , max_dom )
8819   integer , INTENT(OUT) :: max_dom
8820   INTEGER id_id
8821   CHARACTER*80 emess
8822   IF ( id_id .NE. 1 ) THEN
8823     call wrf_debug(1,&
8824 'WARNING in nl_get_max_dom: max_dom applies to all domains. First arg ignored.')
8825   ENDIF
8826   max_dom = model_config_rec%max_dom
8827   RETURN
8828 END SUBROUTINE nl_get_max_dom
8829 SUBROUTINE nl_get_s_we ( id_id , s_we )
8830   integer , INTENT(OUT) :: s_we
8831   INTEGER id_id
8832   CHARACTER*80 emess
8833   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8834     WRITE(emess,*)'nl_get_s_we: Out of range domain number: ',id_id
8835     CALL wrf_error_fatal(emess)
8836   ENDIF
8837   s_we = model_config_rec%s_we(id_id)
8838   RETURN
8839 END SUBROUTINE nl_get_s_we
8840 SUBROUTINE nl_get_e_we ( id_id , e_we )
8841   integer , INTENT(OUT) :: e_we
8842   INTEGER id_id
8843   CHARACTER*80 emess
8844   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8845     WRITE(emess,*)'nl_get_e_we: Out of range domain number: ',id_id
8846     CALL wrf_error_fatal(emess)
8847   ENDIF
8848   e_we = model_config_rec%e_we(id_id)
8849   RETURN
8850 END SUBROUTINE nl_get_e_we
8851 SUBROUTINE nl_get_s_sn ( id_id , s_sn )
8852   integer , INTENT(OUT) :: s_sn
8853   INTEGER id_id
8854   CHARACTER*80 emess
8855   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8856     WRITE(emess,*)'nl_get_s_sn: Out of range domain number: ',id_id
8857     CALL wrf_error_fatal(emess)
8858   ENDIF
8859   s_sn = model_config_rec%s_sn(id_id)
8860   RETURN
8861 END SUBROUTINE nl_get_s_sn
8862 SUBROUTINE nl_get_e_sn ( id_id , e_sn )
8863   integer , INTENT(OUT) :: e_sn
8864   INTEGER id_id
8865   CHARACTER*80 emess
8866   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8867     WRITE(emess,*)'nl_get_e_sn: Out of range domain number: ',id_id
8868     CALL wrf_error_fatal(emess)
8869   ENDIF
8870   e_sn = model_config_rec%e_sn(id_id)
8871   RETURN
8872 END SUBROUTINE nl_get_e_sn
8873 SUBROUTINE nl_get_s_vert ( id_id , s_vert )
8874   integer , INTENT(OUT) :: s_vert
8875   INTEGER id_id
8876   CHARACTER*80 emess
8877   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8878     WRITE(emess,*)'nl_get_s_vert: Out of range domain number: ',id_id
8879     CALL wrf_error_fatal(emess)
8880   ENDIF
8881   s_vert = model_config_rec%s_vert(id_id)
8882   RETURN
8883 END SUBROUTINE nl_get_s_vert
8884 SUBROUTINE nl_get_e_vert ( id_id , e_vert )
8885   integer , INTENT(OUT) :: e_vert
8886   INTEGER id_id
8887   CHARACTER*80 emess
8888   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8889     WRITE(emess,*)'nl_get_e_vert: Out of range domain number: ',id_id
8890     CALL wrf_error_fatal(emess)
8891   ENDIF
8892   e_vert = model_config_rec%e_vert(id_id)
8893   RETURN
8894 END SUBROUTINE nl_get_e_vert
8895 SUBROUTINE nl_get_num_metgrid_levels ( id_id , num_metgrid_levels )
8896   integer , INTENT(OUT) :: num_metgrid_levels
8897   INTEGER id_id
8898   CHARACTER*80 emess
8899   IF ( id_id .NE. 1 ) THEN
8900     call wrf_debug(1,&
8901 'WARNING in nl_get_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
8902   ENDIF
8903   num_metgrid_levels = model_config_rec%num_metgrid_levels
8904   RETURN
8905 END SUBROUTINE nl_get_num_metgrid_levels
8906 SUBROUTINE nl_get_p_top_requested ( id_id , p_top_requested )
8907   real , INTENT(OUT) :: p_top_requested
8908   INTEGER id_id
8909   CHARACTER*80 emess
8910   IF ( id_id .NE. 1 ) THEN
8911     call wrf_debug(1,&
8912 'WARNING in nl_get_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
8913   ENDIF
8914   p_top_requested = model_config_rec%p_top_requested
8915   RETURN
8916 END SUBROUTINE nl_get_p_top_requested
8917 SUBROUTINE nl_get_interp_type ( id_id , interp_type )
8918   integer , INTENT(OUT) :: interp_type
8919   INTEGER id_id
8920   CHARACTER*80 emess
8921   IF ( id_id .NE. 1 ) THEN
8922     call wrf_debug(1,&
8923 'WARNING in nl_get_interp_type: interp_type applies to all domains. First arg ignored.')
8924   ENDIF
8925   interp_type = model_config_rec%interp_type
8926   RETURN
8927 END SUBROUTINE nl_get_interp_type
8928 SUBROUTINE nl_get_extrap_type ( id_id , extrap_type )
8929   integer , INTENT(OUT) :: extrap_type
8930   INTEGER id_id
8931   CHARACTER*80 emess
8932   IF ( id_id .NE. 1 ) THEN
8933     call wrf_debug(1,&
8934 'WARNING in nl_get_extrap_type: extrap_type applies to all domains. First arg ignored.')
8935   ENDIF
8936   extrap_type = model_config_rec%extrap_type
8937   RETURN
8938 END SUBROUTINE nl_get_extrap_type
8939 SUBROUTINE nl_get_t_extrap_type ( id_id , t_extrap_type )
8940   integer , INTENT(OUT) :: t_extrap_type
8941   INTEGER id_id
8942   CHARACTER*80 emess
8943   IF ( id_id .NE. 1 ) THEN
8944     call wrf_debug(1,&
8945 'WARNING in nl_get_t_extrap_type: t_extrap_type applies to all domains. First arg ignored.')
8946   ENDIF
8947   t_extrap_type = model_config_rec%t_extrap_type
8948   RETURN
8949 END SUBROUTINE nl_get_t_extrap_type
8950 SUBROUTINE nl_get_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
8951   logical , INTENT(OUT) :: lowest_lev_from_sfc
8952   INTEGER id_id
8953   CHARACTER*80 emess
8954   IF ( id_id .NE. 1 ) THEN
8955     call wrf_debug(1,&
8956 'WARNING in nl_get_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
8957   ENDIF
8958   lowest_lev_from_sfc = model_config_rec%lowest_lev_from_sfc
8959   RETURN
8960 END SUBROUTINE nl_get_lowest_lev_from_sfc
8961 SUBROUTINE nl_get_use_levels_below_ground ( id_id , use_levels_below_ground )
8962   logical , INTENT(OUT) :: use_levels_below_ground
8963   INTEGER id_id
8964   CHARACTER*80 emess
8965   IF ( id_id .NE. 1 ) THEN
8966     call wrf_debug(1,&
8967 'WARNING in nl_get_use_levels_below_ground: use_levels_below_ground applies to all domains. First arg ignored.')
8968   ENDIF
8969   use_levels_below_ground = model_config_rec%use_levels_below_ground
8970   RETURN
8971 END SUBROUTINE nl_get_use_levels_below_ground
8972 SUBROUTINE nl_get_use_surface ( id_id , use_surface )
8973   logical , INTENT(OUT) :: use_surface
8974   INTEGER id_id
8975   CHARACTER*80 emess
8976   IF ( id_id .NE. 1 ) THEN
8977     call wrf_debug(1,&
8978 'WARNING in nl_get_use_surface: use_surface applies to all domains. First arg ignored.')
8979   ENDIF
8980   use_surface = model_config_rec%use_surface
8981   RETURN
8982 END SUBROUTINE nl_get_use_surface
8983 SUBROUTINE nl_get_lagrange_order ( id_id , lagrange_order )
8984   integer , INTENT(OUT) :: lagrange_order
8985   INTEGER id_id
8986   CHARACTER*80 emess
8987   IF ( id_id .NE. 1 ) THEN
8988     call wrf_debug(1,&
8989 'WARNING in nl_get_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
8990   ENDIF
8991   lagrange_order = model_config_rec%lagrange_order
8992   RETURN
8993 END SUBROUTINE nl_get_lagrange_order
8994 SUBROUTINE nl_get_force_sfc_in_vinterp ( id_id , force_sfc_in_vinterp )
8995   integer , INTENT(OUT) :: force_sfc_in_vinterp
8996   INTEGER id_id
8997   CHARACTER*80 emess
8998   IF ( id_id .NE. 1 ) THEN
8999     call wrf_debug(1,&
9000 'WARNING in nl_get_force_sfc_in_vinterp: force_sfc_in_vinterp applies to all domains. First arg ignored.')
9001   ENDIF
9002   force_sfc_in_vinterp = model_config_rec%force_sfc_in_vinterp
9003   RETURN
9004 END SUBROUTINE nl_get_force_sfc_in_vinterp
9005 SUBROUTINE nl_get_zap_close_levels ( id_id , zap_close_levels )
9006   real , INTENT(OUT) :: zap_close_levels
9007   INTEGER id_id
9008   CHARACTER*80 emess
9009   IF ( id_id .NE. 1 ) THEN
9010     call wrf_debug(1,&
9011 'WARNING in nl_get_zap_close_levels: zap_close_levels applies to all domains. First arg ignored.')
9012   ENDIF
9013   zap_close_levels = model_config_rec%zap_close_levels
9014   RETURN
9015 END SUBROUTINE nl_get_zap_close_levels
9016 SUBROUTINE nl_get_sfcp_to_sfcp ( id_id , sfcp_to_sfcp )
9017   logical , INTENT(OUT) :: sfcp_to_sfcp
9018   INTEGER id_id
9019   CHARACTER*80 emess
9020   IF ( id_id .NE. 1 ) THEN
9021     call wrf_debug(1,&
9022 'WARNING in nl_get_sfcp_to_sfcp: sfcp_to_sfcp applies to all domains. First arg ignored.')
9023   ENDIF
9024   sfcp_to_sfcp = model_config_rec%sfcp_to_sfcp
9025   RETURN
9026 END SUBROUTINE nl_get_sfcp_to_sfcp
9027 SUBROUTINE nl_get_adjust_heights ( id_id , adjust_heights )
9028   logical , INTENT(OUT) :: adjust_heights
9029   INTEGER id_id
9030   CHARACTER*80 emess
9031   IF ( id_id .NE. 1 ) THEN
9032     call wrf_debug(1,&
9033 'WARNING in nl_get_adjust_heights: adjust_heights applies to all domains. First arg ignored.')
9034   ENDIF
9035   adjust_heights = model_config_rec%adjust_heights
9036   RETURN
9037 END SUBROUTINE nl_get_adjust_heights
9038 SUBROUTINE nl_get_dx ( id_id , dx )
9039   real , INTENT(OUT) :: dx
9040   INTEGER id_id
9041   CHARACTER*80 emess
9042   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9043     WRITE(emess,*)'nl_get_dx: Out of range domain number: ',id_id
9044     CALL wrf_error_fatal(emess)
9045   ENDIF
9046   dx = model_config_rec%dx(id_id)
9047   RETURN
9048 END SUBROUTINE nl_get_dx
9049 SUBROUTINE nl_get_dy ( id_id , dy )
9050   real , INTENT(OUT) :: dy
9051   INTEGER id_id
9052   CHARACTER*80 emess
9053   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9054     WRITE(emess,*)'nl_get_dy: Out of range domain number: ',id_id
9055     CALL wrf_error_fatal(emess)
9056   ENDIF
9057   dy = model_config_rec%dy(id_id)
9058   RETURN
9059 END SUBROUTINE nl_get_dy
9060 SUBROUTINE nl_get_grid_id ( id_id , grid_id )
9061   integer , INTENT(OUT) :: grid_id
9062   INTEGER id_id
9063   CHARACTER*80 emess
9064   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9065     WRITE(emess,*)'nl_get_grid_id: Out of range domain number: ',id_id
9066     CALL wrf_error_fatal(emess)
9067   ENDIF
9068   grid_id = model_config_rec%grid_id(id_id)
9069   RETURN
9070 END SUBROUTINE nl_get_grid_id
9071 SUBROUTINE nl_get_parent_id ( id_id , parent_id )
9072   integer , INTENT(OUT) :: parent_id
9073   INTEGER id_id
9074   CHARACTER*80 emess
9075   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9076     WRITE(emess,*)'nl_get_parent_id: Out of range domain number: ',id_id
9077     CALL wrf_error_fatal(emess)
9078   ENDIF
9079   parent_id = model_config_rec%parent_id(id_id)
9080   RETURN
9081 END SUBROUTINE nl_get_parent_id
9082 SUBROUTINE nl_get_i_parent_start ( id_id , i_parent_start )
9083   integer , INTENT(OUT) :: i_parent_start
9084   INTEGER id_id
9085   CHARACTER*80 emess
9086   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9087     WRITE(emess,*)'nl_get_i_parent_start: Out of range domain number: ',id_id
9088     CALL wrf_error_fatal(emess)
9089   ENDIF
9090   i_parent_start = model_config_rec%i_parent_start(id_id)
9091   RETURN
9092 END SUBROUTINE nl_get_i_parent_start
9093 SUBROUTINE nl_get_j_parent_start ( id_id , j_parent_start )
9094   integer , INTENT(OUT) :: j_parent_start
9095   INTEGER id_id
9096   CHARACTER*80 emess
9097   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9098     WRITE(emess,*)'nl_get_j_parent_start: Out of range domain number: ',id_id
9099     CALL wrf_error_fatal(emess)
9100   ENDIF
9101   j_parent_start = model_config_rec%j_parent_start(id_id)
9102   RETURN
9103 END SUBROUTINE nl_get_j_parent_start
9104 SUBROUTINE nl_get_parent_grid_ratio ( id_id , parent_grid_ratio )
9105   integer , INTENT(OUT) :: parent_grid_ratio
9106   INTEGER id_id
9107   CHARACTER*80 emess
9108   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9109     WRITE(emess,*)'nl_get_parent_grid_ratio: Out of range domain number: ',id_id
9110     CALL wrf_error_fatal(emess)
9111   ENDIF
9112   parent_grid_ratio = model_config_rec%parent_grid_ratio(id_id)
9113   RETURN
9114 END SUBROUTINE nl_get_parent_grid_ratio
9115 SUBROUTINE nl_get_parent_time_step_ratio ( id_id , parent_time_step_ratio )
9116   integer , INTENT(OUT) :: parent_time_step_ratio
9117   INTEGER id_id
9118   CHARACTER*80 emess
9119   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9120     WRITE(emess,*)'nl_get_parent_time_step_ratio: Out of range domain number: ',id_id
9121     CALL wrf_error_fatal(emess)
9122   ENDIF
9123   parent_time_step_ratio = model_config_rec%parent_time_step_ratio(id_id)
9124   RETURN
9125 END SUBROUTINE nl_get_parent_time_step_ratio
9126 SUBROUTINE nl_get_feedback ( id_id , feedback )
9127   integer , INTENT(OUT) :: feedback
9128   INTEGER id_id
9129   CHARACTER*80 emess
9130   IF ( id_id .NE. 1 ) THEN
9131     call wrf_debug(1,&
9132 'WARNING in nl_get_feedback: feedback applies to all domains. First arg ignored.')
9133   ENDIF
9134   feedback = model_config_rec%feedback
9135   RETURN
9136 END SUBROUTINE nl_get_feedback
9137 SUBROUTINE nl_get_smooth_option ( id_id , smooth_option )
9138   integer , INTENT(OUT) :: smooth_option
9139   INTEGER id_id
9140   CHARACTER*80 emess
9141   IF ( id_id .NE. 1 ) THEN
9142     call wrf_debug(1,&
9143 'WARNING in nl_get_smooth_option: smooth_option applies to all domains. First arg ignored.')
9144   ENDIF
9145   smooth_option = model_config_rec%smooth_option
9146   RETURN
9147 END SUBROUTINE nl_get_smooth_option
9148 SUBROUTINE nl_get_blend_width ( id_id , blend_width )
9149   integer , INTENT(OUT) :: blend_width
9150   INTEGER id_id
9151   CHARACTER*80 emess
9152   IF ( id_id .NE. 1 ) THEN
9153     call wrf_debug(1,&
9154 'WARNING in nl_get_blend_width: blend_width applies to all domains. First arg ignored.')
9155   ENDIF
9156   blend_width = model_config_rec%blend_width
9157   RETURN
9158 END SUBROUTINE nl_get_blend_width
9159 SUBROUTINE nl_get_ztop ( id_id , ztop )
9160   real , INTENT(OUT) :: ztop
9161   INTEGER id_id
9162   CHARACTER*80 emess
9163   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9164     WRITE(emess,*)'nl_get_ztop: Out of range domain number: ',id_id
9165     CALL wrf_error_fatal(emess)
9166   ENDIF
9167   ztop = model_config_rec%ztop(id_id)
9168   RETURN
9169 END SUBROUTINE nl_get_ztop
9170 SUBROUTINE nl_get_moad_grid_ratio ( id_id , moad_grid_ratio )
9171   integer , INTENT(OUT) :: moad_grid_ratio
9172   INTEGER id_id
9173   CHARACTER*80 emess
9174   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9175     WRITE(emess,*)'nl_get_moad_grid_ratio: Out of range domain number: ',id_id
9176     CALL wrf_error_fatal(emess)
9177   ENDIF
9178   moad_grid_ratio = model_config_rec%moad_grid_ratio(id_id)
9179   RETURN
9180 END SUBROUTINE nl_get_moad_grid_ratio
9181 SUBROUTINE nl_get_moad_time_step_ratio ( id_id , moad_time_step_ratio )
9182   integer , INTENT(OUT) :: moad_time_step_ratio
9183   INTEGER id_id
9184   CHARACTER*80 emess
9185   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9186     WRITE(emess,*)'nl_get_moad_time_step_ratio: Out of range domain number: ',id_id
9187     CALL wrf_error_fatal(emess)
9188   ENDIF
9189   moad_time_step_ratio = model_config_rec%moad_time_step_ratio(id_id)
9190   RETURN
9191 END SUBROUTINE nl_get_moad_time_step_ratio
9192 SUBROUTINE nl_get_shw ( id_id , shw )
9193   integer , INTENT(OUT) :: shw
9194   INTEGER id_id
9195   CHARACTER*80 emess
9196   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9197     WRITE(emess,*)'nl_get_shw: Out of range domain number: ',id_id
9198     CALL wrf_error_fatal(emess)
9199   ENDIF
9200   shw = model_config_rec%shw(id_id)
9201   RETURN
9202 END SUBROUTINE nl_get_shw
9203 SUBROUTINE nl_get_tile_sz_x ( id_id , tile_sz_x )
9204   integer , INTENT(OUT) :: tile_sz_x
9205   INTEGER id_id
9206   CHARACTER*80 emess
9207   IF ( id_id .NE. 1 ) THEN
9208     call wrf_debug(1,&
9209 'WARNING in nl_get_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
9210   ENDIF
9211   tile_sz_x = model_config_rec%tile_sz_x
9212   RETURN
9213 END SUBROUTINE nl_get_tile_sz_x
9214 SUBROUTINE nl_get_tile_sz_y ( id_id , tile_sz_y )
9215   integer , INTENT(OUT) :: tile_sz_y
9216   INTEGER id_id
9217   CHARACTER*80 emess
9218   IF ( id_id .NE. 1 ) THEN
9219     call wrf_debug(1,&
9220 'WARNING in nl_get_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
9221   ENDIF
9222   tile_sz_y = model_config_rec%tile_sz_y
9223   RETURN
9224 END SUBROUTINE nl_get_tile_sz_y
9225 SUBROUTINE nl_get_numtiles ( id_id , numtiles )
9226   integer , INTENT(OUT) :: numtiles
9227   INTEGER id_id
9228   CHARACTER*80 emess
9229   IF ( id_id .NE. 1 ) THEN
9230     call wrf_debug(1,&
9231 'WARNING in nl_get_numtiles: numtiles applies to all domains. First arg ignored.')
9232   ENDIF
9233   numtiles = model_config_rec%numtiles
9234   RETURN
9235 END SUBROUTINE nl_get_numtiles
9236 SUBROUTINE nl_get_nproc_x ( id_id , nproc_x )
9237   integer , INTENT(OUT) :: nproc_x
9238   INTEGER id_id
9239   CHARACTER*80 emess
9240   IF ( id_id .NE. 1 ) THEN
9241     call wrf_debug(1,&
9242 'WARNING in nl_get_nproc_x: nproc_x applies to all domains. First arg ignored.')
9243   ENDIF
9244   nproc_x = model_config_rec%nproc_x
9245   RETURN
9246 END SUBROUTINE nl_get_nproc_x
9247 SUBROUTINE nl_get_nproc_y ( id_id , nproc_y )
9248   integer , INTENT(OUT) :: nproc_y
9249   INTEGER id_id
9250   CHARACTER*80 emess
9251   IF ( id_id .NE. 1 ) THEN
9252     call wrf_debug(1,&
9253 'WARNING in nl_get_nproc_y: nproc_y applies to all domains. First arg ignored.')
9254   ENDIF
9255   nproc_y = model_config_rec%nproc_y
9256   RETURN
9257 END SUBROUTINE nl_get_nproc_y
9258 SUBROUTINE nl_get_irand ( id_id , irand )
9259   integer , INTENT(OUT) :: irand
9260   INTEGER id_id
9261   CHARACTER*80 emess
9262   IF ( id_id .NE. 1 ) THEN
9263     call wrf_debug(1,&
9264 'WARNING in nl_get_irand: irand applies to all domains. First arg ignored.')
9265   ENDIF
9266   irand = model_config_rec%irand
9267   RETURN
9268 END SUBROUTINE nl_get_irand
9269 SUBROUTINE nl_get_dt ( id_id , dt )
9270   real , INTENT(OUT) :: dt
9271   INTEGER id_id
9272   CHARACTER*80 emess
9273   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9274     WRITE(emess,*)'nl_get_dt: Out of range domain number: ',id_id
9275     CALL wrf_error_fatal(emess)
9276   ENDIF
9277   dt = model_config_rec%dt(id_id)
9278   RETURN
9279 END SUBROUTINE nl_get_dt
9280 SUBROUTINE nl_get_num_moves ( id_id , num_moves )
9281   integer , INTENT(OUT) :: num_moves
9282   INTEGER id_id
9283   CHARACTER*80 emess
9284   IF ( id_id .NE. 1 ) THEN
9285     call wrf_debug(1,&
9286 'WARNING in nl_get_num_moves: num_moves applies to all domains. First arg ignored.')
9287   ENDIF
9288   num_moves = model_config_rec%num_moves
9289   RETURN
9290 END SUBROUTINE nl_get_num_moves
9291 SUBROUTINE nl_get_vortex_interval ( id_id , vortex_interval )
9292   integer , INTENT(OUT) :: vortex_interval
9293   INTEGER id_id
9294   CHARACTER*80 emess
9295   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9296     WRITE(emess,*)'nl_get_vortex_interval: Out of range domain number: ',id_id
9297     CALL wrf_error_fatal(emess)
9298   ENDIF
9299   vortex_interval = model_config_rec%vortex_interval(id_id)
9300   RETURN
9301 END SUBROUTINE nl_get_vortex_interval
9302 SUBROUTINE nl_get_max_vortex_speed ( id_id , max_vortex_speed )
9303   integer , INTENT(OUT) :: max_vortex_speed
9304   INTEGER id_id
9305   CHARACTER*80 emess
9306   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9307     WRITE(emess,*)'nl_get_max_vortex_speed: Out of range domain number: ',id_id
9308     CALL wrf_error_fatal(emess)
9309   ENDIF
9310   max_vortex_speed = model_config_rec%max_vortex_speed(id_id)
9311   RETURN
9312 END SUBROUTINE nl_get_max_vortex_speed
9313 SUBROUTINE nl_get_corral_dist ( id_id , corral_dist )
9314   integer , INTENT(OUT) :: corral_dist
9315   INTEGER id_id
9316   CHARACTER*80 emess
9317   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9318     WRITE(emess,*)'nl_get_corral_dist: Out of range domain number: ',id_id
9319     CALL wrf_error_fatal(emess)
9320   ENDIF
9321   corral_dist = model_config_rec%corral_dist(id_id)
9322   RETURN
9323 END SUBROUTINE nl_get_corral_dist
9324 SUBROUTINE nl_get_move_id ( id_id , move_id )
9325   integer , INTENT(OUT) :: move_id
9326   INTEGER id_id
9327   CHARACTER*80 emess
9328   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9329     WRITE(emess,*)'nl_get_move_id: Out of range move number: ',id_id
9330     CALL wrf_error_fatal(emess)
9331   ENDIF
9332   move_id = model_config_rec%move_id(id_id)
9333   RETURN
9334 END SUBROUTINE nl_get_move_id
9335 SUBROUTINE nl_get_move_interval ( id_id , move_interval )
9336   integer , INTENT(OUT) :: move_interval
9337   INTEGER id_id
9338   CHARACTER*80 emess
9339   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9340     WRITE(emess,*)'nl_get_move_interval: Out of range move number: ',id_id
9341     CALL wrf_error_fatal(emess)
9342   ENDIF
9343   move_interval = model_config_rec%move_interval(id_id)
9344   RETURN
9345 END SUBROUTINE nl_get_move_interval
9346 SUBROUTINE nl_get_move_cd_x ( id_id , move_cd_x )
9347   integer , INTENT(OUT) :: move_cd_x
9348   INTEGER id_id
9349   CHARACTER*80 emess
9350   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9351     WRITE(emess,*)'nl_get_move_cd_x: Out of range move number: ',id_id
9352     CALL wrf_error_fatal(emess)
9353   ENDIF
9354   move_cd_x = model_config_rec%move_cd_x(id_id)
9355   RETURN
9356 END SUBROUTINE nl_get_move_cd_x
9357 SUBROUTINE nl_get_move_cd_y ( id_id , move_cd_y )
9358   integer , INTENT(OUT) :: move_cd_y
9359   INTEGER id_id
9360   CHARACTER*80 emess
9361   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9362     WRITE(emess,*)'nl_get_move_cd_y: Out of range move number: ',id_id
9363     CALL wrf_error_fatal(emess)
9364   ENDIF
9365   move_cd_y = model_config_rec%move_cd_y(id_id)
9366   RETURN
9367 END SUBROUTINE nl_get_move_cd_y
9368 SUBROUTINE nl_get_swap_x ( id_id , swap_x )
9369   logical , INTENT(OUT) :: swap_x
9370   INTEGER id_id
9371   CHARACTER*80 emess
9372   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9373     WRITE(emess,*)'nl_get_swap_x: Out of range domain number: ',id_id
9374     CALL wrf_error_fatal(emess)
9375   ENDIF
9376   swap_x = model_config_rec%swap_x(id_id)
9377   RETURN
9378 END SUBROUTINE nl_get_swap_x
9379 SUBROUTINE nl_get_swap_y ( id_id , swap_y )
9380   logical , INTENT(OUT) :: swap_y
9381   INTEGER id_id
9382   CHARACTER*80 emess
9383   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9384     WRITE(emess,*)'nl_get_swap_y: Out of range domain number: ',id_id
9385     CALL wrf_error_fatal(emess)
9386   ENDIF
9387   swap_y = model_config_rec%swap_y(id_id)
9388   RETURN
9389 END SUBROUTINE nl_get_swap_y
9390 SUBROUTINE nl_get_cycle_x ( id_id , cycle_x )
9391   logical , INTENT(OUT) :: cycle_x
9392   INTEGER id_id
9393   CHARACTER*80 emess
9394   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9395     WRITE(emess,*)'nl_get_cycle_x: Out of range domain number: ',id_id
9396     CALL wrf_error_fatal(emess)
9397   ENDIF
9398   cycle_x = model_config_rec%cycle_x(id_id)
9399   RETURN
9400 END SUBROUTINE nl_get_cycle_x
9401 SUBROUTINE nl_get_cycle_y ( id_id , cycle_y )
9402   logical , INTENT(OUT) :: cycle_y
9403   INTEGER id_id
9404   CHARACTER*80 emess
9405   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9406     WRITE(emess,*)'nl_get_cycle_y: Out of range domain number: ',id_id
9407     CALL wrf_error_fatal(emess)
9408   ENDIF
9409   cycle_y = model_config_rec%cycle_y(id_id)
9410   RETURN
9411 END SUBROUTINE nl_get_cycle_y
9412 SUBROUTINE nl_get_reorder_mesh ( id_id , reorder_mesh )
9413   logical , INTENT(OUT) :: reorder_mesh
9414   INTEGER id_id
9415   CHARACTER*80 emess
9416   IF ( id_id .NE. 1 ) THEN
9417     call wrf_debug(1,&
9418 'WARNING in nl_get_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
9419   ENDIF
9420   reorder_mesh = model_config_rec%reorder_mesh
9421   RETURN
9422 END SUBROUTINE nl_get_reorder_mesh
9423 SUBROUTINE nl_get_perturb_input ( id_id , perturb_input )
9424   logical , INTENT(OUT) :: perturb_input
9425   INTEGER id_id
9426   CHARACTER*80 emess
9427   IF ( id_id .NE. 1 ) THEN
9428     call wrf_debug(1,&
9429 'WARNING in nl_get_perturb_input: perturb_input applies to all domains. First arg ignored.')
9430   ENDIF
9431   perturb_input = model_config_rec%perturb_input
9432   RETURN
9433 END SUBROUTINE nl_get_perturb_input
9434 SUBROUTINE nl_get_eta_levels ( id_id , eta_levels )
9435   real , INTENT(OUT) :: eta_levels
9436   INTEGER id_id
9437   CHARACTER*80 emess
9438   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
9439     WRITE(emess,*)'nl_get_eta_levels: Out of range eta_level number: ',id_id
9440     CALL wrf_error_fatal(emess)
9441   ENDIF
9442   eta_levels = model_config_rec%eta_levels(id_id)
9443   RETURN
9444 END SUBROUTINE nl_get_eta_levels
9445 SUBROUTINE nl_get_max_dz ( id_id , max_dz )
9446   real , INTENT(OUT) :: max_dz
9447   INTEGER id_id
9448   CHARACTER*80 emess
9449   IF ( id_id .NE. 1 ) THEN
9450     call wrf_debug(1,&
9451 'WARNING in nl_get_max_dz: max_dz applies to all domains. First arg ignored.')
9452   ENDIF
9453   max_dz = model_config_rec%max_dz
9454   RETURN
9455 END SUBROUTINE nl_get_max_dz
9456 SUBROUTINE nl_get_mp_physics ( id_id , mp_physics )
9457   integer , INTENT(OUT) :: mp_physics
9458   INTEGER id_id
9459   CHARACTER*80 emess
9460   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9461     WRITE(emess,*)'nl_get_mp_physics: Out of range domain number: ',id_id
9462     CALL wrf_error_fatal(emess)
9463   ENDIF
9464   mp_physics = model_config_rec%mp_physics(id_id)
9465   RETURN
9466 END SUBROUTINE nl_get_mp_physics
9467 SUBROUTINE nl_get_progn ( id_id , progn )
9468   integer , INTENT(OUT) :: progn
9469   INTEGER id_id
9470   CHARACTER*80 emess
9471   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9472     WRITE(emess,*)'nl_get_progn: Out of range domain number: ',id_id
9473     CALL wrf_error_fatal(emess)
9474   ENDIF
9475   progn = model_config_rec%progn(id_id)
9476   RETURN
9477 END SUBROUTINE nl_get_progn
9478 SUBROUTINE nl_get_ra_lw_physics ( id_id , ra_lw_physics )
9479   integer , INTENT(OUT) :: ra_lw_physics
9480   INTEGER id_id
9481   CHARACTER*80 emess
9482   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9483     WRITE(emess,*)'nl_get_ra_lw_physics: Out of range domain number: ',id_id
9484     CALL wrf_error_fatal(emess)
9485   ENDIF
9486   ra_lw_physics = model_config_rec%ra_lw_physics(id_id)
9487   RETURN
9488 END SUBROUTINE nl_get_ra_lw_physics
9489 SUBROUTINE nl_get_ra_sw_physics ( id_id , ra_sw_physics )
9490   integer , INTENT(OUT) :: ra_sw_physics
9491   INTEGER id_id
9492   CHARACTER*80 emess
9493   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9494     WRITE(emess,*)'nl_get_ra_sw_physics: Out of range domain number: ',id_id
9495     CALL wrf_error_fatal(emess)
9496   ENDIF
9497   ra_sw_physics = model_config_rec%ra_sw_physics(id_id)
9498   RETURN
9499 END SUBROUTINE nl_get_ra_sw_physics
9500 SUBROUTINE nl_get_radt ( id_id , radt )
9501   real , INTENT(OUT) :: radt
9502   INTEGER id_id
9503   CHARACTER*80 emess
9504   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9505     WRITE(emess,*)'nl_get_radt: Out of range domain number: ',id_id
9506     CALL wrf_error_fatal(emess)
9507   ENDIF
9508   radt = model_config_rec%radt(id_id)
9509   RETURN
9510 END SUBROUTINE nl_get_radt
9511 SUBROUTINE nl_get_naer ( id_id , naer )
9512   real , INTENT(OUT) :: naer
9513   INTEGER id_id
9514   CHARACTER*80 emess
9515   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9516     WRITE(emess,*)'nl_get_naer: Out of range domain number: ',id_id
9517     CALL wrf_error_fatal(emess)
9518   ENDIF
9519   naer = model_config_rec%naer(id_id)
9520   RETURN
9521 END SUBROUTINE nl_get_naer
9522 SUBROUTINE nl_get_sf_sfclay_physics ( id_id , sf_sfclay_physics )
9523   integer , INTENT(OUT) :: sf_sfclay_physics
9524   INTEGER id_id
9525   CHARACTER*80 emess
9526   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9527     WRITE(emess,*)'nl_get_sf_sfclay_physics: Out of range domain number: ',id_id
9528     CALL wrf_error_fatal(emess)
9529   ENDIF
9530   sf_sfclay_physics = model_config_rec%sf_sfclay_physics(id_id)
9531   RETURN
9532 END SUBROUTINE nl_get_sf_sfclay_physics
9533 SUBROUTINE nl_get_sf_surface_physics ( id_id , sf_surface_physics )
9534   integer , INTENT(OUT) :: sf_surface_physics
9535   INTEGER id_id
9536   CHARACTER*80 emess
9537   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9538     WRITE(emess,*)'nl_get_sf_surface_physics: Out of range domain number: ',id_id
9539     CALL wrf_error_fatal(emess)
9540   ENDIF
9541   sf_surface_physics = model_config_rec%sf_surface_physics(id_id)
9542   RETURN
9543 END SUBROUTINE nl_get_sf_surface_physics
9544 SUBROUTINE nl_get_bl_pbl_physics ( id_id , bl_pbl_physics )
9545   integer , INTENT(OUT) :: bl_pbl_physics
9546   INTEGER id_id
9547   CHARACTER*80 emess
9548   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9549     WRITE(emess,*)'nl_get_bl_pbl_physics: Out of range domain number: ',id_id
9550     CALL wrf_error_fatal(emess)
9551   ENDIF
9552   bl_pbl_physics = model_config_rec%bl_pbl_physics(id_id)
9553   RETURN
9554 END SUBROUTINE nl_get_bl_pbl_physics
9555 SUBROUTINE nl_get_bldt ( id_id , bldt )
9556   real , INTENT(OUT) :: bldt
9557   INTEGER id_id
9558   CHARACTER*80 emess
9559   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9560     WRITE(emess,*)'nl_get_bldt: Out of range domain number: ',id_id
9561     CALL wrf_error_fatal(emess)
9562   ENDIF
9563   bldt = model_config_rec%bldt(id_id)
9564   RETURN
9565 END SUBROUTINE nl_get_bldt
9566 SUBROUTINE nl_get_cu_physics ( id_id , cu_physics )
9567   integer , INTENT(OUT) :: cu_physics
9568   INTEGER id_id
9569   CHARACTER*80 emess
9570   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9571     WRITE(emess,*)'nl_get_cu_physics: Out of range domain number: ',id_id
9572     CALL wrf_error_fatal(emess)
9573   ENDIF
9574   cu_physics = model_config_rec%cu_physics(id_id)
9575   RETURN
9576 END SUBROUTINE nl_get_cu_physics
9577 SUBROUTINE nl_get_cudt ( id_id , cudt )
9578   real , INTENT(OUT) :: cudt
9579   INTEGER id_id
9580   CHARACTER*80 emess
9581   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9582     WRITE(emess,*)'nl_get_cudt: Out of range domain number: ',id_id
9583     CALL wrf_error_fatal(emess)
9584   ENDIF
9585   cudt = model_config_rec%cudt(id_id)
9586   RETURN
9587 END SUBROUTINE nl_get_cudt
9588 SUBROUTINE nl_get_gsmdt ( id_id , gsmdt )
9589   real , INTENT(OUT) :: gsmdt
9590   INTEGER id_id
9591   CHARACTER*80 emess
9592   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9593     WRITE(emess,*)'nl_get_gsmdt: Out of range domain number: ',id_id
9594     CALL wrf_error_fatal(emess)
9595   ENDIF
9596   gsmdt = model_config_rec%gsmdt(id_id)
9597   RETURN
9598 END SUBROUTINE nl_get_gsmdt
9599 SUBROUTINE nl_get_isfflx ( id_id , isfflx )
9600   integer , INTENT(OUT) :: isfflx
9601   INTEGER id_id
9602   CHARACTER*80 emess
9603   IF ( id_id .NE. 1 ) THEN
9604     call wrf_debug(1,&
9605 'WARNING in nl_get_isfflx: isfflx applies to all domains. First arg ignored.')
9606   ENDIF
9607   isfflx = model_config_rec%isfflx
9608   RETURN
9609 END SUBROUTINE nl_get_isfflx
9610 SUBROUTINE nl_get_ifsnow ( id_id , ifsnow )
9611   integer , INTENT(OUT) :: ifsnow
9612   INTEGER id_id
9613   CHARACTER*80 emess
9614   IF ( id_id .NE. 1 ) THEN
9615     call wrf_debug(1,&
9616 'WARNING in nl_get_ifsnow: ifsnow applies to all domains. First arg ignored.')
9617   ENDIF
9618   ifsnow = model_config_rec%ifsnow
9619   RETURN
9620 END SUBROUTINE nl_get_ifsnow
9621 SUBROUTINE nl_get_icloud ( id_id , icloud )
9622   integer , INTENT(OUT) :: icloud
9623   INTEGER id_id
9624   CHARACTER*80 emess
9625   IF ( id_id .NE. 1 ) THEN
9626     call wrf_debug(1,&
9627 'WARNING in nl_get_icloud: icloud applies to all domains. First arg ignored.')
9628   ENDIF
9629   icloud = model_config_rec%icloud
9630   RETURN
9631 END SUBROUTINE nl_get_icloud
9632 SUBROUTINE nl_get_swrad_scat ( id_id , swrad_scat )
9633   real , INTENT(OUT) :: swrad_scat
9634   INTEGER id_id
9635   CHARACTER*80 emess
9636   IF ( id_id .NE. 1 ) THEN
9637     call wrf_debug(1,&
9638 'WARNING in nl_get_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
9639   ENDIF
9640   swrad_scat = model_config_rec%swrad_scat
9641   RETURN
9642 END SUBROUTINE nl_get_swrad_scat
9643 SUBROUTINE nl_get_surface_input_source ( id_id , surface_input_source )
9644   integer , INTENT(OUT) :: surface_input_source
9645   INTEGER id_id
9646   CHARACTER*80 emess
9647   IF ( id_id .NE. 1 ) THEN
9648     call wrf_debug(1,&
9649 'WARNING in nl_get_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
9650   ENDIF
9651   surface_input_source = model_config_rec%surface_input_source
9652   RETURN
9653 END SUBROUTINE nl_get_surface_input_source
9654 SUBROUTINE nl_get_num_soil_layers ( id_id , num_soil_layers )
9655   integer , INTENT(OUT) :: num_soil_layers
9656   INTEGER id_id
9657   CHARACTER*80 emess
9658   IF ( id_id .NE. 1 ) THEN
9659     call wrf_debug(1,&
9660 'WARNING in nl_get_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
9661   ENDIF
9662   num_soil_layers = model_config_rec%num_soil_layers
9663   RETURN
9664 END SUBROUTINE nl_get_num_soil_layers
9665 SUBROUTINE nl_get_num_months ( id_id , num_months )
9666   integer , INTENT(OUT) :: num_months
9667   INTEGER id_id
9668   CHARACTER*80 emess
9669   IF ( id_id .NE. 1 ) THEN
9670     call wrf_debug(1,&
9671 'WARNING in nl_get_num_months: num_months applies to all domains. First arg ignored.')
9672   ENDIF
9673   num_months = model_config_rec%num_months
9674   RETURN
9675 END SUBROUTINE nl_get_num_months
9676 SUBROUTINE nl_get_maxiens ( id_id , maxiens )
9677   integer , INTENT(OUT) :: maxiens
9678   INTEGER id_id
9679   CHARACTER*80 emess
9680   IF ( id_id .NE. 1 ) THEN
9681     call wrf_debug(1,&
9682 'WARNING in nl_get_maxiens: maxiens applies to all domains. First arg ignored.')
9683   ENDIF
9684   maxiens = model_config_rec%maxiens
9685   RETURN
9686 END SUBROUTINE nl_get_maxiens
9687 SUBROUTINE nl_get_maxens ( id_id , maxens )
9688   integer , INTENT(OUT) :: maxens
9689   INTEGER id_id
9690   CHARACTER*80 emess
9691   IF ( id_id .NE. 1 ) THEN
9692     call wrf_debug(1,&
9693 'WARNING in nl_get_maxens: maxens applies to all domains. First arg ignored.')
9694   ENDIF
9695   maxens = model_config_rec%maxens
9696   RETURN
9697 END SUBROUTINE nl_get_maxens
9698 SUBROUTINE nl_get_maxens2 ( id_id , maxens2 )
9699   integer , INTENT(OUT) :: maxens2
9700   INTEGER id_id
9701   CHARACTER*80 emess
9702   IF ( id_id .NE. 1 ) THEN
9703     call wrf_debug(1,&
9704 'WARNING in nl_get_maxens2: maxens2 applies to all domains. First arg ignored.')
9705   ENDIF
9706   maxens2 = model_config_rec%maxens2
9707   RETURN
9708 END SUBROUTINE nl_get_maxens2
9709 SUBROUTINE nl_get_maxens3 ( id_id , maxens3 )
9710   integer , INTENT(OUT) :: maxens3
9711   INTEGER id_id
9712   CHARACTER*80 emess
9713   IF ( id_id .NE. 1 ) THEN
9714     call wrf_debug(1,&
9715 'WARNING in nl_get_maxens3: maxens3 applies to all domains. First arg ignored.')
9716   ENDIF
9717   maxens3 = model_config_rec%maxens3
9718   RETURN
9719 END SUBROUTINE nl_get_maxens3
9720 SUBROUTINE nl_get_ensdim ( id_id , ensdim )
9721   integer , INTENT(OUT) :: ensdim
9722   INTEGER id_id
9723   CHARACTER*80 emess
9724   IF ( id_id .NE. 1 ) THEN
9725     call wrf_debug(1,&
9726 'WARNING in nl_get_ensdim: ensdim applies to all domains. First arg ignored.')
9727   ENDIF
9728   ensdim = model_config_rec%ensdim
9729   RETURN
9730 END SUBROUTINE nl_get_ensdim
9731 SUBROUTINE nl_get_chem_opt ( id_id , chem_opt )
9732   integer , INTENT(OUT) :: chem_opt
9733   INTEGER id_id
9734   CHARACTER*80 emess
9735   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9736     WRITE(emess,*)'nl_get_chem_opt: Out of range domain number: ',id_id
9737     CALL wrf_error_fatal(emess)
9738   ENDIF
9739   chem_opt = model_config_rec%chem_opt(id_id)
9740   RETURN
9741 END SUBROUTINE nl_get_chem_opt
9742 SUBROUTINE nl_get_num_land_cat ( id_id , num_land_cat )
9743   integer , INTENT(OUT) :: num_land_cat
9744   INTEGER id_id
9745   CHARACTER*80 emess
9746   IF ( id_id .NE. 1 ) THEN
9747     call wrf_debug(1,&
9748 'WARNING in nl_get_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
9749   ENDIF
9750   num_land_cat = model_config_rec%num_land_cat
9751   RETURN
9752 END SUBROUTINE nl_get_num_land_cat
9753 SUBROUTINE nl_get_num_soil_cat ( id_id , num_soil_cat )
9754   integer , INTENT(OUT) :: num_soil_cat
9755   INTEGER id_id
9756   CHARACTER*80 emess
9757   IF ( id_id .NE. 1 ) THEN
9758     call wrf_debug(1,&
9759 'WARNING in nl_get_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
9760   ENDIF
9761   num_soil_cat = model_config_rec%num_soil_cat
9762   RETURN
9763 END SUBROUTINE nl_get_num_soil_cat
9764 SUBROUTINE nl_get_mp_zero_out ( id_id , mp_zero_out )
9765   integer , INTENT(OUT) :: mp_zero_out
9766   INTEGER id_id
9767   CHARACTER*80 emess
9768   IF ( id_id .NE. 1 ) THEN
9769     call wrf_debug(1,&
9770 'WARNING in nl_get_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
9771   ENDIF
9772   mp_zero_out = model_config_rec%mp_zero_out
9773   RETURN
9774 END SUBROUTINE nl_get_mp_zero_out
9775 SUBROUTINE nl_get_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
9776   real , INTENT(OUT) :: mp_zero_out_thresh
9777   INTEGER id_id
9778   CHARACTER*80 emess
9779   IF ( id_id .NE. 1 ) THEN
9780     call wrf_debug(1,&
9781 'WARNING in nl_get_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
9782   ENDIF
9783   mp_zero_out_thresh = model_config_rec%mp_zero_out_thresh
9784   RETURN
9785 END SUBROUTINE nl_get_mp_zero_out_thresh
9786 SUBROUTINE nl_get_seaice_threshold ( id_id , seaice_threshold )
9787   real , INTENT(OUT) :: seaice_threshold
9788   INTEGER id_id
9789   CHARACTER*80 emess
9790   IF ( id_id .NE. 1 ) THEN
9791     call wrf_debug(1,&
9792 'WARNING in nl_get_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
9793   ENDIF
9794   seaice_threshold = model_config_rec%seaice_threshold
9795   RETURN
9796 END SUBROUTINE nl_get_seaice_threshold
9797 SUBROUTINE nl_get_sst_update ( id_id , sst_update )
9798   integer , INTENT(OUT) :: sst_update
9799   INTEGER id_id
9800   CHARACTER*80 emess
9801   IF ( id_id .NE. 1 ) THEN
9802     call wrf_debug(1,&
9803 'WARNING in nl_get_sst_update: sst_update applies to all domains. First arg ignored.')
9804   ENDIF
9805   sst_update = model_config_rec%sst_update
9806   RETURN
9807 END SUBROUTINE nl_get_sst_update
9808 SUBROUTINE nl_get_ucmcall ( id_id , ucmcall )
9809   integer , INTENT(OUT) :: ucmcall
9810   INTEGER id_id
9811   CHARACTER*80 emess
9812   IF ( id_id .NE. 1 ) THEN
9813     call wrf_debug(1,&
9814 'WARNING in nl_get_ucmcall: ucmcall applies to all domains. First arg ignored.')
9815   ENDIF
9816   ucmcall = model_config_rec%ucmcall
9817   RETURN
9818 END SUBROUTINE nl_get_ucmcall
9819 SUBROUTINE nl_get_co2tf ( id_id , co2tf )
9820   integer , INTENT(OUT) :: co2tf
9821   INTEGER id_id
9822   CHARACTER*80 emess
9823   IF ( id_id .NE. 1 ) THEN
9824     call wrf_debug(1,&
9825 'WARNING in nl_get_co2tf: co2tf applies to all domains. First arg ignored.')
9826   ENDIF
9827   co2tf = model_config_rec%co2tf
9828   RETURN
9829 END SUBROUTINE nl_get_co2tf
9830 SUBROUTINE nl_get_ra_call_offset ( id_id , ra_call_offset )
9831   integer , INTENT(OUT) :: ra_call_offset
9832   INTEGER id_id
9833   CHARACTER*80 emess
9834   IF ( id_id .NE. 1 ) THEN
9835     call wrf_debug(1,&
9836 'WARNING in nl_get_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
9837   ENDIF
9838   ra_call_offset = model_config_rec%ra_call_offset
9839   RETURN
9840 END SUBROUTINE nl_get_ra_call_offset
9841 SUBROUTINE nl_get_cam_abs_freq_s ( id_id , cam_abs_freq_s )
9842   real , INTENT(OUT) :: cam_abs_freq_s
9843   INTEGER id_id
9844   CHARACTER*80 emess
9845   IF ( id_id .NE. 1 ) THEN
9846     call wrf_debug(1,&
9847 'WARNING in nl_get_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
9848   ENDIF
9849   cam_abs_freq_s = model_config_rec%cam_abs_freq_s
9850   RETURN
9851 END SUBROUTINE nl_get_cam_abs_freq_s
9852 SUBROUTINE nl_get_levsiz ( id_id , levsiz )
9853   integer , INTENT(OUT) :: levsiz
9854   INTEGER id_id
9855   CHARACTER*80 emess
9856   IF ( id_id .NE. 1 ) THEN
9857     call wrf_debug(1,&
9858 'WARNING in nl_get_levsiz: levsiz applies to all domains. First arg ignored.')
9859   ENDIF
9860   levsiz = model_config_rec%levsiz
9861   RETURN
9862 END SUBROUTINE nl_get_levsiz
9863 SUBROUTINE nl_get_paerlev ( id_id , paerlev )
9864   integer , INTENT(OUT) :: paerlev
9865   INTEGER id_id
9866   CHARACTER*80 emess
9867   IF ( id_id .NE. 1 ) THEN
9868     call wrf_debug(1,&
9869 'WARNING in nl_get_paerlev: paerlev applies to all domains. First arg ignored.')
9870   ENDIF
9871   paerlev = model_config_rec%paerlev
9872   RETURN
9873 END SUBROUTINE nl_get_paerlev
9874 SUBROUTINE nl_get_cam_abs_dim1 ( id_id , cam_abs_dim1 )
9875   integer , INTENT(OUT) :: cam_abs_dim1
9876   INTEGER id_id
9877   CHARACTER*80 emess
9878   IF ( id_id .NE. 1 ) THEN
9879     call wrf_debug(1,&
9880 'WARNING in nl_get_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
9881   ENDIF
9882   cam_abs_dim1 = model_config_rec%cam_abs_dim1
9883   RETURN
9884 END SUBROUTINE nl_get_cam_abs_dim1
9885 SUBROUTINE nl_get_cam_abs_dim2 ( id_id , cam_abs_dim2 )
9886   integer , INTENT(OUT) :: cam_abs_dim2
9887   INTEGER id_id
9888   CHARACTER*80 emess
9889   IF ( id_id .NE. 1 ) THEN
9890     call wrf_debug(1,&
9891 'WARNING in nl_get_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
9892   ENDIF
9893   cam_abs_dim2 = model_config_rec%cam_abs_dim2
9894   RETURN
9895 END SUBROUTINE nl_get_cam_abs_dim2
9896 SUBROUTINE nl_get_cu_rad_feedback ( id_id , cu_rad_feedback )
9897   logical , INTENT(OUT) :: cu_rad_feedback
9898   INTEGER id_id
9899   CHARACTER*80 emess
9900   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9901     WRITE(emess,*)'nl_get_cu_rad_feedback: Out of range domain number: ',id_id
9902     CALL wrf_error_fatal(emess)
9903   ENDIF
9904   cu_rad_feedback = model_config_rec%cu_rad_feedback(id_id)
9905   RETURN
9906 END SUBROUTINE nl_get_cu_rad_feedback
9907 SUBROUTINE nl_get_fgdt ( id_id , fgdt )
9908   real , INTENT(OUT) :: fgdt
9909   INTEGER id_id
9910   CHARACTER*80 emess
9911   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9912     WRITE(emess,*)'nl_get_fgdt: Out of range domain number: ',id_id
9913     CALL wrf_error_fatal(emess)
9914   ENDIF
9915   fgdt = model_config_rec%fgdt(id_id)
9916   RETURN
9917 END SUBROUTINE nl_get_fgdt
9918 SUBROUTINE nl_get_grid_fdda ( id_id , grid_fdda )
9919   integer , INTENT(OUT) :: grid_fdda
9920   INTEGER id_id
9921   CHARACTER*80 emess
9922   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9923     WRITE(emess,*)'nl_get_grid_fdda: Out of range domain number: ',id_id
9924     CALL wrf_error_fatal(emess)
9925   ENDIF
9926   grid_fdda = model_config_rec%grid_fdda(id_id)
9927   RETURN
9928 END SUBROUTINE nl_get_grid_fdda
9929 SUBROUTINE nl_get_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
9930   integer , INTENT(OUT) :: if_no_pbl_nudging_uv
9931   INTEGER id_id
9932   CHARACTER*80 emess
9933   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9934     WRITE(emess,*)'nl_get_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
9935     CALL wrf_error_fatal(emess)
9936   ENDIF
9937   if_no_pbl_nudging_uv = model_config_rec%if_no_pbl_nudging_uv(id_id)
9938   RETURN
9939 END SUBROUTINE nl_get_if_no_pbl_nudging_uv
9940 SUBROUTINE nl_get_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
9941   integer , INTENT(OUT) :: if_no_pbl_nudging_t
9942   INTEGER id_id
9943   CHARACTER*80 emess
9944   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9945     WRITE(emess,*)'nl_get_if_no_pbl_nudging_t: Out of range domain number: ',id_id
9946     CALL wrf_error_fatal(emess)
9947   ENDIF
9948   if_no_pbl_nudging_t = model_config_rec%if_no_pbl_nudging_t(id_id)
9949   RETURN
9950 END SUBROUTINE nl_get_if_no_pbl_nudging_t
9951 SUBROUTINE nl_get_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
9952   integer , INTENT(OUT) :: if_no_pbl_nudging_q
9953   INTEGER id_id
9954   CHARACTER*80 emess
9955   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9956     WRITE(emess,*)'nl_get_if_no_pbl_nudging_q: Out of range domain number: ',id_id
9957     CALL wrf_error_fatal(emess)
9958   ENDIF
9959   if_no_pbl_nudging_q = model_config_rec%if_no_pbl_nudging_q(id_id)
9960   RETURN
9961 END SUBROUTINE nl_get_if_no_pbl_nudging_q
9962 SUBROUTINE nl_get_if_zfac_uv ( id_id , if_zfac_uv )
9963   integer , INTENT(OUT) :: if_zfac_uv
9964   INTEGER id_id
9965   CHARACTER*80 emess
9966   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9967     WRITE(emess,*)'nl_get_if_zfac_uv: Out of range domain number: ',id_id
9968     CALL wrf_error_fatal(emess)
9969   ENDIF
9970   if_zfac_uv = model_config_rec%if_zfac_uv(id_id)
9971   RETURN
9972 END SUBROUTINE nl_get_if_zfac_uv
9973 SUBROUTINE nl_get_k_zfac_uv ( id_id , k_zfac_uv )
9974   integer , INTENT(OUT) :: k_zfac_uv
9975   INTEGER id_id
9976   CHARACTER*80 emess
9977   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9978     WRITE(emess,*)'nl_get_k_zfac_uv: Out of range domain number: ',id_id
9979     CALL wrf_error_fatal(emess)
9980   ENDIF
9981   k_zfac_uv = model_config_rec%k_zfac_uv(id_id)
9982   RETURN
9983 END SUBROUTINE nl_get_k_zfac_uv
9984 SUBROUTINE nl_get_if_zfac_t ( id_id , if_zfac_t )
9985   integer , INTENT(OUT) :: if_zfac_t
9986   INTEGER id_id
9987   CHARACTER*80 emess
9988   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9989     WRITE(emess,*)'nl_get_if_zfac_t: Out of range domain number: ',id_id
9990     CALL wrf_error_fatal(emess)
9991   ENDIF
9992   if_zfac_t = model_config_rec%if_zfac_t(id_id)
9993   RETURN
9994 END SUBROUTINE nl_get_if_zfac_t
9995 SUBROUTINE nl_get_k_zfac_t ( id_id , k_zfac_t )
9996   integer , INTENT(OUT) :: k_zfac_t
9997   INTEGER id_id
9998   CHARACTER*80 emess
9999   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10000     WRITE(emess,*)'nl_get_k_zfac_t: Out of range domain number: ',id_id
10001     CALL wrf_error_fatal(emess)
10002   ENDIF
10003   k_zfac_t = model_config_rec%k_zfac_t(id_id)
10004   RETURN
10005 END SUBROUTINE nl_get_k_zfac_t
10006 SUBROUTINE nl_get_if_zfac_q ( id_id , if_zfac_q )
10007   integer , INTENT(OUT) :: if_zfac_q
10008   INTEGER id_id
10009   CHARACTER*80 emess
10010   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10011     WRITE(emess,*)'nl_get_if_zfac_q: Out of range domain number: ',id_id
10012     CALL wrf_error_fatal(emess)
10013   ENDIF
10014   if_zfac_q = model_config_rec%if_zfac_q(id_id)
10015   RETURN
10016 END SUBROUTINE nl_get_if_zfac_q
10017 SUBROUTINE nl_get_k_zfac_q ( id_id , k_zfac_q )
10018   integer , INTENT(OUT) :: k_zfac_q
10019   INTEGER id_id
10020   CHARACTER*80 emess
10021   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10022     WRITE(emess,*)'nl_get_k_zfac_q: Out of range domain number: ',id_id
10023     CALL wrf_error_fatal(emess)
10024   ENDIF
10025   k_zfac_q = model_config_rec%k_zfac_q(id_id)
10026   RETURN
10027 END SUBROUTINE nl_get_k_zfac_q
10028 SUBROUTINE nl_get_guv ( id_id , guv )
10029   real , INTENT(OUT) :: guv
10030   INTEGER id_id
10031   CHARACTER*80 emess
10032   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10033     WRITE(emess,*)'nl_get_guv: Out of range domain number: ',id_id
10034     CALL wrf_error_fatal(emess)
10035   ENDIF
10036   guv = model_config_rec%guv(id_id)
10037   RETURN
10038 END SUBROUTINE nl_get_guv
10039 SUBROUTINE nl_get_gt ( id_id , gt )
10040   real , INTENT(OUT) :: gt
10041   INTEGER id_id
10042   CHARACTER*80 emess
10043   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10044     WRITE(emess,*)'nl_get_gt: Out of range domain number: ',id_id
10045     CALL wrf_error_fatal(emess)
10046   ENDIF
10047   gt = model_config_rec%gt(id_id)
10048   RETURN
10049 END SUBROUTINE nl_get_gt
10050 SUBROUTINE nl_get_gq ( id_id , gq )
10051   real , INTENT(OUT) :: gq
10052   INTEGER id_id
10053   CHARACTER*80 emess
10054   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10055     WRITE(emess,*)'nl_get_gq: Out of range domain number: ',id_id
10056     CALL wrf_error_fatal(emess)
10057   ENDIF
10058   gq = model_config_rec%gq(id_id)
10059   RETURN
10060 END SUBROUTINE nl_get_gq
10061 SUBROUTINE nl_get_dtramp_min ( id_id , dtramp_min )
10062   real , INTENT(OUT) :: dtramp_min
10063   INTEGER id_id
10064   CHARACTER*80 emess
10065   IF ( id_id .NE. 1 ) THEN
10066     call wrf_debug(1,&
10067 'WARNING in nl_get_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
10068   ENDIF
10069   dtramp_min = model_config_rec%dtramp_min
10070   RETURN
10071 END SUBROUTINE nl_get_dtramp_min
10072 SUBROUTINE nl_get_if_ramping ( id_id , if_ramping )
10073   integer , INTENT(OUT) :: if_ramping
10074   INTEGER id_id
10075   CHARACTER*80 emess
10076   IF ( id_id .NE. 1 ) THEN
10077     call wrf_debug(1,&
10078 'WARNING in nl_get_if_ramping: if_ramping applies to all domains. First arg ignored.')
10079   ENDIF
10080   if_ramping = model_config_rec%if_ramping
10081   RETURN
10082 END SUBROUTINE nl_get_if_ramping
10083 SUBROUTINE nl_get_obs_nudge_opt ( id_id , obs_nudge_opt )
10084   integer , INTENT(OUT) :: obs_nudge_opt
10085   INTEGER id_id
10086   CHARACTER*80 emess
10087   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10088     WRITE(emess,*)'nl_get_obs_nudge_opt: Out of range domain number: ',id_id
10089     CALL wrf_error_fatal(emess)
10090   ENDIF
10091   obs_nudge_opt = model_config_rec%obs_nudge_opt(id_id)
10092   RETURN
10093 END SUBROUTINE nl_get_obs_nudge_opt
10094 SUBROUTINE nl_get_max_obs ( id_id , max_obs )
10095   integer , INTENT(OUT) :: max_obs
10096   INTEGER id_id
10097   CHARACTER*80 emess
10098   IF ( id_id .NE. 1 ) THEN
10099     call wrf_debug(1,&
10100 'WARNING in nl_get_max_obs: max_obs applies to all domains. First arg ignored.')
10101   ENDIF
10102   max_obs = model_config_rec%max_obs
10103   RETURN
10104 END SUBROUTINE nl_get_max_obs
10105 SUBROUTINE nl_get_nobs_ndg_vars ( id_id , nobs_ndg_vars )
10106   integer , INTENT(OUT) :: nobs_ndg_vars
10107   INTEGER id_id
10108   CHARACTER*80 emess
10109   IF ( id_id .NE. 1 ) THEN
10110     call wrf_debug(1,&
10111 'WARNING in nl_get_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
10112   ENDIF
10113   nobs_ndg_vars = model_config_rec%nobs_ndg_vars
10114   RETURN
10115 END SUBROUTINE nl_get_nobs_ndg_vars
10116 SUBROUTINE nl_get_nobs_err_flds ( id_id , nobs_err_flds )
10117   integer , INTENT(OUT) :: nobs_err_flds
10118   INTEGER id_id
10119   CHARACTER*80 emess
10120   IF ( id_id .NE. 1 ) THEN
10121     call wrf_debug(1,&
10122 'WARNING in nl_get_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
10123   ENDIF
10124   nobs_err_flds = model_config_rec%nobs_err_flds
10125   RETURN
10126 END SUBROUTINE nl_get_nobs_err_flds
10127 SUBROUTINE nl_get_fdda_start ( id_id , fdda_start )
10128   real , INTENT(OUT) :: fdda_start
10129   INTEGER id_id
10130   CHARACTER*80 emess
10131   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10132     WRITE(emess,*)'nl_get_fdda_start: Out of range domain number: ',id_id
10133     CALL wrf_error_fatal(emess)
10134   ENDIF
10135   fdda_start = model_config_rec%fdda_start(id_id)
10136   RETURN
10137 END SUBROUTINE nl_get_fdda_start
10138 SUBROUTINE nl_get_fdda_end ( id_id , fdda_end )
10139   real , INTENT(OUT) :: fdda_end
10140   INTEGER id_id
10141   CHARACTER*80 emess
10142   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10143     WRITE(emess,*)'nl_get_fdda_end: Out of range domain number: ',id_id
10144     CALL wrf_error_fatal(emess)
10145   ENDIF
10146   fdda_end = model_config_rec%fdda_end(id_id)
10147   RETURN
10148 END SUBROUTINE nl_get_fdda_end
10149 SUBROUTINE nl_get_obs_nudge_wind ( id_id , obs_nudge_wind )
10150   integer , INTENT(OUT) :: obs_nudge_wind
10151   INTEGER id_id
10152   CHARACTER*80 emess
10153   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10154     WRITE(emess,*)'nl_get_obs_nudge_wind: Out of range domain number: ',id_id
10155     CALL wrf_error_fatal(emess)
10156   ENDIF
10157   obs_nudge_wind = model_config_rec%obs_nudge_wind(id_id)
10158   RETURN
10159 END SUBROUTINE nl_get_obs_nudge_wind
10160 SUBROUTINE nl_get_obs_coef_wind ( id_id , obs_coef_wind )
10161   real , INTENT(OUT) :: obs_coef_wind
10162   INTEGER id_id
10163   CHARACTER*80 emess
10164   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10165     WRITE(emess,*)'nl_get_obs_coef_wind: Out of range domain number: ',id_id
10166     CALL wrf_error_fatal(emess)
10167   ENDIF
10168   obs_coef_wind = model_config_rec%obs_coef_wind(id_id)
10169   RETURN
10170 END SUBROUTINE nl_get_obs_coef_wind
10171 SUBROUTINE nl_get_obs_nudge_temp ( id_id , obs_nudge_temp )
10172   integer , INTENT(OUT) :: obs_nudge_temp
10173   INTEGER id_id
10174   CHARACTER*80 emess
10175   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10176     WRITE(emess,*)'nl_get_obs_nudge_temp: Out of range domain number: ',id_id
10177     CALL wrf_error_fatal(emess)
10178   ENDIF
10179   obs_nudge_temp = model_config_rec%obs_nudge_temp(id_id)
10180   RETURN
10181 END SUBROUTINE nl_get_obs_nudge_temp
10182 SUBROUTINE nl_get_obs_coef_temp ( id_id , obs_coef_temp )
10183   real , INTENT(OUT) :: obs_coef_temp
10184   INTEGER id_id
10185   CHARACTER*80 emess
10186   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10187     WRITE(emess,*)'nl_get_obs_coef_temp: Out of range domain number: ',id_id
10188     CALL wrf_error_fatal(emess)
10189   ENDIF
10190   obs_coef_temp = model_config_rec%obs_coef_temp(id_id)
10191   RETURN
10192 END SUBROUTINE nl_get_obs_coef_temp
10193 SUBROUTINE nl_get_obs_nudge_mois ( id_id , obs_nudge_mois )
10194   integer , INTENT(OUT) :: obs_nudge_mois
10195   INTEGER id_id
10196   CHARACTER*80 emess
10197   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10198     WRITE(emess,*)'nl_get_obs_nudge_mois: Out of range domain number: ',id_id
10199     CALL wrf_error_fatal(emess)
10200   ENDIF
10201   obs_nudge_mois = model_config_rec%obs_nudge_mois(id_id)
10202   RETURN
10203 END SUBROUTINE nl_get_obs_nudge_mois
10204 SUBROUTINE nl_get_obs_coef_mois ( id_id , obs_coef_mois )
10205   real , INTENT(OUT) :: obs_coef_mois
10206   INTEGER id_id
10207   CHARACTER*80 emess
10208   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10209     WRITE(emess,*)'nl_get_obs_coef_mois: Out of range domain number: ',id_id
10210     CALL wrf_error_fatal(emess)
10211   ENDIF
10212   obs_coef_mois = model_config_rec%obs_coef_mois(id_id)
10213   RETURN
10214 END SUBROUTINE nl_get_obs_coef_mois
10215 SUBROUTINE nl_get_obs_nudge_pstr ( id_id , obs_nudge_pstr )
10216   integer , INTENT(OUT) :: obs_nudge_pstr
10217   INTEGER id_id
10218   CHARACTER*80 emess
10219   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10220     WRITE(emess,*)'nl_get_obs_nudge_pstr: Out of range domain number: ',id_id
10221     CALL wrf_error_fatal(emess)
10222   ENDIF
10223   obs_nudge_pstr = model_config_rec%obs_nudge_pstr(id_id)
10224   RETURN
10225 END SUBROUTINE nl_get_obs_nudge_pstr
10226 SUBROUTINE nl_get_obs_coef_pstr ( id_id , obs_coef_pstr )
10227   real , INTENT(OUT) :: obs_coef_pstr
10228   INTEGER id_id
10229   CHARACTER*80 emess
10230   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10231     WRITE(emess,*)'nl_get_obs_coef_pstr: Out of range domain number: ',id_id
10232     CALL wrf_error_fatal(emess)
10233   ENDIF
10234   obs_coef_pstr = model_config_rec%obs_coef_pstr(id_id)
10235   RETURN
10236 END SUBROUTINE nl_get_obs_coef_pstr
10237 SUBROUTINE nl_get_obs_rinxy ( id_id , obs_rinxy )
10238   real , INTENT(OUT) :: obs_rinxy
10239   INTEGER id_id
10240   CHARACTER*80 emess
10241   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10242     WRITE(emess,*)'nl_get_obs_rinxy: Out of range domain number: ',id_id
10243     CALL wrf_error_fatal(emess)
10244   ENDIF
10245   obs_rinxy = model_config_rec%obs_rinxy(id_id)
10246   RETURN
10247 END SUBROUTINE nl_get_obs_rinxy
10248 SUBROUTINE nl_get_obs_rinsig ( id_id , obs_rinsig )
10249   real , INTENT(OUT) :: obs_rinsig
10250   INTEGER id_id
10251   CHARACTER*80 emess
10252   IF ( id_id .NE. 1 ) THEN
10253     call wrf_debug(1,&
10254 'WARNING in nl_get_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
10255   ENDIF
10256   obs_rinsig = model_config_rec%obs_rinsig
10257   RETURN
10258 END SUBROUTINE nl_get_obs_rinsig
10259 SUBROUTINE nl_get_obs_twindo ( id_id , obs_twindo )
10260   real , INTENT(OUT) :: obs_twindo
10261   INTEGER id_id
10262   CHARACTER*80 emess
10263   IF ( id_id .NE. 1 ) THEN
10264     call wrf_debug(1,&
10265 'WARNING in nl_get_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
10266   ENDIF
10267   obs_twindo = model_config_rec%obs_twindo
10268   RETURN
10269 END SUBROUTINE nl_get_obs_twindo
10270 SUBROUTINE nl_get_obs_npfi ( id_id , obs_npfi )
10271   integer , INTENT(OUT) :: obs_npfi
10272   INTEGER id_id
10273   CHARACTER*80 emess
10274   IF ( id_id .NE. 1 ) THEN
10275     call wrf_debug(1,&
10276 'WARNING in nl_get_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
10277   ENDIF
10278   obs_npfi = model_config_rec%obs_npfi
10279   RETURN
10280 END SUBROUTINE nl_get_obs_npfi
10281 SUBROUTINE nl_get_obs_ionf ( id_id , obs_ionf )
10282   integer , INTENT(OUT) :: obs_ionf
10283   INTEGER id_id
10284   CHARACTER*80 emess
10285   IF ( id_id .NE. 1 ) THEN
10286     call wrf_debug(1,&
10287 'WARNING in nl_get_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
10288   ENDIF
10289   obs_ionf = model_config_rec%obs_ionf
10290   RETURN
10291 END SUBROUTINE nl_get_obs_ionf
10292 SUBROUTINE nl_get_obs_idynin ( id_id , obs_idynin )
10293   integer , INTENT(OUT) :: obs_idynin
10294   INTEGER id_id
10295   CHARACTER*80 emess
10296   IF ( id_id .NE. 1 ) THEN
10297     call wrf_debug(1,&
10298 'WARNING in nl_get_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
10299   ENDIF
10300   obs_idynin = model_config_rec%obs_idynin
10301   RETURN
10302 END SUBROUTINE nl_get_obs_idynin
10303 SUBROUTINE nl_get_obs_dtramp ( id_id , obs_dtramp )
10304   real , INTENT(OUT) :: obs_dtramp
10305   INTEGER id_id
10306   CHARACTER*80 emess
10307   IF ( id_id .NE. 1 ) THEN
10308     call wrf_debug(1,&
10309 'WARNING in nl_get_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
10310   ENDIF
10311   obs_dtramp = model_config_rec%obs_dtramp
10312   RETURN
10313 END SUBROUTINE nl_get_obs_dtramp
10314 SUBROUTINE nl_get_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
10315   logical , INTENT(OUT) :: obs_ipf_in4dob
10316   INTEGER id_id
10317   CHARACTER*80 emess
10318   IF ( id_id .NE. 1 ) THEN
10319     call wrf_debug(1,&
10320 'WARNING in nl_get_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
10321   ENDIF
10322   obs_ipf_in4dob = model_config_rec%obs_ipf_in4dob
10323   RETURN
10324 END SUBROUTINE nl_get_obs_ipf_in4dob
10325 SUBROUTINE nl_get_obs_ipf_errob ( id_id , obs_ipf_errob )
10326   logical , INTENT(OUT) :: obs_ipf_errob
10327   INTEGER id_id
10328   CHARACTER*80 emess
10329   IF ( id_id .NE. 1 ) THEN
10330     call wrf_debug(1,&
10331 'WARNING in nl_get_obs_ipf_errob: obs_ipf_errob applies to all domains. First arg ignored.')
10332   ENDIF
10333   obs_ipf_errob = model_config_rec%obs_ipf_errob
10334   RETURN
10335 END SUBROUTINE nl_get_obs_ipf_errob
10336 SUBROUTINE nl_get_obs_ipf_nudob ( id_id , obs_ipf_nudob )
10337   logical , INTENT(OUT) :: obs_ipf_nudob
10338   INTEGER id_id
10339   CHARACTER*80 emess
10340   IF ( id_id .NE. 1 ) THEN
10341     call wrf_debug(1,&
10342 'WARNING in nl_get_obs_ipf_nudob: obs_ipf_nudob applies to all domains. First arg ignored.')
10343   ENDIF
10344   obs_ipf_nudob = model_config_rec%obs_ipf_nudob
10345   RETURN
10346 END SUBROUTINE nl_get_obs_ipf_nudob
10347 SUBROUTINE nl_get_dyn_opt ( id_id , dyn_opt )
10348   integer , INTENT(OUT) :: dyn_opt
10349   INTEGER id_id
10350   CHARACTER*80 emess
10351   IF ( id_id .NE. 1 ) THEN
10352     call wrf_debug(1,&
10353 'WARNING in nl_get_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
10354   ENDIF
10355   dyn_opt = model_config_rec%dyn_opt
10356   RETURN
10357 END SUBROUTINE nl_get_dyn_opt
10358 SUBROUTINE nl_get_rk_ord ( id_id , rk_ord )
10359   integer , INTENT(OUT) :: rk_ord
10360   INTEGER id_id
10361   CHARACTER*80 emess
10362   IF ( id_id .NE. 1 ) THEN
10363     call wrf_debug(1,&
10364 'WARNING in nl_get_rk_ord: rk_ord applies to all domains. First arg ignored.')
10365   ENDIF
10366   rk_ord = model_config_rec%rk_ord
10367   RETURN
10368 END SUBROUTINE nl_get_rk_ord
10369 SUBROUTINE nl_get_w_damping ( id_id , w_damping )
10370   integer , INTENT(OUT) :: w_damping
10371   INTEGER id_id
10372   CHARACTER*80 emess
10373   IF ( id_id .NE. 1 ) THEN
10374     call wrf_debug(1,&
10375 'WARNING in nl_get_w_damping: w_damping applies to all domains. First arg ignored.')
10376   ENDIF
10377   w_damping = model_config_rec%w_damping
10378   RETURN
10379 END SUBROUTINE nl_get_w_damping
10380 SUBROUTINE nl_get_diff_opt ( id_id , diff_opt )
10381   integer , INTENT(OUT) :: diff_opt
10382   INTEGER id_id
10383   CHARACTER*80 emess
10384   IF ( id_id .NE. 1 ) THEN
10385     call wrf_debug(1,&
10386 'WARNING in nl_get_diff_opt: diff_opt applies to all domains. First arg ignored.')
10387   ENDIF
10388   diff_opt = model_config_rec%diff_opt
10389   RETURN
10390 END SUBROUTINE nl_get_diff_opt
10391 SUBROUTINE nl_get_km_opt ( id_id , km_opt )
10392   integer , INTENT(OUT) :: km_opt
10393   INTEGER id_id
10394   CHARACTER*80 emess
10395   IF ( id_id .NE. 1 ) THEN
10396     call wrf_debug(1,&
10397 'WARNING in nl_get_km_opt: km_opt applies to all domains. First arg ignored.')
10398   ENDIF
10399   km_opt = model_config_rec%km_opt
10400   RETURN
10401 END SUBROUTINE nl_get_km_opt
10402 SUBROUTINE nl_get_damp_opt ( id_id , damp_opt )
10403   integer , INTENT(OUT) :: damp_opt
10404   INTEGER id_id
10405   CHARACTER*80 emess
10406   IF ( id_id .NE. 1 ) THEN
10407     call wrf_debug(1,&
10408 'WARNING in nl_get_damp_opt: damp_opt applies to all domains. First arg ignored.')
10409   ENDIF
10410   damp_opt = model_config_rec%damp_opt
10411   RETURN
10412 END SUBROUTINE nl_get_damp_opt
10413 SUBROUTINE nl_get_zdamp ( id_id , zdamp )
10414   real , INTENT(OUT) :: zdamp
10415   INTEGER id_id
10416   CHARACTER*80 emess
10417   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10418     WRITE(emess,*)'nl_get_zdamp: Out of range domain number: ',id_id
10419     CALL wrf_error_fatal(emess)
10420   ENDIF
10421   zdamp = model_config_rec%zdamp(id_id)
10422   RETURN
10423 END SUBROUTINE nl_get_zdamp
10424 SUBROUTINE nl_get_dampcoef ( id_id , dampcoef )
10425   real , INTENT(OUT) :: dampcoef
10426   INTEGER id_id
10427   CHARACTER*80 emess
10428   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10429     WRITE(emess,*)'nl_get_dampcoef: Out of range domain number: ',id_id
10430     CALL wrf_error_fatal(emess)
10431   ENDIF
10432   dampcoef = model_config_rec%dampcoef(id_id)
10433   RETURN
10434 END SUBROUTINE nl_get_dampcoef
10435 SUBROUTINE nl_get_khdif ( id_id , khdif )
10436   real , INTENT(OUT) :: khdif
10437   INTEGER id_id
10438   CHARACTER*80 emess
10439   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10440     WRITE(emess,*)'nl_get_khdif: Out of range domain number: ',id_id
10441     CALL wrf_error_fatal(emess)
10442   ENDIF
10443   khdif = model_config_rec%khdif(id_id)
10444   RETURN
10445 END SUBROUTINE nl_get_khdif
10446 SUBROUTINE nl_get_kvdif ( id_id , kvdif )
10447   real , INTENT(OUT) :: kvdif
10448   INTEGER id_id
10449   CHARACTER*80 emess
10450   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10451     WRITE(emess,*)'nl_get_kvdif: Out of range domain number: ',id_id
10452     CALL wrf_error_fatal(emess)
10453   ENDIF
10454   kvdif = model_config_rec%kvdif(id_id)
10455   RETURN
10456 END SUBROUTINE nl_get_kvdif
10457 SUBROUTINE nl_get_diff_6th_factor ( id_id , diff_6th_factor )
10458   real , INTENT(OUT) :: diff_6th_factor
10459   INTEGER id_id
10460   CHARACTER*80 emess
10461   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10462     WRITE(emess,*)'nl_get_diff_6th_factor: Out of range domain number: ',id_id
10463     CALL wrf_error_fatal(emess)
10464   ENDIF
10465   diff_6th_factor = model_config_rec%diff_6th_factor(id_id)
10466   RETURN
10467 END SUBROUTINE nl_get_diff_6th_factor
10468 SUBROUTINE nl_get_diff_6th_opt ( id_id , diff_6th_opt )
10469   integer , INTENT(OUT) :: diff_6th_opt
10470   INTEGER id_id
10471   CHARACTER*80 emess
10472   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10473     WRITE(emess,*)'nl_get_diff_6th_opt: Out of range domain number: ',id_id
10474     CALL wrf_error_fatal(emess)
10475   ENDIF
10476   diff_6th_opt = model_config_rec%diff_6th_opt(id_id)
10477   RETURN
10478 END SUBROUTINE nl_get_diff_6th_opt
10479 SUBROUTINE nl_get_smdiv ( id_id , smdiv )
10480   real , INTENT(OUT) :: smdiv
10481   INTEGER id_id
10482   CHARACTER*80 emess
10483   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10484     WRITE(emess,*)'nl_get_smdiv: Out of range domain number: ',id_id
10485     CALL wrf_error_fatal(emess)
10486   ENDIF
10487   smdiv = model_config_rec%smdiv(id_id)
10488   RETURN
10489 END SUBROUTINE nl_get_smdiv
10490 SUBROUTINE nl_get_emdiv ( id_id , emdiv )
10491   real , INTENT(OUT) :: emdiv
10492   INTEGER id_id
10493   CHARACTER*80 emess
10494   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10495     WRITE(emess,*)'nl_get_emdiv: Out of range domain number: ',id_id
10496     CALL wrf_error_fatal(emess)
10497   ENDIF
10498   emdiv = model_config_rec%emdiv(id_id)
10499   RETURN
10500 END SUBROUTINE nl_get_emdiv
10501 SUBROUTINE nl_get_epssm ( id_id , epssm )
10502   real , INTENT(OUT) :: epssm
10503   INTEGER id_id
10504   CHARACTER*80 emess
10505   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10506     WRITE(emess,*)'nl_get_epssm: Out of range domain number: ',id_id
10507     CALL wrf_error_fatal(emess)
10508   ENDIF
10509   epssm = model_config_rec%epssm(id_id)
10510   RETURN
10511 END SUBROUTINE nl_get_epssm
10512 SUBROUTINE nl_get_non_hydrostatic ( id_id , non_hydrostatic )
10513   logical , INTENT(OUT) :: non_hydrostatic
10514   INTEGER id_id
10515   CHARACTER*80 emess
10516   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10517     WRITE(emess,*)'nl_get_non_hydrostatic: Out of range domain number: ',id_id
10518     CALL wrf_error_fatal(emess)
10519   ENDIF
10520   non_hydrostatic = model_config_rec%non_hydrostatic(id_id)
10521   RETURN
10522 END SUBROUTINE nl_get_non_hydrostatic
10523 SUBROUTINE nl_get_time_step_sound ( id_id , time_step_sound )
10524   integer , INTENT(OUT) :: time_step_sound
10525   INTEGER id_id
10526   CHARACTER*80 emess
10527   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10528     WRITE(emess,*)'nl_get_time_step_sound: Out of range domain number: ',id_id
10529     CALL wrf_error_fatal(emess)
10530   ENDIF
10531   time_step_sound = model_config_rec%time_step_sound(id_id)
10532   RETURN
10533 END SUBROUTINE nl_get_time_step_sound
10534 SUBROUTINE nl_get_h_mom_adv_order ( id_id , h_mom_adv_order )
10535   integer , INTENT(OUT) :: h_mom_adv_order
10536   INTEGER id_id
10537   CHARACTER*80 emess
10538   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10539     WRITE(emess,*)'nl_get_h_mom_adv_order: Out of range domain number: ',id_id
10540     CALL wrf_error_fatal(emess)
10541   ENDIF
10542   h_mom_adv_order = model_config_rec%h_mom_adv_order(id_id)
10543   RETURN
10544 END SUBROUTINE nl_get_h_mom_adv_order
10545 SUBROUTINE nl_get_v_mom_adv_order ( id_id , v_mom_adv_order )
10546   integer , INTENT(OUT) :: v_mom_adv_order
10547   INTEGER id_id
10548   CHARACTER*80 emess
10549   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10550     WRITE(emess,*)'nl_get_v_mom_adv_order: Out of range domain number: ',id_id
10551     CALL wrf_error_fatal(emess)
10552   ENDIF
10553   v_mom_adv_order = model_config_rec%v_mom_adv_order(id_id)
10554   RETURN
10555 END SUBROUTINE nl_get_v_mom_adv_order
10556 SUBROUTINE nl_get_h_sca_adv_order ( id_id , h_sca_adv_order )
10557   integer , INTENT(OUT) :: h_sca_adv_order
10558   INTEGER id_id
10559   CHARACTER*80 emess
10560   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10561     WRITE(emess,*)'nl_get_h_sca_adv_order: Out of range domain number: ',id_id
10562     CALL wrf_error_fatal(emess)
10563   ENDIF
10564   h_sca_adv_order = model_config_rec%h_sca_adv_order(id_id)
10565   RETURN
10566 END SUBROUTINE nl_get_h_sca_adv_order
10567 SUBROUTINE nl_get_v_sca_adv_order ( id_id , v_sca_adv_order )
10568   integer , INTENT(OUT) :: v_sca_adv_order
10569   INTEGER id_id
10570   CHARACTER*80 emess
10571   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10572     WRITE(emess,*)'nl_get_v_sca_adv_order: Out of range domain number: ',id_id
10573     CALL wrf_error_fatal(emess)
10574   ENDIF
10575   v_sca_adv_order = model_config_rec%v_sca_adv_order(id_id)
10576   RETURN
10577 END SUBROUTINE nl_get_v_sca_adv_order
10578 SUBROUTINE nl_get_pd_moist ( id_id , pd_moist )
10579   logical , INTENT(OUT) :: pd_moist
10580   INTEGER id_id
10581   CHARACTER*80 emess
10582   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10583     WRITE(emess,*)'nl_get_pd_moist: Out of range domain number: ',id_id
10584     CALL wrf_error_fatal(emess)
10585   ENDIF
10586   pd_moist = model_config_rec%pd_moist(id_id)
10587   RETURN
10588 END SUBROUTINE nl_get_pd_moist
10589 SUBROUTINE nl_get_pd_chem ( id_id , pd_chem )
10590   logical , INTENT(OUT) :: pd_chem
10591   INTEGER id_id
10592   CHARACTER*80 emess
10593   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10594     WRITE(emess,*)'nl_get_pd_chem: Out of range domain number: ',id_id
10595     CALL wrf_error_fatal(emess)
10596   ENDIF
10597   pd_chem = model_config_rec%pd_chem(id_id)
10598   RETURN
10599 END SUBROUTINE nl_get_pd_chem
10600 SUBROUTINE nl_get_pd_scalar ( id_id , pd_scalar )
10601   logical , INTENT(OUT) :: pd_scalar
10602   INTEGER id_id
10603   CHARACTER*80 emess
10604   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10605     WRITE(emess,*)'nl_get_pd_scalar: Out of range domain number: ',id_id
10606     CALL wrf_error_fatal(emess)
10607   ENDIF
10608   pd_scalar = model_config_rec%pd_scalar(id_id)
10609   RETURN
10610 END SUBROUTINE nl_get_pd_scalar
10611 SUBROUTINE nl_get_pd_tke ( id_id , pd_tke )
10612   logical , INTENT(OUT) :: pd_tke
10613   INTEGER id_id
10614   CHARACTER*80 emess
10615   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10616     WRITE(emess,*)'nl_get_pd_tke: Out of range domain number: ',id_id
10617     CALL wrf_error_fatal(emess)
10618   ENDIF
10619   pd_tke = model_config_rec%pd_tke(id_id)
10620   RETURN
10621 END SUBROUTINE nl_get_pd_tke
10622 SUBROUTINE nl_get_top_radiation ( id_id , top_radiation )
10623   logical , INTENT(OUT) :: top_radiation
10624   INTEGER id_id
10625   CHARACTER*80 emess
10626   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10627     WRITE(emess,*)'nl_get_top_radiation: Out of range domain number: ',id_id
10628     CALL wrf_error_fatal(emess)
10629   ENDIF
10630   top_radiation = model_config_rec%top_radiation(id_id)
10631   RETURN
10632 END SUBROUTINE nl_get_top_radiation
10633 SUBROUTINE nl_get_mix_cr_len ( id_id , mix_cr_len )
10634   real , INTENT(OUT) :: mix_cr_len
10635   INTEGER id_id
10636   CHARACTER*80 emess
10637   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10638     WRITE(emess,*)'nl_get_mix_cr_len: Out of range domain number: ',id_id
10639     CALL wrf_error_fatal(emess)
10640   ENDIF
10641   mix_cr_len = model_config_rec%mix_cr_len(id_id)
10642   RETURN
10643 END SUBROUTINE nl_get_mix_cr_len
10644 SUBROUTINE nl_get_tke_upper_bound ( id_id , tke_upper_bound )
10645   real , INTENT(OUT) :: tke_upper_bound
10646   INTEGER id_id
10647   CHARACTER*80 emess
10648   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10649     WRITE(emess,*)'nl_get_tke_upper_bound: Out of range domain number: ',id_id
10650     CALL wrf_error_fatal(emess)
10651   ENDIF
10652   tke_upper_bound = model_config_rec%tke_upper_bound(id_id)
10653   RETURN
10654 END SUBROUTINE nl_get_tke_upper_bound
10655 SUBROUTINE nl_get_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
10656   real , INTENT(OUT) :: kh_tke_upper_bound
10657   INTEGER id_id
10658   CHARACTER*80 emess
10659   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10660     WRITE(emess,*)'nl_get_kh_tke_upper_bound: Out of range domain number: ',id_id
10661     CALL wrf_error_fatal(emess)
10662   ENDIF
10663   kh_tke_upper_bound = model_config_rec%kh_tke_upper_bound(id_id)
10664   RETURN
10665 END SUBROUTINE nl_get_kh_tke_upper_bound
10666 SUBROUTINE nl_get_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
10667   real , INTENT(OUT) :: kv_tke_upper_bound
10668   INTEGER id_id
10669   CHARACTER*80 emess
10670   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10671     WRITE(emess,*)'nl_get_kv_tke_upper_bound: Out of range domain number: ',id_id
10672     CALL wrf_error_fatal(emess)
10673   ENDIF
10674   kv_tke_upper_bound = model_config_rec%kv_tke_upper_bound(id_id)
10675   RETURN
10676 END SUBROUTINE nl_get_kv_tke_upper_bound
10677 SUBROUTINE nl_get_tke_drag_coefficient ( id_id , tke_drag_coefficient )
10678   real , INTENT(OUT) :: tke_drag_coefficient
10679   INTEGER id_id
10680   CHARACTER*80 emess
10681   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10682     WRITE(emess,*)'nl_get_tke_drag_coefficient: Out of range domain number: ',id_id
10683     CALL wrf_error_fatal(emess)
10684   ENDIF
10685   tke_drag_coefficient = model_config_rec%tke_drag_coefficient(id_id)
10686   RETURN
10687 END SUBROUTINE nl_get_tke_drag_coefficient
10688 SUBROUTINE nl_get_tke_heat_flux ( id_id , tke_heat_flux )
10689   real , INTENT(OUT) :: tke_heat_flux
10690   INTEGER id_id
10691   CHARACTER*80 emess
10692   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10693     WRITE(emess,*)'nl_get_tke_heat_flux: Out of range domain number: ',id_id
10694     CALL wrf_error_fatal(emess)
10695   ENDIF
10696   tke_heat_flux = model_config_rec%tke_heat_flux(id_id)
10697   RETURN
10698 END SUBROUTINE nl_get_tke_heat_flux
10699 SUBROUTINE nl_get_pert_coriolis ( id_id , pert_coriolis )
10700   logical , INTENT(OUT) :: pert_coriolis
10701   INTEGER id_id
10702   CHARACTER*80 emess
10703   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10704     WRITE(emess,*)'nl_get_pert_coriolis: Out of range domain number: ',id_id
10705     CALL wrf_error_fatal(emess)
10706   ENDIF
10707   pert_coriolis = model_config_rec%pert_coriolis(id_id)
10708   RETURN
10709 END SUBROUTINE nl_get_pert_coriolis
10710 SUBROUTINE nl_get_mix_full_fields ( id_id , mix_full_fields )
10711   logical , INTENT(OUT) :: mix_full_fields
10712   INTEGER id_id
10713   CHARACTER*80 emess
10714   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10715     WRITE(emess,*)'nl_get_mix_full_fields: Out of range domain number: ',id_id
10716     CALL wrf_error_fatal(emess)
10717   ENDIF
10718   mix_full_fields = model_config_rec%mix_full_fields(id_id)
10719   RETURN
10720 END SUBROUTINE nl_get_mix_full_fields
10721 SUBROUTINE nl_get_base_pres ( id_id , base_pres )
10722   real , INTENT(OUT) :: base_pres
10723   INTEGER id_id
10724   CHARACTER*80 emess
10725   IF ( id_id .NE. 1 ) THEN
10726     call wrf_debug(1,&
10727 'WARNING in nl_get_base_pres: base_pres applies to all domains. First arg ignored.')
10728   ENDIF
10729   base_pres = model_config_rec%base_pres
10730   RETURN
10731 END SUBROUTINE nl_get_base_pres
10732 SUBROUTINE nl_get_base_temp ( id_id , base_temp )
10733   real , INTENT(OUT) :: base_temp
10734   INTEGER id_id
10735   CHARACTER*80 emess
10736   IF ( id_id .NE. 1 ) THEN
10737     call wrf_debug(1,&
10738 'WARNING in nl_get_base_temp: base_temp applies to all domains. First arg ignored.')
10739   ENDIF
10740   base_temp = model_config_rec%base_temp
10741   RETURN
10742 END SUBROUTINE nl_get_base_temp
10743 SUBROUTINE nl_get_base_lapse ( id_id , base_lapse )
10744   real , INTENT(OUT) :: base_lapse
10745   INTEGER id_id
10746   CHARACTER*80 emess
10747   IF ( id_id .NE. 1 ) THEN
10748     call wrf_debug(1,&
10749 'WARNING in nl_get_base_lapse: base_lapse applies to all domains. First arg ignored.')
10750   ENDIF
10751   base_lapse = model_config_rec%base_lapse
10752   RETURN
10753 END SUBROUTINE nl_get_base_lapse
10754 SUBROUTINE nl_get_spec_bdy_width ( id_id , spec_bdy_width )
10755   integer , INTENT(OUT) :: spec_bdy_width
10756   INTEGER id_id
10757   CHARACTER*80 emess
10758   IF ( id_id .NE. 1 ) THEN
10759     call wrf_debug(1,&
10760 'WARNING in nl_get_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
10761   ENDIF
10762   spec_bdy_width = model_config_rec%spec_bdy_width
10763   RETURN
10764 END SUBROUTINE nl_get_spec_bdy_width
10765 SUBROUTINE nl_get_spec_zone ( id_id , spec_zone )
10766   integer , INTENT(OUT) :: spec_zone
10767   INTEGER id_id
10768   CHARACTER*80 emess
10769   IF ( id_id .NE. 1 ) THEN
10770     call wrf_debug(1,&
10771 'WARNING in nl_get_spec_zone: spec_zone applies to all domains. First arg ignored.')
10772   ENDIF
10773   spec_zone = model_config_rec%spec_zone
10774   RETURN
10775 END SUBROUTINE nl_get_spec_zone
10776 SUBROUTINE nl_get_relax_zone ( id_id , relax_zone )
10777   integer , INTENT(OUT) :: relax_zone
10778   INTEGER id_id
10779   CHARACTER*80 emess
10780   IF ( id_id .NE. 1 ) THEN
10781     call wrf_debug(1,&
10782 'WARNING in nl_get_relax_zone: relax_zone applies to all domains. First arg ignored.')
10783   ENDIF
10784   relax_zone = model_config_rec%relax_zone
10785   RETURN
10786 END SUBROUTINE nl_get_relax_zone
10787 SUBROUTINE nl_get_specified ( id_id , specified )
10788   logical , INTENT(OUT) :: specified
10789   INTEGER id_id
10790   CHARACTER*80 emess
10791   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10792     WRITE(emess,*)'nl_get_specified: Out of range domain number: ',id_id
10793     CALL wrf_error_fatal(emess)
10794   ENDIF
10795   specified = model_config_rec%specified(id_id)
10796   RETURN
10797 END SUBROUTINE nl_get_specified
10798 SUBROUTINE nl_get_periodic_x ( id_id , periodic_x )
10799   logical , INTENT(OUT) :: periodic_x
10800   INTEGER id_id
10801   CHARACTER*80 emess
10802   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10803     WRITE(emess,*)'nl_get_periodic_x: Out of range domain number: ',id_id
10804     CALL wrf_error_fatal(emess)
10805   ENDIF
10806   periodic_x = model_config_rec%periodic_x(id_id)
10807   RETURN
10808 END SUBROUTINE nl_get_periodic_x
10809 SUBROUTINE nl_get_symmetric_xs ( id_id , symmetric_xs )
10810   logical , INTENT(OUT) :: symmetric_xs
10811   INTEGER id_id
10812   CHARACTER*80 emess
10813   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10814     WRITE(emess,*)'nl_get_symmetric_xs: Out of range domain number: ',id_id
10815     CALL wrf_error_fatal(emess)
10816   ENDIF
10817   symmetric_xs = model_config_rec%symmetric_xs(id_id)
10818   RETURN
10819 END SUBROUTINE nl_get_symmetric_xs
10820 SUBROUTINE nl_get_symmetric_xe ( id_id , symmetric_xe )
10821   logical , INTENT(OUT) :: symmetric_xe
10822   INTEGER id_id
10823   CHARACTER*80 emess
10824   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10825     WRITE(emess,*)'nl_get_symmetric_xe: Out of range domain number: ',id_id
10826     CALL wrf_error_fatal(emess)
10827   ENDIF
10828   symmetric_xe = model_config_rec%symmetric_xe(id_id)
10829   RETURN
10830 END SUBROUTINE nl_get_symmetric_xe
10831 SUBROUTINE nl_get_open_xs ( id_id , open_xs )
10832   logical , INTENT(OUT) :: open_xs
10833   INTEGER id_id
10834   CHARACTER*80 emess
10835   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10836     WRITE(emess,*)'nl_get_open_xs: Out of range domain number: ',id_id
10837     CALL wrf_error_fatal(emess)
10838   ENDIF
10839   open_xs = model_config_rec%open_xs(id_id)
10840   RETURN
10841 END SUBROUTINE nl_get_open_xs
10842 SUBROUTINE nl_get_open_xe ( id_id , open_xe )
10843   logical , INTENT(OUT) :: open_xe
10844   INTEGER id_id
10845   CHARACTER*80 emess
10846   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10847     WRITE(emess,*)'nl_get_open_xe: Out of range domain number: ',id_id
10848     CALL wrf_error_fatal(emess)
10849   ENDIF
10850   open_xe = model_config_rec%open_xe(id_id)
10851   RETURN
10852 END SUBROUTINE nl_get_open_xe
10853 SUBROUTINE nl_get_periodic_y ( id_id , periodic_y )
10854   logical , INTENT(OUT) :: periodic_y
10855   INTEGER id_id
10856   CHARACTER*80 emess
10857   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10858     WRITE(emess,*)'nl_get_periodic_y: Out of range domain number: ',id_id
10859     CALL wrf_error_fatal(emess)
10860   ENDIF
10861   periodic_y = model_config_rec%periodic_y(id_id)
10862   RETURN
10863 END SUBROUTINE nl_get_periodic_y
10864 SUBROUTINE nl_get_symmetric_ys ( id_id , symmetric_ys )
10865   logical , INTENT(OUT) :: symmetric_ys
10866   INTEGER id_id
10867   CHARACTER*80 emess
10868   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10869     WRITE(emess,*)'nl_get_symmetric_ys: Out of range domain number: ',id_id
10870     CALL wrf_error_fatal(emess)
10871   ENDIF
10872   symmetric_ys = model_config_rec%symmetric_ys(id_id)
10873   RETURN
10874 END SUBROUTINE nl_get_symmetric_ys
10875 SUBROUTINE nl_get_symmetric_ye ( id_id , symmetric_ye )
10876   logical , INTENT(OUT) :: symmetric_ye
10877   INTEGER id_id
10878   CHARACTER*80 emess
10879   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10880     WRITE(emess,*)'nl_get_symmetric_ye: Out of range domain number: ',id_id
10881     CALL wrf_error_fatal(emess)
10882   ENDIF
10883   symmetric_ye = model_config_rec%symmetric_ye(id_id)
10884   RETURN
10885 END SUBROUTINE nl_get_symmetric_ye
10886 SUBROUTINE nl_get_open_ys ( id_id , open_ys )
10887   logical , INTENT(OUT) :: open_ys
10888   INTEGER id_id
10889   CHARACTER*80 emess
10890   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10891     WRITE(emess,*)'nl_get_open_ys: Out of range domain number: ',id_id
10892     CALL wrf_error_fatal(emess)
10893   ENDIF
10894   open_ys = model_config_rec%open_ys(id_id)
10895   RETURN
10896 END SUBROUTINE nl_get_open_ys
10897 SUBROUTINE nl_get_open_ye ( id_id , open_ye )
10898   logical , INTENT(OUT) :: open_ye
10899   INTEGER id_id
10900   CHARACTER*80 emess
10901   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10902     WRITE(emess,*)'nl_get_open_ye: Out of range domain number: ',id_id
10903     CALL wrf_error_fatal(emess)
10904   ENDIF
10905   open_ye = model_config_rec%open_ye(id_id)
10906   RETURN
10907 END SUBROUTINE nl_get_open_ye
10908 SUBROUTINE nl_get_nested ( id_id , nested )
10909   logical , INTENT(OUT) :: nested
10910   INTEGER id_id
10911   CHARACTER*80 emess
10912   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10913     WRITE(emess,*)'nl_get_nested: Out of range domain number: ',id_id
10914     CALL wrf_error_fatal(emess)
10915   ENDIF
10916   nested = model_config_rec%nested(id_id)
10917   RETURN
10918 END SUBROUTINE nl_get_nested
10919 SUBROUTINE nl_get_real_data_init_type ( id_id , real_data_init_type )
10920   integer , INTENT(OUT) :: real_data_init_type
10921   INTEGER id_id
10922   CHARACTER*80 emess
10923   IF ( id_id .NE. 1 ) THEN
10924     call wrf_debug(1,&
10925 'WARNING in nl_get_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
10926   ENDIF
10927   real_data_init_type = model_config_rec%real_data_init_type
10928   RETURN
10929 END SUBROUTINE nl_get_real_data_init_type
10930 SUBROUTINE nl_get_background_proc_id ( id_id , background_proc_id )
10931   integer , INTENT(OUT) :: background_proc_id
10932   INTEGER id_id
10933   CHARACTER*80 emess
10934   IF ( id_id .NE. 1 ) THEN
10935     call wrf_debug(1,&
10936 'WARNING in nl_get_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
10937   ENDIF
10938   background_proc_id = model_config_rec%background_proc_id
10939   RETURN
10940 END SUBROUTINE nl_get_background_proc_id
10941 SUBROUTINE nl_get_forecast_proc_id ( id_id , forecast_proc_id )
10942   integer , INTENT(OUT) :: forecast_proc_id
10943   INTEGER id_id
10944   CHARACTER*80 emess
10945   IF ( id_id .NE. 1 ) THEN
10946     call wrf_debug(1,&
10947 'WARNING in nl_get_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
10948   ENDIF
10949   forecast_proc_id = model_config_rec%forecast_proc_id
10950   RETURN
10951 END SUBROUTINE nl_get_forecast_proc_id
10952 SUBROUTINE nl_get_production_status ( id_id , production_status )
10953   integer , INTENT(OUT) :: production_status
10954   INTEGER id_id
10955   CHARACTER*80 emess
10956   IF ( id_id .NE. 1 ) THEN
10957     call wrf_debug(1,&
10958 'WARNING in nl_get_production_status: production_status applies to all domains. First arg ignored.')
10959   ENDIF
10960   production_status = model_config_rec%production_status
10961   RETURN
10962 END SUBROUTINE nl_get_production_status
10963 SUBROUTINE nl_get_compression ( id_id , compression )
10964   integer , INTENT(OUT) :: compression
10965   INTEGER id_id
10966   CHARACTER*80 emess
10967   IF ( id_id .NE. 1 ) THEN
10968     call wrf_debug(1,&
10969 'WARNING in nl_get_compression: compression applies to all domains. First arg ignored.')
10970   ENDIF
10971   compression = model_config_rec%compression
10972   RETURN
10973 END SUBROUTINE nl_get_compression
10974 SUBROUTINE nl_get_cen_lat ( id_id , cen_lat )
10975   real , INTENT(OUT) :: cen_lat
10976   INTEGER id_id
10977   CHARACTER*80 emess
10978   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10979     WRITE(emess,*)'nl_get_cen_lat: Out of range domain number: ',id_id
10980     CALL wrf_error_fatal(emess)
10981   ENDIF
10982   cen_lat = model_config_rec%cen_lat(id_id)
10983   RETURN
10984 END SUBROUTINE nl_get_cen_lat
10985 SUBROUTINE nl_get_cen_lon ( id_id , cen_lon )
10986   real , INTENT(OUT) :: cen_lon
10987   INTEGER id_id
10988   CHARACTER*80 emess
10989   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10990     WRITE(emess,*)'nl_get_cen_lon: Out of range domain number: ',id_id
10991     CALL wrf_error_fatal(emess)
10992   ENDIF
10993   cen_lon = model_config_rec%cen_lon(id_id)
10994   RETURN
10995 END SUBROUTINE nl_get_cen_lon
10996 SUBROUTINE nl_get_truelat1 ( id_id , truelat1 )
10997   real , INTENT(OUT) :: truelat1
10998   INTEGER id_id
10999   CHARACTER*80 emess
11000   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11001     WRITE(emess,*)'nl_get_truelat1: Out of range domain number: ',id_id
11002     CALL wrf_error_fatal(emess)
11003   ENDIF
11004   truelat1 = model_config_rec%truelat1(id_id)
11005   RETURN
11006 END SUBROUTINE nl_get_truelat1
11007 SUBROUTINE nl_get_truelat2 ( id_id , truelat2 )
11008   real , INTENT(OUT) :: truelat2
11009   INTEGER id_id
11010   CHARACTER*80 emess
11011   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11012     WRITE(emess,*)'nl_get_truelat2: Out of range domain number: ',id_id
11013     CALL wrf_error_fatal(emess)
11014   ENDIF
11015   truelat2 = model_config_rec%truelat2(id_id)
11016   RETURN
11017 END SUBROUTINE nl_get_truelat2
11018 SUBROUTINE nl_get_moad_cen_lat ( id_id , moad_cen_lat )
11019   real , INTENT(OUT) :: moad_cen_lat
11020   INTEGER id_id
11021   CHARACTER*80 emess
11022   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11023     WRITE(emess,*)'nl_get_moad_cen_lat: Out of range domain number: ',id_id
11024     CALL wrf_error_fatal(emess)
11025   ENDIF
11026   moad_cen_lat = model_config_rec%moad_cen_lat(id_id)
11027   RETURN
11028 END SUBROUTINE nl_get_moad_cen_lat
11029 SUBROUTINE nl_get_stand_lon ( id_id , stand_lon )
11030   real , INTENT(OUT) :: stand_lon
11031   INTEGER id_id
11032   CHARACTER*80 emess
11033   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11034     WRITE(emess,*)'nl_get_stand_lon: Out of range domain number: ',id_id
11035     CALL wrf_error_fatal(emess)
11036   ENDIF
11037   stand_lon = model_config_rec%stand_lon(id_id)
11038   RETURN
11039 END SUBROUTINE nl_get_stand_lon
11040 SUBROUTINE nl_get_bdyfrq ( id_id , bdyfrq )
11041   real , INTENT(OUT) :: bdyfrq
11042   INTEGER id_id
11043   CHARACTER*80 emess
11044   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11045     WRITE(emess,*)'nl_get_bdyfrq: Out of range domain number: ',id_id
11046     CALL wrf_error_fatal(emess)
11047   ENDIF
11048   bdyfrq = model_config_rec%bdyfrq(id_id)
11049   RETURN
11050 END SUBROUTINE nl_get_bdyfrq
11051 SUBROUTINE nl_get_iswater ( id_id , iswater )
11052   integer , INTENT(OUT) :: iswater
11053   INTEGER id_id
11054   CHARACTER*80 emess
11055   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11056     WRITE(emess,*)'nl_get_iswater: Out of range domain number: ',id_id
11057     CALL wrf_error_fatal(emess)
11058   ENDIF
11059   iswater = model_config_rec%iswater(id_id)
11060   RETURN
11061 END SUBROUTINE nl_get_iswater
11062 SUBROUTINE nl_get_isice ( id_id , isice )
11063   integer , INTENT(OUT) :: isice
11064   INTEGER id_id
11065   CHARACTER*80 emess
11066   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11067     WRITE(emess,*)'nl_get_isice: Out of range domain number: ',id_id
11068     CALL wrf_error_fatal(emess)
11069   ENDIF
11070   isice = model_config_rec%isice(id_id)
11071   RETURN
11072 END SUBROUTINE nl_get_isice
11073 SUBROUTINE nl_get_isurban ( id_id , isurban )
11074   integer , INTENT(OUT) :: isurban
11075   INTEGER id_id
11076   CHARACTER*80 emess
11077   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11078     WRITE(emess,*)'nl_get_isurban: Out of range domain number: ',id_id
11079     CALL wrf_error_fatal(emess)
11080   ENDIF
11081   isurban = model_config_rec%isurban(id_id)
11082   RETURN
11083 END SUBROUTINE nl_get_isurban
11084 SUBROUTINE nl_get_isoilwater ( id_id , isoilwater )
11085   integer , INTENT(OUT) :: isoilwater
11086   INTEGER id_id
11087   CHARACTER*80 emess
11088   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11089     WRITE(emess,*)'nl_get_isoilwater: Out of range domain number: ',id_id
11090     CALL wrf_error_fatal(emess)
11091   ENDIF
11092   isoilwater = model_config_rec%isoilwater(id_id)
11093   RETURN
11094 END SUBROUTINE nl_get_isoilwater
11095 SUBROUTINE nl_get_map_proj ( id_id , map_proj )
11096   integer , INTENT(OUT) :: map_proj
11097   INTEGER id_id
11098   CHARACTER*80 emess
11099   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
11100     WRITE(emess,*)'nl_get_map_proj: Out of range domain number: ',id_id
11101     CALL wrf_error_fatal(emess)
11102   ENDIF
11103   map_proj = model_config_rec%map_proj(id_id)
11104   RETURN
11105 END SUBROUTINE nl_get_map_proj
11106 SUBROUTINE nl_set_write_increments ( id_id , write_increments )
11107   logical , INTENT(IN) :: write_increments
11108   INTEGER id_id
11109   CHARACTER*80 emess
11110   IF ( id_id .NE. 1 ) THEN
11111     call wrf_debug(1,&
11112 'WARNING in nl_set_write_increments: write_increments applies to all domains. First arg ignored.')
11113   ENDIF
11114   model_config_rec%write_increments = write_increments 
11115   RETURN
11116 END SUBROUTINE nl_set_write_increments
11117 SUBROUTINE nl_set_var4d ( id_id , var4d )
11118   logical , INTENT(IN) :: var4d
11119   INTEGER id_id
11120   CHARACTER*80 emess
11121   IF ( id_id .NE. 1 ) THEN
11122     call wrf_debug(1,&
11123 'WARNING in nl_set_var4d: var4d applies to all domains. First arg ignored.')
11124   ENDIF
11125   model_config_rec%var4d = var4d 
11126   RETURN
11127 END SUBROUTINE nl_set_var4d
11128 SUBROUTINE nl_set_var4d_multi_inc ( id_id , var4d_multi_inc )
11129   integer , INTENT(IN) :: var4d_multi_inc
11130   INTEGER id_id
11131   CHARACTER*80 emess
11132   IF ( id_id .NE. 1 ) THEN
11133     call wrf_debug(1,&
11134 'WARNING in nl_set_var4d_multi_inc: var4d_multi_inc applies to all domains. First arg ignored.')
11135   ENDIF
11136   model_config_rec%var4d_multi_inc = var4d_multi_inc 
11137   RETURN
11138 END SUBROUTINE nl_set_var4d_multi_inc
11139 SUBROUTINE nl_set_var4d_coupling ( id_id , var4d_coupling )
11140   integer , INTENT(IN) :: var4d_coupling
11141   INTEGER id_id
11142   CHARACTER*80 emess
11143   IF ( id_id .NE. 1 ) THEN
11144     call wrf_debug(1,&
11145 'WARNING in nl_set_var4d_coupling: var4d_coupling applies to all domains. First arg ignored.')
11146   ENDIF
11147   model_config_rec%var4d_coupling = var4d_coupling 
11148   RETURN
11149 END SUBROUTINE nl_set_var4d_coupling
11150 SUBROUTINE nl_set_global ( id_id , global )
11151   logical , INTENT(IN) :: global
11152   INTEGER id_id
11153   CHARACTER*80 emess
11154   IF ( id_id .NE. 1 ) THEN
11155     call wrf_debug(1,&
11156 'WARNING in nl_set_global: global applies to all domains. First arg ignored.')
11157   ENDIF
11158   model_config_rec%global = global 
11159   RETURN
11160 END SUBROUTINE nl_set_global
11161 SUBROUTINE nl_set_oi_use ( id_id , oi_use )
11162   logical , INTENT(IN) :: oi_use
11163   INTEGER id_id
11164   CHARACTER*80 emess
11165   IF ( id_id .NE. 1 ) THEN
11166     call wrf_debug(1,&
11167 'WARNING in nl_set_oi_use: oi_use applies to all domains. First arg ignored.')
11168   ENDIF
11169   model_config_rec%oi_use = oi_use 
11170   RETURN
11171 END SUBROUTINE nl_set_oi_use
11172 SUBROUTINE nl_set_print_detail_airep ( id_id , print_detail_airep )
11173   logical , INTENT(IN) :: print_detail_airep
11174   INTEGER id_id
11175   CHARACTER*80 emess
11176   IF ( id_id .NE. 1 ) THEN
11177     call wrf_debug(1,&
11178 'WARNING in nl_set_print_detail_airep: print_detail_airep applies to all domains. First arg ignored.')
11179   ENDIF
11180   model_config_rec%print_detail_airep = print_detail_airep 
11181   RETURN
11182 END SUBROUTINE nl_set_print_detail_airep
11183 SUBROUTINE nl_set_print_detail_radar ( id_id , print_detail_radar )
11184   logical , INTENT(IN) :: print_detail_radar
11185   INTEGER id_id
11186   CHARACTER*80 emess
11187   IF ( id_id .NE. 1 ) THEN
11188     call wrf_debug(1,&
11189 'WARNING in nl_set_print_detail_radar: print_detail_radar applies to all domains. First arg ignored.')
11190   ENDIF
11191   model_config_rec%print_detail_radar = print_detail_radar 
11192   RETURN
11193 END SUBROUTINE nl_set_print_detail_radar
11194 SUBROUTINE nl_set_print_detail_rad ( id_id , print_detail_rad )
11195   logical , INTENT(IN) :: print_detail_rad
11196   INTEGER id_id
11197   CHARACTER*80 emess
11198   IF ( id_id .NE. 1 ) THEN
11199     call wrf_debug(1,&
11200 'WARNING in nl_set_print_detail_rad: print_detail_rad applies to all domains. First arg ignored.')
11201   ENDIF
11202   model_config_rec%print_detail_rad = print_detail_rad 
11203   RETURN
11204 END SUBROUTINE nl_set_print_detail_rad
11205 SUBROUTINE nl_set_print_detail_xa ( id_id , print_detail_xa )
11206   logical , INTENT(IN) :: print_detail_xa
11207   INTEGER id_id
11208   CHARACTER*80 emess
11209   IF ( id_id .NE. 1 ) THEN
11210     call wrf_debug(1,&
11211 'WARNING in nl_set_print_detail_xa: print_detail_xa applies to all domains. First arg ignored.')
11212   ENDIF
11213   model_config_rec%print_detail_xa = print_detail_xa 
11214   RETURN
11215 END SUBROUTINE nl_set_print_detail_xa
11216 SUBROUTINE nl_set_print_detail_xb ( id_id , print_detail_xb )
11217   logical , INTENT(IN) :: print_detail_xb
11218   INTEGER id_id
11219   CHARACTER*80 emess
11220   IF ( id_id .NE. 1 ) THEN
11221     call wrf_debug(1,&
11222 'WARNING in nl_set_print_detail_xb: print_detail_xb applies to all domains. First arg ignored.')
11223   ENDIF
11224   model_config_rec%print_detail_xb = print_detail_xb 
11225   RETURN
11226 END SUBROUTINE nl_set_print_detail_xb
11227 SUBROUTINE nl_set_print_detail_obs ( id_id , print_detail_obs )
11228   logical , INTENT(IN) :: print_detail_obs
11229   INTEGER id_id
11230   CHARACTER*80 emess
11231   IF ( id_id .NE. 1 ) THEN
11232     call wrf_debug(1,&
11233 'WARNING in nl_set_print_detail_obs: print_detail_obs applies to all domains. First arg ignored.')
11234   ENDIF
11235   model_config_rec%print_detail_obs = print_detail_obs 
11236   RETURN
11237 END SUBROUTINE nl_set_print_detail_obs
11238 SUBROUTINE nl_set_print_detail_f_obs ( id_id , print_detail_f_obs )
11239   logical , INTENT(IN) :: print_detail_f_obs
11240   INTEGER id_id
11241   CHARACTER*80 emess
11242   IF ( id_id .NE. 1 ) THEN
11243     call wrf_debug(1,&
11244 'WARNING in nl_set_print_detail_f_obs: print_detail_f_obs applies to all domains. First arg ignored.')
11245   ENDIF
11246   model_config_rec%print_detail_f_obs = print_detail_f_obs 
11247   RETURN
11248 END SUBROUTINE nl_set_print_detail_f_obs
11249 SUBROUTINE nl_set_print_detail_map ( id_id , print_detail_map )
11250   logical , INTENT(IN) :: print_detail_map
11251   INTEGER id_id
11252   CHARACTER*80 emess
11253   IF ( id_id .NE. 1 ) THEN
11254     call wrf_debug(1,&
11255 'WARNING in nl_set_print_detail_map: print_detail_map applies to all domains. First arg ignored.')
11256   ENDIF
11257   model_config_rec%print_detail_map = print_detail_map 
11258   RETURN
11259 END SUBROUTINE nl_set_print_detail_map
11260 SUBROUTINE nl_set_print_detail_grad ( id_id , print_detail_grad )
11261   logical , INTENT(IN) :: print_detail_grad
11262   INTEGER id_id
11263   CHARACTER*80 emess
11264   IF ( id_id .NE. 1 ) THEN
11265     call wrf_debug(1,&
11266 'WARNING in nl_set_print_detail_grad: print_detail_grad applies to all domains. First arg ignored.')
11267   ENDIF
11268   model_config_rec%print_detail_grad = print_detail_grad 
11269   RETURN
11270 END SUBROUTINE nl_set_print_detail_grad
11271 SUBROUTINE nl_set_print_detail_regression ( id_id , print_detail_regression )
11272   logical , INTENT(IN) :: print_detail_regression
11273   INTEGER id_id
11274   CHARACTER*80 emess
11275   IF ( id_id .NE. 1 ) THEN
11276     call wrf_debug(1,&
11277 'WARNING in nl_set_print_detail_regression: print_detail_regression applies to all domains. First arg ignored.')
11278   ENDIF
11279   model_config_rec%print_detail_regression = print_detail_regression 
11280   RETURN
11281 END SUBROUTINE nl_set_print_detail_regression
11282 SUBROUTINE nl_set_print_detail_spectral ( id_id , print_detail_spectral )
11283   logical , INTENT(IN) :: print_detail_spectral
11284   INTEGER id_id
11285   CHARACTER*80 emess
11286   IF ( id_id .NE. 1 ) THEN
11287     call wrf_debug(1,&
11288 'WARNING in nl_set_print_detail_spectral: print_detail_spectral applies to all domains. First arg ignored.')
11289   ENDIF
11290   model_config_rec%print_detail_spectral = print_detail_spectral 
11291   RETURN
11292 END SUBROUTINE nl_set_print_detail_spectral
11293 SUBROUTINE nl_set_print_detail_testing ( id_id , print_detail_testing )
11294   logical , INTENT(IN) :: print_detail_testing
11295   INTEGER id_id
11296   CHARACTER*80 emess
11297   IF ( id_id .NE. 1 ) THEN
11298     call wrf_debug(1,&
11299 'WARNING in nl_set_print_detail_testing: print_detail_testing applies to all domains. First arg ignored.')
11300   ENDIF
11301   model_config_rec%print_detail_testing = print_detail_testing 
11302   RETURN
11303 END SUBROUTINE nl_set_print_detail_testing
11304 SUBROUTINE nl_set_print_detail_parallel ( id_id , print_detail_parallel )
11305   logical , INTENT(IN) :: print_detail_parallel
11306   INTEGER id_id
11307   CHARACTER*80 emess
11308   IF ( id_id .NE. 1 ) THEN
11309     call wrf_debug(1,&
11310 'WARNING in nl_set_print_detail_parallel: print_detail_parallel applies to all domains. First arg ignored.')
11311   ENDIF
11312   model_config_rec%print_detail_parallel = print_detail_parallel 
11313   RETURN
11314 END SUBROUTINE nl_set_print_detail_parallel
11315 SUBROUTINE nl_set_print_detail_be ( id_id , print_detail_be )
11316   logical , INTENT(IN) :: print_detail_be
11317   INTEGER id_id
11318   CHARACTER*80 emess
11319   IF ( id_id .NE. 1 ) THEN
11320     call wrf_debug(1,&
11321 'WARNING in nl_set_print_detail_be: print_detail_be applies to all domains. First arg ignored.')
11322   ENDIF
11323   model_config_rec%print_detail_be = print_detail_be 
11324   RETURN
11325 END SUBROUTINE nl_set_print_detail_be
11326 SUBROUTINE nl_set_print_detail_timing ( id_id , print_detail_timing )
11327   logical , INTENT(IN) :: print_detail_timing
11328   INTEGER id_id
11329   CHARACTER*80 emess
11330   IF ( id_id .NE. 1 ) THEN
11331     call wrf_debug(1,&
11332 'WARNING in nl_set_print_detail_timing: print_detail_timing applies to all domains. First arg ignored.')
11333   ENDIF
11334   model_config_rec%print_detail_timing = print_detail_timing 
11335   RETURN
11336 END SUBROUTINE nl_set_print_detail_timing
11337 SUBROUTINE nl_set_check_max_iv_print ( id_id , check_max_iv_print )
11338   logical , INTENT(IN) :: check_max_iv_print
11339   INTEGER id_id
11340   CHARACTER*80 emess
11341   IF ( id_id .NE. 1 ) THEN
11342     call wrf_debug(1,&
11343 'WARNING in nl_set_check_max_iv_print: check_max_iv_print applies to all domains. First arg ignored.')
11344   ENDIF
11345   model_config_rec%check_max_iv_print = check_max_iv_print 
11346   RETURN
11347 END SUBROUTINE nl_set_check_max_iv_print
11348 SUBROUTINE nl_set_analysis_accu ( id_id , analysis_accu )
11349   integer , INTENT(IN) :: analysis_accu
11350   INTEGER id_id
11351   CHARACTER*80 emess
11352   IF ( id_id .NE. 1 ) THEN
11353     call wrf_debug(1,&
11354 'WARNING in nl_set_analysis_accu: analysis_accu applies to all domains. First arg ignored.')
11355   ENDIF
11356   model_config_rec%analysis_accu = analysis_accu 
11357   RETURN
11358 END SUBROUTINE nl_set_analysis_accu
11359 SUBROUTINE nl_set_calc_w_increment ( id_id , calc_w_increment )
11360   logical , INTENT(IN) :: calc_w_increment
11361   INTEGER id_id
11362   CHARACTER*80 emess
11363   IF ( id_id .NE. 1 ) THEN
11364     call wrf_debug(1,&
11365 'WARNING in nl_set_calc_w_increment: calc_w_increment applies to all domains. First arg ignored.')
11366   ENDIF
11367   model_config_rec%calc_w_increment = calc_w_increment 
11368   RETURN
11369 END SUBROUTINE nl_set_calc_w_increment
11370 SUBROUTINE nl_set_dt_cloud_model ( id_id , dt_cloud_model )
11371   logical , INTENT(IN) :: dt_cloud_model
11372   INTEGER id_id
11373   CHARACTER*80 emess
11374   IF ( id_id .NE. 1 ) THEN
11375     call wrf_debug(1,&
11376 'WARNING in nl_set_dt_cloud_model: dt_cloud_model applies to all domains. First arg ignored.')
11377   ENDIF
11378   model_config_rec%dt_cloud_model = dt_cloud_model 
11379   RETURN
11380 END SUBROUTINE nl_set_dt_cloud_model
11381 SUBROUTINE nl_set_write_qcw ( id_id , write_qcw )
11382   logical , INTENT(IN) :: write_qcw
11383   INTEGER id_id
11384   CHARACTER*80 emess
11385   IF ( id_id .NE. 1 ) THEN
11386     call wrf_debug(1,&
11387 'WARNING in nl_set_write_qcw: write_qcw applies to all domains. First arg ignored.')
11388   ENDIF
11389   model_config_rec%write_qcw = write_qcw 
11390   RETURN
11391 END SUBROUTINE nl_set_write_qcw
11392 SUBROUTINE nl_set_write_qrn ( id_id , write_qrn )
11393   logical , INTENT(IN) :: write_qrn
11394   INTEGER id_id
11395   CHARACTER*80 emess
11396   IF ( id_id .NE. 1 ) THEN
11397     call wrf_debug(1,&
11398 'WARNING in nl_set_write_qrn: write_qrn applies to all domains. First arg ignored.')
11399   ENDIF
11400   model_config_rec%write_qrn = write_qrn 
11401   RETURN
11402 END SUBROUTINE nl_set_write_qrn
11403 SUBROUTINE nl_set_write_qci ( id_id , write_qci )
11404   logical , INTENT(IN) :: write_qci
11405   INTEGER id_id
11406   CHARACTER*80 emess
11407   IF ( id_id .NE. 1 ) THEN
11408     call wrf_debug(1,&
11409 'WARNING in nl_set_write_qci: write_qci applies to all domains. First arg ignored.')
11410   ENDIF
11411   model_config_rec%write_qci = write_qci 
11412   RETURN
11413 END SUBROUTINE nl_set_write_qci
11414 SUBROUTINE nl_set_write_qsn ( id_id , write_qsn )
11415   logical , INTENT(IN) :: write_qsn
11416   INTEGER id_id
11417   CHARACTER*80 emess
11418   IF ( id_id .NE. 1 ) THEN
11419     call wrf_debug(1,&
11420 'WARNING in nl_set_write_qsn: write_qsn applies to all domains. First arg ignored.')
11421   ENDIF
11422   model_config_rec%write_qsn = write_qsn 
11423   RETURN
11424 END SUBROUTINE nl_set_write_qsn
11425 SUBROUTINE nl_set_write_qgr ( id_id , write_qgr )
11426   logical , INTENT(IN) :: write_qgr
11427   INTEGER id_id
11428   CHARACTER*80 emess
11429   IF ( id_id .NE. 1 ) THEN
11430     call wrf_debug(1,&
11431 'WARNING in nl_set_write_qgr: write_qgr applies to all domains. First arg ignored.')
11432   ENDIF
11433   model_config_rec%write_qgr = write_qgr 
11434   RETURN
11435 END SUBROUTINE nl_set_write_qgr
11436 SUBROUTINE nl_set_write_filtered_obs ( id_id , write_filtered_obs )
11437   logical , INTENT(IN) :: write_filtered_obs
11438   INTEGER id_id
11439   CHARACTER*80 emess
11440   IF ( id_id .NE. 1 ) THEN
11441     call wrf_debug(1,&
11442 'WARNING in nl_set_write_filtered_obs: write_filtered_obs applies to all domains. First arg ignored.')
11443   ENDIF
11444   model_config_rec%write_filtered_obs = write_filtered_obs 
11445   RETURN
11446 END SUBROUTINE nl_set_write_filtered_obs
11447 SUBROUTINE nl_set_fg_format ( id_id , fg_format )
11448   integer , INTENT(IN) :: fg_format
11449   INTEGER id_id
11450   CHARACTER*80 emess
11451   IF ( id_id .NE. 1 ) THEN
11452     call wrf_debug(1,&
11453 'WARNING in nl_set_fg_format: fg_format applies to all domains. First arg ignored.')
11454   ENDIF
11455   model_config_rec%fg_format = fg_format 
11456   RETURN
11457 END SUBROUTINE nl_set_fg_format
11458 SUBROUTINE nl_set_ob_format ( id_id , ob_format )
11459   integer , INTENT(IN) :: ob_format
11460   INTEGER id_id
11461   CHARACTER*80 emess
11462   IF ( id_id .NE. 1 ) THEN
11463     call wrf_debug(1,&
11464 'WARNING in nl_set_ob_format: ob_format applies to all domains. First arg ignored.')
11465   ENDIF
11466   model_config_rec%ob_format = ob_format 
11467   RETURN
11468 END SUBROUTINE nl_set_ob_format
11469 SUBROUTINE nl_set_num_fgat_time ( id_id , num_fgat_time )
11470   integer , INTENT(IN) :: num_fgat_time
11471   INTEGER id_id
11472   CHARACTER*80 emess
11473   IF ( id_id .NE. 1 ) THEN
11474     call wrf_debug(1,&
11475 'WARNING in nl_set_num_fgat_time: num_fgat_time applies to all domains. First arg ignored.')
11476   ENDIF
11477   model_config_rec%num_fgat_time = num_fgat_time 
11478   RETURN
11479 END SUBROUTINE nl_set_num_fgat_time
11480 SUBROUTINE nl_set_use_synopobs ( id_id , use_synopobs )
11481   logical , INTENT(IN) :: use_synopobs
11482   INTEGER id_id
11483   CHARACTER*80 emess
11484   IF ( id_id .NE. 1 ) THEN
11485     call wrf_debug(1,&
11486 'WARNING in nl_set_use_synopobs: use_synopobs applies to all domains. First arg ignored.')
11487   ENDIF
11488   model_config_rec%use_synopobs = use_synopobs 
11489   RETURN
11490 END SUBROUTINE nl_set_use_synopobs
11491 SUBROUTINE nl_set_use_shipsobs ( id_id , use_shipsobs )
11492   logical , INTENT(IN) :: use_shipsobs
11493   INTEGER id_id
11494   CHARACTER*80 emess
11495   IF ( id_id .NE. 1 ) THEN
11496     call wrf_debug(1,&
11497 'WARNING in nl_set_use_shipsobs: use_shipsobs applies to all domains. First arg ignored.')
11498   ENDIF
11499   model_config_rec%use_shipsobs = use_shipsobs 
11500   RETURN
11501 END SUBROUTINE nl_set_use_shipsobs
11502 SUBROUTINE nl_set_use_metarobs ( id_id , use_metarobs )
11503   logical , INTENT(IN) :: use_metarobs
11504   INTEGER id_id
11505   CHARACTER*80 emess
11506   IF ( id_id .NE. 1 ) THEN
11507     call wrf_debug(1,&
11508 'WARNING in nl_set_use_metarobs: use_metarobs applies to all domains. First arg ignored.')
11509   ENDIF
11510   model_config_rec%use_metarobs = use_metarobs 
11511   RETURN
11512 END SUBROUTINE nl_set_use_metarobs
11513 SUBROUTINE nl_set_use_soundobs ( id_id , use_soundobs )
11514   logical , INTENT(IN) :: use_soundobs
11515   INTEGER id_id
11516   CHARACTER*80 emess
11517   IF ( id_id .NE. 1 ) THEN
11518     call wrf_debug(1,&
11519 'WARNING in nl_set_use_soundobs: use_soundobs applies to all domains. First arg ignored.')
11520   ENDIF
11521   model_config_rec%use_soundobs = use_soundobs 
11522   RETURN
11523 END SUBROUTINE nl_set_use_soundobs
11524 SUBROUTINE nl_set_use_pilotobs ( id_id , use_pilotobs )
11525   logical , INTENT(IN) :: use_pilotobs
11526   INTEGER id_id
11527   CHARACTER*80 emess
11528   IF ( id_id .NE. 1 ) THEN
11529     call wrf_debug(1,&
11530 'WARNING in nl_set_use_pilotobs: use_pilotobs applies to all domains. First arg ignored.')
11531   ENDIF
11532   model_config_rec%use_pilotobs = use_pilotobs 
11533   RETURN
11534 END SUBROUTINE nl_set_use_pilotobs
11535 SUBROUTINE nl_set_use_airepobs ( id_id , use_airepobs )
11536   logical , INTENT(IN) :: use_airepobs
11537   INTEGER id_id
11538   CHARACTER*80 emess
11539   IF ( id_id .NE. 1 ) THEN
11540     call wrf_debug(1,&
11541 'WARNING in nl_set_use_airepobs: use_airepobs applies to all domains. First arg ignored.')
11542   ENDIF
11543   model_config_rec%use_airepobs = use_airepobs 
11544   RETURN
11545 END SUBROUTINE nl_set_use_airepobs
11546 SUBROUTINE nl_set_use_geoamvobs ( id_id , use_geoamvobs )
11547   logical , INTENT(IN) :: use_geoamvobs
11548   INTEGER id_id
11549   CHARACTER*80 emess
11550   IF ( id_id .NE. 1 ) THEN
11551     call wrf_debug(1,&
11552 'WARNING in nl_set_use_geoamvobs: use_geoamvobs applies to all domains. First arg ignored.')
11553   ENDIF
11554   model_config_rec%use_geoamvobs = use_geoamvobs 
11555   RETURN
11556 END SUBROUTINE nl_set_use_geoamvobs
11557 SUBROUTINE nl_set_use_polaramvobs ( id_id , use_polaramvobs )
11558   logical , INTENT(IN) :: use_polaramvobs
11559   INTEGER id_id
11560   CHARACTER*80 emess
11561   IF ( id_id .NE. 1 ) THEN
11562     call wrf_debug(1,&
11563 'WARNING in nl_set_use_polaramvobs: use_polaramvobs applies to all domains. First arg ignored.')
11564   ENDIF
11565   model_config_rec%use_polaramvobs = use_polaramvobs 
11566   RETURN
11567 END SUBROUTINE nl_set_use_polaramvobs
11568 SUBROUTINE nl_set_use_bogusobs ( id_id , use_bogusobs )
11569   logical , INTENT(IN) :: use_bogusobs
11570   INTEGER id_id
11571   CHARACTER*80 emess
11572   IF ( id_id .NE. 1 ) THEN
11573     call wrf_debug(1,&
11574 'WARNING in nl_set_use_bogusobs: use_bogusobs applies to all domains. First arg ignored.')
11575   ENDIF
11576   model_config_rec%use_bogusobs = use_bogusobs 
11577   RETURN
11578 END SUBROUTINE nl_set_use_bogusobs
11579 SUBROUTINE nl_set_use_buoyobs ( id_id , use_buoyobs )
11580   logical , INTENT(IN) :: use_buoyobs
11581   INTEGER id_id
11582   CHARACTER*80 emess
11583   IF ( id_id .NE. 1 ) THEN
11584     call wrf_debug(1,&
11585 'WARNING in nl_set_use_buoyobs: use_buoyobs applies to all domains. First arg ignored.')
11586   ENDIF
11587   model_config_rec%use_buoyobs = use_buoyobs 
11588   RETURN
11589 END SUBROUTINE nl_set_use_buoyobs
11590 SUBROUTINE nl_set_use_profilerobs ( id_id , use_profilerobs )
11591   logical , INTENT(IN) :: use_profilerobs
11592   INTEGER id_id
11593   CHARACTER*80 emess
11594   IF ( id_id .NE. 1 ) THEN
11595     call wrf_debug(1,&
11596 'WARNING in nl_set_use_profilerobs: use_profilerobs applies to all domains. First arg ignored.')
11597   ENDIF
11598   model_config_rec%use_profilerobs = use_profilerobs 
11599   RETURN
11600 END SUBROUTINE nl_set_use_profilerobs
11601 SUBROUTINE nl_set_use_satemobs ( id_id , use_satemobs )
11602   logical , INTENT(IN) :: use_satemobs
11603   INTEGER id_id
11604   CHARACTER*80 emess
11605   IF ( id_id .NE. 1 ) THEN
11606     call wrf_debug(1,&
11607 'WARNING in nl_set_use_satemobs: use_satemobs applies to all domains. First arg ignored.')
11608   ENDIF
11609   model_config_rec%use_satemobs = use_satemobs 
11610   RETURN
11611 END SUBROUTINE nl_set_use_satemobs
11612 SUBROUTINE nl_set_use_gpspwobs ( id_id , use_gpspwobs )
11613   logical , INTENT(IN) :: use_gpspwobs
11614   INTEGER id_id
11615   CHARACTER*80 emess
11616   IF ( id_id .NE. 1 ) THEN
11617     call wrf_debug(1,&
11618 'WARNING in nl_set_use_gpspwobs: use_gpspwobs applies to all domains. First arg ignored.')
11619   ENDIF
11620   model_config_rec%use_gpspwobs = use_gpspwobs 
11621   RETURN
11622 END SUBROUTINE nl_set_use_gpspwobs
11623 SUBROUTINE nl_set_use_gpsrefobs ( id_id , use_gpsrefobs )
11624   logical , INTENT(IN) :: use_gpsrefobs
11625   INTEGER id_id
11626   CHARACTER*80 emess
11627   IF ( id_id .NE. 1 ) THEN
11628     call wrf_debug(1,&
11629 'WARNING in nl_set_use_gpsrefobs: use_gpsrefobs applies to all domains. First arg ignored.')
11630   ENDIF
11631   model_config_rec%use_gpsrefobs = use_gpsrefobs 
11632   RETURN
11633 END SUBROUTINE nl_set_use_gpsrefobs
11634 SUBROUTINE nl_set_use_ssmiretrievalobs ( id_id , use_ssmiretrievalobs )
11635   logical , INTENT(IN) :: use_ssmiretrievalobs
11636   INTEGER id_id
11637   CHARACTER*80 emess
11638   IF ( id_id .NE. 1 ) THEN
11639     call wrf_debug(1,&
11640 'WARNING in nl_set_use_ssmiretrievalobs: use_ssmiretrievalobs applies to all domains. First arg ignored.')
11641   ENDIF
11642   model_config_rec%use_ssmiretrievalobs = use_ssmiretrievalobs 
11643   RETURN
11644 END SUBROUTINE nl_set_use_ssmiretrievalobs
11645 SUBROUTINE nl_set_use_ssmitbobs ( id_id , use_ssmitbobs )
11646   logical , INTENT(IN) :: use_ssmitbobs
11647   INTEGER id_id
11648   CHARACTER*80 emess
11649   IF ( id_id .NE. 1 ) THEN
11650     call wrf_debug(1,&
11651 'WARNING in nl_set_use_ssmitbobs: use_ssmitbobs applies to all domains. First arg ignored.')
11652   ENDIF
11653   model_config_rec%use_ssmitbobs = use_ssmitbobs 
11654   RETURN
11655 END SUBROUTINE nl_set_use_ssmitbobs
11656 SUBROUTINE nl_set_use_ssmt1obs ( id_id , use_ssmt1obs )
11657   logical , INTENT(IN) :: use_ssmt1obs
11658   INTEGER id_id
11659   CHARACTER*80 emess
11660   IF ( id_id .NE. 1 ) THEN
11661     call wrf_debug(1,&
11662 'WARNING in nl_set_use_ssmt1obs: use_ssmt1obs applies to all domains. First arg ignored.')
11663   ENDIF
11664   model_config_rec%use_ssmt1obs = use_ssmt1obs 
11665   RETURN
11666 END SUBROUTINE nl_set_use_ssmt1obs
11667 SUBROUTINE nl_set_use_ssmt2obs ( id_id , use_ssmt2obs )
11668   logical , INTENT(IN) :: use_ssmt2obs
11669   INTEGER id_id
11670   CHARACTER*80 emess
11671   IF ( id_id .NE. 1 ) THEN
11672     call wrf_debug(1,&
11673 'WARNING in nl_set_use_ssmt2obs: use_ssmt2obs applies to all domains. First arg ignored.')
11674   ENDIF
11675   model_config_rec%use_ssmt2obs = use_ssmt2obs 
11676   RETURN
11677 END SUBROUTINE nl_set_use_ssmt2obs
11678 SUBROUTINE nl_set_use_qscatobs ( id_id , use_qscatobs )
11679   logical , INTENT(IN) :: use_qscatobs
11680   INTEGER id_id
11681   CHARACTER*80 emess
11682   IF ( id_id .NE. 1 ) THEN
11683     call wrf_debug(1,&
11684 'WARNING in nl_set_use_qscatobs: use_qscatobs applies to all domains. First arg ignored.')
11685   ENDIF
11686   model_config_rec%use_qscatobs = use_qscatobs 
11687   RETURN
11688 END SUBROUTINE nl_set_use_qscatobs
11689 SUBROUTINE nl_set_use_radarobs ( id_id , use_radarobs )
11690   logical , INTENT(IN) :: use_radarobs
11691   INTEGER id_id
11692   CHARACTER*80 emess
11693   IF ( id_id .NE. 1 ) THEN
11694     call wrf_debug(1,&
11695 'WARNING in nl_set_use_radarobs: use_radarobs applies to all domains. First arg ignored.')
11696   ENDIF
11697   model_config_rec%use_radarobs = use_radarobs 
11698   RETURN
11699 END SUBROUTINE nl_set_use_radarobs
11700 SUBROUTINE nl_set_use_radar_rv ( id_id , use_radar_rv )
11701   logical , INTENT(IN) :: use_radar_rv
11702   INTEGER id_id
11703   CHARACTER*80 emess
11704   IF ( id_id .NE. 1 ) THEN
11705     call wrf_debug(1,&
11706 'WARNING in nl_set_use_radar_rv: use_radar_rv applies to all domains. First arg ignored.')
11707   ENDIF
11708   model_config_rec%use_radar_rv = use_radar_rv 
11709   RETURN
11710 END SUBROUTINE nl_set_use_radar_rv
11711 SUBROUTINE nl_set_use_radar_rf ( id_id , use_radar_rf )
11712   logical , INTENT(IN) :: use_radar_rf
11713   INTEGER id_id
11714   CHARACTER*80 emess
11715   IF ( id_id .NE. 1 ) THEN
11716     call wrf_debug(1,&
11717 'WARNING in nl_set_use_radar_rf: use_radar_rf applies to all domains. First arg ignored.')
11718   ENDIF
11719   model_config_rec%use_radar_rf = use_radar_rf 
11720   RETURN
11721 END SUBROUTINE nl_set_use_radar_rf
11722 SUBROUTINE nl_set_use_hirs2obs ( id_id , use_hirs2obs )
11723   logical , INTENT(IN) :: use_hirs2obs
11724   INTEGER id_id
11725   CHARACTER*80 emess
11726   IF ( id_id .NE. 1 ) THEN
11727     call wrf_debug(1,&
11728 'WARNING in nl_set_use_hirs2obs: use_hirs2obs applies to all domains. First arg ignored.')
11729   ENDIF
11730   model_config_rec%use_hirs2obs = use_hirs2obs 
11731   RETURN
11732 END SUBROUTINE nl_set_use_hirs2obs
11733 SUBROUTINE nl_set_use_hirs3obs ( id_id , use_hirs3obs )
11734   logical , INTENT(IN) :: use_hirs3obs
11735   INTEGER id_id
11736   CHARACTER*80 emess
11737   IF ( id_id .NE. 1 ) THEN
11738     call wrf_debug(1,&
11739 'WARNING in nl_set_use_hirs3obs: use_hirs3obs applies to all domains. First arg ignored.')
11740   ENDIF
11741   model_config_rec%use_hirs3obs = use_hirs3obs 
11742   RETURN
11743 END SUBROUTINE nl_set_use_hirs3obs
11744 SUBROUTINE nl_set_use_hirs4obs ( id_id , use_hirs4obs )
11745   logical , INTENT(IN) :: use_hirs4obs
11746   INTEGER id_id
11747   CHARACTER*80 emess
11748   IF ( id_id .NE. 1 ) THEN
11749     call wrf_debug(1,&
11750 'WARNING in nl_set_use_hirs4obs: use_hirs4obs applies to all domains. First arg ignored.')
11751   ENDIF
11752   model_config_rec%use_hirs4obs = use_hirs4obs 
11753   RETURN
11754 END SUBROUTINE nl_set_use_hirs4obs
11755 SUBROUTINE nl_set_use_mhsobs ( id_id , use_mhsobs )
11756   logical , INTENT(IN) :: use_mhsobs
11757   INTEGER id_id
11758   CHARACTER*80 emess
11759   IF ( id_id .NE. 1 ) THEN
11760     call wrf_debug(1,&
11761 'WARNING in nl_set_use_mhsobs: use_mhsobs applies to all domains. First arg ignored.')
11762   ENDIF
11763   model_config_rec%use_mhsobs = use_mhsobs 
11764   RETURN
11765 END SUBROUTINE nl_set_use_mhsobs
11766 SUBROUTINE nl_set_use_msuobs ( id_id , use_msuobs )
11767   logical , INTENT(IN) :: use_msuobs
11768   INTEGER id_id
11769   CHARACTER*80 emess
11770   IF ( id_id .NE. 1 ) THEN
11771     call wrf_debug(1,&
11772 'WARNING in nl_set_use_msuobs: use_msuobs applies to all domains. First arg ignored.')
11773   ENDIF
11774   model_config_rec%use_msuobs = use_msuobs 
11775   RETURN
11776 END SUBROUTINE nl_set_use_msuobs
11777 SUBROUTINE nl_set_use_amsuaobs ( id_id , use_amsuaobs )
11778   logical , INTENT(IN) :: use_amsuaobs
11779   INTEGER id_id
11780   CHARACTER*80 emess
11781   IF ( id_id .NE. 1 ) THEN
11782     call wrf_debug(1,&
11783 'WARNING in nl_set_use_amsuaobs: use_amsuaobs applies to all domains. First arg ignored.')
11784   ENDIF
11785   model_config_rec%use_amsuaobs = use_amsuaobs 
11786   RETURN
11787 END SUBROUTINE nl_set_use_amsuaobs
11788 SUBROUTINE nl_set_use_amsubobs ( id_id , use_amsubobs )
11789   logical , INTENT(IN) :: use_amsubobs
11790   INTEGER id_id
11791   CHARACTER*80 emess
11792   IF ( id_id .NE. 1 ) THEN
11793     call wrf_debug(1,&
11794 'WARNING in nl_set_use_amsubobs: use_amsubobs applies to all domains. First arg ignored.')
11795   ENDIF
11796   model_config_rec%use_amsubobs = use_amsubobs 
11797   RETURN
11798 END SUBROUTINE nl_set_use_amsubobs
11799 SUBROUTINE nl_set_use_airsobs ( id_id , use_airsobs )
11800   logical , INTENT(IN) :: use_airsobs
11801   INTEGER id_id
11802   CHARACTER*80 emess
11803   IF ( id_id .NE. 1 ) THEN
11804     call wrf_debug(1,&
11805 'WARNING in nl_set_use_airsobs: use_airsobs applies to all domains. First arg ignored.')
11806   ENDIF
11807   model_config_rec%use_airsobs = use_airsobs 
11808   RETURN
11809 END SUBROUTINE nl_set_use_airsobs
11810 SUBROUTINE nl_set_use_airsretobs ( id_id , use_airsretobs )
11811   logical , INTENT(IN) :: use_airsretobs
11812   INTEGER id_id
11813   CHARACTER*80 emess
11814   IF ( id_id .NE. 1 ) THEN
11815     call wrf_debug(1,&
11816 'WARNING in nl_set_use_airsretobs: use_airsretobs applies to all domains. First arg ignored.')
11817   ENDIF
11818   model_config_rec%use_airsretobs = use_airsretobs 
11819   RETURN
11820 END SUBROUTINE nl_set_use_airsretobs
11821 SUBROUTINE nl_set_use_eos_amsuaobs ( id_id , use_eos_amsuaobs )
11822   logical , INTENT(IN) :: use_eos_amsuaobs
11823   INTEGER id_id
11824   CHARACTER*80 emess
11825   IF ( id_id .NE. 1 ) THEN
11826     call wrf_debug(1,&
11827 'WARNING in nl_set_use_eos_amsuaobs: use_eos_amsuaobs applies to all domains. First arg ignored.')
11828   ENDIF
11829   model_config_rec%use_eos_amsuaobs = use_eos_amsuaobs 
11830   RETURN
11831 END SUBROUTINE nl_set_use_eos_amsuaobs
11832 SUBROUTINE nl_set_use_eos_radobs ( id_id , use_eos_radobs )
11833   logical , INTENT(IN) :: use_eos_radobs
11834   INTEGER id_id
11835   CHARACTER*80 emess
11836   IF ( id_id .NE. 1 ) THEN
11837     call wrf_debug(1,&
11838 'WARNING in nl_set_use_eos_radobs: use_eos_radobs applies to all domains. First arg ignored.')
11839   ENDIF
11840   model_config_rec%use_eos_radobs = use_eos_radobs 
11841   RETURN
11842 END SUBROUTINE nl_set_use_eos_radobs
11843 SUBROUTINE nl_set_use_hsbobs ( id_id , use_hsbobs )
11844   logical , INTENT(IN) :: use_hsbobs
11845   INTEGER id_id
11846   CHARACTER*80 emess
11847   IF ( id_id .NE. 1 ) THEN
11848     call wrf_debug(1,&
11849 'WARNING in nl_set_use_hsbobs: use_hsbobs applies to all domains. First arg ignored.')
11850   ENDIF
11851   model_config_rec%use_hsbobs = use_hsbobs 
11852   RETURN
11853 END SUBROUTINE nl_set_use_hsbobs
11854 SUBROUTINE nl_set_use_ssmisobs ( id_id , use_ssmisobs )
11855   logical , INTENT(IN) :: use_ssmisobs
11856   INTEGER id_id
11857   CHARACTER*80 emess
11858   IF ( id_id .NE. 1 ) THEN
11859     call wrf_debug(1,&
11860 'WARNING in nl_set_use_ssmisobs: use_ssmisobs applies to all domains. First arg ignored.')
11861   ENDIF
11862   model_config_rec%use_ssmisobs = use_ssmisobs 
11863   RETURN
11864 END SUBROUTINE nl_set_use_ssmisobs
11865 SUBROUTINE nl_set_use_kma1dvar ( id_id , use_kma1dvar )
11866   logical , INTENT(IN) :: use_kma1dvar
11867   INTEGER id_id
11868   CHARACTER*80 emess
11869   IF ( id_id .NE. 1 ) THEN
11870     call wrf_debug(1,&
11871 'WARNING in nl_set_use_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
11872   ENDIF
11873   model_config_rec%use_kma1dvar = use_kma1dvar 
11874   RETURN
11875 END SUBROUTINE nl_set_use_kma1dvar
11876 SUBROUTINE nl_set_use_filtered_rad ( id_id , use_filtered_rad )
11877   logical , INTENT(IN) :: use_filtered_rad
11878   INTEGER id_id
11879   CHARACTER*80 emess
11880   IF ( id_id .NE. 1 ) THEN
11881     call wrf_debug(1,&
11882 'WARNING in nl_set_use_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
11883   ENDIF
11884   model_config_rec%use_filtered_rad = use_filtered_rad 
11885   RETURN
11886 END SUBROUTINE nl_set_use_filtered_rad
11887 SUBROUTINE nl_set_use_obs_errfac ( id_id , use_obs_errfac )
11888   logical , INTENT(IN) :: use_obs_errfac
11889   INTEGER id_id
11890   CHARACTER*80 emess
11891   IF ( id_id .NE. 1 ) THEN
11892     call wrf_debug(1,&
11893 'WARNING in nl_set_use_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
11894   ENDIF
11895   model_config_rec%use_obs_errfac = use_obs_errfac 
11896   RETURN
11897 END SUBROUTINE nl_set_use_obs_errfac
11898 SUBROUTINE nl_set_check_max_iv ( id_id , check_max_iv )
11899   logical , INTENT(IN) :: check_max_iv
11900   INTEGER id_id
11901   CHARACTER*80 emess
11902   IF ( id_id .NE. 1 ) THEN
11903     call wrf_debug(1,&
11904 'WARNING in nl_set_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
11905   ENDIF
11906   model_config_rec%check_max_iv = check_max_iv 
11907   RETURN
11908 END SUBROUTINE nl_set_check_max_iv
11909 SUBROUTINE nl_set_put_rand_seed ( id_id , put_rand_seed )
11910   logical , INTENT(IN) :: put_rand_seed
11911   INTEGER id_id
11912   CHARACTER*80 emess
11913   IF ( id_id .NE. 1 ) THEN
11914     call wrf_debug(1,&
11915 'WARNING in nl_set_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
11916   ENDIF
11917   model_config_rec%put_rand_seed = put_rand_seed 
11918   RETURN
11919 END SUBROUTINE nl_set_put_rand_seed
11920 SUBROUTINE nl_set_omb_set_rand ( id_id , omb_set_rand )
11921   logical , INTENT(IN) :: omb_set_rand
11922   INTEGER id_id
11923   CHARACTER*80 emess
11924   IF ( id_id .NE. 1 ) THEN
11925     call wrf_debug(1,&
11926 'WARNING in nl_set_omb_set_rand: omb_set_rand applies to all domains. First arg ignored.')
11927   ENDIF
11928   model_config_rec%omb_set_rand = omb_set_rand 
11929   RETURN
11930 END SUBROUTINE nl_set_omb_set_rand
11931 SUBROUTINE nl_set_omb_add_noise ( id_id , omb_add_noise )
11932   logical , INTENT(IN) :: omb_add_noise
11933   INTEGER id_id
11934   CHARACTER*80 emess
11935   IF ( id_id .NE. 1 ) THEN
11936     call wrf_debug(1,&
11937 'WARNING in nl_set_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
11938   ENDIF
11939   model_config_rec%omb_add_noise = omb_add_noise 
11940   RETURN
11941 END SUBROUTINE nl_set_omb_add_noise
11942 SUBROUTINE nl_set_position_lev_dependant ( id_id , position_lev_dependant )
11943   logical , INTENT(IN) :: position_lev_dependant
11944   INTEGER id_id
11945   CHARACTER*80 emess
11946   IF ( id_id .NE. 1 ) THEN
11947     call wrf_debug(1,&
11948 'WARNING in nl_set_position_lev_dependant: position_lev_dependant applies to all domains. First arg ignored.')
11949   ENDIF
11950   model_config_rec%position_lev_dependant = position_lev_dependant 
11951   RETURN
11952 END SUBROUTINE nl_set_position_lev_dependant
11953 SUBROUTINE nl_set_obs_qc_pointer ( id_id , obs_qc_pointer )
11954   integer , INTENT(IN) :: obs_qc_pointer
11955   INTEGER id_id
11956   CHARACTER*80 emess
11957   IF ( id_id .NE. 1 ) THEN
11958     call wrf_debug(1,&
11959 'WARNING in nl_set_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
11960   ENDIF
11961   model_config_rec%obs_qc_pointer = obs_qc_pointer 
11962   RETURN
11963 END SUBROUTINE nl_set_obs_qc_pointer
11964 SUBROUTINE nl_set_max_sound_input ( id_id , max_sound_input )
11965   integer , INTENT(IN) :: max_sound_input
11966   INTEGER id_id
11967   CHARACTER*80 emess
11968   IF ( id_id .NE. 1 ) THEN
11969     call wrf_debug(1,&
11970 'WARNING in nl_set_max_sound_input: max_sound_input applies to all domains. First arg ignored.')
11971   ENDIF
11972   model_config_rec%max_sound_input = max_sound_input 
11973   RETURN
11974 END SUBROUTINE nl_set_max_sound_input
11975 SUBROUTINE nl_set_max_synop_input ( id_id , max_synop_input )
11976   integer , INTENT(IN) :: max_synop_input
11977   INTEGER id_id
11978   CHARACTER*80 emess
11979   IF ( id_id .NE. 1 ) THEN
11980     call wrf_debug(1,&
11981 'WARNING in nl_set_max_synop_input: max_synop_input applies to all domains. First arg ignored.')
11982   ENDIF
11983   model_config_rec%max_synop_input = max_synop_input 
11984   RETURN
11985 END SUBROUTINE nl_set_max_synop_input
11986 SUBROUTINE nl_set_max_geoamv_input ( id_id , max_geoamv_input )
11987   integer , INTENT(IN) :: max_geoamv_input
11988   INTEGER id_id
11989   CHARACTER*80 emess
11990   IF ( id_id .NE. 1 ) THEN
11991     call wrf_debug(1,&
11992 'WARNING in nl_set_max_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
11993   ENDIF
11994   model_config_rec%max_geoamv_input = max_geoamv_input 
11995   RETURN
11996 END SUBROUTINE nl_set_max_geoamv_input
11997 SUBROUTINE nl_set_max_polaramv_input ( id_id , max_polaramv_input )
11998   integer , INTENT(IN) :: max_polaramv_input
11999   INTEGER id_id
12000   CHARACTER*80 emess
12001   IF ( id_id .NE. 1 ) THEN
12002     call wrf_debug(1,&
12003 'WARNING in nl_set_max_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
12004   ENDIF
12005   model_config_rec%max_polaramv_input = max_polaramv_input 
12006   RETURN
12007 END SUBROUTINE nl_set_max_polaramv_input
12008 SUBROUTINE nl_set_max_airep_input ( id_id , max_airep_input )
12009   integer , INTENT(IN) :: max_airep_input
12010   INTEGER id_id
12011   CHARACTER*80 emess
12012   IF ( id_id .NE. 1 ) THEN
12013     call wrf_debug(1,&
12014 'WARNING in nl_set_max_airep_input: max_airep_input applies to all domains. First arg ignored.')
12015   ENDIF
12016   model_config_rec%max_airep_input = max_airep_input 
12017   RETURN
12018 END SUBROUTINE nl_set_max_airep_input
12019 SUBROUTINE nl_set_max_satem_input ( id_id , max_satem_input )
12020   integer , INTENT(IN) :: max_satem_input
12021   INTEGER id_id
12022   CHARACTER*80 emess
12023   IF ( id_id .NE. 1 ) THEN
12024     call wrf_debug(1,&
12025 'WARNING in nl_set_max_satem_input: max_satem_input applies to all domains. First arg ignored.')
12026   ENDIF
12027   model_config_rec%max_satem_input = max_satem_input 
12028   RETURN
12029 END SUBROUTINE nl_set_max_satem_input
12030 SUBROUTINE nl_set_max_pilot_input ( id_id , max_pilot_input )
12031   integer , INTENT(IN) :: max_pilot_input
12032   INTEGER id_id
12033   CHARACTER*80 emess
12034   IF ( id_id .NE. 1 ) THEN
12035     call wrf_debug(1,&
12036 'WARNING in nl_set_max_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
12037   ENDIF
12038   model_config_rec%max_pilot_input = max_pilot_input 
12039   RETURN
12040 END SUBROUTINE nl_set_max_pilot_input
12041 SUBROUTINE nl_set_max_radar_input ( id_id , max_radar_input )
12042   integer , INTENT(IN) :: max_radar_input
12043   INTEGER id_id
12044   CHARACTER*80 emess
12045   IF ( id_id .NE. 1 ) THEN
12046     call wrf_debug(1,&
12047 'WARNING in nl_set_max_radar_input: max_radar_input applies to all domains. First arg ignored.')
12048   ENDIF
12049   model_config_rec%max_radar_input = max_radar_input 
12050   RETURN
12051 END SUBROUTINE nl_set_max_radar_input
12052 SUBROUTINE nl_set_max_metar_input ( id_id , max_metar_input )
12053   integer , INTENT(IN) :: max_metar_input
12054   INTEGER id_id
12055   CHARACTER*80 emess
12056   IF ( id_id .NE. 1 ) THEN
12057     call wrf_debug(1,&
12058 'WARNING in nl_set_max_metar_input: max_metar_input applies to all domains. First arg ignored.')
12059   ENDIF
12060   model_config_rec%max_metar_input = max_metar_input 
12061   RETURN
12062 END SUBROUTINE nl_set_max_metar_input
12063 SUBROUTINE nl_set_max_gpspw_input ( id_id , max_gpspw_input )
12064   integer , INTENT(IN) :: max_gpspw_input
12065   INTEGER id_id
12066   CHARACTER*80 emess
12067   IF ( id_id .NE. 1 ) THEN
12068     call wrf_debug(1,&
12069 'WARNING in nl_set_max_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
12070   ENDIF
12071   model_config_rec%max_gpspw_input = max_gpspw_input 
12072   RETURN
12073 END SUBROUTINE nl_set_max_gpspw_input
12074 SUBROUTINE nl_set_max_ships_input ( id_id , max_ships_input )
12075   integer , INTENT(IN) :: max_ships_input
12076   INTEGER id_id
12077   CHARACTER*80 emess
12078   IF ( id_id .NE. 1 ) THEN
12079     call wrf_debug(1,&
12080 'WARNING in nl_set_max_ships_input: max_ships_input applies to all domains. First arg ignored.')
12081   ENDIF
12082   model_config_rec%max_ships_input = max_ships_input 
12083   RETURN
12084 END SUBROUTINE nl_set_max_ships_input
12085 SUBROUTINE nl_set_max_profiler_input ( id_id , max_profiler_input )
12086   integer , INTENT(IN) :: max_profiler_input
12087   INTEGER id_id
12088   CHARACTER*80 emess
12089   IF ( id_id .NE. 1 ) THEN
12090     call wrf_debug(1,&
12091 'WARNING in nl_set_max_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
12092   ENDIF
12093   model_config_rec%max_profiler_input = max_profiler_input 
12094   RETURN
12095 END SUBROUTINE nl_set_max_profiler_input
12096 SUBROUTINE nl_set_max_bogus_input ( id_id , max_bogus_input )
12097   integer , INTENT(IN) :: max_bogus_input
12098   INTEGER id_id
12099   CHARACTER*80 emess
12100   IF ( id_id .NE. 1 ) THEN
12101     call wrf_debug(1,&
12102 'WARNING in nl_set_max_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
12103   ENDIF
12104   model_config_rec%max_bogus_input = max_bogus_input 
12105   RETURN
12106 END SUBROUTINE nl_set_max_bogus_input
12107 SUBROUTINE nl_set_max_buoy_input ( id_id , max_buoy_input )
12108   integer , INTENT(IN) :: max_buoy_input
12109   INTEGER id_id
12110   CHARACTER*80 emess
12111   IF ( id_id .NE. 1 ) THEN
12112     call wrf_debug(1,&
12113 'WARNING in nl_set_max_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
12114   ENDIF
12115   model_config_rec%max_buoy_input = max_buoy_input 
12116   RETURN
12117 END SUBROUTINE nl_set_max_buoy_input
12118 SUBROUTINE nl_set_max_ssmi_rv_input ( id_id , max_ssmi_rv_input )
12119   integer , INTENT(IN) :: max_ssmi_rv_input
12120   INTEGER id_id
12121   CHARACTER*80 emess
12122   IF ( id_id .NE. 1 ) THEN
12123     call wrf_debug(1,&
12124 'WARNING in nl_set_max_ssmi_rv_input: max_ssmi_rv_input applies to all domains. First arg ignored.')
12125   ENDIF
12126   model_config_rec%max_ssmi_rv_input = max_ssmi_rv_input 
12127   RETURN
12128 END SUBROUTINE nl_set_max_ssmi_rv_input
12129 SUBROUTINE nl_set_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
12130   integer , INTENT(IN) :: max_ssmi_tb_input
12131   INTEGER id_id
12132   CHARACTER*80 emess
12133   IF ( id_id .NE. 1 ) THEN
12134     call wrf_debug(1,&
12135 'WARNING in nl_set_max_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
12136   ENDIF
12137   model_config_rec%max_ssmi_tb_input = max_ssmi_tb_input 
12138   RETURN
12139 END SUBROUTINE nl_set_max_ssmi_tb_input
12140 SUBROUTINE nl_set_max_ssmt1_input ( id_id , max_ssmt1_input )
12141   integer , INTENT(IN) :: max_ssmt1_input
12142   INTEGER id_id
12143   CHARACTER*80 emess
12144   IF ( id_id .NE. 1 ) THEN
12145     call wrf_debug(1,&
12146 'WARNING in nl_set_max_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
12147   ENDIF
12148   model_config_rec%max_ssmt1_input = max_ssmt1_input 
12149   RETURN
12150 END SUBROUTINE nl_set_max_ssmt1_input
12151 SUBROUTINE nl_set_max_ssmt2_input ( id_id , max_ssmt2_input )
12152   integer , INTENT(IN) :: max_ssmt2_input
12153   INTEGER id_id
12154   CHARACTER*80 emess
12155   IF ( id_id .NE. 1 ) THEN
12156     call wrf_debug(1,&
12157 'WARNING in nl_set_max_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
12158   ENDIF
12159   model_config_rec%max_ssmt2_input = max_ssmt2_input 
12160   RETURN
12161 END SUBROUTINE nl_set_max_ssmt2_input
12162 SUBROUTINE nl_set_max_qscat_input ( id_id , max_qscat_input )
12163   integer , INTENT(IN) :: max_qscat_input
12164   INTEGER id_id
12165   CHARACTER*80 emess
12166   IF ( id_id .NE. 1 ) THEN
12167     call wrf_debug(1,&
12168 'WARNING in nl_set_max_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
12169   ENDIF
12170   model_config_rec%max_qscat_input = max_qscat_input 
12171   RETURN
12172 END SUBROUTINE nl_set_max_qscat_input
12173 SUBROUTINE nl_set_max_gpsref_input ( id_id , max_gpsref_input )
12174   integer , INTENT(IN) :: max_gpsref_input
12175   INTEGER id_id
12176   CHARACTER*80 emess
12177   IF ( id_id .NE. 1 ) THEN
12178     call wrf_debug(1,&
12179 'WARNING in nl_set_max_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
12180   ENDIF
12181   model_config_rec%max_gpsref_input = max_gpsref_input 
12182   RETURN
12183 END SUBROUTINE nl_set_max_gpsref_input
12184 SUBROUTINE nl_set_max_airsr_input ( id_id , max_airsr_input )
12185   integer , INTENT(IN) :: max_airsr_input
12186   INTEGER id_id
12187   CHARACTER*80 emess
12188   IF ( id_id .NE. 1 ) THEN
12189     call wrf_debug(1,&
12190 'WARNING in nl_set_max_airsr_input: max_airsr_input applies to all domains. First arg ignored.')
12191   ENDIF
12192   model_config_rec%max_airsr_input = max_airsr_input 
12193   RETURN
12194 END SUBROUTINE nl_set_max_airsr_input
12195 SUBROUTINE nl_set_max_tovs_input ( id_id , max_tovs_input )
12196   integer , INTENT(IN) :: max_tovs_input
12197   INTEGER id_id
12198   CHARACTER*80 emess
12199   IF ( id_id .NE. 1 ) THEN
12200     call wrf_debug(1,&
12201 'WARNING in nl_set_max_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
12202   ENDIF
12203   model_config_rec%max_tovs_input = max_tovs_input 
12204   RETURN
12205 END SUBROUTINE nl_set_max_tovs_input
12206 SUBROUTINE nl_set_max_ssmis_input ( id_id , max_ssmis_input )
12207   integer , INTENT(IN) :: max_ssmis_input
12208   INTEGER id_id
12209   CHARACTER*80 emess
12210   IF ( id_id .NE. 1 ) THEN
12211     call wrf_debug(1,&
12212 'WARNING in nl_set_max_ssmis_input: max_ssmis_input applies to all domains. First arg ignored.')
12213   ENDIF
12214   model_config_rec%max_ssmis_input = max_ssmis_input 
12215   RETURN
12216 END SUBROUTINE nl_set_max_ssmis_input
12217 SUBROUTINE nl_set_report_start ( id_id , report_start )
12218   integer , INTENT(IN) :: report_start
12219   INTEGER id_id
12220   CHARACTER*80 emess
12221   IF ( id_id .NE. 1 ) THEN
12222     call wrf_debug(1,&
12223 'WARNING in nl_set_report_start: report_start applies to all domains. First arg ignored.')
12224   ENDIF
12225   model_config_rec%report_start = report_start 
12226   RETURN
12227 END SUBROUTINE nl_set_report_start
12228 SUBROUTINE nl_set_report_end ( id_id , report_end )
12229   integer , INTENT(IN) :: report_end
12230   INTEGER id_id
12231   CHARACTER*80 emess
12232   IF ( id_id .NE. 1 ) THEN
12233     call wrf_debug(1,&
12234 'WARNING in nl_set_report_end: report_end applies to all domains. First arg ignored.')
12235   ENDIF
12236   model_config_rec%report_end = report_end 
12237   RETURN
12238 END SUBROUTINE nl_set_report_end
12239 SUBROUTINE nl_set_tovs_start ( id_id , tovs_start )
12240   integer , INTENT(IN) :: tovs_start
12241   INTEGER id_id
12242   CHARACTER*80 emess
12243   IF ( id_id .NE. 1 ) THEN
12244     call wrf_debug(1,&
12245 'WARNING in nl_set_tovs_start: tovs_start applies to all domains. First arg ignored.')
12246   ENDIF
12247   model_config_rec%tovs_start = tovs_start 
12248   RETURN
12249 END SUBROUTINE nl_set_tovs_start
12250 SUBROUTINE nl_set_tovs_end ( id_id , tovs_end )
12251   integer , INTENT(IN) :: tovs_end
12252   INTEGER id_id
12253   CHARACTER*80 emess
12254   IF ( id_id .NE. 1 ) THEN
12255     call wrf_debug(1,&
12256 'WARNING in nl_set_tovs_end: tovs_end applies to all domains. First arg ignored.')
12257   ENDIF
12258   model_config_rec%tovs_end = tovs_end 
12259   RETURN
12260 END SUBROUTINE nl_set_tovs_end
12261 SUBROUTINE nl_set_max_ext_its ( id_id , max_ext_its )
12262   integer , INTENT(IN) :: max_ext_its
12263   INTEGER id_id
12264   CHARACTER*80 emess
12265   IF ( id_id .NE. 1 ) THEN
12266     call wrf_debug(1,&
12267 'WARNING in nl_set_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
12268   ENDIF
12269   model_config_rec%max_ext_its = max_ext_its 
12270   RETURN
12271 END SUBROUTINE nl_set_max_ext_its
12272 SUBROUTINE nl_set_ntmax ( id_id , ntmax )
12273   integer , INTENT(IN) :: ntmax
12274   INTEGER id_id
12275   CHARACTER*80 emess
12276   IF ( id_id .NE. 1 ) THEN
12277     call wrf_debug(1,&
12278 'WARNING in nl_set_ntmax: ntmax applies to all domains. First arg ignored.')
12279   ENDIF
12280   model_config_rec%ntmax = ntmax 
12281   RETURN
12282 END SUBROUTINE nl_set_ntmax
12283 SUBROUTINE nl_set_nsave ( id_id , nsave )
12284   integer , INTENT(IN) :: nsave
12285   INTEGER id_id
12286   CHARACTER*80 emess
12287   IF ( id_id .NE. 1 ) THEN
12288     call wrf_debug(1,&
12289 'WARNING in nl_set_nsave: nsave applies to all domains. First arg ignored.')
12290   ENDIF
12291   model_config_rec%nsave = nsave 
12292   RETURN
12293 END SUBROUTINE nl_set_nsave
12294 SUBROUTINE nl_set_write_interval ( id_id , write_interval )
12295   integer , INTENT(IN) :: write_interval
12296   INTEGER id_id
12297   CHARACTER*80 emess
12298   IF ( id_id .NE. 1 ) THEN
12299     call wrf_debug(1,&
12300 'WARNING in nl_set_write_interval: write_interval applies to all domains. First arg ignored.')
12301   ENDIF
12302   model_config_rec%write_interval = write_interval 
12303   RETURN
12304 END SUBROUTINE nl_set_write_interval
12305 SUBROUTINE nl_set_eps ( id_id , eps )
12306   real , INTENT(IN) :: eps
12307   INTEGER id_id
12308   CHARACTER*80 emess
12309   IF ( id_id .LT. 1 .OR. id_id .GT. max_outer_iterations ) THEN
12310     WRITE(emess,*)'nl_set_eps: Out of range eps number: ',id_id
12311     CALL wrf_error_fatal(emess)
12312   ENDIF
12313   model_config_rec%eps(id_id) = eps
12314   RETURN
12315 END SUBROUTINE nl_set_eps
12316 SUBROUTINE nl_set_rf_passes ( id_id , rf_passes )
12317   integer , INTENT(IN) :: rf_passes
12318   INTEGER id_id
12319   CHARACTER*80 emess
12320   IF ( id_id .NE. 1 ) THEN
12321     call wrf_debug(1,&
12322 'WARNING in nl_set_rf_passes: rf_passes applies to all domains. First arg ignored.')
12323   ENDIF
12324   model_config_rec%rf_passes = rf_passes 
12325   RETURN
12326 END SUBROUTINE nl_set_rf_passes
12327 SUBROUTINE nl_set_var_scaling1 ( id_id , var_scaling1 )
12328   real , INTENT(IN) :: var_scaling1
12329   INTEGER id_id
12330   CHARACTER*80 emess
12331   IF ( id_id .NE. 1 ) THEN
12332     call wrf_debug(1,&
12333 'WARNING in nl_set_var_scaling1: var_scaling1 applies to all domains. First arg ignored.')
12334   ENDIF
12335   model_config_rec%var_scaling1 = var_scaling1 
12336   RETURN
12337 END SUBROUTINE nl_set_var_scaling1
12338 SUBROUTINE nl_set_var_scaling2 ( id_id , var_scaling2 )
12339   real , INTENT(IN) :: var_scaling2
12340   INTEGER id_id
12341   CHARACTER*80 emess
12342   IF ( id_id .NE. 1 ) THEN
12343     call wrf_debug(1,&
12344 'WARNING in nl_set_var_scaling2: var_scaling2 applies to all domains. First arg ignored.')
12345   ENDIF
12346   model_config_rec%var_scaling2 = var_scaling2 
12347   RETURN
12348 END SUBROUTINE nl_set_var_scaling2
12349 SUBROUTINE nl_set_var_scaling3 ( id_id , var_scaling3 )
12350   real , INTENT(IN) :: var_scaling3
12351   INTEGER id_id
12352   CHARACTER*80 emess
12353   IF ( id_id .NE. 1 ) THEN
12354     call wrf_debug(1,&
12355 'WARNING in nl_set_var_scaling3: var_scaling3 applies to all domains. First arg ignored.')
12356   ENDIF
12357   model_config_rec%var_scaling3 = var_scaling3 
12358   RETURN
12359 END SUBROUTINE nl_set_var_scaling3
12360 SUBROUTINE nl_set_var_scaling4 ( id_id , var_scaling4 )
12361   real , INTENT(IN) :: var_scaling4
12362   INTEGER id_id
12363   CHARACTER*80 emess
12364   IF ( id_id .NE. 1 ) THEN
12365     call wrf_debug(1,&
12366 'WARNING in nl_set_var_scaling4: var_scaling4 applies to all domains. First arg ignored.')
12367   ENDIF
12368   model_config_rec%var_scaling4 = var_scaling4 
12369   RETURN
12370 END SUBROUTINE nl_set_var_scaling4
12371 SUBROUTINE nl_set_var_scaling5 ( id_id , var_scaling5 )
12372   real , INTENT(IN) :: var_scaling5
12373   INTEGER id_id
12374   CHARACTER*80 emess
12375   IF ( id_id .NE. 1 ) THEN
12376     call wrf_debug(1,&
12377 'WARNING in nl_set_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
12378   ENDIF
12379   model_config_rec%var_scaling5 = var_scaling5 
12380   RETURN
12381 END SUBROUTINE nl_set_var_scaling5
12382 SUBROUTINE nl_set_len_scaling1 ( id_id , len_scaling1 )
12383   real , INTENT(IN) :: len_scaling1
12384   INTEGER id_id
12385   CHARACTER*80 emess
12386   IF ( id_id .NE. 1 ) THEN
12387     call wrf_debug(1,&
12388 'WARNING in nl_set_len_scaling1: len_scaling1 applies to all domains. First arg ignored.')
12389   ENDIF
12390   model_config_rec%len_scaling1 = len_scaling1 
12391   RETURN
12392 END SUBROUTINE nl_set_len_scaling1
12393 SUBROUTINE nl_set_len_scaling2 ( id_id , len_scaling2 )
12394   real , INTENT(IN) :: len_scaling2
12395   INTEGER id_id
12396   CHARACTER*80 emess
12397   IF ( id_id .NE. 1 ) THEN
12398     call wrf_debug(1,&
12399 'WARNING in nl_set_len_scaling2: len_scaling2 applies to all domains. First arg ignored.')
12400   ENDIF
12401   model_config_rec%len_scaling2 = len_scaling2 
12402   RETURN
12403 END SUBROUTINE nl_set_len_scaling2
12404 SUBROUTINE nl_set_len_scaling3 ( id_id , len_scaling3 )
12405   real , INTENT(IN) :: len_scaling3
12406   INTEGER id_id
12407   CHARACTER*80 emess
12408   IF ( id_id .NE. 1 ) THEN
12409     call wrf_debug(1,&
12410 'WARNING in nl_set_len_scaling3: len_scaling3 applies to all domains. First arg ignored.')
12411   ENDIF
12412   model_config_rec%len_scaling3 = len_scaling3 
12413   RETURN
12414 END SUBROUTINE nl_set_len_scaling3
12415 SUBROUTINE nl_set_len_scaling4 ( id_id , len_scaling4 )
12416   real , INTENT(IN) :: len_scaling4
12417   INTEGER id_id
12418   CHARACTER*80 emess
12419   IF ( id_id .NE. 1 ) THEN
12420     call wrf_debug(1,&
12421 'WARNING in nl_set_len_scaling4: len_scaling4 applies to all domains. First arg ignored.')
12422   ENDIF
12423   model_config_rec%len_scaling4 = len_scaling4 
12424   RETURN
12425 END SUBROUTINE nl_set_len_scaling4
12426 SUBROUTINE nl_set_len_scaling5 ( id_id , len_scaling5 )
12427   real , INTENT(IN) :: len_scaling5
12428   INTEGER id_id
12429   CHARACTER*80 emess
12430   IF ( id_id .NE. 1 ) THEN
12431     call wrf_debug(1,&
12432 'WARNING in nl_set_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
12433   ENDIF
12434   model_config_rec%len_scaling5 = len_scaling5 
12435   RETURN
12436 END SUBROUTINE nl_set_len_scaling5
12437 SUBROUTINE nl_set_jb_factor ( id_id , jb_factor )
12438   real , INTENT(IN) :: jb_factor
12439   INTEGER id_id
12440   CHARACTER*80 emess
12441   IF ( id_id .NE. 1 ) THEN
12442     call wrf_debug(1,&
12443 'WARNING in nl_set_jb_factor: jb_factor applies to all domains. First arg ignored.')
12444   ENDIF
12445   model_config_rec%jb_factor = jb_factor 
12446   RETURN
12447 END SUBROUTINE nl_set_jb_factor
12448 SUBROUTINE nl_set_je_factor ( id_id , je_factor )
12449   real , INTENT(IN) :: je_factor
12450   INTEGER id_id
12451   CHARACTER*80 emess
12452   IF ( id_id .NE. 1 ) THEN
12453     call wrf_debug(1,&
12454 'WARNING in nl_set_je_factor: je_factor applies to all domains. First arg ignored.')
12455   ENDIF
12456   model_config_rec%je_factor = je_factor 
12457   RETURN
12458 END SUBROUTINE nl_set_je_factor
12459 SUBROUTINE nl_set_power_truncation ( id_id , power_truncation )
12460   real , INTENT(IN) :: power_truncation
12461   INTEGER id_id
12462   CHARACTER*80 emess
12463   IF ( id_id .NE. 1 ) THEN
12464     call wrf_debug(1,&
12465 'WARNING in nl_set_power_truncation: power_truncation applies to all domains. First arg ignored.')
12466   ENDIF
12467   model_config_rec%power_truncation = power_truncation 
12468   RETURN
12469 END SUBROUTINE nl_set_power_truncation
12470 SUBROUTINE nl_set_def_sub_domain ( id_id , def_sub_domain )
12471   logical , INTENT(IN) :: def_sub_domain
12472   INTEGER id_id
12473   CHARACTER*80 emess
12474   IF ( id_id .NE. 1 ) THEN
12475     call wrf_debug(1,&
12476 'WARNING in nl_set_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
12477   ENDIF
12478   model_config_rec%def_sub_domain = def_sub_domain 
12479   RETURN
12480 END SUBROUTINE nl_set_def_sub_domain
12481 SUBROUTINE nl_set_x_start_sub_domain ( id_id , x_start_sub_domain )
12482   real , INTENT(IN) :: x_start_sub_domain
12483   INTEGER id_id
12484   CHARACTER*80 emess
12485   IF ( id_id .NE. 1 ) THEN
12486     call wrf_debug(1,&
12487 'WARNING in nl_set_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
12488   ENDIF
12489   model_config_rec%x_start_sub_domain = x_start_sub_domain 
12490   RETURN
12491 END SUBROUTINE nl_set_x_start_sub_domain
12492 SUBROUTINE nl_set_y_start_sub_domain ( id_id , y_start_sub_domain )
12493   real , INTENT(IN) :: y_start_sub_domain
12494   INTEGER id_id
12495   CHARACTER*80 emess
12496   IF ( id_id .NE. 1 ) THEN
12497     call wrf_debug(1,&
12498 'WARNING in nl_set_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
12499   ENDIF
12500   model_config_rec%y_start_sub_domain = y_start_sub_domain 
12501   RETURN
12502 END SUBROUTINE nl_set_y_start_sub_domain
12503 SUBROUTINE nl_set_x_end_sub_domain ( id_id , x_end_sub_domain )
12504   real , INTENT(IN) :: x_end_sub_domain
12505   INTEGER id_id
12506   CHARACTER*80 emess
12507   IF ( id_id .NE. 1 ) THEN
12508     call wrf_debug(1,&
12509 'WARNING in nl_set_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
12510   ENDIF
12511   model_config_rec%x_end_sub_domain = x_end_sub_domain 
12512   RETURN
12513 END SUBROUTINE nl_set_x_end_sub_domain
12514 SUBROUTINE nl_set_y_end_sub_domain ( id_id , y_end_sub_domain )
12515   real , INTENT(IN) :: y_end_sub_domain
12516   INTEGER id_id
12517   CHARACTER*80 emess
12518   IF ( id_id .NE. 1 ) THEN
12519     call wrf_debug(1,&
12520 'WARNING in nl_set_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
12521   ENDIF
12522   model_config_rec%y_end_sub_domain = y_end_sub_domain 
12523   RETURN
12524 END SUBROUTINE nl_set_y_end_sub_domain
12525 SUBROUTINE nl_set_stdout ( id_id , stdout )
12526   integer , INTENT(IN) :: stdout
12527   INTEGER id_id
12528   CHARACTER*80 emess
12529   IF ( id_id .NE. 1 ) THEN
12530     call wrf_debug(1,&
12531 'WARNING in nl_set_stdout: stdout applies to all domains. First arg ignored.')
12532   ENDIF
12533   model_config_rec%stdout = stdout 
12534   RETURN
12535 END SUBROUTINE nl_set_stdout
12536 SUBROUTINE nl_set_stderr ( id_id , stderr )
12537   integer , INTENT(IN) :: stderr
12538   INTEGER id_id
12539   CHARACTER*80 emess
12540   IF ( id_id .NE. 1 ) THEN
12541     call wrf_debug(1,&
12542 'WARNING in nl_set_stderr: stderr applies to all domains. First arg ignored.')
12543   ENDIF
12544   model_config_rec%stderr = stderr 
12545   RETURN
12546 END SUBROUTINE nl_set_stderr
12547 SUBROUTINE nl_set_trace_unit ( id_id , trace_unit )
12548   integer , INTENT(IN) :: trace_unit
12549   INTEGER id_id
12550   CHARACTER*80 emess
12551   IF ( id_id .NE. 1 ) THEN
12552     call wrf_debug(1,&
12553 'WARNING in nl_set_trace_unit: trace_unit applies to all domains. First arg ignored.')
12554   ENDIF
12555   model_config_rec%trace_unit = trace_unit 
12556   RETURN
12557 END SUBROUTINE nl_set_trace_unit
12558 SUBROUTINE nl_set_trace_pe ( id_id , trace_pe )
12559   integer , INTENT(IN) :: trace_pe
12560   INTEGER id_id
12561   CHARACTER*80 emess
12562   IF ( id_id .NE. 1 ) THEN
12563     call wrf_debug(1,&
12564 'WARNING in nl_set_trace_pe: trace_pe applies to all domains. First arg ignored.')
12565   ENDIF
12566   model_config_rec%trace_pe = trace_pe 
12567   RETURN
12568 END SUBROUTINE nl_set_trace_pe
12569 SUBROUTINE nl_set_trace_repeat_head ( id_id , trace_repeat_head )
12570   integer , INTENT(IN) :: trace_repeat_head
12571   INTEGER id_id
12572   CHARACTER*80 emess
12573   IF ( id_id .NE. 1 ) THEN
12574     call wrf_debug(1,&
12575 'WARNING in nl_set_trace_repeat_head: trace_repeat_head applies to all domains. First arg ignored.')
12576   ENDIF
12577   model_config_rec%trace_repeat_head = trace_repeat_head 
12578   RETURN
12579 END SUBROUTINE nl_set_trace_repeat_head
12580 SUBROUTINE nl_set_trace_repeat_body ( id_id , trace_repeat_body )
12581   integer , INTENT(IN) :: trace_repeat_body
12582   INTEGER id_id
12583   CHARACTER*80 emess
12584   IF ( id_id .NE. 1 ) THEN
12585     call wrf_debug(1,&
12586 'WARNING in nl_set_trace_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
12587   ENDIF
12588   model_config_rec%trace_repeat_body = trace_repeat_body 
12589   RETURN
12590 END SUBROUTINE nl_set_trace_repeat_body
12591 SUBROUTINE nl_set_trace_max_depth ( id_id , trace_max_depth )
12592   integer , INTENT(IN) :: trace_max_depth
12593   INTEGER id_id
12594   CHARACTER*80 emess
12595   IF ( id_id .NE. 1 ) THEN
12596     call wrf_debug(1,&
12597 'WARNING in nl_set_trace_max_depth: trace_max_depth applies to all domains. First arg ignored.')
12598   ENDIF
12599   model_config_rec%trace_max_depth = trace_max_depth 
12600   RETURN
12601 END SUBROUTINE nl_set_trace_max_depth
12602 SUBROUTINE nl_set_trace_use ( id_id , trace_use )
12603   logical , INTENT(IN) :: trace_use
12604   INTEGER id_id
12605   CHARACTER*80 emess
12606   IF ( id_id .NE. 1 ) THEN
12607     call wrf_debug(1,&
12608 'WARNING in nl_set_trace_use: trace_use applies to all domains. First arg ignored.')
12609   ENDIF
12610   model_config_rec%trace_use = trace_use 
12611   RETURN
12612 END SUBROUTINE nl_set_trace_use
12613 SUBROUTINE nl_set_trace_use_frequent ( id_id , trace_use_frequent )
12614   logical , INTENT(IN) :: trace_use_frequent
12615   INTEGER id_id
12616   CHARACTER*80 emess
12617   IF ( id_id .NE. 1 ) THEN
12618     call wrf_debug(1,&
12619 'WARNING in nl_set_trace_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
12620   ENDIF
12621   model_config_rec%trace_use_frequent = trace_use_frequent 
12622   RETURN
12623 END SUBROUTINE nl_set_trace_use_frequent
12624 SUBROUTINE nl_set_trace_use_dull ( id_id , trace_use_dull )
12625   logical , INTENT(IN) :: trace_use_dull
12626   INTEGER id_id
12627   CHARACTER*80 emess
12628   IF ( id_id .NE. 1 ) THEN
12629     call wrf_debug(1,&
12630 'WARNING in nl_set_trace_use_dull: trace_use_dull applies to all domains. First arg ignored.')
12631   ENDIF
12632   model_config_rec%trace_use_dull = trace_use_dull 
12633   RETURN
12634 END SUBROUTINE nl_set_trace_use_dull
12635 SUBROUTINE nl_set_trace_memory ( id_id , trace_memory )
12636   logical , INTENT(IN) :: trace_memory
12637   INTEGER id_id
12638   CHARACTER*80 emess
12639   IF ( id_id .NE. 1 ) THEN
12640     call wrf_debug(1,&
12641 'WARNING in nl_set_trace_memory: trace_memory applies to all domains. First arg ignored.')
12642   ENDIF
12643   model_config_rec%trace_memory = trace_memory 
12644   RETURN
12645 END SUBROUTINE nl_set_trace_memory
12646 SUBROUTINE nl_set_trace_all_pes ( id_id , trace_all_pes )
12647   logical , INTENT(IN) :: trace_all_pes
12648   INTEGER id_id
12649   CHARACTER*80 emess
12650   IF ( id_id .NE. 1 ) THEN
12651     call wrf_debug(1,&
12652 'WARNING in nl_set_trace_all_pes: trace_all_pes applies to all domains. First arg ignored.')
12653   ENDIF
12654   model_config_rec%trace_all_pes = trace_all_pes 
12655   RETURN
12656 END SUBROUTINE nl_set_trace_all_pes
12657 SUBROUTINE nl_set_trace_csv ( id_id , trace_csv )
12658   logical , INTENT(IN) :: trace_csv
12659   INTEGER id_id
12660   CHARACTER*80 emess
12661   IF ( id_id .NE. 1 ) THEN
12662     call wrf_debug(1,&
12663 'WARNING in nl_set_trace_csv: trace_csv applies to all domains. First arg ignored.')
12664   ENDIF
12665   model_config_rec%trace_csv = trace_csv 
12666   RETURN
12667 END SUBROUTINE nl_set_trace_csv
12668 SUBROUTINE nl_set_use_html ( id_id , use_html )
12669   logical , INTENT(IN) :: use_html
12670   INTEGER id_id
12671   CHARACTER*80 emess
12672   IF ( id_id .NE. 1 ) THEN
12673     call wrf_debug(1,&
12674 'WARNING in nl_set_use_html: use_html applies to all domains. First arg ignored.')
12675   ENDIF
12676   model_config_rec%use_html = use_html 
12677   RETURN
12678 END SUBROUTINE nl_set_use_html
12679 SUBROUTINE nl_set_warnings_are_fatal ( id_id , warnings_are_fatal )
12680   logical , INTENT(IN) :: warnings_are_fatal
12681   INTEGER id_id
12682   CHARACTER*80 emess
12683   IF ( id_id .NE. 1 ) THEN
12684     call wrf_debug(1,&
12685 'WARNING in nl_set_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
12686   ENDIF
12687   model_config_rec%warnings_are_fatal = warnings_are_fatal 
12688   RETURN
12689 END SUBROUTINE nl_set_warnings_are_fatal
12690 SUBROUTINE nl_set_test_wrfvar ( id_id , test_wrfvar )
12691   logical , INTENT(IN) :: test_wrfvar
12692   INTEGER id_id
12693   CHARACTER*80 emess
12694   IF ( id_id .NE. 1 ) THEN
12695     call wrf_debug(1,&
12696 'WARNING in nl_set_test_wrfvar: test_wrfvar applies to all domains. First arg ignored.')
12697   ENDIF
12698   model_config_rec%test_wrfvar = test_wrfvar 
12699   RETURN
12700 END SUBROUTINE nl_set_test_wrfvar
12701 SUBROUTINE nl_set_test_transforms ( id_id , test_transforms )
12702   logical , INTENT(IN) :: test_transforms
12703   INTEGER id_id
12704   CHARACTER*80 emess
12705   IF ( id_id .NE. 1 ) THEN
12706     call wrf_debug(1,&
12707 'WARNING in nl_set_test_transforms: test_transforms applies to all domains. First arg ignored.')
12708   ENDIF
12709   model_config_rec%test_transforms = test_transforms 
12710   RETURN
12711 END SUBROUTINE nl_set_test_transforms
12712 SUBROUTINE nl_set_test_statistics ( id_id , test_statistics )
12713   logical , INTENT(IN) :: test_statistics
12714   INTEGER id_id
12715   CHARACTER*80 emess
12716   IF ( id_id .NE. 1 ) THEN
12717     call wrf_debug(1,&
12718 'WARNING in nl_set_test_statistics: test_statistics applies to all domains. First arg ignored.')
12719   ENDIF
12720   model_config_rec%test_statistics = test_statistics 
12721   RETURN
12722 END SUBROUTINE nl_set_test_statistics
12723 SUBROUTINE nl_set_interpolate_stats ( id_id , interpolate_stats )
12724   logical , INTENT(IN) :: interpolate_stats
12725   INTEGER id_id
12726   CHARACTER*80 emess
12727   IF ( id_id .NE. 1 ) THEN
12728     call wrf_debug(1,&
12729 'WARNING in nl_set_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
12730   ENDIF
12731   model_config_rec%interpolate_stats = interpolate_stats 
12732   RETURN
12733 END SUBROUTINE nl_set_interpolate_stats
12734 SUBROUTINE nl_set_test_dm_exact ( id_id , test_dm_exact )
12735   logical , INTENT(IN) :: test_dm_exact
12736   INTEGER id_id
12737   CHARACTER*80 emess
12738   IF ( id_id .NE. 1 ) THEN
12739     call wrf_debug(1,&
12740 'WARNING in nl_set_test_dm_exact: test_dm_exact applies to all domains. First arg ignored.')
12741   ENDIF
12742   model_config_rec%test_dm_exact = test_dm_exact 
12743   RETURN
12744 END SUBROUTINE nl_set_test_dm_exact
12745 SUBROUTINE nl_set_cv_options_hum ( id_id , cv_options_hum )
12746   integer , INTENT(IN) :: cv_options_hum
12747   INTEGER id_id
12748   CHARACTER*80 emess
12749   IF ( id_id .NE. 1 ) THEN
12750     call wrf_debug(1,&
12751 'WARNING in nl_set_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
12752   ENDIF
12753   model_config_rec%cv_options_hum = cv_options_hum 
12754   RETURN
12755 END SUBROUTINE nl_set_cv_options_hum
12756 SUBROUTINE nl_set_check_rh ( id_id , check_rh )
12757   integer , INTENT(IN) :: check_rh
12758   INTEGER id_id
12759   CHARACTER*80 emess
12760   IF ( id_id .NE. 1 ) THEN
12761     call wrf_debug(1,&
12762 'WARNING in nl_set_check_rh: check_rh applies to all domains. First arg ignored.')
12763   ENDIF
12764   model_config_rec%check_rh = check_rh 
12765   RETURN
12766 END SUBROUTINE nl_set_check_rh
12767 SUBROUTINE nl_set_set_omb_rand_fac ( id_id , set_omb_rand_fac )
12768   integer , INTENT(IN) :: set_omb_rand_fac
12769   INTEGER id_id
12770   CHARACTER*80 emess
12771   IF ( id_id .NE. 1 ) THEN
12772     call wrf_debug(1,&
12773 'WARNING in nl_set_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
12774   ENDIF
12775   model_config_rec%set_omb_rand_fac = set_omb_rand_fac 
12776   RETURN
12777 END SUBROUTINE nl_set_set_omb_rand_fac
12778 SUBROUTINE nl_set_seed_array1 ( id_id , seed_array1 )
12779   integer , INTENT(IN) :: seed_array1
12780   INTEGER id_id
12781   CHARACTER*80 emess
12782   IF ( id_id .NE. 1 ) THEN
12783     call wrf_debug(1,&
12784 'WARNING in nl_set_seed_array1: seed_array1 applies to all domains. First arg ignored.')
12785   ENDIF
12786   model_config_rec%seed_array1 = seed_array1 
12787   RETURN
12788 END SUBROUTINE nl_set_seed_array1
12789 SUBROUTINE nl_set_seed_array2 ( id_id , seed_array2 )
12790   integer , INTENT(IN) :: seed_array2
12791   INTEGER id_id
12792   CHARACTER*80 emess
12793   IF ( id_id .NE. 1 ) THEN
12794     call wrf_debug(1,&
12795 'WARNING in nl_set_seed_array2: seed_array2 applies to all domains. First arg ignored.')
12796   ENDIF
12797   model_config_rec%seed_array2 = seed_array2 
12798   RETURN
12799 END SUBROUTINE nl_set_seed_array2
12800 SUBROUTINE nl_set_sfc_assi_options ( id_id , sfc_assi_options )
12801   integer , INTENT(IN) :: sfc_assi_options
12802   INTEGER id_id
12803   CHARACTER*80 emess
12804   IF ( id_id .NE. 1 ) THEN
12805     call wrf_debug(1,&
12806 'WARNING in nl_set_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
12807   ENDIF
12808   model_config_rec%sfc_assi_options = sfc_assi_options 
12809   RETURN
12810 END SUBROUTINE nl_set_sfc_assi_options
12811 SUBROUTINE nl_set_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
12812   logical , INTENT(IN) :: calculate_cg_cost_fn
12813   INTEGER id_id
12814   CHARACTER*80 emess
12815   IF ( id_id .NE. 1 ) THEN
12816     call wrf_debug(1,&
12817 'WARNING in nl_set_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
12818   ENDIF
12819   model_config_rec%calculate_cg_cost_fn = calculate_cg_cost_fn 
12820   RETURN
12821 END SUBROUTINE nl_set_calculate_cg_cost_fn
12822 SUBROUTINE nl_set_lat_stats_option ( id_id , lat_stats_option )
12823   logical , INTENT(IN) :: lat_stats_option
12824   INTEGER id_id
12825   CHARACTER*80 emess
12826   IF ( id_id .NE. 1 ) THEN
12827     call wrf_debug(1,&
12828 'WARNING in nl_set_lat_stats_option: lat_stats_option applies to all domains. First arg ignored.')
12829   ENDIF
12830   model_config_rec%lat_stats_option = lat_stats_option 
12831   RETURN
12832 END SUBROUTINE nl_set_lat_stats_option
12833 SUBROUTINE nl_set_balance_type ( id_id , balance_type )
12834   integer , INTENT(IN) :: balance_type
12835   INTEGER id_id
12836   CHARACTER*80 emess
12837   IF ( id_id .NE. 1 ) THEN
12838     call wrf_debug(1,&
12839 'WARNING in nl_set_balance_type: balance_type applies to all domains. First arg ignored.')
12840   ENDIF
12841   model_config_rec%balance_type = balance_type 
12842   RETURN
12843 END SUBROUTINE nl_set_balance_type
12844 SUBROUTINE nl_set_vert_corr ( id_id , vert_corr )
12845   integer , INTENT(IN) :: vert_corr
12846   INTEGER id_id
12847   CHARACTER*80 emess
12848   IF ( id_id .NE. 1 ) THEN
12849     call wrf_debug(1,&
12850 'WARNING in nl_set_vert_corr: vert_corr applies to all domains. First arg ignored.')
12851   ENDIF
12852   model_config_rec%vert_corr = vert_corr 
12853   RETURN
12854 END SUBROUTINE nl_set_vert_corr
12855 SUBROUTINE nl_set_vertical_ip ( id_id , vertical_ip )
12856   integer , INTENT(IN) :: vertical_ip
12857   INTEGER id_id
12858   CHARACTER*80 emess
12859   IF ( id_id .NE. 1 ) THEN
12860     call wrf_debug(1,&
12861 'WARNING in nl_set_vertical_ip: vertical_ip applies to all domains. First arg ignored.')
12862   ENDIF
12863   model_config_rec%vertical_ip = vertical_ip 
12864   RETURN
12865 END SUBROUTINE nl_set_vertical_ip
12866 SUBROUTINE nl_set_vert_evalue ( id_id , vert_evalue )
12867   integer , INTENT(IN) :: vert_evalue
12868   INTEGER id_id
12869   CHARACTER*80 emess
12870   IF ( id_id .NE. 1 ) THEN
12871     call wrf_debug(1,&
12872 'WARNING in nl_set_vert_evalue: vert_evalue applies to all domains. First arg ignored.')
12873   ENDIF
12874   model_config_rec%vert_evalue = vert_evalue 
12875   RETURN
12876 END SUBROUTINE nl_set_vert_evalue
12877 SUBROUTINE nl_set_max_vert_var1 ( id_id , max_vert_var1 )
12878   real , INTENT(IN) :: max_vert_var1
12879   INTEGER id_id
12880   CHARACTER*80 emess
12881   IF ( id_id .NE. 1 ) THEN
12882     call wrf_debug(1,&
12883 'WARNING in nl_set_max_vert_var1: max_vert_var1 applies to all domains. First arg ignored.')
12884   ENDIF
12885   model_config_rec%max_vert_var1 = max_vert_var1 
12886   RETURN
12887 END SUBROUTINE nl_set_max_vert_var1
12888 SUBROUTINE nl_set_max_vert_var2 ( id_id , max_vert_var2 )
12889   real , INTENT(IN) :: max_vert_var2
12890   INTEGER id_id
12891   CHARACTER*80 emess
12892   IF ( id_id .NE. 1 ) THEN
12893     call wrf_debug(1,&
12894 'WARNING in nl_set_max_vert_var2: max_vert_var2 applies to all domains. First arg ignored.')
12895   ENDIF
12896   model_config_rec%max_vert_var2 = max_vert_var2 
12897   RETURN
12898 END SUBROUTINE nl_set_max_vert_var2
12899 SUBROUTINE nl_set_max_vert_var3 ( id_id , max_vert_var3 )
12900   real , INTENT(IN) :: max_vert_var3
12901   INTEGER id_id
12902   CHARACTER*80 emess
12903   IF ( id_id .NE. 1 ) THEN
12904     call wrf_debug(1,&
12905 'WARNING in nl_set_max_vert_var3: max_vert_var3 applies to all domains. First arg ignored.')
12906   ENDIF
12907   model_config_rec%max_vert_var3 = max_vert_var3 
12908   RETURN
12909 END SUBROUTINE nl_set_max_vert_var3
12910 SUBROUTINE nl_set_max_vert_var4 ( id_id , max_vert_var4 )
12911   real , INTENT(IN) :: max_vert_var4
12912   INTEGER id_id
12913   CHARACTER*80 emess
12914   IF ( id_id .NE. 1 ) THEN
12915     call wrf_debug(1,&
12916 'WARNING in nl_set_max_vert_var4: max_vert_var4 applies to all domains. First arg ignored.')
12917   ENDIF
12918   model_config_rec%max_vert_var4 = max_vert_var4 
12919   RETURN
12920 END SUBROUTINE nl_set_max_vert_var4
12921 SUBROUTINE nl_set_max_vert_var5 ( id_id , max_vert_var5 )
12922   real , INTENT(IN) :: max_vert_var5
12923   INTEGER id_id
12924   CHARACTER*80 emess
12925   IF ( id_id .NE. 1 ) THEN
12926     call wrf_debug(1,&
12927 'WARNING in nl_set_max_vert_var5: max_vert_var5 applies to all domains. First arg ignored.')
12928   ENDIF
12929   model_config_rec%max_vert_var5 = max_vert_var5 
12930   RETURN
12931 END SUBROUTINE nl_set_max_vert_var5
12932 SUBROUTINE nl_set_rtminit_print ( id_id , rtminit_print )
12933   integer , INTENT(IN) :: rtminit_print
12934   INTEGER id_id
12935   CHARACTER*80 emess
12936   IF ( id_id .NE. 1 ) THEN
12937     call wrf_debug(1,&
12938 'WARNING in nl_set_rtminit_print: rtminit_print applies to all domains. First arg ignored.')
12939   ENDIF
12940   model_config_rec%rtminit_print = rtminit_print 
12941   RETURN
12942 END SUBROUTINE nl_set_rtminit_print
12943 SUBROUTINE nl_set_rtminit_nsensor ( id_id , rtminit_nsensor )
12944   integer , INTENT(IN) :: rtminit_nsensor
12945   INTEGER id_id
12946   CHARACTER*80 emess
12947   IF ( id_id .NE. 1 ) THEN
12948     call wrf_debug(1,&
12949 'WARNING in nl_set_rtminit_nsensor: rtminit_nsensor applies to all domains. First arg ignored.')
12950   ENDIF
12951   model_config_rec%rtminit_nsensor = rtminit_nsensor 
12952   RETURN
12953 END SUBROUTINE nl_set_rtminit_nsensor
12954 SUBROUTINE nl_set_rtminit_platform ( id_id , rtminit_platform )
12955   integer , INTENT(IN) :: rtminit_platform
12956   INTEGER id_id
12957   CHARACTER*80 emess
12958   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
12959     WRITE(emess,*)'nl_set_rtminit_platform: Out of range instruments number: ',id_id
12960     CALL wrf_error_fatal(emess)
12961   ENDIF
12962   model_config_rec%rtminit_platform(id_id) = rtminit_platform
12963   RETURN
12964 END SUBROUTINE nl_set_rtminit_platform
12965 SUBROUTINE nl_set_rtminit_satid ( id_id , rtminit_satid )
12966   integer , INTENT(IN) :: rtminit_satid
12967   INTEGER id_id
12968   CHARACTER*80 emess
12969   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
12970     WRITE(emess,*)'nl_set_rtminit_satid: Out of range instruments number: ',id_id
12971     CALL wrf_error_fatal(emess)
12972   ENDIF
12973   model_config_rec%rtminit_satid(id_id) = rtminit_satid
12974   RETURN
12975 END SUBROUTINE nl_set_rtminit_satid
12976 SUBROUTINE nl_set_rtminit_sensor ( id_id , rtminit_sensor )
12977   integer , INTENT(IN) :: rtminit_sensor
12978   INTEGER id_id
12979   CHARACTER*80 emess
12980   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
12981     WRITE(emess,*)'nl_set_rtminit_sensor: Out of range instruments number: ',id_id
12982     CALL wrf_error_fatal(emess)
12983   ENDIF
12984   model_config_rec%rtminit_sensor(id_id) = rtminit_sensor
12985   RETURN
12986 END SUBROUTINE nl_set_rtminit_sensor
12987 SUBROUTINE nl_set_rad_monitoring ( id_id , rad_monitoring )
12988   integer , INTENT(IN) :: rad_monitoring
12989   INTEGER id_id
12990   CHARACTER*80 emess
12991   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
12992     WRITE(emess,*)'nl_set_rad_monitoring: Out of range instruments number: ',id_id
12993     CALL wrf_error_fatal(emess)
12994   ENDIF
12995   model_config_rec%rad_monitoring(id_id) = rad_monitoring
12996   RETURN
12997 END SUBROUTINE nl_set_rad_monitoring
12998 SUBROUTINE nl_set_thinning_mesh ( id_id , thinning_mesh )
12999   real , INTENT(IN) :: thinning_mesh
13000   INTEGER id_id
13001   CHARACTER*80 emess
13002   IF ( id_id .LT. 1 .OR. id_id .GT. max_instruments ) THEN
13003     WRITE(emess,*)'nl_set_thinning_mesh: Out of range instruments number: ',id_id
13004     CALL wrf_error_fatal(emess)
13005   ENDIF
13006   model_config_rec%thinning_mesh(id_id) = thinning_mesh
13007   RETURN
13008 END SUBROUTINE nl_set_thinning_mesh
13009 SUBROUTINE nl_set_thinning ( id_id , thinning )
13010   logical , INTENT(IN) :: thinning
13011   INTEGER id_id
13012   CHARACTER*80 emess
13013   IF ( id_id .NE. 1 ) THEN
13014     call wrf_debug(1,&
13015 'WARNING in nl_set_thinning: thinning applies to all domains. First arg ignored.')
13016   ENDIF
13017   model_config_rec%thinning = thinning 
13018   RETURN
13019 END SUBROUTINE nl_set_thinning
13020 SUBROUTINE nl_set_read_biascoef ( id_id , read_biascoef )
13021   logical , INTENT(IN) :: read_biascoef
13022   INTEGER id_id
13023   CHARACTER*80 emess
13024   IF ( id_id .NE. 1 ) THEN
13025     call wrf_debug(1,&
13026 'WARNING in nl_set_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
13027   ENDIF
13028   model_config_rec%read_biascoef = read_biascoef 
13029   RETURN
13030 END SUBROUTINE nl_set_read_biascoef
13031 SUBROUTINE nl_set_biascorr ( id_id , biascorr )
13032   logical , INTENT(IN) :: biascorr
13033   INTEGER id_id
13034   CHARACTER*80 emess
13035   IF ( id_id .NE. 1 ) THEN
13036     call wrf_debug(1,&
13037 'WARNING in nl_set_biascorr: biascorr applies to all domains. First arg ignored.')
13038   ENDIF
13039   model_config_rec%biascorr = biascorr 
13040   RETURN
13041 END SUBROUTINE nl_set_biascorr
13042 SUBROUTINE nl_set_biasprep ( id_id , biasprep )
13043   logical , INTENT(IN) :: biasprep
13044   INTEGER id_id
13045   CHARACTER*80 emess
13046   IF ( id_id .NE. 1 ) THEN
13047     call wrf_debug(1,&
13048 'WARNING in nl_set_biasprep: biasprep applies to all domains. First arg ignored.')
13049   ENDIF
13050   model_config_rec%biasprep = biasprep 
13051   RETURN
13052 END SUBROUTINE nl_set_biasprep
13053 SUBROUTINE nl_set_rttov_scatt ( id_id , rttov_scatt )
13054   logical , INTENT(IN) :: rttov_scatt
13055   INTEGER id_id
13056   CHARACTER*80 emess
13057   IF ( id_id .NE. 1 ) THEN
13058     call wrf_debug(1,&
13059 'WARNING in nl_set_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
13060   ENDIF
13061   model_config_rec%rttov_scatt = rttov_scatt 
13062   RETURN
13063 END SUBROUTINE nl_set_rttov_scatt
13064 SUBROUTINE nl_set_write_profile ( id_id , write_profile )
13065   logical , INTENT(IN) :: write_profile
13066   INTEGER id_id
13067   CHARACTER*80 emess
13068   IF ( id_id .NE. 1 ) THEN
13069     call wrf_debug(1,&
13070 'WARNING in nl_set_write_profile: write_profile applies to all domains. First arg ignored.')
13071   ENDIF
13072   model_config_rec%write_profile = write_profile 
13073   RETURN
13074 END SUBROUTINE nl_set_write_profile
13075 SUBROUTINE nl_set_qc_rad ( id_id , qc_rad )
13076   logical , INTENT(IN) :: qc_rad
13077   INTEGER id_id
13078   CHARACTER*80 emess
13079   IF ( id_id .NE. 1 ) THEN
13080     call wrf_debug(1,&
13081 'WARNING in nl_set_qc_rad: qc_rad applies to all domains. First arg ignored.')
13082   ENDIF
13083   model_config_rec%qc_rad = qc_rad 
13084   RETURN
13085 END SUBROUTINE nl_set_qc_rad
13086 SUBROUTINE nl_set_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
13087   logical , INTENT(IN) :: write_iv_rad_ascii
13088   INTEGER id_id
13089   CHARACTER*80 emess
13090   IF ( id_id .NE. 1 ) THEN
13091     call wrf_debug(1,&
13092 'WARNING in nl_set_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
13093   ENDIF
13094   model_config_rec%write_iv_rad_ascii = write_iv_rad_ascii 
13095   RETURN
13096 END SUBROUTINE nl_set_write_iv_rad_ascii
13097 SUBROUTINE nl_set_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
13098   logical , INTENT(IN) :: write_oa_rad_ascii
13099   INTEGER id_id
13100   CHARACTER*80 emess
13101   IF ( id_id .NE. 1 ) THEN
13102     call wrf_debug(1,&
13103 'WARNING in nl_set_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
13104   ENDIF
13105   model_config_rec%write_oa_rad_ascii = write_oa_rad_ascii 
13106   RETURN
13107 END SUBROUTINE nl_set_write_oa_rad_ascii
13108 SUBROUTINE nl_set_write_filtered_rad ( id_id , write_filtered_rad )
13109   logical , INTENT(IN) :: write_filtered_rad
13110   INTEGER id_id
13111   CHARACTER*80 emess
13112   IF ( id_id .NE. 1 ) THEN
13113     call wrf_debug(1,&
13114 'WARNING in nl_set_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
13115   ENDIF
13116   model_config_rec%write_filtered_rad = write_filtered_rad 
13117   RETURN
13118 END SUBROUTINE nl_set_write_filtered_rad
13119 SUBROUTINE nl_set_use_error_factor_rad ( id_id , use_error_factor_rad )
13120   logical , INTENT(IN) :: use_error_factor_rad
13121   INTEGER id_id
13122   CHARACTER*80 emess
13123   IF ( id_id .NE. 1 ) THEN
13124     call wrf_debug(1,&
13125 'WARNING in nl_set_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
13126   ENDIF
13127   model_config_rec%use_error_factor_rad = use_error_factor_rad 
13128   RETURN
13129 END SUBROUTINE nl_set_use_error_factor_rad
13130 SUBROUTINE nl_set_use_landem ( id_id , use_landem )
13131   logical , INTENT(IN) :: use_landem
13132   INTEGER id_id
13133   CHARACTER*80 emess
13134   IF ( id_id .NE. 1 ) THEN
13135     call wrf_debug(1,&
13136 'WARNING in nl_set_use_landem: use_landem applies to all domains. First arg ignored.')
13137   ENDIF
13138   model_config_rec%use_landem = use_landem 
13139   RETURN
13140 END SUBROUTINE nl_set_use_landem
13141 SUBROUTINE nl_set_mw_emis_sea ( id_id , mw_emis_sea )
13142   integer , INTENT(IN) :: mw_emis_sea
13143   INTEGER id_id
13144   CHARACTER*80 emess
13145   IF ( id_id .NE. 1 ) THEN
13146     call wrf_debug(1,&
13147 'WARNING in nl_set_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
13148   ENDIF
13149   model_config_rec%mw_emis_sea = mw_emis_sea 
13150   RETURN
13151 END SUBROUTINE nl_set_mw_emis_sea
13152 SUBROUTINE nl_set_tovs_min_transfer ( id_id , tovs_min_transfer )
13153   integer , INTENT(IN) :: tovs_min_transfer
13154   INTEGER id_id
13155   CHARACTER*80 emess
13156   IF ( id_id .NE. 1 ) THEN
13157     call wrf_debug(1,&
13158 'WARNING in nl_set_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
13159   ENDIF
13160   model_config_rec%tovs_min_transfer = tovs_min_transfer 
13161   RETURN
13162 END SUBROUTINE nl_set_tovs_min_transfer
13163 SUBROUTINE nl_set_tovs_batch ( id_id , tovs_batch )
13164   logical , INTENT(IN) :: tovs_batch
13165   INTEGER id_id
13166   CHARACTER*80 emess
13167   IF ( id_id .NE. 1 ) THEN
13168     call wrf_debug(1,&
13169 'WARNING in nl_set_tovs_batch: tovs_batch applies to all domains. First arg ignored.')
13170   ENDIF
13171   model_config_rec%tovs_batch = tovs_batch 
13172   RETURN
13173 END SUBROUTINE nl_set_tovs_batch
13174 SUBROUTINE nl_set_rtm_option ( id_id , rtm_option )
13175   integer , INTENT(IN) :: rtm_option
13176   INTEGER id_id
13177   CHARACTER*80 emess
13178   IF ( id_id .NE. 1 ) THEN
13179     call wrf_debug(1,&
13180 'WARNING in nl_set_rtm_option: rtm_option applies to all domains. First arg ignored.')
13181   ENDIF
13182   model_config_rec%rtm_option = rtm_option 
13183   RETURN
13184 END SUBROUTINE nl_set_rtm_option
13185 SUBROUTINE nl_set_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
13186   logical , INTENT(IN) :: use_crtm_kmatrix
13187   INTEGER id_id
13188   CHARACTER*80 emess
13189   IF ( id_id .NE. 1 ) THEN
13190     call wrf_debug(1,&
13191 'WARNING in nl_set_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
13192   ENDIF
13193   model_config_rec%use_crtm_kmatrix = use_crtm_kmatrix 
13194   RETURN
13195 END SUBROUTINE nl_set_use_crtm_kmatrix
13196 SUBROUTINE nl_set_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
13197   logical , INTENT(IN) :: use_crtm_kmatrix_fast
13198   INTEGER id_id
13199   CHARACTER*80 emess
13200   IF ( id_id .NE. 1 ) THEN
13201     call wrf_debug(1,&
13202 'WARNING in nl_set_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
13203   ENDIF
13204   model_config_rec%use_crtm_kmatrix_fast = use_crtm_kmatrix_fast 
13205   RETURN
13206 END SUBROUTINE nl_set_use_crtm_kmatrix_fast
13207 SUBROUTINE nl_set_crtm_cloud ( id_id , crtm_cloud )
13208   logical , INTENT(IN) :: crtm_cloud
13209   INTEGER id_id
13210   CHARACTER*80 emess
13211   IF ( id_id .NE. 1 ) THEN
13212     call wrf_debug(1,&
13213 'WARNING in nl_set_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
13214   ENDIF
13215   model_config_rec%crtm_cloud = crtm_cloud 
13216   RETURN
13217 END SUBROUTINE nl_set_crtm_cloud
13218 SUBROUTINE nl_set_spccoeff_file ( id_id , spccoeff_file )
13219   character*256 , INTENT(IN) :: spccoeff_file
13220   INTEGER id_id
13221   CHARACTER*80 emess
13222   IF ( id_id .NE. 1 ) THEN
13223     call wrf_debug(1,&
13224 'WARNING in nl_set_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
13225   ENDIF
13226   model_config_rec%spccoeff_file = trim(spccoeff_file) 
13227   RETURN
13228 END SUBROUTINE nl_set_spccoeff_file
13229 SUBROUTINE nl_set_taucoeff_file ( id_id , taucoeff_file )
13230   character*256 , INTENT(IN) :: taucoeff_file
13231   INTEGER id_id
13232   CHARACTER*80 emess
13233   IF ( id_id .NE. 1 ) THEN
13234     call wrf_debug(1,&
13235 'WARNING in nl_set_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
13236   ENDIF
13237   model_config_rec%taucoeff_file = trim(taucoeff_file) 
13238   RETURN
13239 END SUBROUTINE nl_set_taucoeff_file
13240 SUBROUTINE nl_set_aerosolcoeff_file ( id_id , aerosolcoeff_file )
13241   character*256 , INTENT(IN) :: aerosolcoeff_file
13242   INTEGER id_id
13243   CHARACTER*80 emess
13244   IF ( id_id .NE. 1 ) THEN
13245     call wrf_debug(1,&
13246 'WARNING in nl_set_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
13247   ENDIF
13248   model_config_rec%aerosolcoeff_file = trim(aerosolcoeff_file) 
13249   RETURN
13250 END SUBROUTINE nl_set_aerosolcoeff_file
13251 SUBROUTINE nl_set_cloudcoeff_file ( id_id , cloudcoeff_file )
13252   character*256 , INTENT(IN) :: cloudcoeff_file
13253   INTEGER id_id
13254   CHARACTER*80 emess
13255   IF ( id_id .NE. 1 ) THEN
13256     call wrf_debug(1,&
13257 'WARNING in nl_set_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
13258   ENDIF
13259   model_config_rec%cloudcoeff_file = trim(cloudcoeff_file) 
13260   RETURN
13261 END SUBROUTINE nl_set_cloudcoeff_file
13262 SUBROUTINE nl_set_emiscoeff_file ( id_id , emiscoeff_file )
13263   character*256 , INTENT(IN) :: emiscoeff_file
13264   INTEGER id_id
13265   CHARACTER*80 emess
13266   IF ( id_id .NE. 1 ) THEN
13267     call wrf_debug(1,&
13268 'WARNING in nl_set_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
13269   ENDIF
13270   model_config_rec%emiscoeff_file = trim(emiscoeff_file) 
13271   RETURN
13272 END SUBROUTINE nl_set_emiscoeff_file
13273 SUBROUTINE nl_set_num_pseudo ( id_id , num_pseudo )
13274   integer , INTENT(IN) :: num_pseudo
13275   INTEGER id_id
13276   CHARACTER*80 emess
13277   IF ( id_id .NE. 1 ) THEN
13278     call wrf_debug(1,&
13279 'WARNING in nl_set_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
13280   ENDIF
13281   model_config_rec%num_pseudo = num_pseudo 
13282   RETURN
13283 END SUBROUTINE nl_set_num_pseudo
13284 SUBROUTINE nl_set_pseudo_x ( id_id , pseudo_x )
13285   real , INTENT(IN) :: pseudo_x
13286   INTEGER id_id
13287   CHARACTER*80 emess
13288   IF ( id_id .NE. 1 ) THEN
13289     call wrf_debug(1,&
13290 'WARNING in nl_set_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
13291   ENDIF
13292   model_config_rec%pseudo_x = pseudo_x 
13293   RETURN
13294 END SUBROUTINE nl_set_pseudo_x
13295 SUBROUTINE nl_set_pseudo_y ( id_id , pseudo_y )
13296   real , INTENT(IN) :: pseudo_y
13297   INTEGER id_id
13298   CHARACTER*80 emess
13299   IF ( id_id .NE. 1 ) THEN
13300     call wrf_debug(1,&
13301 'WARNING in nl_set_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
13302   ENDIF
13303   model_config_rec%pseudo_y = pseudo_y 
13304   RETURN
13305 END SUBROUTINE nl_set_pseudo_y
13306 SUBROUTINE nl_set_pseudo_z ( id_id , pseudo_z )
13307   real , INTENT(IN) :: pseudo_z
13308   INTEGER id_id
13309   CHARACTER*80 emess
13310   IF ( id_id .NE. 1 ) THEN
13311     call wrf_debug(1,&
13312 'WARNING in nl_set_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
13313   ENDIF
13314   model_config_rec%pseudo_z = pseudo_z 
13315   RETURN
13316 END SUBROUTINE nl_set_pseudo_z
13317 SUBROUTINE nl_set_pseudo_val ( id_id , pseudo_val )
13318   real , INTENT(IN) :: pseudo_val
13319   INTEGER id_id
13320   CHARACTER*80 emess
13321   IF ( id_id .NE. 1 ) THEN
13322     call wrf_debug(1,&
13323 'WARNING in nl_set_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
13324   ENDIF
13325   model_config_rec%pseudo_val = pseudo_val 
13326   RETURN
13327 END SUBROUTINE nl_set_pseudo_val
13328 SUBROUTINE nl_set_pseudo_err ( id_id , pseudo_err )
13329   real , INTENT(IN) :: pseudo_err
13330   INTEGER id_id
13331   CHARACTER*80 emess
13332   IF ( id_id .NE. 1 ) THEN
13333     call wrf_debug(1,&
13334 'WARNING in nl_set_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
13335   ENDIF
13336   model_config_rec%pseudo_err = pseudo_err 
13337   RETURN
13338 END SUBROUTINE nl_set_pseudo_err
13339 SUBROUTINE nl_set_alphacv_method ( id_id , alphacv_method )
13340   integer , INTENT(IN) :: alphacv_method
13341   INTEGER id_id
13342   CHARACTER*80 emess
13343   IF ( id_id .NE. 1 ) THEN
13344     call wrf_debug(1,&
13345 'WARNING in nl_set_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
13346   ENDIF
13347   model_config_rec%alphacv_method = alphacv_method 
13348   RETURN
13349 END SUBROUTINE nl_set_alphacv_method
13350 SUBROUTINE nl_set_ensdim_alpha ( id_id , ensdim_alpha )
13351   integer , INTENT(IN) :: ensdim_alpha
13352   INTEGER id_id
13353   CHARACTER*80 emess
13354   IF ( id_id .NE. 1 ) THEN
13355     call wrf_debug(1,&
13356 'WARNING in nl_set_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
13357   ENDIF
13358   model_config_rec%ensdim_alpha = ensdim_alpha 
13359   RETURN
13360 END SUBROUTINE nl_set_ensdim_alpha
13361 SUBROUTINE nl_set_alpha_truncation ( id_id , alpha_truncation )
13362   integer , INTENT(IN) :: alpha_truncation
13363   INTEGER id_id
13364   CHARACTER*80 emess
13365   IF ( id_id .NE. 1 ) THEN
13366     call wrf_debug(1,&
13367 'WARNING in nl_set_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
13368   ENDIF
13369   model_config_rec%alpha_truncation = alpha_truncation 
13370   RETURN
13371 END SUBROUTINE nl_set_alpha_truncation
13372 SUBROUTINE nl_set_alpha_corr_type ( id_id , alpha_corr_type )
13373   integer , INTENT(IN) :: alpha_corr_type
13374   INTEGER id_id
13375   CHARACTER*80 emess
13376   IF ( id_id .NE. 1 ) THEN
13377     call wrf_debug(1,&
13378 'WARNING in nl_set_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
13379   ENDIF
13380   model_config_rec%alpha_corr_type = alpha_corr_type 
13381   RETURN
13382 END SUBROUTINE nl_set_alpha_corr_type
13383 SUBROUTINE nl_set_alpha_corr_scale ( id_id , alpha_corr_scale )
13384   real , INTENT(IN) :: alpha_corr_scale
13385   INTEGER id_id
13386   CHARACTER*80 emess
13387   IF ( id_id .NE. 1 ) THEN
13388     call wrf_debug(1,&
13389 'WARNING in nl_set_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
13390   ENDIF
13391   model_config_rec%alpha_corr_scale = alpha_corr_scale 
13392   RETURN
13393 END SUBROUTINE nl_set_alpha_corr_scale
13394 SUBROUTINE nl_set_alpha_std_dev ( id_id , alpha_std_dev )
13395   real , INTENT(IN) :: alpha_std_dev
13396   INTEGER id_id
13397   CHARACTER*80 emess
13398   IF ( id_id .NE. 1 ) THEN
13399     call wrf_debug(1,&
13400 'WARNING in nl_set_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
13401   ENDIF
13402   model_config_rec%alpha_std_dev = alpha_std_dev 
13403   RETURN
13404 END SUBROUTINE nl_set_alpha_std_dev
13405 SUBROUTINE nl_set_analysis_type ( id_id , analysis_type )
13406   character*256 , INTENT(IN) :: analysis_type
13407   INTEGER id_id
13408   CHARACTER*80 emess
13409   IF ( id_id .NE. 1 ) THEN
13410     call wrf_debug(1,&
13411 'WARNING in nl_set_analysis_type: analysis_type applies to all domains. First arg ignored.')
13412   ENDIF
13413   model_config_rec%analysis_type = trim(analysis_type) 
13414   RETURN
13415 END SUBROUTINE nl_set_analysis_type
13416 SUBROUTINE nl_set_analysis_date ( id_id , analysis_date )
13417   character*256 , INTENT(IN) :: analysis_date
13418   INTEGER id_id
13419   CHARACTER*80 emess
13420   IF ( id_id .NE. 1 ) THEN
13421     call wrf_debug(1,&
13422 'WARNING in nl_set_analysis_date: analysis_date applies to all domains. First arg ignored.')
13423   ENDIF
13424   model_config_rec%analysis_date = trim(analysis_date) 
13425   RETURN
13426 END SUBROUTINE nl_set_analysis_date
13427 SUBROUTINE nl_set_pseudo_var ( id_id , pseudo_var )
13428   character*256 , INTENT(IN) :: pseudo_var
13429   INTEGER id_id
13430   CHARACTER*80 emess
13431   IF ( id_id .NE. 1 ) THEN
13432     call wrf_debug(1,&
13433 'WARNING in nl_set_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
13434   ENDIF
13435   model_config_rec%pseudo_var = trim(pseudo_var) 
13436   RETURN
13437 END SUBROUTINE nl_set_pseudo_var
13438 SUBROUTINE nl_set_documentation_url ( id_id , documentation_url )
13439   character*256 , INTENT(IN) :: documentation_url
13440   INTEGER id_id
13441   CHARACTER*80 emess
13442   IF ( id_id .NE. 1 ) THEN
13443     call wrf_debug(1,&
13444 'WARNING in nl_set_documentation_url: documentation_url applies to all domains. First arg ignored.')
13445   ENDIF
13446   model_config_rec%documentation_url = trim(documentation_url) 
13447   RETURN
13448 END SUBROUTINE nl_set_documentation_url
13449 SUBROUTINE nl_set_time_window_min ( id_id , time_window_min )
13450   character*256 , INTENT(IN) :: time_window_min
13451   INTEGER id_id
13452   CHARACTER*80 emess
13453   IF ( id_id .NE. 1 ) THEN
13454     call wrf_debug(1,&
13455 'WARNING in nl_set_time_window_min: time_window_min applies to all domains. First arg ignored.')
13456   ENDIF
13457   model_config_rec%time_window_min = trim(time_window_min) 
13458   RETURN
13459 END SUBROUTINE nl_set_time_window_min
13460 SUBROUTINE nl_set_time_window_max ( id_id , time_window_max )
13461   character*256 , INTENT(IN) :: time_window_max
13462   INTEGER id_id
13463   CHARACTER*80 emess
13464   IF ( id_id .NE. 1 ) THEN
13465     call wrf_debug(1,&
13466 'WARNING in nl_set_time_window_max: time_window_max applies to all domains. First arg ignored.')
13467   ENDIF
13468   model_config_rec%time_window_max = trim(time_window_max) 
13469   RETURN
13470 END SUBROUTINE nl_set_time_window_max
13471 SUBROUTINE nl_set_jcdfi_use ( id_id , jcdfi_use )
13472   logical , INTENT(IN) :: jcdfi_use
13473   INTEGER id_id
13474   CHARACTER*80 emess
13475   IF ( id_id .NE. 1 ) THEN
13476     call wrf_debug(1,&
13477 'WARNING in nl_set_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
13478   ENDIF
13479   model_config_rec%jcdfi_use = jcdfi_use 
13480   RETURN
13481 END SUBROUTINE nl_set_jcdfi_use
13482 SUBROUTINE nl_set_jcdfi_tauc ( id_id , jcdfi_tauc )
13483   real , INTENT(IN) :: jcdfi_tauc
13484   INTEGER id_id
13485   CHARACTER*80 emess
13486   IF ( id_id .NE. 1 ) THEN
13487     call wrf_debug(1,&
13488 'WARNING in nl_set_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
13489   ENDIF
13490   model_config_rec%jcdfi_tauc = jcdfi_tauc 
13491   RETURN
13492 END SUBROUTINE nl_set_jcdfi_tauc
13493 SUBROUTINE nl_set_jcdfi_gama ( id_id , jcdfi_gama )
13494   real , INTENT(IN) :: jcdfi_gama
13495   INTEGER id_id
13496   CHARACTER*80 emess
13497   IF ( id_id .NE. 1 ) THEN
13498     call wrf_debug(1,&
13499 'WARNING in nl_set_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
13500   ENDIF
13501   model_config_rec%jcdfi_gama = jcdfi_gama 
13502   RETURN
13503 END SUBROUTINE nl_set_jcdfi_gama
13504 SUBROUTINE nl_set_jcdfi_error_wind ( id_id , jcdfi_error_wind )
13505   real , INTENT(IN) :: jcdfi_error_wind
13506   INTEGER id_id
13507   CHARACTER*80 emess
13508   IF ( id_id .NE. 1 ) THEN
13509     call wrf_debug(1,&
13510 'WARNING in nl_set_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
13511   ENDIF
13512   model_config_rec%jcdfi_error_wind = jcdfi_error_wind 
13513   RETURN
13514 END SUBROUTINE nl_set_jcdfi_error_wind
13515 SUBROUTINE nl_set_jcdfi_error_t ( id_id , jcdfi_error_t )
13516   real , INTENT(IN) :: jcdfi_error_t
13517   INTEGER id_id
13518   CHARACTER*80 emess
13519   IF ( id_id .NE. 1 ) THEN
13520     call wrf_debug(1,&
13521 'WARNING in nl_set_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
13522   ENDIF
13523   model_config_rec%jcdfi_error_t = jcdfi_error_t 
13524   RETURN
13525 END SUBROUTINE nl_set_jcdfi_error_t
13526 SUBROUTINE nl_set_jcdfi_error_q ( id_id , jcdfi_error_q )
13527   real , INTENT(IN) :: jcdfi_error_q
13528   INTEGER id_id
13529   CHARACTER*80 emess
13530   IF ( id_id .NE. 1 ) THEN
13531     call wrf_debug(1,&
13532 'WARNING in nl_set_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
13533   ENDIF
13534   model_config_rec%jcdfi_error_q = jcdfi_error_q 
13535   RETURN
13536 END SUBROUTINE nl_set_jcdfi_error_q
13537 SUBROUTINE nl_set_jcdfi_error_mu ( id_id , jcdfi_error_mu )
13538   real , INTENT(IN) :: jcdfi_error_mu
13539   INTEGER id_id
13540   CHARACTER*80 emess
13541   IF ( id_id .NE. 1 ) THEN
13542     call wrf_debug(1,&
13543 'WARNING in nl_set_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
13544   ENDIF
13545   model_config_rec%jcdfi_error_mu = jcdfi_error_mu 
13546   RETURN
13547 END SUBROUTINE nl_set_jcdfi_error_mu
13548 SUBROUTINE nl_set_run_days ( id_id , run_days )
13549   integer , INTENT(IN) :: run_days
13550   INTEGER id_id
13551   CHARACTER*80 emess
13552   IF ( id_id .NE. 1 ) THEN
13553     call wrf_debug(1,&
13554 'WARNING in nl_set_run_days: run_days applies to all domains. First arg ignored.')
13555   ENDIF
13556   model_config_rec%run_days = run_days 
13557   RETURN
13558 END SUBROUTINE nl_set_run_days
13559 SUBROUTINE nl_set_run_hours ( id_id , run_hours )
13560   integer , INTENT(IN) :: run_hours
13561   INTEGER id_id
13562   CHARACTER*80 emess
13563   IF ( id_id .NE. 1 ) THEN
13564     call wrf_debug(1,&
13565 'WARNING in nl_set_run_hours: run_hours applies to all domains. First arg ignored.')
13566   ENDIF
13567   model_config_rec%run_hours = run_hours 
13568   RETURN
13569 END SUBROUTINE nl_set_run_hours
13570 SUBROUTINE nl_set_run_minutes ( id_id , run_minutes )
13571   integer , INTENT(IN) :: run_minutes
13572   INTEGER id_id
13573   CHARACTER*80 emess
13574   IF ( id_id .NE. 1 ) THEN
13575     call wrf_debug(1,&
13576 'WARNING in nl_set_run_minutes: run_minutes applies to all domains. First arg ignored.')
13577   ENDIF
13578   model_config_rec%run_minutes = run_minutes 
13579   RETURN
13580 END SUBROUTINE nl_set_run_minutes
13581 SUBROUTINE nl_set_run_seconds ( id_id , run_seconds )
13582   integer , INTENT(IN) :: run_seconds
13583   INTEGER id_id
13584   CHARACTER*80 emess
13585   IF ( id_id .NE. 1 ) THEN
13586     call wrf_debug(1,&
13587 'WARNING in nl_set_run_seconds: run_seconds applies to all domains. First arg ignored.')
13588   ENDIF
13589   model_config_rec%run_seconds = run_seconds 
13590   RETURN
13591 END SUBROUTINE nl_set_run_seconds
13592 SUBROUTINE nl_set_start_year ( id_id , start_year )
13593   integer , INTENT(IN) :: start_year
13594   INTEGER id_id
13595   CHARACTER*80 emess
13596   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13597     WRITE(emess,*)'nl_set_start_year: Out of range domain number: ',id_id
13598     CALL wrf_error_fatal(emess)
13599   ENDIF
13600   model_config_rec%start_year(id_id) = start_year
13601   RETURN
13602 END SUBROUTINE nl_set_start_year
13603 SUBROUTINE nl_set_start_month ( id_id , start_month )
13604   integer , INTENT(IN) :: start_month
13605   INTEGER id_id
13606   CHARACTER*80 emess
13607   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13608     WRITE(emess,*)'nl_set_start_month: Out of range domain number: ',id_id
13609     CALL wrf_error_fatal(emess)
13610   ENDIF
13611   model_config_rec%start_month(id_id) = start_month
13612   RETURN
13613 END SUBROUTINE nl_set_start_month
13614 SUBROUTINE nl_set_start_day ( id_id , start_day )
13615   integer , INTENT(IN) :: start_day
13616   INTEGER id_id
13617   CHARACTER*80 emess
13618   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13619     WRITE(emess,*)'nl_set_start_day: Out of range domain number: ',id_id
13620     CALL wrf_error_fatal(emess)
13621   ENDIF
13622   model_config_rec%start_day(id_id) = start_day
13623   RETURN
13624 END SUBROUTINE nl_set_start_day
13625 SUBROUTINE nl_set_start_hour ( id_id , start_hour )
13626   integer , INTENT(IN) :: start_hour
13627   INTEGER id_id
13628   CHARACTER*80 emess
13629   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13630     WRITE(emess,*)'nl_set_start_hour: Out of range domain number: ',id_id
13631     CALL wrf_error_fatal(emess)
13632   ENDIF
13633   model_config_rec%start_hour(id_id) = start_hour
13634   RETURN
13635 END SUBROUTINE nl_set_start_hour
13636 SUBROUTINE nl_set_start_minute ( id_id , start_minute )
13637   integer , INTENT(IN) :: start_minute
13638   INTEGER id_id
13639   CHARACTER*80 emess
13640   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13641     WRITE(emess,*)'nl_set_start_minute: Out of range domain number: ',id_id
13642     CALL wrf_error_fatal(emess)
13643   ENDIF
13644   model_config_rec%start_minute(id_id) = start_minute
13645   RETURN
13646 END SUBROUTINE nl_set_start_minute
13647 SUBROUTINE nl_set_start_second ( id_id , start_second )
13648   integer , INTENT(IN) :: start_second
13649   INTEGER id_id
13650   CHARACTER*80 emess
13651   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13652     WRITE(emess,*)'nl_set_start_second: Out of range domain number: ',id_id
13653     CALL wrf_error_fatal(emess)
13654   ENDIF
13655   model_config_rec%start_second(id_id) = start_second
13656   RETURN
13657 END SUBROUTINE nl_set_start_second
13658 SUBROUTINE nl_set_end_year ( id_id , end_year )
13659   integer , INTENT(IN) :: end_year
13660   INTEGER id_id
13661   CHARACTER*80 emess
13662   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13663     WRITE(emess,*)'nl_set_end_year: Out of range domain number: ',id_id
13664     CALL wrf_error_fatal(emess)
13665   ENDIF
13666   model_config_rec%end_year(id_id) = end_year
13667   RETURN
13668 END SUBROUTINE nl_set_end_year
13669 SUBROUTINE nl_set_end_month ( id_id , end_month )
13670   integer , INTENT(IN) :: end_month
13671   INTEGER id_id
13672   CHARACTER*80 emess
13673   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13674     WRITE(emess,*)'nl_set_end_month: Out of range domain number: ',id_id
13675     CALL wrf_error_fatal(emess)
13676   ENDIF
13677   model_config_rec%end_month(id_id) = end_month
13678   RETURN
13679 END SUBROUTINE nl_set_end_month
13680 SUBROUTINE nl_set_end_day ( id_id , end_day )
13681   integer , INTENT(IN) :: end_day
13682   INTEGER id_id
13683   CHARACTER*80 emess
13684   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13685     WRITE(emess,*)'nl_set_end_day: Out of range domain number: ',id_id
13686     CALL wrf_error_fatal(emess)
13687   ENDIF
13688   model_config_rec%end_day(id_id) = end_day
13689   RETURN
13690 END SUBROUTINE nl_set_end_day
13691 SUBROUTINE nl_set_end_hour ( id_id , end_hour )
13692   integer , INTENT(IN) :: end_hour
13693   INTEGER id_id
13694   CHARACTER*80 emess
13695   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13696     WRITE(emess,*)'nl_set_end_hour: Out of range domain number: ',id_id
13697     CALL wrf_error_fatal(emess)
13698   ENDIF
13699   model_config_rec%end_hour(id_id) = end_hour
13700   RETURN
13701 END SUBROUTINE nl_set_end_hour
13702 SUBROUTINE nl_set_end_minute ( id_id , end_minute )
13703   integer , INTENT(IN) :: end_minute
13704   INTEGER id_id
13705   CHARACTER*80 emess
13706   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13707     WRITE(emess,*)'nl_set_end_minute: Out of range domain number: ',id_id
13708     CALL wrf_error_fatal(emess)
13709   ENDIF
13710   model_config_rec%end_minute(id_id) = end_minute
13711   RETURN
13712 END SUBROUTINE nl_set_end_minute
13713 SUBROUTINE nl_set_end_second ( id_id , end_second )
13714   integer , INTENT(IN) :: end_second
13715   INTEGER id_id
13716   CHARACTER*80 emess
13717   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13718     WRITE(emess,*)'nl_set_end_second: Out of range domain number: ',id_id
13719     CALL wrf_error_fatal(emess)
13720   ENDIF
13721   model_config_rec%end_second(id_id) = end_second
13722   RETURN
13723 END SUBROUTINE nl_set_end_second
13724 SUBROUTINE nl_set_interval_seconds ( id_id , interval_seconds )
13725   integer , INTENT(IN) :: interval_seconds
13726   INTEGER id_id
13727   CHARACTER*80 emess
13728   IF ( id_id .NE. 1 ) THEN
13729     call wrf_debug(1,&
13730 'WARNING in nl_set_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
13731   ENDIF
13732   model_config_rec%interval_seconds = interval_seconds 
13733   RETURN
13734 END SUBROUTINE nl_set_interval_seconds
13735 SUBROUTINE nl_set_input_from_file ( id_id , input_from_file )
13736   logical , INTENT(IN) :: input_from_file
13737   INTEGER id_id
13738   CHARACTER*80 emess
13739   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13740     WRITE(emess,*)'nl_set_input_from_file: Out of range domain number: ',id_id
13741     CALL wrf_error_fatal(emess)
13742   ENDIF
13743   model_config_rec%input_from_file(id_id) = input_from_file
13744   RETURN
13745 END SUBROUTINE nl_set_input_from_file
13746 SUBROUTINE nl_set_fine_input_stream ( id_id , fine_input_stream )
13747   integer , INTENT(IN) :: fine_input_stream
13748   INTEGER id_id
13749   CHARACTER*80 emess
13750   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13751     WRITE(emess,*)'nl_set_fine_input_stream: Out of range domain number: ',id_id
13752     CALL wrf_error_fatal(emess)
13753   ENDIF
13754   model_config_rec%fine_input_stream(id_id) = fine_input_stream
13755   RETURN
13756 END SUBROUTINE nl_set_fine_input_stream
13757 SUBROUTINE nl_set_input_from_hires ( id_id , input_from_hires )
13758   logical , INTENT(IN) :: input_from_hires
13759   INTEGER id_id
13760   CHARACTER*80 emess
13761   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13762     WRITE(emess,*)'nl_set_input_from_hires: Out of range domain number: ',id_id
13763     CALL wrf_error_fatal(emess)
13764   ENDIF
13765   model_config_rec%input_from_hires(id_id) = input_from_hires
13766   RETURN
13767 END SUBROUTINE nl_set_input_from_hires
13768 SUBROUTINE nl_set_rsmas_data_path ( id_id , rsmas_data_path )
13769   character*256 , INTENT(IN) :: rsmas_data_path
13770   INTEGER id_id
13771   CHARACTER*80 emess
13772   IF ( id_id .NE. 1 ) THEN
13773     call wrf_debug(1,&
13774 'WARNING in nl_set_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
13775   ENDIF
13776   model_config_rec%rsmas_data_path = trim(rsmas_data_path) 
13777   RETURN
13778 END SUBROUTINE nl_set_rsmas_data_path
13779 SUBROUTINE nl_set_history_interval ( id_id , history_interval )
13780   integer , INTENT(IN) :: history_interval
13781   INTEGER id_id
13782   CHARACTER*80 emess
13783   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13784     WRITE(emess,*)'nl_set_history_interval: Out of range domain number: ',id_id
13785     CALL wrf_error_fatal(emess)
13786   ENDIF
13787   model_config_rec%history_interval(id_id) = history_interval
13788   RETURN
13789 END SUBROUTINE nl_set_history_interval
13790 SUBROUTINE nl_set_frames_per_outfile ( id_id , frames_per_outfile )
13791   integer , INTENT(IN) :: frames_per_outfile
13792   INTEGER id_id
13793   CHARACTER*80 emess
13794   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13795     WRITE(emess,*)'nl_set_frames_per_outfile: Out of range domain number: ',id_id
13796     CALL wrf_error_fatal(emess)
13797   ENDIF
13798   model_config_rec%frames_per_outfile(id_id) = frames_per_outfile
13799   RETURN
13800 END SUBROUTINE nl_set_frames_per_outfile
13801 SUBROUTINE nl_set_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
13802   integer , INTENT(IN) :: frames_per_auxhist1
13803   INTEGER id_id
13804   CHARACTER*80 emess
13805   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13806     WRITE(emess,*)'nl_set_frames_per_auxhist1: Out of range domain number: ',id_id
13807     CALL wrf_error_fatal(emess)
13808   ENDIF
13809   model_config_rec%frames_per_auxhist1(id_id) = frames_per_auxhist1
13810   RETURN
13811 END SUBROUTINE nl_set_frames_per_auxhist1
13812 SUBROUTINE nl_set_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
13813   integer , INTENT(IN) :: frames_per_auxhist2
13814   INTEGER id_id
13815   CHARACTER*80 emess
13816   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13817     WRITE(emess,*)'nl_set_frames_per_auxhist2: Out of range domain number: ',id_id
13818     CALL wrf_error_fatal(emess)
13819   ENDIF
13820   model_config_rec%frames_per_auxhist2(id_id) = frames_per_auxhist2
13821   RETURN
13822 END SUBROUTINE nl_set_frames_per_auxhist2
13823 SUBROUTINE nl_set_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
13824   integer , INTENT(IN) :: frames_per_auxhist3
13825   INTEGER id_id
13826   CHARACTER*80 emess
13827   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13828     WRITE(emess,*)'nl_set_frames_per_auxhist3: Out of range domain number: ',id_id
13829     CALL wrf_error_fatal(emess)
13830   ENDIF
13831   model_config_rec%frames_per_auxhist3(id_id) = frames_per_auxhist3
13832   RETURN
13833 END SUBROUTINE nl_set_frames_per_auxhist3
13834 SUBROUTINE nl_set_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
13835   integer , INTENT(IN) :: frames_per_auxhist4
13836   INTEGER id_id
13837   CHARACTER*80 emess
13838   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13839     WRITE(emess,*)'nl_set_frames_per_auxhist4: Out of range domain number: ',id_id
13840     CALL wrf_error_fatal(emess)
13841   ENDIF
13842   model_config_rec%frames_per_auxhist4(id_id) = frames_per_auxhist4
13843   RETURN
13844 END SUBROUTINE nl_set_frames_per_auxhist4
13845 SUBROUTINE nl_set_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
13846   integer , INTENT(IN) :: frames_per_auxhist5
13847   INTEGER id_id
13848   CHARACTER*80 emess
13849   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13850     WRITE(emess,*)'nl_set_frames_per_auxhist5: Out of range domain number: ',id_id
13851     CALL wrf_error_fatal(emess)
13852   ENDIF
13853   model_config_rec%frames_per_auxhist5(id_id) = frames_per_auxhist5
13854   RETURN
13855 END SUBROUTINE nl_set_frames_per_auxhist5
13856 SUBROUTINE nl_set_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
13857   integer , INTENT(IN) :: frames_per_auxhist6
13858   INTEGER id_id
13859   CHARACTER*80 emess
13860   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13861     WRITE(emess,*)'nl_set_frames_per_auxhist6: Out of range domain number: ',id_id
13862     CALL wrf_error_fatal(emess)
13863   ENDIF
13864   model_config_rec%frames_per_auxhist6(id_id) = frames_per_auxhist6
13865   RETURN
13866 END SUBROUTINE nl_set_frames_per_auxhist6
13867 SUBROUTINE nl_set_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
13868   integer , INTENT(IN) :: frames_per_auxhist7
13869   INTEGER id_id
13870   CHARACTER*80 emess
13871   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13872     WRITE(emess,*)'nl_set_frames_per_auxhist7: Out of range domain number: ',id_id
13873     CALL wrf_error_fatal(emess)
13874   ENDIF
13875   model_config_rec%frames_per_auxhist7(id_id) = frames_per_auxhist7
13876   RETURN
13877 END SUBROUTINE nl_set_frames_per_auxhist7
13878 SUBROUTINE nl_set_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
13879   integer , INTENT(IN) :: frames_per_auxhist8
13880   INTEGER id_id
13881   CHARACTER*80 emess
13882   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13883     WRITE(emess,*)'nl_set_frames_per_auxhist8: Out of range domain number: ',id_id
13884     CALL wrf_error_fatal(emess)
13885   ENDIF
13886   model_config_rec%frames_per_auxhist8(id_id) = frames_per_auxhist8
13887   RETURN
13888 END SUBROUTINE nl_set_frames_per_auxhist8
13889 SUBROUTINE nl_set_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
13890   integer , INTENT(IN) :: frames_per_auxhist9
13891   INTEGER id_id
13892   CHARACTER*80 emess
13893   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13894     WRITE(emess,*)'nl_set_frames_per_auxhist9: Out of range domain number: ',id_id
13895     CALL wrf_error_fatal(emess)
13896   ENDIF
13897   model_config_rec%frames_per_auxhist9(id_id) = frames_per_auxhist9
13898   RETURN
13899 END SUBROUTINE nl_set_frames_per_auxhist9
13900 SUBROUTINE nl_set_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
13901   integer , INTENT(IN) :: frames_per_auxhist10
13902   INTEGER id_id
13903   CHARACTER*80 emess
13904   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13905     WRITE(emess,*)'nl_set_frames_per_auxhist10: Out of range domain number: ',id_id
13906     CALL wrf_error_fatal(emess)
13907   ENDIF
13908   model_config_rec%frames_per_auxhist10(id_id) = frames_per_auxhist10
13909   RETURN
13910 END SUBROUTINE nl_set_frames_per_auxhist10
13911 SUBROUTINE nl_set_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
13912   integer , INTENT(IN) :: frames_per_auxhist11
13913   INTEGER id_id
13914   CHARACTER*80 emess
13915   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13916     WRITE(emess,*)'nl_set_frames_per_auxhist11: Out of range domain number: ',id_id
13917     CALL wrf_error_fatal(emess)
13918   ENDIF
13919   model_config_rec%frames_per_auxhist11(id_id) = frames_per_auxhist11
13920   RETURN
13921 END SUBROUTINE nl_set_frames_per_auxhist11
13922 SUBROUTINE nl_set_restart ( id_id , restart )
13923   logical , INTENT(IN) :: restart
13924   INTEGER id_id
13925   CHARACTER*80 emess
13926   IF ( id_id .NE. 1 ) THEN
13927     call wrf_debug(1,&
13928 'WARNING in nl_set_restart: restart applies to all domains. First arg ignored.')
13929   ENDIF
13930   model_config_rec%restart = restart 
13931   RETURN
13932 END SUBROUTINE nl_set_restart
13933 SUBROUTINE nl_set_restart_interval ( id_id , restart_interval )
13934   integer , INTENT(IN) :: restart_interval
13935   INTEGER id_id
13936   CHARACTER*80 emess
13937   IF ( id_id .NE. 1 ) THEN
13938     call wrf_debug(1,&
13939 'WARNING in nl_set_restart_interval: restart_interval applies to all domains. First arg ignored.')
13940   ENDIF
13941   model_config_rec%restart_interval = restart_interval 
13942   RETURN
13943 END SUBROUTINE nl_set_restart_interval
13944 SUBROUTINE nl_set_io_form_input ( id_id , io_form_input )
13945   integer , INTENT(IN) :: io_form_input
13946   INTEGER id_id
13947   CHARACTER*80 emess
13948   IF ( id_id .NE. 1 ) THEN
13949     call wrf_debug(1,&
13950 'WARNING in nl_set_io_form_input: io_form_input applies to all domains. First arg ignored.')
13951   ENDIF
13952   model_config_rec%io_form_input = io_form_input 
13953   RETURN
13954 END SUBROUTINE nl_set_io_form_input
13955 SUBROUTINE nl_set_io_form_history ( id_id , io_form_history )
13956   integer , INTENT(IN) :: io_form_history
13957   INTEGER id_id
13958   CHARACTER*80 emess
13959   IF ( id_id .NE. 1 ) THEN
13960     call wrf_debug(1,&
13961 'WARNING in nl_set_io_form_history: io_form_history applies to all domains. First arg ignored.')
13962   ENDIF
13963   model_config_rec%io_form_history = io_form_history 
13964   RETURN
13965 END SUBROUTINE nl_set_io_form_history
13966 SUBROUTINE nl_set_io_form_restart ( id_id , io_form_restart )
13967   integer , INTENT(IN) :: io_form_restart
13968   INTEGER id_id
13969   CHARACTER*80 emess
13970   IF ( id_id .NE. 1 ) THEN
13971     call wrf_debug(1,&
13972 'WARNING in nl_set_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
13973   ENDIF
13974   model_config_rec%io_form_restart = io_form_restart 
13975   RETURN
13976 END SUBROUTINE nl_set_io_form_restart
13977 SUBROUTINE nl_set_io_form_boundary ( id_id , io_form_boundary )
13978   integer , INTENT(IN) :: io_form_boundary
13979   INTEGER id_id
13980   CHARACTER*80 emess
13981   IF ( id_id .NE. 1 ) THEN
13982     call wrf_debug(1,&
13983 'WARNING in nl_set_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
13984   ENDIF
13985   model_config_rec%io_form_boundary = io_form_boundary 
13986   RETURN
13987 END SUBROUTINE nl_set_io_form_boundary
13988 SUBROUTINE nl_set_debug_level ( id_id , debug_level )
13989   integer , INTENT(IN) :: debug_level
13990   INTEGER id_id
13991   CHARACTER*80 emess
13992   IF ( id_id .NE. 1 ) THEN
13993     call wrf_debug(1,&
13994 'WARNING in nl_set_debug_level: debug_level applies to all domains. First arg ignored.')
13995   ENDIF
13996   model_config_rec%debug_level = debug_level 
13997   RETURN
13998 END SUBROUTINE nl_set_debug_level
13999 SUBROUTINE nl_set_self_test_domain ( id_id , self_test_domain )
14000   logical , INTENT(IN) :: self_test_domain
14001   INTEGER id_id
14002   CHARACTER*80 emess
14003   IF ( id_id .NE. 1 ) THEN
14004     call wrf_debug(1,&
14005 'WARNING in nl_set_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
14006   ENDIF
14007   model_config_rec%self_test_domain = self_test_domain 
14008   RETURN
14009 END SUBROUTINE nl_set_self_test_domain
14010 SUBROUTINE nl_set_history_outname ( id_id , history_outname )
14011   character*256 , INTENT(IN) :: history_outname
14012   INTEGER id_id
14013   CHARACTER*80 emess
14014   IF ( id_id .NE. 1 ) THEN
14015     call wrf_debug(1,&
14016 'WARNING in nl_set_history_outname: history_outname applies to all domains. First arg ignored.')
14017   ENDIF
14018   model_config_rec%history_outname = trim(history_outname) 
14019   RETURN
14020 END SUBROUTINE nl_set_history_outname
14021 SUBROUTINE nl_set_auxhist1_outname ( id_id , auxhist1_outname )
14022   character*256 , INTENT(IN) :: auxhist1_outname
14023   INTEGER id_id
14024   CHARACTER*80 emess
14025   IF ( id_id .NE. 1 ) THEN
14026     call wrf_debug(1,&
14027 'WARNING in nl_set_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
14028   ENDIF
14029   model_config_rec%auxhist1_outname = trim(auxhist1_outname) 
14030   RETURN
14031 END SUBROUTINE nl_set_auxhist1_outname
14032 SUBROUTINE nl_set_auxhist2_outname ( id_id , auxhist2_outname )
14033   character*256 , INTENT(IN) :: auxhist2_outname
14034   INTEGER id_id
14035   CHARACTER*80 emess
14036   IF ( id_id .NE. 1 ) THEN
14037     call wrf_debug(1,&
14038 'WARNING in nl_set_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
14039   ENDIF
14040   model_config_rec%auxhist2_outname = trim(auxhist2_outname) 
14041   RETURN
14042 END SUBROUTINE nl_set_auxhist2_outname
14043 SUBROUTINE nl_set_auxhist3_outname ( id_id , auxhist3_outname )
14044   character*256 , INTENT(IN) :: auxhist3_outname
14045   INTEGER id_id
14046   CHARACTER*80 emess
14047   IF ( id_id .NE. 1 ) THEN
14048     call wrf_debug(1,&
14049 'WARNING in nl_set_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
14050   ENDIF
14051   model_config_rec%auxhist3_outname = trim(auxhist3_outname) 
14052   RETURN
14053 END SUBROUTINE nl_set_auxhist3_outname
14054 SUBROUTINE nl_set_auxhist4_outname ( id_id , auxhist4_outname )
14055   character*256 , INTENT(IN) :: auxhist4_outname
14056   INTEGER id_id
14057   CHARACTER*80 emess
14058   IF ( id_id .NE. 1 ) THEN
14059     call wrf_debug(1,&
14060 'WARNING in nl_set_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
14061   ENDIF
14062   model_config_rec%auxhist4_outname = trim(auxhist4_outname) 
14063   RETURN
14064 END SUBROUTINE nl_set_auxhist4_outname
14065 SUBROUTINE nl_set_auxhist5_outname ( id_id , auxhist5_outname )
14066   character*256 , INTENT(IN) :: auxhist5_outname
14067   INTEGER id_id
14068   CHARACTER*80 emess
14069   IF ( id_id .NE. 1 ) THEN
14070     call wrf_debug(1,&
14071 'WARNING in nl_set_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
14072   ENDIF
14073   model_config_rec%auxhist5_outname = trim(auxhist5_outname) 
14074   RETURN
14075 END SUBROUTINE nl_set_auxhist5_outname
14076 SUBROUTINE nl_set_auxhist6_outname ( id_id , auxhist6_outname )
14077   character*256 , INTENT(IN) :: auxhist6_outname
14078   INTEGER id_id
14079   CHARACTER*80 emess
14080   IF ( id_id .NE. 1 ) THEN
14081     call wrf_debug(1,&
14082 'WARNING in nl_set_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
14083   ENDIF
14084   model_config_rec%auxhist6_outname = trim(auxhist6_outname) 
14085   RETURN
14086 END SUBROUTINE nl_set_auxhist6_outname
14087 SUBROUTINE nl_set_auxhist7_outname ( id_id , auxhist7_outname )
14088   character*256 , INTENT(IN) :: auxhist7_outname
14089   INTEGER id_id
14090   CHARACTER*80 emess
14091   IF ( id_id .NE. 1 ) THEN
14092     call wrf_debug(1,&
14093 'WARNING in nl_set_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
14094   ENDIF
14095   model_config_rec%auxhist7_outname = trim(auxhist7_outname) 
14096   RETURN
14097 END SUBROUTINE nl_set_auxhist7_outname
14098 SUBROUTINE nl_set_auxhist8_outname ( id_id , auxhist8_outname )
14099   character*256 , INTENT(IN) :: auxhist8_outname
14100   INTEGER id_id
14101   CHARACTER*80 emess
14102   IF ( id_id .NE. 1 ) THEN
14103     call wrf_debug(1,&
14104 'WARNING in nl_set_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
14105   ENDIF
14106   model_config_rec%auxhist8_outname = trim(auxhist8_outname) 
14107   RETURN
14108 END SUBROUTINE nl_set_auxhist8_outname
14109 SUBROUTINE nl_set_auxhist9_outname ( id_id , auxhist9_outname )
14110   character*256 , INTENT(IN) :: auxhist9_outname
14111   INTEGER id_id
14112   CHARACTER*80 emess
14113   IF ( id_id .NE. 1 ) THEN
14114     call wrf_debug(1,&
14115 'WARNING in nl_set_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
14116   ENDIF
14117   model_config_rec%auxhist9_outname = trim(auxhist9_outname) 
14118   RETURN
14119 END SUBROUTINE nl_set_auxhist9_outname
14120 SUBROUTINE nl_set_auxhist10_outname ( id_id , auxhist10_outname )
14121   character*256 , INTENT(IN) :: auxhist10_outname
14122   INTEGER id_id
14123   CHARACTER*80 emess
14124   IF ( id_id .NE. 1 ) THEN
14125     call wrf_debug(1,&
14126 'WARNING in nl_set_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
14127   ENDIF
14128   model_config_rec%auxhist10_outname = trim(auxhist10_outname) 
14129   RETURN
14130 END SUBROUTINE nl_set_auxhist10_outname
14131 SUBROUTINE nl_set_auxhist11_outname ( id_id , auxhist11_outname )
14132   character*256 , INTENT(IN) :: auxhist11_outname
14133   INTEGER id_id
14134   CHARACTER*80 emess
14135   IF ( id_id .NE. 1 ) THEN
14136     call wrf_debug(1,&
14137 'WARNING in nl_set_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
14138   ENDIF
14139   model_config_rec%auxhist11_outname = trim(auxhist11_outname) 
14140   RETURN
14141 END SUBROUTINE nl_set_auxhist11_outname
14142 SUBROUTINE nl_set_history_inname ( id_id , history_inname )
14143   character*256 , INTENT(IN) :: history_inname
14144   INTEGER id_id
14145   CHARACTER*80 emess
14146   IF ( id_id .NE. 1 ) THEN
14147     call wrf_debug(1,&
14148 'WARNING in nl_set_history_inname: history_inname applies to all domains. First arg ignored.')
14149   ENDIF
14150   model_config_rec%history_inname = trim(history_inname) 
14151   RETURN
14152 END SUBROUTINE nl_set_history_inname
14153 SUBROUTINE nl_set_auxhist1_inname ( id_id , auxhist1_inname )
14154   character*256 , INTENT(IN) :: auxhist1_inname
14155   INTEGER id_id
14156   CHARACTER*80 emess
14157   IF ( id_id .NE. 1 ) THEN
14158     call wrf_debug(1,&
14159 'WARNING in nl_set_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
14160   ENDIF
14161   model_config_rec%auxhist1_inname = trim(auxhist1_inname) 
14162   RETURN
14163 END SUBROUTINE nl_set_auxhist1_inname
14164 SUBROUTINE nl_set_auxhist2_inname ( id_id , auxhist2_inname )
14165   character*256 , INTENT(IN) :: auxhist2_inname
14166   INTEGER id_id
14167   CHARACTER*80 emess
14168   IF ( id_id .NE. 1 ) THEN
14169     call wrf_debug(1,&
14170 'WARNING in nl_set_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
14171   ENDIF
14172   model_config_rec%auxhist2_inname = trim(auxhist2_inname) 
14173   RETURN
14174 END SUBROUTINE nl_set_auxhist2_inname
14175 SUBROUTINE nl_set_auxhist3_inname ( id_id , auxhist3_inname )
14176   character*256 , INTENT(IN) :: auxhist3_inname
14177   INTEGER id_id
14178   CHARACTER*80 emess
14179   IF ( id_id .NE. 1 ) THEN
14180     call wrf_debug(1,&
14181 'WARNING in nl_set_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
14182   ENDIF
14183   model_config_rec%auxhist3_inname = trim(auxhist3_inname) 
14184   RETURN
14185 END SUBROUTINE nl_set_auxhist3_inname
14186 SUBROUTINE nl_set_auxhist4_inname ( id_id , auxhist4_inname )
14187   character*256 , INTENT(IN) :: auxhist4_inname
14188   INTEGER id_id
14189   CHARACTER*80 emess
14190   IF ( id_id .NE. 1 ) THEN
14191     call wrf_debug(1,&
14192 'WARNING in nl_set_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
14193   ENDIF
14194   model_config_rec%auxhist4_inname = trim(auxhist4_inname) 
14195   RETURN
14196 END SUBROUTINE nl_set_auxhist4_inname
14197 SUBROUTINE nl_set_auxhist5_inname ( id_id , auxhist5_inname )
14198   character*256 , INTENT(IN) :: auxhist5_inname
14199   INTEGER id_id
14200   CHARACTER*80 emess
14201   IF ( id_id .NE. 1 ) THEN
14202     call wrf_debug(1,&
14203 'WARNING in nl_set_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
14204   ENDIF
14205   model_config_rec%auxhist5_inname = trim(auxhist5_inname) 
14206   RETURN
14207 END SUBROUTINE nl_set_auxhist5_inname
14208 SUBROUTINE nl_set_auxhist6_inname ( id_id , auxhist6_inname )
14209   character*256 , INTENT(IN) :: auxhist6_inname
14210   INTEGER id_id
14211   CHARACTER*80 emess
14212   IF ( id_id .NE. 1 ) THEN
14213     call wrf_debug(1,&
14214 'WARNING in nl_set_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
14215   ENDIF
14216   model_config_rec%auxhist6_inname = trim(auxhist6_inname) 
14217   RETURN
14218 END SUBROUTINE nl_set_auxhist6_inname
14219 SUBROUTINE nl_set_auxhist7_inname ( id_id , auxhist7_inname )
14220   character*256 , INTENT(IN) :: auxhist7_inname
14221   INTEGER id_id
14222   CHARACTER*80 emess
14223   IF ( id_id .NE. 1 ) THEN
14224     call wrf_debug(1,&
14225 'WARNING in nl_set_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
14226   ENDIF
14227   model_config_rec%auxhist7_inname = trim(auxhist7_inname) 
14228   RETURN
14229 END SUBROUTINE nl_set_auxhist7_inname
14230 SUBROUTINE nl_set_auxhist8_inname ( id_id , auxhist8_inname )
14231   character*256 , INTENT(IN) :: auxhist8_inname
14232   INTEGER id_id
14233   CHARACTER*80 emess
14234   IF ( id_id .NE. 1 ) THEN
14235     call wrf_debug(1,&
14236 'WARNING in nl_set_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
14237   ENDIF
14238   model_config_rec%auxhist8_inname = trim(auxhist8_inname) 
14239   RETURN
14240 END SUBROUTINE nl_set_auxhist8_inname
14241 SUBROUTINE nl_set_auxhist9_inname ( id_id , auxhist9_inname )
14242   character*256 , INTENT(IN) :: auxhist9_inname
14243   INTEGER id_id
14244   CHARACTER*80 emess
14245   IF ( id_id .NE. 1 ) THEN
14246     call wrf_debug(1,&
14247 'WARNING in nl_set_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
14248   ENDIF
14249   model_config_rec%auxhist9_inname = trim(auxhist9_inname) 
14250   RETURN
14251 END SUBROUTINE nl_set_auxhist9_inname
14252 SUBROUTINE nl_set_auxhist10_inname ( id_id , auxhist10_inname )
14253   character*256 , INTENT(IN) :: auxhist10_inname
14254   INTEGER id_id
14255   CHARACTER*80 emess
14256   IF ( id_id .NE. 1 ) THEN
14257     call wrf_debug(1,&
14258 'WARNING in nl_set_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
14259   ENDIF
14260   model_config_rec%auxhist10_inname = trim(auxhist10_inname) 
14261   RETURN
14262 END SUBROUTINE nl_set_auxhist10_inname
14263 SUBROUTINE nl_set_auxhist11_inname ( id_id , auxhist11_inname )
14264   character*256 , INTENT(IN) :: auxhist11_inname
14265   INTEGER id_id
14266   CHARACTER*80 emess
14267   IF ( id_id .NE. 1 ) THEN
14268     call wrf_debug(1,&
14269 'WARNING in nl_set_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
14270   ENDIF
14271   model_config_rec%auxhist11_inname = trim(auxhist11_inname) 
14272   RETURN
14273 END SUBROUTINE nl_set_auxhist11_inname
14274 SUBROUTINE nl_set_auxinput1_outname ( id_id , auxinput1_outname )
14275   character*256 , INTENT(IN) :: auxinput1_outname
14276   INTEGER id_id
14277   CHARACTER*80 emess
14278   IF ( id_id .NE. 1 ) THEN
14279     call wrf_debug(1,&
14280 'WARNING in nl_set_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
14281   ENDIF
14282   model_config_rec%auxinput1_outname = trim(auxinput1_outname) 
14283   RETURN
14284 END SUBROUTINE nl_set_auxinput1_outname
14285 SUBROUTINE nl_set_auxinput2_outname ( id_id , auxinput2_outname )
14286   character*256 , INTENT(IN) :: auxinput2_outname
14287   INTEGER id_id
14288   CHARACTER*80 emess
14289   IF ( id_id .NE. 1 ) THEN
14290     call wrf_debug(1,&
14291 'WARNING in nl_set_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
14292   ENDIF
14293   model_config_rec%auxinput2_outname = trim(auxinput2_outname) 
14294   RETURN
14295 END SUBROUTINE nl_set_auxinput2_outname
14296 SUBROUTINE nl_set_auxinput3_outname ( id_id , auxinput3_outname )
14297   character*256 , INTENT(IN) :: auxinput3_outname
14298   INTEGER id_id
14299   CHARACTER*80 emess
14300   IF ( id_id .NE. 1 ) THEN
14301     call wrf_debug(1,&
14302 'WARNING in nl_set_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
14303   ENDIF
14304   model_config_rec%auxinput3_outname = trim(auxinput3_outname) 
14305   RETURN
14306 END SUBROUTINE nl_set_auxinput3_outname
14307 SUBROUTINE nl_set_auxinput4_outname ( id_id , auxinput4_outname )
14308   character*256 , INTENT(IN) :: auxinput4_outname
14309   INTEGER id_id
14310   CHARACTER*80 emess
14311   IF ( id_id .NE. 1 ) THEN
14312     call wrf_debug(1,&
14313 'WARNING in nl_set_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
14314   ENDIF
14315   model_config_rec%auxinput4_outname = trim(auxinput4_outname) 
14316   RETURN
14317 END SUBROUTINE nl_set_auxinput4_outname
14318 SUBROUTINE nl_set_auxinput5_outname ( id_id , auxinput5_outname )
14319   character*256 , INTENT(IN) :: auxinput5_outname
14320   INTEGER id_id
14321   CHARACTER*80 emess
14322   IF ( id_id .NE. 1 ) THEN
14323     call wrf_debug(1,&
14324 'WARNING in nl_set_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
14325   ENDIF
14326   model_config_rec%auxinput5_outname = trim(auxinput5_outname) 
14327   RETURN
14328 END SUBROUTINE nl_set_auxinput5_outname
14329 SUBROUTINE nl_set_auxinput6_outname ( id_id , auxinput6_outname )
14330   character*256 , INTENT(IN) :: auxinput6_outname
14331   INTEGER id_id
14332   CHARACTER*80 emess
14333   IF ( id_id .NE. 1 ) THEN
14334     call wrf_debug(1,&
14335 'WARNING in nl_set_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
14336   ENDIF
14337   model_config_rec%auxinput6_outname = trim(auxinput6_outname) 
14338   RETURN
14339 END SUBROUTINE nl_set_auxinput6_outname
14340 SUBROUTINE nl_set_auxinput7_outname ( id_id , auxinput7_outname )
14341   character*256 , INTENT(IN) :: auxinput7_outname
14342   INTEGER id_id
14343   CHARACTER*80 emess
14344   IF ( id_id .NE. 1 ) THEN
14345     call wrf_debug(1,&
14346 'WARNING in nl_set_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
14347   ENDIF
14348   model_config_rec%auxinput7_outname = trim(auxinput7_outname) 
14349   RETURN
14350 END SUBROUTINE nl_set_auxinput7_outname
14351 SUBROUTINE nl_set_auxinput8_outname ( id_id , auxinput8_outname )
14352   character*256 , INTENT(IN) :: auxinput8_outname
14353   INTEGER id_id
14354   CHARACTER*80 emess
14355   IF ( id_id .NE. 1 ) THEN
14356     call wrf_debug(1,&
14357 'WARNING in nl_set_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
14358   ENDIF
14359   model_config_rec%auxinput8_outname = trim(auxinput8_outname) 
14360   RETURN
14361 END SUBROUTINE nl_set_auxinput8_outname
14362 SUBROUTINE nl_set_auxinput9_outname ( id_id , auxinput9_outname )
14363   character*256 , INTENT(IN) :: auxinput9_outname
14364   INTEGER id_id
14365   CHARACTER*80 emess
14366   IF ( id_id .NE. 1 ) THEN
14367     call wrf_debug(1,&
14368 'WARNING in nl_set_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
14369   ENDIF
14370   model_config_rec%auxinput9_outname = trim(auxinput9_outname) 
14371   RETURN
14372 END SUBROUTINE nl_set_auxinput9_outname
14373 SUBROUTINE nl_set_auxinput10_outname ( id_id , auxinput10_outname )
14374   character*256 , INTENT(IN) :: auxinput10_outname
14375   INTEGER id_id
14376   CHARACTER*80 emess
14377   IF ( id_id .NE. 1 ) THEN
14378     call wrf_debug(1,&
14379 'WARNING in nl_set_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
14380   ENDIF
14381   model_config_rec%auxinput10_outname = trim(auxinput10_outname) 
14382   RETURN
14383 END SUBROUTINE nl_set_auxinput10_outname
14384 SUBROUTINE nl_set_auxinput11_outname ( id_id , auxinput11_outname )
14385   character*256 , INTENT(IN) :: auxinput11_outname
14386   INTEGER id_id
14387   CHARACTER*80 emess
14388   IF ( id_id .NE. 1 ) THEN
14389     call wrf_debug(1,&
14390 'WARNING in nl_set_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
14391   ENDIF
14392   model_config_rec%auxinput11_outname = trim(auxinput11_outname) 
14393   RETURN
14394 END SUBROUTINE nl_set_auxinput11_outname
14395 SUBROUTINE nl_set_auxinput1_inname ( id_id , auxinput1_inname )
14396   character*256 , INTENT(IN) :: auxinput1_inname
14397   INTEGER id_id
14398   CHARACTER*80 emess
14399   IF ( id_id .NE. 1 ) THEN
14400     call wrf_debug(1,&
14401 'WARNING in nl_set_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
14402   ENDIF
14403   model_config_rec%auxinput1_inname = trim(auxinput1_inname) 
14404   RETURN
14405 END SUBROUTINE nl_set_auxinput1_inname
14406 SUBROUTINE nl_set_auxinput2_inname ( id_id , auxinput2_inname )
14407   character*256 , INTENT(IN) :: auxinput2_inname
14408   INTEGER id_id
14409   CHARACTER*80 emess
14410   IF ( id_id .NE. 1 ) THEN
14411     call wrf_debug(1,&
14412 'WARNING in nl_set_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
14413   ENDIF
14414   model_config_rec%auxinput2_inname = trim(auxinput2_inname) 
14415   RETURN
14416 END SUBROUTINE nl_set_auxinput2_inname
14417 SUBROUTINE nl_set_auxinput3_inname ( id_id , auxinput3_inname )
14418   character*256 , INTENT(IN) :: auxinput3_inname
14419   INTEGER id_id
14420   CHARACTER*80 emess
14421   IF ( id_id .NE. 1 ) THEN
14422     call wrf_debug(1,&
14423 'WARNING in nl_set_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
14424   ENDIF
14425   model_config_rec%auxinput3_inname = trim(auxinput3_inname) 
14426   RETURN
14427 END SUBROUTINE nl_set_auxinput3_inname
14428 SUBROUTINE nl_set_auxinput4_inname ( id_id , auxinput4_inname )
14429   character*256 , INTENT(IN) :: auxinput4_inname
14430   INTEGER id_id
14431   CHARACTER*80 emess
14432   IF ( id_id .NE. 1 ) THEN
14433     call wrf_debug(1,&
14434 'WARNING in nl_set_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
14435   ENDIF
14436   model_config_rec%auxinput4_inname = trim(auxinput4_inname) 
14437   RETURN
14438 END SUBROUTINE nl_set_auxinput4_inname
14439 SUBROUTINE nl_set_auxinput5_inname ( id_id , auxinput5_inname )
14440   character*256 , INTENT(IN) :: auxinput5_inname
14441   INTEGER id_id
14442   CHARACTER*80 emess
14443   IF ( id_id .NE. 1 ) THEN
14444     call wrf_debug(1,&
14445 'WARNING in nl_set_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
14446   ENDIF
14447   model_config_rec%auxinput5_inname = trim(auxinput5_inname) 
14448   RETURN
14449 END SUBROUTINE nl_set_auxinput5_inname
14450 SUBROUTINE nl_set_auxinput6_inname ( id_id , auxinput6_inname )
14451   character*256 , INTENT(IN) :: auxinput6_inname
14452   INTEGER id_id
14453   CHARACTER*80 emess
14454   IF ( id_id .NE. 1 ) THEN
14455     call wrf_debug(1,&
14456 'WARNING in nl_set_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
14457   ENDIF
14458   model_config_rec%auxinput6_inname = trim(auxinput6_inname) 
14459   RETURN
14460 END SUBROUTINE nl_set_auxinput6_inname
14461 SUBROUTINE nl_set_auxinput7_inname ( id_id , auxinput7_inname )
14462   character*256 , INTENT(IN) :: auxinput7_inname
14463   INTEGER id_id
14464   CHARACTER*80 emess
14465   IF ( id_id .NE. 1 ) THEN
14466     call wrf_debug(1,&
14467 'WARNING in nl_set_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
14468   ENDIF
14469   model_config_rec%auxinput7_inname = trim(auxinput7_inname) 
14470   RETURN
14471 END SUBROUTINE nl_set_auxinput7_inname
14472 SUBROUTINE nl_set_auxinput8_inname ( id_id , auxinput8_inname )
14473   character*256 , INTENT(IN) :: auxinput8_inname
14474   INTEGER id_id
14475   CHARACTER*80 emess
14476   IF ( id_id .NE. 1 ) THEN
14477     call wrf_debug(1,&
14478 'WARNING in nl_set_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
14479   ENDIF
14480   model_config_rec%auxinput8_inname = trim(auxinput8_inname) 
14481   RETURN
14482 END SUBROUTINE nl_set_auxinput8_inname
14483 SUBROUTINE nl_set_auxinput9_inname ( id_id , auxinput9_inname )
14484   character*256 , INTENT(IN) :: auxinput9_inname
14485   INTEGER id_id
14486   CHARACTER*80 emess
14487   IF ( id_id .NE. 1 ) THEN
14488     call wrf_debug(1,&
14489 'WARNING in nl_set_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
14490   ENDIF
14491   model_config_rec%auxinput9_inname = trim(auxinput9_inname) 
14492   RETURN
14493 END SUBROUTINE nl_set_auxinput9_inname
14494 SUBROUTINE nl_set_gfdda_inname ( id_id , gfdda_inname )
14495   character*256 , INTENT(IN) :: gfdda_inname
14496   INTEGER id_id
14497   CHARACTER*80 emess
14498   IF ( id_id .NE. 1 ) THEN
14499     call wrf_debug(1,&
14500 'WARNING in nl_set_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
14501   ENDIF
14502   model_config_rec%gfdda_inname = trim(gfdda_inname) 
14503   RETURN
14504 END SUBROUTINE nl_set_gfdda_inname
14505 SUBROUTINE nl_set_auxinput11_inname ( id_id , auxinput11_inname )
14506   character*256 , INTENT(IN) :: auxinput11_inname
14507   INTEGER id_id
14508   CHARACTER*80 emess
14509   IF ( id_id .NE. 1 ) THEN
14510     call wrf_debug(1,&
14511 'WARNING in nl_set_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
14512   ENDIF
14513   model_config_rec%auxinput11_inname = trim(auxinput11_inname) 
14514   RETURN
14515 END SUBROUTINE nl_set_auxinput11_inname
14516 SUBROUTINE nl_set_history_interval_mo ( id_id , history_interval_mo )
14517   integer , INTENT(IN) :: history_interval_mo
14518   INTEGER id_id
14519   CHARACTER*80 emess
14520   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14521     WRITE(emess,*)'nl_set_history_interval_mo: Out of range domain number: ',id_id
14522     CALL wrf_error_fatal(emess)
14523   ENDIF
14524   model_config_rec%history_interval_mo(id_id) = history_interval_mo
14525   RETURN
14526 END SUBROUTINE nl_set_history_interval_mo
14527 SUBROUTINE nl_set_history_interval_d ( id_id , history_interval_d )
14528   integer , INTENT(IN) :: history_interval_d
14529   INTEGER id_id
14530   CHARACTER*80 emess
14531   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14532     WRITE(emess,*)'nl_set_history_interval_d: Out of range domain number: ',id_id
14533     CALL wrf_error_fatal(emess)
14534   ENDIF
14535   model_config_rec%history_interval_d(id_id) = history_interval_d
14536   RETURN
14537 END SUBROUTINE nl_set_history_interval_d
14538 SUBROUTINE nl_set_history_interval_h ( id_id , history_interval_h )
14539   integer , INTENT(IN) :: history_interval_h
14540   INTEGER id_id
14541   CHARACTER*80 emess
14542   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14543     WRITE(emess,*)'nl_set_history_interval_h: Out of range domain number: ',id_id
14544     CALL wrf_error_fatal(emess)
14545   ENDIF
14546   model_config_rec%history_interval_h(id_id) = history_interval_h
14547   RETURN
14548 END SUBROUTINE nl_set_history_interval_h
14549 SUBROUTINE nl_set_history_interval_m ( id_id , history_interval_m )
14550   integer , INTENT(IN) :: history_interval_m
14551   INTEGER id_id
14552   CHARACTER*80 emess
14553   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14554     WRITE(emess,*)'nl_set_history_interval_m: Out of range domain number: ',id_id
14555     CALL wrf_error_fatal(emess)
14556   ENDIF
14557   model_config_rec%history_interval_m(id_id) = history_interval_m
14558   RETURN
14559 END SUBROUTINE nl_set_history_interval_m
14560 SUBROUTINE nl_set_history_interval_s ( id_id , history_interval_s )
14561   integer , INTENT(IN) :: history_interval_s
14562   INTEGER id_id
14563   CHARACTER*80 emess
14564   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14565     WRITE(emess,*)'nl_set_history_interval_s: Out of range domain number: ',id_id
14566     CALL wrf_error_fatal(emess)
14567   ENDIF
14568   model_config_rec%history_interval_s(id_id) = history_interval_s
14569   RETURN
14570 END SUBROUTINE nl_set_history_interval_s
14571 SUBROUTINE nl_set_inputout_interval_mo ( id_id , inputout_interval_mo )
14572   integer , INTENT(IN) :: inputout_interval_mo
14573   INTEGER id_id
14574   CHARACTER*80 emess
14575   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14576     WRITE(emess,*)'nl_set_inputout_interval_mo: Out of range domain number: ',id_id
14577     CALL wrf_error_fatal(emess)
14578   ENDIF
14579   model_config_rec%inputout_interval_mo(id_id) = inputout_interval_mo
14580   RETURN
14581 END SUBROUTINE nl_set_inputout_interval_mo
14582 SUBROUTINE nl_set_inputout_interval_d ( id_id , inputout_interval_d )
14583   integer , INTENT(IN) :: inputout_interval_d
14584   INTEGER id_id
14585   CHARACTER*80 emess
14586   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14587     WRITE(emess,*)'nl_set_inputout_interval_d: Out of range domain number: ',id_id
14588     CALL wrf_error_fatal(emess)
14589   ENDIF
14590   model_config_rec%inputout_interval_d(id_id) = inputout_interval_d
14591   RETURN
14592 END SUBROUTINE nl_set_inputout_interval_d
14593 SUBROUTINE nl_set_inputout_interval_h ( id_id , inputout_interval_h )
14594   integer , INTENT(IN) :: inputout_interval_h
14595   INTEGER id_id
14596   CHARACTER*80 emess
14597   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14598     WRITE(emess,*)'nl_set_inputout_interval_h: Out of range domain number: ',id_id
14599     CALL wrf_error_fatal(emess)
14600   ENDIF
14601   model_config_rec%inputout_interval_h(id_id) = inputout_interval_h
14602   RETURN
14603 END SUBROUTINE nl_set_inputout_interval_h
14604 SUBROUTINE nl_set_inputout_interval_m ( id_id , inputout_interval_m )
14605   integer , INTENT(IN) :: inputout_interval_m
14606   INTEGER id_id
14607   CHARACTER*80 emess
14608   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14609     WRITE(emess,*)'nl_set_inputout_interval_m: Out of range domain number: ',id_id
14610     CALL wrf_error_fatal(emess)
14611   ENDIF
14612   model_config_rec%inputout_interval_m(id_id) = inputout_interval_m
14613   RETURN
14614 END SUBROUTINE nl_set_inputout_interval_m
14615 SUBROUTINE nl_set_inputout_interval_s ( id_id , inputout_interval_s )
14616   integer , INTENT(IN) :: inputout_interval_s
14617   INTEGER id_id
14618   CHARACTER*80 emess
14619   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14620     WRITE(emess,*)'nl_set_inputout_interval_s: Out of range domain number: ',id_id
14621     CALL wrf_error_fatal(emess)
14622   ENDIF
14623   model_config_rec%inputout_interval_s(id_id) = inputout_interval_s
14624   RETURN
14625 END SUBROUTINE nl_set_inputout_interval_s
14626 SUBROUTINE nl_set_inputout_interval ( id_id , inputout_interval )
14627   integer , INTENT(IN) :: inputout_interval
14628   INTEGER id_id
14629   CHARACTER*80 emess
14630   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14631     WRITE(emess,*)'nl_set_inputout_interval: Out of range domain number: ',id_id
14632     CALL wrf_error_fatal(emess)
14633   ENDIF
14634   model_config_rec%inputout_interval(id_id) = inputout_interval
14635   RETURN
14636 END SUBROUTINE nl_set_inputout_interval
14637 SUBROUTINE nl_set_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
14638   integer , INTENT(IN) :: auxhist1_interval_mo
14639   INTEGER id_id
14640   CHARACTER*80 emess
14641   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14642     WRITE(emess,*)'nl_set_auxhist1_interval_mo: Out of range domain number: ',id_id
14643     CALL wrf_error_fatal(emess)
14644   ENDIF
14645   model_config_rec%auxhist1_interval_mo(id_id) = auxhist1_interval_mo
14646   RETURN
14647 END SUBROUTINE nl_set_auxhist1_interval_mo
14648 SUBROUTINE nl_set_auxhist1_interval_d ( id_id , auxhist1_interval_d )
14649   integer , INTENT(IN) :: auxhist1_interval_d
14650   INTEGER id_id
14651   CHARACTER*80 emess
14652   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14653     WRITE(emess,*)'nl_set_auxhist1_interval_d: Out of range domain number: ',id_id
14654     CALL wrf_error_fatal(emess)
14655   ENDIF
14656   model_config_rec%auxhist1_interval_d(id_id) = auxhist1_interval_d
14657   RETURN
14658 END SUBROUTINE nl_set_auxhist1_interval_d
14659 SUBROUTINE nl_set_auxhist1_interval_h ( id_id , auxhist1_interval_h )
14660   integer , INTENT(IN) :: auxhist1_interval_h
14661   INTEGER id_id
14662   CHARACTER*80 emess
14663   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14664     WRITE(emess,*)'nl_set_auxhist1_interval_h: Out of range domain number: ',id_id
14665     CALL wrf_error_fatal(emess)
14666   ENDIF
14667   model_config_rec%auxhist1_interval_h(id_id) = auxhist1_interval_h
14668   RETURN
14669 END SUBROUTINE nl_set_auxhist1_interval_h
14670 SUBROUTINE nl_set_auxhist1_interval_m ( id_id , auxhist1_interval_m )
14671   integer , INTENT(IN) :: auxhist1_interval_m
14672   INTEGER id_id
14673   CHARACTER*80 emess
14674   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14675     WRITE(emess,*)'nl_set_auxhist1_interval_m: Out of range domain number: ',id_id
14676     CALL wrf_error_fatal(emess)
14677   ENDIF
14678   model_config_rec%auxhist1_interval_m(id_id) = auxhist1_interval_m
14679   RETURN
14680 END SUBROUTINE nl_set_auxhist1_interval_m
14681 SUBROUTINE nl_set_auxhist1_interval_s ( id_id , auxhist1_interval_s )
14682   integer , INTENT(IN) :: auxhist1_interval_s
14683   INTEGER id_id
14684   CHARACTER*80 emess
14685   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14686     WRITE(emess,*)'nl_set_auxhist1_interval_s: Out of range domain number: ',id_id
14687     CALL wrf_error_fatal(emess)
14688   ENDIF
14689   model_config_rec%auxhist1_interval_s(id_id) = auxhist1_interval_s
14690   RETURN
14691 END SUBROUTINE nl_set_auxhist1_interval_s
14692 SUBROUTINE nl_set_auxhist1_interval ( id_id , auxhist1_interval )
14693   integer , INTENT(IN) :: auxhist1_interval
14694   INTEGER id_id
14695   CHARACTER*80 emess
14696   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14697     WRITE(emess,*)'nl_set_auxhist1_interval: Out of range domain number: ',id_id
14698     CALL wrf_error_fatal(emess)
14699   ENDIF
14700   model_config_rec%auxhist1_interval(id_id) = auxhist1_interval
14701   RETURN
14702 END SUBROUTINE nl_set_auxhist1_interval
14703 SUBROUTINE nl_set_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
14704   integer , INTENT(IN) :: auxhist2_interval_mo
14705   INTEGER id_id
14706   CHARACTER*80 emess
14707   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14708     WRITE(emess,*)'nl_set_auxhist2_interval_mo: Out of range domain number: ',id_id
14709     CALL wrf_error_fatal(emess)
14710   ENDIF
14711   model_config_rec%auxhist2_interval_mo(id_id) = auxhist2_interval_mo
14712   RETURN
14713 END SUBROUTINE nl_set_auxhist2_interval_mo
14714 SUBROUTINE nl_set_auxhist2_interval_d ( id_id , auxhist2_interval_d )
14715   integer , INTENT(IN) :: auxhist2_interval_d
14716   INTEGER id_id
14717   CHARACTER*80 emess
14718   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14719     WRITE(emess,*)'nl_set_auxhist2_interval_d: Out of range domain number: ',id_id
14720     CALL wrf_error_fatal(emess)
14721   ENDIF
14722   model_config_rec%auxhist2_interval_d(id_id) = auxhist2_interval_d
14723   RETURN
14724 END SUBROUTINE nl_set_auxhist2_interval_d
14725 SUBROUTINE nl_set_auxhist2_interval_h ( id_id , auxhist2_interval_h )
14726   integer , INTENT(IN) :: auxhist2_interval_h
14727   INTEGER id_id
14728   CHARACTER*80 emess
14729   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14730     WRITE(emess,*)'nl_set_auxhist2_interval_h: Out of range domain number: ',id_id
14731     CALL wrf_error_fatal(emess)
14732   ENDIF
14733   model_config_rec%auxhist2_interval_h(id_id) = auxhist2_interval_h
14734   RETURN
14735 END SUBROUTINE nl_set_auxhist2_interval_h
14736 SUBROUTINE nl_set_auxhist2_interval_m ( id_id , auxhist2_interval_m )
14737   integer , INTENT(IN) :: auxhist2_interval_m
14738   INTEGER id_id
14739   CHARACTER*80 emess
14740   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14741     WRITE(emess,*)'nl_set_auxhist2_interval_m: Out of range domain number: ',id_id
14742     CALL wrf_error_fatal(emess)
14743   ENDIF
14744   model_config_rec%auxhist2_interval_m(id_id) = auxhist2_interval_m
14745   RETURN
14746 END SUBROUTINE nl_set_auxhist2_interval_m
14747 SUBROUTINE nl_set_auxhist2_interval_s ( id_id , auxhist2_interval_s )
14748   integer , INTENT(IN) :: auxhist2_interval_s
14749   INTEGER id_id
14750   CHARACTER*80 emess
14751   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14752     WRITE(emess,*)'nl_set_auxhist2_interval_s: Out of range domain number: ',id_id
14753     CALL wrf_error_fatal(emess)
14754   ENDIF
14755   model_config_rec%auxhist2_interval_s(id_id) = auxhist2_interval_s
14756   RETURN
14757 END SUBROUTINE nl_set_auxhist2_interval_s
14758 SUBROUTINE nl_set_auxhist2_interval ( id_id , auxhist2_interval )
14759   integer , INTENT(IN) :: auxhist2_interval
14760   INTEGER id_id
14761   CHARACTER*80 emess
14762   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14763     WRITE(emess,*)'nl_set_auxhist2_interval: Out of range domain number: ',id_id
14764     CALL wrf_error_fatal(emess)
14765   ENDIF
14766   model_config_rec%auxhist2_interval(id_id) = auxhist2_interval
14767   RETURN
14768 END SUBROUTINE nl_set_auxhist2_interval
14769 SUBROUTINE nl_set_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
14770   integer , INTENT(IN) :: auxhist3_interval_mo
14771   INTEGER id_id
14772   CHARACTER*80 emess
14773   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14774     WRITE(emess,*)'nl_set_auxhist3_interval_mo: Out of range domain number: ',id_id
14775     CALL wrf_error_fatal(emess)
14776   ENDIF
14777   model_config_rec%auxhist3_interval_mo(id_id) = auxhist3_interval_mo
14778   RETURN
14779 END SUBROUTINE nl_set_auxhist3_interval_mo
14780 SUBROUTINE nl_set_auxhist3_interval_d ( id_id , auxhist3_interval_d )
14781   integer , INTENT(IN) :: auxhist3_interval_d
14782   INTEGER id_id
14783   CHARACTER*80 emess
14784   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14785     WRITE(emess,*)'nl_set_auxhist3_interval_d: Out of range domain number: ',id_id
14786     CALL wrf_error_fatal(emess)
14787   ENDIF
14788   model_config_rec%auxhist3_interval_d(id_id) = auxhist3_interval_d
14789   RETURN
14790 END SUBROUTINE nl_set_auxhist3_interval_d
14791 SUBROUTINE nl_set_auxhist3_interval_h ( id_id , auxhist3_interval_h )
14792   integer , INTENT(IN) :: auxhist3_interval_h
14793   INTEGER id_id
14794   CHARACTER*80 emess
14795   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14796     WRITE(emess,*)'nl_set_auxhist3_interval_h: Out of range domain number: ',id_id
14797     CALL wrf_error_fatal(emess)
14798   ENDIF
14799   model_config_rec%auxhist3_interval_h(id_id) = auxhist3_interval_h
14800   RETURN
14801 END SUBROUTINE nl_set_auxhist3_interval_h
14802 SUBROUTINE nl_set_auxhist3_interval_m ( id_id , auxhist3_interval_m )
14803   integer , INTENT(IN) :: auxhist3_interval_m
14804   INTEGER id_id
14805   CHARACTER*80 emess
14806   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14807     WRITE(emess,*)'nl_set_auxhist3_interval_m: Out of range domain number: ',id_id
14808     CALL wrf_error_fatal(emess)
14809   ENDIF
14810   model_config_rec%auxhist3_interval_m(id_id) = auxhist3_interval_m
14811   RETURN
14812 END SUBROUTINE nl_set_auxhist3_interval_m
14813 SUBROUTINE nl_set_auxhist3_interval_s ( id_id , auxhist3_interval_s )
14814   integer , INTENT(IN) :: auxhist3_interval_s
14815   INTEGER id_id
14816   CHARACTER*80 emess
14817   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14818     WRITE(emess,*)'nl_set_auxhist3_interval_s: Out of range domain number: ',id_id
14819     CALL wrf_error_fatal(emess)
14820   ENDIF
14821   model_config_rec%auxhist3_interval_s(id_id) = auxhist3_interval_s
14822   RETURN
14823 END SUBROUTINE nl_set_auxhist3_interval_s
14824 SUBROUTINE nl_set_auxhist3_interval ( id_id , auxhist3_interval )
14825   integer , INTENT(IN) :: auxhist3_interval
14826   INTEGER id_id
14827   CHARACTER*80 emess
14828   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14829     WRITE(emess,*)'nl_set_auxhist3_interval: Out of range domain number: ',id_id
14830     CALL wrf_error_fatal(emess)
14831   ENDIF
14832   model_config_rec%auxhist3_interval(id_id) = auxhist3_interval
14833   RETURN
14834 END SUBROUTINE nl_set_auxhist3_interval
14835 SUBROUTINE nl_set_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
14836   integer , INTENT(IN) :: auxhist4_interval_mo
14837   INTEGER id_id
14838   CHARACTER*80 emess
14839   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14840     WRITE(emess,*)'nl_set_auxhist4_interval_mo: Out of range domain number: ',id_id
14841     CALL wrf_error_fatal(emess)
14842   ENDIF
14843   model_config_rec%auxhist4_interval_mo(id_id) = auxhist4_interval_mo
14844   RETURN
14845 END SUBROUTINE nl_set_auxhist4_interval_mo
14846 SUBROUTINE nl_set_auxhist4_interval_d ( id_id , auxhist4_interval_d )
14847   integer , INTENT(IN) :: auxhist4_interval_d
14848   INTEGER id_id
14849   CHARACTER*80 emess
14850   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14851     WRITE(emess,*)'nl_set_auxhist4_interval_d: Out of range domain number: ',id_id
14852     CALL wrf_error_fatal(emess)
14853   ENDIF
14854   model_config_rec%auxhist4_interval_d(id_id) = auxhist4_interval_d
14855   RETURN
14856 END SUBROUTINE nl_set_auxhist4_interval_d
14857 SUBROUTINE nl_set_auxhist4_interval_h ( id_id , auxhist4_interval_h )
14858   integer , INTENT(IN) :: auxhist4_interval_h
14859   INTEGER id_id
14860   CHARACTER*80 emess
14861   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14862     WRITE(emess,*)'nl_set_auxhist4_interval_h: Out of range domain number: ',id_id
14863     CALL wrf_error_fatal(emess)
14864   ENDIF
14865   model_config_rec%auxhist4_interval_h(id_id) = auxhist4_interval_h
14866   RETURN
14867 END SUBROUTINE nl_set_auxhist4_interval_h
14868 SUBROUTINE nl_set_auxhist4_interval_m ( id_id , auxhist4_interval_m )
14869   integer , INTENT(IN) :: auxhist4_interval_m
14870   INTEGER id_id
14871   CHARACTER*80 emess
14872   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14873     WRITE(emess,*)'nl_set_auxhist4_interval_m: Out of range domain number: ',id_id
14874     CALL wrf_error_fatal(emess)
14875   ENDIF
14876   model_config_rec%auxhist4_interval_m(id_id) = auxhist4_interval_m
14877   RETURN
14878 END SUBROUTINE nl_set_auxhist4_interval_m
14879 SUBROUTINE nl_set_auxhist4_interval_s ( id_id , auxhist4_interval_s )
14880   integer , INTENT(IN) :: auxhist4_interval_s
14881   INTEGER id_id
14882   CHARACTER*80 emess
14883   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14884     WRITE(emess,*)'nl_set_auxhist4_interval_s: Out of range domain number: ',id_id
14885     CALL wrf_error_fatal(emess)
14886   ENDIF
14887   model_config_rec%auxhist4_interval_s(id_id) = auxhist4_interval_s
14888   RETURN
14889 END SUBROUTINE nl_set_auxhist4_interval_s
14890 SUBROUTINE nl_set_auxhist4_interval ( id_id , auxhist4_interval )
14891   integer , INTENT(IN) :: auxhist4_interval
14892   INTEGER id_id
14893   CHARACTER*80 emess
14894   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14895     WRITE(emess,*)'nl_set_auxhist4_interval: Out of range domain number: ',id_id
14896     CALL wrf_error_fatal(emess)
14897   ENDIF
14898   model_config_rec%auxhist4_interval(id_id) = auxhist4_interval
14899   RETURN
14900 END SUBROUTINE nl_set_auxhist4_interval
14901 SUBROUTINE nl_set_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
14902   integer , INTENT(IN) :: auxhist5_interval_mo
14903   INTEGER id_id
14904   CHARACTER*80 emess
14905   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14906     WRITE(emess,*)'nl_set_auxhist5_interval_mo: Out of range domain number: ',id_id
14907     CALL wrf_error_fatal(emess)
14908   ENDIF
14909   model_config_rec%auxhist5_interval_mo(id_id) = auxhist5_interval_mo
14910   RETURN
14911 END SUBROUTINE nl_set_auxhist5_interval_mo
14912 SUBROUTINE nl_set_auxhist5_interval_d ( id_id , auxhist5_interval_d )
14913   integer , INTENT(IN) :: auxhist5_interval_d
14914   INTEGER id_id
14915   CHARACTER*80 emess
14916   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14917     WRITE(emess,*)'nl_set_auxhist5_interval_d: Out of range domain number: ',id_id
14918     CALL wrf_error_fatal(emess)
14919   ENDIF
14920   model_config_rec%auxhist5_interval_d(id_id) = auxhist5_interval_d
14921   RETURN
14922 END SUBROUTINE nl_set_auxhist5_interval_d
14923 SUBROUTINE nl_set_auxhist5_interval_h ( id_id , auxhist5_interval_h )
14924   integer , INTENT(IN) :: auxhist5_interval_h
14925   INTEGER id_id
14926   CHARACTER*80 emess
14927   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14928     WRITE(emess,*)'nl_set_auxhist5_interval_h: Out of range domain number: ',id_id
14929     CALL wrf_error_fatal(emess)
14930   ENDIF
14931   model_config_rec%auxhist5_interval_h(id_id) = auxhist5_interval_h
14932   RETURN
14933 END SUBROUTINE nl_set_auxhist5_interval_h
14934 SUBROUTINE nl_set_auxhist5_interval_m ( id_id , auxhist5_interval_m )
14935   integer , INTENT(IN) :: auxhist5_interval_m
14936   INTEGER id_id
14937   CHARACTER*80 emess
14938   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14939     WRITE(emess,*)'nl_set_auxhist5_interval_m: Out of range domain number: ',id_id
14940     CALL wrf_error_fatal(emess)
14941   ENDIF
14942   model_config_rec%auxhist5_interval_m(id_id) = auxhist5_interval_m
14943   RETURN
14944 END SUBROUTINE nl_set_auxhist5_interval_m
14945 SUBROUTINE nl_set_auxhist5_interval_s ( id_id , auxhist5_interval_s )
14946   integer , INTENT(IN) :: auxhist5_interval_s
14947   INTEGER id_id
14948   CHARACTER*80 emess
14949   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14950     WRITE(emess,*)'nl_set_auxhist5_interval_s: Out of range domain number: ',id_id
14951     CALL wrf_error_fatal(emess)
14952   ENDIF
14953   model_config_rec%auxhist5_interval_s(id_id) = auxhist5_interval_s
14954   RETURN
14955 END SUBROUTINE nl_set_auxhist5_interval_s
14956 SUBROUTINE nl_set_auxhist5_interval ( id_id , auxhist5_interval )
14957   integer , INTENT(IN) :: auxhist5_interval
14958   INTEGER id_id
14959   CHARACTER*80 emess
14960   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14961     WRITE(emess,*)'nl_set_auxhist5_interval: Out of range domain number: ',id_id
14962     CALL wrf_error_fatal(emess)
14963   ENDIF
14964   model_config_rec%auxhist5_interval(id_id) = auxhist5_interval
14965   RETURN
14966 END SUBROUTINE nl_set_auxhist5_interval
14967 SUBROUTINE nl_set_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
14968   integer , INTENT(IN) :: auxhist6_interval_mo
14969   INTEGER id_id
14970   CHARACTER*80 emess
14971   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14972     WRITE(emess,*)'nl_set_auxhist6_interval_mo: Out of range domain number: ',id_id
14973     CALL wrf_error_fatal(emess)
14974   ENDIF
14975   model_config_rec%auxhist6_interval_mo(id_id) = auxhist6_interval_mo
14976   RETURN
14977 END SUBROUTINE nl_set_auxhist6_interval_mo
14978 SUBROUTINE nl_set_auxhist6_interval_d ( id_id , auxhist6_interval_d )
14979   integer , INTENT(IN) :: auxhist6_interval_d
14980   INTEGER id_id
14981   CHARACTER*80 emess
14982   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14983     WRITE(emess,*)'nl_set_auxhist6_interval_d: Out of range domain number: ',id_id
14984     CALL wrf_error_fatal(emess)
14985   ENDIF
14986   model_config_rec%auxhist6_interval_d(id_id) = auxhist6_interval_d
14987   RETURN
14988 END SUBROUTINE nl_set_auxhist6_interval_d
14989 SUBROUTINE nl_set_auxhist6_interval_h ( id_id , auxhist6_interval_h )
14990   integer , INTENT(IN) :: auxhist6_interval_h
14991   INTEGER id_id
14992   CHARACTER*80 emess
14993   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14994     WRITE(emess,*)'nl_set_auxhist6_interval_h: Out of range domain number: ',id_id
14995     CALL wrf_error_fatal(emess)
14996   ENDIF
14997   model_config_rec%auxhist6_interval_h(id_id) = auxhist6_interval_h
14998   RETURN
14999 END SUBROUTINE nl_set_auxhist6_interval_h
15000 SUBROUTINE nl_set_auxhist6_interval_m ( id_id , auxhist6_interval_m )
15001   integer , INTENT(IN) :: auxhist6_interval_m
15002   INTEGER id_id
15003   CHARACTER*80 emess
15004   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15005     WRITE(emess,*)'nl_set_auxhist6_interval_m: Out of range domain number: ',id_id
15006     CALL wrf_error_fatal(emess)
15007   ENDIF
15008   model_config_rec%auxhist6_interval_m(id_id) = auxhist6_interval_m
15009   RETURN
15010 END SUBROUTINE nl_set_auxhist6_interval_m
15011 SUBROUTINE nl_set_auxhist6_interval_s ( id_id , auxhist6_interval_s )
15012   integer , INTENT(IN) :: auxhist6_interval_s
15013   INTEGER id_id
15014   CHARACTER*80 emess
15015   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15016     WRITE(emess,*)'nl_set_auxhist6_interval_s: Out of range domain number: ',id_id
15017     CALL wrf_error_fatal(emess)
15018   ENDIF
15019   model_config_rec%auxhist6_interval_s(id_id) = auxhist6_interval_s
15020   RETURN
15021 END SUBROUTINE nl_set_auxhist6_interval_s
15022 SUBROUTINE nl_set_auxhist6_interval ( id_id , auxhist6_interval )
15023   integer , INTENT(IN) :: auxhist6_interval
15024   INTEGER id_id
15025   CHARACTER*80 emess
15026   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15027     WRITE(emess,*)'nl_set_auxhist6_interval: Out of range domain number: ',id_id
15028     CALL wrf_error_fatal(emess)
15029   ENDIF
15030   model_config_rec%auxhist6_interval(id_id) = auxhist6_interval
15031   RETURN
15032 END SUBROUTINE nl_set_auxhist6_interval
15033 SUBROUTINE nl_set_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
15034   integer , INTENT(IN) :: auxhist7_interval_mo
15035   INTEGER id_id
15036   CHARACTER*80 emess
15037   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15038     WRITE(emess,*)'nl_set_auxhist7_interval_mo: Out of range domain number: ',id_id
15039     CALL wrf_error_fatal(emess)
15040   ENDIF
15041   model_config_rec%auxhist7_interval_mo(id_id) = auxhist7_interval_mo
15042   RETURN
15043 END SUBROUTINE nl_set_auxhist7_interval_mo
15044 SUBROUTINE nl_set_auxhist7_interval_d ( id_id , auxhist7_interval_d )
15045   integer , INTENT(IN) :: auxhist7_interval_d
15046   INTEGER id_id
15047   CHARACTER*80 emess
15048   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15049     WRITE(emess,*)'nl_set_auxhist7_interval_d: Out of range domain number: ',id_id
15050     CALL wrf_error_fatal(emess)
15051   ENDIF
15052   model_config_rec%auxhist7_interval_d(id_id) = auxhist7_interval_d
15053   RETURN
15054 END SUBROUTINE nl_set_auxhist7_interval_d
15055 SUBROUTINE nl_set_auxhist7_interval_h ( id_id , auxhist7_interval_h )
15056   integer , INTENT(IN) :: auxhist7_interval_h
15057   INTEGER id_id
15058   CHARACTER*80 emess
15059   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15060     WRITE(emess,*)'nl_set_auxhist7_interval_h: Out of range domain number: ',id_id
15061     CALL wrf_error_fatal(emess)
15062   ENDIF
15063   model_config_rec%auxhist7_interval_h(id_id) = auxhist7_interval_h
15064   RETURN
15065 END SUBROUTINE nl_set_auxhist7_interval_h
15066 SUBROUTINE nl_set_auxhist7_interval_m ( id_id , auxhist7_interval_m )
15067   integer , INTENT(IN) :: auxhist7_interval_m
15068   INTEGER id_id
15069   CHARACTER*80 emess
15070   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15071     WRITE(emess,*)'nl_set_auxhist7_interval_m: Out of range domain number: ',id_id
15072     CALL wrf_error_fatal(emess)
15073   ENDIF
15074   model_config_rec%auxhist7_interval_m(id_id) = auxhist7_interval_m
15075   RETURN
15076 END SUBROUTINE nl_set_auxhist7_interval_m
15077 SUBROUTINE nl_set_auxhist7_interval_s ( id_id , auxhist7_interval_s )
15078   integer , INTENT(IN) :: auxhist7_interval_s
15079   INTEGER id_id
15080   CHARACTER*80 emess
15081   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15082     WRITE(emess,*)'nl_set_auxhist7_interval_s: Out of range domain number: ',id_id
15083     CALL wrf_error_fatal(emess)
15084   ENDIF
15085   model_config_rec%auxhist7_interval_s(id_id) = auxhist7_interval_s
15086   RETURN
15087 END SUBROUTINE nl_set_auxhist7_interval_s
15088 SUBROUTINE nl_set_auxhist7_interval ( id_id , auxhist7_interval )
15089   integer , INTENT(IN) :: auxhist7_interval
15090   INTEGER id_id
15091   CHARACTER*80 emess
15092   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15093     WRITE(emess,*)'nl_set_auxhist7_interval: Out of range domain number: ',id_id
15094     CALL wrf_error_fatal(emess)
15095   ENDIF
15096   model_config_rec%auxhist7_interval(id_id) = auxhist7_interval
15097   RETURN
15098 END SUBROUTINE nl_set_auxhist7_interval
15099 SUBROUTINE nl_set_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
15100   integer , INTENT(IN) :: auxhist8_interval_mo
15101   INTEGER id_id
15102   CHARACTER*80 emess
15103   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15104     WRITE(emess,*)'nl_set_auxhist8_interval_mo: Out of range domain number: ',id_id
15105     CALL wrf_error_fatal(emess)
15106   ENDIF
15107   model_config_rec%auxhist8_interval_mo(id_id) = auxhist8_interval_mo
15108   RETURN
15109 END SUBROUTINE nl_set_auxhist8_interval_mo
15110 SUBROUTINE nl_set_auxhist8_interval_d ( id_id , auxhist8_interval_d )
15111   integer , INTENT(IN) :: auxhist8_interval_d
15112   INTEGER id_id
15113   CHARACTER*80 emess
15114   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15115     WRITE(emess,*)'nl_set_auxhist8_interval_d: Out of range domain number: ',id_id
15116     CALL wrf_error_fatal(emess)
15117   ENDIF
15118   model_config_rec%auxhist8_interval_d(id_id) = auxhist8_interval_d
15119   RETURN
15120 END SUBROUTINE nl_set_auxhist8_interval_d
15121 SUBROUTINE nl_set_auxhist8_interval_h ( id_id , auxhist8_interval_h )
15122   integer , INTENT(IN) :: auxhist8_interval_h
15123   INTEGER id_id
15124   CHARACTER*80 emess
15125   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15126     WRITE(emess,*)'nl_set_auxhist8_interval_h: Out of range domain number: ',id_id
15127     CALL wrf_error_fatal(emess)
15128   ENDIF
15129   model_config_rec%auxhist8_interval_h(id_id) = auxhist8_interval_h
15130   RETURN
15131 END SUBROUTINE nl_set_auxhist8_interval_h
15132 SUBROUTINE nl_set_auxhist8_interval_m ( id_id , auxhist8_interval_m )
15133   integer , INTENT(IN) :: auxhist8_interval_m
15134   INTEGER id_id
15135   CHARACTER*80 emess
15136   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15137     WRITE(emess,*)'nl_set_auxhist8_interval_m: Out of range domain number: ',id_id
15138     CALL wrf_error_fatal(emess)
15139   ENDIF
15140   model_config_rec%auxhist8_interval_m(id_id) = auxhist8_interval_m
15141   RETURN
15142 END SUBROUTINE nl_set_auxhist8_interval_m
15143 SUBROUTINE nl_set_auxhist8_interval_s ( id_id , auxhist8_interval_s )
15144   integer , INTENT(IN) :: auxhist8_interval_s
15145   INTEGER id_id
15146   CHARACTER*80 emess
15147   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15148     WRITE(emess,*)'nl_set_auxhist8_interval_s: Out of range domain number: ',id_id
15149     CALL wrf_error_fatal(emess)
15150   ENDIF
15151   model_config_rec%auxhist8_interval_s(id_id) = auxhist8_interval_s
15152   RETURN
15153 END SUBROUTINE nl_set_auxhist8_interval_s
15154 SUBROUTINE nl_set_auxhist8_interval ( id_id , auxhist8_interval )
15155   integer , INTENT(IN) :: auxhist8_interval
15156   INTEGER id_id
15157   CHARACTER*80 emess
15158   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15159     WRITE(emess,*)'nl_set_auxhist8_interval: Out of range domain number: ',id_id
15160     CALL wrf_error_fatal(emess)
15161   ENDIF
15162   model_config_rec%auxhist8_interval(id_id) = auxhist8_interval
15163   RETURN
15164 END SUBROUTINE nl_set_auxhist8_interval
15165 SUBROUTINE nl_set_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
15166   integer , INTENT(IN) :: auxhist9_interval_mo
15167   INTEGER id_id
15168   CHARACTER*80 emess
15169   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15170     WRITE(emess,*)'nl_set_auxhist9_interval_mo: Out of range domain number: ',id_id
15171     CALL wrf_error_fatal(emess)
15172   ENDIF
15173   model_config_rec%auxhist9_interval_mo(id_id) = auxhist9_interval_mo
15174   RETURN
15175 END SUBROUTINE nl_set_auxhist9_interval_mo
15176 SUBROUTINE nl_set_auxhist9_interval_d ( id_id , auxhist9_interval_d )
15177   integer , INTENT(IN) :: auxhist9_interval_d
15178   INTEGER id_id
15179   CHARACTER*80 emess
15180   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15181     WRITE(emess,*)'nl_set_auxhist9_interval_d: Out of range domain number: ',id_id
15182     CALL wrf_error_fatal(emess)
15183   ENDIF
15184   model_config_rec%auxhist9_interval_d(id_id) = auxhist9_interval_d
15185   RETURN
15186 END SUBROUTINE nl_set_auxhist9_interval_d
15187 SUBROUTINE nl_set_auxhist9_interval_h ( id_id , auxhist9_interval_h )
15188   integer , INTENT(IN) :: auxhist9_interval_h
15189   INTEGER id_id
15190   CHARACTER*80 emess
15191   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15192     WRITE(emess,*)'nl_set_auxhist9_interval_h: Out of range domain number: ',id_id
15193     CALL wrf_error_fatal(emess)
15194   ENDIF
15195   model_config_rec%auxhist9_interval_h(id_id) = auxhist9_interval_h
15196   RETURN
15197 END SUBROUTINE nl_set_auxhist9_interval_h
15198 SUBROUTINE nl_set_auxhist9_interval_m ( id_id , auxhist9_interval_m )
15199   integer , INTENT(IN) :: auxhist9_interval_m
15200   INTEGER id_id
15201   CHARACTER*80 emess
15202   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15203     WRITE(emess,*)'nl_set_auxhist9_interval_m: Out of range domain number: ',id_id
15204     CALL wrf_error_fatal(emess)
15205   ENDIF
15206   model_config_rec%auxhist9_interval_m(id_id) = auxhist9_interval_m
15207   RETURN
15208 END SUBROUTINE nl_set_auxhist9_interval_m
15209 SUBROUTINE nl_set_auxhist9_interval_s ( id_id , auxhist9_interval_s )
15210   integer , INTENT(IN) :: auxhist9_interval_s
15211   INTEGER id_id
15212   CHARACTER*80 emess
15213   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15214     WRITE(emess,*)'nl_set_auxhist9_interval_s: Out of range domain number: ',id_id
15215     CALL wrf_error_fatal(emess)
15216   ENDIF
15217   model_config_rec%auxhist9_interval_s(id_id) = auxhist9_interval_s
15218   RETURN
15219 END SUBROUTINE nl_set_auxhist9_interval_s
15220 SUBROUTINE nl_set_auxhist9_interval ( id_id , auxhist9_interval )
15221   integer , INTENT(IN) :: auxhist9_interval
15222   INTEGER id_id
15223   CHARACTER*80 emess
15224   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15225     WRITE(emess,*)'nl_set_auxhist9_interval: Out of range domain number: ',id_id
15226     CALL wrf_error_fatal(emess)
15227   ENDIF
15228   model_config_rec%auxhist9_interval(id_id) = auxhist9_interval
15229   RETURN
15230 END SUBROUTINE nl_set_auxhist9_interval
15231 SUBROUTINE nl_set_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
15232   integer , INTENT(IN) :: auxhist10_interval_mo
15233   INTEGER id_id
15234   CHARACTER*80 emess
15235   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15236     WRITE(emess,*)'nl_set_auxhist10_interval_mo: Out of range domain number: ',id_id
15237     CALL wrf_error_fatal(emess)
15238   ENDIF
15239   model_config_rec%auxhist10_interval_mo(id_id) = auxhist10_interval_mo
15240   RETURN
15241 END SUBROUTINE nl_set_auxhist10_interval_mo
15242 SUBROUTINE nl_set_auxhist10_interval_d ( id_id , auxhist10_interval_d )
15243   integer , INTENT(IN) :: auxhist10_interval_d
15244   INTEGER id_id
15245   CHARACTER*80 emess
15246   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15247     WRITE(emess,*)'nl_set_auxhist10_interval_d: Out of range domain number: ',id_id
15248     CALL wrf_error_fatal(emess)
15249   ENDIF
15250   model_config_rec%auxhist10_interval_d(id_id) = auxhist10_interval_d
15251   RETURN
15252 END SUBROUTINE nl_set_auxhist10_interval_d
15253 SUBROUTINE nl_set_auxhist10_interval_h ( id_id , auxhist10_interval_h )
15254   integer , INTENT(IN) :: auxhist10_interval_h
15255   INTEGER id_id
15256   CHARACTER*80 emess
15257   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15258     WRITE(emess,*)'nl_set_auxhist10_interval_h: Out of range domain number: ',id_id
15259     CALL wrf_error_fatal(emess)
15260   ENDIF
15261   model_config_rec%auxhist10_interval_h(id_id) = auxhist10_interval_h
15262   RETURN
15263 END SUBROUTINE nl_set_auxhist10_interval_h
15264 SUBROUTINE nl_set_auxhist10_interval_m ( id_id , auxhist10_interval_m )
15265   integer , INTENT(IN) :: auxhist10_interval_m
15266   INTEGER id_id
15267   CHARACTER*80 emess
15268   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15269     WRITE(emess,*)'nl_set_auxhist10_interval_m: Out of range domain number: ',id_id
15270     CALL wrf_error_fatal(emess)
15271   ENDIF
15272   model_config_rec%auxhist10_interval_m(id_id) = auxhist10_interval_m
15273   RETURN
15274 END SUBROUTINE nl_set_auxhist10_interval_m
15275 SUBROUTINE nl_set_auxhist10_interval_s ( id_id , auxhist10_interval_s )
15276   integer , INTENT(IN) :: auxhist10_interval_s
15277   INTEGER id_id
15278   CHARACTER*80 emess
15279   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15280     WRITE(emess,*)'nl_set_auxhist10_interval_s: Out of range domain number: ',id_id
15281     CALL wrf_error_fatal(emess)
15282   ENDIF
15283   model_config_rec%auxhist10_interval_s(id_id) = auxhist10_interval_s
15284   RETURN
15285 END SUBROUTINE nl_set_auxhist10_interval_s
15286 SUBROUTINE nl_set_auxhist10_interval ( id_id , auxhist10_interval )
15287   integer , INTENT(IN) :: auxhist10_interval
15288   INTEGER id_id
15289   CHARACTER*80 emess
15290   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15291     WRITE(emess,*)'nl_set_auxhist10_interval: Out of range domain number: ',id_id
15292     CALL wrf_error_fatal(emess)
15293   ENDIF
15294   model_config_rec%auxhist10_interval(id_id) = auxhist10_interval
15295   RETURN
15296 END SUBROUTINE nl_set_auxhist10_interval
15297 SUBROUTINE nl_set_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
15298   integer , INTENT(IN) :: auxhist11_interval_mo
15299   INTEGER id_id
15300   CHARACTER*80 emess
15301   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15302     WRITE(emess,*)'nl_set_auxhist11_interval_mo: Out of range domain number: ',id_id
15303     CALL wrf_error_fatal(emess)
15304   ENDIF
15305   model_config_rec%auxhist11_interval_mo(id_id) = auxhist11_interval_mo
15306   RETURN
15307 END SUBROUTINE nl_set_auxhist11_interval_mo
15308 SUBROUTINE nl_set_auxhist11_interval_d ( id_id , auxhist11_interval_d )
15309   integer , INTENT(IN) :: auxhist11_interval_d
15310   INTEGER id_id
15311   CHARACTER*80 emess
15312   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15313     WRITE(emess,*)'nl_set_auxhist11_interval_d: Out of range domain number: ',id_id
15314     CALL wrf_error_fatal(emess)
15315   ENDIF
15316   model_config_rec%auxhist11_interval_d(id_id) = auxhist11_interval_d
15317   RETURN
15318 END SUBROUTINE nl_set_auxhist11_interval_d
15319 SUBROUTINE nl_set_auxhist11_interval_h ( id_id , auxhist11_interval_h )
15320   integer , INTENT(IN) :: auxhist11_interval_h
15321   INTEGER id_id
15322   CHARACTER*80 emess
15323   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15324     WRITE(emess,*)'nl_set_auxhist11_interval_h: Out of range domain number: ',id_id
15325     CALL wrf_error_fatal(emess)
15326   ENDIF
15327   model_config_rec%auxhist11_interval_h(id_id) = auxhist11_interval_h
15328   RETURN
15329 END SUBROUTINE nl_set_auxhist11_interval_h
15330 SUBROUTINE nl_set_auxhist11_interval_m ( id_id , auxhist11_interval_m )
15331   integer , INTENT(IN) :: auxhist11_interval_m
15332   INTEGER id_id
15333   CHARACTER*80 emess
15334   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15335     WRITE(emess,*)'nl_set_auxhist11_interval_m: Out of range domain number: ',id_id
15336     CALL wrf_error_fatal(emess)
15337   ENDIF
15338   model_config_rec%auxhist11_interval_m(id_id) = auxhist11_interval_m
15339   RETURN
15340 END SUBROUTINE nl_set_auxhist11_interval_m
15341 SUBROUTINE nl_set_auxhist11_interval_s ( id_id , auxhist11_interval_s )
15342   integer , INTENT(IN) :: auxhist11_interval_s
15343   INTEGER id_id
15344   CHARACTER*80 emess
15345   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15346     WRITE(emess,*)'nl_set_auxhist11_interval_s: Out of range domain number: ',id_id
15347     CALL wrf_error_fatal(emess)
15348   ENDIF
15349   model_config_rec%auxhist11_interval_s(id_id) = auxhist11_interval_s
15350   RETURN
15351 END SUBROUTINE nl_set_auxhist11_interval_s
15352 SUBROUTINE nl_set_auxhist11_interval ( id_id , auxhist11_interval )
15353   integer , INTENT(IN) :: auxhist11_interval
15354   INTEGER id_id
15355   CHARACTER*80 emess
15356   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15357     WRITE(emess,*)'nl_set_auxhist11_interval: Out of range domain number: ',id_id
15358     CALL wrf_error_fatal(emess)
15359   ENDIF
15360   model_config_rec%auxhist11_interval(id_id) = auxhist11_interval
15361   RETURN
15362 END SUBROUTINE nl_set_auxhist11_interval
15363 SUBROUTINE nl_set_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
15364   integer , INTENT(IN) :: auxinput1_interval_mo
15365   INTEGER id_id
15366   CHARACTER*80 emess
15367   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15368     WRITE(emess,*)'nl_set_auxinput1_interval_mo: Out of range domain number: ',id_id
15369     CALL wrf_error_fatal(emess)
15370   ENDIF
15371   model_config_rec%auxinput1_interval_mo(id_id) = auxinput1_interval_mo
15372   RETURN
15373 END SUBROUTINE nl_set_auxinput1_interval_mo
15374 SUBROUTINE nl_set_auxinput1_interval_d ( id_id , auxinput1_interval_d )
15375   integer , INTENT(IN) :: auxinput1_interval_d
15376   INTEGER id_id
15377   CHARACTER*80 emess
15378   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15379     WRITE(emess,*)'nl_set_auxinput1_interval_d: Out of range domain number: ',id_id
15380     CALL wrf_error_fatal(emess)
15381   ENDIF
15382   model_config_rec%auxinput1_interval_d(id_id) = auxinput1_interval_d
15383   RETURN
15384 END SUBROUTINE nl_set_auxinput1_interval_d
15385 SUBROUTINE nl_set_auxinput1_interval_h ( id_id , auxinput1_interval_h )
15386   integer , INTENT(IN) :: auxinput1_interval_h
15387   INTEGER id_id
15388   CHARACTER*80 emess
15389   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15390     WRITE(emess,*)'nl_set_auxinput1_interval_h: Out of range domain number: ',id_id
15391     CALL wrf_error_fatal(emess)
15392   ENDIF
15393   model_config_rec%auxinput1_interval_h(id_id) = auxinput1_interval_h
15394   RETURN
15395 END SUBROUTINE nl_set_auxinput1_interval_h
15396 SUBROUTINE nl_set_auxinput1_interval_m ( id_id , auxinput1_interval_m )
15397   integer , INTENT(IN) :: auxinput1_interval_m
15398   INTEGER id_id
15399   CHARACTER*80 emess
15400   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15401     WRITE(emess,*)'nl_set_auxinput1_interval_m: Out of range domain number: ',id_id
15402     CALL wrf_error_fatal(emess)
15403   ENDIF
15404   model_config_rec%auxinput1_interval_m(id_id) = auxinput1_interval_m
15405   RETURN
15406 END SUBROUTINE nl_set_auxinput1_interval_m
15407 SUBROUTINE nl_set_auxinput1_interval_s ( id_id , auxinput1_interval_s )
15408   integer , INTENT(IN) :: auxinput1_interval_s
15409   INTEGER id_id
15410   CHARACTER*80 emess
15411   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15412     WRITE(emess,*)'nl_set_auxinput1_interval_s: Out of range domain number: ',id_id
15413     CALL wrf_error_fatal(emess)
15414   ENDIF
15415   model_config_rec%auxinput1_interval_s(id_id) = auxinput1_interval_s
15416   RETURN
15417 END SUBROUTINE nl_set_auxinput1_interval_s
15418 SUBROUTINE nl_set_auxinput1_interval ( id_id , auxinput1_interval )
15419   integer , INTENT(IN) :: auxinput1_interval
15420   INTEGER id_id
15421   CHARACTER*80 emess
15422   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15423     WRITE(emess,*)'nl_set_auxinput1_interval: Out of range domain number: ',id_id
15424     CALL wrf_error_fatal(emess)
15425   ENDIF
15426   model_config_rec%auxinput1_interval(id_id) = auxinput1_interval
15427   RETURN
15428 END SUBROUTINE nl_set_auxinput1_interval
15429 SUBROUTINE nl_set_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
15430   integer , INTENT(IN) :: auxinput2_interval_mo
15431   INTEGER id_id
15432   CHARACTER*80 emess
15433   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15434     WRITE(emess,*)'nl_set_auxinput2_interval_mo: Out of range domain number: ',id_id
15435     CALL wrf_error_fatal(emess)
15436   ENDIF
15437   model_config_rec%auxinput2_interval_mo(id_id) = auxinput2_interval_mo
15438   RETURN
15439 END SUBROUTINE nl_set_auxinput2_interval_mo
15440 SUBROUTINE nl_set_auxinput2_interval_d ( id_id , auxinput2_interval_d )
15441   integer , INTENT(IN) :: auxinput2_interval_d
15442   INTEGER id_id
15443   CHARACTER*80 emess
15444   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15445     WRITE(emess,*)'nl_set_auxinput2_interval_d: Out of range domain number: ',id_id
15446     CALL wrf_error_fatal(emess)
15447   ENDIF
15448   model_config_rec%auxinput2_interval_d(id_id) = auxinput2_interval_d
15449   RETURN
15450 END SUBROUTINE nl_set_auxinput2_interval_d
15451 SUBROUTINE nl_set_auxinput2_interval_h ( id_id , auxinput2_interval_h )
15452   integer , INTENT(IN) :: auxinput2_interval_h
15453   INTEGER id_id
15454   CHARACTER*80 emess
15455   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15456     WRITE(emess,*)'nl_set_auxinput2_interval_h: Out of range domain number: ',id_id
15457     CALL wrf_error_fatal(emess)
15458   ENDIF
15459   model_config_rec%auxinput2_interval_h(id_id) = auxinput2_interval_h
15460   RETURN
15461 END SUBROUTINE nl_set_auxinput2_interval_h
15462 SUBROUTINE nl_set_auxinput2_interval_m ( id_id , auxinput2_interval_m )
15463   integer , INTENT(IN) :: auxinput2_interval_m
15464   INTEGER id_id
15465   CHARACTER*80 emess
15466   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15467     WRITE(emess,*)'nl_set_auxinput2_interval_m: Out of range domain number: ',id_id
15468     CALL wrf_error_fatal(emess)
15469   ENDIF
15470   model_config_rec%auxinput2_interval_m(id_id) = auxinput2_interval_m
15471   RETURN
15472 END SUBROUTINE nl_set_auxinput2_interval_m
15473 SUBROUTINE nl_set_auxinput2_interval_s ( id_id , auxinput2_interval_s )
15474   integer , INTENT(IN) :: auxinput2_interval_s
15475   INTEGER id_id
15476   CHARACTER*80 emess
15477   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15478     WRITE(emess,*)'nl_set_auxinput2_interval_s: Out of range domain number: ',id_id
15479     CALL wrf_error_fatal(emess)
15480   ENDIF
15481   model_config_rec%auxinput2_interval_s(id_id) = auxinput2_interval_s
15482   RETURN
15483 END SUBROUTINE nl_set_auxinput2_interval_s
15484 SUBROUTINE nl_set_auxinput2_interval ( id_id , auxinput2_interval )
15485   integer , INTENT(IN) :: auxinput2_interval
15486   INTEGER id_id
15487   CHARACTER*80 emess
15488   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15489     WRITE(emess,*)'nl_set_auxinput2_interval: Out of range domain number: ',id_id
15490     CALL wrf_error_fatal(emess)
15491   ENDIF
15492   model_config_rec%auxinput2_interval(id_id) = auxinput2_interval
15493   RETURN
15494 END SUBROUTINE nl_set_auxinput2_interval
15495 SUBROUTINE nl_set_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
15496   integer , INTENT(IN) :: auxinput3_interval_mo
15497   INTEGER id_id
15498   CHARACTER*80 emess
15499   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15500     WRITE(emess,*)'nl_set_auxinput3_interval_mo: Out of range domain number: ',id_id
15501     CALL wrf_error_fatal(emess)
15502   ENDIF
15503   model_config_rec%auxinput3_interval_mo(id_id) = auxinput3_interval_mo
15504   RETURN
15505 END SUBROUTINE nl_set_auxinput3_interval_mo
15506 SUBROUTINE nl_set_auxinput3_interval_d ( id_id , auxinput3_interval_d )
15507   integer , INTENT(IN) :: auxinput3_interval_d
15508   INTEGER id_id
15509   CHARACTER*80 emess
15510   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15511     WRITE(emess,*)'nl_set_auxinput3_interval_d: Out of range domain number: ',id_id
15512     CALL wrf_error_fatal(emess)
15513   ENDIF
15514   model_config_rec%auxinput3_interval_d(id_id) = auxinput3_interval_d
15515   RETURN
15516 END SUBROUTINE nl_set_auxinput3_interval_d
15517 SUBROUTINE nl_set_auxinput3_interval_h ( id_id , auxinput3_interval_h )
15518   integer , INTENT(IN) :: auxinput3_interval_h
15519   INTEGER id_id
15520   CHARACTER*80 emess
15521   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15522     WRITE(emess,*)'nl_set_auxinput3_interval_h: Out of range domain number: ',id_id
15523     CALL wrf_error_fatal(emess)
15524   ENDIF
15525   model_config_rec%auxinput3_interval_h(id_id) = auxinput3_interval_h
15526   RETURN
15527 END SUBROUTINE nl_set_auxinput3_interval_h
15528 SUBROUTINE nl_set_auxinput3_interval_m ( id_id , auxinput3_interval_m )
15529   integer , INTENT(IN) :: auxinput3_interval_m
15530   INTEGER id_id
15531   CHARACTER*80 emess
15532   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15533     WRITE(emess,*)'nl_set_auxinput3_interval_m: Out of range domain number: ',id_id
15534     CALL wrf_error_fatal(emess)
15535   ENDIF
15536   model_config_rec%auxinput3_interval_m(id_id) = auxinput3_interval_m
15537   RETURN
15538 END SUBROUTINE nl_set_auxinput3_interval_m
15539 SUBROUTINE nl_set_auxinput3_interval_s ( id_id , auxinput3_interval_s )
15540   integer , INTENT(IN) :: auxinput3_interval_s
15541   INTEGER id_id
15542   CHARACTER*80 emess
15543   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15544     WRITE(emess,*)'nl_set_auxinput3_interval_s: Out of range domain number: ',id_id
15545     CALL wrf_error_fatal(emess)
15546   ENDIF
15547   model_config_rec%auxinput3_interval_s(id_id) = auxinput3_interval_s
15548   RETURN
15549 END SUBROUTINE nl_set_auxinput3_interval_s
15550 SUBROUTINE nl_set_auxinput3_interval ( id_id , auxinput3_interval )
15551   integer , INTENT(IN) :: auxinput3_interval
15552   INTEGER id_id
15553   CHARACTER*80 emess
15554   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15555     WRITE(emess,*)'nl_set_auxinput3_interval: Out of range domain number: ',id_id
15556     CALL wrf_error_fatal(emess)
15557   ENDIF
15558   model_config_rec%auxinput3_interval(id_id) = auxinput3_interval
15559   RETURN
15560 END SUBROUTINE nl_set_auxinput3_interval
15561 SUBROUTINE nl_set_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
15562   integer , INTENT(IN) :: auxinput4_interval_mo
15563   INTEGER id_id
15564   CHARACTER*80 emess
15565   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15566     WRITE(emess,*)'nl_set_auxinput4_interval_mo: Out of range domain number: ',id_id
15567     CALL wrf_error_fatal(emess)
15568   ENDIF
15569   model_config_rec%auxinput4_interval_mo(id_id) = auxinput4_interval_mo
15570   RETURN
15571 END SUBROUTINE nl_set_auxinput4_interval_mo
15572 SUBROUTINE nl_set_auxinput4_interval_d ( id_id , auxinput4_interval_d )
15573   integer , INTENT(IN) :: auxinput4_interval_d
15574   INTEGER id_id
15575   CHARACTER*80 emess
15576   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15577     WRITE(emess,*)'nl_set_auxinput4_interval_d: Out of range domain number: ',id_id
15578     CALL wrf_error_fatal(emess)
15579   ENDIF
15580   model_config_rec%auxinput4_interval_d(id_id) = auxinput4_interval_d
15581   RETURN
15582 END SUBROUTINE nl_set_auxinput4_interval_d
15583 SUBROUTINE nl_set_auxinput4_interval_h ( id_id , auxinput4_interval_h )
15584   integer , INTENT(IN) :: auxinput4_interval_h
15585   INTEGER id_id
15586   CHARACTER*80 emess
15587   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15588     WRITE(emess,*)'nl_set_auxinput4_interval_h: Out of range domain number: ',id_id
15589     CALL wrf_error_fatal(emess)
15590   ENDIF
15591   model_config_rec%auxinput4_interval_h(id_id) = auxinput4_interval_h
15592   RETURN
15593 END SUBROUTINE nl_set_auxinput4_interval_h
15594 SUBROUTINE nl_set_auxinput4_interval_m ( id_id , auxinput4_interval_m )
15595   integer , INTENT(IN) :: auxinput4_interval_m
15596   INTEGER id_id
15597   CHARACTER*80 emess
15598   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15599     WRITE(emess,*)'nl_set_auxinput4_interval_m: Out of range domain number: ',id_id
15600     CALL wrf_error_fatal(emess)
15601   ENDIF
15602   model_config_rec%auxinput4_interval_m(id_id) = auxinput4_interval_m
15603   RETURN
15604 END SUBROUTINE nl_set_auxinput4_interval_m
15605 SUBROUTINE nl_set_auxinput4_interval_s ( id_id , auxinput4_interval_s )
15606   integer , INTENT(IN) :: auxinput4_interval_s
15607   INTEGER id_id
15608   CHARACTER*80 emess
15609   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15610     WRITE(emess,*)'nl_set_auxinput4_interval_s: Out of range domain number: ',id_id
15611     CALL wrf_error_fatal(emess)
15612   ENDIF
15613   model_config_rec%auxinput4_interval_s(id_id) = auxinput4_interval_s
15614   RETURN
15615 END SUBROUTINE nl_set_auxinput4_interval_s
15616 SUBROUTINE nl_set_auxinput4_interval ( id_id , auxinput4_interval )
15617   integer , INTENT(IN) :: auxinput4_interval
15618   INTEGER id_id
15619   CHARACTER*80 emess
15620   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15621     WRITE(emess,*)'nl_set_auxinput4_interval: Out of range domain number: ',id_id
15622     CALL wrf_error_fatal(emess)
15623   ENDIF
15624   model_config_rec%auxinput4_interval(id_id) = auxinput4_interval
15625   RETURN
15626 END SUBROUTINE nl_set_auxinput4_interval
15627 SUBROUTINE nl_set_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
15628   integer , INTENT(IN) :: auxinput5_interval_mo
15629   INTEGER id_id
15630   CHARACTER*80 emess
15631   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15632     WRITE(emess,*)'nl_set_auxinput5_interval_mo: Out of range domain number: ',id_id
15633     CALL wrf_error_fatal(emess)
15634   ENDIF
15635   model_config_rec%auxinput5_interval_mo(id_id) = auxinput5_interval_mo
15636   RETURN
15637 END SUBROUTINE nl_set_auxinput5_interval_mo
15638 SUBROUTINE nl_set_auxinput5_interval_d ( id_id , auxinput5_interval_d )
15639   integer , INTENT(IN) :: auxinput5_interval_d
15640   INTEGER id_id
15641   CHARACTER*80 emess
15642   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15643     WRITE(emess,*)'nl_set_auxinput5_interval_d: Out of range domain number: ',id_id
15644     CALL wrf_error_fatal(emess)
15645   ENDIF
15646   model_config_rec%auxinput5_interval_d(id_id) = auxinput5_interval_d
15647   RETURN
15648 END SUBROUTINE nl_set_auxinput5_interval_d
15649 SUBROUTINE nl_set_auxinput5_interval_h ( id_id , auxinput5_interval_h )
15650   integer , INTENT(IN) :: auxinput5_interval_h
15651   INTEGER id_id
15652   CHARACTER*80 emess
15653   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15654     WRITE(emess,*)'nl_set_auxinput5_interval_h: Out of range domain number: ',id_id
15655     CALL wrf_error_fatal(emess)
15656   ENDIF
15657   model_config_rec%auxinput5_interval_h(id_id) = auxinput5_interval_h
15658   RETURN
15659 END SUBROUTINE nl_set_auxinput5_interval_h
15660 SUBROUTINE nl_set_auxinput5_interval_m ( id_id , auxinput5_interval_m )
15661   integer , INTENT(IN) :: auxinput5_interval_m
15662   INTEGER id_id
15663   CHARACTER*80 emess
15664   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15665     WRITE(emess,*)'nl_set_auxinput5_interval_m: Out of range domain number: ',id_id
15666     CALL wrf_error_fatal(emess)
15667   ENDIF
15668   model_config_rec%auxinput5_interval_m(id_id) = auxinput5_interval_m
15669   RETURN
15670 END SUBROUTINE nl_set_auxinput5_interval_m
15671 SUBROUTINE nl_set_auxinput5_interval_s ( id_id , auxinput5_interval_s )
15672   integer , INTENT(IN) :: auxinput5_interval_s
15673   INTEGER id_id
15674   CHARACTER*80 emess
15675   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15676     WRITE(emess,*)'nl_set_auxinput5_interval_s: Out of range domain number: ',id_id
15677     CALL wrf_error_fatal(emess)
15678   ENDIF
15679   model_config_rec%auxinput5_interval_s(id_id) = auxinput5_interval_s
15680   RETURN
15681 END SUBROUTINE nl_set_auxinput5_interval_s
15682 SUBROUTINE nl_set_auxinput5_interval ( id_id , auxinput5_interval )
15683   integer , INTENT(IN) :: auxinput5_interval
15684   INTEGER id_id
15685   CHARACTER*80 emess
15686   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15687     WRITE(emess,*)'nl_set_auxinput5_interval: Out of range domain number: ',id_id
15688     CALL wrf_error_fatal(emess)
15689   ENDIF
15690   model_config_rec%auxinput5_interval(id_id) = auxinput5_interval
15691   RETURN
15692 END SUBROUTINE nl_set_auxinput5_interval
15693 SUBROUTINE nl_set_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
15694   integer , INTENT(IN) :: auxinput6_interval_mo
15695   INTEGER id_id
15696   CHARACTER*80 emess
15697   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15698     WRITE(emess,*)'nl_set_auxinput6_interval_mo: Out of range domain number: ',id_id
15699     CALL wrf_error_fatal(emess)
15700   ENDIF
15701   model_config_rec%auxinput6_interval_mo(id_id) = auxinput6_interval_mo
15702   RETURN
15703 END SUBROUTINE nl_set_auxinput6_interval_mo
15704 SUBROUTINE nl_set_auxinput6_interval_d ( id_id , auxinput6_interval_d )
15705   integer , INTENT(IN) :: auxinput6_interval_d
15706   INTEGER id_id
15707   CHARACTER*80 emess
15708   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15709     WRITE(emess,*)'nl_set_auxinput6_interval_d: Out of range domain number: ',id_id
15710     CALL wrf_error_fatal(emess)
15711   ENDIF
15712   model_config_rec%auxinput6_interval_d(id_id) = auxinput6_interval_d
15713   RETURN
15714 END SUBROUTINE nl_set_auxinput6_interval_d
15715 SUBROUTINE nl_set_auxinput6_interval_h ( id_id , auxinput6_interval_h )
15716   integer , INTENT(IN) :: auxinput6_interval_h
15717   INTEGER id_id
15718   CHARACTER*80 emess
15719   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15720     WRITE(emess,*)'nl_set_auxinput6_interval_h: Out of range domain number: ',id_id
15721     CALL wrf_error_fatal(emess)
15722   ENDIF
15723   model_config_rec%auxinput6_interval_h(id_id) = auxinput6_interval_h
15724   RETURN
15725 END SUBROUTINE nl_set_auxinput6_interval_h
15726 SUBROUTINE nl_set_auxinput6_interval_m ( id_id , auxinput6_interval_m )
15727   integer , INTENT(IN) :: auxinput6_interval_m
15728   INTEGER id_id
15729   CHARACTER*80 emess
15730   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15731     WRITE(emess,*)'nl_set_auxinput6_interval_m: Out of range domain number: ',id_id
15732     CALL wrf_error_fatal(emess)
15733   ENDIF
15734   model_config_rec%auxinput6_interval_m(id_id) = auxinput6_interval_m
15735   RETURN
15736 END SUBROUTINE nl_set_auxinput6_interval_m
15737 SUBROUTINE nl_set_auxinput6_interval_s ( id_id , auxinput6_interval_s )
15738   integer , INTENT(IN) :: auxinput6_interval_s
15739   INTEGER id_id
15740   CHARACTER*80 emess
15741   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15742     WRITE(emess,*)'nl_set_auxinput6_interval_s: Out of range domain number: ',id_id
15743     CALL wrf_error_fatal(emess)
15744   ENDIF
15745   model_config_rec%auxinput6_interval_s(id_id) = auxinput6_interval_s
15746   RETURN
15747 END SUBROUTINE nl_set_auxinput6_interval_s
15748 SUBROUTINE nl_set_auxinput6_interval ( id_id , auxinput6_interval )
15749   integer , INTENT(IN) :: auxinput6_interval
15750   INTEGER id_id
15751   CHARACTER*80 emess
15752   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15753     WRITE(emess,*)'nl_set_auxinput6_interval: Out of range domain number: ',id_id
15754     CALL wrf_error_fatal(emess)
15755   ENDIF
15756   model_config_rec%auxinput6_interval(id_id) = auxinput6_interval
15757   RETURN
15758 END SUBROUTINE nl_set_auxinput6_interval
15759 SUBROUTINE nl_set_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
15760   integer , INTENT(IN) :: auxinput7_interval_mo
15761   INTEGER id_id
15762   CHARACTER*80 emess
15763   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15764     WRITE(emess,*)'nl_set_auxinput7_interval_mo: Out of range domain number: ',id_id
15765     CALL wrf_error_fatal(emess)
15766   ENDIF
15767   model_config_rec%auxinput7_interval_mo(id_id) = auxinput7_interval_mo
15768   RETURN
15769 END SUBROUTINE nl_set_auxinput7_interval_mo
15770 SUBROUTINE nl_set_auxinput7_interval_d ( id_id , auxinput7_interval_d )
15771   integer , INTENT(IN) :: auxinput7_interval_d
15772   INTEGER id_id
15773   CHARACTER*80 emess
15774   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15775     WRITE(emess,*)'nl_set_auxinput7_interval_d: Out of range domain number: ',id_id
15776     CALL wrf_error_fatal(emess)
15777   ENDIF
15778   model_config_rec%auxinput7_interval_d(id_id) = auxinput7_interval_d
15779   RETURN
15780 END SUBROUTINE nl_set_auxinput7_interval_d
15781 SUBROUTINE nl_set_auxinput7_interval_h ( id_id , auxinput7_interval_h )
15782   integer , INTENT(IN) :: auxinput7_interval_h
15783   INTEGER id_id
15784   CHARACTER*80 emess
15785   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15786     WRITE(emess,*)'nl_set_auxinput7_interval_h: Out of range domain number: ',id_id
15787     CALL wrf_error_fatal(emess)
15788   ENDIF
15789   model_config_rec%auxinput7_interval_h(id_id) = auxinput7_interval_h
15790   RETURN
15791 END SUBROUTINE nl_set_auxinput7_interval_h
15792 SUBROUTINE nl_set_auxinput7_interval_m ( id_id , auxinput7_interval_m )
15793   integer , INTENT(IN) :: auxinput7_interval_m
15794   INTEGER id_id
15795   CHARACTER*80 emess
15796   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15797     WRITE(emess,*)'nl_set_auxinput7_interval_m: Out of range domain number: ',id_id
15798     CALL wrf_error_fatal(emess)
15799   ENDIF
15800   model_config_rec%auxinput7_interval_m(id_id) = auxinput7_interval_m
15801   RETURN
15802 END SUBROUTINE nl_set_auxinput7_interval_m
15803 SUBROUTINE nl_set_auxinput7_interval_s ( id_id , auxinput7_interval_s )
15804   integer , INTENT(IN) :: auxinput7_interval_s
15805   INTEGER id_id
15806   CHARACTER*80 emess
15807   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15808     WRITE(emess,*)'nl_set_auxinput7_interval_s: Out of range domain number: ',id_id
15809     CALL wrf_error_fatal(emess)
15810   ENDIF
15811   model_config_rec%auxinput7_interval_s(id_id) = auxinput7_interval_s
15812   RETURN
15813 END SUBROUTINE nl_set_auxinput7_interval_s
15814 SUBROUTINE nl_set_auxinput7_interval ( id_id , auxinput7_interval )
15815   integer , INTENT(IN) :: auxinput7_interval
15816   INTEGER id_id
15817   CHARACTER*80 emess
15818   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15819     WRITE(emess,*)'nl_set_auxinput7_interval: Out of range domain number: ',id_id
15820     CALL wrf_error_fatal(emess)
15821   ENDIF
15822   model_config_rec%auxinput7_interval(id_id) = auxinput7_interval
15823   RETURN
15824 END SUBROUTINE nl_set_auxinput7_interval
15825 SUBROUTINE nl_set_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
15826   integer , INTENT(IN) :: auxinput8_interval_mo
15827   INTEGER id_id
15828   CHARACTER*80 emess
15829   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15830     WRITE(emess,*)'nl_set_auxinput8_interval_mo: Out of range domain number: ',id_id
15831     CALL wrf_error_fatal(emess)
15832   ENDIF
15833   model_config_rec%auxinput8_interval_mo(id_id) = auxinput8_interval_mo
15834   RETURN
15835 END SUBROUTINE nl_set_auxinput8_interval_mo
15836 SUBROUTINE nl_set_auxinput8_interval_d ( id_id , auxinput8_interval_d )
15837   integer , INTENT(IN) :: auxinput8_interval_d
15838   INTEGER id_id
15839   CHARACTER*80 emess
15840   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15841     WRITE(emess,*)'nl_set_auxinput8_interval_d: Out of range domain number: ',id_id
15842     CALL wrf_error_fatal(emess)
15843   ENDIF
15844   model_config_rec%auxinput8_interval_d(id_id) = auxinput8_interval_d
15845   RETURN
15846 END SUBROUTINE nl_set_auxinput8_interval_d
15847 SUBROUTINE nl_set_auxinput8_interval_h ( id_id , auxinput8_interval_h )
15848   integer , INTENT(IN) :: auxinput8_interval_h
15849   INTEGER id_id
15850   CHARACTER*80 emess
15851   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15852     WRITE(emess,*)'nl_set_auxinput8_interval_h: Out of range domain number: ',id_id
15853     CALL wrf_error_fatal(emess)
15854   ENDIF
15855   model_config_rec%auxinput8_interval_h(id_id) = auxinput8_interval_h
15856   RETURN
15857 END SUBROUTINE nl_set_auxinput8_interval_h
15858 SUBROUTINE nl_set_auxinput8_interval_m ( id_id , auxinput8_interval_m )
15859   integer , INTENT(IN) :: auxinput8_interval_m
15860   INTEGER id_id
15861   CHARACTER*80 emess
15862   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15863     WRITE(emess,*)'nl_set_auxinput8_interval_m: Out of range domain number: ',id_id
15864     CALL wrf_error_fatal(emess)
15865   ENDIF
15866   model_config_rec%auxinput8_interval_m(id_id) = auxinput8_interval_m
15867   RETURN
15868 END SUBROUTINE nl_set_auxinput8_interval_m
15869 SUBROUTINE nl_set_auxinput8_interval_s ( id_id , auxinput8_interval_s )
15870   integer , INTENT(IN) :: auxinput8_interval_s
15871   INTEGER id_id
15872   CHARACTER*80 emess
15873   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15874     WRITE(emess,*)'nl_set_auxinput8_interval_s: Out of range domain number: ',id_id
15875     CALL wrf_error_fatal(emess)
15876   ENDIF
15877   model_config_rec%auxinput8_interval_s(id_id) = auxinput8_interval_s
15878   RETURN
15879 END SUBROUTINE nl_set_auxinput8_interval_s
15880 SUBROUTINE nl_set_auxinput8_interval ( id_id , auxinput8_interval )
15881   integer , INTENT(IN) :: auxinput8_interval
15882   INTEGER id_id
15883   CHARACTER*80 emess
15884   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15885     WRITE(emess,*)'nl_set_auxinput8_interval: Out of range domain number: ',id_id
15886     CALL wrf_error_fatal(emess)
15887   ENDIF
15888   model_config_rec%auxinput8_interval(id_id) = auxinput8_interval
15889   RETURN
15890 END SUBROUTINE nl_set_auxinput8_interval
15891 SUBROUTINE nl_set_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
15892   integer , INTENT(IN) :: auxinput9_interval_mo
15893   INTEGER id_id
15894   CHARACTER*80 emess
15895   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15896     WRITE(emess,*)'nl_set_auxinput9_interval_mo: Out of range domain number: ',id_id
15897     CALL wrf_error_fatal(emess)
15898   ENDIF
15899   model_config_rec%auxinput9_interval_mo(id_id) = auxinput9_interval_mo
15900   RETURN
15901 END SUBROUTINE nl_set_auxinput9_interval_mo
15902 SUBROUTINE nl_set_auxinput9_interval_d ( id_id , auxinput9_interval_d )
15903   integer , INTENT(IN) :: auxinput9_interval_d
15904   INTEGER id_id
15905   CHARACTER*80 emess
15906   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15907     WRITE(emess,*)'nl_set_auxinput9_interval_d: Out of range domain number: ',id_id
15908     CALL wrf_error_fatal(emess)
15909   ENDIF
15910   model_config_rec%auxinput9_interval_d(id_id) = auxinput9_interval_d
15911   RETURN
15912 END SUBROUTINE nl_set_auxinput9_interval_d
15913 SUBROUTINE nl_set_auxinput9_interval_h ( id_id , auxinput9_interval_h )
15914   integer , INTENT(IN) :: auxinput9_interval_h
15915   INTEGER id_id
15916   CHARACTER*80 emess
15917   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15918     WRITE(emess,*)'nl_set_auxinput9_interval_h: Out of range domain number: ',id_id
15919     CALL wrf_error_fatal(emess)
15920   ENDIF
15921   model_config_rec%auxinput9_interval_h(id_id) = auxinput9_interval_h
15922   RETURN
15923 END SUBROUTINE nl_set_auxinput9_interval_h
15924 SUBROUTINE nl_set_auxinput9_interval_m ( id_id , auxinput9_interval_m )
15925   integer , INTENT(IN) :: auxinput9_interval_m
15926   INTEGER id_id
15927   CHARACTER*80 emess
15928   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15929     WRITE(emess,*)'nl_set_auxinput9_interval_m: Out of range domain number: ',id_id
15930     CALL wrf_error_fatal(emess)
15931   ENDIF
15932   model_config_rec%auxinput9_interval_m(id_id) = auxinput9_interval_m
15933   RETURN
15934 END SUBROUTINE nl_set_auxinput9_interval_m
15935 SUBROUTINE nl_set_auxinput9_interval_s ( id_id , auxinput9_interval_s )
15936   integer , INTENT(IN) :: auxinput9_interval_s
15937   INTEGER id_id
15938   CHARACTER*80 emess
15939   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15940     WRITE(emess,*)'nl_set_auxinput9_interval_s: Out of range domain number: ',id_id
15941     CALL wrf_error_fatal(emess)
15942   ENDIF
15943   model_config_rec%auxinput9_interval_s(id_id) = auxinput9_interval_s
15944   RETURN
15945 END SUBROUTINE nl_set_auxinput9_interval_s
15946 SUBROUTINE nl_set_auxinput9_interval ( id_id , auxinput9_interval )
15947   integer , INTENT(IN) :: auxinput9_interval
15948   INTEGER id_id
15949   CHARACTER*80 emess
15950   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15951     WRITE(emess,*)'nl_set_auxinput9_interval: Out of range domain number: ',id_id
15952     CALL wrf_error_fatal(emess)
15953   ENDIF
15954   model_config_rec%auxinput9_interval(id_id) = auxinput9_interval
15955   RETURN
15956 END SUBROUTINE nl_set_auxinput9_interval
15957 SUBROUTINE nl_set_gfdda_interval_mo ( id_id , gfdda_interval_mo )
15958   integer , INTENT(IN) :: gfdda_interval_mo
15959   INTEGER id_id
15960   CHARACTER*80 emess
15961   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15962     WRITE(emess,*)'nl_set_gfdda_interval_mo: Out of range domain number: ',id_id
15963     CALL wrf_error_fatal(emess)
15964   ENDIF
15965   model_config_rec%gfdda_interval_mo(id_id) = gfdda_interval_mo
15966   RETURN
15967 END SUBROUTINE nl_set_gfdda_interval_mo
15968 SUBROUTINE nl_set_gfdda_interval_d ( id_id , gfdda_interval_d )
15969   integer , INTENT(IN) :: gfdda_interval_d
15970   INTEGER id_id
15971   CHARACTER*80 emess
15972   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15973     WRITE(emess,*)'nl_set_gfdda_interval_d: Out of range domain number: ',id_id
15974     CALL wrf_error_fatal(emess)
15975   ENDIF
15976   model_config_rec%gfdda_interval_d(id_id) = gfdda_interval_d
15977   RETURN
15978 END SUBROUTINE nl_set_gfdda_interval_d
15979 SUBROUTINE nl_set_gfdda_interval_h ( id_id , gfdda_interval_h )
15980   integer , INTENT(IN) :: gfdda_interval_h
15981   INTEGER id_id
15982   CHARACTER*80 emess
15983   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15984     WRITE(emess,*)'nl_set_gfdda_interval_h: Out of range domain number: ',id_id
15985     CALL wrf_error_fatal(emess)
15986   ENDIF
15987   model_config_rec%gfdda_interval_h(id_id) = gfdda_interval_h
15988   RETURN
15989 END SUBROUTINE nl_set_gfdda_interval_h
15990 SUBROUTINE nl_set_gfdda_interval_m ( id_id , gfdda_interval_m )
15991   integer , INTENT(IN) :: gfdda_interval_m
15992   INTEGER id_id
15993   CHARACTER*80 emess
15994   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15995     WRITE(emess,*)'nl_set_gfdda_interval_m: Out of range domain number: ',id_id
15996     CALL wrf_error_fatal(emess)
15997   ENDIF
15998   model_config_rec%gfdda_interval_m(id_id) = gfdda_interval_m
15999   RETURN
16000 END SUBROUTINE nl_set_gfdda_interval_m
16001 SUBROUTINE nl_set_gfdda_interval_s ( id_id , gfdda_interval_s )
16002   integer , INTENT(IN) :: gfdda_interval_s
16003   INTEGER id_id
16004   CHARACTER*80 emess
16005   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16006     WRITE(emess,*)'nl_set_gfdda_interval_s: Out of range domain number: ',id_id
16007     CALL wrf_error_fatal(emess)
16008   ENDIF
16009   model_config_rec%gfdda_interval_s(id_id) = gfdda_interval_s
16010   RETURN
16011 END SUBROUTINE nl_set_gfdda_interval_s
16012 SUBROUTINE nl_set_gfdda_interval ( id_id , gfdda_interval )
16013   integer , INTENT(IN) :: gfdda_interval
16014   INTEGER id_id
16015   CHARACTER*80 emess
16016   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16017     WRITE(emess,*)'nl_set_gfdda_interval: Out of range domain number: ',id_id
16018     CALL wrf_error_fatal(emess)
16019   ENDIF
16020   model_config_rec%gfdda_interval(id_id) = gfdda_interval
16021   RETURN
16022 END SUBROUTINE nl_set_gfdda_interval
16023 SUBROUTINE nl_set_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
16024   integer , INTENT(IN) :: auxinput11_interval_mo
16025   INTEGER id_id
16026   CHARACTER*80 emess
16027   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16028     WRITE(emess,*)'nl_set_auxinput11_interval_mo: Out of range domain number: ',id_id
16029     CALL wrf_error_fatal(emess)
16030   ENDIF
16031   model_config_rec%auxinput11_interval_mo(id_id) = auxinput11_interval_mo
16032   RETURN
16033 END SUBROUTINE nl_set_auxinput11_interval_mo
16034 SUBROUTINE nl_set_auxinput11_interval_d ( id_id , auxinput11_interval_d )
16035   integer , INTENT(IN) :: auxinput11_interval_d
16036   INTEGER id_id
16037   CHARACTER*80 emess
16038   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16039     WRITE(emess,*)'nl_set_auxinput11_interval_d: Out of range domain number: ',id_id
16040     CALL wrf_error_fatal(emess)
16041   ENDIF
16042   model_config_rec%auxinput11_interval_d(id_id) = auxinput11_interval_d
16043   RETURN
16044 END SUBROUTINE nl_set_auxinput11_interval_d
16045 SUBROUTINE nl_set_auxinput11_interval_h ( id_id , auxinput11_interval_h )
16046   integer , INTENT(IN) :: auxinput11_interval_h
16047   INTEGER id_id
16048   CHARACTER*80 emess
16049   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16050     WRITE(emess,*)'nl_set_auxinput11_interval_h: Out of range domain number: ',id_id
16051     CALL wrf_error_fatal(emess)
16052   ENDIF
16053   model_config_rec%auxinput11_interval_h(id_id) = auxinput11_interval_h
16054   RETURN
16055 END SUBROUTINE nl_set_auxinput11_interval_h
16056 SUBROUTINE nl_set_auxinput11_interval_m ( id_id , auxinput11_interval_m )
16057   integer , INTENT(IN) :: auxinput11_interval_m
16058   INTEGER id_id
16059   CHARACTER*80 emess
16060   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16061     WRITE(emess,*)'nl_set_auxinput11_interval_m: Out of range domain number: ',id_id
16062     CALL wrf_error_fatal(emess)
16063   ENDIF
16064   model_config_rec%auxinput11_interval_m(id_id) = auxinput11_interval_m
16065   RETURN
16066 END SUBROUTINE nl_set_auxinput11_interval_m
16067 SUBROUTINE nl_set_auxinput11_interval_s ( id_id , auxinput11_interval_s )
16068   integer , INTENT(IN) :: auxinput11_interval_s
16069   INTEGER id_id
16070   CHARACTER*80 emess
16071   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16072     WRITE(emess,*)'nl_set_auxinput11_interval_s: Out of range domain number: ',id_id
16073     CALL wrf_error_fatal(emess)
16074   ENDIF
16075   model_config_rec%auxinput11_interval_s(id_id) = auxinput11_interval_s
16076   RETURN
16077 END SUBROUTINE nl_set_auxinput11_interval_s
16078 SUBROUTINE nl_set_auxinput11_interval ( id_id , auxinput11_interval )
16079   integer , INTENT(IN) :: auxinput11_interval
16080   INTEGER id_id
16081   CHARACTER*80 emess
16082   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16083     WRITE(emess,*)'nl_set_auxinput11_interval: Out of range domain number: ',id_id
16084     CALL wrf_error_fatal(emess)
16085   ENDIF
16086   model_config_rec%auxinput11_interval(id_id) = auxinput11_interval
16087   RETURN
16088 END SUBROUTINE nl_set_auxinput11_interval
16089 SUBROUTINE nl_set_restart_interval_mo ( id_id , restart_interval_mo )
16090   integer , INTENT(IN) :: restart_interval_mo
16091   INTEGER id_id
16092   CHARACTER*80 emess
16093   IF ( id_id .NE. 1 ) THEN
16094     call wrf_debug(1,&
16095 'WARNING in nl_set_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
16096   ENDIF
16097   model_config_rec%restart_interval_mo = restart_interval_mo 
16098   RETURN
16099 END SUBROUTINE nl_set_restart_interval_mo
16100 SUBROUTINE nl_set_restart_interval_d ( id_id , restart_interval_d )
16101   integer , INTENT(IN) :: restart_interval_d
16102   INTEGER id_id
16103   CHARACTER*80 emess
16104   IF ( id_id .NE. 1 ) THEN
16105     call wrf_debug(1,&
16106 'WARNING in nl_set_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
16107   ENDIF
16108   model_config_rec%restart_interval_d = restart_interval_d 
16109   RETURN
16110 END SUBROUTINE nl_set_restart_interval_d
16111 SUBROUTINE nl_set_restart_interval_h ( id_id , restart_interval_h )
16112   integer , INTENT(IN) :: restart_interval_h
16113   INTEGER id_id
16114   CHARACTER*80 emess
16115   IF ( id_id .NE. 1 ) THEN
16116     call wrf_debug(1,&
16117 'WARNING in nl_set_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
16118   ENDIF
16119   model_config_rec%restart_interval_h = restart_interval_h 
16120   RETURN
16121 END SUBROUTINE nl_set_restart_interval_h
16122 SUBROUTINE nl_set_restart_interval_m ( id_id , restart_interval_m )
16123   integer , INTENT(IN) :: restart_interval_m
16124   INTEGER id_id
16125   CHARACTER*80 emess
16126   IF ( id_id .NE. 1 ) THEN
16127     call wrf_debug(1,&
16128 'WARNING in nl_set_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
16129   ENDIF
16130   model_config_rec%restart_interval_m = restart_interval_m 
16131   RETURN
16132 END SUBROUTINE nl_set_restart_interval_m
16133 SUBROUTINE nl_set_restart_interval_s ( id_id , restart_interval_s )
16134   integer , INTENT(IN) :: restart_interval_s
16135   INTEGER id_id
16136   CHARACTER*80 emess
16137   IF ( id_id .NE. 1 ) THEN
16138     call wrf_debug(1,&
16139 'WARNING in nl_set_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
16140   ENDIF
16141   model_config_rec%restart_interval_s = restart_interval_s 
16142   RETURN
16143 END SUBROUTINE nl_set_restart_interval_s
16144 SUBROUTINE nl_set_history_begin_y ( id_id , history_begin_y )
16145   integer , INTENT(IN) :: history_begin_y
16146   INTEGER id_id
16147   CHARACTER*80 emess
16148   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16149     WRITE(emess,*)'nl_set_history_begin_y: Out of range domain number: ',id_id
16150     CALL wrf_error_fatal(emess)
16151   ENDIF
16152   model_config_rec%history_begin_y(id_id) = history_begin_y
16153   RETURN
16154 END SUBROUTINE nl_set_history_begin_y
16155 SUBROUTINE nl_set_history_begin_mo ( id_id , history_begin_mo )
16156   integer , INTENT(IN) :: history_begin_mo
16157   INTEGER id_id
16158   CHARACTER*80 emess
16159   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16160     WRITE(emess,*)'nl_set_history_begin_mo: Out of range domain number: ',id_id
16161     CALL wrf_error_fatal(emess)
16162   ENDIF
16163   model_config_rec%history_begin_mo(id_id) = history_begin_mo
16164   RETURN
16165 END SUBROUTINE nl_set_history_begin_mo
16166 SUBROUTINE nl_set_history_begin_d ( id_id , history_begin_d )
16167   integer , INTENT(IN) :: history_begin_d
16168   INTEGER id_id
16169   CHARACTER*80 emess
16170   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16171     WRITE(emess,*)'nl_set_history_begin_d: Out of range domain number: ',id_id
16172     CALL wrf_error_fatal(emess)
16173   ENDIF
16174   model_config_rec%history_begin_d(id_id) = history_begin_d
16175   RETURN
16176 END SUBROUTINE nl_set_history_begin_d
16177 SUBROUTINE nl_set_history_begin_h ( id_id , history_begin_h )
16178   integer , INTENT(IN) :: history_begin_h
16179   INTEGER id_id
16180   CHARACTER*80 emess
16181   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16182     WRITE(emess,*)'nl_set_history_begin_h: Out of range domain number: ',id_id
16183     CALL wrf_error_fatal(emess)
16184   ENDIF
16185   model_config_rec%history_begin_h(id_id) = history_begin_h
16186   RETURN
16187 END SUBROUTINE nl_set_history_begin_h
16188 SUBROUTINE nl_set_history_begin_m ( id_id , history_begin_m )
16189   integer , INTENT(IN) :: history_begin_m
16190   INTEGER id_id
16191   CHARACTER*80 emess
16192   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16193     WRITE(emess,*)'nl_set_history_begin_m: Out of range domain number: ',id_id
16194     CALL wrf_error_fatal(emess)
16195   ENDIF
16196   model_config_rec%history_begin_m(id_id) = history_begin_m
16197   RETURN
16198 END SUBROUTINE nl_set_history_begin_m
16199 SUBROUTINE nl_set_history_begin_s ( id_id , history_begin_s )
16200   integer , INTENT(IN) :: history_begin_s
16201   INTEGER id_id
16202   CHARACTER*80 emess
16203   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16204     WRITE(emess,*)'nl_set_history_begin_s: Out of range domain number: ',id_id
16205     CALL wrf_error_fatal(emess)
16206   ENDIF
16207   model_config_rec%history_begin_s(id_id) = history_begin_s
16208   RETURN
16209 END SUBROUTINE nl_set_history_begin_s
16210 SUBROUTINE nl_set_inputout_begin_y ( id_id , inputout_begin_y )
16211   integer , INTENT(IN) :: inputout_begin_y
16212   INTEGER id_id
16213   CHARACTER*80 emess
16214   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16215     WRITE(emess,*)'nl_set_inputout_begin_y: Out of range domain number: ',id_id
16216     CALL wrf_error_fatal(emess)
16217   ENDIF
16218   model_config_rec%inputout_begin_y(id_id) = inputout_begin_y
16219   RETURN
16220 END SUBROUTINE nl_set_inputout_begin_y
16221 SUBROUTINE nl_set_inputout_begin_mo ( id_id , inputout_begin_mo )
16222   integer , INTENT(IN) :: inputout_begin_mo
16223   INTEGER id_id
16224   CHARACTER*80 emess
16225   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16226     WRITE(emess,*)'nl_set_inputout_begin_mo: Out of range domain number: ',id_id
16227     CALL wrf_error_fatal(emess)
16228   ENDIF
16229   model_config_rec%inputout_begin_mo(id_id) = inputout_begin_mo
16230   RETURN
16231 END SUBROUTINE nl_set_inputout_begin_mo
16232 SUBROUTINE nl_set_inputout_begin_d ( id_id , inputout_begin_d )
16233   integer , INTENT(IN) :: inputout_begin_d
16234   INTEGER id_id
16235   CHARACTER*80 emess
16236   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16237     WRITE(emess,*)'nl_set_inputout_begin_d: Out of range domain number: ',id_id
16238     CALL wrf_error_fatal(emess)
16239   ENDIF
16240   model_config_rec%inputout_begin_d(id_id) = inputout_begin_d
16241   RETURN
16242 END SUBROUTINE nl_set_inputout_begin_d
16243 SUBROUTINE nl_set_inputout_begin_h ( id_id , inputout_begin_h )
16244   integer , INTENT(IN) :: inputout_begin_h
16245   INTEGER id_id
16246   CHARACTER*80 emess
16247   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16248     WRITE(emess,*)'nl_set_inputout_begin_h: Out of range domain number: ',id_id
16249     CALL wrf_error_fatal(emess)
16250   ENDIF
16251   model_config_rec%inputout_begin_h(id_id) = inputout_begin_h
16252   RETURN
16253 END SUBROUTINE nl_set_inputout_begin_h
16254 SUBROUTINE nl_set_inputout_begin_m ( id_id , inputout_begin_m )
16255   integer , INTENT(IN) :: inputout_begin_m
16256   INTEGER id_id
16257   CHARACTER*80 emess
16258   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16259     WRITE(emess,*)'nl_set_inputout_begin_m: Out of range domain number: ',id_id
16260     CALL wrf_error_fatal(emess)
16261   ENDIF
16262   model_config_rec%inputout_begin_m(id_id) = inputout_begin_m
16263   RETURN
16264 END SUBROUTINE nl_set_inputout_begin_m
16265 SUBROUTINE nl_set_inputout_begin_s ( id_id , inputout_begin_s )
16266   integer , INTENT(IN) :: inputout_begin_s
16267   INTEGER id_id
16268   CHARACTER*80 emess
16269   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16270     WRITE(emess,*)'nl_set_inputout_begin_s: Out of range domain number: ',id_id
16271     CALL wrf_error_fatal(emess)
16272   ENDIF
16273   model_config_rec%inputout_begin_s(id_id) = inputout_begin_s
16274   RETURN
16275 END SUBROUTINE nl_set_inputout_begin_s
16276 SUBROUTINE nl_set_auxhist1_begin_y ( id_id , auxhist1_begin_y )
16277   integer , INTENT(IN) :: auxhist1_begin_y
16278   INTEGER id_id
16279   CHARACTER*80 emess
16280   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16281     WRITE(emess,*)'nl_set_auxhist1_begin_y: Out of range domain number: ',id_id
16282     CALL wrf_error_fatal(emess)
16283   ENDIF
16284   model_config_rec%auxhist1_begin_y(id_id) = auxhist1_begin_y
16285   RETURN
16286 END SUBROUTINE nl_set_auxhist1_begin_y
16287 SUBROUTINE nl_set_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
16288   integer , INTENT(IN) :: auxhist1_begin_mo
16289   INTEGER id_id
16290   CHARACTER*80 emess
16291   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16292     WRITE(emess,*)'nl_set_auxhist1_begin_mo: Out of range domain number: ',id_id
16293     CALL wrf_error_fatal(emess)
16294   ENDIF
16295   model_config_rec%auxhist1_begin_mo(id_id) = auxhist1_begin_mo
16296   RETURN
16297 END SUBROUTINE nl_set_auxhist1_begin_mo
16298 SUBROUTINE nl_set_auxhist1_begin_d ( id_id , auxhist1_begin_d )
16299   integer , INTENT(IN) :: auxhist1_begin_d
16300   INTEGER id_id
16301   CHARACTER*80 emess
16302   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16303     WRITE(emess,*)'nl_set_auxhist1_begin_d: Out of range domain number: ',id_id
16304     CALL wrf_error_fatal(emess)
16305   ENDIF
16306   model_config_rec%auxhist1_begin_d(id_id) = auxhist1_begin_d
16307   RETURN
16308 END SUBROUTINE nl_set_auxhist1_begin_d
16309 SUBROUTINE nl_set_auxhist1_begin_h ( id_id , auxhist1_begin_h )
16310   integer , INTENT(IN) :: auxhist1_begin_h
16311   INTEGER id_id
16312   CHARACTER*80 emess
16313   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16314     WRITE(emess,*)'nl_set_auxhist1_begin_h: Out of range domain number: ',id_id
16315     CALL wrf_error_fatal(emess)
16316   ENDIF
16317   model_config_rec%auxhist1_begin_h(id_id) = auxhist1_begin_h
16318   RETURN
16319 END SUBROUTINE nl_set_auxhist1_begin_h
16320 SUBROUTINE nl_set_auxhist1_begin_m ( id_id , auxhist1_begin_m )
16321   integer , INTENT(IN) :: auxhist1_begin_m
16322   INTEGER id_id
16323   CHARACTER*80 emess
16324   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16325     WRITE(emess,*)'nl_set_auxhist1_begin_m: Out of range domain number: ',id_id
16326     CALL wrf_error_fatal(emess)
16327   ENDIF
16328   model_config_rec%auxhist1_begin_m(id_id) = auxhist1_begin_m
16329   RETURN
16330 END SUBROUTINE nl_set_auxhist1_begin_m
16331 SUBROUTINE nl_set_auxhist1_begin_s ( id_id , auxhist1_begin_s )
16332   integer , INTENT(IN) :: auxhist1_begin_s
16333   INTEGER id_id
16334   CHARACTER*80 emess
16335   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16336     WRITE(emess,*)'nl_set_auxhist1_begin_s: Out of range domain number: ',id_id
16337     CALL wrf_error_fatal(emess)
16338   ENDIF
16339   model_config_rec%auxhist1_begin_s(id_id) = auxhist1_begin_s
16340   RETURN
16341 END SUBROUTINE nl_set_auxhist1_begin_s
16342 SUBROUTINE nl_set_auxhist2_begin_y ( id_id , auxhist2_begin_y )
16343   integer , INTENT(IN) :: auxhist2_begin_y
16344   INTEGER id_id
16345   CHARACTER*80 emess
16346   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16347     WRITE(emess,*)'nl_set_auxhist2_begin_y: Out of range domain number: ',id_id
16348     CALL wrf_error_fatal(emess)
16349   ENDIF
16350   model_config_rec%auxhist2_begin_y(id_id) = auxhist2_begin_y
16351   RETURN
16352 END SUBROUTINE nl_set_auxhist2_begin_y
16353 SUBROUTINE nl_set_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
16354   integer , INTENT(IN) :: auxhist2_begin_mo
16355   INTEGER id_id
16356   CHARACTER*80 emess
16357   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16358     WRITE(emess,*)'nl_set_auxhist2_begin_mo: Out of range domain number: ',id_id
16359     CALL wrf_error_fatal(emess)
16360   ENDIF
16361   model_config_rec%auxhist2_begin_mo(id_id) = auxhist2_begin_mo
16362   RETURN
16363 END SUBROUTINE nl_set_auxhist2_begin_mo
16364 SUBROUTINE nl_set_auxhist2_begin_d ( id_id , auxhist2_begin_d )
16365   integer , INTENT(IN) :: auxhist2_begin_d
16366   INTEGER id_id
16367   CHARACTER*80 emess
16368   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16369     WRITE(emess,*)'nl_set_auxhist2_begin_d: Out of range domain number: ',id_id
16370     CALL wrf_error_fatal(emess)
16371   ENDIF
16372   model_config_rec%auxhist2_begin_d(id_id) = auxhist2_begin_d
16373   RETURN
16374 END SUBROUTINE nl_set_auxhist2_begin_d
16375 SUBROUTINE nl_set_auxhist2_begin_h ( id_id , auxhist2_begin_h )
16376   integer , INTENT(IN) :: auxhist2_begin_h
16377   INTEGER id_id
16378   CHARACTER*80 emess
16379   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16380     WRITE(emess,*)'nl_set_auxhist2_begin_h: Out of range domain number: ',id_id
16381     CALL wrf_error_fatal(emess)
16382   ENDIF
16383   model_config_rec%auxhist2_begin_h(id_id) = auxhist2_begin_h
16384   RETURN
16385 END SUBROUTINE nl_set_auxhist2_begin_h
16386 SUBROUTINE nl_set_auxhist2_begin_m ( id_id , auxhist2_begin_m )
16387   integer , INTENT(IN) :: auxhist2_begin_m
16388   INTEGER id_id
16389   CHARACTER*80 emess
16390   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16391     WRITE(emess,*)'nl_set_auxhist2_begin_m: Out of range domain number: ',id_id
16392     CALL wrf_error_fatal(emess)
16393   ENDIF
16394   model_config_rec%auxhist2_begin_m(id_id) = auxhist2_begin_m
16395   RETURN
16396 END SUBROUTINE nl_set_auxhist2_begin_m
16397 SUBROUTINE nl_set_auxhist2_begin_s ( id_id , auxhist2_begin_s )
16398   integer , INTENT(IN) :: auxhist2_begin_s
16399   INTEGER id_id
16400   CHARACTER*80 emess
16401   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16402     WRITE(emess,*)'nl_set_auxhist2_begin_s: Out of range domain number: ',id_id
16403     CALL wrf_error_fatal(emess)
16404   ENDIF
16405   model_config_rec%auxhist2_begin_s(id_id) = auxhist2_begin_s
16406   RETURN
16407 END SUBROUTINE nl_set_auxhist2_begin_s
16408 SUBROUTINE nl_set_auxhist3_begin_y ( id_id , auxhist3_begin_y )
16409   integer , INTENT(IN) :: auxhist3_begin_y
16410   INTEGER id_id
16411   CHARACTER*80 emess
16412   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16413     WRITE(emess,*)'nl_set_auxhist3_begin_y: Out of range domain number: ',id_id
16414     CALL wrf_error_fatal(emess)
16415   ENDIF
16416   model_config_rec%auxhist3_begin_y(id_id) = auxhist3_begin_y
16417   RETURN
16418 END SUBROUTINE nl_set_auxhist3_begin_y
16419 SUBROUTINE nl_set_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
16420   integer , INTENT(IN) :: auxhist3_begin_mo
16421   INTEGER id_id
16422   CHARACTER*80 emess
16423   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16424     WRITE(emess,*)'nl_set_auxhist3_begin_mo: Out of range domain number: ',id_id
16425     CALL wrf_error_fatal(emess)
16426   ENDIF
16427   model_config_rec%auxhist3_begin_mo(id_id) = auxhist3_begin_mo
16428   RETURN
16429 END SUBROUTINE nl_set_auxhist3_begin_mo
16430 SUBROUTINE nl_set_auxhist3_begin_d ( id_id , auxhist3_begin_d )
16431   integer , INTENT(IN) :: auxhist3_begin_d
16432   INTEGER id_id
16433   CHARACTER*80 emess
16434   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16435     WRITE(emess,*)'nl_set_auxhist3_begin_d: Out of range domain number: ',id_id
16436     CALL wrf_error_fatal(emess)
16437   ENDIF
16438   model_config_rec%auxhist3_begin_d(id_id) = auxhist3_begin_d
16439   RETURN
16440 END SUBROUTINE nl_set_auxhist3_begin_d
16441 SUBROUTINE nl_set_auxhist3_begin_h ( id_id , auxhist3_begin_h )
16442   integer , INTENT(IN) :: auxhist3_begin_h
16443   INTEGER id_id
16444   CHARACTER*80 emess
16445   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16446     WRITE(emess,*)'nl_set_auxhist3_begin_h: Out of range domain number: ',id_id
16447     CALL wrf_error_fatal(emess)
16448   ENDIF
16449   model_config_rec%auxhist3_begin_h(id_id) = auxhist3_begin_h
16450   RETURN
16451 END SUBROUTINE nl_set_auxhist3_begin_h
16452 SUBROUTINE nl_set_auxhist3_begin_m ( id_id , auxhist3_begin_m )
16453   integer , INTENT(IN) :: auxhist3_begin_m
16454   INTEGER id_id
16455   CHARACTER*80 emess
16456   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16457     WRITE(emess,*)'nl_set_auxhist3_begin_m: Out of range domain number: ',id_id
16458     CALL wrf_error_fatal(emess)
16459   ENDIF
16460   model_config_rec%auxhist3_begin_m(id_id) = auxhist3_begin_m
16461   RETURN
16462 END SUBROUTINE nl_set_auxhist3_begin_m
16463 SUBROUTINE nl_set_auxhist3_begin_s ( id_id , auxhist3_begin_s )
16464   integer , INTENT(IN) :: auxhist3_begin_s
16465   INTEGER id_id
16466   CHARACTER*80 emess
16467   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16468     WRITE(emess,*)'nl_set_auxhist3_begin_s: Out of range domain number: ',id_id
16469     CALL wrf_error_fatal(emess)
16470   ENDIF
16471   model_config_rec%auxhist3_begin_s(id_id) = auxhist3_begin_s
16472   RETURN
16473 END SUBROUTINE nl_set_auxhist3_begin_s
16474 SUBROUTINE nl_set_auxhist4_begin_y ( id_id , auxhist4_begin_y )
16475   integer , INTENT(IN) :: auxhist4_begin_y
16476   INTEGER id_id
16477   CHARACTER*80 emess
16478   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16479     WRITE(emess,*)'nl_set_auxhist4_begin_y: Out of range domain number: ',id_id
16480     CALL wrf_error_fatal(emess)
16481   ENDIF
16482   model_config_rec%auxhist4_begin_y(id_id) = auxhist4_begin_y
16483   RETURN
16484 END SUBROUTINE nl_set_auxhist4_begin_y
16485 SUBROUTINE nl_set_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
16486   integer , INTENT(IN) :: auxhist4_begin_mo
16487   INTEGER id_id
16488   CHARACTER*80 emess
16489   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16490     WRITE(emess,*)'nl_set_auxhist4_begin_mo: Out of range domain number: ',id_id
16491     CALL wrf_error_fatal(emess)
16492   ENDIF
16493   model_config_rec%auxhist4_begin_mo(id_id) = auxhist4_begin_mo
16494   RETURN
16495 END SUBROUTINE nl_set_auxhist4_begin_mo
16496 SUBROUTINE nl_set_auxhist4_begin_d ( id_id , auxhist4_begin_d )
16497   integer , INTENT(IN) :: auxhist4_begin_d
16498   INTEGER id_id
16499   CHARACTER*80 emess
16500   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16501     WRITE(emess,*)'nl_set_auxhist4_begin_d: Out of range domain number: ',id_id
16502     CALL wrf_error_fatal(emess)
16503   ENDIF
16504   model_config_rec%auxhist4_begin_d(id_id) = auxhist4_begin_d
16505   RETURN
16506 END SUBROUTINE nl_set_auxhist4_begin_d
16507 SUBROUTINE nl_set_auxhist4_begin_h ( id_id , auxhist4_begin_h )
16508   integer , INTENT(IN) :: auxhist4_begin_h
16509   INTEGER id_id
16510   CHARACTER*80 emess
16511   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16512     WRITE(emess,*)'nl_set_auxhist4_begin_h: Out of range domain number: ',id_id
16513     CALL wrf_error_fatal(emess)
16514   ENDIF
16515   model_config_rec%auxhist4_begin_h(id_id) = auxhist4_begin_h
16516   RETURN
16517 END SUBROUTINE nl_set_auxhist4_begin_h
16518 SUBROUTINE nl_set_auxhist4_begin_m ( id_id , auxhist4_begin_m )
16519   integer , INTENT(IN) :: auxhist4_begin_m
16520   INTEGER id_id
16521   CHARACTER*80 emess
16522   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16523     WRITE(emess,*)'nl_set_auxhist4_begin_m: Out of range domain number: ',id_id
16524     CALL wrf_error_fatal(emess)
16525   ENDIF
16526   model_config_rec%auxhist4_begin_m(id_id) = auxhist4_begin_m
16527   RETURN
16528 END SUBROUTINE nl_set_auxhist4_begin_m
16529 SUBROUTINE nl_set_auxhist4_begin_s ( id_id , auxhist4_begin_s )
16530   integer , INTENT(IN) :: auxhist4_begin_s
16531   INTEGER id_id
16532   CHARACTER*80 emess
16533   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16534     WRITE(emess,*)'nl_set_auxhist4_begin_s: Out of range domain number: ',id_id
16535     CALL wrf_error_fatal(emess)
16536   ENDIF
16537   model_config_rec%auxhist4_begin_s(id_id) = auxhist4_begin_s
16538   RETURN
16539 END SUBROUTINE nl_set_auxhist4_begin_s
16540 SUBROUTINE nl_set_auxhist5_begin_y ( id_id , auxhist5_begin_y )
16541   integer , INTENT(IN) :: auxhist5_begin_y
16542   INTEGER id_id
16543   CHARACTER*80 emess
16544   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16545     WRITE(emess,*)'nl_set_auxhist5_begin_y: Out of range domain number: ',id_id
16546     CALL wrf_error_fatal(emess)
16547   ENDIF
16548   model_config_rec%auxhist5_begin_y(id_id) = auxhist5_begin_y
16549   RETURN
16550 END SUBROUTINE nl_set_auxhist5_begin_y
16551 SUBROUTINE nl_set_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
16552   integer , INTENT(IN) :: auxhist5_begin_mo
16553   INTEGER id_id
16554   CHARACTER*80 emess
16555   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16556     WRITE(emess,*)'nl_set_auxhist5_begin_mo: Out of range domain number: ',id_id
16557     CALL wrf_error_fatal(emess)
16558   ENDIF
16559   model_config_rec%auxhist5_begin_mo(id_id) = auxhist5_begin_mo
16560   RETURN
16561 END SUBROUTINE nl_set_auxhist5_begin_mo
16562 SUBROUTINE nl_set_auxhist5_begin_d ( id_id , auxhist5_begin_d )
16563   integer , INTENT(IN) :: auxhist5_begin_d
16564   INTEGER id_id
16565   CHARACTER*80 emess
16566   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16567     WRITE(emess,*)'nl_set_auxhist5_begin_d: Out of range domain number: ',id_id
16568     CALL wrf_error_fatal(emess)
16569   ENDIF
16570   model_config_rec%auxhist5_begin_d(id_id) = auxhist5_begin_d
16571   RETURN
16572 END SUBROUTINE nl_set_auxhist5_begin_d
16573 SUBROUTINE nl_set_auxhist5_begin_h ( id_id , auxhist5_begin_h )
16574   integer , INTENT(IN) :: auxhist5_begin_h
16575   INTEGER id_id
16576   CHARACTER*80 emess
16577   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16578     WRITE(emess,*)'nl_set_auxhist5_begin_h: Out of range domain number: ',id_id
16579     CALL wrf_error_fatal(emess)
16580   ENDIF
16581   model_config_rec%auxhist5_begin_h(id_id) = auxhist5_begin_h
16582   RETURN
16583 END SUBROUTINE nl_set_auxhist5_begin_h
16584 SUBROUTINE nl_set_auxhist5_begin_m ( id_id , auxhist5_begin_m )
16585   integer , INTENT(IN) :: auxhist5_begin_m
16586   INTEGER id_id
16587   CHARACTER*80 emess
16588   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16589     WRITE(emess,*)'nl_set_auxhist5_begin_m: Out of range domain number: ',id_id
16590     CALL wrf_error_fatal(emess)
16591   ENDIF
16592   model_config_rec%auxhist5_begin_m(id_id) = auxhist5_begin_m
16593   RETURN
16594 END SUBROUTINE nl_set_auxhist5_begin_m
16595 SUBROUTINE nl_set_auxhist5_begin_s ( id_id , auxhist5_begin_s )
16596   integer , INTENT(IN) :: auxhist5_begin_s
16597   INTEGER id_id
16598   CHARACTER*80 emess
16599   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16600     WRITE(emess,*)'nl_set_auxhist5_begin_s: Out of range domain number: ',id_id
16601     CALL wrf_error_fatal(emess)
16602   ENDIF
16603   model_config_rec%auxhist5_begin_s(id_id) = auxhist5_begin_s
16604   RETURN
16605 END SUBROUTINE nl_set_auxhist5_begin_s
16606 SUBROUTINE nl_set_auxhist6_begin_y ( id_id , auxhist6_begin_y )
16607   integer , INTENT(IN) :: auxhist6_begin_y
16608   INTEGER id_id
16609   CHARACTER*80 emess
16610   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16611     WRITE(emess,*)'nl_set_auxhist6_begin_y: Out of range domain number: ',id_id
16612     CALL wrf_error_fatal(emess)
16613   ENDIF
16614   model_config_rec%auxhist6_begin_y(id_id) = auxhist6_begin_y
16615   RETURN
16616 END SUBROUTINE nl_set_auxhist6_begin_y
16617 SUBROUTINE nl_set_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
16618   integer , INTENT(IN) :: auxhist6_begin_mo
16619   INTEGER id_id
16620   CHARACTER*80 emess
16621   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16622     WRITE(emess,*)'nl_set_auxhist6_begin_mo: Out of range domain number: ',id_id
16623     CALL wrf_error_fatal(emess)
16624   ENDIF
16625   model_config_rec%auxhist6_begin_mo(id_id) = auxhist6_begin_mo
16626   RETURN
16627 END SUBROUTINE nl_set_auxhist6_begin_mo
16628 SUBROUTINE nl_set_auxhist6_begin_d ( id_id , auxhist6_begin_d )
16629   integer , INTENT(IN) :: auxhist6_begin_d
16630   INTEGER id_id
16631   CHARACTER*80 emess
16632   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16633     WRITE(emess,*)'nl_set_auxhist6_begin_d: Out of range domain number: ',id_id
16634     CALL wrf_error_fatal(emess)
16635   ENDIF
16636   model_config_rec%auxhist6_begin_d(id_id) = auxhist6_begin_d
16637   RETURN
16638 END SUBROUTINE nl_set_auxhist6_begin_d
16639 SUBROUTINE nl_set_auxhist6_begin_h ( id_id , auxhist6_begin_h )
16640   integer , INTENT(IN) :: auxhist6_begin_h
16641   INTEGER id_id
16642   CHARACTER*80 emess
16643   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16644     WRITE(emess,*)'nl_set_auxhist6_begin_h: Out of range domain number: ',id_id
16645     CALL wrf_error_fatal(emess)
16646   ENDIF
16647   model_config_rec%auxhist6_begin_h(id_id) = auxhist6_begin_h
16648   RETURN
16649 END SUBROUTINE nl_set_auxhist6_begin_h
16650 SUBROUTINE nl_set_auxhist6_begin_m ( id_id , auxhist6_begin_m )
16651   integer , INTENT(IN) :: auxhist6_begin_m
16652   INTEGER id_id
16653   CHARACTER*80 emess
16654   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16655     WRITE(emess,*)'nl_set_auxhist6_begin_m: Out of range domain number: ',id_id
16656     CALL wrf_error_fatal(emess)
16657   ENDIF
16658   model_config_rec%auxhist6_begin_m(id_id) = auxhist6_begin_m
16659   RETURN
16660 END SUBROUTINE nl_set_auxhist6_begin_m
16661 SUBROUTINE nl_set_auxhist6_begin_s ( id_id , auxhist6_begin_s )
16662   integer , INTENT(IN) :: auxhist6_begin_s
16663   INTEGER id_id
16664   CHARACTER*80 emess
16665   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16666     WRITE(emess,*)'nl_set_auxhist6_begin_s: Out of range domain number: ',id_id
16667     CALL wrf_error_fatal(emess)
16668   ENDIF
16669   model_config_rec%auxhist6_begin_s(id_id) = auxhist6_begin_s
16670   RETURN
16671 END SUBROUTINE nl_set_auxhist6_begin_s
16672 SUBROUTINE nl_set_auxhist7_begin_y ( id_id , auxhist7_begin_y )
16673   integer , INTENT(IN) :: auxhist7_begin_y
16674   INTEGER id_id
16675   CHARACTER*80 emess
16676   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16677     WRITE(emess,*)'nl_set_auxhist7_begin_y: Out of range domain number: ',id_id
16678     CALL wrf_error_fatal(emess)
16679   ENDIF
16680   model_config_rec%auxhist7_begin_y(id_id) = auxhist7_begin_y
16681   RETURN
16682 END SUBROUTINE nl_set_auxhist7_begin_y
16683 SUBROUTINE nl_set_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
16684   integer , INTENT(IN) :: auxhist7_begin_mo
16685   INTEGER id_id
16686   CHARACTER*80 emess
16687   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16688     WRITE(emess,*)'nl_set_auxhist7_begin_mo: Out of range domain number: ',id_id
16689     CALL wrf_error_fatal(emess)
16690   ENDIF
16691   model_config_rec%auxhist7_begin_mo(id_id) = auxhist7_begin_mo
16692   RETURN
16693 END SUBROUTINE nl_set_auxhist7_begin_mo
16694 SUBROUTINE nl_set_auxhist7_begin_d ( id_id , auxhist7_begin_d )
16695   integer , INTENT(IN) :: auxhist7_begin_d
16696   INTEGER id_id
16697   CHARACTER*80 emess
16698   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16699     WRITE(emess,*)'nl_set_auxhist7_begin_d: Out of range domain number: ',id_id
16700     CALL wrf_error_fatal(emess)
16701   ENDIF
16702   model_config_rec%auxhist7_begin_d(id_id) = auxhist7_begin_d
16703   RETURN
16704 END SUBROUTINE nl_set_auxhist7_begin_d
16705 SUBROUTINE nl_set_auxhist7_begin_h ( id_id , auxhist7_begin_h )
16706   integer , INTENT(IN) :: auxhist7_begin_h
16707   INTEGER id_id
16708   CHARACTER*80 emess
16709   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16710     WRITE(emess,*)'nl_set_auxhist7_begin_h: Out of range domain number: ',id_id
16711     CALL wrf_error_fatal(emess)
16712   ENDIF
16713   model_config_rec%auxhist7_begin_h(id_id) = auxhist7_begin_h
16714   RETURN
16715 END SUBROUTINE nl_set_auxhist7_begin_h
16716 SUBROUTINE nl_set_auxhist7_begin_m ( id_id , auxhist7_begin_m )
16717   integer , INTENT(IN) :: auxhist7_begin_m
16718   INTEGER id_id
16719   CHARACTER*80 emess
16720   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16721     WRITE(emess,*)'nl_set_auxhist7_begin_m: Out of range domain number: ',id_id
16722     CALL wrf_error_fatal(emess)
16723   ENDIF
16724   model_config_rec%auxhist7_begin_m(id_id) = auxhist7_begin_m
16725   RETURN
16726 END SUBROUTINE nl_set_auxhist7_begin_m
16727 SUBROUTINE nl_set_auxhist7_begin_s ( id_id , auxhist7_begin_s )
16728   integer , INTENT(IN) :: auxhist7_begin_s
16729   INTEGER id_id
16730   CHARACTER*80 emess
16731   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16732     WRITE(emess,*)'nl_set_auxhist7_begin_s: Out of range domain number: ',id_id
16733     CALL wrf_error_fatal(emess)
16734   ENDIF
16735   model_config_rec%auxhist7_begin_s(id_id) = auxhist7_begin_s
16736   RETURN
16737 END SUBROUTINE nl_set_auxhist7_begin_s
16738 SUBROUTINE nl_set_auxhist8_begin_y ( id_id , auxhist8_begin_y )
16739   integer , INTENT(IN) :: auxhist8_begin_y
16740   INTEGER id_id
16741   CHARACTER*80 emess
16742   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16743     WRITE(emess,*)'nl_set_auxhist8_begin_y: Out of range domain number: ',id_id
16744     CALL wrf_error_fatal(emess)
16745   ENDIF
16746   model_config_rec%auxhist8_begin_y(id_id) = auxhist8_begin_y
16747   RETURN
16748 END SUBROUTINE nl_set_auxhist8_begin_y
16749 SUBROUTINE nl_set_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
16750   integer , INTENT(IN) :: auxhist8_begin_mo
16751   INTEGER id_id
16752   CHARACTER*80 emess
16753   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16754     WRITE(emess,*)'nl_set_auxhist8_begin_mo: Out of range domain number: ',id_id
16755     CALL wrf_error_fatal(emess)
16756   ENDIF
16757   model_config_rec%auxhist8_begin_mo(id_id) = auxhist8_begin_mo
16758   RETURN
16759 END SUBROUTINE nl_set_auxhist8_begin_mo
16760 SUBROUTINE nl_set_auxhist8_begin_d ( id_id , auxhist8_begin_d )
16761   integer , INTENT(IN) :: auxhist8_begin_d
16762   INTEGER id_id
16763   CHARACTER*80 emess
16764   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16765     WRITE(emess,*)'nl_set_auxhist8_begin_d: Out of range domain number: ',id_id
16766     CALL wrf_error_fatal(emess)
16767   ENDIF
16768   model_config_rec%auxhist8_begin_d(id_id) = auxhist8_begin_d
16769   RETURN
16770 END SUBROUTINE nl_set_auxhist8_begin_d
16771 SUBROUTINE nl_set_auxhist8_begin_h ( id_id , auxhist8_begin_h )
16772   integer , INTENT(IN) :: auxhist8_begin_h
16773   INTEGER id_id
16774   CHARACTER*80 emess
16775   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16776     WRITE(emess,*)'nl_set_auxhist8_begin_h: Out of range domain number: ',id_id
16777     CALL wrf_error_fatal(emess)
16778   ENDIF
16779   model_config_rec%auxhist8_begin_h(id_id) = auxhist8_begin_h
16780   RETURN
16781 END SUBROUTINE nl_set_auxhist8_begin_h
16782 SUBROUTINE nl_set_auxhist8_begin_m ( id_id , auxhist8_begin_m )
16783   integer , INTENT(IN) :: auxhist8_begin_m
16784   INTEGER id_id
16785   CHARACTER*80 emess
16786   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16787     WRITE(emess,*)'nl_set_auxhist8_begin_m: Out of range domain number: ',id_id
16788     CALL wrf_error_fatal(emess)
16789   ENDIF
16790   model_config_rec%auxhist8_begin_m(id_id) = auxhist8_begin_m
16791   RETURN
16792 END SUBROUTINE nl_set_auxhist8_begin_m
16793 SUBROUTINE nl_set_auxhist8_begin_s ( id_id , auxhist8_begin_s )
16794   integer , INTENT(IN) :: auxhist8_begin_s
16795   INTEGER id_id
16796   CHARACTER*80 emess
16797   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16798     WRITE(emess,*)'nl_set_auxhist8_begin_s: Out of range domain number: ',id_id
16799     CALL wrf_error_fatal(emess)
16800   ENDIF
16801   model_config_rec%auxhist8_begin_s(id_id) = auxhist8_begin_s
16802   RETURN
16803 END SUBROUTINE nl_set_auxhist8_begin_s
16804 SUBROUTINE nl_set_auxhist9_begin_y ( id_id , auxhist9_begin_y )
16805   integer , INTENT(IN) :: auxhist9_begin_y
16806   INTEGER id_id
16807   CHARACTER*80 emess
16808   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16809     WRITE(emess,*)'nl_set_auxhist9_begin_y: Out of range domain number: ',id_id
16810     CALL wrf_error_fatal(emess)
16811   ENDIF
16812   model_config_rec%auxhist9_begin_y(id_id) = auxhist9_begin_y
16813   RETURN
16814 END SUBROUTINE nl_set_auxhist9_begin_y
16815 SUBROUTINE nl_set_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
16816   integer , INTENT(IN) :: auxhist9_begin_mo
16817   INTEGER id_id
16818   CHARACTER*80 emess
16819   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16820     WRITE(emess,*)'nl_set_auxhist9_begin_mo: Out of range domain number: ',id_id
16821     CALL wrf_error_fatal(emess)
16822   ENDIF
16823   model_config_rec%auxhist9_begin_mo(id_id) = auxhist9_begin_mo
16824   RETURN
16825 END SUBROUTINE nl_set_auxhist9_begin_mo
16826 SUBROUTINE nl_set_auxhist9_begin_d ( id_id , auxhist9_begin_d )
16827   integer , INTENT(IN) :: auxhist9_begin_d
16828   INTEGER id_id
16829   CHARACTER*80 emess
16830   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16831     WRITE(emess,*)'nl_set_auxhist9_begin_d: Out of range domain number: ',id_id
16832     CALL wrf_error_fatal(emess)
16833   ENDIF
16834   model_config_rec%auxhist9_begin_d(id_id) = auxhist9_begin_d
16835   RETURN
16836 END SUBROUTINE nl_set_auxhist9_begin_d
16837 SUBROUTINE nl_set_auxhist9_begin_h ( id_id , auxhist9_begin_h )
16838   integer , INTENT(IN) :: auxhist9_begin_h
16839   INTEGER id_id
16840   CHARACTER*80 emess
16841   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16842     WRITE(emess,*)'nl_set_auxhist9_begin_h: Out of range domain number: ',id_id
16843     CALL wrf_error_fatal(emess)
16844   ENDIF
16845   model_config_rec%auxhist9_begin_h(id_id) = auxhist9_begin_h
16846   RETURN
16847 END SUBROUTINE nl_set_auxhist9_begin_h
16848 SUBROUTINE nl_set_auxhist9_begin_m ( id_id , auxhist9_begin_m )
16849   integer , INTENT(IN) :: auxhist9_begin_m
16850   INTEGER id_id
16851   CHARACTER*80 emess
16852   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16853     WRITE(emess,*)'nl_set_auxhist9_begin_m: Out of range domain number: ',id_id
16854     CALL wrf_error_fatal(emess)
16855   ENDIF
16856   model_config_rec%auxhist9_begin_m(id_id) = auxhist9_begin_m
16857   RETURN
16858 END SUBROUTINE nl_set_auxhist9_begin_m
16859 SUBROUTINE nl_set_auxhist9_begin_s ( id_id , auxhist9_begin_s )
16860   integer , INTENT(IN) :: auxhist9_begin_s
16861   INTEGER id_id
16862   CHARACTER*80 emess
16863   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16864     WRITE(emess,*)'nl_set_auxhist9_begin_s: Out of range domain number: ',id_id
16865     CALL wrf_error_fatal(emess)
16866   ENDIF
16867   model_config_rec%auxhist9_begin_s(id_id) = auxhist9_begin_s
16868   RETURN
16869 END SUBROUTINE nl_set_auxhist9_begin_s
16870 SUBROUTINE nl_set_auxhist10_begin_y ( id_id , auxhist10_begin_y )
16871   integer , INTENT(IN) :: auxhist10_begin_y
16872   INTEGER id_id
16873   CHARACTER*80 emess
16874   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16875     WRITE(emess,*)'nl_set_auxhist10_begin_y: Out of range domain number: ',id_id
16876     CALL wrf_error_fatal(emess)
16877   ENDIF
16878   model_config_rec%auxhist10_begin_y(id_id) = auxhist10_begin_y
16879   RETURN
16880 END SUBROUTINE nl_set_auxhist10_begin_y
16881 SUBROUTINE nl_set_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
16882   integer , INTENT(IN) :: auxhist10_begin_mo
16883   INTEGER id_id
16884   CHARACTER*80 emess
16885   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16886     WRITE(emess,*)'nl_set_auxhist10_begin_mo: Out of range domain number: ',id_id
16887     CALL wrf_error_fatal(emess)
16888   ENDIF
16889   model_config_rec%auxhist10_begin_mo(id_id) = auxhist10_begin_mo
16890   RETURN
16891 END SUBROUTINE nl_set_auxhist10_begin_mo
16892 SUBROUTINE nl_set_auxhist10_begin_d ( id_id , auxhist10_begin_d )
16893   integer , INTENT(IN) :: auxhist10_begin_d
16894   INTEGER id_id
16895   CHARACTER*80 emess
16896   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16897     WRITE(emess,*)'nl_set_auxhist10_begin_d: Out of range domain number: ',id_id
16898     CALL wrf_error_fatal(emess)
16899   ENDIF
16900   model_config_rec%auxhist10_begin_d(id_id) = auxhist10_begin_d
16901   RETURN
16902 END SUBROUTINE nl_set_auxhist10_begin_d
16903 SUBROUTINE nl_set_auxhist10_begin_h ( id_id , auxhist10_begin_h )
16904   integer , INTENT(IN) :: auxhist10_begin_h
16905   INTEGER id_id
16906   CHARACTER*80 emess
16907   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16908     WRITE(emess,*)'nl_set_auxhist10_begin_h: Out of range domain number: ',id_id
16909     CALL wrf_error_fatal(emess)
16910   ENDIF
16911   model_config_rec%auxhist10_begin_h(id_id) = auxhist10_begin_h
16912   RETURN
16913 END SUBROUTINE nl_set_auxhist10_begin_h
16914 SUBROUTINE nl_set_auxhist10_begin_m ( id_id , auxhist10_begin_m )
16915   integer , INTENT(IN) :: auxhist10_begin_m
16916   INTEGER id_id
16917   CHARACTER*80 emess
16918   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16919     WRITE(emess,*)'nl_set_auxhist10_begin_m: Out of range domain number: ',id_id
16920     CALL wrf_error_fatal(emess)
16921   ENDIF
16922   model_config_rec%auxhist10_begin_m(id_id) = auxhist10_begin_m
16923   RETURN
16924 END SUBROUTINE nl_set_auxhist10_begin_m
16925 SUBROUTINE nl_set_auxhist10_begin_s ( id_id , auxhist10_begin_s )
16926   integer , INTENT(IN) :: auxhist10_begin_s
16927   INTEGER id_id
16928   CHARACTER*80 emess
16929   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16930     WRITE(emess,*)'nl_set_auxhist10_begin_s: Out of range domain number: ',id_id
16931     CALL wrf_error_fatal(emess)
16932   ENDIF
16933   model_config_rec%auxhist10_begin_s(id_id) = auxhist10_begin_s
16934   RETURN
16935 END SUBROUTINE nl_set_auxhist10_begin_s
16936 SUBROUTINE nl_set_auxhist11_begin_y ( id_id , auxhist11_begin_y )
16937   integer , INTENT(IN) :: auxhist11_begin_y
16938   INTEGER id_id
16939   CHARACTER*80 emess
16940   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16941     WRITE(emess,*)'nl_set_auxhist11_begin_y: Out of range domain number: ',id_id
16942     CALL wrf_error_fatal(emess)
16943   ENDIF
16944   model_config_rec%auxhist11_begin_y(id_id) = auxhist11_begin_y
16945   RETURN
16946 END SUBROUTINE nl_set_auxhist11_begin_y
16947 SUBROUTINE nl_set_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
16948   integer , INTENT(IN) :: auxhist11_begin_mo
16949   INTEGER id_id
16950   CHARACTER*80 emess
16951   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16952     WRITE(emess,*)'nl_set_auxhist11_begin_mo: Out of range domain number: ',id_id
16953     CALL wrf_error_fatal(emess)
16954   ENDIF
16955   model_config_rec%auxhist11_begin_mo(id_id) = auxhist11_begin_mo
16956   RETURN
16957 END SUBROUTINE nl_set_auxhist11_begin_mo
16958 SUBROUTINE nl_set_auxhist11_begin_d ( id_id , auxhist11_begin_d )
16959   integer , INTENT(IN) :: auxhist11_begin_d
16960   INTEGER id_id
16961   CHARACTER*80 emess
16962   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16963     WRITE(emess,*)'nl_set_auxhist11_begin_d: Out of range domain number: ',id_id
16964     CALL wrf_error_fatal(emess)
16965   ENDIF
16966   model_config_rec%auxhist11_begin_d(id_id) = auxhist11_begin_d
16967   RETURN
16968 END SUBROUTINE nl_set_auxhist11_begin_d
16969 SUBROUTINE nl_set_auxhist11_begin_h ( id_id , auxhist11_begin_h )
16970   integer , INTENT(IN) :: auxhist11_begin_h
16971   INTEGER id_id
16972   CHARACTER*80 emess
16973   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16974     WRITE(emess,*)'nl_set_auxhist11_begin_h: Out of range domain number: ',id_id
16975     CALL wrf_error_fatal(emess)
16976   ENDIF
16977   model_config_rec%auxhist11_begin_h(id_id) = auxhist11_begin_h
16978   RETURN
16979 END SUBROUTINE nl_set_auxhist11_begin_h
16980 SUBROUTINE nl_set_auxhist11_begin_m ( id_id , auxhist11_begin_m )
16981   integer , INTENT(IN) :: auxhist11_begin_m
16982   INTEGER id_id
16983   CHARACTER*80 emess
16984   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16985     WRITE(emess,*)'nl_set_auxhist11_begin_m: Out of range domain number: ',id_id
16986     CALL wrf_error_fatal(emess)
16987   ENDIF
16988   model_config_rec%auxhist11_begin_m(id_id) = auxhist11_begin_m
16989   RETURN
16990 END SUBROUTINE nl_set_auxhist11_begin_m
16991 SUBROUTINE nl_set_auxhist11_begin_s ( id_id , auxhist11_begin_s )
16992   integer , INTENT(IN) :: auxhist11_begin_s
16993   INTEGER id_id
16994   CHARACTER*80 emess
16995   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16996     WRITE(emess,*)'nl_set_auxhist11_begin_s: Out of range domain number: ',id_id
16997     CALL wrf_error_fatal(emess)
16998   ENDIF
16999   model_config_rec%auxhist11_begin_s(id_id) = auxhist11_begin_s
17000   RETURN
17001 END SUBROUTINE nl_set_auxhist11_begin_s
17002 SUBROUTINE nl_set_auxinput1_begin_y ( id_id , auxinput1_begin_y )
17003   integer , INTENT(IN) :: auxinput1_begin_y
17004   INTEGER id_id
17005   CHARACTER*80 emess
17006   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17007     WRITE(emess,*)'nl_set_auxinput1_begin_y: Out of range domain number: ',id_id
17008     CALL wrf_error_fatal(emess)
17009   ENDIF
17010   model_config_rec%auxinput1_begin_y(id_id) = auxinput1_begin_y
17011   RETURN
17012 END SUBROUTINE nl_set_auxinput1_begin_y
17013 SUBROUTINE nl_set_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
17014   integer , INTENT(IN) :: auxinput1_begin_mo
17015   INTEGER id_id
17016   CHARACTER*80 emess
17017   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17018     WRITE(emess,*)'nl_set_auxinput1_begin_mo: Out of range domain number: ',id_id
17019     CALL wrf_error_fatal(emess)
17020   ENDIF
17021   model_config_rec%auxinput1_begin_mo(id_id) = auxinput1_begin_mo
17022   RETURN
17023 END SUBROUTINE nl_set_auxinput1_begin_mo
17024 SUBROUTINE nl_set_auxinput1_begin_d ( id_id , auxinput1_begin_d )
17025   integer , INTENT(IN) :: auxinput1_begin_d
17026   INTEGER id_id
17027   CHARACTER*80 emess
17028   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17029     WRITE(emess,*)'nl_set_auxinput1_begin_d: Out of range domain number: ',id_id
17030     CALL wrf_error_fatal(emess)
17031   ENDIF
17032   model_config_rec%auxinput1_begin_d(id_id) = auxinput1_begin_d
17033   RETURN
17034 END SUBROUTINE nl_set_auxinput1_begin_d
17035 SUBROUTINE nl_set_auxinput1_begin_h ( id_id , auxinput1_begin_h )
17036   integer , INTENT(IN) :: auxinput1_begin_h
17037   INTEGER id_id
17038   CHARACTER*80 emess
17039   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17040     WRITE(emess,*)'nl_set_auxinput1_begin_h: Out of range domain number: ',id_id
17041     CALL wrf_error_fatal(emess)
17042   ENDIF
17043   model_config_rec%auxinput1_begin_h(id_id) = auxinput1_begin_h
17044   RETURN
17045 END SUBROUTINE nl_set_auxinput1_begin_h
17046 SUBROUTINE nl_set_auxinput1_begin_m ( id_id , auxinput1_begin_m )
17047   integer , INTENT(IN) :: auxinput1_begin_m
17048   INTEGER id_id
17049   CHARACTER*80 emess
17050   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17051     WRITE(emess,*)'nl_set_auxinput1_begin_m: Out of range domain number: ',id_id
17052     CALL wrf_error_fatal(emess)
17053   ENDIF
17054   model_config_rec%auxinput1_begin_m(id_id) = auxinput1_begin_m
17055   RETURN
17056 END SUBROUTINE nl_set_auxinput1_begin_m
17057 SUBROUTINE nl_set_auxinput1_begin_s ( id_id , auxinput1_begin_s )
17058   integer , INTENT(IN) :: auxinput1_begin_s
17059   INTEGER id_id
17060   CHARACTER*80 emess
17061   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17062     WRITE(emess,*)'nl_set_auxinput1_begin_s: Out of range domain number: ',id_id
17063     CALL wrf_error_fatal(emess)
17064   ENDIF
17065   model_config_rec%auxinput1_begin_s(id_id) = auxinput1_begin_s
17066   RETURN
17067 END SUBROUTINE nl_set_auxinput1_begin_s
17068 SUBROUTINE nl_set_auxinput2_begin_y ( id_id , auxinput2_begin_y )
17069   integer , INTENT(IN) :: auxinput2_begin_y
17070   INTEGER id_id
17071   CHARACTER*80 emess
17072   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17073     WRITE(emess,*)'nl_set_auxinput2_begin_y: Out of range domain number: ',id_id
17074     CALL wrf_error_fatal(emess)
17075   ENDIF
17076   model_config_rec%auxinput2_begin_y(id_id) = auxinput2_begin_y
17077   RETURN
17078 END SUBROUTINE nl_set_auxinput2_begin_y
17079 SUBROUTINE nl_set_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
17080   integer , INTENT(IN) :: auxinput2_begin_mo
17081   INTEGER id_id
17082   CHARACTER*80 emess
17083   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17084     WRITE(emess,*)'nl_set_auxinput2_begin_mo: Out of range domain number: ',id_id
17085     CALL wrf_error_fatal(emess)
17086   ENDIF
17087   model_config_rec%auxinput2_begin_mo(id_id) = auxinput2_begin_mo
17088   RETURN
17089 END SUBROUTINE nl_set_auxinput2_begin_mo
17090 SUBROUTINE nl_set_auxinput2_begin_d ( id_id , auxinput2_begin_d )
17091   integer , INTENT(IN) :: auxinput2_begin_d
17092   INTEGER id_id
17093   CHARACTER*80 emess
17094   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17095     WRITE(emess,*)'nl_set_auxinput2_begin_d: Out of range domain number: ',id_id
17096     CALL wrf_error_fatal(emess)
17097   ENDIF
17098   model_config_rec%auxinput2_begin_d(id_id) = auxinput2_begin_d
17099   RETURN
17100 END SUBROUTINE nl_set_auxinput2_begin_d
17101 SUBROUTINE nl_set_auxinput2_begin_h ( id_id , auxinput2_begin_h )
17102   integer , INTENT(IN) :: auxinput2_begin_h
17103   INTEGER id_id
17104   CHARACTER*80 emess
17105   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17106     WRITE(emess,*)'nl_set_auxinput2_begin_h: Out of range domain number: ',id_id
17107     CALL wrf_error_fatal(emess)
17108   ENDIF
17109   model_config_rec%auxinput2_begin_h(id_id) = auxinput2_begin_h
17110   RETURN
17111 END SUBROUTINE nl_set_auxinput2_begin_h
17112 SUBROUTINE nl_set_auxinput2_begin_m ( id_id , auxinput2_begin_m )
17113   integer , INTENT(IN) :: auxinput2_begin_m
17114   INTEGER id_id
17115   CHARACTER*80 emess
17116   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17117     WRITE(emess,*)'nl_set_auxinput2_begin_m: Out of range domain number: ',id_id
17118     CALL wrf_error_fatal(emess)
17119   ENDIF
17120   model_config_rec%auxinput2_begin_m(id_id) = auxinput2_begin_m
17121   RETURN
17122 END SUBROUTINE nl_set_auxinput2_begin_m
17123 SUBROUTINE nl_set_auxinput2_begin_s ( id_id , auxinput2_begin_s )
17124   integer , INTENT(IN) :: auxinput2_begin_s
17125   INTEGER id_id
17126   CHARACTER*80 emess
17127   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17128     WRITE(emess,*)'nl_set_auxinput2_begin_s: Out of range domain number: ',id_id
17129     CALL wrf_error_fatal(emess)
17130   ENDIF
17131   model_config_rec%auxinput2_begin_s(id_id) = auxinput2_begin_s
17132   RETURN
17133 END SUBROUTINE nl_set_auxinput2_begin_s
17134 SUBROUTINE nl_set_auxinput3_begin_y ( id_id , auxinput3_begin_y )
17135   integer , INTENT(IN) :: auxinput3_begin_y
17136   INTEGER id_id
17137   CHARACTER*80 emess
17138   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17139     WRITE(emess,*)'nl_set_auxinput3_begin_y: Out of range domain number: ',id_id
17140     CALL wrf_error_fatal(emess)
17141   ENDIF
17142   model_config_rec%auxinput3_begin_y(id_id) = auxinput3_begin_y
17143   RETURN
17144 END SUBROUTINE nl_set_auxinput3_begin_y
17145 SUBROUTINE nl_set_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
17146   integer , INTENT(IN) :: auxinput3_begin_mo
17147   INTEGER id_id
17148   CHARACTER*80 emess
17149   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17150     WRITE(emess,*)'nl_set_auxinput3_begin_mo: Out of range domain number: ',id_id
17151     CALL wrf_error_fatal(emess)
17152   ENDIF
17153   model_config_rec%auxinput3_begin_mo(id_id) = auxinput3_begin_mo
17154   RETURN
17155 END SUBROUTINE nl_set_auxinput3_begin_mo
17156 SUBROUTINE nl_set_auxinput3_begin_d ( id_id , auxinput3_begin_d )
17157   integer , INTENT(IN) :: auxinput3_begin_d
17158   INTEGER id_id
17159   CHARACTER*80 emess
17160   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17161     WRITE(emess,*)'nl_set_auxinput3_begin_d: Out of range domain number: ',id_id
17162     CALL wrf_error_fatal(emess)
17163   ENDIF
17164   model_config_rec%auxinput3_begin_d(id_id) = auxinput3_begin_d
17165   RETURN
17166 END SUBROUTINE nl_set_auxinput3_begin_d
17167 SUBROUTINE nl_set_auxinput3_begin_h ( id_id , auxinput3_begin_h )
17168   integer , INTENT(IN) :: auxinput3_begin_h
17169   INTEGER id_id
17170   CHARACTER*80 emess
17171   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17172     WRITE(emess,*)'nl_set_auxinput3_begin_h: Out of range domain number: ',id_id
17173     CALL wrf_error_fatal(emess)
17174   ENDIF
17175   model_config_rec%auxinput3_begin_h(id_id) = auxinput3_begin_h
17176   RETURN
17177 END SUBROUTINE nl_set_auxinput3_begin_h
17178 SUBROUTINE nl_set_auxinput3_begin_m ( id_id , auxinput3_begin_m )
17179   integer , INTENT(IN) :: auxinput3_begin_m
17180   INTEGER id_id
17181   CHARACTER*80 emess
17182   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17183     WRITE(emess,*)'nl_set_auxinput3_begin_m: Out of range domain number: ',id_id
17184     CALL wrf_error_fatal(emess)
17185   ENDIF
17186   model_config_rec%auxinput3_begin_m(id_id) = auxinput3_begin_m
17187   RETURN
17188 END SUBROUTINE nl_set_auxinput3_begin_m
17189 SUBROUTINE nl_set_auxinput3_begin_s ( id_id , auxinput3_begin_s )
17190   integer , INTENT(IN) :: auxinput3_begin_s
17191   INTEGER id_id
17192   CHARACTER*80 emess
17193   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17194     WRITE(emess,*)'nl_set_auxinput3_begin_s: Out of range domain number: ',id_id
17195     CALL wrf_error_fatal(emess)
17196   ENDIF
17197   model_config_rec%auxinput3_begin_s(id_id) = auxinput3_begin_s
17198   RETURN
17199 END SUBROUTINE nl_set_auxinput3_begin_s
17200 SUBROUTINE nl_set_auxinput4_begin_y ( id_id , auxinput4_begin_y )
17201   integer , INTENT(IN) :: auxinput4_begin_y
17202   INTEGER id_id
17203   CHARACTER*80 emess
17204   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17205     WRITE(emess,*)'nl_set_auxinput4_begin_y: Out of range domain number: ',id_id
17206     CALL wrf_error_fatal(emess)
17207   ENDIF
17208   model_config_rec%auxinput4_begin_y(id_id) = auxinput4_begin_y
17209   RETURN
17210 END SUBROUTINE nl_set_auxinput4_begin_y
17211 SUBROUTINE nl_set_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
17212   integer , INTENT(IN) :: auxinput4_begin_mo
17213   INTEGER id_id
17214   CHARACTER*80 emess
17215   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17216     WRITE(emess,*)'nl_set_auxinput4_begin_mo: Out of range domain number: ',id_id
17217     CALL wrf_error_fatal(emess)
17218   ENDIF
17219   model_config_rec%auxinput4_begin_mo(id_id) = auxinput4_begin_mo
17220   RETURN
17221 END SUBROUTINE nl_set_auxinput4_begin_mo
17222 SUBROUTINE nl_set_auxinput4_begin_d ( id_id , auxinput4_begin_d )
17223   integer , INTENT(IN) :: auxinput4_begin_d
17224   INTEGER id_id
17225   CHARACTER*80 emess
17226   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17227     WRITE(emess,*)'nl_set_auxinput4_begin_d: Out of range domain number: ',id_id
17228     CALL wrf_error_fatal(emess)
17229   ENDIF
17230   model_config_rec%auxinput4_begin_d(id_id) = auxinput4_begin_d
17231   RETURN
17232 END SUBROUTINE nl_set_auxinput4_begin_d
17233 SUBROUTINE nl_set_auxinput4_begin_h ( id_id , auxinput4_begin_h )
17234   integer , INTENT(IN) :: auxinput4_begin_h
17235   INTEGER id_id
17236   CHARACTER*80 emess
17237   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17238     WRITE(emess,*)'nl_set_auxinput4_begin_h: Out of range domain number: ',id_id
17239     CALL wrf_error_fatal(emess)
17240   ENDIF
17241   model_config_rec%auxinput4_begin_h(id_id) = auxinput4_begin_h
17242   RETURN
17243 END SUBROUTINE nl_set_auxinput4_begin_h
17244 SUBROUTINE nl_set_auxinput4_begin_m ( id_id , auxinput4_begin_m )
17245   integer , INTENT(IN) :: auxinput4_begin_m
17246   INTEGER id_id
17247   CHARACTER*80 emess
17248   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17249     WRITE(emess,*)'nl_set_auxinput4_begin_m: Out of range domain number: ',id_id
17250     CALL wrf_error_fatal(emess)
17251   ENDIF
17252   model_config_rec%auxinput4_begin_m(id_id) = auxinput4_begin_m
17253   RETURN
17254 END SUBROUTINE nl_set_auxinput4_begin_m
17255 SUBROUTINE nl_set_auxinput4_begin_s ( id_id , auxinput4_begin_s )
17256   integer , INTENT(IN) :: auxinput4_begin_s
17257   INTEGER id_id
17258   CHARACTER*80 emess
17259   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17260     WRITE(emess,*)'nl_set_auxinput4_begin_s: Out of range domain number: ',id_id
17261     CALL wrf_error_fatal(emess)
17262   ENDIF
17263   model_config_rec%auxinput4_begin_s(id_id) = auxinput4_begin_s
17264   RETURN
17265 END SUBROUTINE nl_set_auxinput4_begin_s
17266 SUBROUTINE nl_set_auxinput5_begin_y ( id_id , auxinput5_begin_y )
17267   integer , INTENT(IN) :: auxinput5_begin_y
17268   INTEGER id_id
17269   CHARACTER*80 emess
17270   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17271     WRITE(emess,*)'nl_set_auxinput5_begin_y: Out of range domain number: ',id_id
17272     CALL wrf_error_fatal(emess)
17273   ENDIF
17274   model_config_rec%auxinput5_begin_y(id_id) = auxinput5_begin_y
17275   RETURN
17276 END SUBROUTINE nl_set_auxinput5_begin_y
17277 SUBROUTINE nl_set_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
17278   integer , INTENT(IN) :: auxinput5_begin_mo
17279   INTEGER id_id
17280   CHARACTER*80 emess
17281   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17282     WRITE(emess,*)'nl_set_auxinput5_begin_mo: Out of range domain number: ',id_id
17283     CALL wrf_error_fatal(emess)
17284   ENDIF
17285   model_config_rec%auxinput5_begin_mo(id_id) = auxinput5_begin_mo
17286   RETURN
17287 END SUBROUTINE nl_set_auxinput5_begin_mo
17288 SUBROUTINE nl_set_auxinput5_begin_d ( id_id , auxinput5_begin_d )
17289   integer , INTENT(IN) :: auxinput5_begin_d
17290   INTEGER id_id
17291   CHARACTER*80 emess
17292   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17293     WRITE(emess,*)'nl_set_auxinput5_begin_d: Out of range domain number: ',id_id
17294     CALL wrf_error_fatal(emess)
17295   ENDIF
17296   model_config_rec%auxinput5_begin_d(id_id) = auxinput5_begin_d
17297   RETURN
17298 END SUBROUTINE nl_set_auxinput5_begin_d
17299 SUBROUTINE nl_set_auxinput5_begin_h ( id_id , auxinput5_begin_h )
17300   integer , INTENT(IN) :: auxinput5_begin_h
17301   INTEGER id_id
17302   CHARACTER*80 emess
17303   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17304     WRITE(emess,*)'nl_set_auxinput5_begin_h: Out of range domain number: ',id_id
17305     CALL wrf_error_fatal(emess)
17306   ENDIF
17307   model_config_rec%auxinput5_begin_h(id_id) = auxinput5_begin_h
17308   RETURN
17309 END SUBROUTINE nl_set_auxinput5_begin_h
17310 SUBROUTINE nl_set_auxinput5_begin_m ( id_id , auxinput5_begin_m )
17311   integer , INTENT(IN) :: auxinput5_begin_m
17312   INTEGER id_id
17313   CHARACTER*80 emess
17314   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17315     WRITE(emess,*)'nl_set_auxinput5_begin_m: Out of range domain number: ',id_id
17316     CALL wrf_error_fatal(emess)
17317   ENDIF
17318   model_config_rec%auxinput5_begin_m(id_id) = auxinput5_begin_m
17319   RETURN
17320 END SUBROUTINE nl_set_auxinput5_begin_m
17321 SUBROUTINE nl_set_auxinput5_begin_s ( id_id , auxinput5_begin_s )
17322   integer , INTENT(IN) :: auxinput5_begin_s
17323   INTEGER id_id
17324   CHARACTER*80 emess
17325   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17326     WRITE(emess,*)'nl_set_auxinput5_begin_s: Out of range domain number: ',id_id
17327     CALL wrf_error_fatal(emess)
17328   ENDIF
17329   model_config_rec%auxinput5_begin_s(id_id) = auxinput5_begin_s
17330   RETURN
17331 END SUBROUTINE nl_set_auxinput5_begin_s
17332 SUBROUTINE nl_set_auxinput6_begin_y ( id_id , auxinput6_begin_y )
17333   integer , INTENT(IN) :: auxinput6_begin_y
17334   INTEGER id_id
17335   CHARACTER*80 emess
17336   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17337     WRITE(emess,*)'nl_set_auxinput6_begin_y: Out of range domain number: ',id_id
17338     CALL wrf_error_fatal(emess)
17339   ENDIF
17340   model_config_rec%auxinput6_begin_y(id_id) = auxinput6_begin_y
17341   RETURN
17342 END SUBROUTINE nl_set_auxinput6_begin_y
17343 SUBROUTINE nl_set_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
17344   integer , INTENT(IN) :: auxinput6_begin_mo
17345   INTEGER id_id
17346   CHARACTER*80 emess
17347   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17348     WRITE(emess,*)'nl_set_auxinput6_begin_mo: Out of range domain number: ',id_id
17349     CALL wrf_error_fatal(emess)
17350   ENDIF
17351   model_config_rec%auxinput6_begin_mo(id_id) = auxinput6_begin_mo
17352   RETURN
17353 END SUBROUTINE nl_set_auxinput6_begin_mo
17354 SUBROUTINE nl_set_auxinput6_begin_d ( id_id , auxinput6_begin_d )
17355   integer , INTENT(IN) :: auxinput6_begin_d
17356   INTEGER id_id
17357   CHARACTER*80 emess
17358   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17359     WRITE(emess,*)'nl_set_auxinput6_begin_d: Out of range domain number: ',id_id
17360     CALL wrf_error_fatal(emess)
17361   ENDIF
17362   model_config_rec%auxinput6_begin_d(id_id) = auxinput6_begin_d
17363   RETURN
17364 END SUBROUTINE nl_set_auxinput6_begin_d
17365 SUBROUTINE nl_set_auxinput6_begin_h ( id_id , auxinput6_begin_h )
17366   integer , INTENT(IN) :: auxinput6_begin_h
17367   INTEGER id_id
17368   CHARACTER*80 emess
17369   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17370     WRITE(emess,*)'nl_set_auxinput6_begin_h: Out of range domain number: ',id_id
17371     CALL wrf_error_fatal(emess)
17372   ENDIF
17373   model_config_rec%auxinput6_begin_h(id_id) = auxinput6_begin_h
17374   RETURN
17375 END SUBROUTINE nl_set_auxinput6_begin_h
17376 SUBROUTINE nl_set_auxinput6_begin_m ( id_id , auxinput6_begin_m )
17377   integer , INTENT(IN) :: auxinput6_begin_m
17378   INTEGER id_id
17379   CHARACTER*80 emess
17380   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17381     WRITE(emess,*)'nl_set_auxinput6_begin_m: Out of range domain number: ',id_id
17382     CALL wrf_error_fatal(emess)
17383   ENDIF
17384   model_config_rec%auxinput6_begin_m(id_id) = auxinput6_begin_m
17385   RETURN
17386 END SUBROUTINE nl_set_auxinput6_begin_m
17387 SUBROUTINE nl_set_auxinput6_begin_s ( id_id , auxinput6_begin_s )
17388   integer , INTENT(IN) :: auxinput6_begin_s
17389   INTEGER id_id
17390   CHARACTER*80 emess
17391   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17392     WRITE(emess,*)'nl_set_auxinput6_begin_s: Out of range domain number: ',id_id
17393     CALL wrf_error_fatal(emess)
17394   ENDIF
17395   model_config_rec%auxinput6_begin_s(id_id) = auxinput6_begin_s
17396   RETURN
17397 END SUBROUTINE nl_set_auxinput6_begin_s
17398 SUBROUTINE nl_set_auxinput7_begin_y ( id_id , auxinput7_begin_y )
17399   integer , INTENT(IN) :: auxinput7_begin_y
17400   INTEGER id_id
17401   CHARACTER*80 emess
17402   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17403     WRITE(emess,*)'nl_set_auxinput7_begin_y: Out of range domain number: ',id_id
17404     CALL wrf_error_fatal(emess)
17405   ENDIF
17406   model_config_rec%auxinput7_begin_y(id_id) = auxinput7_begin_y
17407   RETURN
17408 END SUBROUTINE nl_set_auxinput7_begin_y
17409 SUBROUTINE nl_set_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
17410   integer , INTENT(IN) :: auxinput7_begin_mo
17411   INTEGER id_id
17412   CHARACTER*80 emess
17413   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17414     WRITE(emess,*)'nl_set_auxinput7_begin_mo: Out of range domain number: ',id_id
17415     CALL wrf_error_fatal(emess)
17416   ENDIF
17417   model_config_rec%auxinput7_begin_mo(id_id) = auxinput7_begin_mo
17418   RETURN
17419 END SUBROUTINE nl_set_auxinput7_begin_mo
17420 SUBROUTINE nl_set_auxinput7_begin_d ( id_id , auxinput7_begin_d )
17421   integer , INTENT(IN) :: auxinput7_begin_d
17422   INTEGER id_id
17423   CHARACTER*80 emess
17424   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17425     WRITE(emess,*)'nl_set_auxinput7_begin_d: Out of range domain number: ',id_id
17426     CALL wrf_error_fatal(emess)
17427   ENDIF
17428   model_config_rec%auxinput7_begin_d(id_id) = auxinput7_begin_d
17429   RETURN
17430 END SUBROUTINE nl_set_auxinput7_begin_d
17431 SUBROUTINE nl_set_auxinput7_begin_h ( id_id , auxinput7_begin_h )
17432   integer , INTENT(IN) :: auxinput7_begin_h
17433   INTEGER id_id
17434   CHARACTER*80 emess
17435   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17436     WRITE(emess,*)'nl_set_auxinput7_begin_h: Out of range domain number: ',id_id
17437     CALL wrf_error_fatal(emess)
17438   ENDIF
17439   model_config_rec%auxinput7_begin_h(id_id) = auxinput7_begin_h
17440   RETURN
17441 END SUBROUTINE nl_set_auxinput7_begin_h
17442 SUBROUTINE nl_set_auxinput7_begin_m ( id_id , auxinput7_begin_m )
17443   integer , INTENT(IN) :: auxinput7_begin_m
17444   INTEGER id_id
17445   CHARACTER*80 emess
17446   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17447     WRITE(emess,*)'nl_set_auxinput7_begin_m: Out of range domain number: ',id_id
17448     CALL wrf_error_fatal(emess)
17449   ENDIF
17450   model_config_rec%auxinput7_begin_m(id_id) = auxinput7_begin_m
17451   RETURN
17452 END SUBROUTINE nl_set_auxinput7_begin_m
17453 SUBROUTINE nl_set_auxinput7_begin_s ( id_id , auxinput7_begin_s )
17454   integer , INTENT(IN) :: auxinput7_begin_s
17455   INTEGER id_id
17456   CHARACTER*80 emess
17457   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17458     WRITE(emess,*)'nl_set_auxinput7_begin_s: Out of range domain number: ',id_id
17459     CALL wrf_error_fatal(emess)
17460   ENDIF
17461   model_config_rec%auxinput7_begin_s(id_id) = auxinput7_begin_s
17462   RETURN
17463 END SUBROUTINE nl_set_auxinput7_begin_s
17464 SUBROUTINE nl_set_auxinput8_begin_y ( id_id , auxinput8_begin_y )
17465   integer , INTENT(IN) :: auxinput8_begin_y
17466   INTEGER id_id
17467   CHARACTER*80 emess
17468   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17469     WRITE(emess,*)'nl_set_auxinput8_begin_y: Out of range domain number: ',id_id
17470     CALL wrf_error_fatal(emess)
17471   ENDIF
17472   model_config_rec%auxinput8_begin_y(id_id) = auxinput8_begin_y
17473   RETURN
17474 END SUBROUTINE nl_set_auxinput8_begin_y
17475 SUBROUTINE nl_set_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
17476   integer , INTENT(IN) :: auxinput8_begin_mo
17477   INTEGER id_id
17478   CHARACTER*80 emess
17479   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17480     WRITE(emess,*)'nl_set_auxinput8_begin_mo: Out of range domain number: ',id_id
17481     CALL wrf_error_fatal(emess)
17482   ENDIF
17483   model_config_rec%auxinput8_begin_mo(id_id) = auxinput8_begin_mo
17484   RETURN
17485 END SUBROUTINE nl_set_auxinput8_begin_mo
17486 SUBROUTINE nl_set_auxinput8_begin_d ( id_id , auxinput8_begin_d )
17487   integer , INTENT(IN) :: auxinput8_begin_d
17488   INTEGER id_id
17489   CHARACTER*80 emess
17490   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17491     WRITE(emess,*)'nl_set_auxinput8_begin_d: Out of range domain number: ',id_id
17492     CALL wrf_error_fatal(emess)
17493   ENDIF
17494   model_config_rec%auxinput8_begin_d(id_id) = auxinput8_begin_d
17495   RETURN
17496 END SUBROUTINE nl_set_auxinput8_begin_d
17497 SUBROUTINE nl_set_auxinput8_begin_h ( id_id , auxinput8_begin_h )
17498   integer , INTENT(IN) :: auxinput8_begin_h
17499   INTEGER id_id
17500   CHARACTER*80 emess
17501   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17502     WRITE(emess,*)'nl_set_auxinput8_begin_h: Out of range domain number: ',id_id
17503     CALL wrf_error_fatal(emess)
17504   ENDIF
17505   model_config_rec%auxinput8_begin_h(id_id) = auxinput8_begin_h
17506   RETURN
17507 END SUBROUTINE nl_set_auxinput8_begin_h
17508 SUBROUTINE nl_set_auxinput8_begin_m ( id_id , auxinput8_begin_m )
17509   integer , INTENT(IN) :: auxinput8_begin_m
17510   INTEGER id_id
17511   CHARACTER*80 emess
17512   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17513     WRITE(emess,*)'nl_set_auxinput8_begin_m: Out of range domain number: ',id_id
17514     CALL wrf_error_fatal(emess)
17515   ENDIF
17516   model_config_rec%auxinput8_begin_m(id_id) = auxinput8_begin_m
17517   RETURN
17518 END SUBROUTINE nl_set_auxinput8_begin_m
17519 SUBROUTINE nl_set_auxinput8_begin_s ( id_id , auxinput8_begin_s )
17520   integer , INTENT(IN) :: auxinput8_begin_s
17521   INTEGER id_id
17522   CHARACTER*80 emess
17523   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17524     WRITE(emess,*)'nl_set_auxinput8_begin_s: Out of range domain number: ',id_id
17525     CALL wrf_error_fatal(emess)
17526   ENDIF
17527   model_config_rec%auxinput8_begin_s(id_id) = auxinput8_begin_s
17528   RETURN
17529 END SUBROUTINE nl_set_auxinput8_begin_s
17530 SUBROUTINE nl_set_auxinput9_begin_y ( id_id , auxinput9_begin_y )
17531   integer , INTENT(IN) :: auxinput9_begin_y
17532   INTEGER id_id
17533   CHARACTER*80 emess
17534   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17535     WRITE(emess,*)'nl_set_auxinput9_begin_y: Out of range domain number: ',id_id
17536     CALL wrf_error_fatal(emess)
17537   ENDIF
17538   model_config_rec%auxinput9_begin_y(id_id) = auxinput9_begin_y
17539   RETURN
17540 END SUBROUTINE nl_set_auxinput9_begin_y
17541 SUBROUTINE nl_set_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
17542   integer , INTENT(IN) :: auxinput9_begin_mo
17543   INTEGER id_id
17544   CHARACTER*80 emess
17545   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17546     WRITE(emess,*)'nl_set_auxinput9_begin_mo: Out of range domain number: ',id_id
17547     CALL wrf_error_fatal(emess)
17548   ENDIF
17549   model_config_rec%auxinput9_begin_mo(id_id) = auxinput9_begin_mo
17550   RETURN
17551 END SUBROUTINE nl_set_auxinput9_begin_mo
17552 SUBROUTINE nl_set_auxinput9_begin_d ( id_id , auxinput9_begin_d )
17553   integer , INTENT(IN) :: auxinput9_begin_d
17554   INTEGER id_id
17555   CHARACTER*80 emess
17556   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17557     WRITE(emess,*)'nl_set_auxinput9_begin_d: Out of range domain number: ',id_id
17558     CALL wrf_error_fatal(emess)
17559   ENDIF
17560   model_config_rec%auxinput9_begin_d(id_id) = auxinput9_begin_d
17561   RETURN
17562 END SUBROUTINE nl_set_auxinput9_begin_d
17563 SUBROUTINE nl_set_auxinput9_begin_h ( id_id , auxinput9_begin_h )
17564   integer , INTENT(IN) :: auxinput9_begin_h
17565   INTEGER id_id
17566   CHARACTER*80 emess
17567   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17568     WRITE(emess,*)'nl_set_auxinput9_begin_h: Out of range domain number: ',id_id
17569     CALL wrf_error_fatal(emess)
17570   ENDIF
17571   model_config_rec%auxinput9_begin_h(id_id) = auxinput9_begin_h
17572   RETURN
17573 END SUBROUTINE nl_set_auxinput9_begin_h
17574 SUBROUTINE nl_set_auxinput9_begin_m ( id_id , auxinput9_begin_m )
17575   integer , INTENT(IN) :: auxinput9_begin_m
17576   INTEGER id_id
17577   CHARACTER*80 emess
17578   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17579     WRITE(emess,*)'nl_set_auxinput9_begin_m: Out of range domain number: ',id_id
17580     CALL wrf_error_fatal(emess)
17581   ENDIF
17582   model_config_rec%auxinput9_begin_m(id_id) = auxinput9_begin_m
17583   RETURN
17584 END SUBROUTINE nl_set_auxinput9_begin_m
17585 SUBROUTINE nl_set_auxinput9_begin_s ( id_id , auxinput9_begin_s )
17586   integer , INTENT(IN) :: auxinput9_begin_s
17587   INTEGER id_id
17588   CHARACTER*80 emess
17589   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17590     WRITE(emess,*)'nl_set_auxinput9_begin_s: Out of range domain number: ',id_id
17591     CALL wrf_error_fatal(emess)
17592   ENDIF
17593   model_config_rec%auxinput9_begin_s(id_id) = auxinput9_begin_s
17594   RETURN
17595 END SUBROUTINE nl_set_auxinput9_begin_s
17596 SUBROUTINE nl_set_gfdda_begin_y ( id_id , gfdda_begin_y )
17597   integer , INTENT(IN) :: gfdda_begin_y
17598   INTEGER id_id
17599   CHARACTER*80 emess
17600   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17601     WRITE(emess,*)'nl_set_gfdda_begin_y: Out of range domain number: ',id_id
17602     CALL wrf_error_fatal(emess)
17603   ENDIF
17604   model_config_rec%gfdda_begin_y(id_id) = gfdda_begin_y
17605   RETURN
17606 END SUBROUTINE nl_set_gfdda_begin_y
17607 SUBROUTINE nl_set_gfdda_begin_mo ( id_id , gfdda_begin_mo )
17608   integer , INTENT(IN) :: gfdda_begin_mo
17609   INTEGER id_id
17610   CHARACTER*80 emess
17611   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17612     WRITE(emess,*)'nl_set_gfdda_begin_mo: Out of range domain number: ',id_id
17613     CALL wrf_error_fatal(emess)
17614   ENDIF
17615   model_config_rec%gfdda_begin_mo(id_id) = gfdda_begin_mo
17616   RETURN
17617 END SUBROUTINE nl_set_gfdda_begin_mo
17618 SUBROUTINE nl_set_gfdda_begin_d ( id_id , gfdda_begin_d )
17619   integer , INTENT(IN) :: gfdda_begin_d
17620   INTEGER id_id
17621   CHARACTER*80 emess
17622   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17623     WRITE(emess,*)'nl_set_gfdda_begin_d: Out of range domain number: ',id_id
17624     CALL wrf_error_fatal(emess)
17625   ENDIF
17626   model_config_rec%gfdda_begin_d(id_id) = gfdda_begin_d
17627   RETURN
17628 END SUBROUTINE nl_set_gfdda_begin_d
17629 SUBROUTINE nl_set_gfdda_begin_h ( id_id , gfdda_begin_h )
17630   integer , INTENT(IN) :: gfdda_begin_h
17631   INTEGER id_id
17632   CHARACTER*80 emess
17633   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17634     WRITE(emess,*)'nl_set_gfdda_begin_h: Out of range domain number: ',id_id
17635     CALL wrf_error_fatal(emess)
17636   ENDIF
17637   model_config_rec%gfdda_begin_h(id_id) = gfdda_begin_h
17638   RETURN
17639 END SUBROUTINE nl_set_gfdda_begin_h
17640 SUBROUTINE nl_set_gfdda_begin_m ( id_id , gfdda_begin_m )
17641   integer , INTENT(IN) :: gfdda_begin_m
17642   INTEGER id_id
17643   CHARACTER*80 emess
17644   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17645     WRITE(emess,*)'nl_set_gfdda_begin_m: Out of range domain number: ',id_id
17646     CALL wrf_error_fatal(emess)
17647   ENDIF
17648   model_config_rec%gfdda_begin_m(id_id) = gfdda_begin_m
17649   RETURN
17650 END SUBROUTINE nl_set_gfdda_begin_m
17651 SUBROUTINE nl_set_gfdda_begin_s ( id_id , gfdda_begin_s )
17652   integer , INTENT(IN) :: gfdda_begin_s
17653   INTEGER id_id
17654   CHARACTER*80 emess
17655   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17656     WRITE(emess,*)'nl_set_gfdda_begin_s: Out of range domain number: ',id_id
17657     CALL wrf_error_fatal(emess)
17658   ENDIF
17659   model_config_rec%gfdda_begin_s(id_id) = gfdda_begin_s
17660   RETURN
17661 END SUBROUTINE nl_set_gfdda_begin_s
17662 SUBROUTINE nl_set_auxinput11_begin_y ( id_id , auxinput11_begin_y )
17663   integer , INTENT(IN) :: auxinput11_begin_y
17664   INTEGER id_id
17665   CHARACTER*80 emess
17666   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17667     WRITE(emess,*)'nl_set_auxinput11_begin_y: Out of range domain number: ',id_id
17668     CALL wrf_error_fatal(emess)
17669   ENDIF
17670   model_config_rec%auxinput11_begin_y(id_id) = auxinput11_begin_y
17671   RETURN
17672 END SUBROUTINE nl_set_auxinput11_begin_y
17673 SUBROUTINE nl_set_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
17674   integer , INTENT(IN) :: auxinput11_begin_mo
17675   INTEGER id_id
17676   CHARACTER*80 emess
17677   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17678     WRITE(emess,*)'nl_set_auxinput11_begin_mo: Out of range domain number: ',id_id
17679     CALL wrf_error_fatal(emess)
17680   ENDIF
17681   model_config_rec%auxinput11_begin_mo(id_id) = auxinput11_begin_mo
17682   RETURN
17683 END SUBROUTINE nl_set_auxinput11_begin_mo
17684 SUBROUTINE nl_set_auxinput11_begin_d ( id_id , auxinput11_begin_d )
17685   integer , INTENT(IN) :: auxinput11_begin_d
17686   INTEGER id_id
17687   CHARACTER*80 emess
17688   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17689     WRITE(emess,*)'nl_set_auxinput11_begin_d: Out of range domain number: ',id_id
17690     CALL wrf_error_fatal(emess)
17691   ENDIF
17692   model_config_rec%auxinput11_begin_d(id_id) = auxinput11_begin_d
17693   RETURN
17694 END SUBROUTINE nl_set_auxinput11_begin_d
17695 SUBROUTINE nl_set_auxinput11_begin_h ( id_id , auxinput11_begin_h )
17696   integer , INTENT(IN) :: auxinput11_begin_h
17697   INTEGER id_id
17698   CHARACTER*80 emess
17699   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17700     WRITE(emess,*)'nl_set_auxinput11_begin_h: Out of range domain number: ',id_id
17701     CALL wrf_error_fatal(emess)
17702   ENDIF
17703   model_config_rec%auxinput11_begin_h(id_id) = auxinput11_begin_h
17704   RETURN
17705 END SUBROUTINE nl_set_auxinput11_begin_h
17706 SUBROUTINE nl_set_auxinput11_begin_m ( id_id , auxinput11_begin_m )
17707   integer , INTENT(IN) :: auxinput11_begin_m
17708   INTEGER id_id
17709   CHARACTER*80 emess
17710   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17711     WRITE(emess,*)'nl_set_auxinput11_begin_m: Out of range domain number: ',id_id
17712     CALL wrf_error_fatal(emess)
17713   ENDIF
17714   model_config_rec%auxinput11_begin_m(id_id) = auxinput11_begin_m
17715   RETURN
17716 END SUBROUTINE nl_set_auxinput11_begin_m
17717 SUBROUTINE nl_set_auxinput11_begin_s ( id_id , auxinput11_begin_s )
17718   integer , INTENT(IN) :: auxinput11_begin_s
17719   INTEGER id_id
17720   CHARACTER*80 emess
17721   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17722     WRITE(emess,*)'nl_set_auxinput11_begin_s: Out of range domain number: ',id_id
17723     CALL wrf_error_fatal(emess)
17724   ENDIF
17725   model_config_rec%auxinput11_begin_s(id_id) = auxinput11_begin_s
17726   RETURN
17727 END SUBROUTINE nl_set_auxinput11_begin_s
17728 SUBROUTINE nl_set_restart_begin_y ( id_id , restart_begin_y )
17729   integer , INTENT(IN) :: restart_begin_y
17730   INTEGER id_id
17731   CHARACTER*80 emess
17732   IF ( id_id .NE. 1 ) THEN
17733     call wrf_debug(1,&
17734 'WARNING in nl_set_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
17735   ENDIF
17736   model_config_rec%restart_begin_y = restart_begin_y 
17737   RETURN
17738 END SUBROUTINE nl_set_restart_begin_y
17739 SUBROUTINE nl_set_restart_begin_mo ( id_id , restart_begin_mo )
17740   integer , INTENT(IN) :: restart_begin_mo
17741   INTEGER id_id
17742   CHARACTER*80 emess
17743   IF ( id_id .NE. 1 ) THEN
17744     call wrf_debug(1,&
17745 'WARNING in nl_set_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
17746   ENDIF
17747   model_config_rec%restart_begin_mo = restart_begin_mo 
17748   RETURN
17749 END SUBROUTINE nl_set_restart_begin_mo
17750 SUBROUTINE nl_set_restart_begin_d ( id_id , restart_begin_d )
17751   integer , INTENT(IN) :: restart_begin_d
17752   INTEGER id_id
17753   CHARACTER*80 emess
17754   IF ( id_id .NE. 1 ) THEN
17755     call wrf_debug(1,&
17756 'WARNING in nl_set_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
17757   ENDIF
17758   model_config_rec%restart_begin_d = restart_begin_d 
17759   RETURN
17760 END SUBROUTINE nl_set_restart_begin_d
17761 SUBROUTINE nl_set_restart_begin_h ( id_id , restart_begin_h )
17762   integer , INTENT(IN) :: restart_begin_h
17763   INTEGER id_id
17764   CHARACTER*80 emess
17765   IF ( id_id .NE. 1 ) THEN
17766     call wrf_debug(1,&
17767 'WARNING in nl_set_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
17768   ENDIF
17769   model_config_rec%restart_begin_h = restart_begin_h 
17770   RETURN
17771 END SUBROUTINE nl_set_restart_begin_h
17772 SUBROUTINE nl_set_restart_begin_m ( id_id , restart_begin_m )
17773   integer , INTENT(IN) :: restart_begin_m
17774   INTEGER id_id
17775   CHARACTER*80 emess
17776   IF ( id_id .NE. 1 ) THEN
17777     call wrf_debug(1,&
17778 'WARNING in nl_set_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
17779   ENDIF
17780   model_config_rec%restart_begin_m = restart_begin_m 
17781   RETURN
17782 END SUBROUTINE nl_set_restart_begin_m
17783 SUBROUTINE nl_set_restart_begin_s ( id_id , restart_begin_s )
17784   integer , INTENT(IN) :: restart_begin_s
17785   INTEGER id_id
17786   CHARACTER*80 emess
17787   IF ( id_id .NE. 1 ) THEN
17788     call wrf_debug(1,&
17789 'WARNING in nl_set_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
17790   ENDIF
17791   model_config_rec%restart_begin_s = restart_begin_s 
17792   RETURN
17793 END SUBROUTINE nl_set_restart_begin_s
17794 SUBROUTINE nl_set_history_end_y ( id_id , history_end_y )
17795   integer , INTENT(IN) :: history_end_y
17796   INTEGER id_id
17797   CHARACTER*80 emess
17798   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17799     WRITE(emess,*)'nl_set_history_end_y: Out of range domain number: ',id_id
17800     CALL wrf_error_fatal(emess)
17801   ENDIF
17802   model_config_rec%history_end_y(id_id) = history_end_y
17803   RETURN
17804 END SUBROUTINE nl_set_history_end_y
17805 SUBROUTINE nl_set_history_end_mo ( id_id , history_end_mo )
17806   integer , INTENT(IN) :: history_end_mo
17807   INTEGER id_id
17808   CHARACTER*80 emess
17809   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17810     WRITE(emess,*)'nl_set_history_end_mo: Out of range domain number: ',id_id
17811     CALL wrf_error_fatal(emess)
17812   ENDIF
17813   model_config_rec%history_end_mo(id_id) = history_end_mo
17814   RETURN
17815 END SUBROUTINE nl_set_history_end_mo
17816 SUBROUTINE nl_set_history_end_d ( id_id , history_end_d )
17817   integer , INTENT(IN) :: history_end_d
17818   INTEGER id_id
17819   CHARACTER*80 emess
17820   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17821     WRITE(emess,*)'nl_set_history_end_d: Out of range domain number: ',id_id
17822     CALL wrf_error_fatal(emess)
17823   ENDIF
17824   model_config_rec%history_end_d(id_id) = history_end_d
17825   RETURN
17826 END SUBROUTINE nl_set_history_end_d
17827 SUBROUTINE nl_set_history_end_h ( id_id , history_end_h )
17828   integer , INTENT(IN) :: history_end_h
17829   INTEGER id_id
17830   CHARACTER*80 emess
17831   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17832     WRITE(emess,*)'nl_set_history_end_h: Out of range domain number: ',id_id
17833     CALL wrf_error_fatal(emess)
17834   ENDIF
17835   model_config_rec%history_end_h(id_id) = history_end_h
17836   RETURN
17837 END SUBROUTINE nl_set_history_end_h
17838 SUBROUTINE nl_set_history_end_m ( id_id , history_end_m )
17839   integer , INTENT(IN) :: history_end_m
17840   INTEGER id_id
17841   CHARACTER*80 emess
17842   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17843     WRITE(emess,*)'nl_set_history_end_m: Out of range domain number: ',id_id
17844     CALL wrf_error_fatal(emess)
17845   ENDIF
17846   model_config_rec%history_end_m(id_id) = history_end_m
17847   RETURN
17848 END SUBROUTINE nl_set_history_end_m
17849 SUBROUTINE nl_set_history_end_s ( id_id , history_end_s )
17850   integer , INTENT(IN) :: history_end_s
17851   INTEGER id_id
17852   CHARACTER*80 emess
17853   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17854     WRITE(emess,*)'nl_set_history_end_s: Out of range domain number: ',id_id
17855     CALL wrf_error_fatal(emess)
17856   ENDIF
17857   model_config_rec%history_end_s(id_id) = history_end_s
17858   RETURN
17859 END SUBROUTINE nl_set_history_end_s
17860 SUBROUTINE nl_set_inputout_end_y ( id_id , inputout_end_y )
17861   integer , INTENT(IN) :: inputout_end_y
17862   INTEGER id_id
17863   CHARACTER*80 emess
17864   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17865     WRITE(emess,*)'nl_set_inputout_end_y: Out of range domain number: ',id_id
17866     CALL wrf_error_fatal(emess)
17867   ENDIF
17868   model_config_rec%inputout_end_y(id_id) = inputout_end_y
17869   RETURN
17870 END SUBROUTINE nl_set_inputout_end_y
17871 SUBROUTINE nl_set_inputout_end_mo ( id_id , inputout_end_mo )
17872   integer , INTENT(IN) :: inputout_end_mo
17873   INTEGER id_id
17874   CHARACTER*80 emess
17875   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17876     WRITE(emess,*)'nl_set_inputout_end_mo: Out of range domain number: ',id_id
17877     CALL wrf_error_fatal(emess)
17878   ENDIF
17879   model_config_rec%inputout_end_mo(id_id) = inputout_end_mo
17880   RETURN
17881 END SUBROUTINE nl_set_inputout_end_mo
17882 SUBROUTINE nl_set_inputout_end_d ( id_id , inputout_end_d )
17883   integer , INTENT(IN) :: inputout_end_d
17884   INTEGER id_id
17885   CHARACTER*80 emess
17886   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17887     WRITE(emess,*)'nl_set_inputout_end_d: Out of range domain number: ',id_id
17888     CALL wrf_error_fatal(emess)
17889   ENDIF
17890   model_config_rec%inputout_end_d(id_id) = inputout_end_d
17891   RETURN
17892 END SUBROUTINE nl_set_inputout_end_d
17893 SUBROUTINE nl_set_inputout_end_h ( id_id , inputout_end_h )
17894   integer , INTENT(IN) :: inputout_end_h
17895   INTEGER id_id
17896   CHARACTER*80 emess
17897   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17898     WRITE(emess,*)'nl_set_inputout_end_h: Out of range domain number: ',id_id
17899     CALL wrf_error_fatal(emess)
17900   ENDIF
17901   model_config_rec%inputout_end_h(id_id) = inputout_end_h
17902   RETURN
17903 END SUBROUTINE nl_set_inputout_end_h
17904 SUBROUTINE nl_set_inputout_end_m ( id_id , inputout_end_m )
17905   integer , INTENT(IN) :: inputout_end_m
17906   INTEGER id_id
17907   CHARACTER*80 emess
17908   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17909     WRITE(emess,*)'nl_set_inputout_end_m: Out of range domain number: ',id_id
17910     CALL wrf_error_fatal(emess)
17911   ENDIF
17912   model_config_rec%inputout_end_m(id_id) = inputout_end_m
17913   RETURN
17914 END SUBROUTINE nl_set_inputout_end_m
17915 SUBROUTINE nl_set_inputout_end_s ( id_id , inputout_end_s )
17916   integer , INTENT(IN) :: inputout_end_s
17917   INTEGER id_id
17918   CHARACTER*80 emess
17919   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17920     WRITE(emess,*)'nl_set_inputout_end_s: Out of range domain number: ',id_id
17921     CALL wrf_error_fatal(emess)
17922   ENDIF
17923   model_config_rec%inputout_end_s(id_id) = inputout_end_s
17924   RETURN
17925 END SUBROUTINE nl_set_inputout_end_s
17926 SUBROUTINE nl_set_auxhist1_end_y ( id_id , auxhist1_end_y )
17927   integer , INTENT(IN) :: auxhist1_end_y
17928   INTEGER id_id
17929   CHARACTER*80 emess
17930   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17931     WRITE(emess,*)'nl_set_auxhist1_end_y: Out of range domain number: ',id_id
17932     CALL wrf_error_fatal(emess)
17933   ENDIF
17934   model_config_rec%auxhist1_end_y(id_id) = auxhist1_end_y
17935   RETURN
17936 END SUBROUTINE nl_set_auxhist1_end_y
17937 SUBROUTINE nl_set_auxhist1_end_mo ( id_id , auxhist1_end_mo )
17938   integer , INTENT(IN) :: auxhist1_end_mo
17939   INTEGER id_id
17940   CHARACTER*80 emess
17941   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17942     WRITE(emess,*)'nl_set_auxhist1_end_mo: Out of range domain number: ',id_id
17943     CALL wrf_error_fatal(emess)
17944   ENDIF
17945   model_config_rec%auxhist1_end_mo(id_id) = auxhist1_end_mo
17946   RETURN
17947 END SUBROUTINE nl_set_auxhist1_end_mo
17948 SUBROUTINE nl_set_auxhist1_end_d ( id_id , auxhist1_end_d )
17949   integer , INTENT(IN) :: auxhist1_end_d
17950   INTEGER id_id
17951   CHARACTER*80 emess
17952   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17953     WRITE(emess,*)'nl_set_auxhist1_end_d: Out of range domain number: ',id_id
17954     CALL wrf_error_fatal(emess)
17955   ENDIF
17956   model_config_rec%auxhist1_end_d(id_id) = auxhist1_end_d
17957   RETURN
17958 END SUBROUTINE nl_set_auxhist1_end_d
17959 SUBROUTINE nl_set_auxhist1_end_h ( id_id , auxhist1_end_h )
17960   integer , INTENT(IN) :: auxhist1_end_h
17961   INTEGER id_id
17962   CHARACTER*80 emess
17963   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17964     WRITE(emess,*)'nl_set_auxhist1_end_h: Out of range domain number: ',id_id
17965     CALL wrf_error_fatal(emess)
17966   ENDIF
17967   model_config_rec%auxhist1_end_h(id_id) = auxhist1_end_h
17968   RETURN
17969 END SUBROUTINE nl_set_auxhist1_end_h
17970 SUBROUTINE nl_set_auxhist1_end_m ( id_id , auxhist1_end_m )
17971   integer , INTENT(IN) :: auxhist1_end_m
17972   INTEGER id_id
17973   CHARACTER*80 emess
17974   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17975     WRITE(emess,*)'nl_set_auxhist1_end_m: Out of range domain number: ',id_id
17976     CALL wrf_error_fatal(emess)
17977   ENDIF
17978   model_config_rec%auxhist1_end_m(id_id) = auxhist1_end_m
17979   RETURN
17980 END SUBROUTINE nl_set_auxhist1_end_m
17981 SUBROUTINE nl_set_auxhist1_end_s ( id_id , auxhist1_end_s )
17982   integer , INTENT(IN) :: auxhist1_end_s
17983   INTEGER id_id
17984   CHARACTER*80 emess
17985   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17986     WRITE(emess,*)'nl_set_auxhist1_end_s: Out of range domain number: ',id_id
17987     CALL wrf_error_fatal(emess)
17988   ENDIF
17989   model_config_rec%auxhist1_end_s(id_id) = auxhist1_end_s
17990   RETURN
17991 END SUBROUTINE nl_set_auxhist1_end_s
17992 SUBROUTINE nl_set_auxhist2_end_y ( id_id , auxhist2_end_y )
17993   integer , INTENT(IN) :: auxhist2_end_y
17994   INTEGER id_id
17995   CHARACTER*80 emess
17996   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17997     WRITE(emess,*)'nl_set_auxhist2_end_y: Out of range domain number: ',id_id
17998     CALL wrf_error_fatal(emess)
17999   ENDIF
18000   model_config_rec%auxhist2_end_y(id_id) = auxhist2_end_y
18001   RETURN
18002 END SUBROUTINE nl_set_auxhist2_end_y
18003 SUBROUTINE nl_set_auxhist2_end_mo ( id_id , auxhist2_end_mo )
18004   integer , INTENT(IN) :: auxhist2_end_mo
18005   INTEGER id_id
18006   CHARACTER*80 emess
18007   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18008     WRITE(emess,*)'nl_set_auxhist2_end_mo: Out of range domain number: ',id_id
18009     CALL wrf_error_fatal(emess)
18010   ENDIF
18011   model_config_rec%auxhist2_end_mo(id_id) = auxhist2_end_mo
18012   RETURN
18013 END SUBROUTINE nl_set_auxhist2_end_mo
18014 SUBROUTINE nl_set_auxhist2_end_d ( id_id , auxhist2_end_d )
18015   integer , INTENT(IN) :: auxhist2_end_d
18016   INTEGER id_id
18017   CHARACTER*80 emess
18018   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18019     WRITE(emess,*)'nl_set_auxhist2_end_d: Out of range domain number: ',id_id
18020     CALL wrf_error_fatal(emess)
18021   ENDIF
18022   model_config_rec%auxhist2_end_d(id_id) = auxhist2_end_d
18023   RETURN
18024 END SUBROUTINE nl_set_auxhist2_end_d
18025 SUBROUTINE nl_set_auxhist2_end_h ( id_id , auxhist2_end_h )
18026   integer , INTENT(IN) :: auxhist2_end_h
18027   INTEGER id_id
18028   CHARACTER*80 emess
18029   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18030     WRITE(emess,*)'nl_set_auxhist2_end_h: Out of range domain number: ',id_id
18031     CALL wrf_error_fatal(emess)
18032   ENDIF
18033   model_config_rec%auxhist2_end_h(id_id) = auxhist2_end_h
18034   RETURN
18035 END SUBROUTINE nl_set_auxhist2_end_h
18036 SUBROUTINE nl_set_auxhist2_end_m ( id_id , auxhist2_end_m )
18037   integer , INTENT(IN) :: auxhist2_end_m
18038   INTEGER id_id
18039   CHARACTER*80 emess
18040   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18041     WRITE(emess,*)'nl_set_auxhist2_end_m: Out of range domain number: ',id_id
18042     CALL wrf_error_fatal(emess)
18043   ENDIF
18044   model_config_rec%auxhist2_end_m(id_id) = auxhist2_end_m
18045   RETURN
18046 END SUBROUTINE nl_set_auxhist2_end_m
18047 SUBROUTINE nl_set_auxhist2_end_s ( id_id , auxhist2_end_s )
18048   integer , INTENT(IN) :: auxhist2_end_s
18049   INTEGER id_id
18050   CHARACTER*80 emess
18051   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18052     WRITE(emess,*)'nl_set_auxhist2_end_s: Out of range domain number: ',id_id
18053     CALL wrf_error_fatal(emess)
18054   ENDIF
18055   model_config_rec%auxhist2_end_s(id_id) = auxhist2_end_s
18056   RETURN
18057 END SUBROUTINE nl_set_auxhist2_end_s
18058 SUBROUTINE nl_set_auxhist3_end_y ( id_id , auxhist3_end_y )
18059   integer , INTENT(IN) :: auxhist3_end_y
18060   INTEGER id_id
18061   CHARACTER*80 emess
18062   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18063     WRITE(emess,*)'nl_set_auxhist3_end_y: Out of range domain number: ',id_id
18064     CALL wrf_error_fatal(emess)
18065   ENDIF
18066   model_config_rec%auxhist3_end_y(id_id) = auxhist3_end_y
18067   RETURN
18068 END SUBROUTINE nl_set_auxhist3_end_y
18069 SUBROUTINE nl_set_auxhist3_end_mo ( id_id , auxhist3_end_mo )
18070   integer , INTENT(IN) :: auxhist3_end_mo
18071   INTEGER id_id
18072   CHARACTER*80 emess
18073   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18074     WRITE(emess,*)'nl_set_auxhist3_end_mo: Out of range domain number: ',id_id
18075     CALL wrf_error_fatal(emess)
18076   ENDIF
18077   model_config_rec%auxhist3_end_mo(id_id) = auxhist3_end_mo
18078   RETURN
18079 END SUBROUTINE nl_set_auxhist3_end_mo
18080 SUBROUTINE nl_set_auxhist3_end_d ( id_id , auxhist3_end_d )
18081   integer , INTENT(IN) :: auxhist3_end_d
18082   INTEGER id_id
18083   CHARACTER*80 emess
18084   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18085     WRITE(emess,*)'nl_set_auxhist3_end_d: Out of range domain number: ',id_id
18086     CALL wrf_error_fatal(emess)
18087   ENDIF
18088   model_config_rec%auxhist3_end_d(id_id) = auxhist3_end_d
18089   RETURN
18090 END SUBROUTINE nl_set_auxhist3_end_d
18091 SUBROUTINE nl_set_auxhist3_end_h ( id_id , auxhist3_end_h )
18092   integer , INTENT(IN) :: auxhist3_end_h
18093   INTEGER id_id
18094   CHARACTER*80 emess
18095   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18096     WRITE(emess,*)'nl_set_auxhist3_end_h: Out of range domain number: ',id_id
18097     CALL wrf_error_fatal(emess)
18098   ENDIF
18099   model_config_rec%auxhist3_end_h(id_id) = auxhist3_end_h
18100   RETURN
18101 END SUBROUTINE nl_set_auxhist3_end_h
18102 SUBROUTINE nl_set_auxhist3_end_m ( id_id , auxhist3_end_m )
18103   integer , INTENT(IN) :: auxhist3_end_m
18104   INTEGER id_id
18105   CHARACTER*80 emess
18106   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18107     WRITE(emess,*)'nl_set_auxhist3_end_m: Out of range domain number: ',id_id
18108     CALL wrf_error_fatal(emess)
18109   ENDIF
18110   model_config_rec%auxhist3_end_m(id_id) = auxhist3_end_m
18111   RETURN
18112 END SUBROUTINE nl_set_auxhist3_end_m
18113 SUBROUTINE nl_set_auxhist3_end_s ( id_id , auxhist3_end_s )
18114   integer , INTENT(IN) :: auxhist3_end_s
18115   INTEGER id_id
18116   CHARACTER*80 emess
18117   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18118     WRITE(emess,*)'nl_set_auxhist3_end_s: Out of range domain number: ',id_id
18119     CALL wrf_error_fatal(emess)
18120   ENDIF
18121   model_config_rec%auxhist3_end_s(id_id) = auxhist3_end_s
18122   RETURN
18123 END SUBROUTINE nl_set_auxhist3_end_s
18124 SUBROUTINE nl_set_auxhist4_end_y ( id_id , auxhist4_end_y )
18125   integer , INTENT(IN) :: auxhist4_end_y
18126   INTEGER id_id
18127   CHARACTER*80 emess
18128   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18129     WRITE(emess,*)'nl_set_auxhist4_end_y: Out of range domain number: ',id_id
18130     CALL wrf_error_fatal(emess)
18131   ENDIF
18132   model_config_rec%auxhist4_end_y(id_id) = auxhist4_end_y
18133   RETURN
18134 END SUBROUTINE nl_set_auxhist4_end_y
18135 SUBROUTINE nl_set_auxhist4_end_mo ( id_id , auxhist4_end_mo )
18136   integer , INTENT(IN) :: auxhist4_end_mo
18137   INTEGER id_id
18138   CHARACTER*80 emess
18139   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18140     WRITE(emess,*)'nl_set_auxhist4_end_mo: Out of range domain number: ',id_id
18141     CALL wrf_error_fatal(emess)
18142   ENDIF
18143   model_config_rec%auxhist4_end_mo(id_id) = auxhist4_end_mo
18144   RETURN
18145 END SUBROUTINE nl_set_auxhist4_end_mo
18146 SUBROUTINE nl_set_auxhist4_end_d ( id_id , auxhist4_end_d )
18147   integer , INTENT(IN) :: auxhist4_end_d
18148   INTEGER id_id
18149   CHARACTER*80 emess
18150   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18151     WRITE(emess,*)'nl_set_auxhist4_end_d: Out of range domain number: ',id_id
18152     CALL wrf_error_fatal(emess)
18153   ENDIF
18154   model_config_rec%auxhist4_end_d(id_id) = auxhist4_end_d
18155   RETURN
18156 END SUBROUTINE nl_set_auxhist4_end_d
18157 SUBROUTINE nl_set_auxhist4_end_h ( id_id , auxhist4_end_h )
18158   integer , INTENT(IN) :: auxhist4_end_h
18159   INTEGER id_id
18160   CHARACTER*80 emess
18161   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18162     WRITE(emess,*)'nl_set_auxhist4_end_h: Out of range domain number: ',id_id
18163     CALL wrf_error_fatal(emess)
18164   ENDIF
18165   model_config_rec%auxhist4_end_h(id_id) = auxhist4_end_h
18166   RETURN
18167 END SUBROUTINE nl_set_auxhist4_end_h
18168 SUBROUTINE nl_set_auxhist4_end_m ( id_id , auxhist4_end_m )
18169   integer , INTENT(IN) :: auxhist4_end_m
18170   INTEGER id_id
18171   CHARACTER*80 emess
18172   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18173     WRITE(emess,*)'nl_set_auxhist4_end_m: Out of range domain number: ',id_id
18174     CALL wrf_error_fatal(emess)
18175   ENDIF
18176   model_config_rec%auxhist4_end_m(id_id) = auxhist4_end_m
18177   RETURN
18178 END SUBROUTINE nl_set_auxhist4_end_m
18179 SUBROUTINE nl_set_auxhist4_end_s ( id_id , auxhist4_end_s )
18180   integer , INTENT(IN) :: auxhist4_end_s
18181   INTEGER id_id
18182   CHARACTER*80 emess
18183   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18184     WRITE(emess,*)'nl_set_auxhist4_end_s: Out of range domain number: ',id_id
18185     CALL wrf_error_fatal(emess)
18186   ENDIF
18187   model_config_rec%auxhist4_end_s(id_id) = auxhist4_end_s
18188   RETURN
18189 END SUBROUTINE nl_set_auxhist4_end_s
18190 SUBROUTINE nl_set_auxhist5_end_y ( id_id , auxhist5_end_y )
18191   integer , INTENT(IN) :: auxhist5_end_y
18192   INTEGER id_id
18193   CHARACTER*80 emess
18194   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18195     WRITE(emess,*)'nl_set_auxhist5_end_y: Out of range domain number: ',id_id
18196     CALL wrf_error_fatal(emess)
18197   ENDIF
18198   model_config_rec%auxhist5_end_y(id_id) = auxhist5_end_y
18199   RETURN
18200 END SUBROUTINE nl_set_auxhist5_end_y
18201 SUBROUTINE nl_set_auxhist5_end_mo ( id_id , auxhist5_end_mo )
18202   integer , INTENT(IN) :: auxhist5_end_mo
18203   INTEGER id_id
18204   CHARACTER*80 emess
18205   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18206     WRITE(emess,*)'nl_set_auxhist5_end_mo: Out of range domain number: ',id_id
18207     CALL wrf_error_fatal(emess)
18208   ENDIF
18209   model_config_rec%auxhist5_end_mo(id_id) = auxhist5_end_mo
18210   RETURN
18211 END SUBROUTINE nl_set_auxhist5_end_mo
18212 SUBROUTINE nl_set_auxhist5_end_d ( id_id , auxhist5_end_d )
18213   integer , INTENT(IN) :: auxhist5_end_d
18214   INTEGER id_id
18215   CHARACTER*80 emess
18216   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18217     WRITE(emess,*)'nl_set_auxhist5_end_d: Out of range domain number: ',id_id
18218     CALL wrf_error_fatal(emess)
18219   ENDIF
18220   model_config_rec%auxhist5_end_d(id_id) = auxhist5_end_d
18221   RETURN
18222 END SUBROUTINE nl_set_auxhist5_end_d
18223 SUBROUTINE nl_set_auxhist5_end_h ( id_id , auxhist5_end_h )
18224   integer , INTENT(IN) :: auxhist5_end_h
18225   INTEGER id_id
18226   CHARACTER*80 emess
18227   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18228     WRITE(emess,*)'nl_set_auxhist5_end_h: Out of range domain number: ',id_id
18229     CALL wrf_error_fatal(emess)
18230   ENDIF
18231   model_config_rec%auxhist5_end_h(id_id) = auxhist5_end_h
18232   RETURN
18233 END SUBROUTINE nl_set_auxhist5_end_h
18234 SUBROUTINE nl_set_auxhist5_end_m ( id_id , auxhist5_end_m )
18235   integer , INTENT(IN) :: auxhist5_end_m
18236   INTEGER id_id
18237   CHARACTER*80 emess
18238   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18239     WRITE(emess,*)'nl_set_auxhist5_end_m: Out of range domain number: ',id_id
18240     CALL wrf_error_fatal(emess)
18241   ENDIF
18242   model_config_rec%auxhist5_end_m(id_id) = auxhist5_end_m
18243   RETURN
18244 END SUBROUTINE nl_set_auxhist5_end_m
18245 SUBROUTINE nl_set_auxhist5_end_s ( id_id , auxhist5_end_s )
18246   integer , INTENT(IN) :: auxhist5_end_s
18247   INTEGER id_id
18248   CHARACTER*80 emess
18249   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18250     WRITE(emess,*)'nl_set_auxhist5_end_s: Out of range domain number: ',id_id
18251     CALL wrf_error_fatal(emess)
18252   ENDIF
18253   model_config_rec%auxhist5_end_s(id_id) = auxhist5_end_s
18254   RETURN
18255 END SUBROUTINE nl_set_auxhist5_end_s
18256 SUBROUTINE nl_set_auxhist6_end_y ( id_id , auxhist6_end_y )
18257   integer , INTENT(IN) :: auxhist6_end_y
18258   INTEGER id_id
18259   CHARACTER*80 emess
18260   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18261     WRITE(emess,*)'nl_set_auxhist6_end_y: Out of range domain number: ',id_id
18262     CALL wrf_error_fatal(emess)
18263   ENDIF
18264   model_config_rec%auxhist6_end_y(id_id) = auxhist6_end_y
18265   RETURN
18266 END SUBROUTINE nl_set_auxhist6_end_y
18267 SUBROUTINE nl_set_auxhist6_end_mo ( id_id , auxhist6_end_mo )
18268   integer , INTENT(IN) :: auxhist6_end_mo
18269   INTEGER id_id
18270   CHARACTER*80 emess
18271   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18272     WRITE(emess,*)'nl_set_auxhist6_end_mo: Out of range domain number: ',id_id
18273     CALL wrf_error_fatal(emess)
18274   ENDIF
18275   model_config_rec%auxhist6_end_mo(id_id) = auxhist6_end_mo
18276   RETURN
18277 END SUBROUTINE nl_set_auxhist6_end_mo
18278 SUBROUTINE nl_set_auxhist6_end_d ( id_id , auxhist6_end_d )
18279   integer , INTENT(IN) :: auxhist6_end_d
18280   INTEGER id_id
18281   CHARACTER*80 emess
18282   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18283     WRITE(emess,*)'nl_set_auxhist6_end_d: Out of range domain number: ',id_id
18284     CALL wrf_error_fatal(emess)
18285   ENDIF
18286   model_config_rec%auxhist6_end_d(id_id) = auxhist6_end_d
18287   RETURN
18288 END SUBROUTINE nl_set_auxhist6_end_d
18289 SUBROUTINE nl_set_auxhist6_end_h ( id_id , auxhist6_end_h )
18290   integer , INTENT(IN) :: auxhist6_end_h
18291   INTEGER id_id
18292   CHARACTER*80 emess
18293   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18294     WRITE(emess,*)'nl_set_auxhist6_end_h: Out of range domain number: ',id_id
18295     CALL wrf_error_fatal(emess)
18296   ENDIF
18297   model_config_rec%auxhist6_end_h(id_id) = auxhist6_end_h
18298   RETURN
18299 END SUBROUTINE nl_set_auxhist6_end_h
18300 SUBROUTINE nl_set_auxhist6_end_m ( id_id , auxhist6_end_m )
18301   integer , INTENT(IN) :: auxhist6_end_m
18302   INTEGER id_id
18303   CHARACTER*80 emess
18304   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18305     WRITE(emess,*)'nl_set_auxhist6_end_m: Out of range domain number: ',id_id
18306     CALL wrf_error_fatal(emess)
18307   ENDIF
18308   model_config_rec%auxhist6_end_m(id_id) = auxhist6_end_m
18309   RETURN
18310 END SUBROUTINE nl_set_auxhist6_end_m
18311 SUBROUTINE nl_set_auxhist6_end_s ( id_id , auxhist6_end_s )
18312   integer , INTENT(IN) :: auxhist6_end_s
18313   INTEGER id_id
18314   CHARACTER*80 emess
18315   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18316     WRITE(emess,*)'nl_set_auxhist6_end_s: Out of range domain number: ',id_id
18317     CALL wrf_error_fatal(emess)
18318   ENDIF
18319   model_config_rec%auxhist6_end_s(id_id) = auxhist6_end_s
18320   RETURN
18321 END SUBROUTINE nl_set_auxhist6_end_s
18322 SUBROUTINE nl_set_auxhist7_end_y ( id_id , auxhist7_end_y )
18323   integer , INTENT(IN) :: auxhist7_end_y
18324   INTEGER id_id
18325   CHARACTER*80 emess
18326   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18327     WRITE(emess,*)'nl_set_auxhist7_end_y: Out of range domain number: ',id_id
18328     CALL wrf_error_fatal(emess)
18329   ENDIF
18330   model_config_rec%auxhist7_end_y(id_id) = auxhist7_end_y
18331   RETURN
18332 END SUBROUTINE nl_set_auxhist7_end_y
18333 SUBROUTINE nl_set_auxhist7_end_mo ( id_id , auxhist7_end_mo )
18334   integer , INTENT(IN) :: auxhist7_end_mo
18335   INTEGER id_id
18336   CHARACTER*80 emess
18337   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18338     WRITE(emess,*)'nl_set_auxhist7_end_mo: Out of range domain number: ',id_id
18339     CALL wrf_error_fatal(emess)
18340   ENDIF
18341   model_config_rec%auxhist7_end_mo(id_id) = auxhist7_end_mo
18342   RETURN
18343 END SUBROUTINE nl_set_auxhist7_end_mo
18344 SUBROUTINE nl_set_auxhist7_end_d ( id_id , auxhist7_end_d )
18345   integer , INTENT(IN) :: auxhist7_end_d
18346   INTEGER id_id
18347   CHARACTER*80 emess
18348   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18349     WRITE(emess,*)'nl_set_auxhist7_end_d: Out of range domain number: ',id_id
18350     CALL wrf_error_fatal(emess)
18351   ENDIF
18352   model_config_rec%auxhist7_end_d(id_id) = auxhist7_end_d
18353   RETURN
18354 END SUBROUTINE nl_set_auxhist7_end_d
18355 SUBROUTINE nl_set_auxhist7_end_h ( id_id , auxhist7_end_h )
18356   integer , INTENT(IN) :: auxhist7_end_h
18357   INTEGER id_id
18358   CHARACTER*80 emess
18359   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18360     WRITE(emess,*)'nl_set_auxhist7_end_h: Out of range domain number: ',id_id
18361     CALL wrf_error_fatal(emess)
18362   ENDIF
18363   model_config_rec%auxhist7_end_h(id_id) = auxhist7_end_h
18364   RETURN
18365 END SUBROUTINE nl_set_auxhist7_end_h
18366 SUBROUTINE nl_set_auxhist7_end_m ( id_id , auxhist7_end_m )
18367   integer , INTENT(IN) :: auxhist7_end_m
18368   INTEGER id_id
18369   CHARACTER*80 emess
18370   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18371     WRITE(emess,*)'nl_set_auxhist7_end_m: Out of range domain number: ',id_id
18372     CALL wrf_error_fatal(emess)
18373   ENDIF
18374   model_config_rec%auxhist7_end_m(id_id) = auxhist7_end_m
18375   RETURN
18376 END SUBROUTINE nl_set_auxhist7_end_m
18377 SUBROUTINE nl_set_auxhist7_end_s ( id_id , auxhist7_end_s )
18378   integer , INTENT(IN) :: auxhist7_end_s
18379   INTEGER id_id
18380   CHARACTER*80 emess
18381   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18382     WRITE(emess,*)'nl_set_auxhist7_end_s: Out of range domain number: ',id_id
18383     CALL wrf_error_fatal(emess)
18384   ENDIF
18385   model_config_rec%auxhist7_end_s(id_id) = auxhist7_end_s
18386   RETURN
18387 END SUBROUTINE nl_set_auxhist7_end_s
18388 SUBROUTINE nl_set_auxhist8_end_y ( id_id , auxhist8_end_y )
18389   integer , INTENT(IN) :: auxhist8_end_y
18390   INTEGER id_id
18391   CHARACTER*80 emess
18392   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18393     WRITE(emess,*)'nl_set_auxhist8_end_y: Out of range domain number: ',id_id
18394     CALL wrf_error_fatal(emess)
18395   ENDIF
18396   model_config_rec%auxhist8_end_y(id_id) = auxhist8_end_y
18397   RETURN
18398 END SUBROUTINE nl_set_auxhist8_end_y
18399 SUBROUTINE nl_set_auxhist8_end_mo ( id_id , auxhist8_end_mo )
18400   integer , INTENT(IN) :: auxhist8_end_mo
18401   INTEGER id_id
18402   CHARACTER*80 emess
18403   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18404     WRITE(emess,*)'nl_set_auxhist8_end_mo: Out of range domain number: ',id_id
18405     CALL wrf_error_fatal(emess)
18406   ENDIF
18407   model_config_rec%auxhist8_end_mo(id_id) = auxhist8_end_mo
18408   RETURN
18409 END SUBROUTINE nl_set_auxhist8_end_mo
18410 SUBROUTINE nl_set_auxhist8_end_d ( id_id , auxhist8_end_d )
18411   integer , INTENT(IN) :: auxhist8_end_d
18412   INTEGER id_id
18413   CHARACTER*80 emess
18414   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18415     WRITE(emess,*)'nl_set_auxhist8_end_d: Out of range domain number: ',id_id
18416     CALL wrf_error_fatal(emess)
18417   ENDIF
18418   model_config_rec%auxhist8_end_d(id_id) = auxhist8_end_d
18419   RETURN
18420 END SUBROUTINE nl_set_auxhist8_end_d
18421 SUBROUTINE nl_set_auxhist8_end_h ( id_id , auxhist8_end_h )
18422   integer , INTENT(IN) :: auxhist8_end_h
18423   INTEGER id_id
18424   CHARACTER*80 emess
18425   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18426     WRITE(emess,*)'nl_set_auxhist8_end_h: Out of range domain number: ',id_id
18427     CALL wrf_error_fatal(emess)
18428   ENDIF
18429   model_config_rec%auxhist8_end_h(id_id) = auxhist8_end_h
18430   RETURN
18431 END SUBROUTINE nl_set_auxhist8_end_h
18432 SUBROUTINE nl_set_auxhist8_end_m ( id_id , auxhist8_end_m )
18433   integer , INTENT(IN) :: auxhist8_end_m
18434   INTEGER id_id
18435   CHARACTER*80 emess
18436   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18437     WRITE(emess,*)'nl_set_auxhist8_end_m: Out of range domain number: ',id_id
18438     CALL wrf_error_fatal(emess)
18439   ENDIF
18440   model_config_rec%auxhist8_end_m(id_id) = auxhist8_end_m
18441   RETURN
18442 END SUBROUTINE nl_set_auxhist8_end_m
18443 SUBROUTINE nl_set_auxhist8_end_s ( id_id , auxhist8_end_s )
18444   integer , INTENT(IN) :: auxhist8_end_s
18445   INTEGER id_id
18446   CHARACTER*80 emess
18447   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18448     WRITE(emess,*)'nl_set_auxhist8_end_s: Out of range domain number: ',id_id
18449     CALL wrf_error_fatal(emess)
18450   ENDIF
18451   model_config_rec%auxhist8_end_s(id_id) = auxhist8_end_s
18452   RETURN
18453 END SUBROUTINE nl_set_auxhist8_end_s
18454 SUBROUTINE nl_set_auxhist9_end_y ( id_id , auxhist9_end_y )
18455   integer , INTENT(IN) :: auxhist9_end_y
18456   INTEGER id_id
18457   CHARACTER*80 emess
18458   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18459     WRITE(emess,*)'nl_set_auxhist9_end_y: Out of range domain number: ',id_id
18460     CALL wrf_error_fatal(emess)
18461   ENDIF
18462   model_config_rec%auxhist9_end_y(id_id) = auxhist9_end_y
18463   RETURN
18464 END SUBROUTINE nl_set_auxhist9_end_y
18465 SUBROUTINE nl_set_auxhist9_end_mo ( id_id , auxhist9_end_mo )
18466   integer , INTENT(IN) :: auxhist9_end_mo
18467   INTEGER id_id
18468   CHARACTER*80 emess
18469   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18470     WRITE(emess,*)'nl_set_auxhist9_end_mo: Out of range domain number: ',id_id
18471     CALL wrf_error_fatal(emess)
18472   ENDIF
18473   model_config_rec%auxhist9_end_mo(id_id) = auxhist9_end_mo
18474   RETURN
18475 END SUBROUTINE nl_set_auxhist9_end_mo
18476 SUBROUTINE nl_set_auxhist9_end_d ( id_id , auxhist9_end_d )
18477   integer , INTENT(IN) :: auxhist9_end_d
18478   INTEGER id_id
18479   CHARACTER*80 emess
18480   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18481     WRITE(emess,*)'nl_set_auxhist9_end_d: Out of range domain number: ',id_id
18482     CALL wrf_error_fatal(emess)
18483   ENDIF
18484   model_config_rec%auxhist9_end_d(id_id) = auxhist9_end_d
18485   RETURN
18486 END SUBROUTINE nl_set_auxhist9_end_d
18487 SUBROUTINE nl_set_auxhist9_end_h ( id_id , auxhist9_end_h )
18488   integer , INTENT(IN) :: auxhist9_end_h
18489   INTEGER id_id
18490   CHARACTER*80 emess
18491   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18492     WRITE(emess,*)'nl_set_auxhist9_end_h: Out of range domain number: ',id_id
18493     CALL wrf_error_fatal(emess)
18494   ENDIF
18495   model_config_rec%auxhist9_end_h(id_id) = auxhist9_end_h
18496   RETURN
18497 END SUBROUTINE nl_set_auxhist9_end_h
18498 SUBROUTINE nl_set_auxhist9_end_m ( id_id , auxhist9_end_m )
18499   integer , INTENT(IN) :: auxhist9_end_m
18500   INTEGER id_id
18501   CHARACTER*80 emess
18502   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18503     WRITE(emess,*)'nl_set_auxhist9_end_m: Out of range domain number: ',id_id
18504     CALL wrf_error_fatal(emess)
18505   ENDIF
18506   model_config_rec%auxhist9_end_m(id_id) = auxhist9_end_m
18507   RETURN
18508 END SUBROUTINE nl_set_auxhist9_end_m
18509 SUBROUTINE nl_set_auxhist9_end_s ( id_id , auxhist9_end_s )
18510   integer , INTENT(IN) :: auxhist9_end_s
18511   INTEGER id_id
18512   CHARACTER*80 emess
18513   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18514     WRITE(emess,*)'nl_set_auxhist9_end_s: Out of range domain number: ',id_id
18515     CALL wrf_error_fatal(emess)
18516   ENDIF
18517   model_config_rec%auxhist9_end_s(id_id) = auxhist9_end_s
18518   RETURN
18519 END SUBROUTINE nl_set_auxhist9_end_s
18520 SUBROUTINE nl_set_auxhist10_end_y ( id_id , auxhist10_end_y )
18521   integer , INTENT(IN) :: auxhist10_end_y
18522   INTEGER id_id
18523   CHARACTER*80 emess
18524   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18525     WRITE(emess,*)'nl_set_auxhist10_end_y: Out of range domain number: ',id_id
18526     CALL wrf_error_fatal(emess)
18527   ENDIF
18528   model_config_rec%auxhist10_end_y(id_id) = auxhist10_end_y
18529   RETURN
18530 END SUBROUTINE nl_set_auxhist10_end_y
18531 SUBROUTINE nl_set_auxhist10_end_mo ( id_id , auxhist10_end_mo )
18532   integer , INTENT(IN) :: auxhist10_end_mo
18533   INTEGER id_id
18534   CHARACTER*80 emess
18535   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18536     WRITE(emess,*)'nl_set_auxhist10_end_mo: Out of range domain number: ',id_id
18537     CALL wrf_error_fatal(emess)
18538   ENDIF
18539   model_config_rec%auxhist10_end_mo(id_id) = auxhist10_end_mo
18540   RETURN
18541 END SUBROUTINE nl_set_auxhist10_end_mo
18542 SUBROUTINE nl_set_auxhist10_end_d ( id_id , auxhist10_end_d )
18543   integer , INTENT(IN) :: auxhist10_end_d
18544   INTEGER id_id
18545   CHARACTER*80 emess
18546   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18547     WRITE(emess,*)'nl_set_auxhist10_end_d: Out of range domain number: ',id_id
18548     CALL wrf_error_fatal(emess)
18549   ENDIF
18550   model_config_rec%auxhist10_end_d(id_id) = auxhist10_end_d
18551   RETURN
18552 END SUBROUTINE nl_set_auxhist10_end_d
18553 SUBROUTINE nl_set_auxhist10_end_h ( id_id , auxhist10_end_h )
18554   integer , INTENT(IN) :: auxhist10_end_h
18555   INTEGER id_id
18556   CHARACTER*80 emess
18557   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18558     WRITE(emess,*)'nl_set_auxhist10_end_h: Out of range domain number: ',id_id
18559     CALL wrf_error_fatal(emess)
18560   ENDIF
18561   model_config_rec%auxhist10_end_h(id_id) = auxhist10_end_h
18562   RETURN
18563 END SUBROUTINE nl_set_auxhist10_end_h
18564 SUBROUTINE nl_set_auxhist10_end_m ( id_id , auxhist10_end_m )
18565   integer , INTENT(IN) :: auxhist10_end_m
18566   INTEGER id_id
18567   CHARACTER*80 emess
18568   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18569     WRITE(emess,*)'nl_set_auxhist10_end_m: Out of range domain number: ',id_id
18570     CALL wrf_error_fatal(emess)
18571   ENDIF
18572   model_config_rec%auxhist10_end_m(id_id) = auxhist10_end_m
18573   RETURN
18574 END SUBROUTINE nl_set_auxhist10_end_m
18575 SUBROUTINE nl_set_auxhist10_end_s ( id_id , auxhist10_end_s )
18576   integer , INTENT(IN) :: auxhist10_end_s
18577   INTEGER id_id
18578   CHARACTER*80 emess
18579   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18580     WRITE(emess,*)'nl_set_auxhist10_end_s: Out of range domain number: ',id_id
18581     CALL wrf_error_fatal(emess)
18582   ENDIF
18583   model_config_rec%auxhist10_end_s(id_id) = auxhist10_end_s
18584   RETURN
18585 END SUBROUTINE nl_set_auxhist10_end_s
18586 SUBROUTINE nl_set_auxhist11_end_y ( id_id , auxhist11_end_y )
18587   integer , INTENT(IN) :: auxhist11_end_y
18588   INTEGER id_id
18589   CHARACTER*80 emess
18590   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18591     WRITE(emess,*)'nl_set_auxhist11_end_y: Out of range domain number: ',id_id
18592     CALL wrf_error_fatal(emess)
18593   ENDIF
18594   model_config_rec%auxhist11_end_y(id_id) = auxhist11_end_y
18595   RETURN
18596 END SUBROUTINE nl_set_auxhist11_end_y
18597 SUBROUTINE nl_set_auxhist11_end_mo ( id_id , auxhist11_end_mo )
18598   integer , INTENT(IN) :: auxhist11_end_mo
18599   INTEGER id_id
18600   CHARACTER*80 emess
18601   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18602     WRITE(emess,*)'nl_set_auxhist11_end_mo: Out of range domain number: ',id_id
18603     CALL wrf_error_fatal(emess)
18604   ENDIF
18605   model_config_rec%auxhist11_end_mo(id_id) = auxhist11_end_mo
18606   RETURN
18607 END SUBROUTINE nl_set_auxhist11_end_mo
18608 SUBROUTINE nl_set_auxhist11_end_d ( id_id , auxhist11_end_d )
18609   integer , INTENT(IN) :: auxhist11_end_d
18610   INTEGER id_id
18611   CHARACTER*80 emess
18612   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18613     WRITE(emess,*)'nl_set_auxhist11_end_d: Out of range domain number: ',id_id
18614     CALL wrf_error_fatal(emess)
18615   ENDIF
18616   model_config_rec%auxhist11_end_d(id_id) = auxhist11_end_d
18617   RETURN
18618 END SUBROUTINE nl_set_auxhist11_end_d
18619 SUBROUTINE nl_set_auxhist11_end_h ( id_id , auxhist11_end_h )
18620   integer , INTENT(IN) :: auxhist11_end_h
18621   INTEGER id_id
18622   CHARACTER*80 emess
18623   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18624     WRITE(emess,*)'nl_set_auxhist11_end_h: Out of range domain number: ',id_id
18625     CALL wrf_error_fatal(emess)
18626   ENDIF
18627   model_config_rec%auxhist11_end_h(id_id) = auxhist11_end_h
18628   RETURN
18629 END SUBROUTINE nl_set_auxhist11_end_h
18630 SUBROUTINE nl_set_auxhist11_end_m ( id_id , auxhist11_end_m )
18631   integer , INTENT(IN) :: auxhist11_end_m
18632   INTEGER id_id
18633   CHARACTER*80 emess
18634   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18635     WRITE(emess,*)'nl_set_auxhist11_end_m: Out of range domain number: ',id_id
18636     CALL wrf_error_fatal(emess)
18637   ENDIF
18638   model_config_rec%auxhist11_end_m(id_id) = auxhist11_end_m
18639   RETURN
18640 END SUBROUTINE nl_set_auxhist11_end_m
18641 SUBROUTINE nl_set_auxhist11_end_s ( id_id , auxhist11_end_s )
18642   integer , INTENT(IN) :: auxhist11_end_s
18643   INTEGER id_id
18644   CHARACTER*80 emess
18645   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18646     WRITE(emess,*)'nl_set_auxhist11_end_s: Out of range domain number: ',id_id
18647     CALL wrf_error_fatal(emess)
18648   ENDIF
18649   model_config_rec%auxhist11_end_s(id_id) = auxhist11_end_s
18650   RETURN
18651 END SUBROUTINE nl_set_auxhist11_end_s
18652 SUBROUTINE nl_set_auxinput1_end_y ( id_id , auxinput1_end_y )
18653   integer , INTENT(IN) :: auxinput1_end_y
18654   INTEGER id_id
18655   CHARACTER*80 emess
18656   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18657     WRITE(emess,*)'nl_set_auxinput1_end_y: Out of range domain number: ',id_id
18658     CALL wrf_error_fatal(emess)
18659   ENDIF
18660   model_config_rec%auxinput1_end_y(id_id) = auxinput1_end_y
18661   RETURN
18662 END SUBROUTINE nl_set_auxinput1_end_y
18663 SUBROUTINE nl_set_auxinput1_end_mo ( id_id , auxinput1_end_mo )
18664   integer , INTENT(IN) :: auxinput1_end_mo
18665   INTEGER id_id
18666   CHARACTER*80 emess
18667   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18668     WRITE(emess,*)'nl_set_auxinput1_end_mo: Out of range domain number: ',id_id
18669     CALL wrf_error_fatal(emess)
18670   ENDIF
18671   model_config_rec%auxinput1_end_mo(id_id) = auxinput1_end_mo
18672   RETURN
18673 END SUBROUTINE nl_set_auxinput1_end_mo
18674 SUBROUTINE nl_set_auxinput1_end_d ( id_id , auxinput1_end_d )
18675   integer , INTENT(IN) :: auxinput1_end_d
18676   INTEGER id_id
18677   CHARACTER*80 emess
18678   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18679     WRITE(emess,*)'nl_set_auxinput1_end_d: Out of range domain number: ',id_id
18680     CALL wrf_error_fatal(emess)
18681   ENDIF
18682   model_config_rec%auxinput1_end_d(id_id) = auxinput1_end_d
18683   RETURN
18684 END SUBROUTINE nl_set_auxinput1_end_d
18685 SUBROUTINE nl_set_auxinput1_end_h ( id_id , auxinput1_end_h )
18686   integer , INTENT(IN) :: auxinput1_end_h
18687   INTEGER id_id
18688   CHARACTER*80 emess
18689   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18690     WRITE(emess,*)'nl_set_auxinput1_end_h: Out of range domain number: ',id_id
18691     CALL wrf_error_fatal(emess)
18692   ENDIF
18693   model_config_rec%auxinput1_end_h(id_id) = auxinput1_end_h
18694   RETURN
18695 END SUBROUTINE nl_set_auxinput1_end_h
18696 SUBROUTINE nl_set_auxinput1_end_m ( id_id , auxinput1_end_m )
18697   integer , INTENT(IN) :: auxinput1_end_m
18698   INTEGER id_id
18699   CHARACTER*80 emess
18700   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18701     WRITE(emess,*)'nl_set_auxinput1_end_m: Out of range domain number: ',id_id
18702     CALL wrf_error_fatal(emess)
18703   ENDIF
18704   model_config_rec%auxinput1_end_m(id_id) = auxinput1_end_m
18705   RETURN
18706 END SUBROUTINE nl_set_auxinput1_end_m
18707 SUBROUTINE nl_set_auxinput1_end_s ( id_id , auxinput1_end_s )
18708   integer , INTENT(IN) :: auxinput1_end_s
18709   INTEGER id_id
18710   CHARACTER*80 emess
18711   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18712     WRITE(emess,*)'nl_set_auxinput1_end_s: Out of range domain number: ',id_id
18713     CALL wrf_error_fatal(emess)
18714   ENDIF
18715   model_config_rec%auxinput1_end_s(id_id) = auxinput1_end_s
18716   RETURN
18717 END SUBROUTINE nl_set_auxinput1_end_s
18718 SUBROUTINE nl_set_auxinput2_end_y ( id_id , auxinput2_end_y )
18719   integer , INTENT(IN) :: auxinput2_end_y
18720   INTEGER id_id
18721   CHARACTER*80 emess
18722   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18723     WRITE(emess,*)'nl_set_auxinput2_end_y: Out of range domain number: ',id_id
18724     CALL wrf_error_fatal(emess)
18725   ENDIF
18726   model_config_rec%auxinput2_end_y(id_id) = auxinput2_end_y
18727   RETURN
18728 END SUBROUTINE nl_set_auxinput2_end_y
18729 SUBROUTINE nl_set_auxinput2_end_mo ( id_id , auxinput2_end_mo )
18730   integer , INTENT(IN) :: auxinput2_end_mo
18731   INTEGER id_id
18732   CHARACTER*80 emess
18733   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18734     WRITE(emess,*)'nl_set_auxinput2_end_mo: Out of range domain number: ',id_id
18735     CALL wrf_error_fatal(emess)
18736   ENDIF
18737   model_config_rec%auxinput2_end_mo(id_id) = auxinput2_end_mo
18738   RETURN
18739 END SUBROUTINE nl_set_auxinput2_end_mo
18740 SUBROUTINE nl_set_auxinput2_end_d ( id_id , auxinput2_end_d )
18741   integer , INTENT(IN) :: auxinput2_end_d
18742   INTEGER id_id
18743   CHARACTER*80 emess
18744   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18745     WRITE(emess,*)'nl_set_auxinput2_end_d: Out of range domain number: ',id_id
18746     CALL wrf_error_fatal(emess)
18747   ENDIF
18748   model_config_rec%auxinput2_end_d(id_id) = auxinput2_end_d
18749   RETURN
18750 END SUBROUTINE nl_set_auxinput2_end_d
18751 SUBROUTINE nl_set_auxinput2_end_h ( id_id , auxinput2_end_h )
18752   integer , INTENT(IN) :: auxinput2_end_h
18753   INTEGER id_id
18754   CHARACTER*80 emess
18755   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18756     WRITE(emess,*)'nl_set_auxinput2_end_h: Out of range domain number: ',id_id
18757     CALL wrf_error_fatal(emess)
18758   ENDIF
18759   model_config_rec%auxinput2_end_h(id_id) = auxinput2_end_h
18760   RETURN
18761 END SUBROUTINE nl_set_auxinput2_end_h
18762 SUBROUTINE nl_set_auxinput2_end_m ( id_id , auxinput2_end_m )
18763   integer , INTENT(IN) :: auxinput2_end_m
18764   INTEGER id_id
18765   CHARACTER*80 emess
18766   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18767     WRITE(emess,*)'nl_set_auxinput2_end_m: Out of range domain number: ',id_id
18768     CALL wrf_error_fatal(emess)
18769   ENDIF
18770   model_config_rec%auxinput2_end_m(id_id) = auxinput2_end_m
18771   RETURN
18772 END SUBROUTINE nl_set_auxinput2_end_m
18773 SUBROUTINE nl_set_auxinput2_end_s ( id_id , auxinput2_end_s )
18774   integer , INTENT(IN) :: auxinput2_end_s
18775   INTEGER id_id
18776   CHARACTER*80 emess
18777   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18778     WRITE(emess,*)'nl_set_auxinput2_end_s: Out of range domain number: ',id_id
18779     CALL wrf_error_fatal(emess)
18780   ENDIF
18781   model_config_rec%auxinput2_end_s(id_id) = auxinput2_end_s
18782   RETURN
18783 END SUBROUTINE nl_set_auxinput2_end_s
18784 SUBROUTINE nl_set_auxinput3_end_y ( id_id , auxinput3_end_y )
18785   integer , INTENT(IN) :: auxinput3_end_y
18786   INTEGER id_id
18787   CHARACTER*80 emess
18788   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18789     WRITE(emess,*)'nl_set_auxinput3_end_y: Out of range domain number: ',id_id
18790     CALL wrf_error_fatal(emess)
18791   ENDIF
18792   model_config_rec%auxinput3_end_y(id_id) = auxinput3_end_y
18793   RETURN
18794 END SUBROUTINE nl_set_auxinput3_end_y
18795 SUBROUTINE nl_set_auxinput3_end_mo ( id_id , auxinput3_end_mo )
18796   integer , INTENT(IN) :: auxinput3_end_mo
18797   INTEGER id_id
18798   CHARACTER*80 emess
18799   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18800     WRITE(emess,*)'nl_set_auxinput3_end_mo: Out of range domain number: ',id_id
18801     CALL wrf_error_fatal(emess)
18802   ENDIF
18803   model_config_rec%auxinput3_end_mo(id_id) = auxinput3_end_mo
18804   RETURN
18805 END SUBROUTINE nl_set_auxinput3_end_mo
18806 SUBROUTINE nl_set_auxinput3_end_d ( id_id , auxinput3_end_d )
18807   integer , INTENT(IN) :: auxinput3_end_d
18808   INTEGER id_id
18809   CHARACTER*80 emess
18810   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18811     WRITE(emess,*)'nl_set_auxinput3_end_d: Out of range domain number: ',id_id
18812     CALL wrf_error_fatal(emess)
18813   ENDIF
18814   model_config_rec%auxinput3_end_d(id_id) = auxinput3_end_d
18815   RETURN
18816 END SUBROUTINE nl_set_auxinput3_end_d
18817 SUBROUTINE nl_set_auxinput3_end_h ( id_id , auxinput3_end_h )
18818   integer , INTENT(IN) :: auxinput3_end_h
18819   INTEGER id_id
18820   CHARACTER*80 emess
18821   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18822     WRITE(emess,*)'nl_set_auxinput3_end_h: Out of range domain number: ',id_id
18823     CALL wrf_error_fatal(emess)
18824   ENDIF
18825   model_config_rec%auxinput3_end_h(id_id) = auxinput3_end_h
18826   RETURN
18827 END SUBROUTINE nl_set_auxinput3_end_h
18828 SUBROUTINE nl_set_auxinput3_end_m ( id_id , auxinput3_end_m )
18829   integer , INTENT(IN) :: auxinput3_end_m
18830   INTEGER id_id
18831   CHARACTER*80 emess
18832   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18833     WRITE(emess,*)'nl_set_auxinput3_end_m: Out of range domain number: ',id_id
18834     CALL wrf_error_fatal(emess)
18835   ENDIF
18836   model_config_rec%auxinput3_end_m(id_id) = auxinput3_end_m
18837   RETURN
18838 END SUBROUTINE nl_set_auxinput3_end_m
18839 SUBROUTINE nl_set_auxinput3_end_s ( id_id , auxinput3_end_s )
18840   integer , INTENT(IN) :: auxinput3_end_s
18841   INTEGER id_id
18842   CHARACTER*80 emess
18843   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18844     WRITE(emess,*)'nl_set_auxinput3_end_s: Out of range domain number: ',id_id
18845     CALL wrf_error_fatal(emess)
18846   ENDIF
18847   model_config_rec%auxinput3_end_s(id_id) = auxinput3_end_s
18848   RETURN
18849 END SUBROUTINE nl_set_auxinput3_end_s
18850 SUBROUTINE nl_set_auxinput4_end_y ( id_id , auxinput4_end_y )
18851   integer , INTENT(IN) :: auxinput4_end_y
18852   INTEGER id_id
18853   CHARACTER*80 emess
18854   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18855     WRITE(emess,*)'nl_set_auxinput4_end_y: Out of range domain number: ',id_id
18856     CALL wrf_error_fatal(emess)
18857   ENDIF
18858   model_config_rec%auxinput4_end_y(id_id) = auxinput4_end_y
18859   RETURN
18860 END SUBROUTINE nl_set_auxinput4_end_y
18861 SUBROUTINE nl_set_auxinput4_end_mo ( id_id , auxinput4_end_mo )
18862   integer , INTENT(IN) :: auxinput4_end_mo
18863   INTEGER id_id
18864   CHARACTER*80 emess
18865   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18866     WRITE(emess,*)'nl_set_auxinput4_end_mo: Out of range domain number: ',id_id
18867     CALL wrf_error_fatal(emess)
18868   ENDIF
18869   model_config_rec%auxinput4_end_mo(id_id) = auxinput4_end_mo
18870   RETURN
18871 END SUBROUTINE nl_set_auxinput4_end_mo
18872 SUBROUTINE nl_set_auxinput4_end_d ( id_id , auxinput4_end_d )
18873   integer , INTENT(IN) :: auxinput4_end_d
18874   INTEGER id_id
18875   CHARACTER*80 emess
18876   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18877     WRITE(emess,*)'nl_set_auxinput4_end_d: Out of range domain number: ',id_id
18878     CALL wrf_error_fatal(emess)
18879   ENDIF
18880   model_config_rec%auxinput4_end_d(id_id) = auxinput4_end_d
18881   RETURN
18882 END SUBROUTINE nl_set_auxinput4_end_d
18883 SUBROUTINE nl_set_auxinput4_end_h ( id_id , auxinput4_end_h )
18884   integer , INTENT(IN) :: auxinput4_end_h
18885   INTEGER id_id
18886   CHARACTER*80 emess
18887   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18888     WRITE(emess,*)'nl_set_auxinput4_end_h: Out of range domain number: ',id_id
18889     CALL wrf_error_fatal(emess)
18890   ENDIF
18891   model_config_rec%auxinput4_end_h(id_id) = auxinput4_end_h
18892   RETURN
18893 END SUBROUTINE nl_set_auxinput4_end_h
18894 SUBROUTINE nl_set_auxinput4_end_m ( id_id , auxinput4_end_m )
18895   integer , INTENT(IN) :: auxinput4_end_m
18896   INTEGER id_id
18897   CHARACTER*80 emess
18898   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18899     WRITE(emess,*)'nl_set_auxinput4_end_m: Out of range domain number: ',id_id
18900     CALL wrf_error_fatal(emess)
18901   ENDIF
18902   model_config_rec%auxinput4_end_m(id_id) = auxinput4_end_m
18903   RETURN
18904 END SUBROUTINE nl_set_auxinput4_end_m
18905 SUBROUTINE nl_set_auxinput4_end_s ( id_id , auxinput4_end_s )
18906   integer , INTENT(IN) :: auxinput4_end_s
18907   INTEGER id_id
18908   CHARACTER*80 emess
18909   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18910     WRITE(emess,*)'nl_set_auxinput4_end_s: Out of range domain number: ',id_id
18911     CALL wrf_error_fatal(emess)
18912   ENDIF
18913   model_config_rec%auxinput4_end_s(id_id) = auxinput4_end_s
18914   RETURN
18915 END SUBROUTINE nl_set_auxinput4_end_s
18916 SUBROUTINE nl_set_auxinput5_end_y ( id_id , auxinput5_end_y )
18917   integer , INTENT(IN) :: auxinput5_end_y
18918   INTEGER id_id
18919   CHARACTER*80 emess
18920   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18921     WRITE(emess,*)'nl_set_auxinput5_end_y: Out of range domain number: ',id_id
18922     CALL wrf_error_fatal(emess)
18923   ENDIF
18924   model_config_rec%auxinput5_end_y(id_id) = auxinput5_end_y
18925   RETURN
18926 END SUBROUTINE nl_set_auxinput5_end_y
18927 SUBROUTINE nl_set_auxinput5_end_mo ( id_id , auxinput5_end_mo )
18928   integer , INTENT(IN) :: auxinput5_end_mo
18929   INTEGER id_id
18930   CHARACTER*80 emess
18931   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18932     WRITE(emess,*)'nl_set_auxinput5_end_mo: Out of range domain number: ',id_id
18933     CALL wrf_error_fatal(emess)
18934   ENDIF
18935   model_config_rec%auxinput5_end_mo(id_id) = auxinput5_end_mo
18936   RETURN
18937 END SUBROUTINE nl_set_auxinput5_end_mo
18938 SUBROUTINE nl_set_auxinput5_end_d ( id_id , auxinput5_end_d )
18939   integer , INTENT(IN) :: auxinput5_end_d
18940   INTEGER id_id
18941   CHARACTER*80 emess
18942   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18943     WRITE(emess,*)'nl_set_auxinput5_end_d: Out of range domain number: ',id_id
18944     CALL wrf_error_fatal(emess)
18945   ENDIF
18946   model_config_rec%auxinput5_end_d(id_id) = auxinput5_end_d
18947   RETURN
18948 END SUBROUTINE nl_set_auxinput5_end_d
18949 SUBROUTINE nl_set_auxinput5_end_h ( id_id , auxinput5_end_h )
18950   integer , INTENT(IN) :: auxinput5_end_h
18951   INTEGER id_id
18952   CHARACTER*80 emess
18953   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18954     WRITE(emess,*)'nl_set_auxinput5_end_h: Out of range domain number: ',id_id
18955     CALL wrf_error_fatal(emess)
18956   ENDIF
18957   model_config_rec%auxinput5_end_h(id_id) = auxinput5_end_h
18958   RETURN
18959 END SUBROUTINE nl_set_auxinput5_end_h
18960 SUBROUTINE nl_set_auxinput5_end_m ( id_id , auxinput5_end_m )
18961   integer , INTENT(IN) :: auxinput5_end_m
18962   INTEGER id_id
18963   CHARACTER*80 emess
18964   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18965     WRITE(emess,*)'nl_set_auxinput5_end_m: Out of range domain number: ',id_id
18966     CALL wrf_error_fatal(emess)
18967   ENDIF
18968   model_config_rec%auxinput5_end_m(id_id) = auxinput5_end_m
18969   RETURN
18970 END SUBROUTINE nl_set_auxinput5_end_m
18971 SUBROUTINE nl_set_auxinput5_end_s ( id_id , auxinput5_end_s )
18972   integer , INTENT(IN) :: auxinput5_end_s
18973   INTEGER id_id
18974   CHARACTER*80 emess
18975   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18976     WRITE(emess,*)'nl_set_auxinput5_end_s: Out of range domain number: ',id_id
18977     CALL wrf_error_fatal(emess)
18978   ENDIF
18979   model_config_rec%auxinput5_end_s(id_id) = auxinput5_end_s
18980   RETURN
18981 END SUBROUTINE nl_set_auxinput5_end_s
18982 SUBROUTINE nl_set_auxinput6_end_y ( id_id , auxinput6_end_y )
18983   integer , INTENT(IN) :: auxinput6_end_y
18984   INTEGER id_id
18985   CHARACTER*80 emess
18986   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18987     WRITE(emess,*)'nl_set_auxinput6_end_y: Out of range domain number: ',id_id
18988     CALL wrf_error_fatal(emess)
18989   ENDIF
18990   model_config_rec%auxinput6_end_y(id_id) = auxinput6_end_y
18991   RETURN
18992 END SUBROUTINE nl_set_auxinput6_end_y
18993 SUBROUTINE nl_set_auxinput6_end_mo ( id_id , auxinput6_end_mo )
18994   integer , INTENT(IN) :: auxinput6_end_mo
18995   INTEGER id_id
18996   CHARACTER*80 emess
18997   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18998     WRITE(emess,*)'nl_set_auxinput6_end_mo: Out of range domain number: ',id_id
18999     CALL wrf_error_fatal(emess)
19000   ENDIF
19001   model_config_rec%auxinput6_end_mo(id_id) = auxinput6_end_mo
19002   RETURN
19003 END SUBROUTINE nl_set_auxinput6_end_mo
19004 SUBROUTINE nl_set_auxinput6_end_d ( id_id , auxinput6_end_d )
19005   integer , INTENT(IN) :: auxinput6_end_d
19006   INTEGER id_id
19007   CHARACTER*80 emess
19008   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19009     WRITE(emess,*)'nl_set_auxinput6_end_d: Out of range domain number: ',id_id
19010     CALL wrf_error_fatal(emess)
19011   ENDIF
19012   model_config_rec%auxinput6_end_d(id_id) = auxinput6_end_d
19013   RETURN
19014 END SUBROUTINE nl_set_auxinput6_end_d
19015 SUBROUTINE nl_set_auxinput6_end_h ( id_id , auxinput6_end_h )
19016   integer , INTENT(IN) :: auxinput6_end_h
19017   INTEGER id_id
19018   CHARACTER*80 emess
19019   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19020     WRITE(emess,*)'nl_set_auxinput6_end_h: Out of range domain number: ',id_id
19021     CALL wrf_error_fatal(emess)
19022   ENDIF
19023   model_config_rec%auxinput6_end_h(id_id) = auxinput6_end_h
19024   RETURN
19025 END SUBROUTINE nl_set_auxinput6_end_h
19026 SUBROUTINE nl_set_auxinput6_end_m ( id_id , auxinput6_end_m )
19027   integer , INTENT(IN) :: auxinput6_end_m
19028   INTEGER id_id
19029   CHARACTER*80 emess
19030   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19031     WRITE(emess,*)'nl_set_auxinput6_end_m: Out of range domain number: ',id_id
19032     CALL wrf_error_fatal(emess)
19033   ENDIF
19034   model_config_rec%auxinput6_end_m(id_id) = auxinput6_end_m
19035   RETURN
19036 END SUBROUTINE nl_set_auxinput6_end_m
19037 SUBROUTINE nl_set_auxinput6_end_s ( id_id , auxinput6_end_s )
19038   integer , INTENT(IN) :: auxinput6_end_s
19039   INTEGER id_id
19040   CHARACTER*80 emess
19041   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19042     WRITE(emess,*)'nl_set_auxinput6_end_s: Out of range domain number: ',id_id
19043     CALL wrf_error_fatal(emess)
19044   ENDIF
19045   model_config_rec%auxinput6_end_s(id_id) = auxinput6_end_s
19046   RETURN
19047 END SUBROUTINE nl_set_auxinput6_end_s
19048 SUBROUTINE nl_set_auxinput7_end_y ( id_id , auxinput7_end_y )
19049   integer , INTENT(IN) :: auxinput7_end_y
19050   INTEGER id_id
19051   CHARACTER*80 emess
19052   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19053     WRITE(emess,*)'nl_set_auxinput7_end_y: Out of range domain number: ',id_id
19054     CALL wrf_error_fatal(emess)
19055   ENDIF
19056   model_config_rec%auxinput7_end_y(id_id) = auxinput7_end_y
19057   RETURN
19058 END SUBROUTINE nl_set_auxinput7_end_y
19059 SUBROUTINE nl_set_auxinput7_end_mo ( id_id , auxinput7_end_mo )
19060   integer , INTENT(IN) :: auxinput7_end_mo
19061   INTEGER id_id
19062   CHARACTER*80 emess
19063   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19064     WRITE(emess,*)'nl_set_auxinput7_end_mo: Out of range domain number: ',id_id
19065     CALL wrf_error_fatal(emess)
19066   ENDIF
19067   model_config_rec%auxinput7_end_mo(id_id) = auxinput7_end_mo
19068   RETURN
19069 END SUBROUTINE nl_set_auxinput7_end_mo
19070 SUBROUTINE nl_set_auxinput7_end_d ( id_id , auxinput7_end_d )
19071   integer , INTENT(IN) :: auxinput7_end_d
19072   INTEGER id_id
19073   CHARACTER*80 emess
19074   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19075     WRITE(emess,*)'nl_set_auxinput7_end_d: Out of range domain number: ',id_id
19076     CALL wrf_error_fatal(emess)
19077   ENDIF
19078   model_config_rec%auxinput7_end_d(id_id) = auxinput7_end_d
19079   RETURN
19080 END SUBROUTINE nl_set_auxinput7_end_d
19081 SUBROUTINE nl_set_auxinput7_end_h ( id_id , auxinput7_end_h )
19082   integer , INTENT(IN) :: auxinput7_end_h
19083   INTEGER id_id
19084   CHARACTER*80 emess
19085   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19086     WRITE(emess,*)'nl_set_auxinput7_end_h: Out of range domain number: ',id_id
19087     CALL wrf_error_fatal(emess)
19088   ENDIF
19089   model_config_rec%auxinput7_end_h(id_id) = auxinput7_end_h
19090   RETURN
19091 END SUBROUTINE nl_set_auxinput7_end_h
19092 SUBROUTINE nl_set_auxinput7_end_m ( id_id , auxinput7_end_m )
19093   integer , INTENT(IN) :: auxinput7_end_m
19094   INTEGER id_id
19095   CHARACTER*80 emess
19096   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19097     WRITE(emess,*)'nl_set_auxinput7_end_m: Out of range domain number: ',id_id
19098     CALL wrf_error_fatal(emess)
19099   ENDIF
19100   model_config_rec%auxinput7_end_m(id_id) = auxinput7_end_m
19101   RETURN
19102 END SUBROUTINE nl_set_auxinput7_end_m
19103 SUBROUTINE nl_set_auxinput7_end_s ( id_id , auxinput7_end_s )
19104   integer , INTENT(IN) :: auxinput7_end_s
19105   INTEGER id_id
19106   CHARACTER*80 emess
19107   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19108     WRITE(emess,*)'nl_set_auxinput7_end_s: Out of range domain number: ',id_id
19109     CALL wrf_error_fatal(emess)
19110   ENDIF
19111   model_config_rec%auxinput7_end_s(id_id) = auxinput7_end_s
19112   RETURN
19113 END SUBROUTINE nl_set_auxinput7_end_s
19114 SUBROUTINE nl_set_auxinput8_end_y ( id_id , auxinput8_end_y )
19115   integer , INTENT(IN) :: auxinput8_end_y
19116   INTEGER id_id
19117   CHARACTER*80 emess
19118   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19119     WRITE(emess,*)'nl_set_auxinput8_end_y: Out of range domain number: ',id_id
19120     CALL wrf_error_fatal(emess)
19121   ENDIF
19122   model_config_rec%auxinput8_end_y(id_id) = auxinput8_end_y
19123   RETURN
19124 END SUBROUTINE nl_set_auxinput8_end_y
19125 SUBROUTINE nl_set_auxinput8_end_mo ( id_id , auxinput8_end_mo )
19126   integer , INTENT(IN) :: auxinput8_end_mo
19127   INTEGER id_id
19128   CHARACTER*80 emess
19129   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19130     WRITE(emess,*)'nl_set_auxinput8_end_mo: Out of range domain number: ',id_id
19131     CALL wrf_error_fatal(emess)
19132   ENDIF
19133   model_config_rec%auxinput8_end_mo(id_id) = auxinput8_end_mo
19134   RETURN
19135 END SUBROUTINE nl_set_auxinput8_end_mo
19136 SUBROUTINE nl_set_auxinput8_end_d ( id_id , auxinput8_end_d )
19137   integer , INTENT(IN) :: auxinput8_end_d
19138   INTEGER id_id
19139   CHARACTER*80 emess
19140   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19141     WRITE(emess,*)'nl_set_auxinput8_end_d: Out of range domain number: ',id_id
19142     CALL wrf_error_fatal(emess)
19143   ENDIF
19144   model_config_rec%auxinput8_end_d(id_id) = auxinput8_end_d
19145   RETURN
19146 END SUBROUTINE nl_set_auxinput8_end_d
19147 SUBROUTINE nl_set_auxinput8_end_h ( id_id , auxinput8_end_h )
19148   integer , INTENT(IN) :: auxinput8_end_h
19149   INTEGER id_id
19150   CHARACTER*80 emess
19151   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19152     WRITE(emess,*)'nl_set_auxinput8_end_h: Out of range domain number: ',id_id
19153     CALL wrf_error_fatal(emess)
19154   ENDIF
19155   model_config_rec%auxinput8_end_h(id_id) = auxinput8_end_h
19156   RETURN
19157 END SUBROUTINE nl_set_auxinput8_end_h
19158 SUBROUTINE nl_set_auxinput8_end_m ( id_id , auxinput8_end_m )
19159   integer , INTENT(IN) :: auxinput8_end_m
19160   INTEGER id_id
19161   CHARACTER*80 emess
19162   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19163     WRITE(emess,*)'nl_set_auxinput8_end_m: Out of range domain number: ',id_id
19164     CALL wrf_error_fatal(emess)
19165   ENDIF
19166   model_config_rec%auxinput8_end_m(id_id) = auxinput8_end_m
19167   RETURN
19168 END SUBROUTINE nl_set_auxinput8_end_m
19169 SUBROUTINE nl_set_auxinput8_end_s ( id_id , auxinput8_end_s )
19170   integer , INTENT(IN) :: auxinput8_end_s
19171   INTEGER id_id
19172   CHARACTER*80 emess
19173   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19174     WRITE(emess,*)'nl_set_auxinput8_end_s: Out of range domain number: ',id_id
19175     CALL wrf_error_fatal(emess)
19176   ENDIF
19177   model_config_rec%auxinput8_end_s(id_id) = auxinput8_end_s
19178   RETURN
19179 END SUBROUTINE nl_set_auxinput8_end_s
19180 SUBROUTINE nl_set_auxinput9_end_y ( id_id , auxinput9_end_y )
19181   integer , INTENT(IN) :: auxinput9_end_y
19182   INTEGER id_id
19183   CHARACTER*80 emess
19184   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19185     WRITE(emess,*)'nl_set_auxinput9_end_y: Out of range domain number: ',id_id
19186     CALL wrf_error_fatal(emess)
19187   ENDIF
19188   model_config_rec%auxinput9_end_y(id_id) = auxinput9_end_y
19189   RETURN
19190 END SUBROUTINE nl_set_auxinput9_end_y
19191 SUBROUTINE nl_set_auxinput9_end_mo ( id_id , auxinput9_end_mo )
19192   integer , INTENT(IN) :: auxinput9_end_mo
19193   INTEGER id_id
19194   CHARACTER*80 emess
19195   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19196     WRITE(emess,*)'nl_set_auxinput9_end_mo: Out of range domain number: ',id_id
19197     CALL wrf_error_fatal(emess)
19198   ENDIF
19199   model_config_rec%auxinput9_end_mo(id_id) = auxinput9_end_mo
19200   RETURN
19201 END SUBROUTINE nl_set_auxinput9_end_mo
19202 SUBROUTINE nl_set_auxinput9_end_d ( id_id , auxinput9_end_d )
19203   integer , INTENT(IN) :: auxinput9_end_d
19204   INTEGER id_id
19205   CHARACTER*80 emess
19206   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19207     WRITE(emess,*)'nl_set_auxinput9_end_d: Out of range domain number: ',id_id
19208     CALL wrf_error_fatal(emess)
19209   ENDIF
19210   model_config_rec%auxinput9_end_d(id_id) = auxinput9_end_d
19211   RETURN
19212 END SUBROUTINE nl_set_auxinput9_end_d
19213 SUBROUTINE nl_set_auxinput9_end_h ( id_id , auxinput9_end_h )
19214   integer , INTENT(IN) :: auxinput9_end_h
19215   INTEGER id_id
19216   CHARACTER*80 emess
19217   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19218     WRITE(emess,*)'nl_set_auxinput9_end_h: Out of range domain number: ',id_id
19219     CALL wrf_error_fatal(emess)
19220   ENDIF
19221   model_config_rec%auxinput9_end_h(id_id) = auxinput9_end_h
19222   RETURN
19223 END SUBROUTINE nl_set_auxinput9_end_h
19224 SUBROUTINE nl_set_auxinput9_end_m ( id_id , auxinput9_end_m )
19225   integer , INTENT(IN) :: auxinput9_end_m
19226   INTEGER id_id
19227   CHARACTER*80 emess
19228   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19229     WRITE(emess,*)'nl_set_auxinput9_end_m: Out of range domain number: ',id_id
19230     CALL wrf_error_fatal(emess)
19231   ENDIF
19232   model_config_rec%auxinput9_end_m(id_id) = auxinput9_end_m
19233   RETURN
19234 END SUBROUTINE nl_set_auxinput9_end_m
19235 SUBROUTINE nl_set_auxinput9_end_s ( id_id , auxinput9_end_s )
19236   integer , INTENT(IN) :: auxinput9_end_s
19237   INTEGER id_id
19238   CHARACTER*80 emess
19239   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19240     WRITE(emess,*)'nl_set_auxinput9_end_s: Out of range domain number: ',id_id
19241     CALL wrf_error_fatal(emess)
19242   ENDIF
19243   model_config_rec%auxinput9_end_s(id_id) = auxinput9_end_s
19244   RETURN
19245 END SUBROUTINE nl_set_auxinput9_end_s
19246 SUBROUTINE nl_set_gfdda_end_y ( id_id , gfdda_end_y )
19247   integer , INTENT(IN) :: gfdda_end_y
19248   INTEGER id_id
19249   CHARACTER*80 emess
19250   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19251     WRITE(emess,*)'nl_set_gfdda_end_y: Out of range domain number: ',id_id
19252     CALL wrf_error_fatal(emess)
19253   ENDIF
19254   model_config_rec%gfdda_end_y(id_id) = gfdda_end_y
19255   RETURN
19256 END SUBROUTINE nl_set_gfdda_end_y
19257 SUBROUTINE nl_set_gfdda_end_mo ( id_id , gfdda_end_mo )
19258   integer , INTENT(IN) :: gfdda_end_mo
19259   INTEGER id_id
19260   CHARACTER*80 emess
19261   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19262     WRITE(emess,*)'nl_set_gfdda_end_mo: Out of range domain number: ',id_id
19263     CALL wrf_error_fatal(emess)
19264   ENDIF
19265   model_config_rec%gfdda_end_mo(id_id) = gfdda_end_mo
19266   RETURN
19267 END SUBROUTINE nl_set_gfdda_end_mo
19268 SUBROUTINE nl_set_gfdda_end_d ( id_id , gfdda_end_d )
19269   integer , INTENT(IN) :: gfdda_end_d
19270   INTEGER id_id
19271   CHARACTER*80 emess
19272   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19273     WRITE(emess,*)'nl_set_gfdda_end_d: Out of range domain number: ',id_id
19274     CALL wrf_error_fatal(emess)
19275   ENDIF
19276   model_config_rec%gfdda_end_d(id_id) = gfdda_end_d
19277   RETURN
19278 END SUBROUTINE nl_set_gfdda_end_d
19279 SUBROUTINE nl_set_gfdda_end_h ( id_id , gfdda_end_h )
19280   integer , INTENT(IN) :: gfdda_end_h
19281   INTEGER id_id
19282   CHARACTER*80 emess
19283   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19284     WRITE(emess,*)'nl_set_gfdda_end_h: Out of range domain number: ',id_id
19285     CALL wrf_error_fatal(emess)
19286   ENDIF
19287   model_config_rec%gfdda_end_h(id_id) = gfdda_end_h
19288   RETURN
19289 END SUBROUTINE nl_set_gfdda_end_h
19290 SUBROUTINE nl_set_gfdda_end_m ( id_id , gfdda_end_m )
19291   integer , INTENT(IN) :: gfdda_end_m
19292   INTEGER id_id
19293   CHARACTER*80 emess
19294   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19295     WRITE(emess,*)'nl_set_gfdda_end_m: Out of range domain number: ',id_id
19296     CALL wrf_error_fatal(emess)
19297   ENDIF
19298   model_config_rec%gfdda_end_m(id_id) = gfdda_end_m
19299   RETURN
19300 END SUBROUTINE nl_set_gfdda_end_m
19301 SUBROUTINE nl_set_gfdda_end_s ( id_id , gfdda_end_s )
19302   integer , INTENT(IN) :: gfdda_end_s
19303   INTEGER id_id
19304   CHARACTER*80 emess
19305   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19306     WRITE(emess,*)'nl_set_gfdda_end_s: Out of range domain number: ',id_id
19307     CALL wrf_error_fatal(emess)
19308   ENDIF
19309   model_config_rec%gfdda_end_s(id_id) = gfdda_end_s
19310   RETURN
19311 END SUBROUTINE nl_set_gfdda_end_s
19312 SUBROUTINE nl_set_auxinput11_end_y ( id_id , auxinput11_end_y )
19313   integer , INTENT(IN) :: auxinput11_end_y
19314   INTEGER id_id
19315   CHARACTER*80 emess
19316   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19317     WRITE(emess,*)'nl_set_auxinput11_end_y: Out of range domain number: ',id_id
19318     CALL wrf_error_fatal(emess)
19319   ENDIF
19320   model_config_rec%auxinput11_end_y(id_id) = auxinput11_end_y
19321   RETURN
19322 END SUBROUTINE nl_set_auxinput11_end_y
19323 SUBROUTINE nl_set_auxinput11_end_mo ( id_id , auxinput11_end_mo )
19324   integer , INTENT(IN) :: auxinput11_end_mo
19325   INTEGER id_id
19326   CHARACTER*80 emess
19327   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19328     WRITE(emess,*)'nl_set_auxinput11_end_mo: Out of range domain number: ',id_id
19329     CALL wrf_error_fatal(emess)
19330   ENDIF
19331   model_config_rec%auxinput11_end_mo(id_id) = auxinput11_end_mo
19332   RETURN
19333 END SUBROUTINE nl_set_auxinput11_end_mo
19334 SUBROUTINE nl_set_auxinput11_end_d ( id_id , auxinput11_end_d )
19335   integer , INTENT(IN) :: auxinput11_end_d
19336   INTEGER id_id
19337   CHARACTER*80 emess
19338   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19339     WRITE(emess,*)'nl_set_auxinput11_end_d: Out of range domain number: ',id_id
19340     CALL wrf_error_fatal(emess)
19341   ENDIF
19342   model_config_rec%auxinput11_end_d(id_id) = auxinput11_end_d
19343   RETURN
19344 END SUBROUTINE nl_set_auxinput11_end_d
19345 SUBROUTINE nl_set_auxinput11_end_h ( id_id , auxinput11_end_h )
19346   integer , INTENT(IN) :: auxinput11_end_h
19347   INTEGER id_id
19348   CHARACTER*80 emess
19349   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19350     WRITE(emess,*)'nl_set_auxinput11_end_h: Out of range domain number: ',id_id
19351     CALL wrf_error_fatal(emess)
19352   ENDIF
19353   model_config_rec%auxinput11_end_h(id_id) = auxinput11_end_h
19354   RETURN
19355 END SUBROUTINE nl_set_auxinput11_end_h
19356 SUBROUTINE nl_set_auxinput11_end_m ( id_id , auxinput11_end_m )
19357   integer , INTENT(IN) :: auxinput11_end_m
19358   INTEGER id_id
19359   CHARACTER*80 emess
19360   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19361     WRITE(emess,*)'nl_set_auxinput11_end_m: Out of range domain number: ',id_id
19362     CALL wrf_error_fatal(emess)
19363   ENDIF
19364   model_config_rec%auxinput11_end_m(id_id) = auxinput11_end_m
19365   RETURN
19366 END SUBROUTINE nl_set_auxinput11_end_m
19367 SUBROUTINE nl_set_auxinput11_end_s ( id_id , auxinput11_end_s )
19368   integer , INTENT(IN) :: auxinput11_end_s
19369   INTEGER id_id
19370   CHARACTER*80 emess
19371   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19372     WRITE(emess,*)'nl_set_auxinput11_end_s: Out of range domain number: ',id_id
19373     CALL wrf_error_fatal(emess)
19374   ENDIF
19375   model_config_rec%auxinput11_end_s(id_id) = auxinput11_end_s
19376   RETURN
19377 END SUBROUTINE nl_set_auxinput11_end_s
19378 SUBROUTINE nl_set_io_form_auxinput1 ( id_id , io_form_auxinput1 )
19379   integer , INTENT(IN) :: io_form_auxinput1
19380   INTEGER id_id
19381   CHARACTER*80 emess
19382   IF ( id_id .NE. 1 ) THEN
19383     call wrf_debug(1,&
19384 'WARNING in nl_set_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
19385   ENDIF
19386   model_config_rec%io_form_auxinput1 = io_form_auxinput1 
19387   RETURN
19388 END SUBROUTINE nl_set_io_form_auxinput1
19389 SUBROUTINE nl_set_io_form_auxinput2 ( id_id , io_form_auxinput2 )
19390   integer , INTENT(IN) :: io_form_auxinput2
19391   INTEGER id_id
19392   CHARACTER*80 emess
19393   IF ( id_id .NE. 1 ) THEN
19394     call wrf_debug(1,&
19395 'WARNING in nl_set_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
19396   ENDIF
19397   model_config_rec%io_form_auxinput2 = io_form_auxinput2 
19398   RETURN
19399 END SUBROUTINE nl_set_io_form_auxinput2
19400 SUBROUTINE nl_set_io_form_auxinput3 ( id_id , io_form_auxinput3 )
19401   integer , INTENT(IN) :: io_form_auxinput3
19402   INTEGER id_id
19403   CHARACTER*80 emess
19404   IF ( id_id .NE. 1 ) THEN
19405     call wrf_debug(1,&
19406 'WARNING in nl_set_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
19407   ENDIF
19408   model_config_rec%io_form_auxinput3 = io_form_auxinput3 
19409   RETURN
19410 END SUBROUTINE nl_set_io_form_auxinput3
19411 SUBROUTINE nl_set_io_form_auxinput4 ( id_id , io_form_auxinput4 )
19412   integer , INTENT(IN) :: io_form_auxinput4
19413   INTEGER id_id
19414   CHARACTER*80 emess
19415   IF ( id_id .NE. 1 ) THEN
19416     call wrf_debug(1,&
19417 'WARNING in nl_set_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
19418   ENDIF
19419   model_config_rec%io_form_auxinput4 = io_form_auxinput4 
19420   RETURN
19421 END SUBROUTINE nl_set_io_form_auxinput4
19422 SUBROUTINE nl_set_io_form_auxinput5 ( id_id , io_form_auxinput5 )
19423   integer , INTENT(IN) :: io_form_auxinput5
19424   INTEGER id_id
19425   CHARACTER*80 emess
19426   IF ( id_id .NE. 1 ) THEN
19427     call wrf_debug(1,&
19428 'WARNING in nl_set_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
19429   ENDIF
19430   model_config_rec%io_form_auxinput5 = io_form_auxinput5 
19431   RETURN
19432 END SUBROUTINE nl_set_io_form_auxinput5
19433 SUBROUTINE nl_set_io_form_auxinput6 ( id_id , io_form_auxinput6 )
19434   integer , INTENT(IN) :: io_form_auxinput6
19435   INTEGER id_id
19436   CHARACTER*80 emess
19437   IF ( id_id .NE. 1 ) THEN
19438     call wrf_debug(1,&
19439 'WARNING in nl_set_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
19440   ENDIF
19441   model_config_rec%io_form_auxinput6 = io_form_auxinput6 
19442   RETURN
19443 END SUBROUTINE nl_set_io_form_auxinput6
19444 SUBROUTINE nl_set_io_form_auxinput7 ( id_id , io_form_auxinput7 )
19445   integer , INTENT(IN) :: io_form_auxinput7
19446   INTEGER id_id
19447   CHARACTER*80 emess
19448   IF ( id_id .NE. 1 ) THEN
19449     call wrf_debug(1,&
19450 'WARNING in nl_set_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
19451   ENDIF
19452   model_config_rec%io_form_auxinput7 = io_form_auxinput7 
19453   RETURN
19454 END SUBROUTINE nl_set_io_form_auxinput7
19455 SUBROUTINE nl_set_io_form_auxinput8 ( id_id , io_form_auxinput8 )
19456   integer , INTENT(IN) :: io_form_auxinput8
19457   INTEGER id_id
19458   CHARACTER*80 emess
19459   IF ( id_id .NE. 1 ) THEN
19460     call wrf_debug(1,&
19461 'WARNING in nl_set_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
19462   ENDIF
19463   model_config_rec%io_form_auxinput8 = io_form_auxinput8 
19464   RETURN
19465 END SUBROUTINE nl_set_io_form_auxinput8
19466 SUBROUTINE nl_set_io_form_auxinput9 ( id_id , io_form_auxinput9 )
19467   integer , INTENT(IN) :: io_form_auxinput9
19468   INTEGER id_id
19469   CHARACTER*80 emess
19470   IF ( id_id .NE. 1 ) THEN
19471     call wrf_debug(1,&
19472 'WARNING in nl_set_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
19473   ENDIF
19474   model_config_rec%io_form_auxinput9 = io_form_auxinput9 
19475   RETURN
19476 END SUBROUTINE nl_set_io_form_auxinput9
19477 SUBROUTINE nl_set_io_form_gfdda ( id_id , io_form_gfdda )
19478   integer , INTENT(IN) :: io_form_gfdda
19479   INTEGER id_id
19480   CHARACTER*80 emess
19481   IF ( id_id .NE. 1 ) THEN
19482     call wrf_debug(1,&
19483 'WARNING in nl_set_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
19484   ENDIF
19485   model_config_rec%io_form_gfdda = io_form_gfdda 
19486   RETURN
19487 END SUBROUTINE nl_set_io_form_gfdda
19488 SUBROUTINE nl_set_io_form_auxinput11 ( id_id , io_form_auxinput11 )
19489   integer , INTENT(IN) :: io_form_auxinput11
19490   INTEGER id_id
19491   CHARACTER*80 emess
19492   IF ( id_id .NE. 1 ) THEN
19493     call wrf_debug(1,&
19494 'WARNING in nl_set_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
19495   ENDIF
19496   model_config_rec%io_form_auxinput11 = io_form_auxinput11 
19497   RETURN
19498 END SUBROUTINE nl_set_io_form_auxinput11
19499 SUBROUTINE nl_set_io_form_auxhist1 ( id_id , io_form_auxhist1 )
19500   integer , INTENT(IN) :: io_form_auxhist1
19501   INTEGER id_id
19502   CHARACTER*80 emess
19503   IF ( id_id .NE. 1 ) THEN
19504     call wrf_debug(1,&
19505 'WARNING in nl_set_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
19506   ENDIF
19507   model_config_rec%io_form_auxhist1 = io_form_auxhist1 
19508   RETURN
19509 END SUBROUTINE nl_set_io_form_auxhist1
19510 SUBROUTINE nl_set_io_form_auxhist2 ( id_id , io_form_auxhist2 )
19511   integer , INTENT(IN) :: io_form_auxhist2
19512   INTEGER id_id
19513   CHARACTER*80 emess
19514   IF ( id_id .NE. 1 ) THEN
19515     call wrf_debug(1,&
19516 'WARNING in nl_set_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
19517   ENDIF
19518   model_config_rec%io_form_auxhist2 = io_form_auxhist2 
19519   RETURN
19520 END SUBROUTINE nl_set_io_form_auxhist2
19521 SUBROUTINE nl_set_io_form_auxhist3 ( id_id , io_form_auxhist3 )
19522   integer , INTENT(IN) :: io_form_auxhist3
19523   INTEGER id_id
19524   CHARACTER*80 emess
19525   IF ( id_id .NE. 1 ) THEN
19526     call wrf_debug(1,&
19527 'WARNING in nl_set_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
19528   ENDIF
19529   model_config_rec%io_form_auxhist3 = io_form_auxhist3 
19530   RETURN
19531 END SUBROUTINE nl_set_io_form_auxhist3
19532 SUBROUTINE nl_set_io_form_auxhist4 ( id_id , io_form_auxhist4 )
19533   integer , INTENT(IN) :: io_form_auxhist4
19534   INTEGER id_id
19535   CHARACTER*80 emess
19536   IF ( id_id .NE. 1 ) THEN
19537     call wrf_debug(1,&
19538 'WARNING in nl_set_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
19539   ENDIF
19540   model_config_rec%io_form_auxhist4 = io_form_auxhist4 
19541   RETURN
19542 END SUBROUTINE nl_set_io_form_auxhist4
19543 SUBROUTINE nl_set_io_form_auxhist5 ( id_id , io_form_auxhist5 )
19544   integer , INTENT(IN) :: io_form_auxhist5
19545   INTEGER id_id
19546   CHARACTER*80 emess
19547   IF ( id_id .NE. 1 ) THEN
19548     call wrf_debug(1,&
19549 'WARNING in nl_set_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
19550   ENDIF
19551   model_config_rec%io_form_auxhist5 = io_form_auxhist5 
19552   RETURN
19553 END SUBROUTINE nl_set_io_form_auxhist5
19554 SUBROUTINE nl_set_io_form_auxhist6 ( id_id , io_form_auxhist6 )
19555   integer , INTENT(IN) :: io_form_auxhist6
19556   INTEGER id_id
19557   CHARACTER*80 emess
19558   IF ( id_id .NE. 1 ) THEN
19559     call wrf_debug(1,&
19560 'WARNING in nl_set_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
19561   ENDIF
19562   model_config_rec%io_form_auxhist6 = io_form_auxhist6 
19563   RETURN
19564 END SUBROUTINE nl_set_io_form_auxhist6
19565 SUBROUTINE nl_set_io_form_auxhist7 ( id_id , io_form_auxhist7 )
19566   integer , INTENT(IN) :: io_form_auxhist7
19567   INTEGER id_id
19568   CHARACTER*80 emess
19569   IF ( id_id .NE. 1 ) THEN
19570     call wrf_debug(1,&
19571 'WARNING in nl_set_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
19572   ENDIF
19573   model_config_rec%io_form_auxhist7 = io_form_auxhist7 
19574   RETURN
19575 END SUBROUTINE nl_set_io_form_auxhist7
19576 SUBROUTINE nl_set_io_form_auxhist8 ( id_id , io_form_auxhist8 )
19577   integer , INTENT(IN) :: io_form_auxhist8
19578   INTEGER id_id
19579   CHARACTER*80 emess
19580   IF ( id_id .NE. 1 ) THEN
19581     call wrf_debug(1,&
19582 'WARNING in nl_set_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
19583   ENDIF
19584   model_config_rec%io_form_auxhist8 = io_form_auxhist8 
19585   RETURN
19586 END SUBROUTINE nl_set_io_form_auxhist8
19587 SUBROUTINE nl_set_io_form_auxhist9 ( id_id , io_form_auxhist9 )
19588   integer , INTENT(IN) :: io_form_auxhist9
19589   INTEGER id_id
19590   CHARACTER*80 emess
19591   IF ( id_id .NE. 1 ) THEN
19592     call wrf_debug(1,&
19593 'WARNING in nl_set_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
19594   ENDIF
19595   model_config_rec%io_form_auxhist9 = io_form_auxhist9 
19596   RETURN
19597 END SUBROUTINE nl_set_io_form_auxhist9
19598 SUBROUTINE nl_set_io_form_auxhist10 ( id_id , io_form_auxhist10 )
19599   integer , INTENT(IN) :: io_form_auxhist10
19600   INTEGER id_id
19601   CHARACTER*80 emess
19602   IF ( id_id .NE. 1 ) THEN
19603     call wrf_debug(1,&
19604 'WARNING in nl_set_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
19605   ENDIF
19606   model_config_rec%io_form_auxhist10 = io_form_auxhist10 
19607   RETURN
19608 END SUBROUTINE nl_set_io_form_auxhist10
19609 SUBROUTINE nl_set_io_form_auxhist11 ( id_id , io_form_auxhist11 )
19610   integer , INTENT(IN) :: io_form_auxhist11
19611   INTEGER id_id
19612   CHARACTER*80 emess
19613   IF ( id_id .NE. 1 ) THEN
19614     call wrf_debug(1,&
19615 'WARNING in nl_set_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
19616   ENDIF
19617   model_config_rec%io_form_auxhist11 = io_form_auxhist11 
19618   RETURN
19619 END SUBROUTINE nl_set_io_form_auxhist11
19620 SUBROUTINE nl_set_simulation_start_year ( id_id , simulation_start_year )
19621   integer , INTENT(IN) :: simulation_start_year
19622   INTEGER id_id
19623   CHARACTER*80 emess
19624   IF ( id_id .NE. 1 ) THEN
19625     call wrf_debug(1,&
19626 'WARNING in nl_set_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
19627   ENDIF
19628   model_config_rec%simulation_start_year = simulation_start_year 
19629   RETURN
19630 END SUBROUTINE nl_set_simulation_start_year
19631 SUBROUTINE nl_set_simulation_start_month ( id_id , simulation_start_month )
19632   integer , INTENT(IN) :: simulation_start_month
19633   INTEGER id_id
19634   CHARACTER*80 emess
19635   IF ( id_id .NE. 1 ) THEN
19636     call wrf_debug(1,&
19637 'WARNING in nl_set_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
19638   ENDIF
19639   model_config_rec%simulation_start_month = simulation_start_month 
19640   RETURN
19641 END SUBROUTINE nl_set_simulation_start_month
19642 SUBROUTINE nl_set_simulation_start_day ( id_id , simulation_start_day )
19643   integer , INTENT(IN) :: simulation_start_day
19644   INTEGER id_id
19645   CHARACTER*80 emess
19646   IF ( id_id .NE. 1 ) THEN
19647     call wrf_debug(1,&
19648 'WARNING in nl_set_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
19649   ENDIF
19650   model_config_rec%simulation_start_day = simulation_start_day 
19651   RETURN
19652 END SUBROUTINE nl_set_simulation_start_day
19653 SUBROUTINE nl_set_simulation_start_hour ( id_id , simulation_start_hour )
19654   integer , INTENT(IN) :: simulation_start_hour
19655   INTEGER id_id
19656   CHARACTER*80 emess
19657   IF ( id_id .NE. 1 ) THEN
19658     call wrf_debug(1,&
19659 'WARNING in nl_set_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
19660   ENDIF
19661   model_config_rec%simulation_start_hour = simulation_start_hour 
19662   RETURN
19663 END SUBROUTINE nl_set_simulation_start_hour
19664 SUBROUTINE nl_set_simulation_start_minute ( id_id , simulation_start_minute )
19665   integer , INTENT(IN) :: simulation_start_minute
19666   INTEGER id_id
19667   CHARACTER*80 emess
19668   IF ( id_id .NE. 1 ) THEN
19669     call wrf_debug(1,&
19670 'WARNING in nl_set_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
19671   ENDIF
19672   model_config_rec%simulation_start_minute = simulation_start_minute 
19673   RETURN
19674 END SUBROUTINE nl_set_simulation_start_minute
19675 SUBROUTINE nl_set_simulation_start_second ( id_id , simulation_start_second )
19676   integer , INTENT(IN) :: simulation_start_second
19677   INTEGER id_id
19678   CHARACTER*80 emess
19679   IF ( id_id .NE. 1 ) THEN
19680     call wrf_debug(1,&
19681 'WARNING in nl_set_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
19682   ENDIF
19683   model_config_rec%simulation_start_second = simulation_start_second 
19684   RETURN
19685 END SUBROUTINE nl_set_simulation_start_second
19686 SUBROUTINE nl_set_reset_simulation_start ( id_id , reset_simulation_start )
19687   logical , INTENT(IN) :: reset_simulation_start
19688   INTEGER id_id
19689   CHARACTER*80 emess
19690   IF ( id_id .NE. 1 ) THEN
19691     call wrf_debug(1,&
19692 'WARNING in nl_set_reset_simulation_start: reset_simulation_start applies to all domains. First arg ignored.')
19693   ENDIF
19694   model_config_rec%reset_simulation_start = reset_simulation_start 
19695   RETURN
19696 END SUBROUTINE nl_set_reset_simulation_start
19697 SUBROUTINE nl_set_sr_x ( id_id , sr_x )
19698   integer , INTENT(IN) :: sr_x
19699   INTEGER id_id
19700   CHARACTER*80 emess
19701   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19702     WRITE(emess,*)'nl_set_sr_x: Out of range domain number: ',id_id
19703     CALL wrf_error_fatal(emess)
19704   ENDIF
19705   model_config_rec%sr_x(id_id) = sr_x
19706   RETURN
19707 END SUBROUTINE nl_set_sr_x
19708 SUBROUTINE nl_set_sr_y ( id_id , sr_y )
19709   integer , INTENT(IN) :: sr_y
19710   INTEGER id_id
19711   CHARACTER*80 emess
19712   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19713     WRITE(emess,*)'nl_set_sr_y: Out of range domain number: ',id_id
19714     CALL wrf_error_fatal(emess)
19715   ENDIF
19716   model_config_rec%sr_y(id_id) = sr_y
19717   RETURN
19718 END SUBROUTINE nl_set_sr_y
19719 SUBROUTINE nl_set_julyr ( id_id , julyr )
19720   integer , INTENT(IN) :: julyr
19721   INTEGER id_id
19722   CHARACTER*80 emess
19723   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19724     WRITE(emess,*)'nl_set_julyr: Out of range domain number: ',id_id
19725     CALL wrf_error_fatal(emess)
19726   ENDIF
19727   model_config_rec%julyr(id_id) = julyr
19728   RETURN
19729 END SUBROUTINE nl_set_julyr
19730 SUBROUTINE nl_set_julday ( id_id , julday )
19731   integer , INTENT(IN) :: julday
19732   INTEGER id_id
19733   CHARACTER*80 emess
19734   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19735     WRITE(emess,*)'nl_set_julday: Out of range domain number: ',id_id
19736     CALL wrf_error_fatal(emess)
19737   ENDIF
19738   model_config_rec%julday(id_id) = julday
19739   RETURN
19740 END SUBROUTINE nl_set_julday
19741 SUBROUTINE nl_set_gmt ( id_id , gmt )
19742   real , INTENT(IN) :: gmt
19743   INTEGER id_id
19744   CHARACTER*80 emess
19745   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19746     WRITE(emess,*)'nl_set_gmt: Out of range domain number: ',id_id
19747     CALL wrf_error_fatal(emess)
19748   ENDIF
19749   model_config_rec%gmt(id_id) = gmt
19750   RETURN
19751 END SUBROUTINE nl_set_gmt
19752 SUBROUTINE nl_set_input_inname ( id_id , input_inname )
19753   character*256 , INTENT(IN) :: input_inname
19754   INTEGER id_id
19755   CHARACTER*80 emess
19756   IF ( id_id .NE. 1 ) THEN
19757     call wrf_debug(1,&
19758 'WARNING in nl_set_input_inname: input_inname applies to all domains. First arg ignored.')
19759   ENDIF
19760   model_config_rec%input_inname = trim(input_inname) 
19761   RETURN
19762 END SUBROUTINE nl_set_input_inname
19763 SUBROUTINE nl_set_input_outname ( id_id , input_outname )
19764   character*256 , INTENT(IN) :: input_outname
19765   INTEGER id_id
19766   CHARACTER*80 emess
19767   IF ( id_id .NE. 1 ) THEN
19768     call wrf_debug(1,&
19769 'WARNING in nl_set_input_outname: input_outname applies to all domains. First arg ignored.')
19770   ENDIF
19771   model_config_rec%input_outname = trim(input_outname) 
19772   RETURN
19773 END SUBROUTINE nl_set_input_outname
19774 SUBROUTINE nl_set_bdy_inname ( id_id , bdy_inname )
19775   character*256 , INTENT(IN) :: bdy_inname
19776   INTEGER id_id
19777   CHARACTER*80 emess
19778   IF ( id_id .NE. 1 ) THEN
19779     call wrf_debug(1,&
19780 'WARNING in nl_set_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
19781   ENDIF
19782   model_config_rec%bdy_inname = trim(bdy_inname) 
19783   RETURN
19784 END SUBROUTINE nl_set_bdy_inname
19785 SUBROUTINE nl_set_bdy_outname ( id_id , bdy_outname )
19786   character*256 , INTENT(IN) :: bdy_outname
19787   INTEGER id_id
19788   CHARACTER*80 emess
19789   IF ( id_id .NE. 1 ) THEN
19790     call wrf_debug(1,&
19791 'WARNING in nl_set_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
19792   ENDIF
19793   model_config_rec%bdy_outname = trim(bdy_outname) 
19794   RETURN
19795 END SUBROUTINE nl_set_bdy_outname
19796 SUBROUTINE nl_set_rst_inname ( id_id , rst_inname )
19797   character*256 , INTENT(IN) :: rst_inname
19798   INTEGER id_id
19799   CHARACTER*80 emess
19800   IF ( id_id .NE. 1 ) THEN
19801     call wrf_debug(1,&
19802 'WARNING in nl_set_rst_inname: rst_inname applies to all domains. First arg ignored.')
19803   ENDIF
19804   model_config_rec%rst_inname = trim(rst_inname) 
19805   RETURN
19806 END SUBROUTINE nl_set_rst_inname
19807 SUBROUTINE nl_set_rst_outname ( id_id , rst_outname )
19808   character*256 , INTENT(IN) :: rst_outname
19809   INTEGER id_id
19810   CHARACTER*80 emess
19811   IF ( id_id .NE. 1 ) THEN
19812     call wrf_debug(1,&
19813 'WARNING in nl_set_rst_outname: rst_outname applies to all domains. First arg ignored.')
19814   ENDIF
19815   model_config_rec%rst_outname = trim(rst_outname) 
19816   RETURN
19817 END SUBROUTINE nl_set_rst_outname
19818 SUBROUTINE nl_set_write_input ( id_id , write_input )
19819   logical , INTENT(IN) :: write_input
19820   INTEGER id_id
19821   CHARACTER*80 emess
19822   IF ( id_id .NE. 1 ) THEN
19823     call wrf_debug(1,&
19824 'WARNING in nl_set_write_input: write_input applies to all domains. First arg ignored.')
19825   ENDIF
19826   model_config_rec%write_input = write_input 
19827   RETURN
19828 END SUBROUTINE nl_set_write_input
19829 SUBROUTINE nl_set_write_restart_at_0h ( id_id , write_restart_at_0h )
19830   logical , INTENT(IN) :: write_restart_at_0h
19831   INTEGER id_id
19832   CHARACTER*80 emess
19833   IF ( id_id .NE. 1 ) THEN
19834     call wrf_debug(1,&
19835 'WARNING in nl_set_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
19836   ENDIF
19837   model_config_rec%write_restart_at_0h = write_restart_at_0h 
19838   RETURN
19839 END SUBROUTINE nl_set_write_restart_at_0h
19840 SUBROUTINE nl_set_adjust_output_times ( id_id , adjust_output_times )
19841   logical , INTENT(IN) :: adjust_output_times
19842   INTEGER id_id
19843   CHARACTER*80 emess
19844   IF ( id_id .NE. 1 ) THEN
19845     call wrf_debug(1,&
19846 'WARNING in nl_set_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
19847   ENDIF
19848   model_config_rec%adjust_output_times = adjust_output_times 
19849   RETURN
19850 END SUBROUTINE nl_set_adjust_output_times
19851 SUBROUTINE nl_set_adjust_input_times ( id_id , adjust_input_times )
19852   logical , INTENT(IN) :: adjust_input_times
19853   INTEGER id_id
19854   CHARACTER*80 emess
19855   IF ( id_id .NE. 1 ) THEN
19856     call wrf_debug(1,&
19857 'WARNING in nl_set_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
19858   ENDIF
19859   model_config_rec%adjust_input_times = adjust_input_times 
19860   RETURN
19861 END SUBROUTINE nl_set_adjust_input_times
19862 SUBROUTINE nl_set_diag_print ( id_id , diag_print )
19863   integer , INTENT(IN) :: diag_print
19864   INTEGER id_id
19865   CHARACTER*80 emess
19866   IF ( id_id .NE. 1 ) THEN
19867     call wrf_debug(1,&
19868 'WARNING in nl_set_diag_print: diag_print applies to all domains. First arg ignored.')
19869   ENDIF
19870   model_config_rec%diag_print = diag_print 
19871   RETURN
19872 END SUBROUTINE nl_set_diag_print
19873 SUBROUTINE nl_set_nocolons ( id_id , nocolons )
19874   logical , INTENT(IN) :: nocolons
19875   INTEGER id_id
19876   CHARACTER*80 emess
19877   IF ( id_id .NE. 1 ) THEN
19878     call wrf_debug(1,&
19879 'WARNING in nl_set_nocolons: nocolons applies to all domains. First arg ignored.')
19880   ENDIF
19881   model_config_rec%nocolons = nocolons 
19882   RETURN
19883 END SUBROUTINE nl_set_nocolons
19884 SUBROUTINE nl_set_time_step ( id_id , time_step )
19885   integer , INTENT(IN) :: time_step
19886   INTEGER id_id
19887   CHARACTER*80 emess
19888   IF ( id_id .NE. 1 ) THEN
19889     call wrf_debug(1,&
19890 'WARNING in nl_set_time_step: time_step applies to all domains. First arg ignored.')
19891   ENDIF
19892   model_config_rec%time_step = time_step 
19893   RETURN
19894 END SUBROUTINE nl_set_time_step
19895 SUBROUTINE nl_set_time_step_fract_num ( id_id , time_step_fract_num )
19896   integer , INTENT(IN) :: time_step_fract_num
19897   INTEGER id_id
19898   CHARACTER*80 emess
19899   IF ( id_id .NE. 1 ) THEN
19900     call wrf_debug(1,&
19901 'WARNING in nl_set_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
19902   ENDIF
19903   model_config_rec%time_step_fract_num = time_step_fract_num 
19904   RETURN
19905 END SUBROUTINE nl_set_time_step_fract_num
19906 SUBROUTINE nl_set_time_step_fract_den ( id_id , time_step_fract_den )
19907   integer , INTENT(IN) :: time_step_fract_den
19908   INTEGER id_id
19909   CHARACTER*80 emess
19910   IF ( id_id .NE. 1 ) THEN
19911     call wrf_debug(1,&
19912 'WARNING in nl_set_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
19913   ENDIF
19914   model_config_rec%time_step_fract_den = time_step_fract_den 
19915   RETURN
19916 END SUBROUTINE nl_set_time_step_fract_den
19917 SUBROUTINE nl_set_max_dom ( id_id , max_dom )
19918   integer , INTENT(IN) :: max_dom
19919   INTEGER id_id
19920   CHARACTER*80 emess
19921   IF ( id_id .NE. 1 ) THEN
19922     call wrf_debug(1,&
19923 'WARNING in nl_set_max_dom: max_dom applies to all domains. First arg ignored.')
19924   ENDIF
19925   model_config_rec%max_dom = max_dom 
19926   RETURN
19927 END SUBROUTINE nl_set_max_dom
19928 SUBROUTINE nl_set_s_we ( id_id , s_we )
19929   integer , INTENT(IN) :: s_we
19930   INTEGER id_id
19931   CHARACTER*80 emess
19932   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19933     WRITE(emess,*)'nl_set_s_we: Out of range domain number: ',id_id
19934     CALL wrf_error_fatal(emess)
19935   ENDIF
19936   model_config_rec%s_we(id_id) = s_we
19937   RETURN
19938 END SUBROUTINE nl_set_s_we
19939 SUBROUTINE nl_set_e_we ( id_id , e_we )
19940   integer , INTENT(IN) :: e_we
19941   INTEGER id_id
19942   CHARACTER*80 emess
19943   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19944     WRITE(emess,*)'nl_set_e_we: Out of range domain number: ',id_id
19945     CALL wrf_error_fatal(emess)
19946   ENDIF
19947   model_config_rec%e_we(id_id) = e_we
19948   RETURN
19949 END SUBROUTINE nl_set_e_we
19950 SUBROUTINE nl_set_s_sn ( id_id , s_sn )
19951   integer , INTENT(IN) :: s_sn
19952   INTEGER id_id
19953   CHARACTER*80 emess
19954   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19955     WRITE(emess,*)'nl_set_s_sn: Out of range domain number: ',id_id
19956     CALL wrf_error_fatal(emess)
19957   ENDIF
19958   model_config_rec%s_sn(id_id) = s_sn
19959   RETURN
19960 END SUBROUTINE nl_set_s_sn
19961 SUBROUTINE nl_set_e_sn ( id_id , e_sn )
19962   integer , INTENT(IN) :: e_sn
19963   INTEGER id_id
19964   CHARACTER*80 emess
19965   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19966     WRITE(emess,*)'nl_set_e_sn: Out of range domain number: ',id_id
19967     CALL wrf_error_fatal(emess)
19968   ENDIF
19969   model_config_rec%e_sn(id_id) = e_sn
19970   RETURN
19971 END SUBROUTINE nl_set_e_sn
19972 SUBROUTINE nl_set_s_vert ( id_id , s_vert )
19973   integer , INTENT(IN) :: s_vert
19974   INTEGER id_id
19975   CHARACTER*80 emess
19976   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19977     WRITE(emess,*)'nl_set_s_vert: Out of range domain number: ',id_id
19978     CALL wrf_error_fatal(emess)
19979   ENDIF
19980   model_config_rec%s_vert(id_id) = s_vert
19981   RETURN
19982 END SUBROUTINE nl_set_s_vert
19983 SUBROUTINE nl_set_e_vert ( id_id , e_vert )
19984   integer , INTENT(IN) :: e_vert
19985   INTEGER id_id
19986   CHARACTER*80 emess
19987   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19988     WRITE(emess,*)'nl_set_e_vert: Out of range domain number: ',id_id
19989     CALL wrf_error_fatal(emess)
19990   ENDIF
19991   model_config_rec%e_vert(id_id) = e_vert
19992   RETURN
19993 END SUBROUTINE nl_set_e_vert
19994 SUBROUTINE nl_set_num_metgrid_levels ( id_id , num_metgrid_levels )
19995   integer , INTENT(IN) :: num_metgrid_levels
19996   INTEGER id_id
19997   CHARACTER*80 emess
19998   IF ( id_id .NE. 1 ) THEN
19999     call wrf_debug(1,&
20000 'WARNING in nl_set_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
20001   ENDIF
20002   model_config_rec%num_metgrid_levels = num_metgrid_levels 
20003   RETURN
20004 END SUBROUTINE nl_set_num_metgrid_levels
20005 SUBROUTINE nl_set_p_top_requested ( id_id , p_top_requested )
20006   real , INTENT(IN) :: p_top_requested
20007   INTEGER id_id
20008   CHARACTER*80 emess
20009   IF ( id_id .NE. 1 ) THEN
20010     call wrf_debug(1,&
20011 'WARNING in nl_set_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
20012   ENDIF
20013   model_config_rec%p_top_requested = p_top_requested 
20014   RETURN
20015 END SUBROUTINE nl_set_p_top_requested
20016 SUBROUTINE nl_set_interp_type ( id_id , interp_type )
20017   integer , INTENT(IN) :: interp_type
20018   INTEGER id_id
20019   CHARACTER*80 emess
20020   IF ( id_id .NE. 1 ) THEN
20021     call wrf_debug(1,&
20022 'WARNING in nl_set_interp_type: interp_type applies to all domains. First arg ignored.')
20023   ENDIF
20024   model_config_rec%interp_type = interp_type 
20025   RETURN
20026 END SUBROUTINE nl_set_interp_type
20027 SUBROUTINE nl_set_extrap_type ( id_id , extrap_type )
20028   integer , INTENT(IN) :: extrap_type
20029   INTEGER id_id
20030   CHARACTER*80 emess
20031   IF ( id_id .NE. 1 ) THEN
20032     call wrf_debug(1,&
20033 'WARNING in nl_set_extrap_type: extrap_type applies to all domains. First arg ignored.')
20034   ENDIF
20035   model_config_rec%extrap_type = extrap_type 
20036   RETURN
20037 END SUBROUTINE nl_set_extrap_type
20038 SUBROUTINE nl_set_t_extrap_type ( id_id , t_extrap_type )
20039   integer , INTENT(IN) :: t_extrap_type
20040   INTEGER id_id
20041   CHARACTER*80 emess
20042   IF ( id_id .NE. 1 ) THEN
20043     call wrf_debug(1,&
20044 'WARNING in nl_set_t_extrap_type: t_extrap_type applies to all domains. First arg ignored.')
20045   ENDIF
20046   model_config_rec%t_extrap_type = t_extrap_type 
20047   RETURN
20048 END SUBROUTINE nl_set_t_extrap_type
20049 SUBROUTINE nl_set_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
20050   logical , INTENT(IN) :: lowest_lev_from_sfc
20051   INTEGER id_id
20052   CHARACTER*80 emess
20053   IF ( id_id .NE. 1 ) THEN
20054     call wrf_debug(1,&
20055 'WARNING in nl_set_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
20056   ENDIF
20057   model_config_rec%lowest_lev_from_sfc = lowest_lev_from_sfc 
20058   RETURN
20059 END SUBROUTINE nl_set_lowest_lev_from_sfc
20060 SUBROUTINE nl_set_use_levels_below_ground ( id_id , use_levels_below_ground )
20061   logical , INTENT(IN) :: use_levels_below_ground
20062   INTEGER id_id
20063   CHARACTER*80 emess
20064   IF ( id_id .NE. 1 ) THEN
20065     call wrf_debug(1,&
20066 'WARNING in nl_set_use_levels_below_ground: use_levels_below_ground applies to all domains. First arg ignored.')
20067   ENDIF
20068   model_config_rec%use_levels_below_ground = use_levels_below_ground 
20069   RETURN
20070 END SUBROUTINE nl_set_use_levels_below_ground
20071 SUBROUTINE nl_set_use_surface ( id_id , use_surface )
20072   logical , INTENT(IN) :: use_surface
20073   INTEGER id_id
20074   CHARACTER*80 emess
20075   IF ( id_id .NE. 1 ) THEN
20076     call wrf_debug(1,&
20077 'WARNING in nl_set_use_surface: use_surface applies to all domains. First arg ignored.')
20078   ENDIF
20079   model_config_rec%use_surface = use_surface 
20080   RETURN
20081 END SUBROUTINE nl_set_use_surface
20082 SUBROUTINE nl_set_lagrange_order ( id_id , lagrange_order )
20083   integer , INTENT(IN) :: lagrange_order
20084   INTEGER id_id
20085   CHARACTER*80 emess
20086   IF ( id_id .NE. 1 ) THEN
20087     call wrf_debug(1,&
20088 'WARNING in nl_set_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
20089   ENDIF
20090   model_config_rec%lagrange_order = lagrange_order 
20091   RETURN
20092 END SUBROUTINE nl_set_lagrange_order
20093 SUBROUTINE nl_set_force_sfc_in_vinterp ( id_id , force_sfc_in_vinterp )
20094   integer , INTENT(IN) :: force_sfc_in_vinterp
20095   INTEGER id_id
20096   CHARACTER*80 emess
20097   IF ( id_id .NE. 1 ) THEN
20098     call wrf_debug(1,&
20099 'WARNING in nl_set_force_sfc_in_vinterp: force_sfc_in_vinterp applies to all domains. First arg ignored.')
20100   ENDIF
20101   model_config_rec%force_sfc_in_vinterp = force_sfc_in_vinterp 
20102   RETURN
20103 END SUBROUTINE nl_set_force_sfc_in_vinterp
20104 SUBROUTINE nl_set_zap_close_levels ( id_id , zap_close_levels )
20105   real , INTENT(IN) :: zap_close_levels
20106   INTEGER id_id
20107   CHARACTER*80 emess
20108   IF ( id_id .NE. 1 ) THEN
20109     call wrf_debug(1,&
20110 'WARNING in nl_set_zap_close_levels: zap_close_levels applies to all domains. First arg ignored.')
20111   ENDIF
20112   model_config_rec%zap_close_levels = zap_close_levels 
20113   RETURN
20114 END SUBROUTINE nl_set_zap_close_levels
20115 SUBROUTINE nl_set_sfcp_to_sfcp ( id_id , sfcp_to_sfcp )
20116   logical , INTENT(IN) :: sfcp_to_sfcp
20117   INTEGER id_id
20118   CHARACTER*80 emess
20119   IF ( id_id .NE. 1 ) THEN
20120     call wrf_debug(1,&
20121 'WARNING in nl_set_sfcp_to_sfcp: sfcp_to_sfcp applies to all domains. First arg ignored.')
20122   ENDIF
20123   model_config_rec%sfcp_to_sfcp = sfcp_to_sfcp 
20124   RETURN
20125 END SUBROUTINE nl_set_sfcp_to_sfcp
20126 SUBROUTINE nl_set_adjust_heights ( id_id , adjust_heights )
20127   logical , INTENT(IN) :: adjust_heights
20128   INTEGER id_id
20129   CHARACTER*80 emess
20130   IF ( id_id .NE. 1 ) THEN
20131     call wrf_debug(1,&
20132 'WARNING in nl_set_adjust_heights: adjust_heights applies to all domains. First arg ignored.')
20133   ENDIF
20134   model_config_rec%adjust_heights = adjust_heights 
20135   RETURN
20136 END SUBROUTINE nl_set_adjust_heights
20137 SUBROUTINE nl_set_dx ( id_id , dx )
20138   real , INTENT(IN) :: dx
20139   INTEGER id_id
20140   CHARACTER*80 emess
20141   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20142     WRITE(emess,*)'nl_set_dx: Out of range domain number: ',id_id
20143     CALL wrf_error_fatal(emess)
20144   ENDIF
20145   model_config_rec%dx(id_id) = dx
20146   RETURN
20147 END SUBROUTINE nl_set_dx
20148 SUBROUTINE nl_set_dy ( id_id , dy )
20149   real , INTENT(IN) :: dy
20150   INTEGER id_id
20151   CHARACTER*80 emess
20152   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20153     WRITE(emess,*)'nl_set_dy: Out of range domain number: ',id_id
20154     CALL wrf_error_fatal(emess)
20155   ENDIF
20156   model_config_rec%dy(id_id) = dy
20157   RETURN
20158 END SUBROUTINE nl_set_dy
20159 SUBROUTINE nl_set_grid_id ( id_id , grid_id )
20160   integer , INTENT(IN) :: grid_id
20161   INTEGER id_id
20162   CHARACTER*80 emess
20163   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20164     WRITE(emess,*)'nl_set_grid_id: Out of range domain number: ',id_id
20165     CALL wrf_error_fatal(emess)
20166   ENDIF
20167   model_config_rec%grid_id(id_id) = grid_id
20168   RETURN
20169 END SUBROUTINE nl_set_grid_id
20170 SUBROUTINE nl_set_parent_id ( id_id , parent_id )
20171   integer , INTENT(IN) :: parent_id
20172   INTEGER id_id
20173   CHARACTER*80 emess
20174   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20175     WRITE(emess,*)'nl_set_parent_id: Out of range domain number: ',id_id
20176     CALL wrf_error_fatal(emess)
20177   ENDIF
20178   model_config_rec%parent_id(id_id) = parent_id
20179   RETURN
20180 END SUBROUTINE nl_set_parent_id
20181 SUBROUTINE nl_set_i_parent_start ( id_id , i_parent_start )
20182   integer , INTENT(IN) :: i_parent_start
20183   INTEGER id_id
20184   CHARACTER*80 emess
20185   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20186     WRITE(emess,*)'nl_set_i_parent_start: Out of range domain number: ',id_id
20187     CALL wrf_error_fatal(emess)
20188   ENDIF
20189   model_config_rec%i_parent_start(id_id) = i_parent_start
20190   RETURN
20191 END SUBROUTINE nl_set_i_parent_start
20192 SUBROUTINE nl_set_j_parent_start ( id_id , j_parent_start )
20193   integer , INTENT(IN) :: j_parent_start
20194   INTEGER id_id
20195   CHARACTER*80 emess
20196   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20197     WRITE(emess,*)'nl_set_j_parent_start: Out of range domain number: ',id_id
20198     CALL wrf_error_fatal(emess)
20199   ENDIF
20200   model_config_rec%j_parent_start(id_id) = j_parent_start
20201   RETURN
20202 END SUBROUTINE nl_set_j_parent_start
20203 SUBROUTINE nl_set_parent_grid_ratio ( id_id , parent_grid_ratio )
20204   integer , INTENT(IN) :: parent_grid_ratio
20205   INTEGER id_id
20206   CHARACTER*80 emess
20207   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20208     WRITE(emess,*)'nl_set_parent_grid_ratio: Out of range domain number: ',id_id
20209     CALL wrf_error_fatal(emess)
20210   ENDIF
20211   model_config_rec%parent_grid_ratio(id_id) = parent_grid_ratio
20212   RETURN
20213 END SUBROUTINE nl_set_parent_grid_ratio
20214 SUBROUTINE nl_set_parent_time_step_ratio ( id_id , parent_time_step_ratio )
20215   integer , INTENT(IN) :: parent_time_step_ratio
20216   INTEGER id_id
20217   CHARACTER*80 emess
20218   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20219     WRITE(emess,*)'nl_set_parent_time_step_ratio: Out of range domain number: ',id_id
20220     CALL wrf_error_fatal(emess)
20221   ENDIF
20222   model_config_rec%parent_time_step_ratio(id_id) = parent_time_step_ratio
20223   RETURN
20224 END SUBROUTINE nl_set_parent_time_step_ratio
20225 SUBROUTINE nl_set_feedback ( id_id , feedback )
20226   integer , INTENT(IN) :: feedback
20227   INTEGER id_id
20228   CHARACTER*80 emess
20229   IF ( id_id .NE. 1 ) THEN
20230     call wrf_debug(1,&
20231 'WARNING in nl_set_feedback: feedback applies to all domains. First arg ignored.')
20232   ENDIF
20233   model_config_rec%feedback = feedback 
20234   RETURN
20235 END SUBROUTINE nl_set_feedback
20236 SUBROUTINE nl_set_smooth_option ( id_id , smooth_option )
20237   integer , INTENT(IN) :: smooth_option
20238   INTEGER id_id
20239   CHARACTER*80 emess
20240   IF ( id_id .NE. 1 ) THEN
20241     call wrf_debug(1,&
20242 'WARNING in nl_set_smooth_option: smooth_option applies to all domains. First arg ignored.')
20243   ENDIF
20244   model_config_rec%smooth_option = smooth_option 
20245   RETURN
20246 END SUBROUTINE nl_set_smooth_option
20247 SUBROUTINE nl_set_blend_width ( id_id , blend_width )
20248   integer , INTENT(IN) :: blend_width
20249   INTEGER id_id
20250   CHARACTER*80 emess
20251   IF ( id_id .NE. 1 ) THEN
20252     call wrf_debug(1,&
20253 'WARNING in nl_set_blend_width: blend_width applies to all domains. First arg ignored.')
20254   ENDIF
20255   model_config_rec%blend_width = blend_width 
20256   RETURN
20257 END SUBROUTINE nl_set_blend_width
20258 SUBROUTINE nl_set_ztop ( id_id , ztop )
20259   real , INTENT(IN) :: ztop
20260   INTEGER id_id
20261   CHARACTER*80 emess
20262   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20263     WRITE(emess,*)'nl_set_ztop: Out of range domain number: ',id_id
20264     CALL wrf_error_fatal(emess)
20265   ENDIF
20266   model_config_rec%ztop(id_id) = ztop
20267   RETURN
20268 END SUBROUTINE nl_set_ztop
20269 SUBROUTINE nl_set_moad_grid_ratio ( id_id , moad_grid_ratio )
20270   integer , INTENT(IN) :: moad_grid_ratio
20271   INTEGER id_id
20272   CHARACTER*80 emess
20273   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20274     WRITE(emess,*)'nl_set_moad_grid_ratio: Out of range domain number: ',id_id
20275     CALL wrf_error_fatal(emess)
20276   ENDIF
20277   model_config_rec%moad_grid_ratio(id_id) = moad_grid_ratio
20278   RETURN
20279 END SUBROUTINE nl_set_moad_grid_ratio
20280 SUBROUTINE nl_set_moad_time_step_ratio ( id_id , moad_time_step_ratio )
20281   integer , INTENT(IN) :: moad_time_step_ratio
20282   INTEGER id_id
20283   CHARACTER*80 emess
20284   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20285     WRITE(emess,*)'nl_set_moad_time_step_ratio: Out of range domain number: ',id_id
20286     CALL wrf_error_fatal(emess)
20287   ENDIF
20288   model_config_rec%moad_time_step_ratio(id_id) = moad_time_step_ratio
20289   RETURN
20290 END SUBROUTINE nl_set_moad_time_step_ratio
20291 SUBROUTINE nl_set_shw ( id_id , shw )
20292   integer , INTENT(IN) :: shw
20293   INTEGER id_id
20294   CHARACTER*80 emess
20295   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20296     WRITE(emess,*)'nl_set_shw: Out of range domain number: ',id_id
20297     CALL wrf_error_fatal(emess)
20298   ENDIF
20299   model_config_rec%shw(id_id) = shw
20300   RETURN
20301 END SUBROUTINE nl_set_shw
20302 SUBROUTINE nl_set_tile_sz_x ( id_id , tile_sz_x )
20303   integer , INTENT(IN) :: tile_sz_x
20304   INTEGER id_id
20305   CHARACTER*80 emess
20306   IF ( id_id .NE. 1 ) THEN
20307     call wrf_debug(1,&
20308 'WARNING in nl_set_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
20309   ENDIF
20310   model_config_rec%tile_sz_x = tile_sz_x 
20311   RETURN
20312 END SUBROUTINE nl_set_tile_sz_x
20313 SUBROUTINE nl_set_tile_sz_y ( id_id , tile_sz_y )
20314   integer , INTENT(IN) :: tile_sz_y
20315   INTEGER id_id
20316   CHARACTER*80 emess
20317   IF ( id_id .NE. 1 ) THEN
20318     call wrf_debug(1,&
20319 'WARNING in nl_set_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
20320   ENDIF
20321   model_config_rec%tile_sz_y = tile_sz_y 
20322   RETURN
20323 END SUBROUTINE nl_set_tile_sz_y
20324 SUBROUTINE nl_set_numtiles ( id_id , numtiles )
20325   integer , INTENT(IN) :: numtiles
20326   INTEGER id_id
20327   CHARACTER*80 emess
20328   IF ( id_id .NE. 1 ) THEN
20329     call wrf_debug(1,&
20330 'WARNING in nl_set_numtiles: numtiles applies to all domains. First arg ignored.')
20331   ENDIF
20332   model_config_rec%numtiles = numtiles 
20333   RETURN
20334 END SUBROUTINE nl_set_numtiles
20335 SUBROUTINE nl_set_nproc_x ( id_id , nproc_x )
20336   integer , INTENT(IN) :: nproc_x
20337   INTEGER id_id
20338   CHARACTER*80 emess
20339   IF ( id_id .NE. 1 ) THEN
20340     call wrf_debug(1,&
20341 'WARNING in nl_set_nproc_x: nproc_x applies to all domains. First arg ignored.')
20342   ENDIF
20343   model_config_rec%nproc_x = nproc_x 
20344   RETURN
20345 END SUBROUTINE nl_set_nproc_x
20346 SUBROUTINE nl_set_nproc_y ( id_id , nproc_y )
20347   integer , INTENT(IN) :: nproc_y
20348   INTEGER id_id
20349   CHARACTER*80 emess
20350   IF ( id_id .NE. 1 ) THEN
20351     call wrf_debug(1,&
20352 'WARNING in nl_set_nproc_y: nproc_y applies to all domains. First arg ignored.')
20353   ENDIF
20354   model_config_rec%nproc_y = nproc_y 
20355   RETURN
20356 END SUBROUTINE nl_set_nproc_y
20357 SUBROUTINE nl_set_irand ( id_id , irand )
20358   integer , INTENT(IN) :: irand
20359   INTEGER id_id
20360   CHARACTER*80 emess
20361   IF ( id_id .NE. 1 ) THEN
20362     call wrf_debug(1,&
20363 'WARNING in nl_set_irand: irand applies to all domains. First arg ignored.')
20364   ENDIF
20365   model_config_rec%irand = irand 
20366   RETURN
20367 END SUBROUTINE nl_set_irand
20368 SUBROUTINE nl_set_dt ( id_id , dt )
20369   real , INTENT(IN) :: dt
20370   INTEGER id_id
20371   CHARACTER*80 emess
20372   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20373     WRITE(emess,*)'nl_set_dt: Out of range domain number: ',id_id
20374     CALL wrf_error_fatal(emess)
20375   ENDIF
20376   model_config_rec%dt(id_id) = dt
20377   RETURN
20378 END SUBROUTINE nl_set_dt
20379 SUBROUTINE nl_set_num_moves ( id_id , num_moves )
20380   integer , INTENT(IN) :: num_moves
20381   INTEGER id_id
20382   CHARACTER*80 emess
20383   IF ( id_id .NE. 1 ) THEN
20384     call wrf_debug(1,&
20385 'WARNING in nl_set_num_moves: num_moves applies to all domains. First arg ignored.')
20386   ENDIF
20387   model_config_rec%num_moves = num_moves 
20388   RETURN
20389 END SUBROUTINE nl_set_num_moves
20390 SUBROUTINE nl_set_vortex_interval ( id_id , vortex_interval )
20391   integer , INTENT(IN) :: vortex_interval
20392   INTEGER id_id
20393   CHARACTER*80 emess
20394   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20395     WRITE(emess,*)'nl_set_vortex_interval: Out of range domain number: ',id_id
20396     CALL wrf_error_fatal(emess)
20397   ENDIF
20398   model_config_rec%vortex_interval(id_id) = vortex_interval
20399   RETURN
20400 END SUBROUTINE nl_set_vortex_interval
20401 SUBROUTINE nl_set_max_vortex_speed ( id_id , max_vortex_speed )
20402   integer , INTENT(IN) :: max_vortex_speed
20403   INTEGER id_id
20404   CHARACTER*80 emess
20405   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20406     WRITE(emess,*)'nl_set_max_vortex_speed: Out of range domain number: ',id_id
20407     CALL wrf_error_fatal(emess)
20408   ENDIF
20409   model_config_rec%max_vortex_speed(id_id) = max_vortex_speed
20410   RETURN
20411 END SUBROUTINE nl_set_max_vortex_speed
20412 SUBROUTINE nl_set_corral_dist ( id_id , corral_dist )
20413   integer , INTENT(IN) :: corral_dist
20414   INTEGER id_id
20415   CHARACTER*80 emess
20416   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20417     WRITE(emess,*)'nl_set_corral_dist: Out of range domain number: ',id_id
20418     CALL wrf_error_fatal(emess)
20419   ENDIF
20420   model_config_rec%corral_dist(id_id) = corral_dist
20421   RETURN
20422 END SUBROUTINE nl_set_corral_dist
20423 SUBROUTINE nl_set_move_id ( id_id , move_id )
20424   integer , INTENT(IN) :: move_id
20425   INTEGER id_id
20426   CHARACTER*80 emess
20427   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
20428     WRITE(emess,*)'nl_set_move_id: Out of range move number: ',id_id
20429     CALL wrf_error_fatal(emess)
20430   ENDIF
20431   model_config_rec%move_id(id_id) = move_id
20432   RETURN
20433 END SUBROUTINE nl_set_move_id
20434 SUBROUTINE nl_set_move_interval ( id_id , move_interval )
20435   integer , INTENT(IN) :: move_interval
20436   INTEGER id_id
20437   CHARACTER*80 emess
20438   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
20439     WRITE(emess,*)'nl_set_move_interval: Out of range move number: ',id_id
20440     CALL wrf_error_fatal(emess)
20441   ENDIF
20442   model_config_rec%move_interval(id_id) = move_interval
20443   RETURN
20444 END SUBROUTINE nl_set_move_interval
20445 SUBROUTINE nl_set_move_cd_x ( id_id , move_cd_x )
20446   integer , INTENT(IN) :: move_cd_x
20447   INTEGER id_id
20448   CHARACTER*80 emess
20449   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
20450     WRITE(emess,*)'nl_set_move_cd_x: Out of range move number: ',id_id
20451     CALL wrf_error_fatal(emess)
20452   ENDIF
20453   model_config_rec%move_cd_x(id_id) = move_cd_x
20454   RETURN
20455 END SUBROUTINE nl_set_move_cd_x
20456 SUBROUTINE nl_set_move_cd_y ( id_id , move_cd_y )
20457   integer , INTENT(IN) :: move_cd_y
20458   INTEGER id_id
20459   CHARACTER*80 emess
20460   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
20461     WRITE(emess,*)'nl_set_move_cd_y: Out of range move number: ',id_id
20462     CALL wrf_error_fatal(emess)
20463   ENDIF
20464   model_config_rec%move_cd_y(id_id) = move_cd_y
20465   RETURN
20466 END SUBROUTINE nl_set_move_cd_y
20467 SUBROUTINE nl_set_swap_x ( id_id , swap_x )
20468   logical , INTENT(IN) :: swap_x
20469   INTEGER id_id
20470   CHARACTER*80 emess
20471   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20472     WRITE(emess,*)'nl_set_swap_x: Out of range domain number: ',id_id
20473     CALL wrf_error_fatal(emess)
20474   ENDIF
20475   model_config_rec%swap_x(id_id) = swap_x
20476   RETURN
20477 END SUBROUTINE nl_set_swap_x
20478 SUBROUTINE nl_set_swap_y ( id_id , swap_y )
20479   logical , INTENT(IN) :: swap_y
20480   INTEGER id_id
20481   CHARACTER*80 emess
20482   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20483     WRITE(emess,*)'nl_set_swap_y: Out of range domain number: ',id_id
20484     CALL wrf_error_fatal(emess)
20485   ENDIF
20486   model_config_rec%swap_y(id_id) = swap_y
20487   RETURN
20488 END SUBROUTINE nl_set_swap_y
20489 SUBROUTINE nl_set_cycle_x ( id_id , cycle_x )
20490   logical , INTENT(IN) :: cycle_x
20491   INTEGER id_id
20492   CHARACTER*80 emess
20493   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20494     WRITE(emess,*)'nl_set_cycle_x: Out of range domain number: ',id_id
20495     CALL wrf_error_fatal(emess)
20496   ENDIF
20497   model_config_rec%cycle_x(id_id) = cycle_x
20498   RETURN
20499 END SUBROUTINE nl_set_cycle_x
20500 SUBROUTINE nl_set_cycle_y ( id_id , cycle_y )
20501   logical , INTENT(IN) :: cycle_y
20502   INTEGER id_id
20503   CHARACTER*80 emess
20504   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20505     WRITE(emess,*)'nl_set_cycle_y: Out of range domain number: ',id_id
20506     CALL wrf_error_fatal(emess)
20507   ENDIF
20508   model_config_rec%cycle_y(id_id) = cycle_y
20509   RETURN
20510 END SUBROUTINE nl_set_cycle_y
20511 SUBROUTINE nl_set_reorder_mesh ( id_id , reorder_mesh )
20512   logical , INTENT(IN) :: reorder_mesh
20513   INTEGER id_id
20514   CHARACTER*80 emess
20515   IF ( id_id .NE. 1 ) THEN
20516     call wrf_debug(1,&
20517 'WARNING in nl_set_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
20518   ENDIF
20519   model_config_rec%reorder_mesh = reorder_mesh 
20520   RETURN
20521 END SUBROUTINE nl_set_reorder_mesh
20522 SUBROUTINE nl_set_perturb_input ( id_id , perturb_input )
20523   logical , INTENT(IN) :: perturb_input
20524   INTEGER id_id
20525   CHARACTER*80 emess
20526   IF ( id_id .NE. 1 ) THEN
20527     call wrf_debug(1,&
20528 'WARNING in nl_set_perturb_input: perturb_input applies to all domains. First arg ignored.')
20529   ENDIF
20530   model_config_rec%perturb_input = perturb_input 
20531   RETURN
20532 END SUBROUTINE nl_set_perturb_input
20533 SUBROUTINE nl_set_eta_levels ( id_id , eta_levels )
20534   real , INTENT(IN) :: eta_levels
20535   INTEGER id_id
20536   CHARACTER*80 emess
20537   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
20538     WRITE(emess,*)'nl_set_eta_levels: Out of range eta_level number: ',id_id
20539     CALL wrf_error_fatal(emess)
20540   ENDIF
20541   model_config_rec%eta_levels(id_id) = eta_levels
20542   RETURN
20543 END SUBROUTINE nl_set_eta_levels
20544 SUBROUTINE nl_set_max_dz ( id_id , max_dz )
20545   real , INTENT(IN) :: max_dz
20546   INTEGER id_id
20547   CHARACTER*80 emess
20548   IF ( id_id .NE. 1 ) THEN
20549     call wrf_debug(1,&
20550 'WARNING in nl_set_max_dz: max_dz applies to all domains. First arg ignored.')
20551   ENDIF
20552   model_config_rec%max_dz = max_dz 
20553   RETURN
20554 END SUBROUTINE nl_set_max_dz
20555 SUBROUTINE nl_set_mp_physics ( id_id , mp_physics )
20556   integer , INTENT(IN) :: mp_physics
20557   INTEGER id_id
20558   CHARACTER*80 emess
20559   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20560     WRITE(emess,*)'nl_set_mp_physics: Out of range domain number: ',id_id
20561     CALL wrf_error_fatal(emess)
20562   ENDIF
20563   model_config_rec%mp_physics(id_id) = mp_physics
20564   RETURN
20565 END SUBROUTINE nl_set_mp_physics
20566 SUBROUTINE nl_set_progn ( id_id , progn )
20567   integer , INTENT(IN) :: progn
20568   INTEGER id_id
20569   CHARACTER*80 emess
20570   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20571     WRITE(emess,*)'nl_set_progn: Out of range domain number: ',id_id
20572     CALL wrf_error_fatal(emess)
20573   ENDIF
20574   model_config_rec%progn(id_id) = progn
20575   RETURN
20576 END SUBROUTINE nl_set_progn
20577 SUBROUTINE nl_set_ra_lw_physics ( id_id , ra_lw_physics )
20578   integer , INTENT(IN) :: ra_lw_physics
20579   INTEGER id_id
20580   CHARACTER*80 emess
20581   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20582     WRITE(emess,*)'nl_set_ra_lw_physics: Out of range domain number: ',id_id
20583     CALL wrf_error_fatal(emess)
20584   ENDIF
20585   model_config_rec%ra_lw_physics(id_id) = ra_lw_physics
20586   RETURN
20587 END SUBROUTINE nl_set_ra_lw_physics
20588 SUBROUTINE nl_set_ra_sw_physics ( id_id , ra_sw_physics )
20589   integer , INTENT(IN) :: ra_sw_physics
20590   INTEGER id_id
20591   CHARACTER*80 emess
20592   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20593     WRITE(emess,*)'nl_set_ra_sw_physics: Out of range domain number: ',id_id
20594     CALL wrf_error_fatal(emess)
20595   ENDIF
20596   model_config_rec%ra_sw_physics(id_id) = ra_sw_physics
20597   RETURN
20598 END SUBROUTINE nl_set_ra_sw_physics
20599 SUBROUTINE nl_set_radt ( id_id , radt )
20600   real , INTENT(IN) :: radt
20601   INTEGER id_id
20602   CHARACTER*80 emess
20603   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20604     WRITE(emess,*)'nl_set_radt: Out of range domain number: ',id_id
20605     CALL wrf_error_fatal(emess)
20606   ENDIF
20607   model_config_rec%radt(id_id) = radt
20608   RETURN
20609 END SUBROUTINE nl_set_radt
20610 SUBROUTINE nl_set_naer ( id_id , naer )
20611   real , INTENT(IN) :: naer
20612   INTEGER id_id
20613   CHARACTER*80 emess
20614   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20615     WRITE(emess,*)'nl_set_naer: Out of range domain number: ',id_id
20616     CALL wrf_error_fatal(emess)
20617   ENDIF
20618   model_config_rec%naer(id_id) = naer
20619   RETURN
20620 END SUBROUTINE nl_set_naer
20621 SUBROUTINE nl_set_sf_sfclay_physics ( id_id , sf_sfclay_physics )
20622   integer , INTENT(IN) :: sf_sfclay_physics
20623   INTEGER id_id
20624   CHARACTER*80 emess
20625   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20626     WRITE(emess,*)'nl_set_sf_sfclay_physics: Out of range domain number: ',id_id
20627     CALL wrf_error_fatal(emess)
20628   ENDIF
20629   model_config_rec%sf_sfclay_physics(id_id) = sf_sfclay_physics
20630   RETURN
20631 END SUBROUTINE nl_set_sf_sfclay_physics
20632 SUBROUTINE nl_set_sf_surface_physics ( id_id , sf_surface_physics )
20633   integer , INTENT(IN) :: sf_surface_physics
20634   INTEGER id_id
20635   CHARACTER*80 emess
20636   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20637     WRITE(emess,*)'nl_set_sf_surface_physics: Out of range domain number: ',id_id
20638     CALL wrf_error_fatal(emess)
20639   ENDIF
20640   model_config_rec%sf_surface_physics(id_id) = sf_surface_physics
20641   RETURN
20642 END SUBROUTINE nl_set_sf_surface_physics
20643 SUBROUTINE nl_set_bl_pbl_physics ( id_id , bl_pbl_physics )
20644   integer , INTENT(IN) :: bl_pbl_physics
20645   INTEGER id_id
20646   CHARACTER*80 emess
20647   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20648     WRITE(emess,*)'nl_set_bl_pbl_physics: Out of range domain number: ',id_id
20649     CALL wrf_error_fatal(emess)
20650   ENDIF
20651   model_config_rec%bl_pbl_physics(id_id) = bl_pbl_physics
20652   RETURN
20653 END SUBROUTINE nl_set_bl_pbl_physics
20654 SUBROUTINE nl_set_bldt ( id_id , bldt )
20655   real , INTENT(IN) :: bldt
20656   INTEGER id_id
20657   CHARACTER*80 emess
20658   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20659     WRITE(emess,*)'nl_set_bldt: Out of range domain number: ',id_id
20660     CALL wrf_error_fatal(emess)
20661   ENDIF
20662   model_config_rec%bldt(id_id) = bldt
20663   RETURN
20664 END SUBROUTINE nl_set_bldt
20665 SUBROUTINE nl_set_cu_physics ( id_id , cu_physics )
20666   integer , INTENT(IN) :: cu_physics
20667   INTEGER id_id
20668   CHARACTER*80 emess
20669   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20670     WRITE(emess,*)'nl_set_cu_physics: Out of range domain number: ',id_id
20671     CALL wrf_error_fatal(emess)
20672   ENDIF
20673   model_config_rec%cu_physics(id_id) = cu_physics
20674   RETURN
20675 END SUBROUTINE nl_set_cu_physics
20676 SUBROUTINE nl_set_cudt ( id_id , cudt )
20677   real , INTENT(IN) :: cudt
20678   INTEGER id_id
20679   CHARACTER*80 emess
20680   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20681     WRITE(emess,*)'nl_set_cudt: Out of range domain number: ',id_id
20682     CALL wrf_error_fatal(emess)
20683   ENDIF
20684   model_config_rec%cudt(id_id) = cudt
20685   RETURN
20686 END SUBROUTINE nl_set_cudt
20687 SUBROUTINE nl_set_gsmdt ( id_id , gsmdt )
20688   real , INTENT(IN) :: gsmdt
20689   INTEGER id_id
20690   CHARACTER*80 emess
20691   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20692     WRITE(emess,*)'nl_set_gsmdt: Out of range domain number: ',id_id
20693     CALL wrf_error_fatal(emess)
20694   ENDIF
20695   model_config_rec%gsmdt(id_id) = gsmdt
20696   RETURN
20697 END SUBROUTINE nl_set_gsmdt
20698 SUBROUTINE nl_set_isfflx ( id_id , isfflx )
20699   integer , INTENT(IN) :: isfflx
20700   INTEGER id_id
20701   CHARACTER*80 emess
20702   IF ( id_id .NE. 1 ) THEN
20703     call wrf_debug(1,&
20704 'WARNING in nl_set_isfflx: isfflx applies to all domains. First arg ignored.')
20705   ENDIF
20706   model_config_rec%isfflx = isfflx 
20707   RETURN
20708 END SUBROUTINE nl_set_isfflx
20709 SUBROUTINE nl_set_ifsnow ( id_id , ifsnow )
20710   integer , INTENT(IN) :: ifsnow
20711   INTEGER id_id
20712   CHARACTER*80 emess
20713   IF ( id_id .NE. 1 ) THEN
20714     call wrf_debug(1,&
20715 'WARNING in nl_set_ifsnow: ifsnow applies to all domains. First arg ignored.')
20716   ENDIF
20717   model_config_rec%ifsnow = ifsnow 
20718   RETURN
20719 END SUBROUTINE nl_set_ifsnow
20720 SUBROUTINE nl_set_icloud ( id_id , icloud )
20721   integer , INTENT(IN) :: icloud
20722   INTEGER id_id
20723   CHARACTER*80 emess
20724   IF ( id_id .NE. 1 ) THEN
20725     call wrf_debug(1,&
20726 'WARNING in nl_set_icloud: icloud applies to all domains. First arg ignored.')
20727   ENDIF
20728   model_config_rec%icloud = icloud 
20729   RETURN
20730 END SUBROUTINE nl_set_icloud
20731 SUBROUTINE nl_set_swrad_scat ( id_id , swrad_scat )
20732   real , INTENT(IN) :: swrad_scat
20733   INTEGER id_id
20734   CHARACTER*80 emess
20735   IF ( id_id .NE. 1 ) THEN
20736     call wrf_debug(1,&
20737 'WARNING in nl_set_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
20738   ENDIF
20739   model_config_rec%swrad_scat = swrad_scat 
20740   RETURN
20741 END SUBROUTINE nl_set_swrad_scat
20742 SUBROUTINE nl_set_surface_input_source ( id_id , surface_input_source )
20743   integer , INTENT(IN) :: surface_input_source
20744   INTEGER id_id
20745   CHARACTER*80 emess
20746   IF ( id_id .NE. 1 ) THEN
20747     call wrf_debug(1,&
20748 'WARNING in nl_set_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
20749   ENDIF
20750   model_config_rec%surface_input_source = surface_input_source 
20751   RETURN
20752 END SUBROUTINE nl_set_surface_input_source
20753 SUBROUTINE nl_set_num_soil_layers ( id_id , num_soil_layers )
20754   integer , INTENT(IN) :: num_soil_layers
20755   INTEGER id_id
20756   CHARACTER*80 emess
20757   IF ( id_id .NE. 1 ) THEN
20758     call wrf_debug(1,&
20759 'WARNING in nl_set_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
20760   ENDIF
20761   model_config_rec%num_soil_layers = num_soil_layers 
20762   RETURN
20763 END SUBROUTINE nl_set_num_soil_layers
20764 SUBROUTINE nl_set_num_months ( id_id , num_months )
20765   integer , INTENT(IN) :: num_months
20766   INTEGER id_id
20767   CHARACTER*80 emess
20768   IF ( id_id .NE. 1 ) THEN
20769     call wrf_debug(1,&
20770 'WARNING in nl_set_num_months: num_months applies to all domains. First arg ignored.')
20771   ENDIF
20772   model_config_rec%num_months = num_months 
20773   RETURN
20774 END SUBROUTINE nl_set_num_months
20775 SUBROUTINE nl_set_maxiens ( id_id , maxiens )
20776   integer , INTENT(IN) :: maxiens
20777   INTEGER id_id
20778   CHARACTER*80 emess
20779   IF ( id_id .NE. 1 ) THEN
20780     call wrf_debug(1,&
20781 'WARNING in nl_set_maxiens: maxiens applies to all domains. First arg ignored.')
20782   ENDIF
20783   model_config_rec%maxiens = maxiens 
20784   RETURN
20785 END SUBROUTINE nl_set_maxiens
20786 SUBROUTINE nl_set_maxens ( id_id , maxens )
20787   integer , INTENT(IN) :: maxens
20788   INTEGER id_id
20789   CHARACTER*80 emess
20790   IF ( id_id .NE. 1 ) THEN
20791     call wrf_debug(1,&
20792 'WARNING in nl_set_maxens: maxens applies to all domains. First arg ignored.')
20793   ENDIF
20794   model_config_rec%maxens = maxens 
20795   RETURN
20796 END SUBROUTINE nl_set_maxens
20797 SUBROUTINE nl_set_maxens2 ( id_id , maxens2 )
20798   integer , INTENT(IN) :: maxens2
20799   INTEGER id_id
20800   CHARACTER*80 emess
20801   IF ( id_id .NE. 1 ) THEN
20802     call wrf_debug(1,&
20803 'WARNING in nl_set_maxens2: maxens2 applies to all domains. First arg ignored.')
20804   ENDIF
20805   model_config_rec%maxens2 = maxens2 
20806   RETURN
20807 END SUBROUTINE nl_set_maxens2
20808 SUBROUTINE nl_set_maxens3 ( id_id , maxens3 )
20809   integer , INTENT(IN) :: maxens3
20810   INTEGER id_id
20811   CHARACTER*80 emess
20812   IF ( id_id .NE. 1 ) THEN
20813     call wrf_debug(1,&
20814 'WARNING in nl_set_maxens3: maxens3 applies to all domains. First arg ignored.')
20815   ENDIF
20816   model_config_rec%maxens3 = maxens3 
20817   RETURN
20818 END SUBROUTINE nl_set_maxens3
20819 SUBROUTINE nl_set_ensdim ( id_id , ensdim )
20820   integer , INTENT(IN) :: ensdim
20821   INTEGER id_id
20822   CHARACTER*80 emess
20823   IF ( id_id .NE. 1 ) THEN
20824     call wrf_debug(1,&
20825 'WARNING in nl_set_ensdim: ensdim applies to all domains. First arg ignored.')
20826   ENDIF
20827   model_config_rec%ensdim = ensdim 
20828   RETURN
20829 END SUBROUTINE nl_set_ensdim
20830 SUBROUTINE nl_set_chem_opt ( id_id , chem_opt )
20831   integer , INTENT(IN) :: chem_opt
20832   INTEGER id_id
20833   CHARACTER*80 emess
20834   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20835     WRITE(emess,*)'nl_set_chem_opt: Out of range domain number: ',id_id
20836     CALL wrf_error_fatal(emess)
20837   ENDIF
20838   model_config_rec%chem_opt(id_id) = chem_opt
20839   RETURN
20840 END SUBROUTINE nl_set_chem_opt
20841 SUBROUTINE nl_set_num_land_cat ( id_id , num_land_cat )
20842   integer , INTENT(IN) :: num_land_cat
20843   INTEGER id_id
20844   CHARACTER*80 emess
20845   IF ( id_id .NE. 1 ) THEN
20846     call wrf_debug(1,&
20847 'WARNING in nl_set_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
20848   ENDIF
20849   model_config_rec%num_land_cat = num_land_cat 
20850   RETURN
20851 END SUBROUTINE nl_set_num_land_cat
20852 SUBROUTINE nl_set_num_soil_cat ( id_id , num_soil_cat )
20853   integer , INTENT(IN) :: num_soil_cat
20854   INTEGER id_id
20855   CHARACTER*80 emess
20856   IF ( id_id .NE. 1 ) THEN
20857     call wrf_debug(1,&
20858 'WARNING in nl_set_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
20859   ENDIF
20860   model_config_rec%num_soil_cat = num_soil_cat 
20861   RETURN
20862 END SUBROUTINE nl_set_num_soil_cat
20863 SUBROUTINE nl_set_mp_zero_out ( id_id , mp_zero_out )
20864   integer , INTENT(IN) :: mp_zero_out
20865   INTEGER id_id
20866   CHARACTER*80 emess
20867   IF ( id_id .NE. 1 ) THEN
20868     call wrf_debug(1,&
20869 'WARNING in nl_set_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
20870   ENDIF
20871   model_config_rec%mp_zero_out = mp_zero_out 
20872   RETURN
20873 END SUBROUTINE nl_set_mp_zero_out
20874 SUBROUTINE nl_set_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
20875   real , INTENT(IN) :: mp_zero_out_thresh
20876   INTEGER id_id
20877   CHARACTER*80 emess
20878   IF ( id_id .NE. 1 ) THEN
20879     call wrf_debug(1,&
20880 'WARNING in nl_set_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
20881   ENDIF
20882   model_config_rec%mp_zero_out_thresh = mp_zero_out_thresh 
20883   RETURN
20884 END SUBROUTINE nl_set_mp_zero_out_thresh
20885 SUBROUTINE nl_set_seaice_threshold ( id_id , seaice_threshold )
20886   real , INTENT(IN) :: seaice_threshold
20887   INTEGER id_id
20888   CHARACTER*80 emess
20889   IF ( id_id .NE. 1 ) THEN
20890     call wrf_debug(1,&
20891 'WARNING in nl_set_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
20892   ENDIF
20893   model_config_rec%seaice_threshold = seaice_threshold 
20894   RETURN
20895 END SUBROUTINE nl_set_seaice_threshold
20896 SUBROUTINE nl_set_sst_update ( id_id , sst_update )
20897   integer , INTENT(IN) :: sst_update
20898   INTEGER id_id
20899   CHARACTER*80 emess
20900   IF ( id_id .NE. 1 ) THEN
20901     call wrf_debug(1,&
20902 'WARNING in nl_set_sst_update: sst_update applies to all domains. First arg ignored.')
20903   ENDIF
20904   model_config_rec%sst_update = sst_update 
20905   RETURN
20906 END SUBROUTINE nl_set_sst_update
20907 SUBROUTINE nl_set_ucmcall ( id_id , ucmcall )
20908   integer , INTENT(IN) :: ucmcall
20909   INTEGER id_id
20910   CHARACTER*80 emess
20911   IF ( id_id .NE. 1 ) THEN
20912     call wrf_debug(1,&
20913 'WARNING in nl_set_ucmcall: ucmcall applies to all domains. First arg ignored.')
20914   ENDIF
20915   model_config_rec%ucmcall = ucmcall 
20916   RETURN
20917 END SUBROUTINE nl_set_ucmcall
20918 SUBROUTINE nl_set_co2tf ( id_id , co2tf )
20919   integer , INTENT(IN) :: co2tf
20920   INTEGER id_id
20921   CHARACTER*80 emess
20922   IF ( id_id .NE. 1 ) THEN
20923     call wrf_debug(1,&
20924 'WARNING in nl_set_co2tf: co2tf applies to all domains. First arg ignored.')
20925   ENDIF
20926   model_config_rec%co2tf = co2tf 
20927   RETURN
20928 END SUBROUTINE nl_set_co2tf
20929 SUBROUTINE nl_set_ra_call_offset ( id_id , ra_call_offset )
20930   integer , INTENT(IN) :: ra_call_offset
20931   INTEGER id_id
20932   CHARACTER*80 emess
20933   IF ( id_id .NE. 1 ) THEN
20934     call wrf_debug(1,&
20935 'WARNING in nl_set_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
20936   ENDIF
20937   model_config_rec%ra_call_offset = ra_call_offset 
20938   RETURN
20939 END SUBROUTINE nl_set_ra_call_offset
20940 SUBROUTINE nl_set_cam_abs_freq_s ( id_id , cam_abs_freq_s )
20941   real , INTENT(IN) :: cam_abs_freq_s
20942   INTEGER id_id
20943   CHARACTER*80 emess
20944   IF ( id_id .NE. 1 ) THEN
20945     call wrf_debug(1,&
20946 'WARNING in nl_set_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
20947   ENDIF
20948   model_config_rec%cam_abs_freq_s = cam_abs_freq_s 
20949   RETURN
20950 END SUBROUTINE nl_set_cam_abs_freq_s
20951 SUBROUTINE nl_set_levsiz ( id_id , levsiz )
20952   integer , INTENT(IN) :: levsiz
20953   INTEGER id_id
20954   CHARACTER*80 emess
20955   IF ( id_id .NE. 1 ) THEN
20956     call wrf_debug(1,&
20957 'WARNING in nl_set_levsiz: levsiz applies to all domains. First arg ignored.')
20958   ENDIF
20959   model_config_rec%levsiz = levsiz 
20960   RETURN
20961 END SUBROUTINE nl_set_levsiz
20962 SUBROUTINE nl_set_paerlev ( id_id , paerlev )
20963   integer , INTENT(IN) :: paerlev
20964   INTEGER id_id
20965   CHARACTER*80 emess
20966   IF ( id_id .NE. 1 ) THEN
20967     call wrf_debug(1,&
20968 'WARNING in nl_set_paerlev: paerlev applies to all domains. First arg ignored.')
20969   ENDIF
20970   model_config_rec%paerlev = paerlev 
20971   RETURN
20972 END SUBROUTINE nl_set_paerlev
20973 SUBROUTINE nl_set_cam_abs_dim1 ( id_id , cam_abs_dim1 )
20974   integer , INTENT(IN) :: cam_abs_dim1
20975   INTEGER id_id
20976   CHARACTER*80 emess
20977   IF ( id_id .NE. 1 ) THEN
20978     call wrf_debug(1,&
20979 'WARNING in nl_set_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
20980   ENDIF
20981   model_config_rec%cam_abs_dim1 = cam_abs_dim1 
20982   RETURN
20983 END SUBROUTINE nl_set_cam_abs_dim1
20984 SUBROUTINE nl_set_cam_abs_dim2 ( id_id , cam_abs_dim2 )
20985   integer , INTENT(IN) :: cam_abs_dim2
20986   INTEGER id_id
20987   CHARACTER*80 emess
20988   IF ( id_id .NE. 1 ) THEN
20989     call wrf_debug(1,&
20990 'WARNING in nl_set_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
20991   ENDIF
20992   model_config_rec%cam_abs_dim2 = cam_abs_dim2 
20993   RETURN
20994 END SUBROUTINE nl_set_cam_abs_dim2
20995 SUBROUTINE nl_set_cu_rad_feedback ( id_id , cu_rad_feedback )
20996   logical , INTENT(IN) :: cu_rad_feedback
20997   INTEGER id_id
20998   CHARACTER*80 emess
20999   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21000     WRITE(emess,*)'nl_set_cu_rad_feedback: Out of range domain number: ',id_id
21001     CALL wrf_error_fatal(emess)
21002   ENDIF
21003   model_config_rec%cu_rad_feedback(id_id) = cu_rad_feedback
21004   RETURN
21005 END SUBROUTINE nl_set_cu_rad_feedback
21006 SUBROUTINE nl_set_fgdt ( id_id , fgdt )
21007   real , INTENT(IN) :: fgdt
21008   INTEGER id_id
21009   CHARACTER*80 emess
21010   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21011     WRITE(emess,*)'nl_set_fgdt: Out of range domain number: ',id_id
21012     CALL wrf_error_fatal(emess)
21013   ENDIF
21014   model_config_rec%fgdt(id_id) = fgdt
21015   RETURN
21016 END SUBROUTINE nl_set_fgdt
21017 SUBROUTINE nl_set_grid_fdda ( id_id , grid_fdda )
21018   integer , INTENT(IN) :: grid_fdda
21019   INTEGER id_id
21020   CHARACTER*80 emess
21021   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21022     WRITE(emess,*)'nl_set_grid_fdda: Out of range domain number: ',id_id
21023     CALL wrf_error_fatal(emess)
21024   ENDIF
21025   model_config_rec%grid_fdda(id_id) = grid_fdda
21026   RETURN
21027 END SUBROUTINE nl_set_grid_fdda
21028 SUBROUTINE nl_set_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
21029   integer , INTENT(IN) :: if_no_pbl_nudging_uv
21030   INTEGER id_id
21031   CHARACTER*80 emess
21032   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21033     WRITE(emess,*)'nl_set_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
21034     CALL wrf_error_fatal(emess)
21035   ENDIF
21036   model_config_rec%if_no_pbl_nudging_uv(id_id) = if_no_pbl_nudging_uv
21037   RETURN
21038 END SUBROUTINE nl_set_if_no_pbl_nudging_uv
21039 SUBROUTINE nl_set_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
21040   integer , INTENT(IN) :: if_no_pbl_nudging_t
21041   INTEGER id_id
21042   CHARACTER*80 emess
21043   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21044     WRITE(emess,*)'nl_set_if_no_pbl_nudging_t: Out of range domain number: ',id_id
21045     CALL wrf_error_fatal(emess)
21046   ENDIF
21047   model_config_rec%if_no_pbl_nudging_t(id_id) = if_no_pbl_nudging_t
21048   RETURN
21049 END SUBROUTINE nl_set_if_no_pbl_nudging_t
21050 SUBROUTINE nl_set_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
21051   integer , INTENT(IN) :: if_no_pbl_nudging_q
21052   INTEGER id_id
21053   CHARACTER*80 emess
21054   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21055     WRITE(emess,*)'nl_set_if_no_pbl_nudging_q: Out of range domain number: ',id_id
21056     CALL wrf_error_fatal(emess)
21057   ENDIF
21058   model_config_rec%if_no_pbl_nudging_q(id_id) = if_no_pbl_nudging_q
21059   RETURN
21060 END SUBROUTINE nl_set_if_no_pbl_nudging_q
21061 SUBROUTINE nl_set_if_zfac_uv ( id_id , if_zfac_uv )
21062   integer , INTENT(IN) :: if_zfac_uv
21063   INTEGER id_id
21064   CHARACTER*80 emess
21065   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21066     WRITE(emess,*)'nl_set_if_zfac_uv: Out of range domain number: ',id_id
21067     CALL wrf_error_fatal(emess)
21068   ENDIF
21069   model_config_rec%if_zfac_uv(id_id) = if_zfac_uv
21070   RETURN
21071 END SUBROUTINE nl_set_if_zfac_uv
21072 SUBROUTINE nl_set_k_zfac_uv ( id_id , k_zfac_uv )
21073   integer , INTENT(IN) :: k_zfac_uv
21074   INTEGER id_id
21075   CHARACTER*80 emess
21076   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21077     WRITE(emess,*)'nl_set_k_zfac_uv: Out of range domain number: ',id_id
21078     CALL wrf_error_fatal(emess)
21079   ENDIF
21080   model_config_rec%k_zfac_uv(id_id) = k_zfac_uv
21081   RETURN
21082 END SUBROUTINE nl_set_k_zfac_uv
21083 SUBROUTINE nl_set_if_zfac_t ( id_id , if_zfac_t )
21084   integer , INTENT(IN) :: if_zfac_t
21085   INTEGER id_id
21086   CHARACTER*80 emess
21087   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21088     WRITE(emess,*)'nl_set_if_zfac_t: Out of range domain number: ',id_id
21089     CALL wrf_error_fatal(emess)
21090   ENDIF
21091   model_config_rec%if_zfac_t(id_id) = if_zfac_t
21092   RETURN
21093 END SUBROUTINE nl_set_if_zfac_t
21094 SUBROUTINE nl_set_k_zfac_t ( id_id , k_zfac_t )
21095   integer , INTENT(IN) :: k_zfac_t
21096   INTEGER id_id
21097   CHARACTER*80 emess
21098   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21099     WRITE(emess,*)'nl_set_k_zfac_t: Out of range domain number: ',id_id
21100     CALL wrf_error_fatal(emess)
21101   ENDIF
21102   model_config_rec%k_zfac_t(id_id) = k_zfac_t
21103   RETURN
21104 END SUBROUTINE nl_set_k_zfac_t
21105 SUBROUTINE nl_set_if_zfac_q ( id_id , if_zfac_q )
21106   integer , INTENT(IN) :: if_zfac_q
21107   INTEGER id_id
21108   CHARACTER*80 emess
21109   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21110     WRITE(emess,*)'nl_set_if_zfac_q: Out of range domain number: ',id_id
21111     CALL wrf_error_fatal(emess)
21112   ENDIF
21113   model_config_rec%if_zfac_q(id_id) = if_zfac_q
21114   RETURN
21115 END SUBROUTINE nl_set_if_zfac_q
21116 SUBROUTINE nl_set_k_zfac_q ( id_id , k_zfac_q )
21117   integer , INTENT(IN) :: k_zfac_q
21118   INTEGER id_id
21119   CHARACTER*80 emess
21120   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21121     WRITE(emess,*)'nl_set_k_zfac_q: Out of range domain number: ',id_id
21122     CALL wrf_error_fatal(emess)
21123   ENDIF
21124   model_config_rec%k_zfac_q(id_id) = k_zfac_q
21125   RETURN
21126 END SUBROUTINE nl_set_k_zfac_q
21127 SUBROUTINE nl_set_guv ( id_id , guv )
21128   real , INTENT(IN) :: guv
21129   INTEGER id_id
21130   CHARACTER*80 emess
21131   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21132     WRITE(emess,*)'nl_set_guv: Out of range domain number: ',id_id
21133     CALL wrf_error_fatal(emess)
21134   ENDIF
21135   model_config_rec%guv(id_id) = guv
21136   RETURN
21137 END SUBROUTINE nl_set_guv
21138 SUBROUTINE nl_set_gt ( id_id , gt )
21139   real , INTENT(IN) :: gt
21140   INTEGER id_id
21141   CHARACTER*80 emess
21142   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21143     WRITE(emess,*)'nl_set_gt: Out of range domain number: ',id_id
21144     CALL wrf_error_fatal(emess)
21145   ENDIF
21146   model_config_rec%gt(id_id) = gt
21147   RETURN
21148 END SUBROUTINE nl_set_gt
21149 SUBROUTINE nl_set_gq ( id_id , gq )
21150   real , INTENT(IN) :: gq
21151   INTEGER id_id
21152   CHARACTER*80 emess
21153   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21154     WRITE(emess,*)'nl_set_gq: Out of range domain number: ',id_id
21155     CALL wrf_error_fatal(emess)
21156   ENDIF
21157   model_config_rec%gq(id_id) = gq
21158   RETURN
21159 END SUBROUTINE nl_set_gq
21160 SUBROUTINE nl_set_dtramp_min ( id_id , dtramp_min )
21161   real , INTENT(IN) :: dtramp_min
21162   INTEGER id_id
21163   CHARACTER*80 emess
21164   IF ( id_id .NE. 1 ) THEN
21165     call wrf_debug(1,&
21166 'WARNING in nl_set_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
21167   ENDIF
21168   model_config_rec%dtramp_min = dtramp_min 
21169   RETURN
21170 END SUBROUTINE nl_set_dtramp_min
21171 SUBROUTINE nl_set_if_ramping ( id_id , if_ramping )
21172   integer , INTENT(IN) :: if_ramping
21173   INTEGER id_id
21174   CHARACTER*80 emess
21175   IF ( id_id .NE. 1 ) THEN
21176     call wrf_debug(1,&
21177 'WARNING in nl_set_if_ramping: if_ramping applies to all domains. First arg ignored.')
21178   ENDIF
21179   model_config_rec%if_ramping = if_ramping 
21180   RETURN
21181 END SUBROUTINE nl_set_if_ramping
21182 SUBROUTINE nl_set_obs_nudge_opt ( id_id , obs_nudge_opt )
21183   integer , INTENT(IN) :: obs_nudge_opt
21184   INTEGER id_id
21185   CHARACTER*80 emess
21186   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21187     WRITE(emess,*)'nl_set_obs_nudge_opt: Out of range domain number: ',id_id
21188     CALL wrf_error_fatal(emess)
21189   ENDIF
21190   model_config_rec%obs_nudge_opt(id_id) = obs_nudge_opt
21191   RETURN
21192 END SUBROUTINE nl_set_obs_nudge_opt
21193 SUBROUTINE nl_set_max_obs ( id_id , max_obs )
21194   integer , INTENT(IN) :: max_obs
21195   INTEGER id_id
21196   CHARACTER*80 emess
21197   IF ( id_id .NE. 1 ) THEN
21198     call wrf_debug(1,&
21199 'WARNING in nl_set_max_obs: max_obs applies to all domains. First arg ignored.')
21200   ENDIF
21201   model_config_rec%max_obs = max_obs 
21202   RETURN
21203 END SUBROUTINE nl_set_max_obs
21204 SUBROUTINE nl_set_nobs_ndg_vars ( id_id , nobs_ndg_vars )
21205   integer , INTENT(IN) :: nobs_ndg_vars
21206   INTEGER id_id
21207   CHARACTER*80 emess
21208   IF ( id_id .NE. 1 ) THEN
21209     call wrf_debug(1,&
21210 'WARNING in nl_set_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
21211   ENDIF
21212   model_config_rec%nobs_ndg_vars = nobs_ndg_vars 
21213   RETURN
21214 END SUBROUTINE nl_set_nobs_ndg_vars
21215 SUBROUTINE nl_set_nobs_err_flds ( id_id , nobs_err_flds )
21216   integer , INTENT(IN) :: nobs_err_flds
21217   INTEGER id_id
21218   CHARACTER*80 emess
21219   IF ( id_id .NE. 1 ) THEN
21220     call wrf_debug(1,&
21221 'WARNING in nl_set_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
21222   ENDIF
21223   model_config_rec%nobs_err_flds = nobs_err_flds 
21224   RETURN
21225 END SUBROUTINE nl_set_nobs_err_flds
21226 SUBROUTINE nl_set_fdda_start ( id_id , fdda_start )
21227   real , INTENT(IN) :: fdda_start
21228   INTEGER id_id
21229   CHARACTER*80 emess
21230   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21231     WRITE(emess,*)'nl_set_fdda_start: Out of range domain number: ',id_id
21232     CALL wrf_error_fatal(emess)
21233   ENDIF
21234   model_config_rec%fdda_start(id_id) = fdda_start
21235   RETURN
21236 END SUBROUTINE nl_set_fdda_start
21237 SUBROUTINE nl_set_fdda_end ( id_id , fdda_end )
21238   real , INTENT(IN) :: fdda_end
21239   INTEGER id_id
21240   CHARACTER*80 emess
21241   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21242     WRITE(emess,*)'nl_set_fdda_end: Out of range domain number: ',id_id
21243     CALL wrf_error_fatal(emess)
21244   ENDIF
21245   model_config_rec%fdda_end(id_id) = fdda_end
21246   RETURN
21247 END SUBROUTINE nl_set_fdda_end
21248 SUBROUTINE nl_set_obs_nudge_wind ( id_id , obs_nudge_wind )
21249   integer , INTENT(IN) :: obs_nudge_wind
21250   INTEGER id_id
21251   CHARACTER*80 emess
21252   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21253     WRITE(emess,*)'nl_set_obs_nudge_wind: Out of range domain number: ',id_id
21254     CALL wrf_error_fatal(emess)
21255   ENDIF
21256   model_config_rec%obs_nudge_wind(id_id) = obs_nudge_wind
21257   RETURN
21258 END SUBROUTINE nl_set_obs_nudge_wind
21259 SUBROUTINE nl_set_obs_coef_wind ( id_id , obs_coef_wind )
21260   real , INTENT(IN) :: obs_coef_wind
21261   INTEGER id_id
21262   CHARACTER*80 emess
21263   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21264     WRITE(emess,*)'nl_set_obs_coef_wind: Out of range domain number: ',id_id
21265     CALL wrf_error_fatal(emess)
21266   ENDIF
21267   model_config_rec%obs_coef_wind(id_id) = obs_coef_wind
21268   RETURN
21269 END SUBROUTINE nl_set_obs_coef_wind
21270 SUBROUTINE nl_set_obs_nudge_temp ( id_id , obs_nudge_temp )
21271   integer , INTENT(IN) :: obs_nudge_temp
21272   INTEGER id_id
21273   CHARACTER*80 emess
21274   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21275     WRITE(emess,*)'nl_set_obs_nudge_temp: Out of range domain number: ',id_id
21276     CALL wrf_error_fatal(emess)
21277   ENDIF
21278   model_config_rec%obs_nudge_temp(id_id) = obs_nudge_temp
21279   RETURN
21280 END SUBROUTINE nl_set_obs_nudge_temp
21281 SUBROUTINE nl_set_obs_coef_temp ( id_id , obs_coef_temp )
21282   real , INTENT(IN) :: obs_coef_temp
21283   INTEGER id_id
21284   CHARACTER*80 emess
21285   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21286     WRITE(emess,*)'nl_set_obs_coef_temp: Out of range domain number: ',id_id
21287     CALL wrf_error_fatal(emess)
21288   ENDIF
21289   model_config_rec%obs_coef_temp(id_id) = obs_coef_temp
21290   RETURN
21291 END SUBROUTINE nl_set_obs_coef_temp
21292 SUBROUTINE nl_set_obs_nudge_mois ( id_id , obs_nudge_mois )
21293   integer , INTENT(IN) :: obs_nudge_mois
21294   INTEGER id_id
21295   CHARACTER*80 emess
21296   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21297     WRITE(emess,*)'nl_set_obs_nudge_mois: Out of range domain number: ',id_id
21298     CALL wrf_error_fatal(emess)
21299   ENDIF
21300   model_config_rec%obs_nudge_mois(id_id) = obs_nudge_mois
21301   RETURN
21302 END SUBROUTINE nl_set_obs_nudge_mois
21303 SUBROUTINE nl_set_obs_coef_mois ( id_id , obs_coef_mois )
21304   real , INTENT(IN) :: obs_coef_mois
21305   INTEGER id_id
21306   CHARACTER*80 emess
21307   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21308     WRITE(emess,*)'nl_set_obs_coef_mois: Out of range domain number: ',id_id
21309     CALL wrf_error_fatal(emess)
21310   ENDIF
21311   model_config_rec%obs_coef_mois(id_id) = obs_coef_mois
21312   RETURN
21313 END SUBROUTINE nl_set_obs_coef_mois
21314 SUBROUTINE nl_set_obs_nudge_pstr ( id_id , obs_nudge_pstr )
21315   integer , INTENT(IN) :: obs_nudge_pstr
21316   INTEGER id_id
21317   CHARACTER*80 emess
21318   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21319     WRITE(emess,*)'nl_set_obs_nudge_pstr: Out of range domain number: ',id_id
21320     CALL wrf_error_fatal(emess)
21321   ENDIF
21322   model_config_rec%obs_nudge_pstr(id_id) = obs_nudge_pstr
21323   RETURN
21324 END SUBROUTINE nl_set_obs_nudge_pstr
21325 SUBROUTINE nl_set_obs_coef_pstr ( id_id , obs_coef_pstr )
21326   real , INTENT(IN) :: obs_coef_pstr
21327   INTEGER id_id
21328   CHARACTER*80 emess
21329   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21330     WRITE(emess,*)'nl_set_obs_coef_pstr: Out of range domain number: ',id_id
21331     CALL wrf_error_fatal(emess)
21332   ENDIF
21333   model_config_rec%obs_coef_pstr(id_id) = obs_coef_pstr
21334   RETURN
21335 END SUBROUTINE nl_set_obs_coef_pstr
21336 SUBROUTINE nl_set_obs_rinxy ( id_id , obs_rinxy )
21337   real , INTENT(IN) :: obs_rinxy
21338   INTEGER id_id
21339   CHARACTER*80 emess
21340   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21341     WRITE(emess,*)'nl_set_obs_rinxy: Out of range domain number: ',id_id
21342     CALL wrf_error_fatal(emess)
21343   ENDIF
21344   model_config_rec%obs_rinxy(id_id) = obs_rinxy
21345   RETURN
21346 END SUBROUTINE nl_set_obs_rinxy
21347 SUBROUTINE nl_set_obs_rinsig ( id_id , obs_rinsig )
21348   real , INTENT(IN) :: obs_rinsig
21349   INTEGER id_id
21350   CHARACTER*80 emess
21351   IF ( id_id .NE. 1 ) THEN
21352     call wrf_debug(1,&
21353 'WARNING in nl_set_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
21354   ENDIF
21355   model_config_rec%obs_rinsig = obs_rinsig 
21356   RETURN
21357 END SUBROUTINE nl_set_obs_rinsig
21358 SUBROUTINE nl_set_obs_twindo ( id_id , obs_twindo )
21359   real , INTENT(IN) :: obs_twindo
21360   INTEGER id_id
21361   CHARACTER*80 emess
21362   IF ( id_id .NE. 1 ) THEN
21363     call wrf_debug(1,&
21364 'WARNING in nl_set_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
21365   ENDIF
21366   model_config_rec%obs_twindo = obs_twindo 
21367   RETURN
21368 END SUBROUTINE nl_set_obs_twindo
21369 SUBROUTINE nl_set_obs_npfi ( id_id , obs_npfi )
21370   integer , INTENT(IN) :: obs_npfi
21371   INTEGER id_id
21372   CHARACTER*80 emess
21373   IF ( id_id .NE. 1 ) THEN
21374     call wrf_debug(1,&
21375 'WARNING in nl_set_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
21376   ENDIF
21377   model_config_rec%obs_npfi = obs_npfi 
21378   RETURN
21379 END SUBROUTINE nl_set_obs_npfi
21380 SUBROUTINE nl_set_obs_ionf ( id_id , obs_ionf )
21381   integer , INTENT(IN) :: obs_ionf
21382   INTEGER id_id
21383   CHARACTER*80 emess
21384   IF ( id_id .NE. 1 ) THEN
21385     call wrf_debug(1,&
21386 'WARNING in nl_set_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
21387   ENDIF
21388   model_config_rec%obs_ionf = obs_ionf 
21389   RETURN
21390 END SUBROUTINE nl_set_obs_ionf
21391 SUBROUTINE nl_set_obs_idynin ( id_id , obs_idynin )
21392   integer , INTENT(IN) :: obs_idynin
21393   INTEGER id_id
21394   CHARACTER*80 emess
21395   IF ( id_id .NE. 1 ) THEN
21396     call wrf_debug(1,&
21397 'WARNING in nl_set_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
21398   ENDIF
21399   model_config_rec%obs_idynin = obs_idynin 
21400   RETURN
21401 END SUBROUTINE nl_set_obs_idynin
21402 SUBROUTINE nl_set_obs_dtramp ( id_id , obs_dtramp )
21403   real , INTENT(IN) :: obs_dtramp
21404   INTEGER id_id
21405   CHARACTER*80 emess
21406   IF ( id_id .NE. 1 ) THEN
21407     call wrf_debug(1,&
21408 'WARNING in nl_set_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
21409   ENDIF
21410   model_config_rec%obs_dtramp = obs_dtramp 
21411   RETURN
21412 END SUBROUTINE nl_set_obs_dtramp
21413 SUBROUTINE nl_set_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
21414   logical , INTENT(IN) :: obs_ipf_in4dob
21415   INTEGER id_id
21416   CHARACTER*80 emess
21417   IF ( id_id .NE. 1 ) THEN
21418     call wrf_debug(1,&
21419 'WARNING in nl_set_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
21420   ENDIF
21421   model_config_rec%obs_ipf_in4dob = obs_ipf_in4dob 
21422   RETURN
21423 END SUBROUTINE nl_set_obs_ipf_in4dob
21424 SUBROUTINE nl_set_obs_ipf_errob ( id_id , obs_ipf_errob )
21425   logical , INTENT(IN) :: obs_ipf_errob
21426   INTEGER id_id
21427   CHARACTER*80 emess
21428   IF ( id_id .NE. 1 ) THEN
21429     call wrf_debug(1,&
21430 'WARNING in nl_set_obs_ipf_errob: obs_ipf_errob applies to all domains. First arg ignored.')
21431   ENDIF
21432   model_config_rec%obs_ipf_errob = obs_ipf_errob 
21433   RETURN
21434 END SUBROUTINE nl_set_obs_ipf_errob
21435 SUBROUTINE nl_set_obs_ipf_nudob ( id_id , obs_ipf_nudob )
21436   logical , INTENT(IN) :: obs_ipf_nudob
21437   INTEGER id_id
21438   CHARACTER*80 emess
21439   IF ( id_id .NE. 1 ) THEN
21440     call wrf_debug(1,&
21441 'WARNING in nl_set_obs_ipf_nudob: obs_ipf_nudob applies to all domains. First arg ignored.')
21442   ENDIF
21443   model_config_rec%obs_ipf_nudob = obs_ipf_nudob 
21444   RETURN
21445 END SUBROUTINE nl_set_obs_ipf_nudob
21446 SUBROUTINE nl_set_dyn_opt ( id_id , dyn_opt )
21447   integer , INTENT(IN) :: dyn_opt
21448   INTEGER id_id
21449   CHARACTER*80 emess
21450   IF ( id_id .NE. 1 ) THEN
21451     call wrf_debug(1,&
21452 'WARNING in nl_set_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
21453   ENDIF
21454   model_config_rec%dyn_opt = dyn_opt 
21455   RETURN
21456 END SUBROUTINE nl_set_dyn_opt
21457 SUBROUTINE nl_set_rk_ord ( id_id , rk_ord )
21458   integer , INTENT(IN) :: rk_ord
21459   INTEGER id_id
21460   CHARACTER*80 emess
21461   IF ( id_id .NE. 1 ) THEN
21462     call wrf_debug(1,&
21463 'WARNING in nl_set_rk_ord: rk_ord applies to all domains. First arg ignored.')
21464   ENDIF
21465   model_config_rec%rk_ord = rk_ord 
21466   RETURN
21467 END SUBROUTINE nl_set_rk_ord
21468 SUBROUTINE nl_set_w_damping ( id_id , w_damping )
21469   integer , INTENT(IN) :: w_damping
21470   INTEGER id_id
21471   CHARACTER*80 emess
21472   IF ( id_id .NE. 1 ) THEN
21473     call wrf_debug(1,&
21474 'WARNING in nl_set_w_damping: w_damping applies to all domains. First arg ignored.')
21475   ENDIF
21476   model_config_rec%w_damping = w_damping 
21477   RETURN
21478 END SUBROUTINE nl_set_w_damping
21479 SUBROUTINE nl_set_diff_opt ( id_id , diff_opt )
21480   integer , INTENT(IN) :: diff_opt
21481   INTEGER id_id
21482   CHARACTER*80 emess
21483   IF ( id_id .NE. 1 ) THEN
21484     call wrf_debug(1,&
21485 'WARNING in nl_set_diff_opt: diff_opt applies to all domains. First arg ignored.')
21486   ENDIF
21487   model_config_rec%diff_opt = diff_opt 
21488   RETURN
21489 END SUBROUTINE nl_set_diff_opt
21490 SUBROUTINE nl_set_km_opt ( id_id , km_opt )
21491   integer , INTENT(IN) :: km_opt
21492   INTEGER id_id
21493   CHARACTER*80 emess
21494   IF ( id_id .NE. 1 ) THEN
21495     call wrf_debug(1,&
21496 'WARNING in nl_set_km_opt: km_opt applies to all domains. First arg ignored.')
21497   ENDIF
21498   model_config_rec%km_opt = km_opt 
21499   RETURN
21500 END SUBROUTINE nl_set_km_opt
21501 SUBROUTINE nl_set_damp_opt ( id_id , damp_opt )
21502   integer , INTENT(IN) :: damp_opt
21503   INTEGER id_id
21504   CHARACTER*80 emess
21505   IF ( id_id .NE. 1 ) THEN
21506     call wrf_debug(1,&
21507 'WARNING in nl_set_damp_opt: damp_opt applies to all domains. First arg ignored.')
21508   ENDIF
21509   model_config_rec%damp_opt = damp_opt 
21510   RETURN
21511 END SUBROUTINE nl_set_damp_opt
21512 SUBROUTINE nl_set_zdamp ( id_id , zdamp )
21513   real , INTENT(IN) :: zdamp
21514   INTEGER id_id
21515   CHARACTER*80 emess
21516   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21517     WRITE(emess,*)'nl_set_zdamp: Out of range domain number: ',id_id
21518     CALL wrf_error_fatal(emess)
21519   ENDIF
21520   model_config_rec%zdamp(id_id) = zdamp
21521   RETURN
21522 END SUBROUTINE nl_set_zdamp
21523 SUBROUTINE nl_set_dampcoef ( id_id , dampcoef )
21524   real , INTENT(IN) :: dampcoef
21525   INTEGER id_id
21526   CHARACTER*80 emess
21527   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21528     WRITE(emess,*)'nl_set_dampcoef: Out of range domain number: ',id_id
21529     CALL wrf_error_fatal(emess)
21530   ENDIF
21531   model_config_rec%dampcoef(id_id) = dampcoef
21532   RETURN
21533 END SUBROUTINE nl_set_dampcoef
21534 SUBROUTINE nl_set_khdif ( id_id , khdif )
21535   real , INTENT(IN) :: khdif
21536   INTEGER id_id
21537   CHARACTER*80 emess
21538   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21539     WRITE(emess,*)'nl_set_khdif: Out of range domain number: ',id_id
21540     CALL wrf_error_fatal(emess)
21541   ENDIF
21542   model_config_rec%khdif(id_id) = khdif
21543   RETURN
21544 END SUBROUTINE nl_set_khdif
21545 SUBROUTINE nl_set_kvdif ( id_id , kvdif )
21546   real , INTENT(IN) :: kvdif
21547   INTEGER id_id
21548   CHARACTER*80 emess
21549   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21550     WRITE(emess,*)'nl_set_kvdif: Out of range domain number: ',id_id
21551     CALL wrf_error_fatal(emess)
21552   ENDIF
21553   model_config_rec%kvdif(id_id) = kvdif
21554   RETURN
21555 END SUBROUTINE nl_set_kvdif
21556 SUBROUTINE nl_set_diff_6th_factor ( id_id , diff_6th_factor )
21557   real , INTENT(IN) :: diff_6th_factor
21558   INTEGER id_id
21559   CHARACTER*80 emess
21560   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21561     WRITE(emess,*)'nl_set_diff_6th_factor: Out of range domain number: ',id_id
21562     CALL wrf_error_fatal(emess)
21563   ENDIF
21564   model_config_rec%diff_6th_factor(id_id) = diff_6th_factor
21565   RETURN
21566 END SUBROUTINE nl_set_diff_6th_factor
21567 SUBROUTINE nl_set_diff_6th_opt ( id_id , diff_6th_opt )
21568   integer , INTENT(IN) :: diff_6th_opt
21569   INTEGER id_id
21570   CHARACTER*80 emess
21571   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21572     WRITE(emess,*)'nl_set_diff_6th_opt: Out of range domain number: ',id_id
21573     CALL wrf_error_fatal(emess)
21574   ENDIF
21575   model_config_rec%diff_6th_opt(id_id) = diff_6th_opt
21576   RETURN
21577 END SUBROUTINE nl_set_diff_6th_opt
21578 SUBROUTINE nl_set_smdiv ( id_id , smdiv )
21579   real , INTENT(IN) :: smdiv
21580   INTEGER id_id
21581   CHARACTER*80 emess
21582   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21583     WRITE(emess,*)'nl_set_smdiv: Out of range domain number: ',id_id
21584     CALL wrf_error_fatal(emess)
21585   ENDIF
21586   model_config_rec%smdiv(id_id) = smdiv
21587   RETURN
21588 END SUBROUTINE nl_set_smdiv
21589 SUBROUTINE nl_set_emdiv ( id_id , emdiv )
21590   real , INTENT(IN) :: emdiv
21591   INTEGER id_id
21592   CHARACTER*80 emess
21593   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21594     WRITE(emess,*)'nl_set_emdiv: Out of range domain number: ',id_id
21595     CALL wrf_error_fatal(emess)
21596   ENDIF
21597   model_config_rec%emdiv(id_id) = emdiv
21598   RETURN
21599 END SUBROUTINE nl_set_emdiv
21600 SUBROUTINE nl_set_epssm ( id_id , epssm )
21601   real , INTENT(IN) :: epssm
21602   INTEGER id_id
21603   CHARACTER*80 emess
21604   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21605     WRITE(emess,*)'nl_set_epssm: Out of range domain number: ',id_id
21606     CALL wrf_error_fatal(emess)
21607   ENDIF
21608   model_config_rec%epssm(id_id) = epssm
21609   RETURN
21610 END SUBROUTINE nl_set_epssm
21611 SUBROUTINE nl_set_non_hydrostatic ( id_id , non_hydrostatic )
21612   logical , INTENT(IN) :: non_hydrostatic
21613   INTEGER id_id
21614   CHARACTER*80 emess
21615   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21616     WRITE(emess,*)'nl_set_non_hydrostatic: Out of range domain number: ',id_id
21617     CALL wrf_error_fatal(emess)
21618   ENDIF
21619   model_config_rec%non_hydrostatic(id_id) = non_hydrostatic
21620   RETURN
21621 END SUBROUTINE nl_set_non_hydrostatic
21622 SUBROUTINE nl_set_time_step_sound ( id_id , time_step_sound )
21623   integer , INTENT(IN) :: time_step_sound
21624   INTEGER id_id
21625   CHARACTER*80 emess
21626   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21627     WRITE(emess,*)'nl_set_time_step_sound: Out of range domain number: ',id_id
21628     CALL wrf_error_fatal(emess)
21629   ENDIF
21630   model_config_rec%time_step_sound(id_id) = time_step_sound
21631   RETURN
21632 END SUBROUTINE nl_set_time_step_sound
21633 SUBROUTINE nl_set_h_mom_adv_order ( id_id , h_mom_adv_order )
21634   integer , INTENT(IN) :: h_mom_adv_order
21635   INTEGER id_id
21636   CHARACTER*80 emess
21637   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21638     WRITE(emess,*)'nl_set_h_mom_adv_order: Out of range domain number: ',id_id
21639     CALL wrf_error_fatal(emess)
21640   ENDIF
21641   model_config_rec%h_mom_adv_order(id_id) = h_mom_adv_order
21642   RETURN
21643 END SUBROUTINE nl_set_h_mom_adv_order
21644 SUBROUTINE nl_set_v_mom_adv_order ( id_id , v_mom_adv_order )
21645   integer , INTENT(IN) :: v_mom_adv_order
21646   INTEGER id_id
21647   CHARACTER*80 emess
21648   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21649     WRITE(emess,*)'nl_set_v_mom_adv_order: Out of range domain number: ',id_id
21650     CALL wrf_error_fatal(emess)
21651   ENDIF
21652   model_config_rec%v_mom_adv_order(id_id) = v_mom_adv_order
21653   RETURN
21654 END SUBROUTINE nl_set_v_mom_adv_order
21655 SUBROUTINE nl_set_h_sca_adv_order ( id_id , h_sca_adv_order )
21656   integer , INTENT(IN) :: h_sca_adv_order
21657   INTEGER id_id
21658   CHARACTER*80 emess
21659   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21660     WRITE(emess,*)'nl_set_h_sca_adv_order: Out of range domain number: ',id_id
21661     CALL wrf_error_fatal(emess)
21662   ENDIF
21663   model_config_rec%h_sca_adv_order(id_id) = h_sca_adv_order
21664   RETURN
21665 END SUBROUTINE nl_set_h_sca_adv_order
21666 SUBROUTINE nl_set_v_sca_adv_order ( id_id , v_sca_adv_order )
21667   integer , INTENT(IN) :: v_sca_adv_order
21668   INTEGER id_id
21669   CHARACTER*80 emess
21670   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21671     WRITE(emess,*)'nl_set_v_sca_adv_order: Out of range domain number: ',id_id
21672     CALL wrf_error_fatal(emess)
21673   ENDIF
21674   model_config_rec%v_sca_adv_order(id_id) = v_sca_adv_order
21675   RETURN
21676 END SUBROUTINE nl_set_v_sca_adv_order
21677 SUBROUTINE nl_set_pd_moist ( id_id , pd_moist )
21678   logical , INTENT(IN) :: pd_moist
21679   INTEGER id_id
21680   CHARACTER*80 emess
21681   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21682     WRITE(emess,*)'nl_set_pd_moist: Out of range domain number: ',id_id
21683     CALL wrf_error_fatal(emess)
21684   ENDIF
21685   model_config_rec%pd_moist(id_id) = pd_moist
21686   RETURN
21687 END SUBROUTINE nl_set_pd_moist
21688 SUBROUTINE nl_set_pd_chem ( id_id , pd_chem )
21689   logical , INTENT(IN) :: pd_chem
21690   INTEGER id_id
21691   CHARACTER*80 emess
21692   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21693     WRITE(emess,*)'nl_set_pd_chem: Out of range domain number: ',id_id
21694     CALL wrf_error_fatal(emess)
21695   ENDIF
21696   model_config_rec%pd_chem(id_id) = pd_chem
21697   RETURN
21698 END SUBROUTINE nl_set_pd_chem
21699 SUBROUTINE nl_set_pd_scalar ( id_id , pd_scalar )
21700   logical , INTENT(IN) :: pd_scalar
21701   INTEGER id_id
21702   CHARACTER*80 emess
21703   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21704     WRITE(emess,*)'nl_set_pd_scalar: Out of range domain number: ',id_id
21705     CALL wrf_error_fatal(emess)
21706   ENDIF
21707   model_config_rec%pd_scalar(id_id) = pd_scalar
21708   RETURN
21709 END SUBROUTINE nl_set_pd_scalar
21710 SUBROUTINE nl_set_pd_tke ( id_id , pd_tke )
21711   logical , INTENT(IN) :: pd_tke
21712   INTEGER id_id
21713   CHARACTER*80 emess
21714   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21715     WRITE(emess,*)'nl_set_pd_tke: Out of range domain number: ',id_id
21716     CALL wrf_error_fatal(emess)
21717   ENDIF
21718   model_config_rec%pd_tke(id_id) = pd_tke
21719   RETURN
21720 END SUBROUTINE nl_set_pd_tke
21721 SUBROUTINE nl_set_top_radiation ( id_id , top_radiation )
21722   logical , INTENT(IN) :: top_radiation
21723   INTEGER id_id
21724   CHARACTER*80 emess
21725   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21726     WRITE(emess,*)'nl_set_top_radiation: Out of range domain number: ',id_id
21727     CALL wrf_error_fatal(emess)
21728   ENDIF
21729   model_config_rec%top_radiation(id_id) = top_radiation
21730   RETURN
21731 END SUBROUTINE nl_set_top_radiation
21732 SUBROUTINE nl_set_mix_cr_len ( id_id , mix_cr_len )
21733   real , INTENT(IN) :: mix_cr_len
21734   INTEGER id_id
21735   CHARACTER*80 emess
21736   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21737     WRITE(emess,*)'nl_set_mix_cr_len: Out of range domain number: ',id_id
21738     CALL wrf_error_fatal(emess)
21739   ENDIF
21740   model_config_rec%mix_cr_len(id_id) = mix_cr_len
21741   RETURN
21742 END SUBROUTINE nl_set_mix_cr_len
21743 SUBROUTINE nl_set_tke_upper_bound ( id_id , tke_upper_bound )
21744   real , INTENT(IN) :: tke_upper_bound
21745   INTEGER id_id
21746   CHARACTER*80 emess
21747   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21748     WRITE(emess,*)'nl_set_tke_upper_bound: Out of range domain number: ',id_id
21749     CALL wrf_error_fatal(emess)
21750   ENDIF
21751   model_config_rec%tke_upper_bound(id_id) = tke_upper_bound
21752   RETURN
21753 END SUBROUTINE nl_set_tke_upper_bound
21754 SUBROUTINE nl_set_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
21755   real , INTENT(IN) :: kh_tke_upper_bound
21756   INTEGER id_id
21757   CHARACTER*80 emess
21758   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21759     WRITE(emess,*)'nl_set_kh_tke_upper_bound: Out of range domain number: ',id_id
21760     CALL wrf_error_fatal(emess)
21761   ENDIF
21762   model_config_rec%kh_tke_upper_bound(id_id) = kh_tke_upper_bound
21763   RETURN
21764 END SUBROUTINE nl_set_kh_tke_upper_bound
21765 SUBROUTINE nl_set_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
21766   real , INTENT(IN) :: kv_tke_upper_bound
21767   INTEGER id_id
21768   CHARACTER*80 emess
21769   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21770     WRITE(emess,*)'nl_set_kv_tke_upper_bound: Out of range domain number: ',id_id
21771     CALL wrf_error_fatal(emess)
21772   ENDIF
21773   model_config_rec%kv_tke_upper_bound(id_id) = kv_tke_upper_bound
21774   RETURN
21775 END SUBROUTINE nl_set_kv_tke_upper_bound
21776 SUBROUTINE nl_set_tke_drag_coefficient ( id_id , tke_drag_coefficient )
21777   real , INTENT(IN) :: tke_drag_coefficient
21778   INTEGER id_id
21779   CHARACTER*80 emess
21780   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21781     WRITE(emess,*)'nl_set_tke_drag_coefficient: Out of range domain number: ',id_id
21782     CALL wrf_error_fatal(emess)
21783   ENDIF
21784   model_config_rec%tke_drag_coefficient(id_id) = tke_drag_coefficient
21785   RETURN
21786 END SUBROUTINE nl_set_tke_drag_coefficient
21787 SUBROUTINE nl_set_tke_heat_flux ( id_id , tke_heat_flux )
21788   real , INTENT(IN) :: tke_heat_flux
21789   INTEGER id_id
21790   CHARACTER*80 emess
21791   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21792     WRITE(emess,*)'nl_set_tke_heat_flux: Out of range domain number: ',id_id
21793     CALL wrf_error_fatal(emess)
21794   ENDIF
21795   model_config_rec%tke_heat_flux(id_id) = tke_heat_flux
21796   RETURN
21797 END SUBROUTINE nl_set_tke_heat_flux
21798 SUBROUTINE nl_set_pert_coriolis ( id_id , pert_coriolis )
21799   logical , INTENT(IN) :: pert_coriolis
21800   INTEGER id_id
21801   CHARACTER*80 emess
21802   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21803     WRITE(emess,*)'nl_set_pert_coriolis: Out of range domain number: ',id_id
21804     CALL wrf_error_fatal(emess)
21805   ENDIF
21806   model_config_rec%pert_coriolis(id_id) = pert_coriolis
21807   RETURN
21808 END SUBROUTINE nl_set_pert_coriolis
21809 SUBROUTINE nl_set_mix_full_fields ( id_id , mix_full_fields )
21810   logical , INTENT(IN) :: mix_full_fields
21811   INTEGER id_id
21812   CHARACTER*80 emess
21813   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21814     WRITE(emess,*)'nl_set_mix_full_fields: Out of range domain number: ',id_id
21815     CALL wrf_error_fatal(emess)
21816   ENDIF
21817   model_config_rec%mix_full_fields(id_id) = mix_full_fields
21818   RETURN
21819 END SUBROUTINE nl_set_mix_full_fields
21820 SUBROUTINE nl_set_base_pres ( id_id , base_pres )
21821   real , INTENT(IN) :: base_pres
21822   INTEGER id_id
21823   CHARACTER*80 emess
21824   IF ( id_id .NE. 1 ) THEN
21825     call wrf_debug(1,&
21826 'WARNING in nl_set_base_pres: base_pres applies to all domains. First arg ignored.')
21827   ENDIF
21828   model_config_rec%base_pres = base_pres 
21829   RETURN
21830 END SUBROUTINE nl_set_base_pres
21831 SUBROUTINE nl_set_base_temp ( id_id , base_temp )
21832   real , INTENT(IN) :: base_temp
21833   INTEGER id_id
21834   CHARACTER*80 emess
21835   IF ( id_id .NE. 1 ) THEN
21836     call wrf_debug(1,&
21837 'WARNING in nl_set_base_temp: base_temp applies to all domains. First arg ignored.')
21838   ENDIF
21839   model_config_rec%base_temp = base_temp 
21840   RETURN
21841 END SUBROUTINE nl_set_base_temp
21842 SUBROUTINE nl_set_base_lapse ( id_id , base_lapse )
21843   real , INTENT(IN) :: base_lapse
21844   INTEGER id_id
21845   CHARACTER*80 emess
21846   IF ( id_id .NE. 1 ) THEN
21847     call wrf_debug(1,&
21848 'WARNING in nl_set_base_lapse: base_lapse applies to all domains. First arg ignored.')
21849   ENDIF
21850   model_config_rec%base_lapse = base_lapse 
21851   RETURN
21852 END SUBROUTINE nl_set_base_lapse
21853 SUBROUTINE nl_set_spec_bdy_width ( id_id , spec_bdy_width )
21854   integer , INTENT(IN) :: spec_bdy_width
21855   INTEGER id_id
21856   CHARACTER*80 emess
21857   IF ( id_id .NE. 1 ) THEN
21858     call wrf_debug(1,&
21859 'WARNING in nl_set_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
21860   ENDIF
21861   model_config_rec%spec_bdy_width = spec_bdy_width 
21862   RETURN
21863 END SUBROUTINE nl_set_spec_bdy_width
21864 SUBROUTINE nl_set_spec_zone ( id_id , spec_zone )
21865   integer , INTENT(IN) :: spec_zone
21866   INTEGER id_id
21867   CHARACTER*80 emess
21868   IF ( id_id .NE. 1 ) THEN
21869     call wrf_debug(1,&
21870 'WARNING in nl_set_spec_zone: spec_zone applies to all domains. First arg ignored.')
21871   ENDIF
21872   model_config_rec%spec_zone = spec_zone 
21873   RETURN
21874 END SUBROUTINE nl_set_spec_zone
21875 SUBROUTINE nl_set_relax_zone ( id_id , relax_zone )
21876   integer , INTENT(IN) :: relax_zone
21877   INTEGER id_id
21878   CHARACTER*80 emess
21879   IF ( id_id .NE. 1 ) THEN
21880     call wrf_debug(1,&
21881 'WARNING in nl_set_relax_zone: relax_zone applies to all domains. First arg ignored.')
21882   ENDIF
21883   model_config_rec%relax_zone = relax_zone 
21884   RETURN
21885 END SUBROUTINE nl_set_relax_zone
21886 SUBROUTINE nl_set_specified ( id_id , specified )
21887   logical , INTENT(IN) :: specified
21888   INTEGER id_id
21889   CHARACTER*80 emess
21890   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21891     WRITE(emess,*)'nl_set_specified: Out of range domain number: ',id_id
21892     CALL wrf_error_fatal(emess)
21893   ENDIF
21894   model_config_rec%specified(id_id) = specified
21895   RETURN
21896 END SUBROUTINE nl_set_specified
21897 SUBROUTINE nl_set_periodic_x ( id_id , periodic_x )
21898   logical , INTENT(IN) :: periodic_x
21899   INTEGER id_id
21900   CHARACTER*80 emess
21901   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21902     WRITE(emess,*)'nl_set_periodic_x: Out of range domain number: ',id_id
21903     CALL wrf_error_fatal(emess)
21904   ENDIF
21905   model_config_rec%periodic_x(id_id) = periodic_x
21906   RETURN
21907 END SUBROUTINE nl_set_periodic_x
21908 SUBROUTINE nl_set_symmetric_xs ( id_id , symmetric_xs )
21909   logical , INTENT(IN) :: symmetric_xs
21910   INTEGER id_id
21911   CHARACTER*80 emess
21912   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21913     WRITE(emess,*)'nl_set_symmetric_xs: Out of range domain number: ',id_id
21914     CALL wrf_error_fatal(emess)
21915   ENDIF
21916   model_config_rec%symmetric_xs(id_id) = symmetric_xs
21917   RETURN
21918 END SUBROUTINE nl_set_symmetric_xs
21919 SUBROUTINE nl_set_symmetric_xe ( id_id , symmetric_xe )
21920   logical , INTENT(IN) :: symmetric_xe
21921   INTEGER id_id
21922   CHARACTER*80 emess
21923   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21924     WRITE(emess,*)'nl_set_symmetric_xe: Out of range domain number: ',id_id
21925     CALL wrf_error_fatal(emess)
21926   ENDIF
21927   model_config_rec%symmetric_xe(id_id) = symmetric_xe
21928   RETURN
21929 END SUBROUTINE nl_set_symmetric_xe
21930 SUBROUTINE nl_set_open_xs ( id_id , open_xs )
21931   logical , INTENT(IN) :: open_xs
21932   INTEGER id_id
21933   CHARACTER*80 emess
21934   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21935     WRITE(emess,*)'nl_set_open_xs: Out of range domain number: ',id_id
21936     CALL wrf_error_fatal(emess)
21937   ENDIF
21938   model_config_rec%open_xs(id_id) = open_xs
21939   RETURN
21940 END SUBROUTINE nl_set_open_xs
21941 SUBROUTINE nl_set_open_xe ( id_id , open_xe )
21942   logical , INTENT(IN) :: open_xe
21943   INTEGER id_id
21944   CHARACTER*80 emess
21945   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21946     WRITE(emess,*)'nl_set_open_xe: Out of range domain number: ',id_id
21947     CALL wrf_error_fatal(emess)
21948   ENDIF
21949   model_config_rec%open_xe(id_id) = open_xe
21950   RETURN
21951 END SUBROUTINE nl_set_open_xe
21952 SUBROUTINE nl_set_periodic_y ( id_id , periodic_y )
21953   logical , INTENT(IN) :: periodic_y
21954   INTEGER id_id
21955   CHARACTER*80 emess
21956   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21957     WRITE(emess,*)'nl_set_periodic_y: Out of range domain number: ',id_id
21958     CALL wrf_error_fatal(emess)
21959   ENDIF
21960   model_config_rec%periodic_y(id_id) = periodic_y
21961   RETURN
21962 END SUBROUTINE nl_set_periodic_y
21963 SUBROUTINE nl_set_symmetric_ys ( id_id , symmetric_ys )
21964   logical , INTENT(IN) :: symmetric_ys
21965   INTEGER id_id
21966   CHARACTER*80 emess
21967   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21968     WRITE(emess,*)'nl_set_symmetric_ys: Out of range domain number: ',id_id
21969     CALL wrf_error_fatal(emess)
21970   ENDIF
21971   model_config_rec%symmetric_ys(id_id) = symmetric_ys
21972   RETURN
21973 END SUBROUTINE nl_set_symmetric_ys
21974 SUBROUTINE nl_set_symmetric_ye ( id_id , symmetric_ye )
21975   logical , INTENT(IN) :: symmetric_ye
21976   INTEGER id_id
21977   CHARACTER*80 emess
21978   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21979     WRITE(emess,*)'nl_set_symmetric_ye: Out of range domain number: ',id_id
21980     CALL wrf_error_fatal(emess)
21981   ENDIF
21982   model_config_rec%symmetric_ye(id_id) = symmetric_ye
21983   RETURN
21984 END SUBROUTINE nl_set_symmetric_ye
21985 SUBROUTINE nl_set_open_ys ( id_id , open_ys )
21986   logical , INTENT(IN) :: open_ys
21987   INTEGER id_id
21988   CHARACTER*80 emess
21989   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21990     WRITE(emess,*)'nl_set_open_ys: Out of range domain number: ',id_id
21991     CALL wrf_error_fatal(emess)
21992   ENDIF
21993   model_config_rec%open_ys(id_id) = open_ys
21994   RETURN
21995 END SUBROUTINE nl_set_open_ys
21996 SUBROUTINE nl_set_open_ye ( id_id , open_ye )
21997   logical , INTENT(IN) :: open_ye
21998   INTEGER id_id
21999   CHARACTER*80 emess
22000   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22001     WRITE(emess,*)'nl_set_open_ye: Out of range domain number: ',id_id
22002     CALL wrf_error_fatal(emess)
22003   ENDIF
22004   model_config_rec%open_ye(id_id) = open_ye
22005   RETURN
22006 END SUBROUTINE nl_set_open_ye
22007 SUBROUTINE nl_set_nested ( id_id , nested )
22008   logical , INTENT(IN) :: nested
22009   INTEGER id_id
22010   CHARACTER*80 emess
22011   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22012     WRITE(emess,*)'nl_set_nested: Out of range domain number: ',id_id
22013     CALL wrf_error_fatal(emess)
22014   ENDIF
22015   model_config_rec%nested(id_id) = nested
22016   RETURN
22017 END SUBROUTINE nl_set_nested
22018 SUBROUTINE nl_set_real_data_init_type ( id_id , real_data_init_type )
22019   integer , INTENT(IN) :: real_data_init_type
22020   INTEGER id_id
22021   CHARACTER*80 emess
22022   IF ( id_id .NE. 1 ) THEN
22023     call wrf_debug(1,&
22024 'WARNING in nl_set_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
22025   ENDIF
22026   model_config_rec%real_data_init_type = real_data_init_type 
22027   RETURN
22028 END SUBROUTINE nl_set_real_data_init_type
22029 SUBROUTINE nl_set_background_proc_id ( id_id , background_proc_id )
22030   integer , INTENT(IN) :: background_proc_id
22031   INTEGER id_id
22032   CHARACTER*80 emess
22033   IF ( id_id .NE. 1 ) THEN
22034     call wrf_debug(1,&
22035 'WARNING in nl_set_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
22036   ENDIF
22037   model_config_rec%background_proc_id = background_proc_id 
22038   RETURN
22039 END SUBROUTINE nl_set_background_proc_id
22040 SUBROUTINE nl_set_forecast_proc_id ( id_id , forecast_proc_id )
22041   integer , INTENT(IN) :: forecast_proc_id
22042   INTEGER id_id
22043   CHARACTER*80 emess
22044   IF ( id_id .NE. 1 ) THEN
22045     call wrf_debug(1,&
22046 'WARNING in nl_set_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
22047   ENDIF
22048   model_config_rec%forecast_proc_id = forecast_proc_id 
22049   RETURN
22050 END SUBROUTINE nl_set_forecast_proc_id
22051 SUBROUTINE nl_set_production_status ( id_id , production_status )
22052   integer , INTENT(IN) :: production_status
22053   INTEGER id_id
22054   CHARACTER*80 emess
22055   IF ( id_id .NE. 1 ) THEN
22056     call wrf_debug(1,&
22057 'WARNING in nl_set_production_status: production_status applies to all domains. First arg ignored.')
22058   ENDIF
22059   model_config_rec%production_status = production_status 
22060   RETURN
22061 END SUBROUTINE nl_set_production_status
22062 SUBROUTINE nl_set_compression ( id_id , compression )
22063   integer , INTENT(IN) :: compression
22064   INTEGER id_id
22065   CHARACTER*80 emess
22066   IF ( id_id .NE. 1 ) THEN
22067     call wrf_debug(1,&
22068 'WARNING in nl_set_compression: compression applies to all domains. First arg ignored.')
22069   ENDIF
22070   model_config_rec%compression = compression 
22071   RETURN
22072 END SUBROUTINE nl_set_compression
22073 SUBROUTINE nl_set_cen_lat ( id_id , cen_lat )
22074   real , INTENT(IN) :: cen_lat
22075   INTEGER id_id
22076   CHARACTER*80 emess
22077   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22078     WRITE(emess,*)'nl_set_cen_lat: Out of range domain number: ',id_id
22079     CALL wrf_error_fatal(emess)
22080   ENDIF
22081   model_config_rec%cen_lat(id_id) = cen_lat
22082   RETURN
22083 END SUBROUTINE nl_set_cen_lat
22084 SUBROUTINE nl_set_cen_lon ( id_id , cen_lon )
22085   real , INTENT(IN) :: cen_lon
22086   INTEGER id_id
22087   CHARACTER*80 emess
22088   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22089     WRITE(emess,*)'nl_set_cen_lon: Out of range domain number: ',id_id
22090     CALL wrf_error_fatal(emess)
22091   ENDIF
22092   model_config_rec%cen_lon(id_id) = cen_lon
22093   RETURN
22094 END SUBROUTINE nl_set_cen_lon
22095 SUBROUTINE nl_set_truelat1 ( id_id , truelat1 )
22096   real , INTENT(IN) :: truelat1
22097   INTEGER id_id
22098   CHARACTER*80 emess
22099   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22100     WRITE(emess,*)'nl_set_truelat1: Out of range domain number: ',id_id
22101     CALL wrf_error_fatal(emess)
22102   ENDIF
22103   model_config_rec%truelat1(id_id) = truelat1
22104   RETURN
22105 END SUBROUTINE nl_set_truelat1
22106 SUBROUTINE nl_set_truelat2 ( id_id , truelat2 )
22107   real , INTENT(IN) :: truelat2
22108   INTEGER id_id
22109   CHARACTER*80 emess
22110   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22111     WRITE(emess,*)'nl_set_truelat2: Out of range domain number: ',id_id
22112     CALL wrf_error_fatal(emess)
22113   ENDIF
22114   model_config_rec%truelat2(id_id) = truelat2
22115   RETURN
22116 END SUBROUTINE nl_set_truelat2
22117 SUBROUTINE nl_set_moad_cen_lat ( id_id , moad_cen_lat )
22118   real , INTENT(IN) :: moad_cen_lat
22119   INTEGER id_id
22120   CHARACTER*80 emess
22121   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22122     WRITE(emess,*)'nl_set_moad_cen_lat: Out of range domain number: ',id_id
22123     CALL wrf_error_fatal(emess)
22124   ENDIF
22125   model_config_rec%moad_cen_lat(id_id) = moad_cen_lat
22126   RETURN
22127 END SUBROUTINE nl_set_moad_cen_lat
22128 SUBROUTINE nl_set_stand_lon ( id_id , stand_lon )
22129   real , INTENT(IN) :: stand_lon
22130   INTEGER id_id
22131   CHARACTER*80 emess
22132   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22133     WRITE(emess,*)'nl_set_stand_lon: Out of range domain number: ',id_id
22134     CALL wrf_error_fatal(emess)
22135   ENDIF
22136   model_config_rec%stand_lon(id_id) = stand_lon
22137   RETURN
22138 END SUBROUTINE nl_set_stand_lon
22139 SUBROUTINE nl_set_bdyfrq ( id_id , bdyfrq )
22140   real , INTENT(IN) :: bdyfrq
22141   INTEGER id_id
22142   CHARACTER*80 emess
22143   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22144     WRITE(emess,*)'nl_set_bdyfrq: Out of range domain number: ',id_id
22145     CALL wrf_error_fatal(emess)
22146   ENDIF
22147   model_config_rec%bdyfrq(id_id) = bdyfrq
22148   RETURN
22149 END SUBROUTINE nl_set_bdyfrq
22150 SUBROUTINE nl_set_iswater ( id_id , iswater )
22151   integer , INTENT(IN) :: iswater
22152   INTEGER id_id
22153   CHARACTER*80 emess
22154   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22155     WRITE(emess,*)'nl_set_iswater: Out of range domain number: ',id_id
22156     CALL wrf_error_fatal(emess)
22157   ENDIF
22158   model_config_rec%iswater(id_id) = iswater
22159   RETURN
22160 END SUBROUTINE nl_set_iswater
22161 SUBROUTINE nl_set_isice ( id_id , isice )
22162   integer , INTENT(IN) :: isice
22163   INTEGER id_id
22164   CHARACTER*80 emess
22165   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22166     WRITE(emess,*)'nl_set_isice: Out of range domain number: ',id_id
22167     CALL wrf_error_fatal(emess)
22168   ENDIF
22169   model_config_rec%isice(id_id) = isice
22170   RETURN
22171 END SUBROUTINE nl_set_isice
22172 SUBROUTINE nl_set_isurban ( id_id , isurban )
22173   integer , INTENT(IN) :: isurban
22174   INTEGER id_id
22175   CHARACTER*80 emess
22176   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22177     WRITE(emess,*)'nl_set_isurban: Out of range domain number: ',id_id
22178     CALL wrf_error_fatal(emess)
22179   ENDIF
22180   model_config_rec%isurban(id_id) = isurban
22181   RETURN
22182 END SUBROUTINE nl_set_isurban
22183 SUBROUTINE nl_set_isoilwater ( id_id , isoilwater )
22184   integer , INTENT(IN) :: isoilwater
22185   INTEGER id_id
22186   CHARACTER*80 emess
22187   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22188     WRITE(emess,*)'nl_set_isoilwater: Out of range domain number: ',id_id
22189     CALL wrf_error_fatal(emess)
22190   ENDIF
22191   model_config_rec%isoilwater(id_id) = isoilwater
22192   RETURN
22193 END SUBROUTINE nl_set_isoilwater
22194 SUBROUTINE nl_set_map_proj ( id_id , map_proj )
22195   integer , INTENT(IN) :: map_proj
22196   INTEGER id_id
22197   CHARACTER*80 emess
22198   IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
22199     WRITE(emess,*)'nl_set_map_proj: Out of range domain number: ',id_id
22200     CALL wrf_error_fatal(emess)
22201   ENDIF
22202   model_config_rec%map_proj(id_id) = map_proj
22203   RETURN
22204 END SUBROUTINE nl_set_map_proj
22205 !ENDOFREGISTRYGENERATEDINCLUDE