get_nl_config.inc
References to this file elsewhere.
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_coupling ( id_id , var4d_coupling )
30 integer , INTENT(OUT) :: var4d_coupling
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_coupling: var4d_coupling applies to all domains. First arg ignored.')
36 ENDIF
37 var4d_coupling = model_config_rec%var4d_coupling
38 RETURN
39 END SUBROUTINE nl_get_var4d_coupling
40 SUBROUTINE nl_get_global ( id_id , global )
41 logical , INTENT(OUT) :: global
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_global: global applies to all domains. First arg ignored.')
47 ENDIF
48 global = model_config_rec%global
49 RETURN
50 END SUBROUTINE nl_get_global
51 SUBROUTINE nl_get_oi_use ( id_id , oi_use )
52 logical , INTENT(OUT) :: oi_use
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_oi_use: oi_use applies to all domains. First arg ignored.')
58 ENDIF
59 oi_use = model_config_rec%oi_use
60 RETURN
61 END SUBROUTINE nl_get_oi_use
62 SUBROUTINE nl_get_print_detail_airep ( id_id , print_detail_airep )
63 logical , INTENT(OUT) :: print_detail_airep
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_print_detail_airep: print_detail_airep applies to all domains. First arg ignored.')
69 ENDIF
70 print_detail_airep = model_config_rec%print_detail_airep
71 RETURN
72 END SUBROUTINE nl_get_print_detail_airep
73 SUBROUTINE nl_get_print_detail_radar ( id_id , print_detail_radar )
74 logical , INTENT(OUT) :: print_detail_radar
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_radar: print_detail_radar applies to all domains. First arg ignored.')
80 ENDIF
81 print_detail_radar = model_config_rec%print_detail_radar
82 RETURN
83 END SUBROUTINE nl_get_print_detail_radar
84 SUBROUTINE nl_get_print_detail_radiance ( id_id , print_detail_radiance )
85 logical , INTENT(OUT) :: print_detail_radiance
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_radiance: print_detail_radiance applies to all domains. First arg ignored.')
91 ENDIF
92 print_detail_radiance = model_config_rec%print_detail_radiance
93 RETURN
94 END SUBROUTINE nl_get_print_detail_radiance
95 SUBROUTINE nl_get_print_detail_xa ( id_id , print_detail_xa )
96 logical , INTENT(OUT) :: print_detail_xa
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_xa: print_detail_xa applies to all domains. First arg ignored.')
102 ENDIF
103 print_detail_xa = model_config_rec%print_detail_xa
104 RETURN
105 END SUBROUTINE nl_get_print_detail_xa
106 SUBROUTINE nl_get_print_detail_xb ( id_id , print_detail_xb )
107 logical , INTENT(OUT) :: print_detail_xb
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_xb: print_detail_xb applies to all domains. First arg ignored.')
113 ENDIF
114 print_detail_xb = model_config_rec%print_detail_xb
115 RETURN
116 END SUBROUTINE nl_get_print_detail_xb
117 SUBROUTINE nl_get_print_detail_obs ( id_id , print_detail_obs )
118 logical , INTENT(OUT) :: print_detail_obs
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_obs: print_detail_obs applies to all domains. First arg ignored.')
124 ENDIF
125 print_detail_obs = model_config_rec%print_detail_obs
126 RETURN
127 END SUBROUTINE nl_get_print_detail_obs
128 SUBROUTINE nl_get_print_detail_f_obs ( id_id , print_detail_f_obs )
129 logical , INTENT(OUT) :: print_detail_f_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_f_obs: print_detail_f_obs applies to all domains. First arg ignored.')
135 ENDIF
136 print_detail_f_obs = model_config_rec%print_detail_f_obs
137 RETURN
138 END SUBROUTINE nl_get_print_detail_f_obs
139 SUBROUTINE nl_get_print_detail_map ( id_id , print_detail_map )
140 logical , INTENT(OUT) :: print_detail_map
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_map: print_detail_map applies to all domains. First arg ignored.')
146 ENDIF
147 print_detail_map = model_config_rec%print_detail_map
148 RETURN
149 END SUBROUTINE nl_get_print_detail_map
150 SUBROUTINE nl_get_print_detail_grad ( id_id , print_detail_grad )
151 logical , INTENT(OUT) :: print_detail_grad
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_grad: print_detail_grad applies to all domains. First arg ignored.')
157 ENDIF
158 print_detail_grad = model_config_rec%print_detail_grad
159 RETURN
160 END SUBROUTINE nl_get_print_detail_grad
161 SUBROUTINE nl_get_print_detail_regression ( id_id , print_detail_regression )
162 logical , INTENT(OUT) :: print_detail_regression
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_regression: print_detail_regression applies to all domains. First arg ignored.')
168 ENDIF
169 print_detail_regression = model_config_rec%print_detail_regression
170 RETURN
171 END SUBROUTINE nl_get_print_detail_regression
172 SUBROUTINE nl_get_print_detail_spectral ( id_id , print_detail_spectral )
173 logical , INTENT(OUT) :: print_detail_spectral
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_spectral: print_detail_spectral applies to all domains. First arg ignored.')
179 ENDIF
180 print_detail_spectral = model_config_rec%print_detail_spectral
181 RETURN
182 END SUBROUTINE nl_get_print_detail_spectral
183 SUBROUTINE nl_get_print_detail_testing ( id_id , print_detail_testing )
184 logical , INTENT(OUT) :: print_detail_testing
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_testing: print_detail_testing applies to all domains. First arg ignored.')
190 ENDIF
191 print_detail_testing = model_config_rec%print_detail_testing
192 RETURN
193 END SUBROUTINE nl_get_print_detail_testing
194 SUBROUTINE nl_get_print_detail_parallel ( id_id , print_detail_parallel )
195 logical , INTENT(OUT) :: print_detail_parallel
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_parallel: print_detail_parallel applies to all domains. First arg ignored.')
201 ENDIF
202 print_detail_parallel = model_config_rec%print_detail_parallel
203 RETURN
204 END SUBROUTINE nl_get_print_detail_parallel
205 SUBROUTINE nl_get_print_detail_be ( id_id , print_detail_be )
206 logical , INTENT(OUT) :: print_detail_be
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_be: print_detail_be applies to all domains. First arg ignored.')
212 ENDIF
213 print_detail_be = model_config_rec%print_detail_be
214 RETURN
215 END SUBROUTINE nl_get_print_detail_be
216 SUBROUTINE nl_get_print_detail_timing ( id_id , print_detail_timing )
217 logical , INTENT(OUT) :: print_detail_timing
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_timing: print_detail_timing applies to all domains. First arg ignored.')
223 ENDIF
224 print_detail_timing = model_config_rec%print_detail_timing
225 RETURN
226 END SUBROUTINE nl_get_print_detail_timing
227 SUBROUTINE nl_get_check_max_iv_print ( id_id , check_max_iv_print )
228 logical , INTENT(OUT) :: check_max_iv_print
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_check_max_iv_print: check_max_iv_print applies to all domains. First arg ignored.')
234 ENDIF
235 check_max_iv_print = model_config_rec%check_max_iv_print
236 RETURN
237 END SUBROUTINE nl_get_check_max_iv_print
238 SUBROUTINE nl_get_analysis_accu ( id_id , analysis_accu )
239 integer , INTENT(OUT) :: analysis_accu
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_analysis_accu: analysis_accu applies to all domains. First arg ignored.')
245 ENDIF
246 analysis_accu = model_config_rec%analysis_accu
247 RETURN
248 END SUBROUTINE nl_get_analysis_accu
249 SUBROUTINE nl_get_w_increments ( id_id , w_increments )
250 logical , INTENT(OUT) :: w_increments
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_w_increments: w_increments applies to all domains. First arg ignored.')
256 ENDIF
257 w_increments = model_config_rec%w_increments
258 RETURN
259 END SUBROUTINE nl_get_w_increments
260 SUBROUTINE nl_get_dt_cloud_model ( id_id , dt_cloud_model )
261 logical , INTENT(OUT) :: dt_cloud_model
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_dt_cloud_model: dt_cloud_model applies to all domains. First arg ignored.')
267 ENDIF
268 dt_cloud_model = model_config_rec%dt_cloud_model
269 RETURN
270 END SUBROUTINE nl_get_dt_cloud_model
271 SUBROUTINE nl_get_write_qcw ( id_id , write_qcw )
272 logical , INTENT(OUT) :: write_qcw
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_write_qcw: write_qcw applies to all domains. First arg ignored.')
278 ENDIF
279 write_qcw = model_config_rec%write_qcw
280 RETURN
281 END SUBROUTINE nl_get_write_qcw
282 SUBROUTINE nl_get_write_qrn ( id_id , write_qrn )
283 logical , INTENT(OUT) :: write_qrn
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_qrn: write_qrn applies to all domains. First arg ignored.')
289 ENDIF
290 write_qrn = model_config_rec%write_qrn
291 RETURN
292 END SUBROUTINE nl_get_write_qrn
293 SUBROUTINE nl_get_write_qci ( id_id , write_qci )
294 logical , INTENT(OUT) :: write_qci
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_qci: write_qci applies to all domains. First arg ignored.')
300 ENDIF
301 write_qci = model_config_rec%write_qci
302 RETURN
303 END SUBROUTINE nl_get_write_qci
304 SUBROUTINE nl_get_write_qsn ( id_id , write_qsn )
305 logical , INTENT(OUT) :: write_qsn
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_qsn: write_qsn applies to all domains. First arg ignored.')
311 ENDIF
312 write_qsn = model_config_rec%write_qsn
313 RETURN
314 END SUBROUTINE nl_get_write_qsn
315 SUBROUTINE nl_get_write_qgr ( id_id , write_qgr )
316 logical , INTENT(OUT) :: write_qgr
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_qgr: write_qgr applies to all domains. First arg ignored.')
322 ENDIF
323 write_qgr = model_config_rec%write_qgr
324 RETURN
325 END SUBROUTINE nl_get_write_qgr
326 SUBROUTINE nl_get_write_filtered_obs ( id_id , write_filtered_obs )
327 logical , INTENT(OUT) :: write_filtered_obs
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_filtered_obs: write_filtered_obs applies to all domains. First arg ignored.')
333 ENDIF
334 write_filtered_obs = model_config_rec%write_filtered_obs
335 RETURN
336 END SUBROUTINE nl_get_write_filtered_obs
337 SUBROUTINE nl_get_fg_format ( id_id , fg_format )
338 integer , INTENT(OUT) :: fg_format
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_fg_format: fg_format applies to all domains. First arg ignored.')
344 ENDIF
345 fg_format = model_config_rec%fg_format
346 RETURN
347 END SUBROUTINE nl_get_fg_format
348 SUBROUTINE nl_get_ob_format ( id_id , ob_format )
349 integer , INTENT(OUT) :: ob_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_ob_format: ob_format applies to all domains. First arg ignored.')
355 ENDIF
356 ob_format = model_config_rec%ob_format
357 RETURN
358 END SUBROUTINE nl_get_ob_format
359 SUBROUTINE nl_get_num_fgat_time ( id_id , num_fgat_time )
360 integer , INTENT(OUT) :: num_fgat_time
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_num_fgat_time: num_fgat_time applies to all domains. First arg ignored.')
366 ENDIF
367 num_fgat_time = model_config_rec%num_fgat_time
368 RETURN
369 END SUBROUTINE nl_get_num_fgat_time
370 SUBROUTINE nl_get_use_synopobs ( id_id , use_synopobs )
371 logical , INTENT(OUT) :: use_synopobs
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_use_synopobs: use_synopobs applies to all domains. First arg ignored.')
377 ENDIF
378 use_synopobs = model_config_rec%use_synopobs
379 RETURN
380 END SUBROUTINE nl_get_use_synopobs
381 SUBROUTINE nl_get_use_shipsobs ( id_id , use_shipsobs )
382 logical , INTENT(OUT) :: use_shipsobs
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_shipsobs: use_shipsobs applies to all domains. First arg ignored.')
388 ENDIF
389 use_shipsobs = model_config_rec%use_shipsobs
390 RETURN
391 END SUBROUTINE nl_get_use_shipsobs
392 SUBROUTINE nl_get_use_metarobs ( id_id , use_metarobs )
393 logical , INTENT(OUT) :: use_metarobs
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_metarobs: use_metarobs applies to all domains. First arg ignored.')
399 ENDIF
400 use_metarobs = model_config_rec%use_metarobs
401 RETURN
402 END SUBROUTINE nl_get_use_metarobs
403 SUBROUTINE nl_get_use_soundobs ( id_id , use_soundobs )
404 logical , INTENT(OUT) :: use_soundobs
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_soundobs: use_soundobs applies to all domains. First arg ignored.')
410 ENDIF
411 use_soundobs = model_config_rec%use_soundobs
412 RETURN
413 END SUBROUTINE nl_get_use_soundobs
414 SUBROUTINE nl_get_use_pilotobs ( id_id , use_pilotobs )
415 logical , INTENT(OUT) :: use_pilotobs
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_pilotobs: use_pilotobs applies to all domains. First arg ignored.')
421 ENDIF
422 use_pilotobs = model_config_rec%use_pilotobs
423 RETURN
424 END SUBROUTINE nl_get_use_pilotobs
425 SUBROUTINE nl_get_use_airepobs ( id_id , use_airepobs )
426 logical , INTENT(OUT) :: use_airepobs
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_airepobs: use_airepobs applies to all domains. First arg ignored.')
432 ENDIF
433 use_airepobs = model_config_rec%use_airepobs
434 RETURN
435 END SUBROUTINE nl_get_use_airepobs
436 SUBROUTINE nl_get_use_geoamvobs ( id_id , use_geoamvobs )
437 logical , INTENT(OUT) :: use_geoamvobs
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_geoamvobs: use_geoamvobs applies to all domains. First arg ignored.')
443 ENDIF
444 use_geoamvobs = model_config_rec%use_geoamvobs
445 RETURN
446 END SUBROUTINE nl_get_use_geoamvobs
447 SUBROUTINE nl_get_use_polaramvobs ( id_id , use_polaramvobs )
448 logical , INTENT(OUT) :: use_polaramvobs
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_polaramvobs: use_polaramvobs applies to all domains. First arg ignored.')
454 ENDIF
455 use_polaramvobs = model_config_rec%use_polaramvobs
456 RETURN
457 END SUBROUTINE nl_get_use_polaramvobs
458 SUBROUTINE nl_get_use_bogusobs ( id_id , use_bogusobs )
459 logical , INTENT(OUT) :: use_bogusobs
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_bogusobs: use_bogusobs applies to all domains. First arg ignored.')
465 ENDIF
466 use_bogusobs = model_config_rec%use_bogusobs
467 RETURN
468 END SUBROUTINE nl_get_use_bogusobs
469 SUBROUTINE nl_get_use_buoyobs ( id_id , use_buoyobs )
470 logical , INTENT(OUT) :: use_buoyobs
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_buoyobs: use_buoyobs applies to all domains. First arg ignored.')
476 ENDIF
477 use_buoyobs = model_config_rec%use_buoyobs
478 RETURN
479 END SUBROUTINE nl_get_use_buoyobs
480 SUBROUTINE nl_get_use_profilerobs ( id_id , use_profilerobs )
481 logical , INTENT(OUT) :: use_profilerobs
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_profilerobs: use_profilerobs applies to all domains. First arg ignored.')
487 ENDIF
488 use_profilerobs = model_config_rec%use_profilerobs
489 RETURN
490 END SUBROUTINE nl_get_use_profilerobs
491 SUBROUTINE nl_get_use_satemobs ( id_id , use_satemobs )
492 logical , INTENT(OUT) :: use_satemobs
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_satemobs: use_satemobs applies to all domains. First arg ignored.')
498 ENDIF
499 use_satemobs = model_config_rec%use_satemobs
500 RETURN
501 END SUBROUTINE nl_get_use_satemobs
502 SUBROUTINE nl_get_use_gpspwobs ( id_id , use_gpspwobs )
503 logical , INTENT(OUT) :: use_gpspwobs
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_gpspwobs: use_gpspwobs applies to all domains. First arg ignored.')
509 ENDIF
510 use_gpspwobs = model_config_rec%use_gpspwobs
511 RETURN
512 END SUBROUTINE nl_get_use_gpspwobs
513 SUBROUTINE nl_get_use_gpsrefobs ( id_id , use_gpsrefobs )
514 logical , INTENT(OUT) :: use_gpsrefobs
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_gpsrefobs: use_gpsrefobs applies to all domains. First arg ignored.')
520 ENDIF
521 use_gpsrefobs = model_config_rec%use_gpsrefobs
522 RETURN
523 END SUBROUTINE nl_get_use_gpsrefobs
524 SUBROUTINE nl_get_use_ssmiretrievalobs ( id_id , use_ssmiretrievalobs )
525 logical , INTENT(OUT) :: use_ssmiretrievalobs
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_ssmiretrievalobs: use_ssmiretrievalobs applies to all domains. First arg ignored.')
531 ENDIF
532 use_ssmiretrievalobs = model_config_rec%use_ssmiretrievalobs
533 RETURN
534 END SUBROUTINE nl_get_use_ssmiretrievalobs
535 SUBROUTINE nl_get_use_ssmitbobs ( id_id , use_ssmitbobs )
536 logical , INTENT(OUT) :: use_ssmitbobs
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_ssmitbobs: use_ssmitbobs applies to all domains. First arg ignored.')
542 ENDIF
543 use_ssmitbobs = model_config_rec%use_ssmitbobs
544 RETURN
545 END SUBROUTINE nl_get_use_ssmitbobs
546 SUBROUTINE nl_get_use_ssmt1obs ( id_id , use_ssmt1obs )
547 logical , INTENT(OUT) :: use_ssmt1obs
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_ssmt1obs: use_ssmt1obs applies to all domains. First arg ignored.')
553 ENDIF
554 use_ssmt1obs = model_config_rec%use_ssmt1obs
555 RETURN
556 END SUBROUTINE nl_get_use_ssmt1obs
557 SUBROUTINE nl_get_use_ssmt2obs ( id_id , use_ssmt2obs )
558 logical , INTENT(OUT) :: use_ssmt2obs
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_ssmt2obs: use_ssmt2obs applies to all domains. First arg ignored.')
564 ENDIF
565 use_ssmt2obs = model_config_rec%use_ssmt2obs
566 RETURN
567 END SUBROUTINE nl_get_use_ssmt2obs
568 SUBROUTINE nl_get_use_qscatobs ( id_id , use_qscatobs )
569 logical , INTENT(OUT) :: use_qscatobs
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_qscatobs: use_qscatobs applies to all domains. First arg ignored.')
575 ENDIF
576 use_qscatobs = model_config_rec%use_qscatobs
577 RETURN
578 END SUBROUTINE nl_get_use_qscatobs
579 SUBROUTINE nl_get_use_radarobs ( id_id , use_radarobs )
580 logical , INTENT(OUT) :: use_radarobs
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_radarobs: use_radarobs applies to all domains. First arg ignored.')
586 ENDIF
587 use_radarobs = model_config_rec%use_radarobs
588 RETURN
589 END SUBROUTINE nl_get_use_radarobs
590 SUBROUTINE nl_get_use_radar_rv ( id_id , use_radar_rv )
591 logical , INTENT(OUT) :: use_radar_rv
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_radar_rv: use_radar_rv applies to all domains. First arg ignored.')
597 ENDIF
598 use_radar_rv = model_config_rec%use_radar_rv
599 RETURN
600 END SUBROUTINE nl_get_use_radar_rv
601 SUBROUTINE nl_get_use_radar_rf ( id_id , use_radar_rf )
602 logical , INTENT(OUT) :: use_radar_rf
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_rf: use_radar_rf applies to all domains. First arg ignored.')
608 ENDIF
609 use_radar_rf = model_config_rec%use_radar_rf
610 RETURN
611 END SUBROUTINE nl_get_use_radar_rf
612 SUBROUTINE nl_get_use_hirs2obs ( id_id , use_hirs2obs )
613 logical , INTENT(OUT) :: use_hirs2obs
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_hirs2obs: use_hirs2obs applies to all domains. First arg ignored.')
619 ENDIF
620 use_hirs2obs = model_config_rec%use_hirs2obs
621 RETURN
622 END SUBROUTINE nl_get_use_hirs2obs
623 SUBROUTINE nl_get_use_hirs3obs ( id_id , use_hirs3obs )
624 logical , INTENT(OUT) :: use_hirs3obs
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_hirs3obs: use_hirs3obs applies to all domains. First arg ignored.')
630 ENDIF
631 use_hirs3obs = model_config_rec%use_hirs3obs
632 RETURN
633 END SUBROUTINE nl_get_use_hirs3obs
634 SUBROUTINE nl_get_use_msuobs ( id_id , use_msuobs )
635 logical , INTENT(OUT) :: use_msuobs
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_msuobs: use_msuobs applies to all domains. First arg ignored.')
641 ENDIF
642 use_msuobs = model_config_rec%use_msuobs
643 RETURN
644 END SUBROUTINE nl_get_use_msuobs
645 SUBROUTINE nl_get_use_amsuaobs ( id_id , use_amsuaobs )
646 logical , INTENT(OUT) :: use_amsuaobs
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_amsuaobs: use_amsuaobs applies to all domains. First arg ignored.')
652 ENDIF
653 use_amsuaobs = model_config_rec%use_amsuaobs
654 RETURN
655 END SUBROUTINE nl_get_use_amsuaobs
656 SUBROUTINE nl_get_use_amsubobs ( id_id , use_amsubobs )
657 logical , INTENT(OUT) :: use_amsubobs
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_amsubobs: use_amsubobs applies to all domains. First arg ignored.')
663 ENDIF
664 use_amsubobs = model_config_rec%use_amsubobs
665 RETURN
666 END SUBROUTINE nl_get_use_amsubobs
667 SUBROUTINE nl_get_use_airsobs ( id_id , use_airsobs )
668 logical , INTENT(OUT) :: use_airsobs
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_airsobs: use_airsobs applies to all domains. First arg ignored.')
674 ENDIF
675 use_airsobs = model_config_rec%use_airsobs
676 RETURN
677 END SUBROUTINE nl_get_use_airsobs
678 SUBROUTINE nl_get_use_airsretobs ( id_id , use_airsretobs )
679 logical , INTENT(OUT) :: use_airsretobs
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_airsretobs: use_airsretobs applies to all domains. First arg ignored.')
685 ENDIF
686 use_airsretobs = model_config_rec%use_airsretobs
687 RETURN
688 END SUBROUTINE nl_get_use_airsretobs
689 SUBROUTINE nl_get_use_eos_amsuaobs ( id_id , use_eos_amsuaobs )
690 logical , INTENT(OUT) :: use_eos_amsuaobs
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_eos_amsuaobs: use_eos_amsuaobs applies to all domains. First arg ignored.')
696 ENDIF
697 use_eos_amsuaobs = model_config_rec%use_eos_amsuaobs
698 RETURN
699 END SUBROUTINE nl_get_use_eos_amsuaobs
700 SUBROUTINE nl_get_use_eos_radobs ( id_id , use_eos_radobs )
701 logical , INTENT(OUT) :: use_eos_radobs
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_eos_radobs: use_eos_radobs applies to all domains. First arg ignored.')
707 ENDIF
708 use_eos_radobs = model_config_rec%use_eos_radobs
709 RETURN
710 END SUBROUTINE nl_get_use_eos_radobs
711 SUBROUTINE nl_get_use_hsbobs ( id_id , use_hsbobs )
712 logical , INTENT(OUT) :: use_hsbobs
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_hsbobs: use_hsbobs applies to all domains. First arg ignored.')
718 ENDIF
719 use_hsbobs = model_config_rec%use_hsbobs
720 RETURN
721 END SUBROUTINE nl_get_use_hsbobs
722 SUBROUTINE nl_get_use_kma1dvar ( id_id , use_kma1dvar )
723 logical , INTENT(OUT) :: use_kma1dvar
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_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
729 ENDIF
730 use_kma1dvar = model_config_rec%use_kma1dvar
731 RETURN
732 END SUBROUTINE nl_get_use_kma1dvar
733 SUBROUTINE nl_get_use_filtered_rad ( id_id , use_filtered_rad )
734 logical , INTENT(OUT) :: use_filtered_rad
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_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
740 ENDIF
741 use_filtered_rad = model_config_rec%use_filtered_rad
742 RETURN
743 END SUBROUTINE nl_get_use_filtered_rad
744 SUBROUTINE nl_get_use_radiance ( id_id , use_radiance )
745 logical , INTENT(OUT) :: use_radiance
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_radiance: use_radiance applies to all domains. First arg ignored.')
751 ENDIF
752 use_radiance = model_config_rec%use_radiance
753 RETURN
754 END SUBROUTINE nl_get_use_radiance
755 SUBROUTINE nl_get_use_obsgts ( id_id , use_obsgts )
756 logical , INTENT(OUT) :: use_obsgts
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_obsgts: use_obsgts applies to all domains. First arg ignored.')
762 ENDIF
763 use_obsgts = model_config_rec%use_obsgts
764 RETURN
765 END SUBROUTINE nl_get_use_obsgts
766 SUBROUTINE nl_get_use_obs_errfac ( id_id , use_obs_errfac )
767 logical , INTENT(OUT) :: use_obs_errfac
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_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
773 ENDIF
774 use_obs_errfac = model_config_rec%use_obs_errfac
775 RETURN
776 END SUBROUTINE nl_get_use_obs_errfac
777 SUBROUTINE nl_get_check_max_iv ( id_id , check_max_iv )
778 logical , INTENT(OUT) :: check_max_iv
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_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
784 ENDIF
785 check_max_iv = model_config_rec%check_max_iv
786 RETURN
787 END SUBROUTINE nl_get_check_max_iv
788 SUBROUTINE nl_get_put_rand_seed ( id_id , put_rand_seed )
789 logical , INTENT(OUT) :: put_rand_seed
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_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
795 ENDIF
796 put_rand_seed = model_config_rec%put_rand_seed
797 RETURN
798 END SUBROUTINE nl_get_put_rand_seed
799 SUBROUTINE nl_get_omb_set_rand ( id_id , omb_set_rand )
800 logical , INTENT(OUT) :: omb_set_rand
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_omb_set_rand: omb_set_rand applies to all domains. First arg ignored.')
806 ENDIF
807 omb_set_rand = model_config_rec%omb_set_rand
808 RETURN
809 END SUBROUTINE nl_get_omb_set_rand
810 SUBROUTINE nl_get_omb_add_noise ( id_id , omb_add_noise )
811 logical , INTENT(OUT) :: omb_add_noise
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_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
817 ENDIF
818 omb_add_noise = model_config_rec%omb_add_noise
819 RETURN
820 END SUBROUTINE nl_get_omb_add_noise
821 SUBROUTINE nl_get_obs_qc_pointer ( id_id , obs_qc_pointer )
822 integer , INTENT(OUT) :: obs_qc_pointer
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_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
828 ENDIF
829 obs_qc_pointer = model_config_rec%obs_qc_pointer
830 RETURN
831 END SUBROUTINE nl_get_obs_qc_pointer
832 SUBROUTINE nl_get_max_sound_input ( id_id , max_sound_input )
833 integer , INTENT(OUT) :: max_sound_input
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_max_sound_input: max_sound_input applies to all domains. First arg ignored.')
839 ENDIF
840 max_sound_input = model_config_rec%max_sound_input
841 RETURN
842 END SUBROUTINE nl_get_max_sound_input
843 SUBROUTINE nl_get_max_synop_input ( id_id , max_synop_input )
844 integer , INTENT(OUT) :: max_synop_input
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_max_synop_input: max_synop_input applies to all domains. First arg ignored.')
850 ENDIF
851 max_synop_input = model_config_rec%max_synop_input
852 RETURN
853 END SUBROUTINE nl_get_max_synop_input
854 SUBROUTINE nl_get_max_geoamv_input ( id_id , max_geoamv_input )
855 integer , INTENT(OUT) :: max_geoamv_input
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_max_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
861 ENDIF
862 max_geoamv_input = model_config_rec%max_geoamv_input
863 RETURN
864 END SUBROUTINE nl_get_max_geoamv_input
865 SUBROUTINE nl_get_max_polaramv_input ( id_id , max_polaramv_input )
866 integer , INTENT(OUT) :: max_polaramv_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_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
872 ENDIF
873 max_polaramv_input = model_config_rec%max_polaramv_input
874 RETURN
875 END SUBROUTINE nl_get_max_polaramv_input
876 SUBROUTINE nl_get_max_airep_input ( id_id , max_airep_input )
877 integer , INTENT(OUT) :: max_airep_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_airep_input: max_airep_input applies to all domains. First arg ignored.')
883 ENDIF
884 max_airep_input = model_config_rec%max_airep_input
885 RETURN
886 END SUBROUTINE nl_get_max_airep_input
887 SUBROUTINE nl_get_max_satem_input ( id_id , max_satem_input )
888 integer , INTENT(OUT) :: max_satem_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_satem_input: max_satem_input applies to all domains. First arg ignored.')
894 ENDIF
895 max_satem_input = model_config_rec%max_satem_input
896 RETURN
897 END SUBROUTINE nl_get_max_satem_input
898 SUBROUTINE nl_get_max_pilot_input ( id_id , max_pilot_input )
899 integer , INTENT(OUT) :: max_pilot_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_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
905 ENDIF
906 max_pilot_input = model_config_rec%max_pilot_input
907 RETURN
908 END SUBROUTINE nl_get_max_pilot_input
909 SUBROUTINE nl_get_max_radar_input ( id_id , max_radar_input )
910 integer , INTENT(OUT) :: max_radar_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_radar_input: max_radar_input applies to all domains. First arg ignored.')
916 ENDIF
917 max_radar_input = model_config_rec%max_radar_input
918 RETURN
919 END SUBROUTINE nl_get_max_radar_input
920 SUBROUTINE nl_get_max_metar_input ( id_id , max_metar_input )
921 integer , INTENT(OUT) :: max_metar_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_metar_input: max_metar_input applies to all domains. First arg ignored.')
927 ENDIF
928 max_metar_input = model_config_rec%max_metar_input
929 RETURN
930 END SUBROUTINE nl_get_max_metar_input
931 SUBROUTINE nl_get_max_gpspw_input ( id_id , max_gpspw_input )
932 integer , INTENT(OUT) :: max_gpspw_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_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
938 ENDIF
939 max_gpspw_input = model_config_rec%max_gpspw_input
940 RETURN
941 END SUBROUTINE nl_get_max_gpspw_input
942 SUBROUTINE nl_get_max_ships_input ( id_id , max_ships_input )
943 integer , INTENT(OUT) :: max_ships_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_ships_input: max_ships_input applies to all domains. First arg ignored.')
949 ENDIF
950 max_ships_input = model_config_rec%max_ships_input
951 RETURN
952 END SUBROUTINE nl_get_max_ships_input
953 SUBROUTINE nl_get_max_profiler_input ( id_id , max_profiler_input )
954 integer , INTENT(OUT) :: max_profiler_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_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
960 ENDIF
961 max_profiler_input = model_config_rec%max_profiler_input
962 RETURN
963 END SUBROUTINE nl_get_max_profiler_input
964 SUBROUTINE nl_get_max_bogus_input ( id_id , max_bogus_input )
965 integer , INTENT(OUT) :: max_bogus_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_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
971 ENDIF
972 max_bogus_input = model_config_rec%max_bogus_input
973 RETURN
974 END SUBROUTINE nl_get_max_bogus_input
975 SUBROUTINE nl_get_max_buoy_input ( id_id , max_buoy_input )
976 integer , INTENT(OUT) :: max_buoy_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_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
982 ENDIF
983 max_buoy_input = model_config_rec%max_buoy_input
984 RETURN
985 END SUBROUTINE nl_get_max_buoy_input
986 SUBROUTINE nl_get_max_ssmi_ret_input ( id_id , max_ssmi_ret_input )
987 integer , INTENT(OUT) :: max_ssmi_ret_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_ssmi_ret_input: max_ssmi_ret_input applies to all domains. First arg ignored.')
993 ENDIF
994 max_ssmi_ret_input = model_config_rec%max_ssmi_ret_input
995 RETURN
996 END SUBROUTINE nl_get_max_ssmi_ret_input
997 SUBROUTINE nl_get_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
998 integer , INTENT(OUT) :: max_ssmi_tb_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_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
1004 ENDIF
1005 max_ssmi_tb_input = model_config_rec%max_ssmi_tb_input
1006 RETURN
1007 END SUBROUTINE nl_get_max_ssmi_tb_input
1008 SUBROUTINE nl_get_max_ssmt1_input ( id_id , max_ssmt1_input )
1009 integer , INTENT(OUT) :: max_ssmt1_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_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
1015 ENDIF
1016 max_ssmt1_input = model_config_rec%max_ssmt1_input
1017 RETURN
1018 END SUBROUTINE nl_get_max_ssmt1_input
1019 SUBROUTINE nl_get_max_ssmt2_input ( id_id , max_ssmt2_input )
1020 integer , INTENT(OUT) :: max_ssmt2_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_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
1026 ENDIF
1027 max_ssmt2_input = model_config_rec%max_ssmt2_input
1028 RETURN
1029 END SUBROUTINE nl_get_max_ssmt2_input
1030 SUBROUTINE nl_get_max_qscat_input ( id_id , max_qscat_input )
1031 integer , INTENT(OUT) :: max_qscat_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_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
1037 ENDIF
1038 max_qscat_input = model_config_rec%max_qscat_input
1039 RETURN
1040 END SUBROUTINE nl_get_max_qscat_input
1041 SUBROUTINE nl_get_max_gpsref_input ( id_id , max_gpsref_input )
1042 integer , INTENT(OUT) :: max_gpsref_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_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
1048 ENDIF
1049 max_gpsref_input = model_config_rec%max_gpsref_input
1050 RETURN
1051 END SUBROUTINE nl_get_max_gpsref_input
1052 SUBROUTINE nl_get_max_airsret_input ( id_id , max_airsret_input )
1053 integer , INTENT(OUT) :: max_airsret_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_airsret_input: max_airsret_input applies to all domains. First arg ignored.')
1059 ENDIF
1060 max_airsret_input = model_config_rec%max_airsret_input
1061 RETURN
1062 END SUBROUTINE nl_get_max_airsret_input
1063 SUBROUTINE nl_get_max_tovs_input ( id_id , max_tovs_input )
1064 integer , INTENT(OUT) :: max_tovs_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_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
1070 ENDIF
1071 max_tovs_input = model_config_rec%max_tovs_input
1072 RETURN
1073 END SUBROUTINE nl_get_max_tovs_input
1074 SUBROUTINE nl_get_report_start ( id_id , report_start )
1075 integer , INTENT(OUT) :: report_start
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_report_start: report_start applies to all domains. First arg ignored.')
1081 ENDIF
1082 report_start = model_config_rec%report_start
1083 RETURN
1084 END SUBROUTINE nl_get_report_start
1085 SUBROUTINE nl_get_report_end ( id_id , report_end )
1086 integer , INTENT(OUT) :: report_end
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_report_end: report_end applies to all domains. First arg ignored.')
1092 ENDIF
1093 report_end = model_config_rec%report_end
1094 RETURN
1095 END SUBROUTINE nl_get_report_end
1096 SUBROUTINE nl_get_tovs_start ( id_id , tovs_start )
1097 integer , INTENT(OUT) :: tovs_start
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_tovs_start: tovs_start applies to all domains. First arg ignored.')
1103 ENDIF
1104 tovs_start = model_config_rec%tovs_start
1105 RETURN
1106 END SUBROUTINE nl_get_tovs_start
1107 SUBROUTINE nl_get_tovs_end ( id_id , tovs_end )
1108 integer , INTENT(OUT) :: tovs_end
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_tovs_end: tovs_end applies to all domains. First arg ignored.')
1114 ENDIF
1115 tovs_end = model_config_rec%tovs_end
1116 RETURN
1117 END SUBROUTINE nl_get_tovs_end
1118 SUBROUTINE nl_get_max_ext_its ( id_id , max_ext_its )
1119 integer , INTENT(OUT) :: max_ext_its
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_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
1125 ENDIF
1126 max_ext_its = model_config_rec%max_ext_its
1127 RETURN
1128 END SUBROUTINE nl_get_max_ext_its
1129 SUBROUTINE nl_get_ntmax ( id_id , ntmax )
1130 integer , INTENT(OUT) :: ntmax
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_ntmax: ntmax applies to all domains. First arg ignored.')
1136 ENDIF
1137 ntmax = model_config_rec%ntmax
1138 RETURN
1139 END SUBROUTINE nl_get_ntmax
1140 SUBROUTINE nl_get_nsave ( id_id , nsave )
1141 integer , INTENT(OUT) :: nsave
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_nsave: nsave applies to all domains. First arg ignored.')
1147 ENDIF
1148 nsave = model_config_rec%nsave
1149 RETURN
1150 END SUBROUTINE nl_get_nsave
1151 SUBROUTINE nl_get_write_switch ( id_id , write_switch )
1152 logical , INTENT(OUT) :: write_switch
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_write_switch: write_switch applies to all domains. First arg ignored.')
1158 ENDIF
1159 write_switch = model_config_rec%write_switch
1160 RETURN
1161 END SUBROUTINE nl_get_write_switch
1162 SUBROUTINE nl_get_write_interval ( id_id , write_interval )
1163 integer , INTENT(OUT) :: write_interval
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_write_interval: write_interval applies to all domains. First arg ignored.')
1169 ENDIF
1170 write_interval = model_config_rec%write_interval
1171 RETURN
1172 END SUBROUTINE nl_get_write_interval
1173 SUBROUTINE nl_get_eps ( id_id , eps )
1174 real , INTENT(OUT) :: eps
1175 INTEGER id_id
1176 CHARACTER*80 emess
1177 eps = model_config_rec%eps(id_id)
1178 RETURN
1179 END SUBROUTINE nl_get_eps
1180 SUBROUTINE nl_get_rf_passes ( id_id , rf_passes )
1181 integer , INTENT(OUT) :: rf_passes
1182 INTEGER id_id
1183 CHARACTER*80 emess
1184 IF ( id_id .NE. 1 ) THEN
1185 call wrf_debug(1,&
1186 'WARNING in nl_get_rf_passes: rf_passes applies to all domains. First arg ignored.')
1187 ENDIF
1188 rf_passes = model_config_rec%rf_passes
1189 RETURN
1190 END SUBROUTINE nl_get_rf_passes
1191 SUBROUTINE nl_get_var_scaling1 ( id_id , var_scaling1 )
1192 real , INTENT(OUT) :: var_scaling1
1193 INTEGER id_id
1194 CHARACTER*80 emess
1195 IF ( id_id .NE. 1 ) THEN
1196 call wrf_debug(1,&
1197 'WARNING in nl_get_var_scaling1: var_scaling1 applies to all domains. First arg ignored.')
1198 ENDIF
1199 var_scaling1 = model_config_rec%var_scaling1
1200 RETURN
1201 END SUBROUTINE nl_get_var_scaling1
1202 SUBROUTINE nl_get_var_scaling2 ( id_id , var_scaling2 )
1203 real , INTENT(OUT) :: var_scaling2
1204 INTEGER id_id
1205 CHARACTER*80 emess
1206 IF ( id_id .NE. 1 ) THEN
1207 call wrf_debug(1,&
1208 'WARNING in nl_get_var_scaling2: var_scaling2 applies to all domains. First arg ignored.')
1209 ENDIF
1210 var_scaling2 = model_config_rec%var_scaling2
1211 RETURN
1212 END SUBROUTINE nl_get_var_scaling2
1213 SUBROUTINE nl_get_var_scaling3 ( id_id , var_scaling3 )
1214 real , INTENT(OUT) :: var_scaling3
1215 INTEGER id_id
1216 CHARACTER*80 emess
1217 IF ( id_id .NE. 1 ) THEN
1218 call wrf_debug(1,&
1219 'WARNING in nl_get_var_scaling3: var_scaling3 applies to all domains. First arg ignored.')
1220 ENDIF
1221 var_scaling3 = model_config_rec%var_scaling3
1222 RETURN
1223 END SUBROUTINE nl_get_var_scaling3
1224 SUBROUTINE nl_get_var_scaling4 ( id_id , var_scaling4 )
1225 real , INTENT(OUT) :: var_scaling4
1226 INTEGER id_id
1227 CHARACTER*80 emess
1228 IF ( id_id .NE. 1 ) THEN
1229 call wrf_debug(1,&
1230 'WARNING in nl_get_var_scaling4: var_scaling4 applies to all domains. First arg ignored.')
1231 ENDIF
1232 var_scaling4 = model_config_rec%var_scaling4
1233 RETURN
1234 END SUBROUTINE nl_get_var_scaling4
1235 SUBROUTINE nl_get_var_scaling5 ( id_id , var_scaling5 )
1236 real , INTENT(OUT) :: var_scaling5
1237 INTEGER id_id
1238 CHARACTER*80 emess
1239 IF ( id_id .NE. 1 ) THEN
1240 call wrf_debug(1,&
1241 'WARNING in nl_get_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
1242 ENDIF
1243 var_scaling5 = model_config_rec%var_scaling5
1244 RETURN
1245 END SUBROUTINE nl_get_var_scaling5
1246 SUBROUTINE nl_get_len_scaling1 ( id_id , len_scaling1 )
1247 real , INTENT(OUT) :: len_scaling1
1248 INTEGER id_id
1249 CHARACTER*80 emess
1250 IF ( id_id .NE. 1 ) THEN
1251 call wrf_debug(1,&
1252 'WARNING in nl_get_len_scaling1: len_scaling1 applies to all domains. First arg ignored.')
1253 ENDIF
1254 len_scaling1 = model_config_rec%len_scaling1
1255 RETURN
1256 END SUBROUTINE nl_get_len_scaling1
1257 SUBROUTINE nl_get_len_scaling2 ( id_id , len_scaling2 )
1258 real , INTENT(OUT) :: len_scaling2
1259 INTEGER id_id
1260 CHARACTER*80 emess
1261 IF ( id_id .NE. 1 ) THEN
1262 call wrf_debug(1,&
1263 'WARNING in nl_get_len_scaling2: len_scaling2 applies to all domains. First arg ignored.')
1264 ENDIF
1265 len_scaling2 = model_config_rec%len_scaling2
1266 RETURN
1267 END SUBROUTINE nl_get_len_scaling2
1268 SUBROUTINE nl_get_len_scaling3 ( id_id , len_scaling3 )
1269 real , INTENT(OUT) :: len_scaling3
1270 INTEGER id_id
1271 CHARACTER*80 emess
1272 IF ( id_id .NE. 1 ) THEN
1273 call wrf_debug(1,&
1274 'WARNING in nl_get_len_scaling3: len_scaling3 applies to all domains. First arg ignored.')
1275 ENDIF
1276 len_scaling3 = model_config_rec%len_scaling3
1277 RETURN
1278 END SUBROUTINE nl_get_len_scaling3
1279 SUBROUTINE nl_get_len_scaling4 ( id_id , len_scaling4 )
1280 real , INTENT(OUT) :: len_scaling4
1281 INTEGER id_id
1282 CHARACTER*80 emess
1283 IF ( id_id .NE. 1 ) THEN
1284 call wrf_debug(1,&
1285 'WARNING in nl_get_len_scaling4: len_scaling4 applies to all domains. First arg ignored.')
1286 ENDIF
1287 len_scaling4 = model_config_rec%len_scaling4
1288 RETURN
1289 END SUBROUTINE nl_get_len_scaling4
1290 SUBROUTINE nl_get_len_scaling5 ( id_id , len_scaling5 )
1291 real , INTENT(OUT) :: len_scaling5
1292 INTEGER id_id
1293 CHARACTER*80 emess
1294 IF ( id_id .NE. 1 ) THEN
1295 call wrf_debug(1,&
1296 'WARNING in nl_get_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
1297 ENDIF
1298 len_scaling5 = model_config_rec%len_scaling5
1299 RETURN
1300 END SUBROUTINE nl_get_len_scaling5
1301 SUBROUTINE nl_get_jb_factor ( id_id , jb_factor )
1302 real , INTENT(OUT) :: jb_factor
1303 INTEGER id_id
1304 CHARACTER*80 emess
1305 IF ( id_id .NE. 1 ) THEN
1306 call wrf_debug(1,&
1307 'WARNING in nl_get_jb_factor: jb_factor applies to all domains. First arg ignored.')
1308 ENDIF
1309 jb_factor = model_config_rec%jb_factor
1310 RETURN
1311 END SUBROUTINE nl_get_jb_factor
1312 SUBROUTINE nl_get_je_factor ( id_id , je_factor )
1313 real , INTENT(OUT) :: je_factor
1314 INTEGER id_id
1315 CHARACTER*80 emess
1316 IF ( id_id .NE. 1 ) THEN
1317 call wrf_debug(1,&
1318 'WARNING in nl_get_je_factor: je_factor applies to all domains. First arg ignored.')
1319 ENDIF
1320 je_factor = model_config_rec%je_factor
1321 RETURN
1322 END SUBROUTINE nl_get_je_factor
1323 SUBROUTINE nl_get_power_truncation ( id_id , power_truncation )
1324 real , INTENT(OUT) :: power_truncation
1325 INTEGER id_id
1326 CHARACTER*80 emess
1327 IF ( id_id .NE. 1 ) THEN
1328 call wrf_debug(1,&
1329 'WARNING in nl_get_power_truncation: power_truncation applies to all domains. First arg ignored.')
1330 ENDIF
1331 power_truncation = model_config_rec%power_truncation
1332 RETURN
1333 END SUBROUTINE nl_get_power_truncation
1334 SUBROUTINE nl_get_def_sub_domain ( id_id , def_sub_domain )
1335 logical , INTENT(OUT) :: def_sub_domain
1336 INTEGER id_id
1337 CHARACTER*80 emess
1338 IF ( id_id .NE. 1 ) THEN
1339 call wrf_debug(1,&
1340 'WARNING in nl_get_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
1341 ENDIF
1342 def_sub_domain = model_config_rec%def_sub_domain
1343 RETURN
1344 END SUBROUTINE nl_get_def_sub_domain
1345 SUBROUTINE nl_get_x_start_sub_domain ( id_id , x_start_sub_domain )
1346 real , INTENT(OUT) :: x_start_sub_domain
1347 INTEGER id_id
1348 CHARACTER*80 emess
1349 IF ( id_id .NE. 1 ) THEN
1350 call wrf_debug(1,&
1351 'WARNING in nl_get_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
1352 ENDIF
1353 x_start_sub_domain = model_config_rec%x_start_sub_domain
1354 RETURN
1355 END SUBROUTINE nl_get_x_start_sub_domain
1356 SUBROUTINE nl_get_y_start_sub_domain ( id_id , y_start_sub_domain )
1357 real , INTENT(OUT) :: y_start_sub_domain
1358 INTEGER id_id
1359 CHARACTER*80 emess
1360 IF ( id_id .NE. 1 ) THEN
1361 call wrf_debug(1,&
1362 'WARNING in nl_get_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
1363 ENDIF
1364 y_start_sub_domain = model_config_rec%y_start_sub_domain
1365 RETURN
1366 END SUBROUTINE nl_get_y_start_sub_domain
1367 SUBROUTINE nl_get_x_end_sub_domain ( id_id , x_end_sub_domain )
1368 real , INTENT(OUT) :: x_end_sub_domain
1369 INTEGER id_id
1370 CHARACTER*80 emess
1371 IF ( id_id .NE. 1 ) THEN
1372 call wrf_debug(1,&
1373 'WARNING in nl_get_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
1374 ENDIF
1375 x_end_sub_domain = model_config_rec%x_end_sub_domain
1376 RETURN
1377 END SUBROUTINE nl_get_x_end_sub_domain
1378 SUBROUTINE nl_get_y_end_sub_domain ( id_id , y_end_sub_domain )
1379 real , INTENT(OUT) :: y_end_sub_domain
1380 INTEGER id_id
1381 CHARACTER*80 emess
1382 IF ( id_id .NE. 1 ) THEN
1383 call wrf_debug(1,&
1384 'WARNING in nl_get_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
1385 ENDIF
1386 y_end_sub_domain = model_config_rec%y_end_sub_domain
1387 RETURN
1388 END SUBROUTINE nl_get_y_end_sub_domain
1389 SUBROUTINE nl_get_stdout ( id_id , stdout )
1390 integer , INTENT(OUT) :: stdout
1391 INTEGER id_id
1392 CHARACTER*80 emess
1393 IF ( id_id .NE. 1 ) THEN
1394 call wrf_debug(1,&
1395 'WARNING in nl_get_stdout: stdout applies to all domains. First arg ignored.')
1396 ENDIF
1397 stdout = model_config_rec%stdout
1398 RETURN
1399 END SUBROUTINE nl_get_stdout
1400 SUBROUTINE nl_get_stderr ( id_id , stderr )
1401 integer , INTENT(OUT) :: stderr
1402 INTEGER id_id
1403 CHARACTER*80 emess
1404 IF ( id_id .NE. 1 ) THEN
1405 call wrf_debug(1,&
1406 'WARNING in nl_get_stderr: stderr applies to all domains. First arg ignored.')
1407 ENDIF
1408 stderr = model_config_rec%stderr
1409 RETURN
1410 END SUBROUTINE nl_get_stderr
1411 SUBROUTINE nl_get_trace_unit ( id_id , trace_unit )
1412 integer , INTENT(OUT) :: trace_unit
1413 INTEGER id_id
1414 CHARACTER*80 emess
1415 IF ( id_id .NE. 1 ) THEN
1416 call wrf_debug(1,&
1417 'WARNING in nl_get_trace_unit: trace_unit applies to all domains. First arg ignored.')
1418 ENDIF
1419 trace_unit = model_config_rec%trace_unit
1420 RETURN
1421 END SUBROUTINE nl_get_trace_unit
1422 SUBROUTINE nl_get_trace_pe ( id_id , trace_pe )
1423 integer , INTENT(OUT) :: trace_pe
1424 INTEGER id_id
1425 CHARACTER*80 emess
1426 IF ( id_id .NE. 1 ) THEN
1427 call wrf_debug(1,&
1428 'WARNING in nl_get_trace_pe: trace_pe applies to all domains. First arg ignored.')
1429 ENDIF
1430 trace_pe = model_config_rec%trace_pe
1431 RETURN
1432 END SUBROUTINE nl_get_trace_pe
1433 SUBROUTINE nl_get_trace_repeat_head ( id_id , trace_repeat_head )
1434 integer , INTENT(OUT) :: trace_repeat_head
1435 INTEGER id_id
1436 CHARACTER*80 emess
1437 IF ( id_id .NE. 1 ) THEN
1438 call wrf_debug(1,&
1439 'WARNING in nl_get_trace_repeat_head: trace_repeat_head applies to all domains. First arg ignored.')
1440 ENDIF
1441 trace_repeat_head = model_config_rec%trace_repeat_head
1442 RETURN
1443 END SUBROUTINE nl_get_trace_repeat_head
1444 SUBROUTINE nl_get_trace_repeat_body ( id_id , trace_repeat_body )
1445 integer , INTENT(OUT) :: trace_repeat_body
1446 INTEGER id_id
1447 CHARACTER*80 emess
1448 IF ( id_id .NE. 1 ) THEN
1449 call wrf_debug(1,&
1450 'WARNING in nl_get_trace_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
1451 ENDIF
1452 trace_repeat_body = model_config_rec%trace_repeat_body
1453 RETURN
1454 END SUBROUTINE nl_get_trace_repeat_body
1455 SUBROUTINE nl_get_trace_max_depth ( id_id , trace_max_depth )
1456 integer , INTENT(OUT) :: trace_max_depth
1457 INTEGER id_id
1458 CHARACTER*80 emess
1459 IF ( id_id .NE. 1 ) THEN
1460 call wrf_debug(1,&
1461 'WARNING in nl_get_trace_max_depth: trace_max_depth applies to all domains. First arg ignored.')
1462 ENDIF
1463 trace_max_depth = model_config_rec%trace_max_depth
1464 RETURN
1465 END SUBROUTINE nl_get_trace_max_depth
1466 SUBROUTINE nl_get_trace_use ( id_id , trace_use )
1467 logical , INTENT(OUT) :: trace_use
1468 INTEGER id_id
1469 CHARACTER*80 emess
1470 IF ( id_id .NE. 1 ) THEN
1471 call wrf_debug(1,&
1472 'WARNING in nl_get_trace_use: trace_use applies to all domains. First arg ignored.')
1473 ENDIF
1474 trace_use = model_config_rec%trace_use
1475 RETURN
1476 END SUBROUTINE nl_get_trace_use
1477 SUBROUTINE nl_get_trace_use_frequent ( id_id , trace_use_frequent )
1478 logical , INTENT(OUT) :: trace_use_frequent
1479 INTEGER id_id
1480 CHARACTER*80 emess
1481 IF ( id_id .NE. 1 ) THEN
1482 call wrf_debug(1,&
1483 'WARNING in nl_get_trace_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
1484 ENDIF
1485 trace_use_frequent = model_config_rec%trace_use_frequent
1486 RETURN
1487 END SUBROUTINE nl_get_trace_use_frequent
1488 SUBROUTINE nl_get_trace_memory ( id_id , trace_memory )
1489 logical , INTENT(OUT) :: trace_memory
1490 INTEGER id_id
1491 CHARACTER*80 emess
1492 IF ( id_id .NE. 1 ) THEN
1493 call wrf_debug(1,&
1494 'WARNING in nl_get_trace_memory: trace_memory applies to all domains. First arg ignored.')
1495 ENDIF
1496 trace_memory = model_config_rec%trace_memory
1497 RETURN
1498 END SUBROUTINE nl_get_trace_memory
1499 SUBROUTINE nl_get_trace_all_pes ( id_id , trace_all_pes )
1500 logical , INTENT(OUT) :: trace_all_pes
1501 INTEGER id_id
1502 CHARACTER*80 emess
1503 IF ( id_id .NE. 1 ) THEN
1504 call wrf_debug(1,&
1505 'WARNING in nl_get_trace_all_pes: trace_all_pes applies to all domains. First arg ignored.')
1506 ENDIF
1507 trace_all_pes = model_config_rec%trace_all_pes
1508 RETURN
1509 END SUBROUTINE nl_get_trace_all_pes
1510 SUBROUTINE nl_get_trace_csv ( id_id , trace_csv )
1511 logical , INTENT(OUT) :: trace_csv
1512 INTEGER id_id
1513 CHARACTER*80 emess
1514 IF ( id_id .NE. 1 ) THEN
1515 call wrf_debug(1,&
1516 'WARNING in nl_get_trace_csv: trace_csv applies to all domains. First arg ignored.')
1517 ENDIF
1518 trace_csv = model_config_rec%trace_csv
1519 RETURN
1520 END SUBROUTINE nl_get_trace_csv
1521 SUBROUTINE nl_get_use_html ( id_id , use_html )
1522 logical , INTENT(OUT) :: use_html
1523 INTEGER id_id
1524 CHARACTER*80 emess
1525 IF ( id_id .NE. 1 ) THEN
1526 call wrf_debug(1,&
1527 'WARNING in nl_get_use_html: use_html applies to all domains. First arg ignored.')
1528 ENDIF
1529 use_html = model_config_rec%use_html
1530 RETURN
1531 END SUBROUTINE nl_get_use_html
1532 SUBROUTINE nl_get_warnings_are_fatal ( id_id , warnings_are_fatal )
1533 logical , INTENT(OUT) :: warnings_are_fatal
1534 INTEGER id_id
1535 CHARACTER*80 emess
1536 IF ( id_id .NE. 1 ) THEN
1537 call wrf_debug(1,&
1538 'WARNING in nl_get_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
1539 ENDIF
1540 warnings_are_fatal = model_config_rec%warnings_are_fatal
1541 RETURN
1542 END SUBROUTINE nl_get_warnings_are_fatal
1543 SUBROUTINE nl_get_testing_wrfvar ( id_id , testing_wrfvar )
1544 logical , INTENT(OUT) :: testing_wrfvar
1545 INTEGER id_id
1546 CHARACTER*80 emess
1547 IF ( id_id .NE. 1 ) THEN
1548 call wrf_debug(1,&
1549 'WARNING in nl_get_testing_wrfvar: testing_wrfvar applies to all domains. First arg ignored.')
1550 ENDIF
1551 testing_wrfvar = model_config_rec%testing_wrfvar
1552 RETURN
1553 END SUBROUTINE nl_get_testing_wrfvar
1554 SUBROUTINE nl_get_test_transforms ( id_id , test_transforms )
1555 logical , INTENT(OUT) :: test_transforms
1556 INTEGER id_id
1557 CHARACTER*80 emess
1558 IF ( id_id .NE. 1 ) THEN
1559 call wrf_debug(1,&
1560 'WARNING in nl_get_test_transforms: test_transforms applies to all domains. First arg ignored.')
1561 ENDIF
1562 test_transforms = model_config_rec%test_transforms
1563 RETURN
1564 END SUBROUTINE nl_get_test_transforms
1565 SUBROUTINE nl_get_test_statistics ( id_id , test_statistics )
1566 logical , INTENT(OUT) :: test_statistics
1567 INTEGER id_id
1568 CHARACTER*80 emess
1569 IF ( id_id .NE. 1 ) THEN
1570 call wrf_debug(1,&
1571 'WARNING in nl_get_test_statistics: test_statistics applies to all domains. First arg ignored.')
1572 ENDIF
1573 test_statistics = model_config_rec%test_statistics
1574 RETURN
1575 END SUBROUTINE nl_get_test_statistics
1576 SUBROUTINE nl_get_interpolate_stats ( id_id , interpolate_stats )
1577 logical , INTENT(OUT) :: interpolate_stats
1578 INTEGER id_id
1579 CHARACTER*80 emess
1580 IF ( id_id .NE. 1 ) THEN
1581 call wrf_debug(1,&
1582 'WARNING in nl_get_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
1583 ENDIF
1584 interpolate_stats = model_config_rec%interpolate_stats
1585 RETURN
1586 END SUBROUTINE nl_get_interpolate_stats
1587 SUBROUTINE nl_get_testing_dm_exact ( id_id , testing_dm_exact )
1588 logical , INTENT(OUT) :: testing_dm_exact
1589 INTEGER id_id
1590 CHARACTER*80 emess
1591 IF ( id_id .NE. 1 ) THEN
1592 call wrf_debug(1,&
1593 'WARNING in nl_get_testing_dm_exact: testing_dm_exact applies to all domains. First arg ignored.')
1594 ENDIF
1595 testing_dm_exact = model_config_rec%testing_dm_exact
1596 RETURN
1597 END SUBROUTINE nl_get_testing_dm_exact
1598 SUBROUTINE nl_get_cv_options_hum ( id_id , cv_options_hum )
1599 integer , INTENT(OUT) :: cv_options_hum
1600 INTEGER id_id
1601 CHARACTER*80 emess
1602 IF ( id_id .NE. 1 ) THEN
1603 call wrf_debug(1,&
1604 'WARNING in nl_get_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
1605 ENDIF
1606 cv_options_hum = model_config_rec%cv_options_hum
1607 RETURN
1608 END SUBROUTINE nl_get_cv_options_hum
1609 SUBROUTINE nl_get_check_rh ( id_id , check_rh )
1610 integer , INTENT(OUT) :: check_rh
1611 INTEGER id_id
1612 CHARACTER*80 emess
1613 IF ( id_id .NE. 1 ) THEN
1614 call wrf_debug(1,&
1615 'WARNING in nl_get_check_rh: check_rh applies to all domains. First arg ignored.')
1616 ENDIF
1617 check_rh = model_config_rec%check_rh
1618 RETURN
1619 END SUBROUTINE nl_get_check_rh
1620 SUBROUTINE nl_get_set_omb_rand_fac ( id_id , set_omb_rand_fac )
1621 integer , INTENT(OUT) :: set_omb_rand_fac
1622 INTEGER id_id
1623 CHARACTER*80 emess
1624 IF ( id_id .NE. 1 ) THEN
1625 call wrf_debug(1,&
1626 'WARNING in nl_get_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
1627 ENDIF
1628 set_omb_rand_fac = model_config_rec%set_omb_rand_fac
1629 RETURN
1630 END SUBROUTINE nl_get_set_omb_rand_fac
1631 SUBROUTINE nl_get_seed_array1 ( id_id , seed_array1 )
1632 integer , INTENT(OUT) :: seed_array1
1633 INTEGER id_id
1634 CHARACTER*80 emess
1635 IF ( id_id .NE. 1 ) THEN
1636 call wrf_debug(1,&
1637 'WARNING in nl_get_seed_array1: seed_array1 applies to all domains. First arg ignored.')
1638 ENDIF
1639 seed_array1 = model_config_rec%seed_array1
1640 RETURN
1641 END SUBROUTINE nl_get_seed_array1
1642 SUBROUTINE nl_get_seed_array2 ( id_id , seed_array2 )
1643 integer , INTENT(OUT) :: seed_array2
1644 INTEGER id_id
1645 CHARACTER*80 emess
1646 IF ( id_id .NE. 1 ) THEN
1647 call wrf_debug(1,&
1648 'WARNING in nl_get_seed_array2: seed_array2 applies to all domains. First arg ignored.')
1649 ENDIF
1650 seed_array2 = model_config_rec%seed_array2
1651 RETURN
1652 END SUBROUTINE nl_get_seed_array2
1653 SUBROUTINE nl_get_sfc_assi_options ( id_id , sfc_assi_options )
1654 integer , INTENT(OUT) :: sfc_assi_options
1655 INTEGER id_id
1656 CHARACTER*80 emess
1657 IF ( id_id .NE. 1 ) THEN
1658 call wrf_debug(1,&
1659 'WARNING in nl_get_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
1660 ENDIF
1661 sfc_assi_options = model_config_rec%sfc_assi_options
1662 RETURN
1663 END SUBROUTINE nl_get_sfc_assi_options
1664 SUBROUTINE nl_get_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
1665 logical , INTENT(OUT) :: calculate_cg_cost_fn
1666 INTEGER id_id
1667 CHARACTER*80 emess
1668 IF ( id_id .NE. 1 ) THEN
1669 call wrf_debug(1,&
1670 'WARNING in nl_get_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
1671 ENDIF
1672 calculate_cg_cost_fn = model_config_rec%calculate_cg_cost_fn
1673 RETURN
1674 END SUBROUTINE nl_get_calculate_cg_cost_fn
1675 SUBROUTINE nl_get_write_outer_loop ( id_id , write_outer_loop )
1676 logical , INTENT(OUT) :: write_outer_loop
1677 INTEGER id_id
1678 CHARACTER*80 emess
1679 IF ( id_id .NE. 1 ) THEN
1680 call wrf_debug(1,&
1681 'WARNING in nl_get_write_outer_loop: write_outer_loop applies to all domains. First arg ignored.')
1682 ENDIF
1683 write_outer_loop = model_config_rec%write_outer_loop
1684 RETURN
1685 END SUBROUTINE nl_get_write_outer_loop
1686 SUBROUTINE nl_get_lat_stats_option ( id_id , lat_stats_option )
1687 logical , INTENT(OUT) :: lat_stats_option
1688 INTEGER id_id
1689 CHARACTER*80 emess
1690 IF ( id_id .NE. 1 ) THEN
1691 call wrf_debug(1,&
1692 'WARNING in nl_get_lat_stats_option: lat_stats_option applies to all domains. First arg ignored.')
1693 ENDIF
1694 lat_stats_option = model_config_rec%lat_stats_option
1695 RETURN
1696 END SUBROUTINE nl_get_lat_stats_option
1697 SUBROUTINE nl_get_as1 ( id_id , as1 )
1698 real , INTENT(OUT) :: as1
1699 INTEGER id_id
1700 CHARACTER*80 emess
1701 as1 = model_config_rec%as1(id_id)
1702 RETURN
1703 END SUBROUTINE nl_get_as1
1704 SUBROUTINE nl_get_as2 ( id_id , as2 )
1705 real , INTENT(OUT) :: as2
1706 INTEGER id_id
1707 CHARACTER*80 emess
1708 as2 = model_config_rec%as2(id_id)
1709 RETURN
1710 END SUBROUTINE nl_get_as2
1711 SUBROUTINE nl_get_as3 ( id_id , as3 )
1712 real , INTENT(OUT) :: as3
1713 INTEGER id_id
1714 CHARACTER*80 emess
1715 as3 = model_config_rec%as3(id_id)
1716 RETURN
1717 END SUBROUTINE nl_get_as3
1718 SUBROUTINE nl_get_as4 ( id_id , as4 )
1719 real , INTENT(OUT) :: as4
1720 INTEGER id_id
1721 CHARACTER*80 emess
1722 as4 = model_config_rec%as4(id_id)
1723 RETURN
1724 END SUBROUTINE nl_get_as4
1725 SUBROUTINE nl_get_as5 ( id_id , as5 )
1726 real , INTENT(OUT) :: as5
1727 INTEGER id_id
1728 CHARACTER*80 emess
1729 as5 = model_config_rec%as5(id_id)
1730 RETURN
1731 END SUBROUTINE nl_get_as5
1732 SUBROUTINE nl_get_balance_type ( id_id , balance_type )
1733 integer , INTENT(OUT) :: balance_type
1734 INTEGER id_id
1735 CHARACTER*80 emess
1736 IF ( id_id .NE. 1 ) THEN
1737 call wrf_debug(1,&
1738 'WARNING in nl_get_balance_type: balance_type applies to all domains. First arg ignored.')
1739 ENDIF
1740 balance_type = model_config_rec%balance_type
1741 RETURN
1742 END SUBROUTINE nl_get_balance_type
1743 SUBROUTINE nl_get_vert_corr ( id_id , vert_corr )
1744 integer , INTENT(OUT) :: vert_corr
1745 INTEGER id_id
1746 CHARACTER*80 emess
1747 IF ( id_id .NE. 1 ) THEN
1748 call wrf_debug(1,&
1749 'WARNING in nl_get_vert_corr: vert_corr applies to all domains. First arg ignored.')
1750 ENDIF
1751 vert_corr = model_config_rec%vert_corr
1752 RETURN
1753 END SUBROUTINE nl_get_vert_corr
1754 SUBROUTINE nl_get_vertical_ip ( id_id , vertical_ip )
1755 integer , INTENT(OUT) :: vertical_ip
1756 INTEGER id_id
1757 CHARACTER*80 emess
1758 IF ( id_id .NE. 1 ) THEN
1759 call wrf_debug(1,&
1760 'WARNING in nl_get_vertical_ip: vertical_ip applies to all domains. First arg ignored.')
1761 ENDIF
1762 vertical_ip = model_config_rec%vertical_ip
1763 RETURN
1764 END SUBROUTINE nl_get_vertical_ip
1765 SUBROUTINE nl_get_vert_evalue ( id_id , vert_evalue )
1766 integer , INTENT(OUT) :: vert_evalue
1767 INTEGER id_id
1768 CHARACTER*80 emess
1769 IF ( id_id .NE. 1 ) THEN
1770 call wrf_debug(1,&
1771 'WARNING in nl_get_vert_evalue: vert_evalue applies to all domains. First arg ignored.')
1772 ENDIF
1773 vert_evalue = model_config_rec%vert_evalue
1774 RETURN
1775 END SUBROUTINE nl_get_vert_evalue
1776 SUBROUTINE nl_get_max_vert_var1 ( id_id , max_vert_var1 )
1777 real , INTENT(OUT) :: max_vert_var1
1778 INTEGER id_id
1779 CHARACTER*80 emess
1780 IF ( id_id .NE. 1 ) THEN
1781 call wrf_debug(1,&
1782 'WARNING in nl_get_max_vert_var1: max_vert_var1 applies to all domains. First arg ignored.')
1783 ENDIF
1784 max_vert_var1 = model_config_rec%max_vert_var1
1785 RETURN
1786 END SUBROUTINE nl_get_max_vert_var1
1787 SUBROUTINE nl_get_max_vert_var2 ( id_id , max_vert_var2 )
1788 real , INTENT(OUT) :: max_vert_var2
1789 INTEGER id_id
1790 CHARACTER*80 emess
1791 IF ( id_id .NE. 1 ) THEN
1792 call wrf_debug(1,&
1793 'WARNING in nl_get_max_vert_var2: max_vert_var2 applies to all domains. First arg ignored.')
1794 ENDIF
1795 max_vert_var2 = model_config_rec%max_vert_var2
1796 RETURN
1797 END SUBROUTINE nl_get_max_vert_var2
1798 SUBROUTINE nl_get_max_vert_var3 ( id_id , max_vert_var3 )
1799 real , INTENT(OUT) :: max_vert_var3
1800 INTEGER id_id
1801 CHARACTER*80 emess
1802 IF ( id_id .NE. 1 ) THEN
1803 call wrf_debug(1,&
1804 'WARNING in nl_get_max_vert_var3: max_vert_var3 applies to all domains. First arg ignored.')
1805 ENDIF
1806 max_vert_var3 = model_config_rec%max_vert_var3
1807 RETURN
1808 END SUBROUTINE nl_get_max_vert_var3
1809 SUBROUTINE nl_get_max_vert_var4 ( id_id , max_vert_var4 )
1810 real , INTENT(OUT) :: max_vert_var4
1811 INTEGER id_id
1812 CHARACTER*80 emess
1813 IF ( id_id .NE. 1 ) THEN
1814 call wrf_debug(1,&
1815 'WARNING in nl_get_max_vert_var4: max_vert_var4 applies to all domains. First arg ignored.')
1816 ENDIF
1817 max_vert_var4 = model_config_rec%max_vert_var4
1818 RETURN
1819 END SUBROUTINE nl_get_max_vert_var4
1820 SUBROUTINE nl_get_max_vert_var5 ( id_id , max_vert_var5 )
1821 real , INTENT(OUT) :: max_vert_var5
1822 INTEGER id_id
1823 CHARACTER*80 emess
1824 IF ( id_id .NE. 1 ) THEN
1825 call wrf_debug(1,&
1826 'WARNING in nl_get_max_vert_var5: max_vert_var5 applies to all domains. First arg ignored.')
1827 ENDIF
1828 max_vert_var5 = model_config_rec%max_vert_var5
1829 RETURN
1830 END SUBROUTINE nl_get_max_vert_var5
1831 SUBROUTINE nl_get_rtminit_print ( id_id , rtminit_print )
1832 integer , INTENT(OUT) :: rtminit_print
1833 INTEGER id_id
1834 CHARACTER*80 emess
1835 IF ( id_id .NE. 1 ) THEN
1836 call wrf_debug(1,&
1837 'WARNING in nl_get_rtminit_print: rtminit_print applies to all domains. First arg ignored.')
1838 ENDIF
1839 rtminit_print = model_config_rec%rtminit_print
1840 RETURN
1841 END SUBROUTINE nl_get_rtminit_print
1842 SUBROUTINE nl_get_rtminit_nsensor ( id_id , rtminit_nsensor )
1843 integer , INTENT(OUT) :: rtminit_nsensor
1844 INTEGER id_id
1845 CHARACTER*80 emess
1846 IF ( id_id .NE. 1 ) THEN
1847 call wrf_debug(1,&
1848 'WARNING in nl_get_rtminit_nsensor: rtminit_nsensor applies to all domains. First arg ignored.')
1849 ENDIF
1850 rtminit_nsensor = model_config_rec%rtminit_nsensor
1851 RETURN
1852 END SUBROUTINE nl_get_rtminit_nsensor
1853 SUBROUTINE nl_get_rtminit_platform ( id_id , rtminit_platform )
1854 integer , INTENT(OUT) :: rtminit_platform
1855 INTEGER id_id
1856 CHARACTER*80 emess
1857 rtminit_platform = model_config_rec%rtminit_platform(id_id)
1858 RETURN
1859 END SUBROUTINE nl_get_rtminit_platform
1860 SUBROUTINE nl_get_rtminit_satid ( id_id , rtminit_satid )
1861 integer , INTENT(OUT) :: rtminit_satid
1862 INTEGER id_id
1863 CHARACTER*80 emess
1864 rtminit_satid = model_config_rec%rtminit_satid(id_id)
1865 RETURN
1866 END SUBROUTINE nl_get_rtminit_satid
1867 SUBROUTINE nl_get_rtminit_sensor ( id_id , rtminit_sensor )
1868 integer , INTENT(OUT) :: rtminit_sensor
1869 INTEGER id_id
1870 CHARACTER*80 emess
1871 rtminit_sensor = model_config_rec%rtminit_sensor(id_id)
1872 RETURN
1873 END SUBROUTINE nl_get_rtminit_sensor
1874 SUBROUTINE nl_get_read_biascoef ( id_id , read_biascoef )
1875 logical , INTENT(OUT) :: read_biascoef
1876 INTEGER id_id
1877 CHARACTER*80 emess
1878 IF ( id_id .NE. 1 ) THEN
1879 call wrf_debug(1,&
1880 'WARNING in nl_get_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
1881 ENDIF
1882 read_biascoef = model_config_rec%read_biascoef
1883 RETURN
1884 END SUBROUTINE nl_get_read_biascoef
1885 SUBROUTINE nl_get_biascorr ( id_id , biascorr )
1886 logical , INTENT(OUT) :: biascorr
1887 INTEGER id_id
1888 CHARACTER*80 emess
1889 IF ( id_id .NE. 1 ) THEN
1890 call wrf_debug(1,&
1891 'WARNING in nl_get_biascorr: biascorr applies to all domains. First arg ignored.')
1892 ENDIF
1893 biascorr = model_config_rec%biascorr
1894 RETURN
1895 END SUBROUTINE nl_get_biascorr
1896 SUBROUTINE nl_get_biasprep ( id_id , biasprep )
1897 logical , INTENT(OUT) :: biasprep
1898 INTEGER id_id
1899 CHARACTER*80 emess
1900 IF ( id_id .NE. 1 ) THEN
1901 call wrf_debug(1,&
1902 'WARNING in nl_get_biasprep: biasprep applies to all domains. First arg ignored.')
1903 ENDIF
1904 biasprep = model_config_rec%biasprep
1905 RETURN
1906 END SUBROUTINE nl_get_biasprep
1907 SUBROUTINE nl_get_rttov_scatt ( id_id , rttov_scatt )
1908 logical , INTENT(OUT) :: rttov_scatt
1909 INTEGER id_id
1910 CHARACTER*80 emess
1911 IF ( id_id .NE. 1 ) THEN
1912 call wrf_debug(1,&
1913 'WARNING in nl_get_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
1914 ENDIF
1915 rttov_scatt = model_config_rec%rttov_scatt
1916 RETURN
1917 END SUBROUTINE nl_get_rttov_scatt
1918 SUBROUTINE nl_get_monitoring ( id_id , monitoring )
1919 logical , INTENT(OUT) :: monitoring
1920 INTEGER id_id
1921 CHARACTER*80 emess
1922 IF ( id_id .NE. 1 ) THEN
1923 call wrf_debug(1,&
1924 'WARNING in nl_get_monitoring: monitoring applies to all domains. First arg ignored.')
1925 ENDIF
1926 monitoring = model_config_rec%monitoring
1927 RETURN
1928 END SUBROUTINE nl_get_monitoring
1929 SUBROUTINE nl_get_write_profile ( id_id , write_profile )
1930 logical , INTENT(OUT) :: write_profile
1931 INTEGER id_id
1932 CHARACTER*80 emess
1933 IF ( id_id .NE. 1 ) THEN
1934 call wrf_debug(1,&
1935 'WARNING in nl_get_write_profile: write_profile applies to all domains. First arg ignored.')
1936 ENDIF
1937 write_profile = model_config_rec%write_profile
1938 RETURN
1939 END SUBROUTINE nl_get_write_profile
1940 SUBROUTINE nl_get_qc_rad ( id_id , qc_rad )
1941 logical , INTENT(OUT) :: qc_rad
1942 INTEGER id_id
1943 CHARACTER*80 emess
1944 IF ( id_id .NE. 1 ) THEN
1945 call wrf_debug(1,&
1946 'WARNING in nl_get_qc_rad: qc_rad applies to all domains. First arg ignored.')
1947 ENDIF
1948 qc_rad = model_config_rec%qc_rad
1949 RETURN
1950 END SUBROUTINE nl_get_qc_rad
1951 SUBROUTINE nl_get_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
1952 logical , INTENT(OUT) :: write_iv_rad_ascii
1953 INTEGER id_id
1954 CHARACTER*80 emess
1955 IF ( id_id .NE. 1 ) THEN
1956 call wrf_debug(1,&
1957 'WARNING in nl_get_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
1958 ENDIF
1959 write_iv_rad_ascii = model_config_rec%write_iv_rad_ascii
1960 RETURN
1961 END SUBROUTINE nl_get_write_iv_rad_ascii
1962 SUBROUTINE nl_get_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
1963 logical , INTENT(OUT) :: write_oa_rad_ascii
1964 INTEGER id_id
1965 CHARACTER*80 emess
1966 IF ( id_id .NE. 1 ) THEN
1967 call wrf_debug(1,&
1968 'WARNING in nl_get_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
1969 ENDIF
1970 write_oa_rad_ascii = model_config_rec%write_oa_rad_ascii
1971 RETURN
1972 END SUBROUTINE nl_get_write_oa_rad_ascii
1973 SUBROUTINE nl_get_write_filtered_rad ( id_id , write_filtered_rad )
1974 logical , INTENT(OUT) :: write_filtered_rad
1975 INTEGER id_id
1976 CHARACTER*80 emess
1977 IF ( id_id .NE. 1 ) THEN
1978 call wrf_debug(1,&
1979 'WARNING in nl_get_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
1980 ENDIF
1981 write_filtered_rad = model_config_rec%write_filtered_rad
1982 RETURN
1983 END SUBROUTINE nl_get_write_filtered_rad
1984 SUBROUTINE nl_get_use_error_factor_rad ( id_id , use_error_factor_rad )
1985 logical , INTENT(OUT) :: use_error_factor_rad
1986 INTEGER id_id
1987 CHARACTER*80 emess
1988 IF ( id_id .NE. 1 ) THEN
1989 call wrf_debug(1,&
1990 'WARNING in nl_get_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
1991 ENDIF
1992 use_error_factor_rad = model_config_rec%use_error_factor_rad
1993 RETURN
1994 END SUBROUTINE nl_get_use_error_factor_rad
1995 SUBROUTINE nl_get_use_landem ( id_id , use_landem )
1996 logical , INTENT(OUT) :: use_landem
1997 INTEGER id_id
1998 CHARACTER*80 emess
1999 IF ( id_id .NE. 1 ) THEN
2000 call wrf_debug(1,&
2001 'WARNING in nl_get_use_landem: use_landem applies to all domains. First arg ignored.')
2002 ENDIF
2003 use_landem = model_config_rec%use_landem
2004 RETURN
2005 END SUBROUTINE nl_get_use_landem
2006 SUBROUTINE nl_get_mw_emis_sea ( id_id , mw_emis_sea )
2007 integer , INTENT(OUT) :: mw_emis_sea
2008 INTEGER id_id
2009 CHARACTER*80 emess
2010 IF ( id_id .NE. 1 ) THEN
2011 call wrf_debug(1,&
2012 'WARNING in nl_get_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
2013 ENDIF
2014 mw_emis_sea = model_config_rec%mw_emis_sea
2015 RETURN
2016 END SUBROUTINE nl_get_mw_emis_sea
2017 SUBROUTINE nl_get_tovs_min_transfer ( id_id , tovs_min_transfer )
2018 integer , INTENT(OUT) :: tovs_min_transfer
2019 INTEGER id_id
2020 CHARACTER*80 emess
2021 IF ( id_id .NE. 1 ) THEN
2022 call wrf_debug(1,&
2023 'WARNING in nl_get_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
2024 ENDIF
2025 tovs_min_transfer = model_config_rec%tovs_min_transfer
2026 RETURN
2027 END SUBROUTINE nl_get_tovs_min_transfer
2028 SUBROUTINE nl_get_rtm_option ( id_id , rtm_option )
2029 integer , INTENT(OUT) :: rtm_option
2030 INTEGER id_id
2031 CHARACTER*80 emess
2032 IF ( id_id .NE. 1 ) THEN
2033 call wrf_debug(1,&
2034 'WARNING in nl_get_rtm_option: rtm_option applies to all domains. First arg ignored.')
2035 ENDIF
2036 rtm_option = model_config_rec%rtm_option
2037 RETURN
2038 END SUBROUTINE nl_get_rtm_option
2039 SUBROUTINE nl_get_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
2040 logical , INTENT(OUT) :: use_crtm_kmatrix
2041 INTEGER id_id
2042 CHARACTER*80 emess
2043 IF ( id_id .NE. 1 ) THEN
2044 call wrf_debug(1,&
2045 'WARNING in nl_get_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
2046 ENDIF
2047 use_crtm_kmatrix = model_config_rec%use_crtm_kmatrix
2048 RETURN
2049 END SUBROUTINE nl_get_use_crtm_kmatrix
2050 SUBROUTINE nl_get_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
2051 logical , INTENT(OUT) :: use_crtm_kmatrix_fast
2052 INTEGER id_id
2053 CHARACTER*80 emess
2054 IF ( id_id .NE. 1 ) THEN
2055 call wrf_debug(1,&
2056 'WARNING in nl_get_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
2057 ENDIF
2058 use_crtm_kmatrix_fast = model_config_rec%use_crtm_kmatrix_fast
2059 RETURN
2060 END SUBROUTINE nl_get_use_crtm_kmatrix_fast
2061 SUBROUTINE nl_get_crtm_cloud ( id_id , crtm_cloud )
2062 logical , INTENT(OUT) :: crtm_cloud
2063 INTEGER id_id
2064 CHARACTER*80 emess
2065 IF ( id_id .NE. 1 ) THEN
2066 call wrf_debug(1,&
2067 'WARNING in nl_get_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
2068 ENDIF
2069 crtm_cloud = model_config_rec%crtm_cloud
2070 RETURN
2071 END SUBROUTINE nl_get_crtm_cloud
2072 SUBROUTINE nl_get_spccoeff_file ( id_id , spccoeff_file )
2073 character*256 , INTENT(OUT) :: spccoeff_file
2074 INTEGER id_id
2075 CHARACTER*80 emess
2076 IF ( id_id .NE. 1 ) THEN
2077 call wrf_debug(1,&
2078 'WARNING in nl_get_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
2079 ENDIF
2080 spccoeff_file = trim(model_config_rec%spccoeff_file)
2081 RETURN
2082 END SUBROUTINE nl_get_spccoeff_file
2083 SUBROUTINE nl_get_taucoeff_file ( id_id , taucoeff_file )
2084 character*256 , INTENT(OUT) :: taucoeff_file
2085 INTEGER id_id
2086 CHARACTER*80 emess
2087 IF ( id_id .NE. 1 ) THEN
2088 call wrf_debug(1,&
2089 'WARNING in nl_get_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
2090 ENDIF
2091 taucoeff_file = trim(model_config_rec%taucoeff_file)
2092 RETURN
2093 END SUBROUTINE nl_get_taucoeff_file
2094 SUBROUTINE nl_get_aerosolcoeff_file ( id_id , aerosolcoeff_file )
2095 character*256 , INTENT(OUT) :: aerosolcoeff_file
2096 INTEGER id_id
2097 CHARACTER*80 emess
2098 IF ( id_id .NE. 1 ) THEN
2099 call wrf_debug(1,&
2100 'WARNING in nl_get_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
2101 ENDIF
2102 aerosolcoeff_file = trim(model_config_rec%aerosolcoeff_file)
2103 RETURN
2104 END SUBROUTINE nl_get_aerosolcoeff_file
2105 SUBROUTINE nl_get_cloudcoeff_file ( id_id , cloudcoeff_file )
2106 character*256 , INTENT(OUT) :: cloudcoeff_file
2107 INTEGER id_id
2108 CHARACTER*80 emess
2109 IF ( id_id .NE. 1 ) THEN
2110 call wrf_debug(1,&
2111 'WARNING in nl_get_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
2112 ENDIF
2113 cloudcoeff_file = trim(model_config_rec%cloudcoeff_file)
2114 RETURN
2115 END SUBROUTINE nl_get_cloudcoeff_file
2116 SUBROUTINE nl_get_emiscoeff_file ( id_id , emiscoeff_file )
2117 character*256 , INTENT(OUT) :: emiscoeff_file
2118 INTEGER id_id
2119 CHARACTER*80 emess
2120 IF ( id_id .NE. 1 ) THEN
2121 call wrf_debug(1,&
2122 'WARNING in nl_get_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
2123 ENDIF
2124 emiscoeff_file = trim(model_config_rec%emiscoeff_file)
2125 RETURN
2126 END SUBROUTINE nl_get_emiscoeff_file
2127 SUBROUTINE nl_get_num_pseudo ( id_id , num_pseudo )
2128 integer , INTENT(OUT) :: num_pseudo
2129 INTEGER id_id
2130 CHARACTER*80 emess
2131 IF ( id_id .NE. 1 ) THEN
2132 call wrf_debug(1,&
2133 'WARNING in nl_get_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
2134 ENDIF
2135 num_pseudo = model_config_rec%num_pseudo
2136 RETURN
2137 END SUBROUTINE nl_get_num_pseudo
2138 SUBROUTINE nl_get_pseudo_x ( id_id , pseudo_x )
2139 real , INTENT(OUT) :: pseudo_x
2140 INTEGER id_id
2141 CHARACTER*80 emess
2142 IF ( id_id .NE. 1 ) THEN
2143 call wrf_debug(1,&
2144 'WARNING in nl_get_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
2145 ENDIF
2146 pseudo_x = model_config_rec%pseudo_x
2147 RETURN
2148 END SUBROUTINE nl_get_pseudo_x
2149 SUBROUTINE nl_get_pseudo_y ( id_id , pseudo_y )
2150 real , INTENT(OUT) :: pseudo_y
2151 INTEGER id_id
2152 CHARACTER*80 emess
2153 IF ( id_id .NE. 1 ) THEN
2154 call wrf_debug(1,&
2155 'WARNING in nl_get_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
2156 ENDIF
2157 pseudo_y = model_config_rec%pseudo_y
2158 RETURN
2159 END SUBROUTINE nl_get_pseudo_y
2160 SUBROUTINE nl_get_pseudo_z ( id_id , pseudo_z )
2161 real , INTENT(OUT) :: pseudo_z
2162 INTEGER id_id
2163 CHARACTER*80 emess
2164 IF ( id_id .NE. 1 ) THEN
2165 call wrf_debug(1,&
2166 'WARNING in nl_get_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
2167 ENDIF
2168 pseudo_z = model_config_rec%pseudo_z
2169 RETURN
2170 END SUBROUTINE nl_get_pseudo_z
2171 SUBROUTINE nl_get_pseudo_val ( id_id , pseudo_val )
2172 real , INTENT(OUT) :: pseudo_val
2173 INTEGER id_id
2174 CHARACTER*80 emess
2175 IF ( id_id .NE. 1 ) THEN
2176 call wrf_debug(1,&
2177 'WARNING in nl_get_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
2178 ENDIF
2179 pseudo_val = model_config_rec%pseudo_val
2180 RETURN
2181 END SUBROUTINE nl_get_pseudo_val
2182 SUBROUTINE nl_get_pseudo_err ( id_id , pseudo_err )
2183 real , INTENT(OUT) :: pseudo_err
2184 INTEGER id_id
2185 CHARACTER*80 emess
2186 IF ( id_id .NE. 1 ) THEN
2187 call wrf_debug(1,&
2188 'WARNING in nl_get_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
2189 ENDIF
2190 pseudo_err = model_config_rec%pseudo_err
2191 RETURN
2192 END SUBROUTINE nl_get_pseudo_err
2193 SUBROUTINE nl_get_alphacv_method ( id_id , alphacv_method )
2194 integer , INTENT(OUT) :: alphacv_method
2195 INTEGER id_id
2196 CHARACTER*80 emess
2197 IF ( id_id .NE. 1 ) THEN
2198 call wrf_debug(1,&
2199 'WARNING in nl_get_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
2200 ENDIF
2201 alphacv_method = model_config_rec%alphacv_method
2202 RETURN
2203 END SUBROUTINE nl_get_alphacv_method
2204 SUBROUTINE nl_get_ensdim_alpha ( id_id , ensdim_alpha )
2205 integer , INTENT(OUT) :: ensdim_alpha
2206 INTEGER id_id
2207 CHARACTER*80 emess
2208 IF ( id_id .NE. 1 ) THEN
2209 call wrf_debug(1,&
2210 'WARNING in nl_get_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
2211 ENDIF
2212 ensdim_alpha = model_config_rec%ensdim_alpha
2213 RETURN
2214 END SUBROUTINE nl_get_ensdim_alpha
2215 SUBROUTINE nl_get_alpha_truncation ( id_id , alpha_truncation )
2216 integer , INTENT(OUT) :: alpha_truncation
2217 INTEGER id_id
2218 CHARACTER*80 emess
2219 IF ( id_id .NE. 1 ) THEN
2220 call wrf_debug(1,&
2221 'WARNING in nl_get_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
2222 ENDIF
2223 alpha_truncation = model_config_rec%alpha_truncation
2224 RETURN
2225 END SUBROUTINE nl_get_alpha_truncation
2226 SUBROUTINE nl_get_alpha_corr_type ( id_id , alpha_corr_type )
2227 integer , INTENT(OUT) :: alpha_corr_type
2228 INTEGER id_id
2229 CHARACTER*80 emess
2230 IF ( id_id .NE. 1 ) THEN
2231 call wrf_debug(1,&
2232 'WARNING in nl_get_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
2233 ENDIF
2234 alpha_corr_type = model_config_rec%alpha_corr_type
2235 RETURN
2236 END SUBROUTINE nl_get_alpha_corr_type
2237 SUBROUTINE nl_get_alpha_corr_scale ( id_id , alpha_corr_scale )
2238 real , INTENT(OUT) :: alpha_corr_scale
2239 INTEGER id_id
2240 CHARACTER*80 emess
2241 IF ( id_id .NE. 1 ) THEN
2242 call wrf_debug(1,&
2243 'WARNING in nl_get_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
2244 ENDIF
2245 alpha_corr_scale = model_config_rec%alpha_corr_scale
2246 RETURN
2247 END SUBROUTINE nl_get_alpha_corr_scale
2248 SUBROUTINE nl_get_alpha_std_dev ( id_id , alpha_std_dev )
2249 real , INTENT(OUT) :: alpha_std_dev
2250 INTEGER id_id
2251 CHARACTER*80 emess
2252 IF ( id_id .NE. 1 ) THEN
2253 call wrf_debug(1,&
2254 'WARNING in nl_get_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
2255 ENDIF
2256 alpha_std_dev = model_config_rec%alpha_std_dev
2257 RETURN
2258 END SUBROUTINE nl_get_alpha_std_dev
2259 SUBROUTINE nl_get_analysis_type ( id_id , analysis_type )
2260 character*256 , INTENT(OUT) :: analysis_type
2261 INTEGER id_id
2262 CHARACTER*80 emess
2263 IF ( id_id .NE. 1 ) THEN
2264 call wrf_debug(1,&
2265 'WARNING in nl_get_analysis_type: analysis_type applies to all domains. First arg ignored.')
2266 ENDIF
2267 analysis_type = trim(model_config_rec%analysis_type)
2268 RETURN
2269 END SUBROUTINE nl_get_analysis_type
2270 SUBROUTINE nl_get_analysis_date ( id_id , analysis_date )
2271 character*256 , INTENT(OUT) :: analysis_date
2272 INTEGER id_id
2273 CHARACTER*80 emess
2274 IF ( id_id .NE. 1 ) THEN
2275 call wrf_debug(1,&
2276 'WARNING in nl_get_analysis_date: analysis_date applies to all domains. First arg ignored.')
2277 ENDIF
2278 analysis_date = trim(model_config_rec%analysis_date)
2279 RETURN
2280 END SUBROUTINE nl_get_analysis_date
2281 SUBROUTINE nl_get_pseudo_var ( id_id , pseudo_var )
2282 character*256 , INTENT(OUT) :: pseudo_var
2283 INTEGER id_id
2284 CHARACTER*80 emess
2285 IF ( id_id .NE. 1 ) THEN
2286 call wrf_debug(1,&
2287 'WARNING in nl_get_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
2288 ENDIF
2289 pseudo_var = trim(model_config_rec%pseudo_var)
2290 RETURN
2291 END SUBROUTINE nl_get_pseudo_var
2292 SUBROUTINE nl_get_documentation_url ( id_id , documentation_url )
2293 character*256 , INTENT(OUT) :: documentation_url
2294 INTEGER id_id
2295 CHARACTER*80 emess
2296 IF ( id_id .NE. 1 ) THEN
2297 call wrf_debug(1,&
2298 'WARNING in nl_get_documentation_url: documentation_url applies to all domains. First arg ignored.')
2299 ENDIF
2300 documentation_url = trim(model_config_rec%documentation_url)
2301 RETURN
2302 END SUBROUTINE nl_get_documentation_url
2303 SUBROUTINE nl_get_time_window_min ( id_id , time_window_min )
2304 character*256 , INTENT(OUT) :: time_window_min
2305 INTEGER id_id
2306 CHARACTER*80 emess
2307 IF ( id_id .NE. 1 ) THEN
2308 call wrf_debug(1,&
2309 'WARNING in nl_get_time_window_min: time_window_min applies to all domains. First arg ignored.')
2310 ENDIF
2311 time_window_min = trim(model_config_rec%time_window_min)
2312 RETURN
2313 END SUBROUTINE nl_get_time_window_min
2314 SUBROUTINE nl_get_time_window_max ( id_id , time_window_max )
2315 character*256 , INTENT(OUT) :: time_window_max
2316 INTEGER id_id
2317 CHARACTER*80 emess
2318 IF ( id_id .NE. 1 ) THEN
2319 call wrf_debug(1,&
2320 'WARNING in nl_get_time_window_max: time_window_max applies to all domains. First arg ignored.')
2321 ENDIF
2322 time_window_max = trim(model_config_rec%time_window_max)
2323 RETURN
2324 END SUBROUTINE nl_get_time_window_max
2325 SUBROUTINE nl_get_run_days ( id_id , run_days )
2326 integer , INTENT(OUT) :: run_days
2327 INTEGER id_id
2328 CHARACTER*80 emess
2329 IF ( id_id .NE. 1 ) THEN
2330 call wrf_debug(1,&
2331 'WARNING in nl_get_run_days: run_days applies to all domains. First arg ignored.')
2332 ENDIF
2333 run_days = model_config_rec%run_days
2334 RETURN
2335 END SUBROUTINE nl_get_run_days
2336 SUBROUTINE nl_get_run_hours ( id_id , run_hours )
2337 integer , INTENT(OUT) :: run_hours
2338 INTEGER id_id
2339 CHARACTER*80 emess
2340 IF ( id_id .NE. 1 ) THEN
2341 call wrf_debug(1,&
2342 'WARNING in nl_get_run_hours: run_hours applies to all domains. First arg ignored.')
2343 ENDIF
2344 run_hours = model_config_rec%run_hours
2345 RETURN
2346 END SUBROUTINE nl_get_run_hours
2347 SUBROUTINE nl_get_run_minutes ( id_id , run_minutes )
2348 integer , INTENT(OUT) :: run_minutes
2349 INTEGER id_id
2350 CHARACTER*80 emess
2351 IF ( id_id .NE. 1 ) THEN
2352 call wrf_debug(1,&
2353 'WARNING in nl_get_run_minutes: run_minutes applies to all domains. First arg ignored.')
2354 ENDIF
2355 run_minutes = model_config_rec%run_minutes
2356 RETURN
2357 END SUBROUTINE nl_get_run_minutes
2358 SUBROUTINE nl_get_run_seconds ( id_id , run_seconds )
2359 integer , INTENT(OUT) :: run_seconds
2360 INTEGER id_id
2361 CHARACTER*80 emess
2362 IF ( id_id .NE. 1 ) THEN
2363 call wrf_debug(1,&
2364 'WARNING in nl_get_run_seconds: run_seconds applies to all domains. First arg ignored.')
2365 ENDIF
2366 run_seconds = model_config_rec%run_seconds
2367 RETURN
2368 END SUBROUTINE nl_get_run_seconds
2369 SUBROUTINE nl_get_start_year ( id_id , start_year )
2370 integer , INTENT(OUT) :: start_year
2371 INTEGER id_id
2372 CHARACTER*80 emess
2373 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2374 WRITE(emess,*)'nl_get_start_year: Out of range domain number: ',id_id
2375 CALL wrf_error_fatal(emess)
2376 ENDIF
2377 start_year = model_config_rec%start_year(id_id)
2378 RETURN
2379 END SUBROUTINE nl_get_start_year
2380 SUBROUTINE nl_get_start_month ( id_id , start_month )
2381 integer , INTENT(OUT) :: start_month
2382 INTEGER id_id
2383 CHARACTER*80 emess
2384 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2385 WRITE(emess,*)'nl_get_start_month: Out of range domain number: ',id_id
2386 CALL wrf_error_fatal(emess)
2387 ENDIF
2388 start_month = model_config_rec%start_month(id_id)
2389 RETURN
2390 END SUBROUTINE nl_get_start_month
2391 SUBROUTINE nl_get_start_day ( id_id , start_day )
2392 integer , INTENT(OUT) :: start_day
2393 INTEGER id_id
2394 CHARACTER*80 emess
2395 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2396 WRITE(emess,*)'nl_get_start_day: Out of range domain number: ',id_id
2397 CALL wrf_error_fatal(emess)
2398 ENDIF
2399 start_day = model_config_rec%start_day(id_id)
2400 RETURN
2401 END SUBROUTINE nl_get_start_day
2402 SUBROUTINE nl_get_start_hour ( id_id , start_hour )
2403 integer , INTENT(OUT) :: start_hour
2404 INTEGER id_id
2405 CHARACTER*80 emess
2406 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2407 WRITE(emess,*)'nl_get_start_hour: Out of range domain number: ',id_id
2408 CALL wrf_error_fatal(emess)
2409 ENDIF
2410 start_hour = model_config_rec%start_hour(id_id)
2411 RETURN
2412 END SUBROUTINE nl_get_start_hour
2413 SUBROUTINE nl_get_start_minute ( id_id , start_minute )
2414 integer , INTENT(OUT) :: start_minute
2415 INTEGER id_id
2416 CHARACTER*80 emess
2417 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2418 WRITE(emess,*)'nl_get_start_minute: Out of range domain number: ',id_id
2419 CALL wrf_error_fatal(emess)
2420 ENDIF
2421 start_minute = model_config_rec%start_minute(id_id)
2422 RETURN
2423 END SUBROUTINE nl_get_start_minute
2424 SUBROUTINE nl_get_start_second ( id_id , start_second )
2425 integer , INTENT(OUT) :: start_second
2426 INTEGER id_id
2427 CHARACTER*80 emess
2428 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2429 WRITE(emess,*)'nl_get_start_second: Out of range domain number: ',id_id
2430 CALL wrf_error_fatal(emess)
2431 ENDIF
2432 start_second = model_config_rec%start_second(id_id)
2433 RETURN
2434 END SUBROUTINE nl_get_start_second
2435 SUBROUTINE nl_get_end_year ( id_id , end_year )
2436 integer , INTENT(OUT) :: end_year
2437 INTEGER id_id
2438 CHARACTER*80 emess
2439 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2440 WRITE(emess,*)'nl_get_end_year: Out of range domain number: ',id_id
2441 CALL wrf_error_fatal(emess)
2442 ENDIF
2443 end_year = model_config_rec%end_year(id_id)
2444 RETURN
2445 END SUBROUTINE nl_get_end_year
2446 SUBROUTINE nl_get_end_month ( id_id , end_month )
2447 integer , INTENT(OUT) :: end_month
2448 INTEGER id_id
2449 CHARACTER*80 emess
2450 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2451 WRITE(emess,*)'nl_get_end_month: Out of range domain number: ',id_id
2452 CALL wrf_error_fatal(emess)
2453 ENDIF
2454 end_month = model_config_rec%end_month(id_id)
2455 RETURN
2456 END SUBROUTINE nl_get_end_month
2457 SUBROUTINE nl_get_end_day ( id_id , end_day )
2458 integer , INTENT(OUT) :: end_day
2459 INTEGER id_id
2460 CHARACTER*80 emess
2461 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2462 WRITE(emess,*)'nl_get_end_day: Out of range domain number: ',id_id
2463 CALL wrf_error_fatal(emess)
2464 ENDIF
2465 end_day = model_config_rec%end_day(id_id)
2466 RETURN
2467 END SUBROUTINE nl_get_end_day
2468 SUBROUTINE nl_get_end_hour ( id_id , end_hour )
2469 integer , INTENT(OUT) :: end_hour
2470 INTEGER id_id
2471 CHARACTER*80 emess
2472 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2473 WRITE(emess,*)'nl_get_end_hour: Out of range domain number: ',id_id
2474 CALL wrf_error_fatal(emess)
2475 ENDIF
2476 end_hour = model_config_rec%end_hour(id_id)
2477 RETURN
2478 END SUBROUTINE nl_get_end_hour
2479 SUBROUTINE nl_get_end_minute ( id_id , end_minute )
2480 integer , INTENT(OUT) :: end_minute
2481 INTEGER id_id
2482 CHARACTER*80 emess
2483 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2484 WRITE(emess,*)'nl_get_end_minute: Out of range domain number: ',id_id
2485 CALL wrf_error_fatal(emess)
2486 ENDIF
2487 end_minute = model_config_rec%end_minute(id_id)
2488 RETURN
2489 END SUBROUTINE nl_get_end_minute
2490 SUBROUTINE nl_get_end_second ( id_id , end_second )
2491 integer , INTENT(OUT) :: end_second
2492 INTEGER id_id
2493 CHARACTER*80 emess
2494 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2495 WRITE(emess,*)'nl_get_end_second: Out of range domain number: ',id_id
2496 CALL wrf_error_fatal(emess)
2497 ENDIF
2498 end_second = model_config_rec%end_second(id_id)
2499 RETURN
2500 END SUBROUTINE nl_get_end_second
2501 SUBROUTINE nl_get_interval_seconds ( id_id , interval_seconds )
2502 integer , INTENT(OUT) :: interval_seconds
2503 INTEGER id_id
2504 CHARACTER*80 emess
2505 IF ( id_id .NE. 1 ) THEN
2506 call wrf_debug(1,&
2507 'WARNING in nl_get_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
2508 ENDIF
2509 interval_seconds = model_config_rec%interval_seconds
2510 RETURN
2511 END SUBROUTINE nl_get_interval_seconds
2512 SUBROUTINE nl_get_input_from_file ( id_id , input_from_file )
2513 logical , INTENT(OUT) :: input_from_file
2514 INTEGER id_id
2515 CHARACTER*80 emess
2516 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2517 WRITE(emess,*)'nl_get_input_from_file: Out of range domain number: ',id_id
2518 CALL wrf_error_fatal(emess)
2519 ENDIF
2520 input_from_file = model_config_rec%input_from_file(id_id)
2521 RETURN
2522 END SUBROUTINE nl_get_input_from_file
2523 SUBROUTINE nl_get_fine_input_stream ( id_id , fine_input_stream )
2524 integer , INTENT(OUT) :: fine_input_stream
2525 INTEGER id_id
2526 CHARACTER*80 emess
2527 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2528 WRITE(emess,*)'nl_get_fine_input_stream: Out of range domain number: ',id_id
2529 CALL wrf_error_fatal(emess)
2530 ENDIF
2531 fine_input_stream = model_config_rec%fine_input_stream(id_id)
2532 RETURN
2533 END SUBROUTINE nl_get_fine_input_stream
2534 SUBROUTINE nl_get_input_from_hires ( id_id , input_from_hires )
2535 logical , INTENT(OUT) :: input_from_hires
2536 INTEGER id_id
2537 CHARACTER*80 emess
2538 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2539 WRITE(emess,*)'nl_get_input_from_hires: Out of range domain number: ',id_id
2540 CALL wrf_error_fatal(emess)
2541 ENDIF
2542 input_from_hires = model_config_rec%input_from_hires(id_id)
2543 RETURN
2544 END SUBROUTINE nl_get_input_from_hires
2545 SUBROUTINE nl_get_rsmas_data_path ( id_id , rsmas_data_path )
2546 character*256 , INTENT(OUT) :: rsmas_data_path
2547 INTEGER id_id
2548 CHARACTER*80 emess
2549 IF ( id_id .NE. 1 ) THEN
2550 call wrf_debug(1,&
2551 'WARNING in nl_get_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
2552 ENDIF
2553 rsmas_data_path = trim(model_config_rec%rsmas_data_path)
2554 RETURN
2555 END SUBROUTINE nl_get_rsmas_data_path
2556 SUBROUTINE nl_get_history_interval ( id_id , history_interval )
2557 integer , INTENT(OUT) :: history_interval
2558 INTEGER id_id
2559 CHARACTER*80 emess
2560 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2561 WRITE(emess,*)'nl_get_history_interval: Out of range domain number: ',id_id
2562 CALL wrf_error_fatal(emess)
2563 ENDIF
2564 history_interval = model_config_rec%history_interval(id_id)
2565 RETURN
2566 END SUBROUTINE nl_get_history_interval
2567 SUBROUTINE nl_get_frames_per_outfile ( id_id , frames_per_outfile )
2568 integer , INTENT(OUT) :: frames_per_outfile
2569 INTEGER id_id
2570 CHARACTER*80 emess
2571 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2572 WRITE(emess,*)'nl_get_frames_per_outfile: Out of range domain number: ',id_id
2573 CALL wrf_error_fatal(emess)
2574 ENDIF
2575 frames_per_outfile = model_config_rec%frames_per_outfile(id_id)
2576 RETURN
2577 END SUBROUTINE nl_get_frames_per_outfile
2578 SUBROUTINE nl_get_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
2579 integer , INTENT(OUT) :: frames_per_auxhist1
2580 INTEGER id_id
2581 CHARACTER*80 emess
2582 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2583 WRITE(emess,*)'nl_get_frames_per_auxhist1: Out of range domain number: ',id_id
2584 CALL wrf_error_fatal(emess)
2585 ENDIF
2586 frames_per_auxhist1 = model_config_rec%frames_per_auxhist1(id_id)
2587 RETURN
2588 END SUBROUTINE nl_get_frames_per_auxhist1
2589 SUBROUTINE nl_get_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
2590 integer , INTENT(OUT) :: frames_per_auxhist2
2591 INTEGER id_id
2592 CHARACTER*80 emess
2593 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2594 WRITE(emess,*)'nl_get_frames_per_auxhist2: Out of range domain number: ',id_id
2595 CALL wrf_error_fatal(emess)
2596 ENDIF
2597 frames_per_auxhist2 = model_config_rec%frames_per_auxhist2(id_id)
2598 RETURN
2599 END SUBROUTINE nl_get_frames_per_auxhist2
2600 SUBROUTINE nl_get_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
2601 integer , INTENT(OUT) :: frames_per_auxhist3
2602 INTEGER id_id
2603 CHARACTER*80 emess
2604 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2605 WRITE(emess,*)'nl_get_frames_per_auxhist3: Out of range domain number: ',id_id
2606 CALL wrf_error_fatal(emess)
2607 ENDIF
2608 frames_per_auxhist3 = model_config_rec%frames_per_auxhist3(id_id)
2609 RETURN
2610 END SUBROUTINE nl_get_frames_per_auxhist3
2611 SUBROUTINE nl_get_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
2612 integer , INTENT(OUT) :: frames_per_auxhist4
2613 INTEGER id_id
2614 CHARACTER*80 emess
2615 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2616 WRITE(emess,*)'nl_get_frames_per_auxhist4: Out of range domain number: ',id_id
2617 CALL wrf_error_fatal(emess)
2618 ENDIF
2619 frames_per_auxhist4 = model_config_rec%frames_per_auxhist4(id_id)
2620 RETURN
2621 END SUBROUTINE nl_get_frames_per_auxhist4
2622 SUBROUTINE nl_get_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
2623 integer , INTENT(OUT) :: frames_per_auxhist5
2624 INTEGER id_id
2625 CHARACTER*80 emess
2626 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2627 WRITE(emess,*)'nl_get_frames_per_auxhist5: Out of range domain number: ',id_id
2628 CALL wrf_error_fatal(emess)
2629 ENDIF
2630 frames_per_auxhist5 = model_config_rec%frames_per_auxhist5(id_id)
2631 RETURN
2632 END SUBROUTINE nl_get_frames_per_auxhist5
2633 SUBROUTINE nl_get_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
2634 integer , INTENT(OUT) :: frames_per_auxhist6
2635 INTEGER id_id
2636 CHARACTER*80 emess
2637 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2638 WRITE(emess,*)'nl_get_frames_per_auxhist6: Out of range domain number: ',id_id
2639 CALL wrf_error_fatal(emess)
2640 ENDIF
2641 frames_per_auxhist6 = model_config_rec%frames_per_auxhist6(id_id)
2642 RETURN
2643 END SUBROUTINE nl_get_frames_per_auxhist6
2644 SUBROUTINE nl_get_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
2645 integer , INTENT(OUT) :: frames_per_auxhist7
2646 INTEGER id_id
2647 CHARACTER*80 emess
2648 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2649 WRITE(emess,*)'nl_get_frames_per_auxhist7: Out of range domain number: ',id_id
2650 CALL wrf_error_fatal(emess)
2651 ENDIF
2652 frames_per_auxhist7 = model_config_rec%frames_per_auxhist7(id_id)
2653 RETURN
2654 END SUBROUTINE nl_get_frames_per_auxhist7
2655 SUBROUTINE nl_get_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
2656 integer , INTENT(OUT) :: frames_per_auxhist8
2657 INTEGER id_id
2658 CHARACTER*80 emess
2659 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2660 WRITE(emess,*)'nl_get_frames_per_auxhist8: Out of range domain number: ',id_id
2661 CALL wrf_error_fatal(emess)
2662 ENDIF
2663 frames_per_auxhist8 = model_config_rec%frames_per_auxhist8(id_id)
2664 RETURN
2665 END SUBROUTINE nl_get_frames_per_auxhist8
2666 SUBROUTINE nl_get_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
2667 integer , INTENT(OUT) :: frames_per_auxhist9
2668 INTEGER id_id
2669 CHARACTER*80 emess
2670 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2671 WRITE(emess,*)'nl_get_frames_per_auxhist9: Out of range domain number: ',id_id
2672 CALL wrf_error_fatal(emess)
2673 ENDIF
2674 frames_per_auxhist9 = model_config_rec%frames_per_auxhist9(id_id)
2675 RETURN
2676 END SUBROUTINE nl_get_frames_per_auxhist9
2677 SUBROUTINE nl_get_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
2678 integer , INTENT(OUT) :: frames_per_auxhist10
2679 INTEGER id_id
2680 CHARACTER*80 emess
2681 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2682 WRITE(emess,*)'nl_get_frames_per_auxhist10: Out of range domain number: ',id_id
2683 CALL wrf_error_fatal(emess)
2684 ENDIF
2685 frames_per_auxhist10 = model_config_rec%frames_per_auxhist10(id_id)
2686 RETURN
2687 END SUBROUTINE nl_get_frames_per_auxhist10
2688 SUBROUTINE nl_get_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
2689 integer , INTENT(OUT) :: frames_per_auxhist11
2690 INTEGER id_id
2691 CHARACTER*80 emess
2692 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2693 WRITE(emess,*)'nl_get_frames_per_auxhist11: Out of range domain number: ',id_id
2694 CALL wrf_error_fatal(emess)
2695 ENDIF
2696 frames_per_auxhist11 = model_config_rec%frames_per_auxhist11(id_id)
2697 RETURN
2698 END SUBROUTINE nl_get_frames_per_auxhist11
2699 SUBROUTINE nl_get_restart ( id_id , restart )
2700 logical , INTENT(OUT) :: restart
2701 INTEGER id_id
2702 CHARACTER*80 emess
2703 IF ( id_id .NE. 1 ) THEN
2704 call wrf_debug(1,&
2705 'WARNING in nl_get_restart: restart applies to all domains. First arg ignored.')
2706 ENDIF
2707 restart = model_config_rec%restart
2708 RETURN
2709 END SUBROUTINE nl_get_restart
2710 SUBROUTINE nl_get_restart_interval ( id_id , restart_interval )
2711 integer , INTENT(OUT) :: restart_interval
2712 INTEGER id_id
2713 CHARACTER*80 emess
2714 IF ( id_id .NE. 1 ) THEN
2715 call wrf_debug(1,&
2716 'WARNING in nl_get_restart_interval: restart_interval applies to all domains. First arg ignored.')
2717 ENDIF
2718 restart_interval = model_config_rec%restart_interval
2719 RETURN
2720 END SUBROUTINE nl_get_restart_interval
2721 SUBROUTINE nl_get_io_form_input ( id_id , io_form_input )
2722 integer , INTENT(OUT) :: io_form_input
2723 INTEGER id_id
2724 CHARACTER*80 emess
2725 IF ( id_id .NE. 1 ) THEN
2726 call wrf_debug(1,&
2727 'WARNING in nl_get_io_form_input: io_form_input applies to all domains. First arg ignored.')
2728 ENDIF
2729 io_form_input = model_config_rec%io_form_input
2730 RETURN
2731 END SUBROUTINE nl_get_io_form_input
2732 SUBROUTINE nl_get_io_form_history ( id_id , io_form_history )
2733 integer , INTENT(OUT) :: io_form_history
2734 INTEGER id_id
2735 CHARACTER*80 emess
2736 IF ( id_id .NE. 1 ) THEN
2737 call wrf_debug(1,&
2738 'WARNING in nl_get_io_form_history: io_form_history applies to all domains. First arg ignored.')
2739 ENDIF
2740 io_form_history = model_config_rec%io_form_history
2741 RETURN
2742 END SUBROUTINE nl_get_io_form_history
2743 SUBROUTINE nl_get_io_form_restart ( id_id , io_form_restart )
2744 integer , INTENT(OUT) :: io_form_restart
2745 INTEGER id_id
2746 CHARACTER*80 emess
2747 IF ( id_id .NE. 1 ) THEN
2748 call wrf_debug(1,&
2749 'WARNING in nl_get_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
2750 ENDIF
2751 io_form_restart = model_config_rec%io_form_restart
2752 RETURN
2753 END SUBROUTINE nl_get_io_form_restart
2754 SUBROUTINE nl_get_io_form_boundary ( id_id , io_form_boundary )
2755 integer , INTENT(OUT) :: io_form_boundary
2756 INTEGER id_id
2757 CHARACTER*80 emess
2758 IF ( id_id .NE. 1 ) THEN
2759 call wrf_debug(1,&
2760 'WARNING in nl_get_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
2761 ENDIF
2762 io_form_boundary = model_config_rec%io_form_boundary
2763 RETURN
2764 END SUBROUTINE nl_get_io_form_boundary
2765 SUBROUTINE nl_get_debug_level ( id_id , debug_level )
2766 integer , INTENT(OUT) :: debug_level
2767 INTEGER id_id
2768 CHARACTER*80 emess
2769 IF ( id_id .NE. 1 ) THEN
2770 call wrf_debug(1,&
2771 'WARNING in nl_get_debug_level: debug_level applies to all domains. First arg ignored.')
2772 ENDIF
2773 debug_level = model_config_rec%debug_level
2774 RETURN
2775 END SUBROUTINE nl_get_debug_level
2776 SUBROUTINE nl_get_self_test_domain ( id_id , self_test_domain )
2777 logical , INTENT(OUT) :: self_test_domain
2778 INTEGER id_id
2779 CHARACTER*80 emess
2780 IF ( id_id .NE. 1 ) THEN
2781 call wrf_debug(1,&
2782 'WARNING in nl_get_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
2783 ENDIF
2784 self_test_domain = model_config_rec%self_test_domain
2785 RETURN
2786 END SUBROUTINE nl_get_self_test_domain
2787 SUBROUTINE nl_get_history_outname ( id_id , history_outname )
2788 character*256 , INTENT(OUT) :: history_outname
2789 INTEGER id_id
2790 CHARACTER*80 emess
2791 IF ( id_id .NE. 1 ) THEN
2792 call wrf_debug(1,&
2793 'WARNING in nl_get_history_outname: history_outname applies to all domains. First arg ignored.')
2794 ENDIF
2795 history_outname = trim(model_config_rec%history_outname)
2796 RETURN
2797 END SUBROUTINE nl_get_history_outname
2798 SUBROUTINE nl_get_auxhist1_outname ( id_id , auxhist1_outname )
2799 character*256 , INTENT(OUT) :: auxhist1_outname
2800 INTEGER id_id
2801 CHARACTER*80 emess
2802 IF ( id_id .NE. 1 ) THEN
2803 call wrf_debug(1,&
2804 'WARNING in nl_get_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
2805 ENDIF
2806 auxhist1_outname = trim(model_config_rec%auxhist1_outname)
2807 RETURN
2808 END SUBROUTINE nl_get_auxhist1_outname
2809 SUBROUTINE nl_get_auxhist2_outname ( id_id , auxhist2_outname )
2810 character*256 , INTENT(OUT) :: auxhist2_outname
2811 INTEGER id_id
2812 CHARACTER*80 emess
2813 IF ( id_id .NE. 1 ) THEN
2814 call wrf_debug(1,&
2815 'WARNING in nl_get_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
2816 ENDIF
2817 auxhist2_outname = trim(model_config_rec%auxhist2_outname)
2818 RETURN
2819 END SUBROUTINE nl_get_auxhist2_outname
2820 SUBROUTINE nl_get_auxhist3_outname ( id_id , auxhist3_outname )
2821 character*256 , INTENT(OUT) :: auxhist3_outname
2822 INTEGER id_id
2823 CHARACTER*80 emess
2824 IF ( id_id .NE. 1 ) THEN
2825 call wrf_debug(1,&
2826 'WARNING in nl_get_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
2827 ENDIF
2828 auxhist3_outname = trim(model_config_rec%auxhist3_outname)
2829 RETURN
2830 END SUBROUTINE nl_get_auxhist3_outname
2831 SUBROUTINE nl_get_auxhist4_outname ( id_id , auxhist4_outname )
2832 character*256 , INTENT(OUT) :: auxhist4_outname
2833 INTEGER id_id
2834 CHARACTER*80 emess
2835 IF ( id_id .NE. 1 ) THEN
2836 call wrf_debug(1,&
2837 'WARNING in nl_get_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
2838 ENDIF
2839 auxhist4_outname = trim(model_config_rec%auxhist4_outname)
2840 RETURN
2841 END SUBROUTINE nl_get_auxhist4_outname
2842 SUBROUTINE nl_get_auxhist5_outname ( id_id , auxhist5_outname )
2843 character*256 , INTENT(OUT) :: auxhist5_outname
2844 INTEGER id_id
2845 CHARACTER*80 emess
2846 IF ( id_id .NE. 1 ) THEN
2847 call wrf_debug(1,&
2848 'WARNING in nl_get_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
2849 ENDIF
2850 auxhist5_outname = trim(model_config_rec%auxhist5_outname)
2851 RETURN
2852 END SUBROUTINE nl_get_auxhist5_outname
2853 SUBROUTINE nl_get_auxhist6_outname ( id_id , auxhist6_outname )
2854 character*256 , INTENT(OUT) :: auxhist6_outname
2855 INTEGER id_id
2856 CHARACTER*80 emess
2857 IF ( id_id .NE. 1 ) THEN
2858 call wrf_debug(1,&
2859 'WARNING in nl_get_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
2860 ENDIF
2861 auxhist6_outname = trim(model_config_rec%auxhist6_outname)
2862 RETURN
2863 END SUBROUTINE nl_get_auxhist6_outname
2864 SUBROUTINE nl_get_auxhist7_outname ( id_id , auxhist7_outname )
2865 character*256 , INTENT(OUT) :: auxhist7_outname
2866 INTEGER id_id
2867 CHARACTER*80 emess
2868 IF ( id_id .NE. 1 ) THEN
2869 call wrf_debug(1,&
2870 'WARNING in nl_get_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
2871 ENDIF
2872 auxhist7_outname = trim(model_config_rec%auxhist7_outname)
2873 RETURN
2874 END SUBROUTINE nl_get_auxhist7_outname
2875 SUBROUTINE nl_get_auxhist8_outname ( id_id , auxhist8_outname )
2876 character*256 , INTENT(OUT) :: auxhist8_outname
2877 INTEGER id_id
2878 CHARACTER*80 emess
2879 IF ( id_id .NE. 1 ) THEN
2880 call wrf_debug(1,&
2881 'WARNING in nl_get_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
2882 ENDIF
2883 auxhist8_outname = trim(model_config_rec%auxhist8_outname)
2884 RETURN
2885 END SUBROUTINE nl_get_auxhist8_outname
2886 SUBROUTINE nl_get_auxhist9_outname ( id_id , auxhist9_outname )
2887 character*256 , INTENT(OUT) :: auxhist9_outname
2888 INTEGER id_id
2889 CHARACTER*80 emess
2890 IF ( id_id .NE. 1 ) THEN
2891 call wrf_debug(1,&
2892 'WARNING in nl_get_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
2893 ENDIF
2894 auxhist9_outname = trim(model_config_rec%auxhist9_outname)
2895 RETURN
2896 END SUBROUTINE nl_get_auxhist9_outname
2897 SUBROUTINE nl_get_auxhist10_outname ( id_id , auxhist10_outname )
2898 character*256 , INTENT(OUT) :: auxhist10_outname
2899 INTEGER id_id
2900 CHARACTER*80 emess
2901 IF ( id_id .NE. 1 ) THEN
2902 call wrf_debug(1,&
2903 'WARNING in nl_get_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
2904 ENDIF
2905 auxhist10_outname = trim(model_config_rec%auxhist10_outname)
2906 RETURN
2907 END SUBROUTINE nl_get_auxhist10_outname
2908 SUBROUTINE nl_get_auxhist11_outname ( id_id , auxhist11_outname )
2909 character*256 , INTENT(OUT) :: auxhist11_outname
2910 INTEGER id_id
2911 CHARACTER*80 emess
2912 IF ( id_id .NE. 1 ) THEN
2913 call wrf_debug(1,&
2914 'WARNING in nl_get_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
2915 ENDIF
2916 auxhist11_outname = trim(model_config_rec%auxhist11_outname)
2917 RETURN
2918 END SUBROUTINE nl_get_auxhist11_outname
2919 SUBROUTINE nl_get_history_inname ( id_id , history_inname )
2920 character*256 , INTENT(OUT) :: history_inname
2921 INTEGER id_id
2922 CHARACTER*80 emess
2923 IF ( id_id .NE. 1 ) THEN
2924 call wrf_debug(1,&
2925 'WARNING in nl_get_history_inname: history_inname applies to all domains. First arg ignored.')
2926 ENDIF
2927 history_inname = trim(model_config_rec%history_inname)
2928 RETURN
2929 END SUBROUTINE nl_get_history_inname
2930 SUBROUTINE nl_get_auxhist1_inname ( id_id , auxhist1_inname )
2931 character*256 , INTENT(OUT) :: auxhist1_inname
2932 INTEGER id_id
2933 CHARACTER*80 emess
2934 IF ( id_id .NE. 1 ) THEN
2935 call wrf_debug(1,&
2936 'WARNING in nl_get_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
2937 ENDIF
2938 auxhist1_inname = trim(model_config_rec%auxhist1_inname)
2939 RETURN
2940 END SUBROUTINE nl_get_auxhist1_inname
2941 SUBROUTINE nl_get_auxhist2_inname ( id_id , auxhist2_inname )
2942 character*256 , INTENT(OUT) :: auxhist2_inname
2943 INTEGER id_id
2944 CHARACTER*80 emess
2945 IF ( id_id .NE. 1 ) THEN
2946 call wrf_debug(1,&
2947 'WARNING in nl_get_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
2948 ENDIF
2949 auxhist2_inname = trim(model_config_rec%auxhist2_inname)
2950 RETURN
2951 END SUBROUTINE nl_get_auxhist2_inname
2952 SUBROUTINE nl_get_auxhist3_inname ( id_id , auxhist3_inname )
2953 character*256 , INTENT(OUT) :: auxhist3_inname
2954 INTEGER id_id
2955 CHARACTER*80 emess
2956 IF ( id_id .NE. 1 ) THEN
2957 call wrf_debug(1,&
2958 'WARNING in nl_get_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
2959 ENDIF
2960 auxhist3_inname = trim(model_config_rec%auxhist3_inname)
2961 RETURN
2962 END SUBROUTINE nl_get_auxhist3_inname
2963 SUBROUTINE nl_get_auxhist4_inname ( id_id , auxhist4_inname )
2964 character*256 , INTENT(OUT) :: auxhist4_inname
2965 INTEGER id_id
2966 CHARACTER*80 emess
2967 IF ( id_id .NE. 1 ) THEN
2968 call wrf_debug(1,&
2969 'WARNING in nl_get_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
2970 ENDIF
2971 auxhist4_inname = trim(model_config_rec%auxhist4_inname)
2972 RETURN
2973 END SUBROUTINE nl_get_auxhist4_inname
2974 SUBROUTINE nl_get_auxhist5_inname ( id_id , auxhist5_inname )
2975 character*256 , INTENT(OUT) :: auxhist5_inname
2976 INTEGER id_id
2977 CHARACTER*80 emess
2978 IF ( id_id .NE. 1 ) THEN
2979 call wrf_debug(1,&
2980 'WARNING in nl_get_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
2981 ENDIF
2982 auxhist5_inname = trim(model_config_rec%auxhist5_inname)
2983 RETURN
2984 END SUBROUTINE nl_get_auxhist5_inname
2985 SUBROUTINE nl_get_auxhist6_inname ( id_id , auxhist6_inname )
2986 character*256 , INTENT(OUT) :: auxhist6_inname
2987 INTEGER id_id
2988 CHARACTER*80 emess
2989 IF ( id_id .NE. 1 ) THEN
2990 call wrf_debug(1,&
2991 'WARNING in nl_get_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
2992 ENDIF
2993 auxhist6_inname = trim(model_config_rec%auxhist6_inname)
2994 RETURN
2995 END SUBROUTINE nl_get_auxhist6_inname
2996 SUBROUTINE nl_get_auxhist7_inname ( id_id , auxhist7_inname )
2997 character*256 , INTENT(OUT) :: auxhist7_inname
2998 INTEGER id_id
2999 CHARACTER*80 emess
3000 IF ( id_id .NE. 1 ) THEN
3001 call wrf_debug(1,&
3002 'WARNING in nl_get_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
3003 ENDIF
3004 auxhist7_inname = trim(model_config_rec%auxhist7_inname)
3005 RETURN
3006 END SUBROUTINE nl_get_auxhist7_inname
3007 SUBROUTINE nl_get_auxhist8_inname ( id_id , auxhist8_inname )
3008 character*256 , INTENT(OUT) :: auxhist8_inname
3009 INTEGER id_id
3010 CHARACTER*80 emess
3011 IF ( id_id .NE. 1 ) THEN
3012 call wrf_debug(1,&
3013 'WARNING in nl_get_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
3014 ENDIF
3015 auxhist8_inname = trim(model_config_rec%auxhist8_inname)
3016 RETURN
3017 END SUBROUTINE nl_get_auxhist8_inname
3018 SUBROUTINE nl_get_auxhist9_inname ( id_id , auxhist9_inname )
3019 character*256 , INTENT(OUT) :: auxhist9_inname
3020 INTEGER id_id
3021 CHARACTER*80 emess
3022 IF ( id_id .NE. 1 ) THEN
3023 call wrf_debug(1,&
3024 'WARNING in nl_get_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
3025 ENDIF
3026 auxhist9_inname = trim(model_config_rec%auxhist9_inname)
3027 RETURN
3028 END SUBROUTINE nl_get_auxhist9_inname
3029 SUBROUTINE nl_get_auxhist10_inname ( id_id , auxhist10_inname )
3030 character*256 , INTENT(OUT) :: auxhist10_inname
3031 INTEGER id_id
3032 CHARACTER*80 emess
3033 IF ( id_id .NE. 1 ) THEN
3034 call wrf_debug(1,&
3035 'WARNING in nl_get_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
3036 ENDIF
3037 auxhist10_inname = trim(model_config_rec%auxhist10_inname)
3038 RETURN
3039 END SUBROUTINE nl_get_auxhist10_inname
3040 SUBROUTINE nl_get_auxhist11_inname ( id_id , auxhist11_inname )
3041 character*256 , INTENT(OUT) :: auxhist11_inname
3042 INTEGER id_id
3043 CHARACTER*80 emess
3044 IF ( id_id .NE. 1 ) THEN
3045 call wrf_debug(1,&
3046 'WARNING in nl_get_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
3047 ENDIF
3048 auxhist11_inname = trim(model_config_rec%auxhist11_inname)
3049 RETURN
3050 END SUBROUTINE nl_get_auxhist11_inname
3051 SUBROUTINE nl_get_auxinput1_outname ( id_id , auxinput1_outname )
3052 character*256 , INTENT(OUT) :: auxinput1_outname
3053 INTEGER id_id
3054 CHARACTER*80 emess
3055 IF ( id_id .NE. 1 ) THEN
3056 call wrf_debug(1,&
3057 'WARNING in nl_get_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
3058 ENDIF
3059 auxinput1_outname = trim(model_config_rec%auxinput1_outname)
3060 RETURN
3061 END SUBROUTINE nl_get_auxinput1_outname
3062 SUBROUTINE nl_get_auxinput2_outname ( id_id , auxinput2_outname )
3063 character*256 , INTENT(OUT) :: auxinput2_outname
3064 INTEGER id_id
3065 CHARACTER*80 emess
3066 IF ( id_id .NE. 1 ) THEN
3067 call wrf_debug(1,&
3068 'WARNING in nl_get_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
3069 ENDIF
3070 auxinput2_outname = trim(model_config_rec%auxinput2_outname)
3071 RETURN
3072 END SUBROUTINE nl_get_auxinput2_outname
3073 SUBROUTINE nl_get_auxinput3_outname ( id_id , auxinput3_outname )
3074 character*256 , INTENT(OUT) :: auxinput3_outname
3075 INTEGER id_id
3076 CHARACTER*80 emess
3077 IF ( id_id .NE. 1 ) THEN
3078 call wrf_debug(1,&
3079 'WARNING in nl_get_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
3080 ENDIF
3081 auxinput3_outname = trim(model_config_rec%auxinput3_outname)
3082 RETURN
3083 END SUBROUTINE nl_get_auxinput3_outname
3084 SUBROUTINE nl_get_auxinput4_outname ( id_id , auxinput4_outname )
3085 character*256 , INTENT(OUT) :: auxinput4_outname
3086 INTEGER id_id
3087 CHARACTER*80 emess
3088 IF ( id_id .NE. 1 ) THEN
3089 call wrf_debug(1,&
3090 'WARNING in nl_get_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
3091 ENDIF
3092 auxinput4_outname = trim(model_config_rec%auxinput4_outname)
3093 RETURN
3094 END SUBROUTINE nl_get_auxinput4_outname
3095 SUBROUTINE nl_get_auxinput5_outname ( id_id , auxinput5_outname )
3096 character*256 , INTENT(OUT) :: auxinput5_outname
3097 INTEGER id_id
3098 CHARACTER*80 emess
3099 IF ( id_id .NE. 1 ) THEN
3100 call wrf_debug(1,&
3101 'WARNING in nl_get_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
3102 ENDIF
3103 auxinput5_outname = trim(model_config_rec%auxinput5_outname)
3104 RETURN
3105 END SUBROUTINE nl_get_auxinput5_outname
3106 SUBROUTINE nl_get_auxinput6_outname ( id_id , auxinput6_outname )
3107 character*256 , INTENT(OUT) :: auxinput6_outname
3108 INTEGER id_id
3109 CHARACTER*80 emess
3110 IF ( id_id .NE. 1 ) THEN
3111 call wrf_debug(1,&
3112 'WARNING in nl_get_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
3113 ENDIF
3114 auxinput6_outname = trim(model_config_rec%auxinput6_outname)
3115 RETURN
3116 END SUBROUTINE nl_get_auxinput6_outname
3117 SUBROUTINE nl_get_auxinput7_outname ( id_id , auxinput7_outname )
3118 character*256 , INTENT(OUT) :: auxinput7_outname
3119 INTEGER id_id
3120 CHARACTER*80 emess
3121 IF ( id_id .NE. 1 ) THEN
3122 call wrf_debug(1,&
3123 'WARNING in nl_get_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
3124 ENDIF
3125 auxinput7_outname = trim(model_config_rec%auxinput7_outname)
3126 RETURN
3127 END SUBROUTINE nl_get_auxinput7_outname
3128 SUBROUTINE nl_get_auxinput8_outname ( id_id , auxinput8_outname )
3129 character*256 , INTENT(OUT) :: auxinput8_outname
3130 INTEGER id_id
3131 CHARACTER*80 emess
3132 IF ( id_id .NE. 1 ) THEN
3133 call wrf_debug(1,&
3134 'WARNING in nl_get_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
3135 ENDIF
3136 auxinput8_outname = trim(model_config_rec%auxinput8_outname)
3137 RETURN
3138 END SUBROUTINE nl_get_auxinput8_outname
3139 SUBROUTINE nl_get_auxinput9_outname ( id_id , auxinput9_outname )
3140 character*256 , INTENT(OUT) :: auxinput9_outname
3141 INTEGER id_id
3142 CHARACTER*80 emess
3143 IF ( id_id .NE. 1 ) THEN
3144 call wrf_debug(1,&
3145 'WARNING in nl_get_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
3146 ENDIF
3147 auxinput9_outname = trim(model_config_rec%auxinput9_outname)
3148 RETURN
3149 END SUBROUTINE nl_get_auxinput9_outname
3150 SUBROUTINE nl_get_auxinput10_outname ( id_id , auxinput10_outname )
3151 character*256 , INTENT(OUT) :: auxinput10_outname
3152 INTEGER id_id
3153 CHARACTER*80 emess
3154 IF ( id_id .NE. 1 ) THEN
3155 call wrf_debug(1,&
3156 'WARNING in nl_get_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
3157 ENDIF
3158 auxinput10_outname = trim(model_config_rec%auxinput10_outname)
3159 RETURN
3160 END SUBROUTINE nl_get_auxinput10_outname
3161 SUBROUTINE nl_get_auxinput11_outname ( id_id , auxinput11_outname )
3162 character*256 , INTENT(OUT) :: auxinput11_outname
3163 INTEGER id_id
3164 CHARACTER*80 emess
3165 IF ( id_id .NE. 1 ) THEN
3166 call wrf_debug(1,&
3167 'WARNING in nl_get_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
3168 ENDIF
3169 auxinput11_outname = trim(model_config_rec%auxinput11_outname)
3170 RETURN
3171 END SUBROUTINE nl_get_auxinput11_outname
3172 SUBROUTINE nl_get_auxinput1_inname ( id_id , auxinput1_inname )
3173 character*256 , INTENT(OUT) :: auxinput1_inname
3174 INTEGER id_id
3175 CHARACTER*80 emess
3176 IF ( id_id .NE. 1 ) THEN
3177 call wrf_debug(1,&
3178 'WARNING in nl_get_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
3179 ENDIF
3180 auxinput1_inname = trim(model_config_rec%auxinput1_inname)
3181 RETURN
3182 END SUBROUTINE nl_get_auxinput1_inname
3183 SUBROUTINE nl_get_auxinput2_inname ( id_id , auxinput2_inname )
3184 character*256 , INTENT(OUT) :: auxinput2_inname
3185 INTEGER id_id
3186 CHARACTER*80 emess
3187 IF ( id_id .NE. 1 ) THEN
3188 call wrf_debug(1,&
3189 'WARNING in nl_get_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
3190 ENDIF
3191 auxinput2_inname = trim(model_config_rec%auxinput2_inname)
3192 RETURN
3193 END SUBROUTINE nl_get_auxinput2_inname
3194 SUBROUTINE nl_get_auxinput3_inname ( id_id , auxinput3_inname )
3195 character*256 , INTENT(OUT) :: auxinput3_inname
3196 INTEGER id_id
3197 CHARACTER*80 emess
3198 IF ( id_id .NE. 1 ) THEN
3199 call wrf_debug(1,&
3200 'WARNING in nl_get_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
3201 ENDIF
3202 auxinput3_inname = trim(model_config_rec%auxinput3_inname)
3203 RETURN
3204 END SUBROUTINE nl_get_auxinput3_inname
3205 SUBROUTINE nl_get_auxinput4_inname ( id_id , auxinput4_inname )
3206 character*256 , INTENT(OUT) :: auxinput4_inname
3207 INTEGER id_id
3208 CHARACTER*80 emess
3209 IF ( id_id .NE. 1 ) THEN
3210 call wrf_debug(1,&
3211 'WARNING in nl_get_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
3212 ENDIF
3213 auxinput4_inname = trim(model_config_rec%auxinput4_inname)
3214 RETURN
3215 END SUBROUTINE nl_get_auxinput4_inname
3216 SUBROUTINE nl_get_auxinput5_inname ( id_id , auxinput5_inname )
3217 character*256 , INTENT(OUT) :: auxinput5_inname
3218 INTEGER id_id
3219 CHARACTER*80 emess
3220 IF ( id_id .NE. 1 ) THEN
3221 call wrf_debug(1,&
3222 'WARNING in nl_get_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
3223 ENDIF
3224 auxinput5_inname = trim(model_config_rec%auxinput5_inname)
3225 RETURN
3226 END SUBROUTINE nl_get_auxinput5_inname
3227 SUBROUTINE nl_get_auxinput6_inname ( id_id , auxinput6_inname )
3228 character*256 , INTENT(OUT) :: auxinput6_inname
3229 INTEGER id_id
3230 CHARACTER*80 emess
3231 IF ( id_id .NE. 1 ) THEN
3232 call wrf_debug(1,&
3233 'WARNING in nl_get_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
3234 ENDIF
3235 auxinput6_inname = trim(model_config_rec%auxinput6_inname)
3236 RETURN
3237 END SUBROUTINE nl_get_auxinput6_inname
3238 SUBROUTINE nl_get_auxinput7_inname ( id_id , auxinput7_inname )
3239 character*256 , INTENT(OUT) :: auxinput7_inname
3240 INTEGER id_id
3241 CHARACTER*80 emess
3242 IF ( id_id .NE. 1 ) THEN
3243 call wrf_debug(1,&
3244 'WARNING in nl_get_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
3245 ENDIF
3246 auxinput7_inname = trim(model_config_rec%auxinput7_inname)
3247 RETURN
3248 END SUBROUTINE nl_get_auxinput7_inname
3249 SUBROUTINE nl_get_auxinput8_inname ( id_id , auxinput8_inname )
3250 character*256 , INTENT(OUT) :: auxinput8_inname
3251 INTEGER id_id
3252 CHARACTER*80 emess
3253 IF ( id_id .NE. 1 ) THEN
3254 call wrf_debug(1,&
3255 'WARNING in nl_get_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
3256 ENDIF
3257 auxinput8_inname = trim(model_config_rec%auxinput8_inname)
3258 RETURN
3259 END SUBROUTINE nl_get_auxinput8_inname
3260 SUBROUTINE nl_get_auxinput9_inname ( id_id , auxinput9_inname )
3261 character*256 , INTENT(OUT) :: auxinput9_inname
3262 INTEGER id_id
3263 CHARACTER*80 emess
3264 IF ( id_id .NE. 1 ) THEN
3265 call wrf_debug(1,&
3266 'WARNING in nl_get_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
3267 ENDIF
3268 auxinput9_inname = trim(model_config_rec%auxinput9_inname)
3269 RETURN
3270 END SUBROUTINE nl_get_auxinput9_inname
3271 SUBROUTINE nl_get_gfdda_inname ( id_id , gfdda_inname )
3272 character*256 , INTENT(OUT) :: gfdda_inname
3273 INTEGER id_id
3274 CHARACTER*80 emess
3275 IF ( id_id .NE. 1 ) THEN
3276 call wrf_debug(1,&
3277 'WARNING in nl_get_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
3278 ENDIF
3279 gfdda_inname = trim(model_config_rec%gfdda_inname)
3280 RETURN
3281 END SUBROUTINE nl_get_gfdda_inname
3282 SUBROUTINE nl_get_auxinput11_inname ( id_id , auxinput11_inname )
3283 character*256 , INTENT(OUT) :: auxinput11_inname
3284 INTEGER id_id
3285 CHARACTER*80 emess
3286 IF ( id_id .NE. 1 ) THEN
3287 call wrf_debug(1,&
3288 'WARNING in nl_get_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
3289 ENDIF
3290 auxinput11_inname = trim(model_config_rec%auxinput11_inname)
3291 RETURN
3292 END SUBROUTINE nl_get_auxinput11_inname
3293 SUBROUTINE nl_get_history_interval_mo ( id_id , history_interval_mo )
3294 integer , INTENT(OUT) :: history_interval_mo
3295 INTEGER id_id
3296 CHARACTER*80 emess
3297 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3298 WRITE(emess,*)'nl_get_history_interval_mo: Out of range domain number: ',id_id
3299 CALL wrf_error_fatal(emess)
3300 ENDIF
3301 history_interval_mo = model_config_rec%history_interval_mo(id_id)
3302 RETURN
3303 END SUBROUTINE nl_get_history_interval_mo
3304 SUBROUTINE nl_get_history_interval_d ( id_id , history_interval_d )
3305 integer , INTENT(OUT) :: history_interval_d
3306 INTEGER id_id
3307 CHARACTER*80 emess
3308 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3309 WRITE(emess,*)'nl_get_history_interval_d: Out of range domain number: ',id_id
3310 CALL wrf_error_fatal(emess)
3311 ENDIF
3312 history_interval_d = model_config_rec%history_interval_d(id_id)
3313 RETURN
3314 END SUBROUTINE nl_get_history_interval_d
3315 SUBROUTINE nl_get_history_interval_h ( id_id , history_interval_h )
3316 integer , INTENT(OUT) :: history_interval_h
3317 INTEGER id_id
3318 CHARACTER*80 emess
3319 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3320 WRITE(emess,*)'nl_get_history_interval_h: Out of range domain number: ',id_id
3321 CALL wrf_error_fatal(emess)
3322 ENDIF
3323 history_interval_h = model_config_rec%history_interval_h(id_id)
3324 RETURN
3325 END SUBROUTINE nl_get_history_interval_h
3326 SUBROUTINE nl_get_history_interval_m ( id_id , history_interval_m )
3327 integer , INTENT(OUT) :: history_interval_m
3328 INTEGER id_id
3329 CHARACTER*80 emess
3330 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3331 WRITE(emess,*)'nl_get_history_interval_m: Out of range domain number: ',id_id
3332 CALL wrf_error_fatal(emess)
3333 ENDIF
3334 history_interval_m = model_config_rec%history_interval_m(id_id)
3335 RETURN
3336 END SUBROUTINE nl_get_history_interval_m
3337 SUBROUTINE nl_get_history_interval_s ( id_id , history_interval_s )
3338 integer , INTENT(OUT) :: history_interval_s
3339 INTEGER id_id
3340 CHARACTER*80 emess
3341 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3342 WRITE(emess,*)'nl_get_history_interval_s: Out of range domain number: ',id_id
3343 CALL wrf_error_fatal(emess)
3344 ENDIF
3345 history_interval_s = model_config_rec%history_interval_s(id_id)
3346 RETURN
3347 END SUBROUTINE nl_get_history_interval_s
3348 SUBROUTINE nl_get_inputout_interval_mo ( id_id , inputout_interval_mo )
3349 integer , INTENT(OUT) :: inputout_interval_mo
3350 INTEGER id_id
3351 CHARACTER*80 emess
3352 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3353 WRITE(emess,*)'nl_get_inputout_interval_mo: Out of range domain number: ',id_id
3354 CALL wrf_error_fatal(emess)
3355 ENDIF
3356 inputout_interval_mo = model_config_rec%inputout_interval_mo(id_id)
3357 RETURN
3358 END SUBROUTINE nl_get_inputout_interval_mo
3359 SUBROUTINE nl_get_inputout_interval_d ( id_id , inputout_interval_d )
3360 integer , INTENT(OUT) :: inputout_interval_d
3361 INTEGER id_id
3362 CHARACTER*80 emess
3363 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3364 WRITE(emess,*)'nl_get_inputout_interval_d: Out of range domain number: ',id_id
3365 CALL wrf_error_fatal(emess)
3366 ENDIF
3367 inputout_interval_d = model_config_rec%inputout_interval_d(id_id)
3368 RETURN
3369 END SUBROUTINE nl_get_inputout_interval_d
3370 SUBROUTINE nl_get_inputout_interval_h ( id_id , inputout_interval_h )
3371 integer , INTENT(OUT) :: inputout_interval_h
3372 INTEGER id_id
3373 CHARACTER*80 emess
3374 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3375 WRITE(emess,*)'nl_get_inputout_interval_h: Out of range domain number: ',id_id
3376 CALL wrf_error_fatal(emess)
3377 ENDIF
3378 inputout_interval_h = model_config_rec%inputout_interval_h(id_id)
3379 RETURN
3380 END SUBROUTINE nl_get_inputout_interval_h
3381 SUBROUTINE nl_get_inputout_interval_m ( id_id , inputout_interval_m )
3382 integer , INTENT(OUT) :: inputout_interval_m
3383 INTEGER id_id
3384 CHARACTER*80 emess
3385 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3386 WRITE(emess,*)'nl_get_inputout_interval_m: Out of range domain number: ',id_id
3387 CALL wrf_error_fatal(emess)
3388 ENDIF
3389 inputout_interval_m = model_config_rec%inputout_interval_m(id_id)
3390 RETURN
3391 END SUBROUTINE nl_get_inputout_interval_m
3392 SUBROUTINE nl_get_inputout_interval_s ( id_id , inputout_interval_s )
3393 integer , INTENT(OUT) :: inputout_interval_s
3394 INTEGER id_id
3395 CHARACTER*80 emess
3396 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3397 WRITE(emess,*)'nl_get_inputout_interval_s: Out of range domain number: ',id_id
3398 CALL wrf_error_fatal(emess)
3399 ENDIF
3400 inputout_interval_s = model_config_rec%inputout_interval_s(id_id)
3401 RETURN
3402 END SUBROUTINE nl_get_inputout_interval_s
3403 SUBROUTINE nl_get_inputout_interval ( id_id , inputout_interval )
3404 integer , INTENT(OUT) :: inputout_interval
3405 INTEGER id_id
3406 CHARACTER*80 emess
3407 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3408 WRITE(emess,*)'nl_get_inputout_interval: Out of range domain number: ',id_id
3409 CALL wrf_error_fatal(emess)
3410 ENDIF
3411 inputout_interval = model_config_rec%inputout_interval(id_id)
3412 RETURN
3413 END SUBROUTINE nl_get_inputout_interval
3414 SUBROUTINE nl_get_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
3415 integer , INTENT(OUT) :: auxhist1_interval_mo
3416 INTEGER id_id
3417 CHARACTER*80 emess
3418 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3419 WRITE(emess,*)'nl_get_auxhist1_interval_mo: Out of range domain number: ',id_id
3420 CALL wrf_error_fatal(emess)
3421 ENDIF
3422 auxhist1_interval_mo = model_config_rec%auxhist1_interval_mo(id_id)
3423 RETURN
3424 END SUBROUTINE nl_get_auxhist1_interval_mo
3425 SUBROUTINE nl_get_auxhist1_interval_d ( id_id , auxhist1_interval_d )
3426 integer , INTENT(OUT) :: auxhist1_interval_d
3427 INTEGER id_id
3428 CHARACTER*80 emess
3429 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3430 WRITE(emess,*)'nl_get_auxhist1_interval_d: Out of range domain number: ',id_id
3431 CALL wrf_error_fatal(emess)
3432 ENDIF
3433 auxhist1_interval_d = model_config_rec%auxhist1_interval_d(id_id)
3434 RETURN
3435 END SUBROUTINE nl_get_auxhist1_interval_d
3436 SUBROUTINE nl_get_auxhist1_interval_h ( id_id , auxhist1_interval_h )
3437 integer , INTENT(OUT) :: auxhist1_interval_h
3438 INTEGER id_id
3439 CHARACTER*80 emess
3440 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3441 WRITE(emess,*)'nl_get_auxhist1_interval_h: Out of range domain number: ',id_id
3442 CALL wrf_error_fatal(emess)
3443 ENDIF
3444 auxhist1_interval_h = model_config_rec%auxhist1_interval_h(id_id)
3445 RETURN
3446 END SUBROUTINE nl_get_auxhist1_interval_h
3447 SUBROUTINE nl_get_auxhist1_interval_m ( id_id , auxhist1_interval_m )
3448 integer , INTENT(OUT) :: auxhist1_interval_m
3449 INTEGER id_id
3450 CHARACTER*80 emess
3451 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3452 WRITE(emess,*)'nl_get_auxhist1_interval_m: Out of range domain number: ',id_id
3453 CALL wrf_error_fatal(emess)
3454 ENDIF
3455 auxhist1_interval_m = model_config_rec%auxhist1_interval_m(id_id)
3456 RETURN
3457 END SUBROUTINE nl_get_auxhist1_interval_m
3458 SUBROUTINE nl_get_auxhist1_interval_s ( id_id , auxhist1_interval_s )
3459 integer , INTENT(OUT) :: auxhist1_interval_s
3460 INTEGER id_id
3461 CHARACTER*80 emess
3462 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3463 WRITE(emess,*)'nl_get_auxhist1_interval_s: Out of range domain number: ',id_id
3464 CALL wrf_error_fatal(emess)
3465 ENDIF
3466 auxhist1_interval_s = model_config_rec%auxhist1_interval_s(id_id)
3467 RETURN
3468 END SUBROUTINE nl_get_auxhist1_interval_s
3469 SUBROUTINE nl_get_auxhist1_interval ( id_id , auxhist1_interval )
3470 integer , INTENT(OUT) :: auxhist1_interval
3471 INTEGER id_id
3472 CHARACTER*80 emess
3473 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3474 WRITE(emess,*)'nl_get_auxhist1_interval: Out of range domain number: ',id_id
3475 CALL wrf_error_fatal(emess)
3476 ENDIF
3477 auxhist1_interval = model_config_rec%auxhist1_interval(id_id)
3478 RETURN
3479 END SUBROUTINE nl_get_auxhist1_interval
3480 SUBROUTINE nl_get_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
3481 integer , INTENT(OUT) :: auxhist2_interval_mo
3482 INTEGER id_id
3483 CHARACTER*80 emess
3484 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3485 WRITE(emess,*)'nl_get_auxhist2_interval_mo: Out of range domain number: ',id_id
3486 CALL wrf_error_fatal(emess)
3487 ENDIF
3488 auxhist2_interval_mo = model_config_rec%auxhist2_interval_mo(id_id)
3489 RETURN
3490 END SUBROUTINE nl_get_auxhist2_interval_mo
3491 SUBROUTINE nl_get_auxhist2_interval_d ( id_id , auxhist2_interval_d )
3492 integer , INTENT(OUT) :: auxhist2_interval_d
3493 INTEGER id_id
3494 CHARACTER*80 emess
3495 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3496 WRITE(emess,*)'nl_get_auxhist2_interval_d: Out of range domain number: ',id_id
3497 CALL wrf_error_fatal(emess)
3498 ENDIF
3499 auxhist2_interval_d = model_config_rec%auxhist2_interval_d(id_id)
3500 RETURN
3501 END SUBROUTINE nl_get_auxhist2_interval_d
3502 SUBROUTINE nl_get_auxhist2_interval_h ( id_id , auxhist2_interval_h )
3503 integer , INTENT(OUT) :: auxhist2_interval_h
3504 INTEGER id_id
3505 CHARACTER*80 emess
3506 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3507 WRITE(emess,*)'nl_get_auxhist2_interval_h: Out of range domain number: ',id_id
3508 CALL wrf_error_fatal(emess)
3509 ENDIF
3510 auxhist2_interval_h = model_config_rec%auxhist2_interval_h(id_id)
3511 RETURN
3512 END SUBROUTINE nl_get_auxhist2_interval_h
3513 SUBROUTINE nl_get_auxhist2_interval_m ( id_id , auxhist2_interval_m )
3514 integer , INTENT(OUT) :: auxhist2_interval_m
3515 INTEGER id_id
3516 CHARACTER*80 emess
3517 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3518 WRITE(emess,*)'nl_get_auxhist2_interval_m: Out of range domain number: ',id_id
3519 CALL wrf_error_fatal(emess)
3520 ENDIF
3521 auxhist2_interval_m = model_config_rec%auxhist2_interval_m(id_id)
3522 RETURN
3523 END SUBROUTINE nl_get_auxhist2_interval_m
3524 SUBROUTINE nl_get_auxhist2_interval_s ( id_id , auxhist2_interval_s )
3525 integer , INTENT(OUT) :: auxhist2_interval_s
3526 INTEGER id_id
3527 CHARACTER*80 emess
3528 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3529 WRITE(emess,*)'nl_get_auxhist2_interval_s: Out of range domain number: ',id_id
3530 CALL wrf_error_fatal(emess)
3531 ENDIF
3532 auxhist2_interval_s = model_config_rec%auxhist2_interval_s(id_id)
3533 RETURN
3534 END SUBROUTINE nl_get_auxhist2_interval_s
3535 SUBROUTINE nl_get_auxhist2_interval ( id_id , auxhist2_interval )
3536 integer , INTENT(OUT) :: auxhist2_interval
3537 INTEGER id_id
3538 CHARACTER*80 emess
3539 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3540 WRITE(emess,*)'nl_get_auxhist2_interval: Out of range domain number: ',id_id
3541 CALL wrf_error_fatal(emess)
3542 ENDIF
3543 auxhist2_interval = model_config_rec%auxhist2_interval(id_id)
3544 RETURN
3545 END SUBROUTINE nl_get_auxhist2_interval
3546 SUBROUTINE nl_get_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
3547 integer , INTENT(OUT) :: auxhist3_interval_mo
3548 INTEGER id_id
3549 CHARACTER*80 emess
3550 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3551 WRITE(emess,*)'nl_get_auxhist3_interval_mo: Out of range domain number: ',id_id
3552 CALL wrf_error_fatal(emess)
3553 ENDIF
3554 auxhist3_interval_mo = model_config_rec%auxhist3_interval_mo(id_id)
3555 RETURN
3556 END SUBROUTINE nl_get_auxhist3_interval_mo
3557 SUBROUTINE nl_get_auxhist3_interval_d ( id_id , auxhist3_interval_d )
3558 integer , INTENT(OUT) :: auxhist3_interval_d
3559 INTEGER id_id
3560 CHARACTER*80 emess
3561 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3562 WRITE(emess,*)'nl_get_auxhist3_interval_d: Out of range domain number: ',id_id
3563 CALL wrf_error_fatal(emess)
3564 ENDIF
3565 auxhist3_interval_d = model_config_rec%auxhist3_interval_d(id_id)
3566 RETURN
3567 END SUBROUTINE nl_get_auxhist3_interval_d
3568 SUBROUTINE nl_get_auxhist3_interval_h ( id_id , auxhist3_interval_h )
3569 integer , INTENT(OUT) :: auxhist3_interval_h
3570 INTEGER id_id
3571 CHARACTER*80 emess
3572 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3573 WRITE(emess,*)'nl_get_auxhist3_interval_h: Out of range domain number: ',id_id
3574 CALL wrf_error_fatal(emess)
3575 ENDIF
3576 auxhist3_interval_h = model_config_rec%auxhist3_interval_h(id_id)
3577 RETURN
3578 END SUBROUTINE nl_get_auxhist3_interval_h
3579 SUBROUTINE nl_get_auxhist3_interval_m ( id_id , auxhist3_interval_m )
3580 integer , INTENT(OUT) :: auxhist3_interval_m
3581 INTEGER id_id
3582 CHARACTER*80 emess
3583 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3584 WRITE(emess,*)'nl_get_auxhist3_interval_m: Out of range domain number: ',id_id
3585 CALL wrf_error_fatal(emess)
3586 ENDIF
3587 auxhist3_interval_m = model_config_rec%auxhist3_interval_m(id_id)
3588 RETURN
3589 END SUBROUTINE nl_get_auxhist3_interval_m
3590 SUBROUTINE nl_get_auxhist3_interval_s ( id_id , auxhist3_interval_s )
3591 integer , INTENT(OUT) :: auxhist3_interval_s
3592 INTEGER id_id
3593 CHARACTER*80 emess
3594 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3595 WRITE(emess,*)'nl_get_auxhist3_interval_s: Out of range domain number: ',id_id
3596 CALL wrf_error_fatal(emess)
3597 ENDIF
3598 auxhist3_interval_s = model_config_rec%auxhist3_interval_s(id_id)
3599 RETURN
3600 END SUBROUTINE nl_get_auxhist3_interval_s
3601 SUBROUTINE nl_get_auxhist3_interval ( id_id , auxhist3_interval )
3602 integer , INTENT(OUT) :: auxhist3_interval
3603 INTEGER id_id
3604 CHARACTER*80 emess
3605 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3606 WRITE(emess,*)'nl_get_auxhist3_interval: Out of range domain number: ',id_id
3607 CALL wrf_error_fatal(emess)
3608 ENDIF
3609 auxhist3_interval = model_config_rec%auxhist3_interval(id_id)
3610 RETURN
3611 END SUBROUTINE nl_get_auxhist3_interval
3612 SUBROUTINE nl_get_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
3613 integer , INTENT(OUT) :: auxhist4_interval_mo
3614 INTEGER id_id
3615 CHARACTER*80 emess
3616 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3617 WRITE(emess,*)'nl_get_auxhist4_interval_mo: Out of range domain number: ',id_id
3618 CALL wrf_error_fatal(emess)
3619 ENDIF
3620 auxhist4_interval_mo = model_config_rec%auxhist4_interval_mo(id_id)
3621 RETURN
3622 END SUBROUTINE nl_get_auxhist4_interval_mo
3623 SUBROUTINE nl_get_auxhist4_interval_d ( id_id , auxhist4_interval_d )
3624 integer , INTENT(OUT) :: auxhist4_interval_d
3625 INTEGER id_id
3626 CHARACTER*80 emess
3627 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3628 WRITE(emess,*)'nl_get_auxhist4_interval_d: Out of range domain number: ',id_id
3629 CALL wrf_error_fatal(emess)
3630 ENDIF
3631 auxhist4_interval_d = model_config_rec%auxhist4_interval_d(id_id)
3632 RETURN
3633 END SUBROUTINE nl_get_auxhist4_interval_d
3634 SUBROUTINE nl_get_auxhist4_interval_h ( id_id , auxhist4_interval_h )
3635 integer , INTENT(OUT) :: auxhist4_interval_h
3636 INTEGER id_id
3637 CHARACTER*80 emess
3638 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3639 WRITE(emess,*)'nl_get_auxhist4_interval_h: Out of range domain number: ',id_id
3640 CALL wrf_error_fatal(emess)
3641 ENDIF
3642 auxhist4_interval_h = model_config_rec%auxhist4_interval_h(id_id)
3643 RETURN
3644 END SUBROUTINE nl_get_auxhist4_interval_h
3645 SUBROUTINE nl_get_auxhist4_interval_m ( id_id , auxhist4_interval_m )
3646 integer , INTENT(OUT) :: auxhist4_interval_m
3647 INTEGER id_id
3648 CHARACTER*80 emess
3649 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3650 WRITE(emess,*)'nl_get_auxhist4_interval_m: Out of range domain number: ',id_id
3651 CALL wrf_error_fatal(emess)
3652 ENDIF
3653 auxhist4_interval_m = model_config_rec%auxhist4_interval_m(id_id)
3654 RETURN
3655 END SUBROUTINE nl_get_auxhist4_interval_m
3656 SUBROUTINE nl_get_auxhist4_interval_s ( id_id , auxhist4_interval_s )
3657 integer , INTENT(OUT) :: auxhist4_interval_s
3658 INTEGER id_id
3659 CHARACTER*80 emess
3660 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3661 WRITE(emess,*)'nl_get_auxhist4_interval_s: Out of range domain number: ',id_id
3662 CALL wrf_error_fatal(emess)
3663 ENDIF
3664 auxhist4_interval_s = model_config_rec%auxhist4_interval_s(id_id)
3665 RETURN
3666 END SUBROUTINE nl_get_auxhist4_interval_s
3667 SUBROUTINE nl_get_auxhist4_interval ( id_id , auxhist4_interval )
3668 integer , INTENT(OUT) :: auxhist4_interval
3669 INTEGER id_id
3670 CHARACTER*80 emess
3671 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3672 WRITE(emess,*)'nl_get_auxhist4_interval: Out of range domain number: ',id_id
3673 CALL wrf_error_fatal(emess)
3674 ENDIF
3675 auxhist4_interval = model_config_rec%auxhist4_interval(id_id)
3676 RETURN
3677 END SUBROUTINE nl_get_auxhist4_interval
3678 SUBROUTINE nl_get_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
3679 integer , INTENT(OUT) :: auxhist5_interval_mo
3680 INTEGER id_id
3681 CHARACTER*80 emess
3682 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3683 WRITE(emess,*)'nl_get_auxhist5_interval_mo: Out of range domain number: ',id_id
3684 CALL wrf_error_fatal(emess)
3685 ENDIF
3686 auxhist5_interval_mo = model_config_rec%auxhist5_interval_mo(id_id)
3687 RETURN
3688 END SUBROUTINE nl_get_auxhist5_interval_mo
3689 SUBROUTINE nl_get_auxhist5_interval_d ( id_id , auxhist5_interval_d )
3690 integer , INTENT(OUT) :: auxhist5_interval_d
3691 INTEGER id_id
3692 CHARACTER*80 emess
3693 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3694 WRITE(emess,*)'nl_get_auxhist5_interval_d: Out of range domain number: ',id_id
3695 CALL wrf_error_fatal(emess)
3696 ENDIF
3697 auxhist5_interval_d = model_config_rec%auxhist5_interval_d(id_id)
3698 RETURN
3699 END SUBROUTINE nl_get_auxhist5_interval_d
3700 SUBROUTINE nl_get_auxhist5_interval_h ( id_id , auxhist5_interval_h )
3701 integer , INTENT(OUT) :: auxhist5_interval_h
3702 INTEGER id_id
3703 CHARACTER*80 emess
3704 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3705 WRITE(emess,*)'nl_get_auxhist5_interval_h: Out of range domain number: ',id_id
3706 CALL wrf_error_fatal(emess)
3707 ENDIF
3708 auxhist5_interval_h = model_config_rec%auxhist5_interval_h(id_id)
3709 RETURN
3710 END SUBROUTINE nl_get_auxhist5_interval_h
3711 SUBROUTINE nl_get_auxhist5_interval_m ( id_id , auxhist5_interval_m )
3712 integer , INTENT(OUT) :: auxhist5_interval_m
3713 INTEGER id_id
3714 CHARACTER*80 emess
3715 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3716 WRITE(emess,*)'nl_get_auxhist5_interval_m: Out of range domain number: ',id_id
3717 CALL wrf_error_fatal(emess)
3718 ENDIF
3719 auxhist5_interval_m = model_config_rec%auxhist5_interval_m(id_id)
3720 RETURN
3721 END SUBROUTINE nl_get_auxhist5_interval_m
3722 SUBROUTINE nl_get_auxhist5_interval_s ( id_id , auxhist5_interval_s )
3723 integer , INTENT(OUT) :: auxhist5_interval_s
3724 INTEGER id_id
3725 CHARACTER*80 emess
3726 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3727 WRITE(emess,*)'nl_get_auxhist5_interval_s: Out of range domain number: ',id_id
3728 CALL wrf_error_fatal(emess)
3729 ENDIF
3730 auxhist5_interval_s = model_config_rec%auxhist5_interval_s(id_id)
3731 RETURN
3732 END SUBROUTINE nl_get_auxhist5_interval_s
3733 SUBROUTINE nl_get_auxhist5_interval ( id_id , auxhist5_interval )
3734 integer , INTENT(OUT) :: auxhist5_interval
3735 INTEGER id_id
3736 CHARACTER*80 emess
3737 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3738 WRITE(emess,*)'nl_get_auxhist5_interval: Out of range domain number: ',id_id
3739 CALL wrf_error_fatal(emess)
3740 ENDIF
3741 auxhist5_interval = model_config_rec%auxhist5_interval(id_id)
3742 RETURN
3743 END SUBROUTINE nl_get_auxhist5_interval
3744 SUBROUTINE nl_get_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
3745 integer , INTENT(OUT) :: auxhist6_interval_mo
3746 INTEGER id_id
3747 CHARACTER*80 emess
3748 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3749 WRITE(emess,*)'nl_get_auxhist6_interval_mo: Out of range domain number: ',id_id
3750 CALL wrf_error_fatal(emess)
3751 ENDIF
3752 auxhist6_interval_mo = model_config_rec%auxhist6_interval_mo(id_id)
3753 RETURN
3754 END SUBROUTINE nl_get_auxhist6_interval_mo
3755 SUBROUTINE nl_get_auxhist6_interval_d ( id_id , auxhist6_interval_d )
3756 integer , INTENT(OUT) :: auxhist6_interval_d
3757 INTEGER id_id
3758 CHARACTER*80 emess
3759 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3760 WRITE(emess,*)'nl_get_auxhist6_interval_d: Out of range domain number: ',id_id
3761 CALL wrf_error_fatal(emess)
3762 ENDIF
3763 auxhist6_interval_d = model_config_rec%auxhist6_interval_d(id_id)
3764 RETURN
3765 END SUBROUTINE nl_get_auxhist6_interval_d
3766 SUBROUTINE nl_get_auxhist6_interval_h ( id_id , auxhist6_interval_h )
3767 integer , INTENT(OUT) :: auxhist6_interval_h
3768 INTEGER id_id
3769 CHARACTER*80 emess
3770 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3771 WRITE(emess,*)'nl_get_auxhist6_interval_h: Out of range domain number: ',id_id
3772 CALL wrf_error_fatal(emess)
3773 ENDIF
3774 auxhist6_interval_h = model_config_rec%auxhist6_interval_h(id_id)
3775 RETURN
3776 END SUBROUTINE nl_get_auxhist6_interval_h
3777 SUBROUTINE nl_get_auxhist6_interval_m ( id_id , auxhist6_interval_m )
3778 integer , INTENT(OUT) :: auxhist6_interval_m
3779 INTEGER id_id
3780 CHARACTER*80 emess
3781 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3782 WRITE(emess,*)'nl_get_auxhist6_interval_m: Out of range domain number: ',id_id
3783 CALL wrf_error_fatal(emess)
3784 ENDIF
3785 auxhist6_interval_m = model_config_rec%auxhist6_interval_m(id_id)
3786 RETURN
3787 END SUBROUTINE nl_get_auxhist6_interval_m
3788 SUBROUTINE nl_get_auxhist6_interval_s ( id_id , auxhist6_interval_s )
3789 integer , INTENT(OUT) :: auxhist6_interval_s
3790 INTEGER id_id
3791 CHARACTER*80 emess
3792 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3793 WRITE(emess,*)'nl_get_auxhist6_interval_s: Out of range domain number: ',id_id
3794 CALL wrf_error_fatal(emess)
3795 ENDIF
3796 auxhist6_interval_s = model_config_rec%auxhist6_interval_s(id_id)
3797 RETURN
3798 END SUBROUTINE nl_get_auxhist6_interval_s
3799 SUBROUTINE nl_get_auxhist6_interval ( id_id , auxhist6_interval )
3800 integer , INTENT(OUT) :: auxhist6_interval
3801 INTEGER id_id
3802 CHARACTER*80 emess
3803 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3804 WRITE(emess,*)'nl_get_auxhist6_interval: Out of range domain number: ',id_id
3805 CALL wrf_error_fatal(emess)
3806 ENDIF
3807 auxhist6_interval = model_config_rec%auxhist6_interval(id_id)
3808 RETURN
3809 END SUBROUTINE nl_get_auxhist6_interval
3810 SUBROUTINE nl_get_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
3811 integer , INTENT(OUT) :: auxhist7_interval_mo
3812 INTEGER id_id
3813 CHARACTER*80 emess
3814 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3815 WRITE(emess,*)'nl_get_auxhist7_interval_mo: Out of range domain number: ',id_id
3816 CALL wrf_error_fatal(emess)
3817 ENDIF
3818 auxhist7_interval_mo = model_config_rec%auxhist7_interval_mo(id_id)
3819 RETURN
3820 END SUBROUTINE nl_get_auxhist7_interval_mo
3821 SUBROUTINE nl_get_auxhist7_interval_d ( id_id , auxhist7_interval_d )
3822 integer , INTENT(OUT) :: auxhist7_interval_d
3823 INTEGER id_id
3824 CHARACTER*80 emess
3825 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3826 WRITE(emess,*)'nl_get_auxhist7_interval_d: Out of range domain number: ',id_id
3827 CALL wrf_error_fatal(emess)
3828 ENDIF
3829 auxhist7_interval_d = model_config_rec%auxhist7_interval_d(id_id)
3830 RETURN
3831 END SUBROUTINE nl_get_auxhist7_interval_d
3832 SUBROUTINE nl_get_auxhist7_interval_h ( id_id , auxhist7_interval_h )
3833 integer , INTENT(OUT) :: auxhist7_interval_h
3834 INTEGER id_id
3835 CHARACTER*80 emess
3836 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3837 WRITE(emess,*)'nl_get_auxhist7_interval_h: Out of range domain number: ',id_id
3838 CALL wrf_error_fatal(emess)
3839 ENDIF
3840 auxhist7_interval_h = model_config_rec%auxhist7_interval_h(id_id)
3841 RETURN
3842 END SUBROUTINE nl_get_auxhist7_interval_h
3843 SUBROUTINE nl_get_auxhist7_interval_m ( id_id , auxhist7_interval_m )
3844 integer , INTENT(OUT) :: auxhist7_interval_m
3845 INTEGER id_id
3846 CHARACTER*80 emess
3847 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3848 WRITE(emess,*)'nl_get_auxhist7_interval_m: Out of range domain number: ',id_id
3849 CALL wrf_error_fatal(emess)
3850 ENDIF
3851 auxhist7_interval_m = model_config_rec%auxhist7_interval_m(id_id)
3852 RETURN
3853 END SUBROUTINE nl_get_auxhist7_interval_m
3854 SUBROUTINE nl_get_auxhist7_interval_s ( id_id , auxhist7_interval_s )
3855 integer , INTENT(OUT) :: auxhist7_interval_s
3856 INTEGER id_id
3857 CHARACTER*80 emess
3858 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3859 WRITE(emess,*)'nl_get_auxhist7_interval_s: Out of range domain number: ',id_id
3860 CALL wrf_error_fatal(emess)
3861 ENDIF
3862 auxhist7_interval_s = model_config_rec%auxhist7_interval_s(id_id)
3863 RETURN
3864 END SUBROUTINE nl_get_auxhist7_interval_s
3865 SUBROUTINE nl_get_auxhist7_interval ( id_id , auxhist7_interval )
3866 integer , INTENT(OUT) :: auxhist7_interval
3867 INTEGER id_id
3868 CHARACTER*80 emess
3869 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3870 WRITE(emess,*)'nl_get_auxhist7_interval: Out of range domain number: ',id_id
3871 CALL wrf_error_fatal(emess)
3872 ENDIF
3873 auxhist7_interval = model_config_rec%auxhist7_interval(id_id)
3874 RETURN
3875 END SUBROUTINE nl_get_auxhist7_interval
3876 SUBROUTINE nl_get_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
3877 integer , INTENT(OUT) :: auxhist8_interval_mo
3878 INTEGER id_id
3879 CHARACTER*80 emess
3880 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3881 WRITE(emess,*)'nl_get_auxhist8_interval_mo: Out of range domain number: ',id_id
3882 CALL wrf_error_fatal(emess)
3883 ENDIF
3884 auxhist8_interval_mo = model_config_rec%auxhist8_interval_mo(id_id)
3885 RETURN
3886 END SUBROUTINE nl_get_auxhist8_interval_mo
3887 SUBROUTINE nl_get_auxhist8_interval_d ( id_id , auxhist8_interval_d )
3888 integer , INTENT(OUT) :: auxhist8_interval_d
3889 INTEGER id_id
3890 CHARACTER*80 emess
3891 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3892 WRITE(emess,*)'nl_get_auxhist8_interval_d: Out of range domain number: ',id_id
3893 CALL wrf_error_fatal(emess)
3894 ENDIF
3895 auxhist8_interval_d = model_config_rec%auxhist8_interval_d(id_id)
3896 RETURN
3897 END SUBROUTINE nl_get_auxhist8_interval_d
3898 SUBROUTINE nl_get_auxhist8_interval_h ( id_id , auxhist8_interval_h )
3899 integer , INTENT(OUT) :: auxhist8_interval_h
3900 INTEGER id_id
3901 CHARACTER*80 emess
3902 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3903 WRITE(emess,*)'nl_get_auxhist8_interval_h: Out of range domain number: ',id_id
3904 CALL wrf_error_fatal(emess)
3905 ENDIF
3906 auxhist8_interval_h = model_config_rec%auxhist8_interval_h(id_id)
3907 RETURN
3908 END SUBROUTINE nl_get_auxhist8_interval_h
3909 SUBROUTINE nl_get_auxhist8_interval_m ( id_id , auxhist8_interval_m )
3910 integer , INTENT(OUT) :: auxhist8_interval_m
3911 INTEGER id_id
3912 CHARACTER*80 emess
3913 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3914 WRITE(emess,*)'nl_get_auxhist8_interval_m: Out of range domain number: ',id_id
3915 CALL wrf_error_fatal(emess)
3916 ENDIF
3917 auxhist8_interval_m = model_config_rec%auxhist8_interval_m(id_id)
3918 RETURN
3919 END SUBROUTINE nl_get_auxhist8_interval_m
3920 SUBROUTINE nl_get_auxhist8_interval_s ( id_id , auxhist8_interval_s )
3921 integer , INTENT(OUT) :: auxhist8_interval_s
3922 INTEGER id_id
3923 CHARACTER*80 emess
3924 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3925 WRITE(emess,*)'nl_get_auxhist8_interval_s: Out of range domain number: ',id_id
3926 CALL wrf_error_fatal(emess)
3927 ENDIF
3928 auxhist8_interval_s = model_config_rec%auxhist8_interval_s(id_id)
3929 RETURN
3930 END SUBROUTINE nl_get_auxhist8_interval_s
3931 SUBROUTINE nl_get_auxhist8_interval ( id_id , auxhist8_interval )
3932 integer , INTENT(OUT) :: auxhist8_interval
3933 INTEGER id_id
3934 CHARACTER*80 emess
3935 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3936 WRITE(emess,*)'nl_get_auxhist8_interval: Out of range domain number: ',id_id
3937 CALL wrf_error_fatal(emess)
3938 ENDIF
3939 auxhist8_interval = model_config_rec%auxhist8_interval(id_id)
3940 RETURN
3941 END SUBROUTINE nl_get_auxhist8_interval
3942 SUBROUTINE nl_get_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
3943 integer , INTENT(OUT) :: auxhist9_interval_mo
3944 INTEGER id_id
3945 CHARACTER*80 emess
3946 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3947 WRITE(emess,*)'nl_get_auxhist9_interval_mo: Out of range domain number: ',id_id
3948 CALL wrf_error_fatal(emess)
3949 ENDIF
3950 auxhist9_interval_mo = model_config_rec%auxhist9_interval_mo(id_id)
3951 RETURN
3952 END SUBROUTINE nl_get_auxhist9_interval_mo
3953 SUBROUTINE nl_get_auxhist9_interval_d ( id_id , auxhist9_interval_d )
3954 integer , INTENT(OUT) :: auxhist9_interval_d
3955 INTEGER id_id
3956 CHARACTER*80 emess
3957 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3958 WRITE(emess,*)'nl_get_auxhist9_interval_d: Out of range domain number: ',id_id
3959 CALL wrf_error_fatal(emess)
3960 ENDIF
3961 auxhist9_interval_d = model_config_rec%auxhist9_interval_d(id_id)
3962 RETURN
3963 END SUBROUTINE nl_get_auxhist9_interval_d
3964 SUBROUTINE nl_get_auxhist9_interval_h ( id_id , auxhist9_interval_h )
3965 integer , INTENT(OUT) :: auxhist9_interval_h
3966 INTEGER id_id
3967 CHARACTER*80 emess
3968 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3969 WRITE(emess,*)'nl_get_auxhist9_interval_h: Out of range domain number: ',id_id
3970 CALL wrf_error_fatal(emess)
3971 ENDIF
3972 auxhist9_interval_h = model_config_rec%auxhist9_interval_h(id_id)
3973 RETURN
3974 END SUBROUTINE nl_get_auxhist9_interval_h
3975 SUBROUTINE nl_get_auxhist9_interval_m ( id_id , auxhist9_interval_m )
3976 integer , INTENT(OUT) :: auxhist9_interval_m
3977 INTEGER id_id
3978 CHARACTER*80 emess
3979 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3980 WRITE(emess,*)'nl_get_auxhist9_interval_m: Out of range domain number: ',id_id
3981 CALL wrf_error_fatal(emess)
3982 ENDIF
3983 auxhist9_interval_m = model_config_rec%auxhist9_interval_m(id_id)
3984 RETURN
3985 END SUBROUTINE nl_get_auxhist9_interval_m
3986 SUBROUTINE nl_get_auxhist9_interval_s ( id_id , auxhist9_interval_s )
3987 integer , INTENT(OUT) :: auxhist9_interval_s
3988 INTEGER id_id
3989 CHARACTER*80 emess
3990 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3991 WRITE(emess,*)'nl_get_auxhist9_interval_s: Out of range domain number: ',id_id
3992 CALL wrf_error_fatal(emess)
3993 ENDIF
3994 auxhist9_interval_s = model_config_rec%auxhist9_interval_s(id_id)
3995 RETURN
3996 END SUBROUTINE nl_get_auxhist9_interval_s
3997 SUBROUTINE nl_get_auxhist9_interval ( id_id , auxhist9_interval )
3998 integer , INTENT(OUT) :: auxhist9_interval
3999 INTEGER id_id
4000 CHARACTER*80 emess
4001 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4002 WRITE(emess,*)'nl_get_auxhist9_interval: Out of range domain number: ',id_id
4003 CALL wrf_error_fatal(emess)
4004 ENDIF
4005 auxhist9_interval = model_config_rec%auxhist9_interval(id_id)
4006 RETURN
4007 END SUBROUTINE nl_get_auxhist9_interval
4008 SUBROUTINE nl_get_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
4009 integer , INTENT(OUT) :: auxhist10_interval_mo
4010 INTEGER id_id
4011 CHARACTER*80 emess
4012 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4013 WRITE(emess,*)'nl_get_auxhist10_interval_mo: Out of range domain number: ',id_id
4014 CALL wrf_error_fatal(emess)
4015 ENDIF
4016 auxhist10_interval_mo = model_config_rec%auxhist10_interval_mo(id_id)
4017 RETURN
4018 END SUBROUTINE nl_get_auxhist10_interval_mo
4019 SUBROUTINE nl_get_auxhist10_interval_d ( id_id , auxhist10_interval_d )
4020 integer , INTENT(OUT) :: auxhist10_interval_d
4021 INTEGER id_id
4022 CHARACTER*80 emess
4023 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4024 WRITE(emess,*)'nl_get_auxhist10_interval_d: Out of range domain number: ',id_id
4025 CALL wrf_error_fatal(emess)
4026 ENDIF
4027 auxhist10_interval_d = model_config_rec%auxhist10_interval_d(id_id)
4028 RETURN
4029 END SUBROUTINE nl_get_auxhist10_interval_d
4030 SUBROUTINE nl_get_auxhist10_interval_h ( id_id , auxhist10_interval_h )
4031 integer , INTENT(OUT) :: auxhist10_interval_h
4032 INTEGER id_id
4033 CHARACTER*80 emess
4034 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4035 WRITE(emess,*)'nl_get_auxhist10_interval_h: Out of range domain number: ',id_id
4036 CALL wrf_error_fatal(emess)
4037 ENDIF
4038 auxhist10_interval_h = model_config_rec%auxhist10_interval_h(id_id)
4039 RETURN
4040 END SUBROUTINE nl_get_auxhist10_interval_h
4041 SUBROUTINE nl_get_auxhist10_interval_m ( id_id , auxhist10_interval_m )
4042 integer , INTENT(OUT) :: auxhist10_interval_m
4043 INTEGER id_id
4044 CHARACTER*80 emess
4045 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4046 WRITE(emess,*)'nl_get_auxhist10_interval_m: Out of range domain number: ',id_id
4047 CALL wrf_error_fatal(emess)
4048 ENDIF
4049 auxhist10_interval_m = model_config_rec%auxhist10_interval_m(id_id)
4050 RETURN
4051 END SUBROUTINE nl_get_auxhist10_interval_m
4052 SUBROUTINE nl_get_auxhist10_interval_s ( id_id , auxhist10_interval_s )
4053 integer , INTENT(OUT) :: auxhist10_interval_s
4054 INTEGER id_id
4055 CHARACTER*80 emess
4056 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4057 WRITE(emess,*)'nl_get_auxhist10_interval_s: Out of range domain number: ',id_id
4058 CALL wrf_error_fatal(emess)
4059 ENDIF
4060 auxhist10_interval_s = model_config_rec%auxhist10_interval_s(id_id)
4061 RETURN
4062 END SUBROUTINE nl_get_auxhist10_interval_s
4063 SUBROUTINE nl_get_auxhist10_interval ( id_id , auxhist10_interval )
4064 integer , INTENT(OUT) :: auxhist10_interval
4065 INTEGER id_id
4066 CHARACTER*80 emess
4067 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4068 WRITE(emess,*)'nl_get_auxhist10_interval: Out of range domain number: ',id_id
4069 CALL wrf_error_fatal(emess)
4070 ENDIF
4071 auxhist10_interval = model_config_rec%auxhist10_interval(id_id)
4072 RETURN
4073 END SUBROUTINE nl_get_auxhist10_interval
4074 SUBROUTINE nl_get_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
4075 integer , INTENT(OUT) :: auxhist11_interval_mo
4076 INTEGER id_id
4077 CHARACTER*80 emess
4078 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4079 WRITE(emess,*)'nl_get_auxhist11_interval_mo: Out of range domain number: ',id_id
4080 CALL wrf_error_fatal(emess)
4081 ENDIF
4082 auxhist11_interval_mo = model_config_rec%auxhist11_interval_mo(id_id)
4083 RETURN
4084 END SUBROUTINE nl_get_auxhist11_interval_mo
4085 SUBROUTINE nl_get_auxhist11_interval_d ( id_id , auxhist11_interval_d )
4086 integer , INTENT(OUT) :: auxhist11_interval_d
4087 INTEGER id_id
4088 CHARACTER*80 emess
4089 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4090 WRITE(emess,*)'nl_get_auxhist11_interval_d: Out of range domain number: ',id_id
4091 CALL wrf_error_fatal(emess)
4092 ENDIF
4093 auxhist11_interval_d = model_config_rec%auxhist11_interval_d(id_id)
4094 RETURN
4095 END SUBROUTINE nl_get_auxhist11_interval_d
4096 SUBROUTINE nl_get_auxhist11_interval_h ( id_id , auxhist11_interval_h )
4097 integer , INTENT(OUT) :: auxhist11_interval_h
4098 INTEGER id_id
4099 CHARACTER*80 emess
4100 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4101 WRITE(emess,*)'nl_get_auxhist11_interval_h: Out of range domain number: ',id_id
4102 CALL wrf_error_fatal(emess)
4103 ENDIF
4104 auxhist11_interval_h = model_config_rec%auxhist11_interval_h(id_id)
4105 RETURN
4106 END SUBROUTINE nl_get_auxhist11_interval_h
4107 SUBROUTINE nl_get_auxhist11_interval_m ( id_id , auxhist11_interval_m )
4108 integer , INTENT(OUT) :: auxhist11_interval_m
4109 INTEGER id_id
4110 CHARACTER*80 emess
4111 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4112 WRITE(emess,*)'nl_get_auxhist11_interval_m: Out of range domain number: ',id_id
4113 CALL wrf_error_fatal(emess)
4114 ENDIF
4115 auxhist11_interval_m = model_config_rec%auxhist11_interval_m(id_id)
4116 RETURN
4117 END SUBROUTINE nl_get_auxhist11_interval_m
4118 SUBROUTINE nl_get_auxhist11_interval_s ( id_id , auxhist11_interval_s )
4119 integer , INTENT(OUT) :: auxhist11_interval_s
4120 INTEGER id_id
4121 CHARACTER*80 emess
4122 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4123 WRITE(emess,*)'nl_get_auxhist11_interval_s: Out of range domain number: ',id_id
4124 CALL wrf_error_fatal(emess)
4125 ENDIF
4126 auxhist11_interval_s = model_config_rec%auxhist11_interval_s(id_id)
4127 RETURN
4128 END SUBROUTINE nl_get_auxhist11_interval_s
4129 SUBROUTINE nl_get_auxhist11_interval ( id_id , auxhist11_interval )
4130 integer , INTENT(OUT) :: auxhist11_interval
4131 INTEGER id_id
4132 CHARACTER*80 emess
4133 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4134 WRITE(emess,*)'nl_get_auxhist11_interval: Out of range domain number: ',id_id
4135 CALL wrf_error_fatal(emess)
4136 ENDIF
4137 auxhist11_interval = model_config_rec%auxhist11_interval(id_id)
4138 RETURN
4139 END SUBROUTINE nl_get_auxhist11_interval
4140 SUBROUTINE nl_get_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
4141 integer , INTENT(OUT) :: auxinput1_interval_mo
4142 INTEGER id_id
4143 CHARACTER*80 emess
4144 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4145 WRITE(emess,*)'nl_get_auxinput1_interval_mo: Out of range domain number: ',id_id
4146 CALL wrf_error_fatal(emess)
4147 ENDIF
4148 auxinput1_interval_mo = model_config_rec%auxinput1_interval_mo(id_id)
4149 RETURN
4150 END SUBROUTINE nl_get_auxinput1_interval_mo
4151 SUBROUTINE nl_get_auxinput1_interval_d ( id_id , auxinput1_interval_d )
4152 integer , INTENT(OUT) :: auxinput1_interval_d
4153 INTEGER id_id
4154 CHARACTER*80 emess
4155 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4156 WRITE(emess,*)'nl_get_auxinput1_interval_d: Out of range domain number: ',id_id
4157 CALL wrf_error_fatal(emess)
4158 ENDIF
4159 auxinput1_interval_d = model_config_rec%auxinput1_interval_d(id_id)
4160 RETURN
4161 END SUBROUTINE nl_get_auxinput1_interval_d
4162 SUBROUTINE nl_get_auxinput1_interval_h ( id_id , auxinput1_interval_h )
4163 integer , INTENT(OUT) :: auxinput1_interval_h
4164 INTEGER id_id
4165 CHARACTER*80 emess
4166 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4167 WRITE(emess,*)'nl_get_auxinput1_interval_h: Out of range domain number: ',id_id
4168 CALL wrf_error_fatal(emess)
4169 ENDIF
4170 auxinput1_interval_h = model_config_rec%auxinput1_interval_h(id_id)
4171 RETURN
4172 END SUBROUTINE nl_get_auxinput1_interval_h
4173 SUBROUTINE nl_get_auxinput1_interval_m ( id_id , auxinput1_interval_m )
4174 integer , INTENT(OUT) :: auxinput1_interval_m
4175 INTEGER id_id
4176 CHARACTER*80 emess
4177 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4178 WRITE(emess,*)'nl_get_auxinput1_interval_m: Out of range domain number: ',id_id
4179 CALL wrf_error_fatal(emess)
4180 ENDIF
4181 auxinput1_interval_m = model_config_rec%auxinput1_interval_m(id_id)
4182 RETURN
4183 END SUBROUTINE nl_get_auxinput1_interval_m
4184 SUBROUTINE nl_get_auxinput1_interval_s ( id_id , auxinput1_interval_s )
4185 integer , INTENT(OUT) :: auxinput1_interval_s
4186 INTEGER id_id
4187 CHARACTER*80 emess
4188 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4189 WRITE(emess,*)'nl_get_auxinput1_interval_s: Out of range domain number: ',id_id
4190 CALL wrf_error_fatal(emess)
4191 ENDIF
4192 auxinput1_interval_s = model_config_rec%auxinput1_interval_s(id_id)
4193 RETURN
4194 END SUBROUTINE nl_get_auxinput1_interval_s
4195 SUBROUTINE nl_get_auxinput1_interval ( id_id , auxinput1_interval )
4196 integer , INTENT(OUT) :: auxinput1_interval
4197 INTEGER id_id
4198 CHARACTER*80 emess
4199 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4200 WRITE(emess,*)'nl_get_auxinput1_interval: Out of range domain number: ',id_id
4201 CALL wrf_error_fatal(emess)
4202 ENDIF
4203 auxinput1_interval = model_config_rec%auxinput1_interval(id_id)
4204 RETURN
4205 END SUBROUTINE nl_get_auxinput1_interval
4206 SUBROUTINE nl_get_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
4207 integer , INTENT(OUT) :: auxinput2_interval_mo
4208 INTEGER id_id
4209 CHARACTER*80 emess
4210 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4211 WRITE(emess,*)'nl_get_auxinput2_interval_mo: Out of range domain number: ',id_id
4212 CALL wrf_error_fatal(emess)
4213 ENDIF
4214 auxinput2_interval_mo = model_config_rec%auxinput2_interval_mo(id_id)
4215 RETURN
4216 END SUBROUTINE nl_get_auxinput2_interval_mo
4217 SUBROUTINE nl_get_auxinput2_interval_d ( id_id , auxinput2_interval_d )
4218 integer , INTENT(OUT) :: auxinput2_interval_d
4219 INTEGER id_id
4220 CHARACTER*80 emess
4221 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4222 WRITE(emess,*)'nl_get_auxinput2_interval_d: Out of range domain number: ',id_id
4223 CALL wrf_error_fatal(emess)
4224 ENDIF
4225 auxinput2_interval_d = model_config_rec%auxinput2_interval_d(id_id)
4226 RETURN
4227 END SUBROUTINE nl_get_auxinput2_interval_d
4228 SUBROUTINE nl_get_auxinput2_interval_h ( id_id , auxinput2_interval_h )
4229 integer , INTENT(OUT) :: auxinput2_interval_h
4230 INTEGER id_id
4231 CHARACTER*80 emess
4232 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4233 WRITE(emess,*)'nl_get_auxinput2_interval_h: Out of range domain number: ',id_id
4234 CALL wrf_error_fatal(emess)
4235 ENDIF
4236 auxinput2_interval_h = model_config_rec%auxinput2_interval_h(id_id)
4237 RETURN
4238 END SUBROUTINE nl_get_auxinput2_interval_h
4239 SUBROUTINE nl_get_auxinput2_interval_m ( id_id , auxinput2_interval_m )
4240 integer , INTENT(OUT) :: auxinput2_interval_m
4241 INTEGER id_id
4242 CHARACTER*80 emess
4243 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4244 WRITE(emess,*)'nl_get_auxinput2_interval_m: Out of range domain number: ',id_id
4245 CALL wrf_error_fatal(emess)
4246 ENDIF
4247 auxinput2_interval_m = model_config_rec%auxinput2_interval_m(id_id)
4248 RETURN
4249 END SUBROUTINE nl_get_auxinput2_interval_m
4250 SUBROUTINE nl_get_auxinput2_interval_s ( id_id , auxinput2_interval_s )
4251 integer , INTENT(OUT) :: auxinput2_interval_s
4252 INTEGER id_id
4253 CHARACTER*80 emess
4254 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4255 WRITE(emess,*)'nl_get_auxinput2_interval_s: Out of range domain number: ',id_id
4256 CALL wrf_error_fatal(emess)
4257 ENDIF
4258 auxinput2_interval_s = model_config_rec%auxinput2_interval_s(id_id)
4259 RETURN
4260 END SUBROUTINE nl_get_auxinput2_interval_s
4261 SUBROUTINE nl_get_auxinput2_interval ( id_id , auxinput2_interval )
4262 integer , INTENT(OUT) :: auxinput2_interval
4263 INTEGER id_id
4264 CHARACTER*80 emess
4265 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4266 WRITE(emess,*)'nl_get_auxinput2_interval: Out of range domain number: ',id_id
4267 CALL wrf_error_fatal(emess)
4268 ENDIF
4269 auxinput2_interval = model_config_rec%auxinput2_interval(id_id)
4270 RETURN
4271 END SUBROUTINE nl_get_auxinput2_interval
4272 SUBROUTINE nl_get_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
4273 integer , INTENT(OUT) :: auxinput3_interval_mo
4274 INTEGER id_id
4275 CHARACTER*80 emess
4276 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4277 WRITE(emess,*)'nl_get_auxinput3_interval_mo: Out of range domain number: ',id_id
4278 CALL wrf_error_fatal(emess)
4279 ENDIF
4280 auxinput3_interval_mo = model_config_rec%auxinput3_interval_mo(id_id)
4281 RETURN
4282 END SUBROUTINE nl_get_auxinput3_interval_mo
4283 SUBROUTINE nl_get_auxinput3_interval_d ( id_id , auxinput3_interval_d )
4284 integer , INTENT(OUT) :: auxinput3_interval_d
4285 INTEGER id_id
4286 CHARACTER*80 emess
4287 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4288 WRITE(emess,*)'nl_get_auxinput3_interval_d: Out of range domain number: ',id_id
4289 CALL wrf_error_fatal(emess)
4290 ENDIF
4291 auxinput3_interval_d = model_config_rec%auxinput3_interval_d(id_id)
4292 RETURN
4293 END SUBROUTINE nl_get_auxinput3_interval_d
4294 SUBROUTINE nl_get_auxinput3_interval_h ( id_id , auxinput3_interval_h )
4295 integer , INTENT(OUT) :: auxinput3_interval_h
4296 INTEGER id_id
4297 CHARACTER*80 emess
4298 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4299 WRITE(emess,*)'nl_get_auxinput3_interval_h: Out of range domain number: ',id_id
4300 CALL wrf_error_fatal(emess)
4301 ENDIF
4302 auxinput3_interval_h = model_config_rec%auxinput3_interval_h(id_id)
4303 RETURN
4304 END SUBROUTINE nl_get_auxinput3_interval_h
4305 SUBROUTINE nl_get_auxinput3_interval_m ( id_id , auxinput3_interval_m )
4306 integer , INTENT(OUT) :: auxinput3_interval_m
4307 INTEGER id_id
4308 CHARACTER*80 emess
4309 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4310 WRITE(emess,*)'nl_get_auxinput3_interval_m: Out of range domain number: ',id_id
4311 CALL wrf_error_fatal(emess)
4312 ENDIF
4313 auxinput3_interval_m = model_config_rec%auxinput3_interval_m(id_id)
4314 RETURN
4315 END SUBROUTINE nl_get_auxinput3_interval_m
4316 SUBROUTINE nl_get_auxinput3_interval_s ( id_id , auxinput3_interval_s )
4317 integer , INTENT(OUT) :: auxinput3_interval_s
4318 INTEGER id_id
4319 CHARACTER*80 emess
4320 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4321 WRITE(emess,*)'nl_get_auxinput3_interval_s: Out of range domain number: ',id_id
4322 CALL wrf_error_fatal(emess)
4323 ENDIF
4324 auxinput3_interval_s = model_config_rec%auxinput3_interval_s(id_id)
4325 RETURN
4326 END SUBROUTINE nl_get_auxinput3_interval_s
4327 SUBROUTINE nl_get_auxinput3_interval ( id_id , auxinput3_interval )
4328 integer , INTENT(OUT) :: auxinput3_interval
4329 INTEGER id_id
4330 CHARACTER*80 emess
4331 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4332 WRITE(emess,*)'nl_get_auxinput3_interval: Out of range domain number: ',id_id
4333 CALL wrf_error_fatal(emess)
4334 ENDIF
4335 auxinput3_interval = model_config_rec%auxinput3_interval(id_id)
4336 RETURN
4337 END SUBROUTINE nl_get_auxinput3_interval
4338 SUBROUTINE nl_get_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
4339 integer , INTENT(OUT) :: auxinput4_interval_mo
4340 INTEGER id_id
4341 CHARACTER*80 emess
4342 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4343 WRITE(emess,*)'nl_get_auxinput4_interval_mo: Out of range domain number: ',id_id
4344 CALL wrf_error_fatal(emess)
4345 ENDIF
4346 auxinput4_interval_mo = model_config_rec%auxinput4_interval_mo(id_id)
4347 RETURN
4348 END SUBROUTINE nl_get_auxinput4_interval_mo
4349 SUBROUTINE nl_get_auxinput4_interval_d ( id_id , auxinput4_interval_d )
4350 integer , INTENT(OUT) :: auxinput4_interval_d
4351 INTEGER id_id
4352 CHARACTER*80 emess
4353 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4354 WRITE(emess,*)'nl_get_auxinput4_interval_d: Out of range domain number: ',id_id
4355 CALL wrf_error_fatal(emess)
4356 ENDIF
4357 auxinput4_interval_d = model_config_rec%auxinput4_interval_d(id_id)
4358 RETURN
4359 END SUBROUTINE nl_get_auxinput4_interval_d
4360 SUBROUTINE nl_get_auxinput4_interval_h ( id_id , auxinput4_interval_h )
4361 integer , INTENT(OUT) :: auxinput4_interval_h
4362 INTEGER id_id
4363 CHARACTER*80 emess
4364 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4365 WRITE(emess,*)'nl_get_auxinput4_interval_h: Out of range domain number: ',id_id
4366 CALL wrf_error_fatal(emess)
4367 ENDIF
4368 auxinput4_interval_h = model_config_rec%auxinput4_interval_h(id_id)
4369 RETURN
4370 END SUBROUTINE nl_get_auxinput4_interval_h
4371 SUBROUTINE nl_get_auxinput4_interval_m ( id_id , auxinput4_interval_m )
4372 integer , INTENT(OUT) :: auxinput4_interval_m
4373 INTEGER id_id
4374 CHARACTER*80 emess
4375 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4376 WRITE(emess,*)'nl_get_auxinput4_interval_m: Out of range domain number: ',id_id
4377 CALL wrf_error_fatal(emess)
4378 ENDIF
4379 auxinput4_interval_m = model_config_rec%auxinput4_interval_m(id_id)
4380 RETURN
4381 END SUBROUTINE nl_get_auxinput4_interval_m
4382 SUBROUTINE nl_get_auxinput4_interval_s ( id_id , auxinput4_interval_s )
4383 integer , INTENT(OUT) :: auxinput4_interval_s
4384 INTEGER id_id
4385 CHARACTER*80 emess
4386 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4387 WRITE(emess,*)'nl_get_auxinput4_interval_s: Out of range domain number: ',id_id
4388 CALL wrf_error_fatal(emess)
4389 ENDIF
4390 auxinput4_interval_s = model_config_rec%auxinput4_interval_s(id_id)
4391 RETURN
4392 END SUBROUTINE nl_get_auxinput4_interval_s
4393 SUBROUTINE nl_get_auxinput4_interval ( id_id , auxinput4_interval )
4394 integer , INTENT(OUT) :: auxinput4_interval
4395 INTEGER id_id
4396 CHARACTER*80 emess
4397 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4398 WRITE(emess,*)'nl_get_auxinput4_interval: Out of range domain number: ',id_id
4399 CALL wrf_error_fatal(emess)
4400 ENDIF
4401 auxinput4_interval = model_config_rec%auxinput4_interval(id_id)
4402 RETURN
4403 END SUBROUTINE nl_get_auxinput4_interval
4404 SUBROUTINE nl_get_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
4405 integer , INTENT(OUT) :: auxinput5_interval_mo
4406 INTEGER id_id
4407 CHARACTER*80 emess
4408 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4409 WRITE(emess,*)'nl_get_auxinput5_interval_mo: Out of range domain number: ',id_id
4410 CALL wrf_error_fatal(emess)
4411 ENDIF
4412 auxinput5_interval_mo = model_config_rec%auxinput5_interval_mo(id_id)
4413 RETURN
4414 END SUBROUTINE nl_get_auxinput5_interval_mo
4415 SUBROUTINE nl_get_auxinput5_interval_d ( id_id , auxinput5_interval_d )
4416 integer , INTENT(OUT) :: auxinput5_interval_d
4417 INTEGER id_id
4418 CHARACTER*80 emess
4419 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4420 WRITE(emess,*)'nl_get_auxinput5_interval_d: Out of range domain number: ',id_id
4421 CALL wrf_error_fatal(emess)
4422 ENDIF
4423 auxinput5_interval_d = model_config_rec%auxinput5_interval_d(id_id)
4424 RETURN
4425 END SUBROUTINE nl_get_auxinput5_interval_d
4426 SUBROUTINE nl_get_auxinput5_interval_h ( id_id , auxinput5_interval_h )
4427 integer , INTENT(OUT) :: auxinput5_interval_h
4428 INTEGER id_id
4429 CHARACTER*80 emess
4430 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4431 WRITE(emess,*)'nl_get_auxinput5_interval_h: Out of range domain number: ',id_id
4432 CALL wrf_error_fatal(emess)
4433 ENDIF
4434 auxinput5_interval_h = model_config_rec%auxinput5_interval_h(id_id)
4435 RETURN
4436 END SUBROUTINE nl_get_auxinput5_interval_h
4437 SUBROUTINE nl_get_auxinput5_interval_m ( id_id , auxinput5_interval_m )
4438 integer , INTENT(OUT) :: auxinput5_interval_m
4439 INTEGER id_id
4440 CHARACTER*80 emess
4441 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4442 WRITE(emess,*)'nl_get_auxinput5_interval_m: Out of range domain number: ',id_id
4443 CALL wrf_error_fatal(emess)
4444 ENDIF
4445 auxinput5_interval_m = model_config_rec%auxinput5_interval_m(id_id)
4446 RETURN
4447 END SUBROUTINE nl_get_auxinput5_interval_m
4448 SUBROUTINE nl_get_auxinput5_interval_s ( id_id , auxinput5_interval_s )
4449 integer , INTENT(OUT) :: auxinput5_interval_s
4450 INTEGER id_id
4451 CHARACTER*80 emess
4452 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4453 WRITE(emess,*)'nl_get_auxinput5_interval_s: Out of range domain number: ',id_id
4454 CALL wrf_error_fatal(emess)
4455 ENDIF
4456 auxinput5_interval_s = model_config_rec%auxinput5_interval_s(id_id)
4457 RETURN
4458 END SUBROUTINE nl_get_auxinput5_interval_s
4459 SUBROUTINE nl_get_auxinput5_interval ( id_id , auxinput5_interval )
4460 integer , INTENT(OUT) :: auxinput5_interval
4461 INTEGER id_id
4462 CHARACTER*80 emess
4463 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4464 WRITE(emess,*)'nl_get_auxinput5_interval: Out of range domain number: ',id_id
4465 CALL wrf_error_fatal(emess)
4466 ENDIF
4467 auxinput5_interval = model_config_rec%auxinput5_interval(id_id)
4468 RETURN
4469 END SUBROUTINE nl_get_auxinput5_interval
4470 SUBROUTINE nl_get_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
4471 integer , INTENT(OUT) :: auxinput6_interval_mo
4472 INTEGER id_id
4473 CHARACTER*80 emess
4474 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4475 WRITE(emess,*)'nl_get_auxinput6_interval_mo: Out of range domain number: ',id_id
4476 CALL wrf_error_fatal(emess)
4477 ENDIF
4478 auxinput6_interval_mo = model_config_rec%auxinput6_interval_mo(id_id)
4479 RETURN
4480 END SUBROUTINE nl_get_auxinput6_interval_mo
4481 SUBROUTINE nl_get_auxinput6_interval_d ( id_id , auxinput6_interval_d )
4482 integer , INTENT(OUT) :: auxinput6_interval_d
4483 INTEGER id_id
4484 CHARACTER*80 emess
4485 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4486 WRITE(emess,*)'nl_get_auxinput6_interval_d: Out of range domain number: ',id_id
4487 CALL wrf_error_fatal(emess)
4488 ENDIF
4489 auxinput6_interval_d = model_config_rec%auxinput6_interval_d(id_id)
4490 RETURN
4491 END SUBROUTINE nl_get_auxinput6_interval_d
4492 SUBROUTINE nl_get_auxinput6_interval_h ( id_id , auxinput6_interval_h )
4493 integer , INTENT(OUT) :: auxinput6_interval_h
4494 INTEGER id_id
4495 CHARACTER*80 emess
4496 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4497 WRITE(emess,*)'nl_get_auxinput6_interval_h: Out of range domain number: ',id_id
4498 CALL wrf_error_fatal(emess)
4499 ENDIF
4500 auxinput6_interval_h = model_config_rec%auxinput6_interval_h(id_id)
4501 RETURN
4502 END SUBROUTINE nl_get_auxinput6_interval_h
4503 SUBROUTINE nl_get_auxinput6_interval_m ( id_id , auxinput6_interval_m )
4504 integer , INTENT(OUT) :: auxinput6_interval_m
4505 INTEGER id_id
4506 CHARACTER*80 emess
4507 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4508 WRITE(emess,*)'nl_get_auxinput6_interval_m: Out of range domain number: ',id_id
4509 CALL wrf_error_fatal(emess)
4510 ENDIF
4511 auxinput6_interval_m = model_config_rec%auxinput6_interval_m(id_id)
4512 RETURN
4513 END SUBROUTINE nl_get_auxinput6_interval_m
4514 SUBROUTINE nl_get_auxinput6_interval_s ( id_id , auxinput6_interval_s )
4515 integer , INTENT(OUT) :: auxinput6_interval_s
4516 INTEGER id_id
4517 CHARACTER*80 emess
4518 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4519 WRITE(emess,*)'nl_get_auxinput6_interval_s: Out of range domain number: ',id_id
4520 CALL wrf_error_fatal(emess)
4521 ENDIF
4522 auxinput6_interval_s = model_config_rec%auxinput6_interval_s(id_id)
4523 RETURN
4524 END SUBROUTINE nl_get_auxinput6_interval_s
4525 SUBROUTINE nl_get_auxinput6_interval ( id_id , auxinput6_interval )
4526 integer , INTENT(OUT) :: auxinput6_interval
4527 INTEGER id_id
4528 CHARACTER*80 emess
4529 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4530 WRITE(emess,*)'nl_get_auxinput6_interval: Out of range domain number: ',id_id
4531 CALL wrf_error_fatal(emess)
4532 ENDIF
4533 auxinput6_interval = model_config_rec%auxinput6_interval(id_id)
4534 RETURN
4535 END SUBROUTINE nl_get_auxinput6_interval
4536 SUBROUTINE nl_get_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
4537 integer , INTENT(OUT) :: auxinput7_interval_mo
4538 INTEGER id_id
4539 CHARACTER*80 emess
4540 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4541 WRITE(emess,*)'nl_get_auxinput7_interval_mo: Out of range domain number: ',id_id
4542 CALL wrf_error_fatal(emess)
4543 ENDIF
4544 auxinput7_interval_mo = model_config_rec%auxinput7_interval_mo(id_id)
4545 RETURN
4546 END SUBROUTINE nl_get_auxinput7_interval_mo
4547 SUBROUTINE nl_get_auxinput7_interval_d ( id_id , auxinput7_interval_d )
4548 integer , INTENT(OUT) :: auxinput7_interval_d
4549 INTEGER id_id
4550 CHARACTER*80 emess
4551 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4552 WRITE(emess,*)'nl_get_auxinput7_interval_d: Out of range domain number: ',id_id
4553 CALL wrf_error_fatal(emess)
4554 ENDIF
4555 auxinput7_interval_d = model_config_rec%auxinput7_interval_d(id_id)
4556 RETURN
4557 END SUBROUTINE nl_get_auxinput7_interval_d
4558 SUBROUTINE nl_get_auxinput7_interval_h ( id_id , auxinput7_interval_h )
4559 integer , INTENT(OUT) :: auxinput7_interval_h
4560 INTEGER id_id
4561 CHARACTER*80 emess
4562 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4563 WRITE(emess,*)'nl_get_auxinput7_interval_h: Out of range domain number: ',id_id
4564 CALL wrf_error_fatal(emess)
4565 ENDIF
4566 auxinput7_interval_h = model_config_rec%auxinput7_interval_h(id_id)
4567 RETURN
4568 END SUBROUTINE nl_get_auxinput7_interval_h
4569 SUBROUTINE nl_get_auxinput7_interval_m ( id_id , auxinput7_interval_m )
4570 integer , INTENT(OUT) :: auxinput7_interval_m
4571 INTEGER id_id
4572 CHARACTER*80 emess
4573 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4574 WRITE(emess,*)'nl_get_auxinput7_interval_m: Out of range domain number: ',id_id
4575 CALL wrf_error_fatal(emess)
4576 ENDIF
4577 auxinput7_interval_m = model_config_rec%auxinput7_interval_m(id_id)
4578 RETURN
4579 END SUBROUTINE nl_get_auxinput7_interval_m
4580 SUBROUTINE nl_get_auxinput7_interval_s ( id_id , auxinput7_interval_s )
4581 integer , INTENT(OUT) :: auxinput7_interval_s
4582 INTEGER id_id
4583 CHARACTER*80 emess
4584 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4585 WRITE(emess,*)'nl_get_auxinput7_interval_s: Out of range domain number: ',id_id
4586 CALL wrf_error_fatal(emess)
4587 ENDIF
4588 auxinput7_interval_s = model_config_rec%auxinput7_interval_s(id_id)
4589 RETURN
4590 END SUBROUTINE nl_get_auxinput7_interval_s
4591 SUBROUTINE nl_get_auxinput7_interval ( id_id , auxinput7_interval )
4592 integer , INTENT(OUT) :: auxinput7_interval
4593 INTEGER id_id
4594 CHARACTER*80 emess
4595 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4596 WRITE(emess,*)'nl_get_auxinput7_interval: Out of range domain number: ',id_id
4597 CALL wrf_error_fatal(emess)
4598 ENDIF
4599 auxinput7_interval = model_config_rec%auxinput7_interval(id_id)
4600 RETURN
4601 END SUBROUTINE nl_get_auxinput7_interval
4602 SUBROUTINE nl_get_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
4603 integer , INTENT(OUT) :: auxinput8_interval_mo
4604 INTEGER id_id
4605 CHARACTER*80 emess
4606 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4607 WRITE(emess,*)'nl_get_auxinput8_interval_mo: Out of range domain number: ',id_id
4608 CALL wrf_error_fatal(emess)
4609 ENDIF
4610 auxinput8_interval_mo = model_config_rec%auxinput8_interval_mo(id_id)
4611 RETURN
4612 END SUBROUTINE nl_get_auxinput8_interval_mo
4613 SUBROUTINE nl_get_auxinput8_interval_d ( id_id , auxinput8_interval_d )
4614 integer , INTENT(OUT) :: auxinput8_interval_d
4615 INTEGER id_id
4616 CHARACTER*80 emess
4617 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4618 WRITE(emess,*)'nl_get_auxinput8_interval_d: Out of range domain number: ',id_id
4619 CALL wrf_error_fatal(emess)
4620 ENDIF
4621 auxinput8_interval_d = model_config_rec%auxinput8_interval_d(id_id)
4622 RETURN
4623 END SUBROUTINE nl_get_auxinput8_interval_d
4624 SUBROUTINE nl_get_auxinput8_interval_h ( id_id , auxinput8_interval_h )
4625 integer , INTENT(OUT) :: auxinput8_interval_h
4626 INTEGER id_id
4627 CHARACTER*80 emess
4628 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4629 WRITE(emess,*)'nl_get_auxinput8_interval_h: Out of range domain number: ',id_id
4630 CALL wrf_error_fatal(emess)
4631 ENDIF
4632 auxinput8_interval_h = model_config_rec%auxinput8_interval_h(id_id)
4633 RETURN
4634 END SUBROUTINE nl_get_auxinput8_interval_h
4635 SUBROUTINE nl_get_auxinput8_interval_m ( id_id , auxinput8_interval_m )
4636 integer , INTENT(OUT) :: auxinput8_interval_m
4637 INTEGER id_id
4638 CHARACTER*80 emess
4639 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4640 WRITE(emess,*)'nl_get_auxinput8_interval_m: Out of range domain number: ',id_id
4641 CALL wrf_error_fatal(emess)
4642 ENDIF
4643 auxinput8_interval_m = model_config_rec%auxinput8_interval_m(id_id)
4644 RETURN
4645 END SUBROUTINE nl_get_auxinput8_interval_m
4646 SUBROUTINE nl_get_auxinput8_interval_s ( id_id , auxinput8_interval_s )
4647 integer , INTENT(OUT) :: auxinput8_interval_s
4648 INTEGER id_id
4649 CHARACTER*80 emess
4650 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4651 WRITE(emess,*)'nl_get_auxinput8_interval_s: Out of range domain number: ',id_id
4652 CALL wrf_error_fatal(emess)
4653 ENDIF
4654 auxinput8_interval_s = model_config_rec%auxinput8_interval_s(id_id)
4655 RETURN
4656 END SUBROUTINE nl_get_auxinput8_interval_s
4657 SUBROUTINE nl_get_auxinput8_interval ( id_id , auxinput8_interval )
4658 integer , INTENT(OUT) :: auxinput8_interval
4659 INTEGER id_id
4660 CHARACTER*80 emess
4661 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4662 WRITE(emess,*)'nl_get_auxinput8_interval: Out of range domain number: ',id_id
4663 CALL wrf_error_fatal(emess)
4664 ENDIF
4665 auxinput8_interval = model_config_rec%auxinput8_interval(id_id)
4666 RETURN
4667 END SUBROUTINE nl_get_auxinput8_interval
4668 SUBROUTINE nl_get_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
4669 integer , INTENT(OUT) :: auxinput9_interval_mo
4670 INTEGER id_id
4671 CHARACTER*80 emess
4672 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4673 WRITE(emess,*)'nl_get_auxinput9_interval_mo: Out of range domain number: ',id_id
4674 CALL wrf_error_fatal(emess)
4675 ENDIF
4676 auxinput9_interval_mo = model_config_rec%auxinput9_interval_mo(id_id)
4677 RETURN
4678 END SUBROUTINE nl_get_auxinput9_interval_mo
4679 SUBROUTINE nl_get_auxinput9_interval_d ( id_id , auxinput9_interval_d )
4680 integer , INTENT(OUT) :: auxinput9_interval_d
4681 INTEGER id_id
4682 CHARACTER*80 emess
4683 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4684 WRITE(emess,*)'nl_get_auxinput9_interval_d: Out of range domain number: ',id_id
4685 CALL wrf_error_fatal(emess)
4686 ENDIF
4687 auxinput9_interval_d = model_config_rec%auxinput9_interval_d(id_id)
4688 RETURN
4689 END SUBROUTINE nl_get_auxinput9_interval_d
4690 SUBROUTINE nl_get_auxinput9_interval_h ( id_id , auxinput9_interval_h )
4691 integer , INTENT(OUT) :: auxinput9_interval_h
4692 INTEGER id_id
4693 CHARACTER*80 emess
4694 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4695 WRITE(emess,*)'nl_get_auxinput9_interval_h: Out of range domain number: ',id_id
4696 CALL wrf_error_fatal(emess)
4697 ENDIF
4698 auxinput9_interval_h = model_config_rec%auxinput9_interval_h(id_id)
4699 RETURN
4700 END SUBROUTINE nl_get_auxinput9_interval_h
4701 SUBROUTINE nl_get_auxinput9_interval_m ( id_id , auxinput9_interval_m )
4702 integer , INTENT(OUT) :: auxinput9_interval_m
4703 INTEGER id_id
4704 CHARACTER*80 emess
4705 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4706 WRITE(emess,*)'nl_get_auxinput9_interval_m: Out of range domain number: ',id_id
4707 CALL wrf_error_fatal(emess)
4708 ENDIF
4709 auxinput9_interval_m = model_config_rec%auxinput9_interval_m(id_id)
4710 RETURN
4711 END SUBROUTINE nl_get_auxinput9_interval_m
4712 SUBROUTINE nl_get_auxinput9_interval_s ( id_id , auxinput9_interval_s )
4713 integer , INTENT(OUT) :: auxinput9_interval_s
4714 INTEGER id_id
4715 CHARACTER*80 emess
4716 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4717 WRITE(emess,*)'nl_get_auxinput9_interval_s: Out of range domain number: ',id_id
4718 CALL wrf_error_fatal(emess)
4719 ENDIF
4720 auxinput9_interval_s = model_config_rec%auxinput9_interval_s(id_id)
4721 RETURN
4722 END SUBROUTINE nl_get_auxinput9_interval_s
4723 SUBROUTINE nl_get_auxinput9_interval ( id_id , auxinput9_interval )
4724 integer , INTENT(OUT) :: auxinput9_interval
4725 INTEGER id_id
4726 CHARACTER*80 emess
4727 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4728 WRITE(emess,*)'nl_get_auxinput9_interval: Out of range domain number: ',id_id
4729 CALL wrf_error_fatal(emess)
4730 ENDIF
4731 auxinput9_interval = model_config_rec%auxinput9_interval(id_id)
4732 RETURN
4733 END SUBROUTINE nl_get_auxinput9_interval
4734 SUBROUTINE nl_get_gfdda_interval_mo ( id_id , gfdda_interval_mo )
4735 integer , INTENT(OUT) :: gfdda_interval_mo
4736 INTEGER id_id
4737 CHARACTER*80 emess
4738 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4739 WRITE(emess,*)'nl_get_gfdda_interval_mo: Out of range domain number: ',id_id
4740 CALL wrf_error_fatal(emess)
4741 ENDIF
4742 gfdda_interval_mo = model_config_rec%gfdda_interval_mo(id_id)
4743 RETURN
4744 END SUBROUTINE nl_get_gfdda_interval_mo
4745 SUBROUTINE nl_get_gfdda_interval_d ( id_id , gfdda_interval_d )
4746 integer , INTENT(OUT) :: gfdda_interval_d
4747 INTEGER id_id
4748 CHARACTER*80 emess
4749 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4750 WRITE(emess,*)'nl_get_gfdda_interval_d: Out of range domain number: ',id_id
4751 CALL wrf_error_fatal(emess)
4752 ENDIF
4753 gfdda_interval_d = model_config_rec%gfdda_interval_d(id_id)
4754 RETURN
4755 END SUBROUTINE nl_get_gfdda_interval_d
4756 SUBROUTINE nl_get_gfdda_interval_h ( id_id , gfdda_interval_h )
4757 integer , INTENT(OUT) :: gfdda_interval_h
4758 INTEGER id_id
4759 CHARACTER*80 emess
4760 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4761 WRITE(emess,*)'nl_get_gfdda_interval_h: Out of range domain number: ',id_id
4762 CALL wrf_error_fatal(emess)
4763 ENDIF
4764 gfdda_interval_h = model_config_rec%gfdda_interval_h(id_id)
4765 RETURN
4766 END SUBROUTINE nl_get_gfdda_interval_h
4767 SUBROUTINE nl_get_gfdda_interval_m ( id_id , gfdda_interval_m )
4768 integer , INTENT(OUT) :: gfdda_interval_m
4769 INTEGER id_id
4770 CHARACTER*80 emess
4771 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4772 WRITE(emess,*)'nl_get_gfdda_interval_m: Out of range domain number: ',id_id
4773 CALL wrf_error_fatal(emess)
4774 ENDIF
4775 gfdda_interval_m = model_config_rec%gfdda_interval_m(id_id)
4776 RETURN
4777 END SUBROUTINE nl_get_gfdda_interval_m
4778 SUBROUTINE nl_get_gfdda_interval_s ( id_id , gfdda_interval_s )
4779 integer , INTENT(OUT) :: gfdda_interval_s
4780 INTEGER id_id
4781 CHARACTER*80 emess
4782 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4783 WRITE(emess,*)'nl_get_gfdda_interval_s: Out of range domain number: ',id_id
4784 CALL wrf_error_fatal(emess)
4785 ENDIF
4786 gfdda_interval_s = model_config_rec%gfdda_interval_s(id_id)
4787 RETURN
4788 END SUBROUTINE nl_get_gfdda_interval_s
4789 SUBROUTINE nl_get_gfdda_interval ( id_id , gfdda_interval )
4790 integer , INTENT(OUT) :: gfdda_interval
4791 INTEGER id_id
4792 CHARACTER*80 emess
4793 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4794 WRITE(emess,*)'nl_get_gfdda_interval: Out of range domain number: ',id_id
4795 CALL wrf_error_fatal(emess)
4796 ENDIF
4797 gfdda_interval = model_config_rec%gfdda_interval(id_id)
4798 RETURN
4799 END SUBROUTINE nl_get_gfdda_interval
4800 SUBROUTINE nl_get_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
4801 integer , INTENT(OUT) :: auxinput11_interval_mo
4802 INTEGER id_id
4803 CHARACTER*80 emess
4804 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4805 WRITE(emess,*)'nl_get_auxinput11_interval_mo: Out of range domain number: ',id_id
4806 CALL wrf_error_fatal(emess)
4807 ENDIF
4808 auxinput11_interval_mo = model_config_rec%auxinput11_interval_mo(id_id)
4809 RETURN
4810 END SUBROUTINE nl_get_auxinput11_interval_mo
4811 SUBROUTINE nl_get_auxinput11_interval_d ( id_id , auxinput11_interval_d )
4812 integer , INTENT(OUT) :: auxinput11_interval_d
4813 INTEGER id_id
4814 CHARACTER*80 emess
4815 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4816 WRITE(emess,*)'nl_get_auxinput11_interval_d: Out of range domain number: ',id_id
4817 CALL wrf_error_fatal(emess)
4818 ENDIF
4819 auxinput11_interval_d = model_config_rec%auxinput11_interval_d(id_id)
4820 RETURN
4821 END SUBROUTINE nl_get_auxinput11_interval_d
4822 SUBROUTINE nl_get_auxinput11_interval_h ( id_id , auxinput11_interval_h )
4823 integer , INTENT(OUT) :: auxinput11_interval_h
4824 INTEGER id_id
4825 CHARACTER*80 emess
4826 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4827 WRITE(emess,*)'nl_get_auxinput11_interval_h: Out of range domain number: ',id_id
4828 CALL wrf_error_fatal(emess)
4829 ENDIF
4830 auxinput11_interval_h = model_config_rec%auxinput11_interval_h(id_id)
4831 RETURN
4832 END SUBROUTINE nl_get_auxinput11_interval_h
4833 SUBROUTINE nl_get_auxinput11_interval_m ( id_id , auxinput11_interval_m )
4834 integer , INTENT(OUT) :: auxinput11_interval_m
4835 INTEGER id_id
4836 CHARACTER*80 emess
4837 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4838 WRITE(emess,*)'nl_get_auxinput11_interval_m: Out of range domain number: ',id_id
4839 CALL wrf_error_fatal(emess)
4840 ENDIF
4841 auxinput11_interval_m = model_config_rec%auxinput11_interval_m(id_id)
4842 RETURN
4843 END SUBROUTINE nl_get_auxinput11_interval_m
4844 SUBROUTINE nl_get_auxinput11_interval_s ( id_id , auxinput11_interval_s )
4845 integer , INTENT(OUT) :: auxinput11_interval_s
4846 INTEGER id_id
4847 CHARACTER*80 emess
4848 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4849 WRITE(emess,*)'nl_get_auxinput11_interval_s: Out of range domain number: ',id_id
4850 CALL wrf_error_fatal(emess)
4851 ENDIF
4852 auxinput11_interval_s = model_config_rec%auxinput11_interval_s(id_id)
4853 RETURN
4854 END SUBROUTINE nl_get_auxinput11_interval_s
4855 SUBROUTINE nl_get_auxinput11_interval ( id_id , auxinput11_interval )
4856 integer , INTENT(OUT) :: auxinput11_interval
4857 INTEGER id_id
4858 CHARACTER*80 emess
4859 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4860 WRITE(emess,*)'nl_get_auxinput11_interval: Out of range domain number: ',id_id
4861 CALL wrf_error_fatal(emess)
4862 ENDIF
4863 auxinput11_interval = model_config_rec%auxinput11_interval(id_id)
4864 RETURN
4865 END SUBROUTINE nl_get_auxinput11_interval
4866 SUBROUTINE nl_get_restart_interval_mo ( id_id , restart_interval_mo )
4867 integer , INTENT(OUT) :: restart_interval_mo
4868 INTEGER id_id
4869 CHARACTER*80 emess
4870 IF ( id_id .NE. 1 ) THEN
4871 call wrf_debug(1,&
4872 'WARNING in nl_get_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
4873 ENDIF
4874 restart_interval_mo = model_config_rec%restart_interval_mo
4875 RETURN
4876 END SUBROUTINE nl_get_restart_interval_mo
4877 SUBROUTINE nl_get_restart_interval_d ( id_id , restart_interval_d )
4878 integer , INTENT(OUT) :: restart_interval_d
4879 INTEGER id_id
4880 CHARACTER*80 emess
4881 IF ( id_id .NE. 1 ) THEN
4882 call wrf_debug(1,&
4883 'WARNING in nl_get_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
4884 ENDIF
4885 restart_interval_d = model_config_rec%restart_interval_d
4886 RETURN
4887 END SUBROUTINE nl_get_restart_interval_d
4888 SUBROUTINE nl_get_restart_interval_h ( id_id , restart_interval_h )
4889 integer , INTENT(OUT) :: restart_interval_h
4890 INTEGER id_id
4891 CHARACTER*80 emess
4892 IF ( id_id .NE. 1 ) THEN
4893 call wrf_debug(1,&
4894 'WARNING in nl_get_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
4895 ENDIF
4896 restart_interval_h = model_config_rec%restart_interval_h
4897 RETURN
4898 END SUBROUTINE nl_get_restart_interval_h
4899 SUBROUTINE nl_get_restart_interval_m ( id_id , restart_interval_m )
4900 integer , INTENT(OUT) :: restart_interval_m
4901 INTEGER id_id
4902 CHARACTER*80 emess
4903 IF ( id_id .NE. 1 ) THEN
4904 call wrf_debug(1,&
4905 'WARNING in nl_get_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
4906 ENDIF
4907 restart_interval_m = model_config_rec%restart_interval_m
4908 RETURN
4909 END SUBROUTINE nl_get_restart_interval_m
4910 SUBROUTINE nl_get_restart_interval_s ( id_id , restart_interval_s )
4911 integer , INTENT(OUT) :: restart_interval_s
4912 INTEGER id_id
4913 CHARACTER*80 emess
4914 IF ( id_id .NE. 1 ) THEN
4915 call wrf_debug(1,&
4916 'WARNING in nl_get_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
4917 ENDIF
4918 restart_interval_s = model_config_rec%restart_interval_s
4919 RETURN
4920 END SUBROUTINE nl_get_restart_interval_s
4921 SUBROUTINE nl_get_history_begin_y ( id_id , history_begin_y )
4922 integer , INTENT(OUT) :: history_begin_y
4923 INTEGER id_id
4924 CHARACTER*80 emess
4925 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4926 WRITE(emess,*)'nl_get_history_begin_y: Out of range domain number: ',id_id
4927 CALL wrf_error_fatal(emess)
4928 ENDIF
4929 history_begin_y = model_config_rec%history_begin_y(id_id)
4930 RETURN
4931 END SUBROUTINE nl_get_history_begin_y
4932 SUBROUTINE nl_get_history_begin_mo ( id_id , history_begin_mo )
4933 integer , INTENT(OUT) :: history_begin_mo
4934 INTEGER id_id
4935 CHARACTER*80 emess
4936 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4937 WRITE(emess,*)'nl_get_history_begin_mo: Out of range domain number: ',id_id
4938 CALL wrf_error_fatal(emess)
4939 ENDIF
4940 history_begin_mo = model_config_rec%history_begin_mo(id_id)
4941 RETURN
4942 END SUBROUTINE nl_get_history_begin_mo
4943 SUBROUTINE nl_get_history_begin_d ( id_id , history_begin_d )
4944 integer , INTENT(OUT) :: history_begin_d
4945 INTEGER id_id
4946 CHARACTER*80 emess
4947 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4948 WRITE(emess,*)'nl_get_history_begin_d: Out of range domain number: ',id_id
4949 CALL wrf_error_fatal(emess)
4950 ENDIF
4951 history_begin_d = model_config_rec%history_begin_d(id_id)
4952 RETURN
4953 END SUBROUTINE nl_get_history_begin_d
4954 SUBROUTINE nl_get_history_begin_h ( id_id , history_begin_h )
4955 integer , INTENT(OUT) :: history_begin_h
4956 INTEGER id_id
4957 CHARACTER*80 emess
4958 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4959 WRITE(emess,*)'nl_get_history_begin_h: Out of range domain number: ',id_id
4960 CALL wrf_error_fatal(emess)
4961 ENDIF
4962 history_begin_h = model_config_rec%history_begin_h(id_id)
4963 RETURN
4964 END SUBROUTINE nl_get_history_begin_h
4965 SUBROUTINE nl_get_history_begin_m ( id_id , history_begin_m )
4966 integer , INTENT(OUT) :: history_begin_m
4967 INTEGER id_id
4968 CHARACTER*80 emess
4969 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4970 WRITE(emess,*)'nl_get_history_begin_m: Out of range domain number: ',id_id
4971 CALL wrf_error_fatal(emess)
4972 ENDIF
4973 history_begin_m = model_config_rec%history_begin_m(id_id)
4974 RETURN
4975 END SUBROUTINE nl_get_history_begin_m
4976 SUBROUTINE nl_get_history_begin_s ( id_id , history_begin_s )
4977 integer , INTENT(OUT) :: history_begin_s
4978 INTEGER id_id
4979 CHARACTER*80 emess
4980 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4981 WRITE(emess,*)'nl_get_history_begin_s: Out of range domain number: ',id_id
4982 CALL wrf_error_fatal(emess)
4983 ENDIF
4984 history_begin_s = model_config_rec%history_begin_s(id_id)
4985 RETURN
4986 END SUBROUTINE nl_get_history_begin_s
4987 SUBROUTINE nl_get_inputout_begin_y ( id_id , inputout_begin_y )
4988 integer , INTENT(OUT) :: inputout_begin_y
4989 INTEGER id_id
4990 CHARACTER*80 emess
4991 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4992 WRITE(emess,*)'nl_get_inputout_begin_y: Out of range domain number: ',id_id
4993 CALL wrf_error_fatal(emess)
4994 ENDIF
4995 inputout_begin_y = model_config_rec%inputout_begin_y(id_id)
4996 RETURN
4997 END SUBROUTINE nl_get_inputout_begin_y
4998 SUBROUTINE nl_get_inputout_begin_mo ( id_id , inputout_begin_mo )
4999 integer , INTENT(OUT) :: inputout_begin_mo
5000 INTEGER id_id
5001 CHARACTER*80 emess
5002 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5003 WRITE(emess,*)'nl_get_inputout_begin_mo: Out of range domain number: ',id_id
5004 CALL wrf_error_fatal(emess)
5005 ENDIF
5006 inputout_begin_mo = model_config_rec%inputout_begin_mo(id_id)
5007 RETURN
5008 END SUBROUTINE nl_get_inputout_begin_mo
5009 SUBROUTINE nl_get_inputout_begin_d ( id_id , inputout_begin_d )
5010 integer , INTENT(OUT) :: inputout_begin_d
5011 INTEGER id_id
5012 CHARACTER*80 emess
5013 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5014 WRITE(emess,*)'nl_get_inputout_begin_d: Out of range domain number: ',id_id
5015 CALL wrf_error_fatal(emess)
5016 ENDIF
5017 inputout_begin_d = model_config_rec%inputout_begin_d(id_id)
5018 RETURN
5019 END SUBROUTINE nl_get_inputout_begin_d
5020 SUBROUTINE nl_get_inputout_begin_h ( id_id , inputout_begin_h )
5021 integer , INTENT(OUT) :: inputout_begin_h
5022 INTEGER id_id
5023 CHARACTER*80 emess
5024 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5025 WRITE(emess,*)'nl_get_inputout_begin_h: Out of range domain number: ',id_id
5026 CALL wrf_error_fatal(emess)
5027 ENDIF
5028 inputout_begin_h = model_config_rec%inputout_begin_h(id_id)
5029 RETURN
5030 END SUBROUTINE nl_get_inputout_begin_h
5031 SUBROUTINE nl_get_inputout_begin_m ( id_id , inputout_begin_m )
5032 integer , INTENT(OUT) :: inputout_begin_m
5033 INTEGER id_id
5034 CHARACTER*80 emess
5035 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5036 WRITE(emess,*)'nl_get_inputout_begin_m: Out of range domain number: ',id_id
5037 CALL wrf_error_fatal(emess)
5038 ENDIF
5039 inputout_begin_m = model_config_rec%inputout_begin_m(id_id)
5040 RETURN
5041 END SUBROUTINE nl_get_inputout_begin_m
5042 SUBROUTINE nl_get_inputout_begin_s ( id_id , inputout_begin_s )
5043 integer , INTENT(OUT) :: inputout_begin_s
5044 INTEGER id_id
5045 CHARACTER*80 emess
5046 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5047 WRITE(emess,*)'nl_get_inputout_begin_s: Out of range domain number: ',id_id
5048 CALL wrf_error_fatal(emess)
5049 ENDIF
5050 inputout_begin_s = model_config_rec%inputout_begin_s(id_id)
5051 RETURN
5052 END SUBROUTINE nl_get_inputout_begin_s
5053 SUBROUTINE nl_get_auxhist1_begin_y ( id_id , auxhist1_begin_y )
5054 integer , INTENT(OUT) :: auxhist1_begin_y
5055 INTEGER id_id
5056 CHARACTER*80 emess
5057 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5058 WRITE(emess,*)'nl_get_auxhist1_begin_y: Out of range domain number: ',id_id
5059 CALL wrf_error_fatal(emess)
5060 ENDIF
5061 auxhist1_begin_y = model_config_rec%auxhist1_begin_y(id_id)
5062 RETURN
5063 END SUBROUTINE nl_get_auxhist1_begin_y
5064 SUBROUTINE nl_get_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
5065 integer , INTENT(OUT) :: auxhist1_begin_mo
5066 INTEGER id_id
5067 CHARACTER*80 emess
5068 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5069 WRITE(emess,*)'nl_get_auxhist1_begin_mo: Out of range domain number: ',id_id
5070 CALL wrf_error_fatal(emess)
5071 ENDIF
5072 auxhist1_begin_mo = model_config_rec%auxhist1_begin_mo(id_id)
5073 RETURN
5074 END SUBROUTINE nl_get_auxhist1_begin_mo
5075 SUBROUTINE nl_get_auxhist1_begin_d ( id_id , auxhist1_begin_d )
5076 integer , INTENT(OUT) :: auxhist1_begin_d
5077 INTEGER id_id
5078 CHARACTER*80 emess
5079 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5080 WRITE(emess,*)'nl_get_auxhist1_begin_d: Out of range domain number: ',id_id
5081 CALL wrf_error_fatal(emess)
5082 ENDIF
5083 auxhist1_begin_d = model_config_rec%auxhist1_begin_d(id_id)
5084 RETURN
5085 END SUBROUTINE nl_get_auxhist1_begin_d
5086 SUBROUTINE nl_get_auxhist1_begin_h ( id_id , auxhist1_begin_h )
5087 integer , INTENT(OUT) :: auxhist1_begin_h
5088 INTEGER id_id
5089 CHARACTER*80 emess
5090 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5091 WRITE(emess,*)'nl_get_auxhist1_begin_h: Out of range domain number: ',id_id
5092 CALL wrf_error_fatal(emess)
5093 ENDIF
5094 auxhist1_begin_h = model_config_rec%auxhist1_begin_h(id_id)
5095 RETURN
5096 END SUBROUTINE nl_get_auxhist1_begin_h
5097 SUBROUTINE nl_get_auxhist1_begin_m ( id_id , auxhist1_begin_m )
5098 integer , INTENT(OUT) :: auxhist1_begin_m
5099 INTEGER id_id
5100 CHARACTER*80 emess
5101 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5102 WRITE(emess,*)'nl_get_auxhist1_begin_m: Out of range domain number: ',id_id
5103 CALL wrf_error_fatal(emess)
5104 ENDIF
5105 auxhist1_begin_m = model_config_rec%auxhist1_begin_m(id_id)
5106 RETURN
5107 END SUBROUTINE nl_get_auxhist1_begin_m
5108 SUBROUTINE nl_get_auxhist1_begin_s ( id_id , auxhist1_begin_s )
5109 integer , INTENT(OUT) :: auxhist1_begin_s
5110 INTEGER id_id
5111 CHARACTER*80 emess
5112 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5113 WRITE(emess,*)'nl_get_auxhist1_begin_s: Out of range domain number: ',id_id
5114 CALL wrf_error_fatal(emess)
5115 ENDIF
5116 auxhist1_begin_s = model_config_rec%auxhist1_begin_s(id_id)
5117 RETURN
5118 END SUBROUTINE nl_get_auxhist1_begin_s
5119 SUBROUTINE nl_get_auxhist2_begin_y ( id_id , auxhist2_begin_y )
5120 integer , INTENT(OUT) :: auxhist2_begin_y
5121 INTEGER id_id
5122 CHARACTER*80 emess
5123 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5124 WRITE(emess,*)'nl_get_auxhist2_begin_y: Out of range domain number: ',id_id
5125 CALL wrf_error_fatal(emess)
5126 ENDIF
5127 auxhist2_begin_y = model_config_rec%auxhist2_begin_y(id_id)
5128 RETURN
5129 END SUBROUTINE nl_get_auxhist2_begin_y
5130 SUBROUTINE nl_get_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
5131 integer , INTENT(OUT) :: auxhist2_begin_mo
5132 INTEGER id_id
5133 CHARACTER*80 emess
5134 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5135 WRITE(emess,*)'nl_get_auxhist2_begin_mo: Out of range domain number: ',id_id
5136 CALL wrf_error_fatal(emess)
5137 ENDIF
5138 auxhist2_begin_mo = model_config_rec%auxhist2_begin_mo(id_id)
5139 RETURN
5140 END SUBROUTINE nl_get_auxhist2_begin_mo
5141 SUBROUTINE nl_get_auxhist2_begin_d ( id_id , auxhist2_begin_d )
5142 integer , INTENT(OUT) :: auxhist2_begin_d
5143 INTEGER id_id
5144 CHARACTER*80 emess
5145 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5146 WRITE(emess,*)'nl_get_auxhist2_begin_d: Out of range domain number: ',id_id
5147 CALL wrf_error_fatal(emess)
5148 ENDIF
5149 auxhist2_begin_d = model_config_rec%auxhist2_begin_d(id_id)
5150 RETURN
5151 END SUBROUTINE nl_get_auxhist2_begin_d
5152 SUBROUTINE nl_get_auxhist2_begin_h ( id_id , auxhist2_begin_h )
5153 integer , INTENT(OUT) :: auxhist2_begin_h
5154 INTEGER id_id
5155 CHARACTER*80 emess
5156 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5157 WRITE(emess,*)'nl_get_auxhist2_begin_h: Out of range domain number: ',id_id
5158 CALL wrf_error_fatal(emess)
5159 ENDIF
5160 auxhist2_begin_h = model_config_rec%auxhist2_begin_h(id_id)
5161 RETURN
5162 END SUBROUTINE nl_get_auxhist2_begin_h
5163 SUBROUTINE nl_get_auxhist2_begin_m ( id_id , auxhist2_begin_m )
5164 integer , INTENT(OUT) :: auxhist2_begin_m
5165 INTEGER id_id
5166 CHARACTER*80 emess
5167 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5168 WRITE(emess,*)'nl_get_auxhist2_begin_m: Out of range domain number: ',id_id
5169 CALL wrf_error_fatal(emess)
5170 ENDIF
5171 auxhist2_begin_m = model_config_rec%auxhist2_begin_m(id_id)
5172 RETURN
5173 END SUBROUTINE nl_get_auxhist2_begin_m
5174 SUBROUTINE nl_get_auxhist2_begin_s ( id_id , auxhist2_begin_s )
5175 integer , INTENT(OUT) :: auxhist2_begin_s
5176 INTEGER id_id
5177 CHARACTER*80 emess
5178 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5179 WRITE(emess,*)'nl_get_auxhist2_begin_s: Out of range domain number: ',id_id
5180 CALL wrf_error_fatal(emess)
5181 ENDIF
5182 auxhist2_begin_s = model_config_rec%auxhist2_begin_s(id_id)
5183 RETURN
5184 END SUBROUTINE nl_get_auxhist2_begin_s
5185 SUBROUTINE nl_get_auxhist3_begin_y ( id_id , auxhist3_begin_y )
5186 integer , INTENT(OUT) :: auxhist3_begin_y
5187 INTEGER id_id
5188 CHARACTER*80 emess
5189 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5190 WRITE(emess,*)'nl_get_auxhist3_begin_y: Out of range domain number: ',id_id
5191 CALL wrf_error_fatal(emess)
5192 ENDIF
5193 auxhist3_begin_y = model_config_rec%auxhist3_begin_y(id_id)
5194 RETURN
5195 END SUBROUTINE nl_get_auxhist3_begin_y
5196 SUBROUTINE nl_get_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
5197 integer , INTENT(OUT) :: auxhist3_begin_mo
5198 INTEGER id_id
5199 CHARACTER*80 emess
5200 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5201 WRITE(emess,*)'nl_get_auxhist3_begin_mo: Out of range domain number: ',id_id
5202 CALL wrf_error_fatal(emess)
5203 ENDIF
5204 auxhist3_begin_mo = model_config_rec%auxhist3_begin_mo(id_id)
5205 RETURN
5206 END SUBROUTINE nl_get_auxhist3_begin_mo
5207 SUBROUTINE nl_get_auxhist3_begin_d ( id_id , auxhist3_begin_d )
5208 integer , INTENT(OUT) :: auxhist3_begin_d
5209 INTEGER id_id
5210 CHARACTER*80 emess
5211 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5212 WRITE(emess,*)'nl_get_auxhist3_begin_d: Out of range domain number: ',id_id
5213 CALL wrf_error_fatal(emess)
5214 ENDIF
5215 auxhist3_begin_d = model_config_rec%auxhist3_begin_d(id_id)
5216 RETURN
5217 END SUBROUTINE nl_get_auxhist3_begin_d
5218 SUBROUTINE nl_get_auxhist3_begin_h ( id_id , auxhist3_begin_h )
5219 integer , INTENT(OUT) :: auxhist3_begin_h
5220 INTEGER id_id
5221 CHARACTER*80 emess
5222 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5223 WRITE(emess,*)'nl_get_auxhist3_begin_h: Out of range domain number: ',id_id
5224 CALL wrf_error_fatal(emess)
5225 ENDIF
5226 auxhist3_begin_h = model_config_rec%auxhist3_begin_h(id_id)
5227 RETURN
5228 END SUBROUTINE nl_get_auxhist3_begin_h
5229 SUBROUTINE nl_get_auxhist3_begin_m ( id_id , auxhist3_begin_m )
5230 integer , INTENT(OUT) :: auxhist3_begin_m
5231 INTEGER id_id
5232 CHARACTER*80 emess
5233 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5234 WRITE(emess,*)'nl_get_auxhist3_begin_m: Out of range domain number: ',id_id
5235 CALL wrf_error_fatal(emess)
5236 ENDIF
5237 auxhist3_begin_m = model_config_rec%auxhist3_begin_m(id_id)
5238 RETURN
5239 END SUBROUTINE nl_get_auxhist3_begin_m
5240 SUBROUTINE nl_get_auxhist3_begin_s ( id_id , auxhist3_begin_s )
5241 integer , INTENT(OUT) :: auxhist3_begin_s
5242 INTEGER id_id
5243 CHARACTER*80 emess
5244 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5245 WRITE(emess,*)'nl_get_auxhist3_begin_s: Out of range domain number: ',id_id
5246 CALL wrf_error_fatal(emess)
5247 ENDIF
5248 auxhist3_begin_s = model_config_rec%auxhist3_begin_s(id_id)
5249 RETURN
5250 END SUBROUTINE nl_get_auxhist3_begin_s
5251 SUBROUTINE nl_get_auxhist4_begin_y ( id_id , auxhist4_begin_y )
5252 integer , INTENT(OUT) :: auxhist4_begin_y
5253 INTEGER id_id
5254 CHARACTER*80 emess
5255 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5256 WRITE(emess,*)'nl_get_auxhist4_begin_y: Out of range domain number: ',id_id
5257 CALL wrf_error_fatal(emess)
5258 ENDIF
5259 auxhist4_begin_y = model_config_rec%auxhist4_begin_y(id_id)
5260 RETURN
5261 END SUBROUTINE nl_get_auxhist4_begin_y
5262 SUBROUTINE nl_get_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
5263 integer , INTENT(OUT) :: auxhist4_begin_mo
5264 INTEGER id_id
5265 CHARACTER*80 emess
5266 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5267 WRITE(emess,*)'nl_get_auxhist4_begin_mo: Out of range domain number: ',id_id
5268 CALL wrf_error_fatal(emess)
5269 ENDIF
5270 auxhist4_begin_mo = model_config_rec%auxhist4_begin_mo(id_id)
5271 RETURN
5272 END SUBROUTINE nl_get_auxhist4_begin_mo
5273 SUBROUTINE nl_get_auxhist4_begin_d ( id_id , auxhist4_begin_d )
5274 integer , INTENT(OUT) :: auxhist4_begin_d
5275 INTEGER id_id
5276 CHARACTER*80 emess
5277 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5278 WRITE(emess,*)'nl_get_auxhist4_begin_d: Out of range domain number: ',id_id
5279 CALL wrf_error_fatal(emess)
5280 ENDIF
5281 auxhist4_begin_d = model_config_rec%auxhist4_begin_d(id_id)
5282 RETURN
5283 END SUBROUTINE nl_get_auxhist4_begin_d
5284 SUBROUTINE nl_get_auxhist4_begin_h ( id_id , auxhist4_begin_h )
5285 integer , INTENT(OUT) :: auxhist4_begin_h
5286 INTEGER id_id
5287 CHARACTER*80 emess
5288 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5289 WRITE(emess,*)'nl_get_auxhist4_begin_h: Out of range domain number: ',id_id
5290 CALL wrf_error_fatal(emess)
5291 ENDIF
5292 auxhist4_begin_h = model_config_rec%auxhist4_begin_h(id_id)
5293 RETURN
5294 END SUBROUTINE nl_get_auxhist4_begin_h
5295 SUBROUTINE nl_get_auxhist4_begin_m ( id_id , auxhist4_begin_m )
5296 integer , INTENT(OUT) :: auxhist4_begin_m
5297 INTEGER id_id
5298 CHARACTER*80 emess
5299 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5300 WRITE(emess,*)'nl_get_auxhist4_begin_m: Out of range domain number: ',id_id
5301 CALL wrf_error_fatal(emess)
5302 ENDIF
5303 auxhist4_begin_m = model_config_rec%auxhist4_begin_m(id_id)
5304 RETURN
5305 END SUBROUTINE nl_get_auxhist4_begin_m
5306 SUBROUTINE nl_get_auxhist4_begin_s ( id_id , auxhist4_begin_s )
5307 integer , INTENT(OUT) :: auxhist4_begin_s
5308 INTEGER id_id
5309 CHARACTER*80 emess
5310 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5311 WRITE(emess,*)'nl_get_auxhist4_begin_s: Out of range domain number: ',id_id
5312 CALL wrf_error_fatal(emess)
5313 ENDIF
5314 auxhist4_begin_s = model_config_rec%auxhist4_begin_s(id_id)
5315 RETURN
5316 END SUBROUTINE nl_get_auxhist4_begin_s
5317 SUBROUTINE nl_get_auxhist5_begin_y ( id_id , auxhist5_begin_y )
5318 integer , INTENT(OUT) :: auxhist5_begin_y
5319 INTEGER id_id
5320 CHARACTER*80 emess
5321 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5322 WRITE(emess,*)'nl_get_auxhist5_begin_y: Out of range domain number: ',id_id
5323 CALL wrf_error_fatal(emess)
5324 ENDIF
5325 auxhist5_begin_y = model_config_rec%auxhist5_begin_y(id_id)
5326 RETURN
5327 END SUBROUTINE nl_get_auxhist5_begin_y
5328 SUBROUTINE nl_get_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
5329 integer , INTENT(OUT) :: auxhist5_begin_mo
5330 INTEGER id_id
5331 CHARACTER*80 emess
5332 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5333 WRITE(emess,*)'nl_get_auxhist5_begin_mo: Out of range domain number: ',id_id
5334 CALL wrf_error_fatal(emess)
5335 ENDIF
5336 auxhist5_begin_mo = model_config_rec%auxhist5_begin_mo(id_id)
5337 RETURN
5338 END SUBROUTINE nl_get_auxhist5_begin_mo
5339 SUBROUTINE nl_get_auxhist5_begin_d ( id_id , auxhist5_begin_d )
5340 integer , INTENT(OUT) :: auxhist5_begin_d
5341 INTEGER id_id
5342 CHARACTER*80 emess
5343 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5344 WRITE(emess,*)'nl_get_auxhist5_begin_d: Out of range domain number: ',id_id
5345 CALL wrf_error_fatal(emess)
5346 ENDIF
5347 auxhist5_begin_d = model_config_rec%auxhist5_begin_d(id_id)
5348 RETURN
5349 END SUBROUTINE nl_get_auxhist5_begin_d
5350 SUBROUTINE nl_get_auxhist5_begin_h ( id_id , auxhist5_begin_h )
5351 integer , INTENT(OUT) :: auxhist5_begin_h
5352 INTEGER id_id
5353 CHARACTER*80 emess
5354 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5355 WRITE(emess,*)'nl_get_auxhist5_begin_h: Out of range domain number: ',id_id
5356 CALL wrf_error_fatal(emess)
5357 ENDIF
5358 auxhist5_begin_h = model_config_rec%auxhist5_begin_h(id_id)
5359 RETURN
5360 END SUBROUTINE nl_get_auxhist5_begin_h
5361 SUBROUTINE nl_get_auxhist5_begin_m ( id_id , auxhist5_begin_m )
5362 integer , INTENT(OUT) :: auxhist5_begin_m
5363 INTEGER id_id
5364 CHARACTER*80 emess
5365 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5366 WRITE(emess,*)'nl_get_auxhist5_begin_m: Out of range domain number: ',id_id
5367 CALL wrf_error_fatal(emess)
5368 ENDIF
5369 auxhist5_begin_m = model_config_rec%auxhist5_begin_m(id_id)
5370 RETURN
5371 END SUBROUTINE nl_get_auxhist5_begin_m
5372 SUBROUTINE nl_get_auxhist5_begin_s ( id_id , auxhist5_begin_s )
5373 integer , INTENT(OUT) :: auxhist5_begin_s
5374 INTEGER id_id
5375 CHARACTER*80 emess
5376 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5377 WRITE(emess,*)'nl_get_auxhist5_begin_s: Out of range domain number: ',id_id
5378 CALL wrf_error_fatal(emess)
5379 ENDIF
5380 auxhist5_begin_s = model_config_rec%auxhist5_begin_s(id_id)
5381 RETURN
5382 END SUBROUTINE nl_get_auxhist5_begin_s
5383 SUBROUTINE nl_get_auxhist6_begin_y ( id_id , auxhist6_begin_y )
5384 integer , INTENT(OUT) :: auxhist6_begin_y
5385 INTEGER id_id
5386 CHARACTER*80 emess
5387 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5388 WRITE(emess,*)'nl_get_auxhist6_begin_y: Out of range domain number: ',id_id
5389 CALL wrf_error_fatal(emess)
5390 ENDIF
5391 auxhist6_begin_y = model_config_rec%auxhist6_begin_y(id_id)
5392 RETURN
5393 END SUBROUTINE nl_get_auxhist6_begin_y
5394 SUBROUTINE nl_get_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
5395 integer , INTENT(OUT) :: auxhist6_begin_mo
5396 INTEGER id_id
5397 CHARACTER*80 emess
5398 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5399 WRITE(emess,*)'nl_get_auxhist6_begin_mo: Out of range domain number: ',id_id
5400 CALL wrf_error_fatal(emess)
5401 ENDIF
5402 auxhist6_begin_mo = model_config_rec%auxhist6_begin_mo(id_id)
5403 RETURN
5404 END SUBROUTINE nl_get_auxhist6_begin_mo
5405 SUBROUTINE nl_get_auxhist6_begin_d ( id_id , auxhist6_begin_d )
5406 integer , INTENT(OUT) :: auxhist6_begin_d
5407 INTEGER id_id
5408 CHARACTER*80 emess
5409 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5410 WRITE(emess,*)'nl_get_auxhist6_begin_d: Out of range domain number: ',id_id
5411 CALL wrf_error_fatal(emess)
5412 ENDIF
5413 auxhist6_begin_d = model_config_rec%auxhist6_begin_d(id_id)
5414 RETURN
5415 END SUBROUTINE nl_get_auxhist6_begin_d
5416 SUBROUTINE nl_get_auxhist6_begin_h ( id_id , auxhist6_begin_h )
5417 integer , INTENT(OUT) :: auxhist6_begin_h
5418 INTEGER id_id
5419 CHARACTER*80 emess
5420 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5421 WRITE(emess,*)'nl_get_auxhist6_begin_h: Out of range domain number: ',id_id
5422 CALL wrf_error_fatal(emess)
5423 ENDIF
5424 auxhist6_begin_h = model_config_rec%auxhist6_begin_h(id_id)
5425 RETURN
5426 END SUBROUTINE nl_get_auxhist6_begin_h
5427 SUBROUTINE nl_get_auxhist6_begin_m ( id_id , auxhist6_begin_m )
5428 integer , INTENT(OUT) :: auxhist6_begin_m
5429 INTEGER id_id
5430 CHARACTER*80 emess
5431 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5432 WRITE(emess,*)'nl_get_auxhist6_begin_m: Out of range domain number: ',id_id
5433 CALL wrf_error_fatal(emess)
5434 ENDIF
5435 auxhist6_begin_m = model_config_rec%auxhist6_begin_m(id_id)
5436 RETURN
5437 END SUBROUTINE nl_get_auxhist6_begin_m
5438 SUBROUTINE nl_get_auxhist6_begin_s ( id_id , auxhist6_begin_s )
5439 integer , INTENT(OUT) :: auxhist6_begin_s
5440 INTEGER id_id
5441 CHARACTER*80 emess
5442 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5443 WRITE(emess,*)'nl_get_auxhist6_begin_s: Out of range domain number: ',id_id
5444 CALL wrf_error_fatal(emess)
5445 ENDIF
5446 auxhist6_begin_s = model_config_rec%auxhist6_begin_s(id_id)
5447 RETURN
5448 END SUBROUTINE nl_get_auxhist6_begin_s
5449 SUBROUTINE nl_get_auxhist7_begin_y ( id_id , auxhist7_begin_y )
5450 integer , INTENT(OUT) :: auxhist7_begin_y
5451 INTEGER id_id
5452 CHARACTER*80 emess
5453 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5454 WRITE(emess,*)'nl_get_auxhist7_begin_y: Out of range domain number: ',id_id
5455 CALL wrf_error_fatal(emess)
5456 ENDIF
5457 auxhist7_begin_y = model_config_rec%auxhist7_begin_y(id_id)
5458 RETURN
5459 END SUBROUTINE nl_get_auxhist7_begin_y
5460 SUBROUTINE nl_get_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
5461 integer , INTENT(OUT) :: auxhist7_begin_mo
5462 INTEGER id_id
5463 CHARACTER*80 emess
5464 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5465 WRITE(emess,*)'nl_get_auxhist7_begin_mo: Out of range domain number: ',id_id
5466 CALL wrf_error_fatal(emess)
5467 ENDIF
5468 auxhist7_begin_mo = model_config_rec%auxhist7_begin_mo(id_id)
5469 RETURN
5470 END SUBROUTINE nl_get_auxhist7_begin_mo
5471 SUBROUTINE nl_get_auxhist7_begin_d ( id_id , auxhist7_begin_d )
5472 integer , INTENT(OUT) :: auxhist7_begin_d
5473 INTEGER id_id
5474 CHARACTER*80 emess
5475 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5476 WRITE(emess,*)'nl_get_auxhist7_begin_d: Out of range domain number: ',id_id
5477 CALL wrf_error_fatal(emess)
5478 ENDIF
5479 auxhist7_begin_d = model_config_rec%auxhist7_begin_d(id_id)
5480 RETURN
5481 END SUBROUTINE nl_get_auxhist7_begin_d
5482 SUBROUTINE nl_get_auxhist7_begin_h ( id_id , auxhist7_begin_h )
5483 integer , INTENT(OUT) :: auxhist7_begin_h
5484 INTEGER id_id
5485 CHARACTER*80 emess
5486 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5487 WRITE(emess,*)'nl_get_auxhist7_begin_h: Out of range domain number: ',id_id
5488 CALL wrf_error_fatal(emess)
5489 ENDIF
5490 auxhist7_begin_h = model_config_rec%auxhist7_begin_h(id_id)
5491 RETURN
5492 END SUBROUTINE nl_get_auxhist7_begin_h
5493 SUBROUTINE nl_get_auxhist7_begin_m ( id_id , auxhist7_begin_m )
5494 integer , INTENT(OUT) :: auxhist7_begin_m
5495 INTEGER id_id
5496 CHARACTER*80 emess
5497 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5498 WRITE(emess,*)'nl_get_auxhist7_begin_m: Out of range domain number: ',id_id
5499 CALL wrf_error_fatal(emess)
5500 ENDIF
5501 auxhist7_begin_m = model_config_rec%auxhist7_begin_m(id_id)
5502 RETURN
5503 END SUBROUTINE nl_get_auxhist7_begin_m
5504 SUBROUTINE nl_get_auxhist7_begin_s ( id_id , auxhist7_begin_s )
5505 integer , INTENT(OUT) :: auxhist7_begin_s
5506 INTEGER id_id
5507 CHARACTER*80 emess
5508 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5509 WRITE(emess,*)'nl_get_auxhist7_begin_s: Out of range domain number: ',id_id
5510 CALL wrf_error_fatal(emess)
5511 ENDIF
5512 auxhist7_begin_s = model_config_rec%auxhist7_begin_s(id_id)
5513 RETURN
5514 END SUBROUTINE nl_get_auxhist7_begin_s
5515 SUBROUTINE nl_get_auxhist8_begin_y ( id_id , auxhist8_begin_y )
5516 integer , INTENT(OUT) :: auxhist8_begin_y
5517 INTEGER id_id
5518 CHARACTER*80 emess
5519 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5520 WRITE(emess,*)'nl_get_auxhist8_begin_y: Out of range domain number: ',id_id
5521 CALL wrf_error_fatal(emess)
5522 ENDIF
5523 auxhist8_begin_y = model_config_rec%auxhist8_begin_y(id_id)
5524 RETURN
5525 END SUBROUTINE nl_get_auxhist8_begin_y
5526 SUBROUTINE nl_get_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
5527 integer , INTENT(OUT) :: auxhist8_begin_mo
5528 INTEGER id_id
5529 CHARACTER*80 emess
5530 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5531 WRITE(emess,*)'nl_get_auxhist8_begin_mo: Out of range domain number: ',id_id
5532 CALL wrf_error_fatal(emess)
5533 ENDIF
5534 auxhist8_begin_mo = model_config_rec%auxhist8_begin_mo(id_id)
5535 RETURN
5536 END SUBROUTINE nl_get_auxhist8_begin_mo
5537 SUBROUTINE nl_get_auxhist8_begin_d ( id_id , auxhist8_begin_d )
5538 integer , INTENT(OUT) :: auxhist8_begin_d
5539 INTEGER id_id
5540 CHARACTER*80 emess
5541 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5542 WRITE(emess,*)'nl_get_auxhist8_begin_d: Out of range domain number: ',id_id
5543 CALL wrf_error_fatal(emess)
5544 ENDIF
5545 auxhist8_begin_d = model_config_rec%auxhist8_begin_d(id_id)
5546 RETURN
5547 END SUBROUTINE nl_get_auxhist8_begin_d
5548 SUBROUTINE nl_get_auxhist8_begin_h ( id_id , auxhist8_begin_h )
5549 integer , INTENT(OUT) :: auxhist8_begin_h
5550 INTEGER id_id
5551 CHARACTER*80 emess
5552 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5553 WRITE(emess,*)'nl_get_auxhist8_begin_h: Out of range domain number: ',id_id
5554 CALL wrf_error_fatal(emess)
5555 ENDIF
5556 auxhist8_begin_h = model_config_rec%auxhist8_begin_h(id_id)
5557 RETURN
5558 END SUBROUTINE nl_get_auxhist8_begin_h
5559 SUBROUTINE nl_get_auxhist8_begin_m ( id_id , auxhist8_begin_m )
5560 integer , INTENT(OUT) :: auxhist8_begin_m
5561 INTEGER id_id
5562 CHARACTER*80 emess
5563 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5564 WRITE(emess,*)'nl_get_auxhist8_begin_m: Out of range domain number: ',id_id
5565 CALL wrf_error_fatal(emess)
5566 ENDIF
5567 auxhist8_begin_m = model_config_rec%auxhist8_begin_m(id_id)
5568 RETURN
5569 END SUBROUTINE nl_get_auxhist8_begin_m
5570 SUBROUTINE nl_get_auxhist8_begin_s ( id_id , auxhist8_begin_s )
5571 integer , INTENT(OUT) :: auxhist8_begin_s
5572 INTEGER id_id
5573 CHARACTER*80 emess
5574 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5575 WRITE(emess,*)'nl_get_auxhist8_begin_s: Out of range domain number: ',id_id
5576 CALL wrf_error_fatal(emess)
5577 ENDIF
5578 auxhist8_begin_s = model_config_rec%auxhist8_begin_s(id_id)
5579 RETURN
5580 END SUBROUTINE nl_get_auxhist8_begin_s
5581 SUBROUTINE nl_get_auxhist9_begin_y ( id_id , auxhist9_begin_y )
5582 integer , INTENT(OUT) :: auxhist9_begin_y
5583 INTEGER id_id
5584 CHARACTER*80 emess
5585 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5586 WRITE(emess,*)'nl_get_auxhist9_begin_y: Out of range domain number: ',id_id
5587 CALL wrf_error_fatal(emess)
5588 ENDIF
5589 auxhist9_begin_y = model_config_rec%auxhist9_begin_y(id_id)
5590 RETURN
5591 END SUBROUTINE nl_get_auxhist9_begin_y
5592 SUBROUTINE nl_get_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
5593 integer , INTENT(OUT) :: auxhist9_begin_mo
5594 INTEGER id_id
5595 CHARACTER*80 emess
5596 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5597 WRITE(emess,*)'nl_get_auxhist9_begin_mo: Out of range domain number: ',id_id
5598 CALL wrf_error_fatal(emess)
5599 ENDIF
5600 auxhist9_begin_mo = model_config_rec%auxhist9_begin_mo(id_id)
5601 RETURN
5602 END SUBROUTINE nl_get_auxhist9_begin_mo
5603 SUBROUTINE nl_get_auxhist9_begin_d ( id_id , auxhist9_begin_d )
5604 integer , INTENT(OUT) :: auxhist9_begin_d
5605 INTEGER id_id
5606 CHARACTER*80 emess
5607 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5608 WRITE(emess,*)'nl_get_auxhist9_begin_d: Out of range domain number: ',id_id
5609 CALL wrf_error_fatal(emess)
5610 ENDIF
5611 auxhist9_begin_d = model_config_rec%auxhist9_begin_d(id_id)
5612 RETURN
5613 END SUBROUTINE nl_get_auxhist9_begin_d
5614 SUBROUTINE nl_get_auxhist9_begin_h ( id_id , auxhist9_begin_h )
5615 integer , INTENT(OUT) :: auxhist9_begin_h
5616 INTEGER id_id
5617 CHARACTER*80 emess
5618 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5619 WRITE(emess,*)'nl_get_auxhist9_begin_h: Out of range domain number: ',id_id
5620 CALL wrf_error_fatal(emess)
5621 ENDIF
5622 auxhist9_begin_h = model_config_rec%auxhist9_begin_h(id_id)
5623 RETURN
5624 END SUBROUTINE nl_get_auxhist9_begin_h
5625 SUBROUTINE nl_get_auxhist9_begin_m ( id_id , auxhist9_begin_m )
5626 integer , INTENT(OUT) :: auxhist9_begin_m
5627 INTEGER id_id
5628 CHARACTER*80 emess
5629 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5630 WRITE(emess,*)'nl_get_auxhist9_begin_m: Out of range domain number: ',id_id
5631 CALL wrf_error_fatal(emess)
5632 ENDIF
5633 auxhist9_begin_m = model_config_rec%auxhist9_begin_m(id_id)
5634 RETURN
5635 END SUBROUTINE nl_get_auxhist9_begin_m
5636 SUBROUTINE nl_get_auxhist9_begin_s ( id_id , auxhist9_begin_s )
5637 integer , INTENT(OUT) :: auxhist9_begin_s
5638 INTEGER id_id
5639 CHARACTER*80 emess
5640 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5641 WRITE(emess,*)'nl_get_auxhist9_begin_s: Out of range domain number: ',id_id
5642 CALL wrf_error_fatal(emess)
5643 ENDIF
5644 auxhist9_begin_s = model_config_rec%auxhist9_begin_s(id_id)
5645 RETURN
5646 END SUBROUTINE nl_get_auxhist9_begin_s
5647 SUBROUTINE nl_get_auxhist10_begin_y ( id_id , auxhist10_begin_y )
5648 integer , INTENT(OUT) :: auxhist10_begin_y
5649 INTEGER id_id
5650 CHARACTER*80 emess
5651 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5652 WRITE(emess,*)'nl_get_auxhist10_begin_y: Out of range domain number: ',id_id
5653 CALL wrf_error_fatal(emess)
5654 ENDIF
5655 auxhist10_begin_y = model_config_rec%auxhist10_begin_y(id_id)
5656 RETURN
5657 END SUBROUTINE nl_get_auxhist10_begin_y
5658 SUBROUTINE nl_get_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
5659 integer , INTENT(OUT) :: auxhist10_begin_mo
5660 INTEGER id_id
5661 CHARACTER*80 emess
5662 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5663 WRITE(emess,*)'nl_get_auxhist10_begin_mo: Out of range domain number: ',id_id
5664 CALL wrf_error_fatal(emess)
5665 ENDIF
5666 auxhist10_begin_mo = model_config_rec%auxhist10_begin_mo(id_id)
5667 RETURN
5668 END SUBROUTINE nl_get_auxhist10_begin_mo
5669 SUBROUTINE nl_get_auxhist10_begin_d ( id_id , auxhist10_begin_d )
5670 integer , INTENT(OUT) :: auxhist10_begin_d
5671 INTEGER id_id
5672 CHARACTER*80 emess
5673 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5674 WRITE(emess,*)'nl_get_auxhist10_begin_d: Out of range domain number: ',id_id
5675 CALL wrf_error_fatal(emess)
5676 ENDIF
5677 auxhist10_begin_d = model_config_rec%auxhist10_begin_d(id_id)
5678 RETURN
5679 END SUBROUTINE nl_get_auxhist10_begin_d
5680 SUBROUTINE nl_get_auxhist10_begin_h ( id_id , auxhist10_begin_h )
5681 integer , INTENT(OUT) :: auxhist10_begin_h
5682 INTEGER id_id
5683 CHARACTER*80 emess
5684 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5685 WRITE(emess,*)'nl_get_auxhist10_begin_h: Out of range domain number: ',id_id
5686 CALL wrf_error_fatal(emess)
5687 ENDIF
5688 auxhist10_begin_h = model_config_rec%auxhist10_begin_h(id_id)
5689 RETURN
5690 END SUBROUTINE nl_get_auxhist10_begin_h
5691 SUBROUTINE nl_get_auxhist10_begin_m ( id_id , auxhist10_begin_m )
5692 integer , INTENT(OUT) :: auxhist10_begin_m
5693 INTEGER id_id
5694 CHARACTER*80 emess
5695 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5696 WRITE(emess,*)'nl_get_auxhist10_begin_m: Out of range domain number: ',id_id
5697 CALL wrf_error_fatal(emess)
5698 ENDIF
5699 auxhist10_begin_m = model_config_rec%auxhist10_begin_m(id_id)
5700 RETURN
5701 END SUBROUTINE nl_get_auxhist10_begin_m
5702 SUBROUTINE nl_get_auxhist10_begin_s ( id_id , auxhist10_begin_s )
5703 integer , INTENT(OUT) :: auxhist10_begin_s
5704 INTEGER id_id
5705 CHARACTER*80 emess
5706 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5707 WRITE(emess,*)'nl_get_auxhist10_begin_s: Out of range domain number: ',id_id
5708 CALL wrf_error_fatal(emess)
5709 ENDIF
5710 auxhist10_begin_s = model_config_rec%auxhist10_begin_s(id_id)
5711 RETURN
5712 END SUBROUTINE nl_get_auxhist10_begin_s
5713 SUBROUTINE nl_get_auxhist11_begin_y ( id_id , auxhist11_begin_y )
5714 integer , INTENT(OUT) :: auxhist11_begin_y
5715 INTEGER id_id
5716 CHARACTER*80 emess
5717 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5718 WRITE(emess,*)'nl_get_auxhist11_begin_y: Out of range domain number: ',id_id
5719 CALL wrf_error_fatal(emess)
5720 ENDIF
5721 auxhist11_begin_y = model_config_rec%auxhist11_begin_y(id_id)
5722 RETURN
5723 END SUBROUTINE nl_get_auxhist11_begin_y
5724 SUBROUTINE nl_get_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
5725 integer , INTENT(OUT) :: auxhist11_begin_mo
5726 INTEGER id_id
5727 CHARACTER*80 emess
5728 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5729 WRITE(emess,*)'nl_get_auxhist11_begin_mo: Out of range domain number: ',id_id
5730 CALL wrf_error_fatal(emess)
5731 ENDIF
5732 auxhist11_begin_mo = model_config_rec%auxhist11_begin_mo(id_id)
5733 RETURN
5734 END SUBROUTINE nl_get_auxhist11_begin_mo
5735 SUBROUTINE nl_get_auxhist11_begin_d ( id_id , auxhist11_begin_d )
5736 integer , INTENT(OUT) :: auxhist11_begin_d
5737 INTEGER id_id
5738 CHARACTER*80 emess
5739 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5740 WRITE(emess,*)'nl_get_auxhist11_begin_d: Out of range domain number: ',id_id
5741 CALL wrf_error_fatal(emess)
5742 ENDIF
5743 auxhist11_begin_d = model_config_rec%auxhist11_begin_d(id_id)
5744 RETURN
5745 END SUBROUTINE nl_get_auxhist11_begin_d
5746 SUBROUTINE nl_get_auxhist11_begin_h ( id_id , auxhist11_begin_h )
5747 integer , INTENT(OUT) :: auxhist11_begin_h
5748 INTEGER id_id
5749 CHARACTER*80 emess
5750 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5751 WRITE(emess,*)'nl_get_auxhist11_begin_h: Out of range domain number: ',id_id
5752 CALL wrf_error_fatal(emess)
5753 ENDIF
5754 auxhist11_begin_h = model_config_rec%auxhist11_begin_h(id_id)
5755 RETURN
5756 END SUBROUTINE nl_get_auxhist11_begin_h
5757 SUBROUTINE nl_get_auxhist11_begin_m ( id_id , auxhist11_begin_m )
5758 integer , INTENT(OUT) :: auxhist11_begin_m
5759 INTEGER id_id
5760 CHARACTER*80 emess
5761 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5762 WRITE(emess,*)'nl_get_auxhist11_begin_m: Out of range domain number: ',id_id
5763 CALL wrf_error_fatal(emess)
5764 ENDIF
5765 auxhist11_begin_m = model_config_rec%auxhist11_begin_m(id_id)
5766 RETURN
5767 END SUBROUTINE nl_get_auxhist11_begin_m
5768 SUBROUTINE nl_get_auxhist11_begin_s ( id_id , auxhist11_begin_s )
5769 integer , INTENT(OUT) :: auxhist11_begin_s
5770 INTEGER id_id
5771 CHARACTER*80 emess
5772 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5773 WRITE(emess,*)'nl_get_auxhist11_begin_s: Out of range domain number: ',id_id
5774 CALL wrf_error_fatal(emess)
5775 ENDIF
5776 auxhist11_begin_s = model_config_rec%auxhist11_begin_s(id_id)
5777 RETURN
5778 END SUBROUTINE nl_get_auxhist11_begin_s
5779 SUBROUTINE nl_get_auxinput1_begin_y ( id_id , auxinput1_begin_y )
5780 integer , INTENT(OUT) :: auxinput1_begin_y
5781 INTEGER id_id
5782 CHARACTER*80 emess
5783 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5784 WRITE(emess,*)'nl_get_auxinput1_begin_y: Out of range domain number: ',id_id
5785 CALL wrf_error_fatal(emess)
5786 ENDIF
5787 auxinput1_begin_y = model_config_rec%auxinput1_begin_y(id_id)
5788 RETURN
5789 END SUBROUTINE nl_get_auxinput1_begin_y
5790 SUBROUTINE nl_get_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
5791 integer , INTENT(OUT) :: auxinput1_begin_mo
5792 INTEGER id_id
5793 CHARACTER*80 emess
5794 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5795 WRITE(emess,*)'nl_get_auxinput1_begin_mo: Out of range domain number: ',id_id
5796 CALL wrf_error_fatal(emess)
5797 ENDIF
5798 auxinput1_begin_mo = model_config_rec%auxinput1_begin_mo(id_id)
5799 RETURN
5800 END SUBROUTINE nl_get_auxinput1_begin_mo
5801 SUBROUTINE nl_get_auxinput1_begin_d ( id_id , auxinput1_begin_d )
5802 integer , INTENT(OUT) :: auxinput1_begin_d
5803 INTEGER id_id
5804 CHARACTER*80 emess
5805 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5806 WRITE(emess,*)'nl_get_auxinput1_begin_d: Out of range domain number: ',id_id
5807 CALL wrf_error_fatal(emess)
5808 ENDIF
5809 auxinput1_begin_d = model_config_rec%auxinput1_begin_d(id_id)
5810 RETURN
5811 END SUBROUTINE nl_get_auxinput1_begin_d
5812 SUBROUTINE nl_get_auxinput1_begin_h ( id_id , auxinput1_begin_h )
5813 integer , INTENT(OUT) :: auxinput1_begin_h
5814 INTEGER id_id
5815 CHARACTER*80 emess
5816 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5817 WRITE(emess,*)'nl_get_auxinput1_begin_h: Out of range domain number: ',id_id
5818 CALL wrf_error_fatal(emess)
5819 ENDIF
5820 auxinput1_begin_h = model_config_rec%auxinput1_begin_h(id_id)
5821 RETURN
5822 END SUBROUTINE nl_get_auxinput1_begin_h
5823 SUBROUTINE nl_get_auxinput1_begin_m ( id_id , auxinput1_begin_m )
5824 integer , INTENT(OUT) :: auxinput1_begin_m
5825 INTEGER id_id
5826 CHARACTER*80 emess
5827 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5828 WRITE(emess,*)'nl_get_auxinput1_begin_m: Out of range domain number: ',id_id
5829 CALL wrf_error_fatal(emess)
5830 ENDIF
5831 auxinput1_begin_m = model_config_rec%auxinput1_begin_m(id_id)
5832 RETURN
5833 END SUBROUTINE nl_get_auxinput1_begin_m
5834 SUBROUTINE nl_get_auxinput1_begin_s ( id_id , auxinput1_begin_s )
5835 integer , INTENT(OUT) :: auxinput1_begin_s
5836 INTEGER id_id
5837 CHARACTER*80 emess
5838 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5839 WRITE(emess,*)'nl_get_auxinput1_begin_s: Out of range domain number: ',id_id
5840 CALL wrf_error_fatal(emess)
5841 ENDIF
5842 auxinput1_begin_s = model_config_rec%auxinput1_begin_s(id_id)
5843 RETURN
5844 END SUBROUTINE nl_get_auxinput1_begin_s
5845 SUBROUTINE nl_get_auxinput2_begin_y ( id_id , auxinput2_begin_y )
5846 integer , INTENT(OUT) :: auxinput2_begin_y
5847 INTEGER id_id
5848 CHARACTER*80 emess
5849 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5850 WRITE(emess,*)'nl_get_auxinput2_begin_y: Out of range domain number: ',id_id
5851 CALL wrf_error_fatal(emess)
5852 ENDIF
5853 auxinput2_begin_y = model_config_rec%auxinput2_begin_y(id_id)
5854 RETURN
5855 END SUBROUTINE nl_get_auxinput2_begin_y
5856 SUBROUTINE nl_get_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
5857 integer , INTENT(OUT) :: auxinput2_begin_mo
5858 INTEGER id_id
5859 CHARACTER*80 emess
5860 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5861 WRITE(emess,*)'nl_get_auxinput2_begin_mo: Out of range domain number: ',id_id
5862 CALL wrf_error_fatal(emess)
5863 ENDIF
5864 auxinput2_begin_mo = model_config_rec%auxinput2_begin_mo(id_id)
5865 RETURN
5866 END SUBROUTINE nl_get_auxinput2_begin_mo
5867 SUBROUTINE nl_get_auxinput2_begin_d ( id_id , auxinput2_begin_d )
5868 integer , INTENT(OUT) :: auxinput2_begin_d
5869 INTEGER id_id
5870 CHARACTER*80 emess
5871 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5872 WRITE(emess,*)'nl_get_auxinput2_begin_d: Out of range domain number: ',id_id
5873 CALL wrf_error_fatal(emess)
5874 ENDIF
5875 auxinput2_begin_d = model_config_rec%auxinput2_begin_d(id_id)
5876 RETURN
5877 END SUBROUTINE nl_get_auxinput2_begin_d
5878 SUBROUTINE nl_get_auxinput2_begin_h ( id_id , auxinput2_begin_h )
5879 integer , INTENT(OUT) :: auxinput2_begin_h
5880 INTEGER id_id
5881 CHARACTER*80 emess
5882 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5883 WRITE(emess,*)'nl_get_auxinput2_begin_h: Out of range domain number: ',id_id
5884 CALL wrf_error_fatal(emess)
5885 ENDIF
5886 auxinput2_begin_h = model_config_rec%auxinput2_begin_h(id_id)
5887 RETURN
5888 END SUBROUTINE nl_get_auxinput2_begin_h
5889 SUBROUTINE nl_get_auxinput2_begin_m ( id_id , auxinput2_begin_m )
5890 integer , INTENT(OUT) :: auxinput2_begin_m
5891 INTEGER id_id
5892 CHARACTER*80 emess
5893 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5894 WRITE(emess,*)'nl_get_auxinput2_begin_m: Out of range domain number: ',id_id
5895 CALL wrf_error_fatal(emess)
5896 ENDIF
5897 auxinput2_begin_m = model_config_rec%auxinput2_begin_m(id_id)
5898 RETURN
5899 END SUBROUTINE nl_get_auxinput2_begin_m
5900 SUBROUTINE nl_get_auxinput2_begin_s ( id_id , auxinput2_begin_s )
5901 integer , INTENT(OUT) :: auxinput2_begin_s
5902 INTEGER id_id
5903 CHARACTER*80 emess
5904 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5905 WRITE(emess,*)'nl_get_auxinput2_begin_s: Out of range domain number: ',id_id
5906 CALL wrf_error_fatal(emess)
5907 ENDIF
5908 auxinput2_begin_s = model_config_rec%auxinput2_begin_s(id_id)
5909 RETURN
5910 END SUBROUTINE nl_get_auxinput2_begin_s
5911 SUBROUTINE nl_get_auxinput3_begin_y ( id_id , auxinput3_begin_y )
5912 integer , INTENT(OUT) :: auxinput3_begin_y
5913 INTEGER id_id
5914 CHARACTER*80 emess
5915 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5916 WRITE(emess,*)'nl_get_auxinput3_begin_y: Out of range domain number: ',id_id
5917 CALL wrf_error_fatal(emess)
5918 ENDIF
5919 auxinput3_begin_y = model_config_rec%auxinput3_begin_y(id_id)
5920 RETURN
5921 END SUBROUTINE nl_get_auxinput3_begin_y
5922 SUBROUTINE nl_get_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
5923 integer , INTENT(OUT) :: auxinput3_begin_mo
5924 INTEGER id_id
5925 CHARACTER*80 emess
5926 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5927 WRITE(emess,*)'nl_get_auxinput3_begin_mo: Out of range domain number: ',id_id
5928 CALL wrf_error_fatal(emess)
5929 ENDIF
5930 auxinput3_begin_mo = model_config_rec%auxinput3_begin_mo(id_id)
5931 RETURN
5932 END SUBROUTINE nl_get_auxinput3_begin_mo
5933 SUBROUTINE nl_get_auxinput3_begin_d ( id_id , auxinput3_begin_d )
5934 integer , INTENT(OUT) :: auxinput3_begin_d
5935 INTEGER id_id
5936 CHARACTER*80 emess
5937 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5938 WRITE(emess,*)'nl_get_auxinput3_begin_d: Out of range domain number: ',id_id
5939 CALL wrf_error_fatal(emess)
5940 ENDIF
5941 auxinput3_begin_d = model_config_rec%auxinput3_begin_d(id_id)
5942 RETURN
5943 END SUBROUTINE nl_get_auxinput3_begin_d
5944 SUBROUTINE nl_get_auxinput3_begin_h ( id_id , auxinput3_begin_h )
5945 integer , INTENT(OUT) :: auxinput3_begin_h
5946 INTEGER id_id
5947 CHARACTER*80 emess
5948 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5949 WRITE(emess,*)'nl_get_auxinput3_begin_h: Out of range domain number: ',id_id
5950 CALL wrf_error_fatal(emess)
5951 ENDIF
5952 auxinput3_begin_h = model_config_rec%auxinput3_begin_h(id_id)
5953 RETURN
5954 END SUBROUTINE nl_get_auxinput3_begin_h
5955 SUBROUTINE nl_get_auxinput3_begin_m ( id_id , auxinput3_begin_m )
5956 integer , INTENT(OUT) :: auxinput3_begin_m
5957 INTEGER id_id
5958 CHARACTER*80 emess
5959 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5960 WRITE(emess,*)'nl_get_auxinput3_begin_m: Out of range domain number: ',id_id
5961 CALL wrf_error_fatal(emess)
5962 ENDIF
5963 auxinput3_begin_m = model_config_rec%auxinput3_begin_m(id_id)
5964 RETURN
5965 END SUBROUTINE nl_get_auxinput3_begin_m
5966 SUBROUTINE nl_get_auxinput3_begin_s ( id_id , auxinput3_begin_s )
5967 integer , INTENT(OUT) :: auxinput3_begin_s
5968 INTEGER id_id
5969 CHARACTER*80 emess
5970 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5971 WRITE(emess,*)'nl_get_auxinput3_begin_s: Out of range domain number: ',id_id
5972 CALL wrf_error_fatal(emess)
5973 ENDIF
5974 auxinput3_begin_s = model_config_rec%auxinput3_begin_s(id_id)
5975 RETURN
5976 END SUBROUTINE nl_get_auxinput3_begin_s
5977 SUBROUTINE nl_get_auxinput4_begin_y ( id_id , auxinput4_begin_y )
5978 integer , INTENT(OUT) :: auxinput4_begin_y
5979 INTEGER id_id
5980 CHARACTER*80 emess
5981 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5982 WRITE(emess,*)'nl_get_auxinput4_begin_y: Out of range domain number: ',id_id
5983 CALL wrf_error_fatal(emess)
5984 ENDIF
5985 auxinput4_begin_y = model_config_rec%auxinput4_begin_y(id_id)
5986 RETURN
5987 END SUBROUTINE nl_get_auxinput4_begin_y
5988 SUBROUTINE nl_get_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
5989 integer , INTENT(OUT) :: auxinput4_begin_mo
5990 INTEGER id_id
5991 CHARACTER*80 emess
5992 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5993 WRITE(emess,*)'nl_get_auxinput4_begin_mo: Out of range domain number: ',id_id
5994 CALL wrf_error_fatal(emess)
5995 ENDIF
5996 auxinput4_begin_mo = model_config_rec%auxinput4_begin_mo(id_id)
5997 RETURN
5998 END SUBROUTINE nl_get_auxinput4_begin_mo
5999 SUBROUTINE nl_get_auxinput4_begin_d ( id_id , auxinput4_begin_d )
6000 integer , INTENT(OUT) :: auxinput4_begin_d
6001 INTEGER id_id
6002 CHARACTER*80 emess
6003 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6004 WRITE(emess,*)'nl_get_auxinput4_begin_d: Out of range domain number: ',id_id
6005 CALL wrf_error_fatal(emess)
6006 ENDIF
6007 auxinput4_begin_d = model_config_rec%auxinput4_begin_d(id_id)
6008 RETURN
6009 END SUBROUTINE nl_get_auxinput4_begin_d
6010 SUBROUTINE nl_get_auxinput4_begin_h ( id_id , auxinput4_begin_h )
6011 integer , INTENT(OUT) :: auxinput4_begin_h
6012 INTEGER id_id
6013 CHARACTER*80 emess
6014 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6015 WRITE(emess,*)'nl_get_auxinput4_begin_h: Out of range domain number: ',id_id
6016 CALL wrf_error_fatal(emess)
6017 ENDIF
6018 auxinput4_begin_h = model_config_rec%auxinput4_begin_h(id_id)
6019 RETURN
6020 END SUBROUTINE nl_get_auxinput4_begin_h
6021 SUBROUTINE nl_get_auxinput4_begin_m ( id_id , auxinput4_begin_m )
6022 integer , INTENT(OUT) :: auxinput4_begin_m
6023 INTEGER id_id
6024 CHARACTER*80 emess
6025 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6026 WRITE(emess,*)'nl_get_auxinput4_begin_m: Out of range domain number: ',id_id
6027 CALL wrf_error_fatal(emess)
6028 ENDIF
6029 auxinput4_begin_m = model_config_rec%auxinput4_begin_m(id_id)
6030 RETURN
6031 END SUBROUTINE nl_get_auxinput4_begin_m
6032 SUBROUTINE nl_get_auxinput4_begin_s ( id_id , auxinput4_begin_s )
6033 integer , INTENT(OUT) :: auxinput4_begin_s
6034 INTEGER id_id
6035 CHARACTER*80 emess
6036 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6037 WRITE(emess,*)'nl_get_auxinput4_begin_s: Out of range domain number: ',id_id
6038 CALL wrf_error_fatal(emess)
6039 ENDIF
6040 auxinput4_begin_s = model_config_rec%auxinput4_begin_s(id_id)
6041 RETURN
6042 END SUBROUTINE nl_get_auxinput4_begin_s
6043 SUBROUTINE nl_get_auxinput5_begin_y ( id_id , auxinput5_begin_y )
6044 integer , INTENT(OUT) :: auxinput5_begin_y
6045 INTEGER id_id
6046 CHARACTER*80 emess
6047 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6048 WRITE(emess,*)'nl_get_auxinput5_begin_y: Out of range domain number: ',id_id
6049 CALL wrf_error_fatal(emess)
6050 ENDIF
6051 auxinput5_begin_y = model_config_rec%auxinput5_begin_y(id_id)
6052 RETURN
6053 END SUBROUTINE nl_get_auxinput5_begin_y
6054 SUBROUTINE nl_get_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
6055 integer , INTENT(OUT) :: auxinput5_begin_mo
6056 INTEGER id_id
6057 CHARACTER*80 emess
6058 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6059 WRITE(emess,*)'nl_get_auxinput5_begin_mo: Out of range domain number: ',id_id
6060 CALL wrf_error_fatal(emess)
6061 ENDIF
6062 auxinput5_begin_mo = model_config_rec%auxinput5_begin_mo(id_id)
6063 RETURN
6064 END SUBROUTINE nl_get_auxinput5_begin_mo
6065 SUBROUTINE nl_get_auxinput5_begin_d ( id_id , auxinput5_begin_d )
6066 integer , INTENT(OUT) :: auxinput5_begin_d
6067 INTEGER id_id
6068 CHARACTER*80 emess
6069 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6070 WRITE(emess,*)'nl_get_auxinput5_begin_d: Out of range domain number: ',id_id
6071 CALL wrf_error_fatal(emess)
6072 ENDIF
6073 auxinput5_begin_d = model_config_rec%auxinput5_begin_d(id_id)
6074 RETURN
6075 END SUBROUTINE nl_get_auxinput5_begin_d
6076 SUBROUTINE nl_get_auxinput5_begin_h ( id_id , auxinput5_begin_h )
6077 integer , INTENT(OUT) :: auxinput5_begin_h
6078 INTEGER id_id
6079 CHARACTER*80 emess
6080 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6081 WRITE(emess,*)'nl_get_auxinput5_begin_h: Out of range domain number: ',id_id
6082 CALL wrf_error_fatal(emess)
6083 ENDIF
6084 auxinput5_begin_h = model_config_rec%auxinput5_begin_h(id_id)
6085 RETURN
6086 END SUBROUTINE nl_get_auxinput5_begin_h
6087 SUBROUTINE nl_get_auxinput5_begin_m ( id_id , auxinput5_begin_m )
6088 integer , INTENT(OUT) :: auxinput5_begin_m
6089 INTEGER id_id
6090 CHARACTER*80 emess
6091 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6092 WRITE(emess,*)'nl_get_auxinput5_begin_m: Out of range domain number: ',id_id
6093 CALL wrf_error_fatal(emess)
6094 ENDIF
6095 auxinput5_begin_m = model_config_rec%auxinput5_begin_m(id_id)
6096 RETURN
6097 END SUBROUTINE nl_get_auxinput5_begin_m
6098 SUBROUTINE nl_get_auxinput5_begin_s ( id_id , auxinput5_begin_s )
6099 integer , INTENT(OUT) :: auxinput5_begin_s
6100 INTEGER id_id
6101 CHARACTER*80 emess
6102 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6103 WRITE(emess,*)'nl_get_auxinput5_begin_s: Out of range domain number: ',id_id
6104 CALL wrf_error_fatal(emess)
6105 ENDIF
6106 auxinput5_begin_s = model_config_rec%auxinput5_begin_s(id_id)
6107 RETURN
6108 END SUBROUTINE nl_get_auxinput5_begin_s
6109 SUBROUTINE nl_get_auxinput6_begin_y ( id_id , auxinput6_begin_y )
6110 integer , INTENT(OUT) :: auxinput6_begin_y
6111 INTEGER id_id
6112 CHARACTER*80 emess
6113 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6114 WRITE(emess,*)'nl_get_auxinput6_begin_y: Out of range domain number: ',id_id
6115 CALL wrf_error_fatal(emess)
6116 ENDIF
6117 auxinput6_begin_y = model_config_rec%auxinput6_begin_y(id_id)
6118 RETURN
6119 END SUBROUTINE nl_get_auxinput6_begin_y
6120 SUBROUTINE nl_get_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
6121 integer , INTENT(OUT) :: auxinput6_begin_mo
6122 INTEGER id_id
6123 CHARACTER*80 emess
6124 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6125 WRITE(emess,*)'nl_get_auxinput6_begin_mo: Out of range domain number: ',id_id
6126 CALL wrf_error_fatal(emess)
6127 ENDIF
6128 auxinput6_begin_mo = model_config_rec%auxinput6_begin_mo(id_id)
6129 RETURN
6130 END SUBROUTINE nl_get_auxinput6_begin_mo
6131 SUBROUTINE nl_get_auxinput6_begin_d ( id_id , auxinput6_begin_d )
6132 integer , INTENT(OUT) :: auxinput6_begin_d
6133 INTEGER id_id
6134 CHARACTER*80 emess
6135 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6136 WRITE(emess,*)'nl_get_auxinput6_begin_d: Out of range domain number: ',id_id
6137 CALL wrf_error_fatal(emess)
6138 ENDIF
6139 auxinput6_begin_d = model_config_rec%auxinput6_begin_d(id_id)
6140 RETURN
6141 END SUBROUTINE nl_get_auxinput6_begin_d
6142 SUBROUTINE nl_get_auxinput6_begin_h ( id_id , auxinput6_begin_h )
6143 integer , INTENT(OUT) :: auxinput6_begin_h
6144 INTEGER id_id
6145 CHARACTER*80 emess
6146 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6147 WRITE(emess,*)'nl_get_auxinput6_begin_h: Out of range domain number: ',id_id
6148 CALL wrf_error_fatal(emess)
6149 ENDIF
6150 auxinput6_begin_h = model_config_rec%auxinput6_begin_h(id_id)
6151 RETURN
6152 END SUBROUTINE nl_get_auxinput6_begin_h
6153 SUBROUTINE nl_get_auxinput6_begin_m ( id_id , auxinput6_begin_m )
6154 integer , INTENT(OUT) :: auxinput6_begin_m
6155 INTEGER id_id
6156 CHARACTER*80 emess
6157 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6158 WRITE(emess,*)'nl_get_auxinput6_begin_m: Out of range domain number: ',id_id
6159 CALL wrf_error_fatal(emess)
6160 ENDIF
6161 auxinput6_begin_m = model_config_rec%auxinput6_begin_m(id_id)
6162 RETURN
6163 END SUBROUTINE nl_get_auxinput6_begin_m
6164 SUBROUTINE nl_get_auxinput6_begin_s ( id_id , auxinput6_begin_s )
6165 integer , INTENT(OUT) :: auxinput6_begin_s
6166 INTEGER id_id
6167 CHARACTER*80 emess
6168 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6169 WRITE(emess,*)'nl_get_auxinput6_begin_s: Out of range domain number: ',id_id
6170 CALL wrf_error_fatal(emess)
6171 ENDIF
6172 auxinput6_begin_s = model_config_rec%auxinput6_begin_s(id_id)
6173 RETURN
6174 END SUBROUTINE nl_get_auxinput6_begin_s
6175 SUBROUTINE nl_get_auxinput7_begin_y ( id_id , auxinput7_begin_y )
6176 integer , INTENT(OUT) :: auxinput7_begin_y
6177 INTEGER id_id
6178 CHARACTER*80 emess
6179 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6180 WRITE(emess,*)'nl_get_auxinput7_begin_y: Out of range domain number: ',id_id
6181 CALL wrf_error_fatal(emess)
6182 ENDIF
6183 auxinput7_begin_y = model_config_rec%auxinput7_begin_y(id_id)
6184 RETURN
6185 END SUBROUTINE nl_get_auxinput7_begin_y
6186 SUBROUTINE nl_get_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
6187 integer , INTENT(OUT) :: auxinput7_begin_mo
6188 INTEGER id_id
6189 CHARACTER*80 emess
6190 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6191 WRITE(emess,*)'nl_get_auxinput7_begin_mo: Out of range domain number: ',id_id
6192 CALL wrf_error_fatal(emess)
6193 ENDIF
6194 auxinput7_begin_mo = model_config_rec%auxinput7_begin_mo(id_id)
6195 RETURN
6196 END SUBROUTINE nl_get_auxinput7_begin_mo
6197 SUBROUTINE nl_get_auxinput7_begin_d ( id_id , auxinput7_begin_d )
6198 integer , INTENT(OUT) :: auxinput7_begin_d
6199 INTEGER id_id
6200 CHARACTER*80 emess
6201 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6202 WRITE(emess,*)'nl_get_auxinput7_begin_d: Out of range domain number: ',id_id
6203 CALL wrf_error_fatal(emess)
6204 ENDIF
6205 auxinput7_begin_d = model_config_rec%auxinput7_begin_d(id_id)
6206 RETURN
6207 END SUBROUTINE nl_get_auxinput7_begin_d
6208 SUBROUTINE nl_get_auxinput7_begin_h ( id_id , auxinput7_begin_h )
6209 integer , INTENT(OUT) :: auxinput7_begin_h
6210 INTEGER id_id
6211 CHARACTER*80 emess
6212 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6213 WRITE(emess,*)'nl_get_auxinput7_begin_h: Out of range domain number: ',id_id
6214 CALL wrf_error_fatal(emess)
6215 ENDIF
6216 auxinput7_begin_h = model_config_rec%auxinput7_begin_h(id_id)
6217 RETURN
6218 END SUBROUTINE nl_get_auxinput7_begin_h
6219 SUBROUTINE nl_get_auxinput7_begin_m ( id_id , auxinput7_begin_m )
6220 integer , INTENT(OUT) :: auxinput7_begin_m
6221 INTEGER id_id
6222 CHARACTER*80 emess
6223 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6224 WRITE(emess,*)'nl_get_auxinput7_begin_m: Out of range domain number: ',id_id
6225 CALL wrf_error_fatal(emess)
6226 ENDIF
6227 auxinput7_begin_m = model_config_rec%auxinput7_begin_m(id_id)
6228 RETURN
6229 END SUBROUTINE nl_get_auxinput7_begin_m
6230 SUBROUTINE nl_get_auxinput7_begin_s ( id_id , auxinput7_begin_s )
6231 integer , INTENT(OUT) :: auxinput7_begin_s
6232 INTEGER id_id
6233 CHARACTER*80 emess
6234 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6235 WRITE(emess,*)'nl_get_auxinput7_begin_s: Out of range domain number: ',id_id
6236 CALL wrf_error_fatal(emess)
6237 ENDIF
6238 auxinput7_begin_s = model_config_rec%auxinput7_begin_s(id_id)
6239 RETURN
6240 END SUBROUTINE nl_get_auxinput7_begin_s
6241 SUBROUTINE nl_get_auxinput8_begin_y ( id_id , auxinput8_begin_y )
6242 integer , INTENT(OUT) :: auxinput8_begin_y
6243 INTEGER id_id
6244 CHARACTER*80 emess
6245 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6246 WRITE(emess,*)'nl_get_auxinput8_begin_y: Out of range domain number: ',id_id
6247 CALL wrf_error_fatal(emess)
6248 ENDIF
6249 auxinput8_begin_y = model_config_rec%auxinput8_begin_y(id_id)
6250 RETURN
6251 END SUBROUTINE nl_get_auxinput8_begin_y
6252 SUBROUTINE nl_get_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
6253 integer , INTENT(OUT) :: auxinput8_begin_mo
6254 INTEGER id_id
6255 CHARACTER*80 emess
6256 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6257 WRITE(emess,*)'nl_get_auxinput8_begin_mo: Out of range domain number: ',id_id
6258 CALL wrf_error_fatal(emess)
6259 ENDIF
6260 auxinput8_begin_mo = model_config_rec%auxinput8_begin_mo(id_id)
6261 RETURN
6262 END SUBROUTINE nl_get_auxinput8_begin_mo
6263 SUBROUTINE nl_get_auxinput8_begin_d ( id_id , auxinput8_begin_d )
6264 integer , INTENT(OUT) :: auxinput8_begin_d
6265 INTEGER id_id
6266 CHARACTER*80 emess
6267 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6268 WRITE(emess,*)'nl_get_auxinput8_begin_d: Out of range domain number: ',id_id
6269 CALL wrf_error_fatal(emess)
6270 ENDIF
6271 auxinput8_begin_d = model_config_rec%auxinput8_begin_d(id_id)
6272 RETURN
6273 END SUBROUTINE nl_get_auxinput8_begin_d
6274 SUBROUTINE nl_get_auxinput8_begin_h ( id_id , auxinput8_begin_h )
6275 integer , INTENT(OUT) :: auxinput8_begin_h
6276 INTEGER id_id
6277 CHARACTER*80 emess
6278 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6279 WRITE(emess,*)'nl_get_auxinput8_begin_h: Out of range domain number: ',id_id
6280 CALL wrf_error_fatal(emess)
6281 ENDIF
6282 auxinput8_begin_h = model_config_rec%auxinput8_begin_h(id_id)
6283 RETURN
6284 END SUBROUTINE nl_get_auxinput8_begin_h
6285 SUBROUTINE nl_get_auxinput8_begin_m ( id_id , auxinput8_begin_m )
6286 integer , INTENT(OUT) :: auxinput8_begin_m
6287 INTEGER id_id
6288 CHARACTER*80 emess
6289 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6290 WRITE(emess,*)'nl_get_auxinput8_begin_m: Out of range domain number: ',id_id
6291 CALL wrf_error_fatal(emess)
6292 ENDIF
6293 auxinput8_begin_m = model_config_rec%auxinput8_begin_m(id_id)
6294 RETURN
6295 END SUBROUTINE nl_get_auxinput8_begin_m
6296 SUBROUTINE nl_get_auxinput8_begin_s ( id_id , auxinput8_begin_s )
6297 integer , INTENT(OUT) :: auxinput8_begin_s
6298 INTEGER id_id
6299 CHARACTER*80 emess
6300 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6301 WRITE(emess,*)'nl_get_auxinput8_begin_s: Out of range domain number: ',id_id
6302 CALL wrf_error_fatal(emess)
6303 ENDIF
6304 auxinput8_begin_s = model_config_rec%auxinput8_begin_s(id_id)
6305 RETURN
6306 END SUBROUTINE nl_get_auxinput8_begin_s
6307 SUBROUTINE nl_get_auxinput9_begin_y ( id_id , auxinput9_begin_y )
6308 integer , INTENT(OUT) :: auxinput9_begin_y
6309 INTEGER id_id
6310 CHARACTER*80 emess
6311 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6312 WRITE(emess,*)'nl_get_auxinput9_begin_y: Out of range domain number: ',id_id
6313 CALL wrf_error_fatal(emess)
6314 ENDIF
6315 auxinput9_begin_y = model_config_rec%auxinput9_begin_y(id_id)
6316 RETURN
6317 END SUBROUTINE nl_get_auxinput9_begin_y
6318 SUBROUTINE nl_get_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
6319 integer , INTENT(OUT) :: auxinput9_begin_mo
6320 INTEGER id_id
6321 CHARACTER*80 emess
6322 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6323 WRITE(emess,*)'nl_get_auxinput9_begin_mo: Out of range domain number: ',id_id
6324 CALL wrf_error_fatal(emess)
6325 ENDIF
6326 auxinput9_begin_mo = model_config_rec%auxinput9_begin_mo(id_id)
6327 RETURN
6328 END SUBROUTINE nl_get_auxinput9_begin_mo
6329 SUBROUTINE nl_get_auxinput9_begin_d ( id_id , auxinput9_begin_d )
6330 integer , INTENT(OUT) :: auxinput9_begin_d
6331 INTEGER id_id
6332 CHARACTER*80 emess
6333 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6334 WRITE(emess,*)'nl_get_auxinput9_begin_d: Out of range domain number: ',id_id
6335 CALL wrf_error_fatal(emess)
6336 ENDIF
6337 auxinput9_begin_d = model_config_rec%auxinput9_begin_d(id_id)
6338 RETURN
6339 END SUBROUTINE nl_get_auxinput9_begin_d
6340 SUBROUTINE nl_get_auxinput9_begin_h ( id_id , auxinput9_begin_h )
6341 integer , INTENT(OUT) :: auxinput9_begin_h
6342 INTEGER id_id
6343 CHARACTER*80 emess
6344 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6345 WRITE(emess,*)'nl_get_auxinput9_begin_h: Out of range domain number: ',id_id
6346 CALL wrf_error_fatal(emess)
6347 ENDIF
6348 auxinput9_begin_h = model_config_rec%auxinput9_begin_h(id_id)
6349 RETURN
6350 END SUBROUTINE nl_get_auxinput9_begin_h
6351 SUBROUTINE nl_get_auxinput9_begin_m ( id_id , auxinput9_begin_m )
6352 integer , INTENT(OUT) :: auxinput9_begin_m
6353 INTEGER id_id
6354 CHARACTER*80 emess
6355 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6356 WRITE(emess,*)'nl_get_auxinput9_begin_m: Out of range domain number: ',id_id
6357 CALL wrf_error_fatal(emess)
6358 ENDIF
6359 auxinput9_begin_m = model_config_rec%auxinput9_begin_m(id_id)
6360 RETURN
6361 END SUBROUTINE nl_get_auxinput9_begin_m
6362 SUBROUTINE nl_get_auxinput9_begin_s ( id_id , auxinput9_begin_s )
6363 integer , INTENT(OUT) :: auxinput9_begin_s
6364 INTEGER id_id
6365 CHARACTER*80 emess
6366 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6367 WRITE(emess,*)'nl_get_auxinput9_begin_s: Out of range domain number: ',id_id
6368 CALL wrf_error_fatal(emess)
6369 ENDIF
6370 auxinput9_begin_s = model_config_rec%auxinput9_begin_s(id_id)
6371 RETURN
6372 END SUBROUTINE nl_get_auxinput9_begin_s
6373 SUBROUTINE nl_get_gfdda_begin_y ( id_id , gfdda_begin_y )
6374 integer , INTENT(OUT) :: gfdda_begin_y
6375 INTEGER id_id
6376 CHARACTER*80 emess
6377 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6378 WRITE(emess,*)'nl_get_gfdda_begin_y: Out of range domain number: ',id_id
6379 CALL wrf_error_fatal(emess)
6380 ENDIF
6381 gfdda_begin_y = model_config_rec%gfdda_begin_y(id_id)
6382 RETURN
6383 END SUBROUTINE nl_get_gfdda_begin_y
6384 SUBROUTINE nl_get_gfdda_begin_mo ( id_id , gfdda_begin_mo )
6385 integer , INTENT(OUT) :: gfdda_begin_mo
6386 INTEGER id_id
6387 CHARACTER*80 emess
6388 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6389 WRITE(emess,*)'nl_get_gfdda_begin_mo: Out of range domain number: ',id_id
6390 CALL wrf_error_fatal(emess)
6391 ENDIF
6392 gfdda_begin_mo = model_config_rec%gfdda_begin_mo(id_id)
6393 RETURN
6394 END SUBROUTINE nl_get_gfdda_begin_mo
6395 SUBROUTINE nl_get_gfdda_begin_d ( id_id , gfdda_begin_d )
6396 integer , INTENT(OUT) :: gfdda_begin_d
6397 INTEGER id_id
6398 CHARACTER*80 emess
6399 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6400 WRITE(emess,*)'nl_get_gfdda_begin_d: Out of range domain number: ',id_id
6401 CALL wrf_error_fatal(emess)
6402 ENDIF
6403 gfdda_begin_d = model_config_rec%gfdda_begin_d(id_id)
6404 RETURN
6405 END SUBROUTINE nl_get_gfdda_begin_d
6406 SUBROUTINE nl_get_gfdda_begin_h ( id_id , gfdda_begin_h )
6407 integer , INTENT(OUT) :: gfdda_begin_h
6408 INTEGER id_id
6409 CHARACTER*80 emess
6410 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6411 WRITE(emess,*)'nl_get_gfdda_begin_h: Out of range domain number: ',id_id
6412 CALL wrf_error_fatal(emess)
6413 ENDIF
6414 gfdda_begin_h = model_config_rec%gfdda_begin_h(id_id)
6415 RETURN
6416 END SUBROUTINE nl_get_gfdda_begin_h
6417 SUBROUTINE nl_get_gfdda_begin_m ( id_id , gfdda_begin_m )
6418 integer , INTENT(OUT) :: gfdda_begin_m
6419 INTEGER id_id
6420 CHARACTER*80 emess
6421 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6422 WRITE(emess,*)'nl_get_gfdda_begin_m: Out of range domain number: ',id_id
6423 CALL wrf_error_fatal(emess)
6424 ENDIF
6425 gfdda_begin_m = model_config_rec%gfdda_begin_m(id_id)
6426 RETURN
6427 END SUBROUTINE nl_get_gfdda_begin_m
6428 SUBROUTINE nl_get_gfdda_begin_s ( id_id , gfdda_begin_s )
6429 integer , INTENT(OUT) :: gfdda_begin_s
6430 INTEGER id_id
6431 CHARACTER*80 emess
6432 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6433 WRITE(emess,*)'nl_get_gfdda_begin_s: Out of range domain number: ',id_id
6434 CALL wrf_error_fatal(emess)
6435 ENDIF
6436 gfdda_begin_s = model_config_rec%gfdda_begin_s(id_id)
6437 RETURN
6438 END SUBROUTINE nl_get_gfdda_begin_s
6439 SUBROUTINE nl_get_auxinput11_begin_y ( id_id , auxinput11_begin_y )
6440 integer , INTENT(OUT) :: auxinput11_begin_y
6441 INTEGER id_id
6442 CHARACTER*80 emess
6443 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6444 WRITE(emess,*)'nl_get_auxinput11_begin_y: Out of range domain number: ',id_id
6445 CALL wrf_error_fatal(emess)
6446 ENDIF
6447 auxinput11_begin_y = model_config_rec%auxinput11_begin_y(id_id)
6448 RETURN
6449 END SUBROUTINE nl_get_auxinput11_begin_y
6450 SUBROUTINE nl_get_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
6451 integer , INTENT(OUT) :: auxinput11_begin_mo
6452 INTEGER id_id
6453 CHARACTER*80 emess
6454 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6455 WRITE(emess,*)'nl_get_auxinput11_begin_mo: Out of range domain number: ',id_id
6456 CALL wrf_error_fatal(emess)
6457 ENDIF
6458 auxinput11_begin_mo = model_config_rec%auxinput11_begin_mo(id_id)
6459 RETURN
6460 END SUBROUTINE nl_get_auxinput11_begin_mo
6461 SUBROUTINE nl_get_auxinput11_begin_d ( id_id , auxinput11_begin_d )
6462 integer , INTENT(OUT) :: auxinput11_begin_d
6463 INTEGER id_id
6464 CHARACTER*80 emess
6465 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6466 WRITE(emess,*)'nl_get_auxinput11_begin_d: Out of range domain number: ',id_id
6467 CALL wrf_error_fatal(emess)
6468 ENDIF
6469 auxinput11_begin_d = model_config_rec%auxinput11_begin_d(id_id)
6470 RETURN
6471 END SUBROUTINE nl_get_auxinput11_begin_d
6472 SUBROUTINE nl_get_auxinput11_begin_h ( id_id , auxinput11_begin_h )
6473 integer , INTENT(OUT) :: auxinput11_begin_h
6474 INTEGER id_id
6475 CHARACTER*80 emess
6476 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6477 WRITE(emess,*)'nl_get_auxinput11_begin_h: Out of range domain number: ',id_id
6478 CALL wrf_error_fatal(emess)
6479 ENDIF
6480 auxinput11_begin_h = model_config_rec%auxinput11_begin_h(id_id)
6481 RETURN
6482 END SUBROUTINE nl_get_auxinput11_begin_h
6483 SUBROUTINE nl_get_auxinput11_begin_m ( id_id , auxinput11_begin_m )
6484 integer , INTENT(OUT) :: auxinput11_begin_m
6485 INTEGER id_id
6486 CHARACTER*80 emess
6487 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6488 WRITE(emess,*)'nl_get_auxinput11_begin_m: Out of range domain number: ',id_id
6489 CALL wrf_error_fatal(emess)
6490 ENDIF
6491 auxinput11_begin_m = model_config_rec%auxinput11_begin_m(id_id)
6492 RETURN
6493 END SUBROUTINE nl_get_auxinput11_begin_m
6494 SUBROUTINE nl_get_auxinput11_begin_s ( id_id , auxinput11_begin_s )
6495 integer , INTENT(OUT) :: auxinput11_begin_s
6496 INTEGER id_id
6497 CHARACTER*80 emess
6498 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6499 WRITE(emess,*)'nl_get_auxinput11_begin_s: Out of range domain number: ',id_id
6500 CALL wrf_error_fatal(emess)
6501 ENDIF
6502 auxinput11_begin_s = model_config_rec%auxinput11_begin_s(id_id)
6503 RETURN
6504 END SUBROUTINE nl_get_auxinput11_begin_s
6505 SUBROUTINE nl_get_restart_begin_y ( id_id , restart_begin_y )
6506 integer , INTENT(OUT) :: restart_begin_y
6507 INTEGER id_id
6508 CHARACTER*80 emess
6509 IF ( id_id .NE. 1 ) THEN
6510 call wrf_debug(1,&
6511 'WARNING in nl_get_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
6512 ENDIF
6513 restart_begin_y = model_config_rec%restart_begin_y
6514 RETURN
6515 END SUBROUTINE nl_get_restart_begin_y
6516 SUBROUTINE nl_get_restart_begin_mo ( id_id , restart_begin_mo )
6517 integer , INTENT(OUT) :: restart_begin_mo
6518 INTEGER id_id
6519 CHARACTER*80 emess
6520 IF ( id_id .NE. 1 ) THEN
6521 call wrf_debug(1,&
6522 'WARNING in nl_get_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
6523 ENDIF
6524 restart_begin_mo = model_config_rec%restart_begin_mo
6525 RETURN
6526 END SUBROUTINE nl_get_restart_begin_mo
6527 SUBROUTINE nl_get_restart_begin_d ( id_id , restart_begin_d )
6528 integer , INTENT(OUT) :: restart_begin_d
6529 INTEGER id_id
6530 CHARACTER*80 emess
6531 IF ( id_id .NE. 1 ) THEN
6532 call wrf_debug(1,&
6533 'WARNING in nl_get_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
6534 ENDIF
6535 restart_begin_d = model_config_rec%restart_begin_d
6536 RETURN
6537 END SUBROUTINE nl_get_restart_begin_d
6538 SUBROUTINE nl_get_restart_begin_h ( id_id , restart_begin_h )
6539 integer , INTENT(OUT) :: restart_begin_h
6540 INTEGER id_id
6541 CHARACTER*80 emess
6542 IF ( id_id .NE. 1 ) THEN
6543 call wrf_debug(1,&
6544 'WARNING in nl_get_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
6545 ENDIF
6546 restart_begin_h = model_config_rec%restart_begin_h
6547 RETURN
6548 END SUBROUTINE nl_get_restart_begin_h
6549 SUBROUTINE nl_get_restart_begin_m ( id_id , restart_begin_m )
6550 integer , INTENT(OUT) :: restart_begin_m
6551 INTEGER id_id
6552 CHARACTER*80 emess
6553 IF ( id_id .NE. 1 ) THEN
6554 call wrf_debug(1,&
6555 'WARNING in nl_get_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
6556 ENDIF
6557 restart_begin_m = model_config_rec%restart_begin_m
6558 RETURN
6559 END SUBROUTINE nl_get_restart_begin_m
6560 SUBROUTINE nl_get_restart_begin_s ( id_id , restart_begin_s )
6561 integer , INTENT(OUT) :: restart_begin_s
6562 INTEGER id_id
6563 CHARACTER*80 emess
6564 IF ( id_id .NE. 1 ) THEN
6565 call wrf_debug(1,&
6566 'WARNING in nl_get_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
6567 ENDIF
6568 restart_begin_s = model_config_rec%restart_begin_s
6569 RETURN
6570 END SUBROUTINE nl_get_restart_begin_s
6571 SUBROUTINE nl_get_history_end_y ( id_id , history_end_y )
6572 integer , INTENT(OUT) :: history_end_y
6573 INTEGER id_id
6574 CHARACTER*80 emess
6575 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6576 WRITE(emess,*)'nl_get_history_end_y: Out of range domain number: ',id_id
6577 CALL wrf_error_fatal(emess)
6578 ENDIF
6579 history_end_y = model_config_rec%history_end_y(id_id)
6580 RETURN
6581 END SUBROUTINE nl_get_history_end_y
6582 SUBROUTINE nl_get_history_end_mo ( id_id , history_end_mo )
6583 integer , INTENT(OUT) :: history_end_mo
6584 INTEGER id_id
6585 CHARACTER*80 emess
6586 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6587 WRITE(emess,*)'nl_get_history_end_mo: Out of range domain number: ',id_id
6588 CALL wrf_error_fatal(emess)
6589 ENDIF
6590 history_end_mo = model_config_rec%history_end_mo(id_id)
6591 RETURN
6592 END SUBROUTINE nl_get_history_end_mo
6593 SUBROUTINE nl_get_history_end_d ( id_id , history_end_d )
6594 integer , INTENT(OUT) :: history_end_d
6595 INTEGER id_id
6596 CHARACTER*80 emess
6597 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6598 WRITE(emess,*)'nl_get_history_end_d: Out of range domain number: ',id_id
6599 CALL wrf_error_fatal(emess)
6600 ENDIF
6601 history_end_d = model_config_rec%history_end_d(id_id)
6602 RETURN
6603 END SUBROUTINE nl_get_history_end_d
6604 SUBROUTINE nl_get_history_end_h ( id_id , history_end_h )
6605 integer , INTENT(OUT) :: history_end_h
6606 INTEGER id_id
6607 CHARACTER*80 emess
6608 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6609 WRITE(emess,*)'nl_get_history_end_h: Out of range domain number: ',id_id
6610 CALL wrf_error_fatal(emess)
6611 ENDIF
6612 history_end_h = model_config_rec%history_end_h(id_id)
6613 RETURN
6614 END SUBROUTINE nl_get_history_end_h
6615 SUBROUTINE nl_get_history_end_m ( id_id , history_end_m )
6616 integer , INTENT(OUT) :: history_end_m
6617 INTEGER id_id
6618 CHARACTER*80 emess
6619 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6620 WRITE(emess,*)'nl_get_history_end_m: Out of range domain number: ',id_id
6621 CALL wrf_error_fatal(emess)
6622 ENDIF
6623 history_end_m = model_config_rec%history_end_m(id_id)
6624 RETURN
6625 END SUBROUTINE nl_get_history_end_m
6626 SUBROUTINE nl_get_history_end_s ( id_id , history_end_s )
6627 integer , INTENT(OUT) :: history_end_s
6628 INTEGER id_id
6629 CHARACTER*80 emess
6630 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6631 WRITE(emess,*)'nl_get_history_end_s: Out of range domain number: ',id_id
6632 CALL wrf_error_fatal(emess)
6633 ENDIF
6634 history_end_s = model_config_rec%history_end_s(id_id)
6635 RETURN
6636 END SUBROUTINE nl_get_history_end_s
6637 SUBROUTINE nl_get_inputout_end_y ( id_id , inputout_end_y )
6638 integer , INTENT(OUT) :: inputout_end_y
6639 INTEGER id_id
6640 CHARACTER*80 emess
6641 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6642 WRITE(emess,*)'nl_get_inputout_end_y: Out of range domain number: ',id_id
6643 CALL wrf_error_fatal(emess)
6644 ENDIF
6645 inputout_end_y = model_config_rec%inputout_end_y(id_id)
6646 RETURN
6647 END SUBROUTINE nl_get_inputout_end_y
6648 SUBROUTINE nl_get_inputout_end_mo ( id_id , inputout_end_mo )
6649 integer , INTENT(OUT) :: inputout_end_mo
6650 INTEGER id_id
6651 CHARACTER*80 emess
6652 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6653 WRITE(emess,*)'nl_get_inputout_end_mo: Out of range domain number: ',id_id
6654 CALL wrf_error_fatal(emess)
6655 ENDIF
6656 inputout_end_mo = model_config_rec%inputout_end_mo(id_id)
6657 RETURN
6658 END SUBROUTINE nl_get_inputout_end_mo
6659 SUBROUTINE nl_get_inputout_end_d ( id_id , inputout_end_d )
6660 integer , INTENT(OUT) :: inputout_end_d
6661 INTEGER id_id
6662 CHARACTER*80 emess
6663 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6664 WRITE(emess,*)'nl_get_inputout_end_d: Out of range domain number: ',id_id
6665 CALL wrf_error_fatal(emess)
6666 ENDIF
6667 inputout_end_d = model_config_rec%inputout_end_d(id_id)
6668 RETURN
6669 END SUBROUTINE nl_get_inputout_end_d
6670 SUBROUTINE nl_get_inputout_end_h ( id_id , inputout_end_h )
6671 integer , INTENT(OUT) :: inputout_end_h
6672 INTEGER id_id
6673 CHARACTER*80 emess
6674 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6675 WRITE(emess,*)'nl_get_inputout_end_h: Out of range domain number: ',id_id
6676 CALL wrf_error_fatal(emess)
6677 ENDIF
6678 inputout_end_h = model_config_rec%inputout_end_h(id_id)
6679 RETURN
6680 END SUBROUTINE nl_get_inputout_end_h
6681 SUBROUTINE nl_get_inputout_end_m ( id_id , inputout_end_m )
6682 integer , INTENT(OUT) :: inputout_end_m
6683 INTEGER id_id
6684 CHARACTER*80 emess
6685 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6686 WRITE(emess,*)'nl_get_inputout_end_m: Out of range domain number: ',id_id
6687 CALL wrf_error_fatal(emess)
6688 ENDIF
6689 inputout_end_m = model_config_rec%inputout_end_m(id_id)
6690 RETURN
6691 END SUBROUTINE nl_get_inputout_end_m
6692 SUBROUTINE nl_get_inputout_end_s ( id_id , inputout_end_s )
6693 integer , INTENT(OUT) :: inputout_end_s
6694 INTEGER id_id
6695 CHARACTER*80 emess
6696 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6697 WRITE(emess,*)'nl_get_inputout_end_s: Out of range domain number: ',id_id
6698 CALL wrf_error_fatal(emess)
6699 ENDIF
6700 inputout_end_s = model_config_rec%inputout_end_s(id_id)
6701 RETURN
6702 END SUBROUTINE nl_get_inputout_end_s
6703 SUBROUTINE nl_get_auxhist1_end_y ( id_id , auxhist1_end_y )
6704 integer , INTENT(OUT) :: auxhist1_end_y
6705 INTEGER id_id
6706 CHARACTER*80 emess
6707 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6708 WRITE(emess,*)'nl_get_auxhist1_end_y: Out of range domain number: ',id_id
6709 CALL wrf_error_fatal(emess)
6710 ENDIF
6711 auxhist1_end_y = model_config_rec%auxhist1_end_y(id_id)
6712 RETURN
6713 END SUBROUTINE nl_get_auxhist1_end_y
6714 SUBROUTINE nl_get_auxhist1_end_mo ( id_id , auxhist1_end_mo )
6715 integer , INTENT(OUT) :: auxhist1_end_mo
6716 INTEGER id_id
6717 CHARACTER*80 emess
6718 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6719 WRITE(emess,*)'nl_get_auxhist1_end_mo: Out of range domain number: ',id_id
6720 CALL wrf_error_fatal(emess)
6721 ENDIF
6722 auxhist1_end_mo = model_config_rec%auxhist1_end_mo(id_id)
6723 RETURN
6724 END SUBROUTINE nl_get_auxhist1_end_mo
6725 SUBROUTINE nl_get_auxhist1_end_d ( id_id , auxhist1_end_d )
6726 integer , INTENT(OUT) :: auxhist1_end_d
6727 INTEGER id_id
6728 CHARACTER*80 emess
6729 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6730 WRITE(emess,*)'nl_get_auxhist1_end_d: Out of range domain number: ',id_id
6731 CALL wrf_error_fatal(emess)
6732 ENDIF
6733 auxhist1_end_d = model_config_rec%auxhist1_end_d(id_id)
6734 RETURN
6735 END SUBROUTINE nl_get_auxhist1_end_d
6736 SUBROUTINE nl_get_auxhist1_end_h ( id_id , auxhist1_end_h )
6737 integer , INTENT(OUT) :: auxhist1_end_h
6738 INTEGER id_id
6739 CHARACTER*80 emess
6740 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6741 WRITE(emess,*)'nl_get_auxhist1_end_h: Out of range domain number: ',id_id
6742 CALL wrf_error_fatal(emess)
6743 ENDIF
6744 auxhist1_end_h = model_config_rec%auxhist1_end_h(id_id)
6745 RETURN
6746 END SUBROUTINE nl_get_auxhist1_end_h
6747 SUBROUTINE nl_get_auxhist1_end_m ( id_id , auxhist1_end_m )
6748 integer , INTENT(OUT) :: auxhist1_end_m
6749 INTEGER id_id
6750 CHARACTER*80 emess
6751 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6752 WRITE(emess,*)'nl_get_auxhist1_end_m: Out of range domain number: ',id_id
6753 CALL wrf_error_fatal(emess)
6754 ENDIF
6755 auxhist1_end_m = model_config_rec%auxhist1_end_m(id_id)
6756 RETURN
6757 END SUBROUTINE nl_get_auxhist1_end_m
6758 SUBROUTINE nl_get_auxhist1_end_s ( id_id , auxhist1_end_s )
6759 integer , INTENT(OUT) :: auxhist1_end_s
6760 INTEGER id_id
6761 CHARACTER*80 emess
6762 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6763 WRITE(emess,*)'nl_get_auxhist1_end_s: Out of range domain number: ',id_id
6764 CALL wrf_error_fatal(emess)
6765 ENDIF
6766 auxhist1_end_s = model_config_rec%auxhist1_end_s(id_id)
6767 RETURN
6768 END SUBROUTINE nl_get_auxhist1_end_s
6769 SUBROUTINE nl_get_auxhist2_end_y ( id_id , auxhist2_end_y )
6770 integer , INTENT(OUT) :: auxhist2_end_y
6771 INTEGER id_id
6772 CHARACTER*80 emess
6773 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6774 WRITE(emess,*)'nl_get_auxhist2_end_y: Out of range domain number: ',id_id
6775 CALL wrf_error_fatal(emess)
6776 ENDIF
6777 auxhist2_end_y = model_config_rec%auxhist2_end_y(id_id)
6778 RETURN
6779 END SUBROUTINE nl_get_auxhist2_end_y
6780 SUBROUTINE nl_get_auxhist2_end_mo ( id_id , auxhist2_end_mo )
6781 integer , INTENT(OUT) :: auxhist2_end_mo
6782 INTEGER id_id
6783 CHARACTER*80 emess
6784 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6785 WRITE(emess,*)'nl_get_auxhist2_end_mo: Out of range domain number: ',id_id
6786 CALL wrf_error_fatal(emess)
6787 ENDIF
6788 auxhist2_end_mo = model_config_rec%auxhist2_end_mo(id_id)
6789 RETURN
6790 END SUBROUTINE nl_get_auxhist2_end_mo
6791 SUBROUTINE nl_get_auxhist2_end_d ( id_id , auxhist2_end_d )
6792 integer , INTENT(OUT) :: auxhist2_end_d
6793 INTEGER id_id
6794 CHARACTER*80 emess
6795 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6796 WRITE(emess,*)'nl_get_auxhist2_end_d: Out of range domain number: ',id_id
6797 CALL wrf_error_fatal(emess)
6798 ENDIF
6799 auxhist2_end_d = model_config_rec%auxhist2_end_d(id_id)
6800 RETURN
6801 END SUBROUTINE nl_get_auxhist2_end_d
6802 SUBROUTINE nl_get_auxhist2_end_h ( id_id , auxhist2_end_h )
6803 integer , INTENT(OUT) :: auxhist2_end_h
6804 INTEGER id_id
6805 CHARACTER*80 emess
6806 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6807 WRITE(emess,*)'nl_get_auxhist2_end_h: Out of range domain number: ',id_id
6808 CALL wrf_error_fatal(emess)
6809 ENDIF
6810 auxhist2_end_h = model_config_rec%auxhist2_end_h(id_id)
6811 RETURN
6812 END SUBROUTINE nl_get_auxhist2_end_h
6813 SUBROUTINE nl_get_auxhist2_end_m ( id_id , auxhist2_end_m )
6814 integer , INTENT(OUT) :: auxhist2_end_m
6815 INTEGER id_id
6816 CHARACTER*80 emess
6817 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6818 WRITE(emess,*)'nl_get_auxhist2_end_m: Out of range domain number: ',id_id
6819 CALL wrf_error_fatal(emess)
6820 ENDIF
6821 auxhist2_end_m = model_config_rec%auxhist2_end_m(id_id)
6822 RETURN
6823 END SUBROUTINE nl_get_auxhist2_end_m
6824 SUBROUTINE nl_get_auxhist2_end_s ( id_id , auxhist2_end_s )
6825 integer , INTENT(OUT) :: auxhist2_end_s
6826 INTEGER id_id
6827 CHARACTER*80 emess
6828 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6829 WRITE(emess,*)'nl_get_auxhist2_end_s: Out of range domain number: ',id_id
6830 CALL wrf_error_fatal(emess)
6831 ENDIF
6832 auxhist2_end_s = model_config_rec%auxhist2_end_s(id_id)
6833 RETURN
6834 END SUBROUTINE nl_get_auxhist2_end_s
6835 SUBROUTINE nl_get_auxhist3_end_y ( id_id , auxhist3_end_y )
6836 integer , INTENT(OUT) :: auxhist3_end_y
6837 INTEGER id_id
6838 CHARACTER*80 emess
6839 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6840 WRITE(emess,*)'nl_get_auxhist3_end_y: Out of range domain number: ',id_id
6841 CALL wrf_error_fatal(emess)
6842 ENDIF
6843 auxhist3_end_y = model_config_rec%auxhist3_end_y(id_id)
6844 RETURN
6845 END SUBROUTINE nl_get_auxhist3_end_y
6846 SUBROUTINE nl_get_auxhist3_end_mo ( id_id , auxhist3_end_mo )
6847 integer , INTENT(OUT) :: auxhist3_end_mo
6848 INTEGER id_id
6849 CHARACTER*80 emess
6850 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6851 WRITE(emess,*)'nl_get_auxhist3_end_mo: Out of range domain number: ',id_id
6852 CALL wrf_error_fatal(emess)
6853 ENDIF
6854 auxhist3_end_mo = model_config_rec%auxhist3_end_mo(id_id)
6855 RETURN
6856 END SUBROUTINE nl_get_auxhist3_end_mo
6857 SUBROUTINE nl_get_auxhist3_end_d ( id_id , auxhist3_end_d )
6858 integer , INTENT(OUT) :: auxhist3_end_d
6859 INTEGER id_id
6860 CHARACTER*80 emess
6861 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6862 WRITE(emess,*)'nl_get_auxhist3_end_d: Out of range domain number: ',id_id
6863 CALL wrf_error_fatal(emess)
6864 ENDIF
6865 auxhist3_end_d = model_config_rec%auxhist3_end_d(id_id)
6866 RETURN
6867 END SUBROUTINE nl_get_auxhist3_end_d
6868 SUBROUTINE nl_get_auxhist3_end_h ( id_id , auxhist3_end_h )
6869 integer , INTENT(OUT) :: auxhist3_end_h
6870 INTEGER id_id
6871 CHARACTER*80 emess
6872 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6873 WRITE(emess,*)'nl_get_auxhist3_end_h: Out of range domain number: ',id_id
6874 CALL wrf_error_fatal(emess)
6875 ENDIF
6876 auxhist3_end_h = model_config_rec%auxhist3_end_h(id_id)
6877 RETURN
6878 END SUBROUTINE nl_get_auxhist3_end_h
6879 SUBROUTINE nl_get_auxhist3_end_m ( id_id , auxhist3_end_m )
6880 integer , INTENT(OUT) :: auxhist3_end_m
6881 INTEGER id_id
6882 CHARACTER*80 emess
6883 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6884 WRITE(emess,*)'nl_get_auxhist3_end_m: Out of range domain number: ',id_id
6885 CALL wrf_error_fatal(emess)
6886 ENDIF
6887 auxhist3_end_m = model_config_rec%auxhist3_end_m(id_id)
6888 RETURN
6889 END SUBROUTINE nl_get_auxhist3_end_m
6890 SUBROUTINE nl_get_auxhist3_end_s ( id_id , auxhist3_end_s )
6891 integer , INTENT(OUT) :: auxhist3_end_s
6892 INTEGER id_id
6893 CHARACTER*80 emess
6894 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6895 WRITE(emess,*)'nl_get_auxhist3_end_s: Out of range domain number: ',id_id
6896 CALL wrf_error_fatal(emess)
6897 ENDIF
6898 auxhist3_end_s = model_config_rec%auxhist3_end_s(id_id)
6899 RETURN
6900 END SUBROUTINE nl_get_auxhist3_end_s
6901 SUBROUTINE nl_get_auxhist4_end_y ( id_id , auxhist4_end_y )
6902 integer , INTENT(OUT) :: auxhist4_end_y
6903 INTEGER id_id
6904 CHARACTER*80 emess
6905 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6906 WRITE(emess,*)'nl_get_auxhist4_end_y: Out of range domain number: ',id_id
6907 CALL wrf_error_fatal(emess)
6908 ENDIF
6909 auxhist4_end_y = model_config_rec%auxhist4_end_y(id_id)
6910 RETURN
6911 END SUBROUTINE nl_get_auxhist4_end_y
6912 SUBROUTINE nl_get_auxhist4_end_mo ( id_id , auxhist4_end_mo )
6913 integer , INTENT(OUT) :: auxhist4_end_mo
6914 INTEGER id_id
6915 CHARACTER*80 emess
6916 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6917 WRITE(emess,*)'nl_get_auxhist4_end_mo: Out of range domain number: ',id_id
6918 CALL wrf_error_fatal(emess)
6919 ENDIF
6920 auxhist4_end_mo = model_config_rec%auxhist4_end_mo(id_id)
6921 RETURN
6922 END SUBROUTINE nl_get_auxhist4_end_mo
6923 SUBROUTINE nl_get_auxhist4_end_d ( id_id , auxhist4_end_d )
6924 integer , INTENT(OUT) :: auxhist4_end_d
6925 INTEGER id_id
6926 CHARACTER*80 emess
6927 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6928 WRITE(emess,*)'nl_get_auxhist4_end_d: Out of range domain number: ',id_id
6929 CALL wrf_error_fatal(emess)
6930 ENDIF
6931 auxhist4_end_d = model_config_rec%auxhist4_end_d(id_id)
6932 RETURN
6933 END SUBROUTINE nl_get_auxhist4_end_d
6934 SUBROUTINE nl_get_auxhist4_end_h ( id_id , auxhist4_end_h )
6935 integer , INTENT(OUT) :: auxhist4_end_h
6936 INTEGER id_id
6937 CHARACTER*80 emess
6938 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6939 WRITE(emess,*)'nl_get_auxhist4_end_h: Out of range domain number: ',id_id
6940 CALL wrf_error_fatal(emess)
6941 ENDIF
6942 auxhist4_end_h = model_config_rec%auxhist4_end_h(id_id)
6943 RETURN
6944 END SUBROUTINE nl_get_auxhist4_end_h
6945 SUBROUTINE nl_get_auxhist4_end_m ( id_id , auxhist4_end_m )
6946 integer , INTENT(OUT) :: auxhist4_end_m
6947 INTEGER id_id
6948 CHARACTER*80 emess
6949 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6950 WRITE(emess,*)'nl_get_auxhist4_end_m: Out of range domain number: ',id_id
6951 CALL wrf_error_fatal(emess)
6952 ENDIF
6953 auxhist4_end_m = model_config_rec%auxhist4_end_m(id_id)
6954 RETURN
6955 END SUBROUTINE nl_get_auxhist4_end_m
6956 SUBROUTINE nl_get_auxhist4_end_s ( id_id , auxhist4_end_s )
6957 integer , INTENT(OUT) :: auxhist4_end_s
6958 INTEGER id_id
6959 CHARACTER*80 emess
6960 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6961 WRITE(emess,*)'nl_get_auxhist4_end_s: Out of range domain number: ',id_id
6962 CALL wrf_error_fatal(emess)
6963 ENDIF
6964 auxhist4_end_s = model_config_rec%auxhist4_end_s(id_id)
6965 RETURN
6966 END SUBROUTINE nl_get_auxhist4_end_s
6967 SUBROUTINE nl_get_auxhist5_end_y ( id_id , auxhist5_end_y )
6968 integer , INTENT(OUT) :: auxhist5_end_y
6969 INTEGER id_id
6970 CHARACTER*80 emess
6971 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6972 WRITE(emess,*)'nl_get_auxhist5_end_y: Out of range domain number: ',id_id
6973 CALL wrf_error_fatal(emess)
6974 ENDIF
6975 auxhist5_end_y = model_config_rec%auxhist5_end_y(id_id)
6976 RETURN
6977 END SUBROUTINE nl_get_auxhist5_end_y
6978 SUBROUTINE nl_get_auxhist5_end_mo ( id_id , auxhist5_end_mo )
6979 integer , INTENT(OUT) :: auxhist5_end_mo
6980 INTEGER id_id
6981 CHARACTER*80 emess
6982 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6983 WRITE(emess,*)'nl_get_auxhist5_end_mo: Out of range domain number: ',id_id
6984 CALL wrf_error_fatal(emess)
6985 ENDIF
6986 auxhist5_end_mo = model_config_rec%auxhist5_end_mo(id_id)
6987 RETURN
6988 END SUBROUTINE nl_get_auxhist5_end_mo
6989 SUBROUTINE nl_get_auxhist5_end_d ( id_id , auxhist5_end_d )
6990 integer , INTENT(OUT) :: auxhist5_end_d
6991 INTEGER id_id
6992 CHARACTER*80 emess
6993 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6994 WRITE(emess,*)'nl_get_auxhist5_end_d: Out of range domain number: ',id_id
6995 CALL wrf_error_fatal(emess)
6996 ENDIF
6997 auxhist5_end_d = model_config_rec%auxhist5_end_d(id_id)
6998 RETURN
6999 END SUBROUTINE nl_get_auxhist5_end_d
7000 SUBROUTINE nl_get_auxhist5_end_h ( id_id , auxhist5_end_h )
7001 integer , INTENT(OUT) :: auxhist5_end_h
7002 INTEGER id_id
7003 CHARACTER*80 emess
7004 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7005 WRITE(emess,*)'nl_get_auxhist5_end_h: Out of range domain number: ',id_id
7006 CALL wrf_error_fatal(emess)
7007 ENDIF
7008 auxhist5_end_h = model_config_rec%auxhist5_end_h(id_id)
7009 RETURN
7010 END SUBROUTINE nl_get_auxhist5_end_h
7011 SUBROUTINE nl_get_auxhist5_end_m ( id_id , auxhist5_end_m )
7012 integer , INTENT(OUT) :: auxhist5_end_m
7013 INTEGER id_id
7014 CHARACTER*80 emess
7015 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7016 WRITE(emess,*)'nl_get_auxhist5_end_m: Out of range domain number: ',id_id
7017 CALL wrf_error_fatal(emess)
7018 ENDIF
7019 auxhist5_end_m = model_config_rec%auxhist5_end_m(id_id)
7020 RETURN
7021 END SUBROUTINE nl_get_auxhist5_end_m
7022 SUBROUTINE nl_get_auxhist5_end_s ( id_id , auxhist5_end_s )
7023 integer , INTENT(OUT) :: auxhist5_end_s
7024 INTEGER id_id
7025 CHARACTER*80 emess
7026 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7027 WRITE(emess,*)'nl_get_auxhist5_end_s: Out of range domain number: ',id_id
7028 CALL wrf_error_fatal(emess)
7029 ENDIF
7030 auxhist5_end_s = model_config_rec%auxhist5_end_s(id_id)
7031 RETURN
7032 END SUBROUTINE nl_get_auxhist5_end_s
7033 SUBROUTINE nl_get_auxhist6_end_y ( id_id , auxhist6_end_y )
7034 integer , INTENT(OUT) :: auxhist6_end_y
7035 INTEGER id_id
7036 CHARACTER*80 emess
7037 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7038 WRITE(emess,*)'nl_get_auxhist6_end_y: Out of range domain number: ',id_id
7039 CALL wrf_error_fatal(emess)
7040 ENDIF
7041 auxhist6_end_y = model_config_rec%auxhist6_end_y(id_id)
7042 RETURN
7043 END SUBROUTINE nl_get_auxhist6_end_y
7044 SUBROUTINE nl_get_auxhist6_end_mo ( id_id , auxhist6_end_mo )
7045 integer , INTENT(OUT) :: auxhist6_end_mo
7046 INTEGER id_id
7047 CHARACTER*80 emess
7048 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7049 WRITE(emess,*)'nl_get_auxhist6_end_mo: Out of range domain number: ',id_id
7050 CALL wrf_error_fatal(emess)
7051 ENDIF
7052 auxhist6_end_mo = model_config_rec%auxhist6_end_mo(id_id)
7053 RETURN
7054 END SUBROUTINE nl_get_auxhist6_end_mo
7055 SUBROUTINE nl_get_auxhist6_end_d ( id_id , auxhist6_end_d )
7056 integer , INTENT(OUT) :: auxhist6_end_d
7057 INTEGER id_id
7058 CHARACTER*80 emess
7059 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7060 WRITE(emess,*)'nl_get_auxhist6_end_d: Out of range domain number: ',id_id
7061 CALL wrf_error_fatal(emess)
7062 ENDIF
7063 auxhist6_end_d = model_config_rec%auxhist6_end_d(id_id)
7064 RETURN
7065 END SUBROUTINE nl_get_auxhist6_end_d
7066 SUBROUTINE nl_get_auxhist6_end_h ( id_id , auxhist6_end_h )
7067 integer , INTENT(OUT) :: auxhist6_end_h
7068 INTEGER id_id
7069 CHARACTER*80 emess
7070 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7071 WRITE(emess,*)'nl_get_auxhist6_end_h: Out of range domain number: ',id_id
7072 CALL wrf_error_fatal(emess)
7073 ENDIF
7074 auxhist6_end_h = model_config_rec%auxhist6_end_h(id_id)
7075 RETURN
7076 END SUBROUTINE nl_get_auxhist6_end_h
7077 SUBROUTINE nl_get_auxhist6_end_m ( id_id , auxhist6_end_m )
7078 integer , INTENT(OUT) :: auxhist6_end_m
7079 INTEGER id_id
7080 CHARACTER*80 emess
7081 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7082 WRITE(emess,*)'nl_get_auxhist6_end_m: Out of range domain number: ',id_id
7083 CALL wrf_error_fatal(emess)
7084 ENDIF
7085 auxhist6_end_m = model_config_rec%auxhist6_end_m(id_id)
7086 RETURN
7087 END SUBROUTINE nl_get_auxhist6_end_m
7088 SUBROUTINE nl_get_auxhist6_end_s ( id_id , auxhist6_end_s )
7089 integer , INTENT(OUT) :: auxhist6_end_s
7090 INTEGER id_id
7091 CHARACTER*80 emess
7092 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7093 WRITE(emess,*)'nl_get_auxhist6_end_s: Out of range domain number: ',id_id
7094 CALL wrf_error_fatal(emess)
7095 ENDIF
7096 auxhist6_end_s = model_config_rec%auxhist6_end_s(id_id)
7097 RETURN
7098 END SUBROUTINE nl_get_auxhist6_end_s
7099 SUBROUTINE nl_get_auxhist7_end_y ( id_id , auxhist7_end_y )
7100 integer , INTENT(OUT) :: auxhist7_end_y
7101 INTEGER id_id
7102 CHARACTER*80 emess
7103 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7104 WRITE(emess,*)'nl_get_auxhist7_end_y: Out of range domain number: ',id_id
7105 CALL wrf_error_fatal(emess)
7106 ENDIF
7107 auxhist7_end_y = model_config_rec%auxhist7_end_y(id_id)
7108 RETURN
7109 END SUBROUTINE nl_get_auxhist7_end_y
7110 SUBROUTINE nl_get_auxhist7_end_mo ( id_id , auxhist7_end_mo )
7111 integer , INTENT(OUT) :: auxhist7_end_mo
7112 INTEGER id_id
7113 CHARACTER*80 emess
7114 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7115 WRITE(emess,*)'nl_get_auxhist7_end_mo: Out of range domain number: ',id_id
7116 CALL wrf_error_fatal(emess)
7117 ENDIF
7118 auxhist7_end_mo = model_config_rec%auxhist7_end_mo(id_id)
7119 RETURN
7120 END SUBROUTINE nl_get_auxhist7_end_mo
7121 SUBROUTINE nl_get_auxhist7_end_d ( id_id , auxhist7_end_d )
7122 integer , INTENT(OUT) :: auxhist7_end_d
7123 INTEGER id_id
7124 CHARACTER*80 emess
7125 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7126 WRITE(emess,*)'nl_get_auxhist7_end_d: Out of range domain number: ',id_id
7127 CALL wrf_error_fatal(emess)
7128 ENDIF
7129 auxhist7_end_d = model_config_rec%auxhist7_end_d(id_id)
7130 RETURN
7131 END SUBROUTINE nl_get_auxhist7_end_d
7132 SUBROUTINE nl_get_auxhist7_end_h ( id_id , auxhist7_end_h )
7133 integer , INTENT(OUT) :: auxhist7_end_h
7134 INTEGER id_id
7135 CHARACTER*80 emess
7136 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7137 WRITE(emess,*)'nl_get_auxhist7_end_h: Out of range domain number: ',id_id
7138 CALL wrf_error_fatal(emess)
7139 ENDIF
7140 auxhist7_end_h = model_config_rec%auxhist7_end_h(id_id)
7141 RETURN
7142 END SUBROUTINE nl_get_auxhist7_end_h
7143 SUBROUTINE nl_get_auxhist7_end_m ( id_id , auxhist7_end_m )
7144 integer , INTENT(OUT) :: auxhist7_end_m
7145 INTEGER id_id
7146 CHARACTER*80 emess
7147 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7148 WRITE(emess,*)'nl_get_auxhist7_end_m: Out of range domain number: ',id_id
7149 CALL wrf_error_fatal(emess)
7150 ENDIF
7151 auxhist7_end_m = model_config_rec%auxhist7_end_m(id_id)
7152 RETURN
7153 END SUBROUTINE nl_get_auxhist7_end_m
7154 SUBROUTINE nl_get_auxhist7_end_s ( id_id , auxhist7_end_s )
7155 integer , INTENT(OUT) :: auxhist7_end_s
7156 INTEGER id_id
7157 CHARACTER*80 emess
7158 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7159 WRITE(emess,*)'nl_get_auxhist7_end_s: Out of range domain number: ',id_id
7160 CALL wrf_error_fatal(emess)
7161 ENDIF
7162 auxhist7_end_s = model_config_rec%auxhist7_end_s(id_id)
7163 RETURN
7164 END SUBROUTINE nl_get_auxhist7_end_s
7165 SUBROUTINE nl_get_auxhist8_end_y ( id_id , auxhist8_end_y )
7166 integer , INTENT(OUT) :: auxhist8_end_y
7167 INTEGER id_id
7168 CHARACTER*80 emess
7169 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7170 WRITE(emess,*)'nl_get_auxhist8_end_y: Out of range domain number: ',id_id
7171 CALL wrf_error_fatal(emess)
7172 ENDIF
7173 auxhist8_end_y = model_config_rec%auxhist8_end_y(id_id)
7174 RETURN
7175 END SUBROUTINE nl_get_auxhist8_end_y
7176 SUBROUTINE nl_get_auxhist8_end_mo ( id_id , auxhist8_end_mo )
7177 integer , INTENT(OUT) :: auxhist8_end_mo
7178 INTEGER id_id
7179 CHARACTER*80 emess
7180 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7181 WRITE(emess,*)'nl_get_auxhist8_end_mo: Out of range domain number: ',id_id
7182 CALL wrf_error_fatal(emess)
7183 ENDIF
7184 auxhist8_end_mo = model_config_rec%auxhist8_end_mo(id_id)
7185 RETURN
7186 END SUBROUTINE nl_get_auxhist8_end_mo
7187 SUBROUTINE nl_get_auxhist8_end_d ( id_id , auxhist8_end_d )
7188 integer , INTENT(OUT) :: auxhist8_end_d
7189 INTEGER id_id
7190 CHARACTER*80 emess
7191 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7192 WRITE(emess,*)'nl_get_auxhist8_end_d: Out of range domain number: ',id_id
7193 CALL wrf_error_fatal(emess)
7194 ENDIF
7195 auxhist8_end_d = model_config_rec%auxhist8_end_d(id_id)
7196 RETURN
7197 END SUBROUTINE nl_get_auxhist8_end_d
7198 SUBROUTINE nl_get_auxhist8_end_h ( id_id , auxhist8_end_h )
7199 integer , INTENT(OUT) :: auxhist8_end_h
7200 INTEGER id_id
7201 CHARACTER*80 emess
7202 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7203 WRITE(emess,*)'nl_get_auxhist8_end_h: Out of range domain number: ',id_id
7204 CALL wrf_error_fatal(emess)
7205 ENDIF
7206 auxhist8_end_h = model_config_rec%auxhist8_end_h(id_id)
7207 RETURN
7208 END SUBROUTINE nl_get_auxhist8_end_h
7209 SUBROUTINE nl_get_auxhist8_end_m ( id_id , auxhist8_end_m )
7210 integer , INTENT(OUT) :: auxhist8_end_m
7211 INTEGER id_id
7212 CHARACTER*80 emess
7213 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7214 WRITE(emess,*)'nl_get_auxhist8_end_m: Out of range domain number: ',id_id
7215 CALL wrf_error_fatal(emess)
7216 ENDIF
7217 auxhist8_end_m = model_config_rec%auxhist8_end_m(id_id)
7218 RETURN
7219 END SUBROUTINE nl_get_auxhist8_end_m
7220 SUBROUTINE nl_get_auxhist8_end_s ( id_id , auxhist8_end_s )
7221 integer , INTENT(OUT) :: auxhist8_end_s
7222 INTEGER id_id
7223 CHARACTER*80 emess
7224 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7225 WRITE(emess,*)'nl_get_auxhist8_end_s: Out of range domain number: ',id_id
7226 CALL wrf_error_fatal(emess)
7227 ENDIF
7228 auxhist8_end_s = model_config_rec%auxhist8_end_s(id_id)
7229 RETURN
7230 END SUBROUTINE nl_get_auxhist8_end_s
7231 SUBROUTINE nl_get_auxhist9_end_y ( id_id , auxhist9_end_y )
7232 integer , INTENT(OUT) :: auxhist9_end_y
7233 INTEGER id_id
7234 CHARACTER*80 emess
7235 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7236 WRITE(emess,*)'nl_get_auxhist9_end_y: Out of range domain number: ',id_id
7237 CALL wrf_error_fatal(emess)
7238 ENDIF
7239 auxhist9_end_y = model_config_rec%auxhist9_end_y(id_id)
7240 RETURN
7241 END SUBROUTINE nl_get_auxhist9_end_y
7242 SUBROUTINE nl_get_auxhist9_end_mo ( id_id , auxhist9_end_mo )
7243 integer , INTENT(OUT) :: auxhist9_end_mo
7244 INTEGER id_id
7245 CHARACTER*80 emess
7246 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7247 WRITE(emess,*)'nl_get_auxhist9_end_mo: Out of range domain number: ',id_id
7248 CALL wrf_error_fatal(emess)
7249 ENDIF
7250 auxhist9_end_mo = model_config_rec%auxhist9_end_mo(id_id)
7251 RETURN
7252 END SUBROUTINE nl_get_auxhist9_end_mo
7253 SUBROUTINE nl_get_auxhist9_end_d ( id_id , auxhist9_end_d )
7254 integer , INTENT(OUT) :: auxhist9_end_d
7255 INTEGER id_id
7256 CHARACTER*80 emess
7257 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7258 WRITE(emess,*)'nl_get_auxhist9_end_d: Out of range domain number: ',id_id
7259 CALL wrf_error_fatal(emess)
7260 ENDIF
7261 auxhist9_end_d = model_config_rec%auxhist9_end_d(id_id)
7262 RETURN
7263 END SUBROUTINE nl_get_auxhist9_end_d
7264 SUBROUTINE nl_get_auxhist9_end_h ( id_id , auxhist9_end_h )
7265 integer , INTENT(OUT) :: auxhist9_end_h
7266 INTEGER id_id
7267 CHARACTER*80 emess
7268 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7269 WRITE(emess,*)'nl_get_auxhist9_end_h: Out of range domain number: ',id_id
7270 CALL wrf_error_fatal(emess)
7271 ENDIF
7272 auxhist9_end_h = model_config_rec%auxhist9_end_h(id_id)
7273 RETURN
7274 END SUBROUTINE nl_get_auxhist9_end_h
7275 SUBROUTINE nl_get_auxhist9_end_m ( id_id , auxhist9_end_m )
7276 integer , INTENT(OUT) :: auxhist9_end_m
7277 INTEGER id_id
7278 CHARACTER*80 emess
7279 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7280 WRITE(emess,*)'nl_get_auxhist9_end_m: Out of range domain number: ',id_id
7281 CALL wrf_error_fatal(emess)
7282 ENDIF
7283 auxhist9_end_m = model_config_rec%auxhist9_end_m(id_id)
7284 RETURN
7285 END SUBROUTINE nl_get_auxhist9_end_m
7286 SUBROUTINE nl_get_auxhist9_end_s ( id_id , auxhist9_end_s )
7287 integer , INTENT(OUT) :: auxhist9_end_s
7288 INTEGER id_id
7289 CHARACTER*80 emess
7290 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7291 WRITE(emess,*)'nl_get_auxhist9_end_s: Out of range domain number: ',id_id
7292 CALL wrf_error_fatal(emess)
7293 ENDIF
7294 auxhist9_end_s = model_config_rec%auxhist9_end_s(id_id)
7295 RETURN
7296 END SUBROUTINE nl_get_auxhist9_end_s
7297 SUBROUTINE nl_get_auxhist10_end_y ( id_id , auxhist10_end_y )
7298 integer , INTENT(OUT) :: auxhist10_end_y
7299 INTEGER id_id
7300 CHARACTER*80 emess
7301 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7302 WRITE(emess,*)'nl_get_auxhist10_end_y: Out of range domain number: ',id_id
7303 CALL wrf_error_fatal(emess)
7304 ENDIF
7305 auxhist10_end_y = model_config_rec%auxhist10_end_y(id_id)
7306 RETURN
7307 END SUBROUTINE nl_get_auxhist10_end_y
7308 SUBROUTINE nl_get_auxhist10_end_mo ( id_id , auxhist10_end_mo )
7309 integer , INTENT(OUT) :: auxhist10_end_mo
7310 INTEGER id_id
7311 CHARACTER*80 emess
7312 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7313 WRITE(emess,*)'nl_get_auxhist10_end_mo: Out of range domain number: ',id_id
7314 CALL wrf_error_fatal(emess)
7315 ENDIF
7316 auxhist10_end_mo = model_config_rec%auxhist10_end_mo(id_id)
7317 RETURN
7318 END SUBROUTINE nl_get_auxhist10_end_mo
7319 SUBROUTINE nl_get_auxhist10_end_d ( id_id , auxhist10_end_d )
7320 integer , INTENT(OUT) :: auxhist10_end_d
7321 INTEGER id_id
7322 CHARACTER*80 emess
7323 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7324 WRITE(emess,*)'nl_get_auxhist10_end_d: Out of range domain number: ',id_id
7325 CALL wrf_error_fatal(emess)
7326 ENDIF
7327 auxhist10_end_d = model_config_rec%auxhist10_end_d(id_id)
7328 RETURN
7329 END SUBROUTINE nl_get_auxhist10_end_d
7330 SUBROUTINE nl_get_auxhist10_end_h ( id_id , auxhist10_end_h )
7331 integer , INTENT(OUT) :: auxhist10_end_h
7332 INTEGER id_id
7333 CHARACTER*80 emess
7334 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7335 WRITE(emess,*)'nl_get_auxhist10_end_h: Out of range domain number: ',id_id
7336 CALL wrf_error_fatal(emess)
7337 ENDIF
7338 auxhist10_end_h = model_config_rec%auxhist10_end_h(id_id)
7339 RETURN
7340 END SUBROUTINE nl_get_auxhist10_end_h
7341 SUBROUTINE nl_get_auxhist10_end_m ( id_id , auxhist10_end_m )
7342 integer , INTENT(OUT) :: auxhist10_end_m
7343 INTEGER id_id
7344 CHARACTER*80 emess
7345 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7346 WRITE(emess,*)'nl_get_auxhist10_end_m: Out of range domain number: ',id_id
7347 CALL wrf_error_fatal(emess)
7348 ENDIF
7349 auxhist10_end_m = model_config_rec%auxhist10_end_m(id_id)
7350 RETURN
7351 END SUBROUTINE nl_get_auxhist10_end_m
7352 SUBROUTINE nl_get_auxhist10_end_s ( id_id , auxhist10_end_s )
7353 integer , INTENT(OUT) :: auxhist10_end_s
7354 INTEGER id_id
7355 CHARACTER*80 emess
7356 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7357 WRITE(emess,*)'nl_get_auxhist10_end_s: Out of range domain number: ',id_id
7358 CALL wrf_error_fatal(emess)
7359 ENDIF
7360 auxhist10_end_s = model_config_rec%auxhist10_end_s(id_id)
7361 RETURN
7362 END SUBROUTINE nl_get_auxhist10_end_s
7363 SUBROUTINE nl_get_auxhist11_end_y ( id_id , auxhist11_end_y )
7364 integer , INTENT(OUT) :: auxhist11_end_y
7365 INTEGER id_id
7366 CHARACTER*80 emess
7367 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7368 WRITE(emess,*)'nl_get_auxhist11_end_y: Out of range domain number: ',id_id
7369 CALL wrf_error_fatal(emess)
7370 ENDIF
7371 auxhist11_end_y = model_config_rec%auxhist11_end_y(id_id)
7372 RETURN
7373 END SUBROUTINE nl_get_auxhist11_end_y
7374 SUBROUTINE nl_get_auxhist11_end_mo ( id_id , auxhist11_end_mo )
7375 integer , INTENT(OUT) :: auxhist11_end_mo
7376 INTEGER id_id
7377 CHARACTER*80 emess
7378 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7379 WRITE(emess,*)'nl_get_auxhist11_end_mo: Out of range domain number: ',id_id
7380 CALL wrf_error_fatal(emess)
7381 ENDIF
7382 auxhist11_end_mo = model_config_rec%auxhist11_end_mo(id_id)
7383 RETURN
7384 END SUBROUTINE nl_get_auxhist11_end_mo
7385 SUBROUTINE nl_get_auxhist11_end_d ( id_id , auxhist11_end_d )
7386 integer , INTENT(OUT) :: auxhist11_end_d
7387 INTEGER id_id
7388 CHARACTER*80 emess
7389 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7390 WRITE(emess,*)'nl_get_auxhist11_end_d: Out of range domain number: ',id_id
7391 CALL wrf_error_fatal(emess)
7392 ENDIF
7393 auxhist11_end_d = model_config_rec%auxhist11_end_d(id_id)
7394 RETURN
7395 END SUBROUTINE nl_get_auxhist11_end_d
7396 SUBROUTINE nl_get_auxhist11_end_h ( id_id , auxhist11_end_h )
7397 integer , INTENT(OUT) :: auxhist11_end_h
7398 INTEGER id_id
7399 CHARACTER*80 emess
7400 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7401 WRITE(emess,*)'nl_get_auxhist11_end_h: Out of range domain number: ',id_id
7402 CALL wrf_error_fatal(emess)
7403 ENDIF
7404 auxhist11_end_h = model_config_rec%auxhist11_end_h(id_id)
7405 RETURN
7406 END SUBROUTINE nl_get_auxhist11_end_h
7407 SUBROUTINE nl_get_auxhist11_end_m ( id_id , auxhist11_end_m )
7408 integer , INTENT(OUT) :: auxhist11_end_m
7409 INTEGER id_id
7410 CHARACTER*80 emess
7411 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7412 WRITE(emess,*)'nl_get_auxhist11_end_m: Out of range domain number: ',id_id
7413 CALL wrf_error_fatal(emess)
7414 ENDIF
7415 auxhist11_end_m = model_config_rec%auxhist11_end_m(id_id)
7416 RETURN
7417 END SUBROUTINE nl_get_auxhist11_end_m
7418 SUBROUTINE nl_get_auxhist11_end_s ( id_id , auxhist11_end_s )
7419 integer , INTENT(OUT) :: auxhist11_end_s
7420 INTEGER id_id
7421 CHARACTER*80 emess
7422 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7423 WRITE(emess,*)'nl_get_auxhist11_end_s: Out of range domain number: ',id_id
7424 CALL wrf_error_fatal(emess)
7425 ENDIF
7426 auxhist11_end_s = model_config_rec%auxhist11_end_s(id_id)
7427 RETURN
7428 END SUBROUTINE nl_get_auxhist11_end_s
7429 SUBROUTINE nl_get_auxinput1_end_y ( id_id , auxinput1_end_y )
7430 integer , INTENT(OUT) :: auxinput1_end_y
7431 INTEGER id_id
7432 CHARACTER*80 emess
7433 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7434 WRITE(emess,*)'nl_get_auxinput1_end_y: Out of range domain number: ',id_id
7435 CALL wrf_error_fatal(emess)
7436 ENDIF
7437 auxinput1_end_y = model_config_rec%auxinput1_end_y(id_id)
7438 RETURN
7439 END SUBROUTINE nl_get_auxinput1_end_y
7440 SUBROUTINE nl_get_auxinput1_end_mo ( id_id , auxinput1_end_mo )
7441 integer , INTENT(OUT) :: auxinput1_end_mo
7442 INTEGER id_id
7443 CHARACTER*80 emess
7444 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7445 WRITE(emess,*)'nl_get_auxinput1_end_mo: Out of range domain number: ',id_id
7446 CALL wrf_error_fatal(emess)
7447 ENDIF
7448 auxinput1_end_mo = model_config_rec%auxinput1_end_mo(id_id)
7449 RETURN
7450 END SUBROUTINE nl_get_auxinput1_end_mo
7451 SUBROUTINE nl_get_auxinput1_end_d ( id_id , auxinput1_end_d )
7452 integer , INTENT(OUT) :: auxinput1_end_d
7453 INTEGER id_id
7454 CHARACTER*80 emess
7455 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7456 WRITE(emess,*)'nl_get_auxinput1_end_d: Out of range domain number: ',id_id
7457 CALL wrf_error_fatal(emess)
7458 ENDIF
7459 auxinput1_end_d = model_config_rec%auxinput1_end_d(id_id)
7460 RETURN
7461 END SUBROUTINE nl_get_auxinput1_end_d
7462 SUBROUTINE nl_get_auxinput1_end_h ( id_id , auxinput1_end_h )
7463 integer , INTENT(OUT) :: auxinput1_end_h
7464 INTEGER id_id
7465 CHARACTER*80 emess
7466 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7467 WRITE(emess,*)'nl_get_auxinput1_end_h: Out of range domain number: ',id_id
7468 CALL wrf_error_fatal(emess)
7469 ENDIF
7470 auxinput1_end_h = model_config_rec%auxinput1_end_h(id_id)
7471 RETURN
7472 END SUBROUTINE nl_get_auxinput1_end_h
7473 SUBROUTINE nl_get_auxinput1_end_m ( id_id , auxinput1_end_m )
7474 integer , INTENT(OUT) :: auxinput1_end_m
7475 INTEGER id_id
7476 CHARACTER*80 emess
7477 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7478 WRITE(emess,*)'nl_get_auxinput1_end_m: Out of range domain number: ',id_id
7479 CALL wrf_error_fatal(emess)
7480 ENDIF
7481 auxinput1_end_m = model_config_rec%auxinput1_end_m(id_id)
7482 RETURN
7483 END SUBROUTINE nl_get_auxinput1_end_m
7484 SUBROUTINE nl_get_auxinput1_end_s ( id_id , auxinput1_end_s )
7485 integer , INTENT(OUT) :: auxinput1_end_s
7486 INTEGER id_id
7487 CHARACTER*80 emess
7488 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7489 WRITE(emess,*)'nl_get_auxinput1_end_s: Out of range domain number: ',id_id
7490 CALL wrf_error_fatal(emess)
7491 ENDIF
7492 auxinput1_end_s = model_config_rec%auxinput1_end_s(id_id)
7493 RETURN
7494 END SUBROUTINE nl_get_auxinput1_end_s
7495 SUBROUTINE nl_get_auxinput2_end_y ( id_id , auxinput2_end_y )
7496 integer , INTENT(OUT) :: auxinput2_end_y
7497 INTEGER id_id
7498 CHARACTER*80 emess
7499 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7500 WRITE(emess,*)'nl_get_auxinput2_end_y: Out of range domain number: ',id_id
7501 CALL wrf_error_fatal(emess)
7502 ENDIF
7503 auxinput2_end_y = model_config_rec%auxinput2_end_y(id_id)
7504 RETURN
7505 END SUBROUTINE nl_get_auxinput2_end_y
7506 SUBROUTINE nl_get_auxinput2_end_mo ( id_id , auxinput2_end_mo )
7507 integer , INTENT(OUT) :: auxinput2_end_mo
7508 INTEGER id_id
7509 CHARACTER*80 emess
7510 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7511 WRITE(emess,*)'nl_get_auxinput2_end_mo: Out of range domain number: ',id_id
7512 CALL wrf_error_fatal(emess)
7513 ENDIF
7514 auxinput2_end_mo = model_config_rec%auxinput2_end_mo(id_id)
7515 RETURN
7516 END SUBROUTINE nl_get_auxinput2_end_mo
7517 SUBROUTINE nl_get_auxinput2_end_d ( id_id , auxinput2_end_d )
7518 integer , INTENT(OUT) :: auxinput2_end_d
7519 INTEGER id_id
7520 CHARACTER*80 emess
7521 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7522 WRITE(emess,*)'nl_get_auxinput2_end_d: Out of range domain number: ',id_id
7523 CALL wrf_error_fatal(emess)
7524 ENDIF
7525 auxinput2_end_d = model_config_rec%auxinput2_end_d(id_id)
7526 RETURN
7527 END SUBROUTINE nl_get_auxinput2_end_d
7528 SUBROUTINE nl_get_auxinput2_end_h ( id_id , auxinput2_end_h )
7529 integer , INTENT(OUT) :: auxinput2_end_h
7530 INTEGER id_id
7531 CHARACTER*80 emess
7532 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7533 WRITE(emess,*)'nl_get_auxinput2_end_h: Out of range domain number: ',id_id
7534 CALL wrf_error_fatal(emess)
7535 ENDIF
7536 auxinput2_end_h = model_config_rec%auxinput2_end_h(id_id)
7537 RETURN
7538 END SUBROUTINE nl_get_auxinput2_end_h
7539 SUBROUTINE nl_get_auxinput2_end_m ( id_id , auxinput2_end_m )
7540 integer , INTENT(OUT) :: auxinput2_end_m
7541 INTEGER id_id
7542 CHARACTER*80 emess
7543 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7544 WRITE(emess,*)'nl_get_auxinput2_end_m: Out of range domain number: ',id_id
7545 CALL wrf_error_fatal(emess)
7546 ENDIF
7547 auxinput2_end_m = model_config_rec%auxinput2_end_m(id_id)
7548 RETURN
7549 END SUBROUTINE nl_get_auxinput2_end_m
7550 SUBROUTINE nl_get_auxinput2_end_s ( id_id , auxinput2_end_s )
7551 integer , INTENT(OUT) :: auxinput2_end_s
7552 INTEGER id_id
7553 CHARACTER*80 emess
7554 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7555 WRITE(emess,*)'nl_get_auxinput2_end_s: Out of range domain number: ',id_id
7556 CALL wrf_error_fatal(emess)
7557 ENDIF
7558 auxinput2_end_s = model_config_rec%auxinput2_end_s(id_id)
7559 RETURN
7560 END SUBROUTINE nl_get_auxinput2_end_s
7561 SUBROUTINE nl_get_auxinput3_end_y ( id_id , auxinput3_end_y )
7562 integer , INTENT(OUT) :: auxinput3_end_y
7563 INTEGER id_id
7564 CHARACTER*80 emess
7565 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7566 WRITE(emess,*)'nl_get_auxinput3_end_y: Out of range domain number: ',id_id
7567 CALL wrf_error_fatal(emess)
7568 ENDIF
7569 auxinput3_end_y = model_config_rec%auxinput3_end_y(id_id)
7570 RETURN
7571 END SUBROUTINE nl_get_auxinput3_end_y
7572 SUBROUTINE nl_get_auxinput3_end_mo ( id_id , auxinput3_end_mo )
7573 integer , INTENT(OUT) :: auxinput3_end_mo
7574 INTEGER id_id
7575 CHARACTER*80 emess
7576 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7577 WRITE(emess,*)'nl_get_auxinput3_end_mo: Out of range domain number: ',id_id
7578 CALL wrf_error_fatal(emess)
7579 ENDIF
7580 auxinput3_end_mo = model_config_rec%auxinput3_end_mo(id_id)
7581 RETURN
7582 END SUBROUTINE nl_get_auxinput3_end_mo
7583 SUBROUTINE nl_get_auxinput3_end_d ( id_id , auxinput3_end_d )
7584 integer , INTENT(OUT) :: auxinput3_end_d
7585 INTEGER id_id
7586 CHARACTER*80 emess
7587 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7588 WRITE(emess,*)'nl_get_auxinput3_end_d: Out of range domain number: ',id_id
7589 CALL wrf_error_fatal(emess)
7590 ENDIF
7591 auxinput3_end_d = model_config_rec%auxinput3_end_d(id_id)
7592 RETURN
7593 END SUBROUTINE nl_get_auxinput3_end_d
7594 SUBROUTINE nl_get_auxinput3_end_h ( id_id , auxinput3_end_h )
7595 integer , INTENT(OUT) :: auxinput3_end_h
7596 INTEGER id_id
7597 CHARACTER*80 emess
7598 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7599 WRITE(emess,*)'nl_get_auxinput3_end_h: Out of range domain number: ',id_id
7600 CALL wrf_error_fatal(emess)
7601 ENDIF
7602 auxinput3_end_h = model_config_rec%auxinput3_end_h(id_id)
7603 RETURN
7604 END SUBROUTINE nl_get_auxinput3_end_h
7605 SUBROUTINE nl_get_auxinput3_end_m ( id_id , auxinput3_end_m )
7606 integer , INTENT(OUT) :: auxinput3_end_m
7607 INTEGER id_id
7608 CHARACTER*80 emess
7609 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7610 WRITE(emess,*)'nl_get_auxinput3_end_m: Out of range domain number: ',id_id
7611 CALL wrf_error_fatal(emess)
7612 ENDIF
7613 auxinput3_end_m = model_config_rec%auxinput3_end_m(id_id)
7614 RETURN
7615 END SUBROUTINE nl_get_auxinput3_end_m
7616 SUBROUTINE nl_get_auxinput3_end_s ( id_id , auxinput3_end_s )
7617 integer , INTENT(OUT) :: auxinput3_end_s
7618 INTEGER id_id
7619 CHARACTER*80 emess
7620 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7621 WRITE(emess,*)'nl_get_auxinput3_end_s: Out of range domain number: ',id_id
7622 CALL wrf_error_fatal(emess)
7623 ENDIF
7624 auxinput3_end_s = model_config_rec%auxinput3_end_s(id_id)
7625 RETURN
7626 END SUBROUTINE nl_get_auxinput3_end_s
7627 SUBROUTINE nl_get_auxinput4_end_y ( id_id , auxinput4_end_y )
7628 integer , INTENT(OUT) :: auxinput4_end_y
7629 INTEGER id_id
7630 CHARACTER*80 emess
7631 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7632 WRITE(emess,*)'nl_get_auxinput4_end_y: Out of range domain number: ',id_id
7633 CALL wrf_error_fatal(emess)
7634 ENDIF
7635 auxinput4_end_y = model_config_rec%auxinput4_end_y(id_id)
7636 RETURN
7637 END SUBROUTINE nl_get_auxinput4_end_y
7638 SUBROUTINE nl_get_auxinput4_end_mo ( id_id , auxinput4_end_mo )
7639 integer , INTENT(OUT) :: auxinput4_end_mo
7640 INTEGER id_id
7641 CHARACTER*80 emess
7642 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7643 WRITE(emess,*)'nl_get_auxinput4_end_mo: Out of range domain number: ',id_id
7644 CALL wrf_error_fatal(emess)
7645 ENDIF
7646 auxinput4_end_mo = model_config_rec%auxinput4_end_mo(id_id)
7647 RETURN
7648 END SUBROUTINE nl_get_auxinput4_end_mo
7649 SUBROUTINE nl_get_auxinput4_end_d ( id_id , auxinput4_end_d )
7650 integer , INTENT(OUT) :: auxinput4_end_d
7651 INTEGER id_id
7652 CHARACTER*80 emess
7653 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7654 WRITE(emess,*)'nl_get_auxinput4_end_d: Out of range domain number: ',id_id
7655 CALL wrf_error_fatal(emess)
7656 ENDIF
7657 auxinput4_end_d = model_config_rec%auxinput4_end_d(id_id)
7658 RETURN
7659 END SUBROUTINE nl_get_auxinput4_end_d
7660 SUBROUTINE nl_get_auxinput4_end_h ( id_id , auxinput4_end_h )
7661 integer , INTENT(OUT) :: auxinput4_end_h
7662 INTEGER id_id
7663 CHARACTER*80 emess
7664 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7665 WRITE(emess,*)'nl_get_auxinput4_end_h: Out of range domain number: ',id_id
7666 CALL wrf_error_fatal(emess)
7667 ENDIF
7668 auxinput4_end_h = model_config_rec%auxinput4_end_h(id_id)
7669 RETURN
7670 END SUBROUTINE nl_get_auxinput4_end_h
7671 SUBROUTINE nl_get_auxinput4_end_m ( id_id , auxinput4_end_m )
7672 integer , INTENT(OUT) :: auxinput4_end_m
7673 INTEGER id_id
7674 CHARACTER*80 emess
7675 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7676 WRITE(emess,*)'nl_get_auxinput4_end_m: Out of range domain number: ',id_id
7677 CALL wrf_error_fatal(emess)
7678 ENDIF
7679 auxinput4_end_m = model_config_rec%auxinput4_end_m(id_id)
7680 RETURN
7681 END SUBROUTINE nl_get_auxinput4_end_m
7682 SUBROUTINE nl_get_auxinput4_end_s ( id_id , auxinput4_end_s )
7683 integer , INTENT(OUT) :: auxinput4_end_s
7684 INTEGER id_id
7685 CHARACTER*80 emess
7686 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7687 WRITE(emess,*)'nl_get_auxinput4_end_s: Out of range domain number: ',id_id
7688 CALL wrf_error_fatal(emess)
7689 ENDIF
7690 auxinput4_end_s = model_config_rec%auxinput4_end_s(id_id)
7691 RETURN
7692 END SUBROUTINE nl_get_auxinput4_end_s
7693 SUBROUTINE nl_get_auxinput5_end_y ( id_id , auxinput5_end_y )
7694 integer , INTENT(OUT) :: auxinput5_end_y
7695 INTEGER id_id
7696 CHARACTER*80 emess
7697 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7698 WRITE(emess,*)'nl_get_auxinput5_end_y: Out of range domain number: ',id_id
7699 CALL wrf_error_fatal(emess)
7700 ENDIF
7701 auxinput5_end_y = model_config_rec%auxinput5_end_y(id_id)
7702 RETURN
7703 END SUBROUTINE nl_get_auxinput5_end_y
7704 SUBROUTINE nl_get_auxinput5_end_mo ( id_id , auxinput5_end_mo )
7705 integer , INTENT(OUT) :: auxinput5_end_mo
7706 INTEGER id_id
7707 CHARACTER*80 emess
7708 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7709 WRITE(emess,*)'nl_get_auxinput5_end_mo: Out of range domain number: ',id_id
7710 CALL wrf_error_fatal(emess)
7711 ENDIF
7712 auxinput5_end_mo = model_config_rec%auxinput5_end_mo(id_id)
7713 RETURN
7714 END SUBROUTINE nl_get_auxinput5_end_mo
7715 SUBROUTINE nl_get_auxinput5_end_d ( id_id , auxinput5_end_d )
7716 integer , INTENT(OUT) :: auxinput5_end_d
7717 INTEGER id_id
7718 CHARACTER*80 emess
7719 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7720 WRITE(emess,*)'nl_get_auxinput5_end_d: Out of range domain number: ',id_id
7721 CALL wrf_error_fatal(emess)
7722 ENDIF
7723 auxinput5_end_d = model_config_rec%auxinput5_end_d(id_id)
7724 RETURN
7725 END SUBROUTINE nl_get_auxinput5_end_d
7726 SUBROUTINE nl_get_auxinput5_end_h ( id_id , auxinput5_end_h )
7727 integer , INTENT(OUT) :: auxinput5_end_h
7728 INTEGER id_id
7729 CHARACTER*80 emess
7730 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7731 WRITE(emess,*)'nl_get_auxinput5_end_h: Out of range domain number: ',id_id
7732 CALL wrf_error_fatal(emess)
7733 ENDIF
7734 auxinput5_end_h = model_config_rec%auxinput5_end_h(id_id)
7735 RETURN
7736 END SUBROUTINE nl_get_auxinput5_end_h
7737 SUBROUTINE nl_get_auxinput5_end_m ( id_id , auxinput5_end_m )
7738 integer , INTENT(OUT) :: auxinput5_end_m
7739 INTEGER id_id
7740 CHARACTER*80 emess
7741 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7742 WRITE(emess,*)'nl_get_auxinput5_end_m: Out of range domain number: ',id_id
7743 CALL wrf_error_fatal(emess)
7744 ENDIF
7745 auxinput5_end_m = model_config_rec%auxinput5_end_m(id_id)
7746 RETURN
7747 END SUBROUTINE nl_get_auxinput5_end_m
7748 SUBROUTINE nl_get_auxinput5_end_s ( id_id , auxinput5_end_s )
7749 integer , INTENT(OUT) :: auxinput5_end_s
7750 INTEGER id_id
7751 CHARACTER*80 emess
7752 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7753 WRITE(emess,*)'nl_get_auxinput5_end_s: Out of range domain number: ',id_id
7754 CALL wrf_error_fatal(emess)
7755 ENDIF
7756 auxinput5_end_s = model_config_rec%auxinput5_end_s(id_id)
7757 RETURN
7758 END SUBROUTINE nl_get_auxinput5_end_s
7759 SUBROUTINE nl_get_auxinput6_end_y ( id_id , auxinput6_end_y )
7760 integer , INTENT(OUT) :: auxinput6_end_y
7761 INTEGER id_id
7762 CHARACTER*80 emess
7763 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7764 WRITE(emess,*)'nl_get_auxinput6_end_y: Out of range domain number: ',id_id
7765 CALL wrf_error_fatal(emess)
7766 ENDIF
7767 auxinput6_end_y = model_config_rec%auxinput6_end_y(id_id)
7768 RETURN
7769 END SUBROUTINE nl_get_auxinput6_end_y
7770 SUBROUTINE nl_get_auxinput6_end_mo ( id_id , auxinput6_end_mo )
7771 integer , INTENT(OUT) :: auxinput6_end_mo
7772 INTEGER id_id
7773 CHARACTER*80 emess
7774 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7775 WRITE(emess,*)'nl_get_auxinput6_end_mo: Out of range domain number: ',id_id
7776 CALL wrf_error_fatal(emess)
7777 ENDIF
7778 auxinput6_end_mo = model_config_rec%auxinput6_end_mo(id_id)
7779 RETURN
7780 END SUBROUTINE nl_get_auxinput6_end_mo
7781 SUBROUTINE nl_get_auxinput6_end_d ( id_id , auxinput6_end_d )
7782 integer , INTENT(OUT) :: auxinput6_end_d
7783 INTEGER id_id
7784 CHARACTER*80 emess
7785 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7786 WRITE(emess,*)'nl_get_auxinput6_end_d: Out of range domain number: ',id_id
7787 CALL wrf_error_fatal(emess)
7788 ENDIF
7789 auxinput6_end_d = model_config_rec%auxinput6_end_d(id_id)
7790 RETURN
7791 END SUBROUTINE nl_get_auxinput6_end_d
7792 SUBROUTINE nl_get_auxinput6_end_h ( id_id , auxinput6_end_h )
7793 integer , INTENT(OUT) :: auxinput6_end_h
7794 INTEGER id_id
7795 CHARACTER*80 emess
7796 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7797 WRITE(emess,*)'nl_get_auxinput6_end_h: Out of range domain number: ',id_id
7798 CALL wrf_error_fatal(emess)
7799 ENDIF
7800 auxinput6_end_h = model_config_rec%auxinput6_end_h(id_id)
7801 RETURN
7802 END SUBROUTINE nl_get_auxinput6_end_h
7803 SUBROUTINE nl_get_auxinput6_end_m ( id_id , auxinput6_end_m )
7804 integer , INTENT(OUT) :: auxinput6_end_m
7805 INTEGER id_id
7806 CHARACTER*80 emess
7807 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7808 WRITE(emess,*)'nl_get_auxinput6_end_m: Out of range domain number: ',id_id
7809 CALL wrf_error_fatal(emess)
7810 ENDIF
7811 auxinput6_end_m = model_config_rec%auxinput6_end_m(id_id)
7812 RETURN
7813 END SUBROUTINE nl_get_auxinput6_end_m
7814 SUBROUTINE nl_get_auxinput6_end_s ( id_id , auxinput6_end_s )
7815 integer , INTENT(OUT) :: auxinput6_end_s
7816 INTEGER id_id
7817 CHARACTER*80 emess
7818 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7819 WRITE(emess,*)'nl_get_auxinput6_end_s: Out of range domain number: ',id_id
7820 CALL wrf_error_fatal(emess)
7821 ENDIF
7822 auxinput6_end_s = model_config_rec%auxinput6_end_s(id_id)
7823 RETURN
7824 END SUBROUTINE nl_get_auxinput6_end_s
7825 SUBROUTINE nl_get_auxinput7_end_y ( id_id , auxinput7_end_y )
7826 integer , INTENT(OUT) :: auxinput7_end_y
7827 INTEGER id_id
7828 CHARACTER*80 emess
7829 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7830 WRITE(emess,*)'nl_get_auxinput7_end_y: Out of range domain number: ',id_id
7831 CALL wrf_error_fatal(emess)
7832 ENDIF
7833 auxinput7_end_y = model_config_rec%auxinput7_end_y(id_id)
7834 RETURN
7835 END SUBROUTINE nl_get_auxinput7_end_y
7836 SUBROUTINE nl_get_auxinput7_end_mo ( id_id , auxinput7_end_mo )
7837 integer , INTENT(OUT) :: auxinput7_end_mo
7838 INTEGER id_id
7839 CHARACTER*80 emess
7840 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7841 WRITE(emess,*)'nl_get_auxinput7_end_mo: Out of range domain number: ',id_id
7842 CALL wrf_error_fatal(emess)
7843 ENDIF
7844 auxinput7_end_mo = model_config_rec%auxinput7_end_mo(id_id)
7845 RETURN
7846 END SUBROUTINE nl_get_auxinput7_end_mo
7847 SUBROUTINE nl_get_auxinput7_end_d ( id_id , auxinput7_end_d )
7848 integer , INTENT(OUT) :: auxinput7_end_d
7849 INTEGER id_id
7850 CHARACTER*80 emess
7851 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7852 WRITE(emess,*)'nl_get_auxinput7_end_d: Out of range domain number: ',id_id
7853 CALL wrf_error_fatal(emess)
7854 ENDIF
7855 auxinput7_end_d = model_config_rec%auxinput7_end_d(id_id)
7856 RETURN
7857 END SUBROUTINE nl_get_auxinput7_end_d
7858 SUBROUTINE nl_get_auxinput7_end_h ( id_id , auxinput7_end_h )
7859 integer , INTENT(OUT) :: auxinput7_end_h
7860 INTEGER id_id
7861 CHARACTER*80 emess
7862 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7863 WRITE(emess,*)'nl_get_auxinput7_end_h: Out of range domain number: ',id_id
7864 CALL wrf_error_fatal(emess)
7865 ENDIF
7866 auxinput7_end_h = model_config_rec%auxinput7_end_h(id_id)
7867 RETURN
7868 END SUBROUTINE nl_get_auxinput7_end_h
7869 SUBROUTINE nl_get_auxinput7_end_m ( id_id , auxinput7_end_m )
7870 integer , INTENT(OUT) :: auxinput7_end_m
7871 INTEGER id_id
7872 CHARACTER*80 emess
7873 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7874 WRITE(emess,*)'nl_get_auxinput7_end_m: Out of range domain number: ',id_id
7875 CALL wrf_error_fatal(emess)
7876 ENDIF
7877 auxinput7_end_m = model_config_rec%auxinput7_end_m(id_id)
7878 RETURN
7879 END SUBROUTINE nl_get_auxinput7_end_m
7880 SUBROUTINE nl_get_auxinput7_end_s ( id_id , auxinput7_end_s )
7881 integer , INTENT(OUT) :: auxinput7_end_s
7882 INTEGER id_id
7883 CHARACTER*80 emess
7884 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7885 WRITE(emess,*)'nl_get_auxinput7_end_s: Out of range domain number: ',id_id
7886 CALL wrf_error_fatal(emess)
7887 ENDIF
7888 auxinput7_end_s = model_config_rec%auxinput7_end_s(id_id)
7889 RETURN
7890 END SUBROUTINE nl_get_auxinput7_end_s
7891 SUBROUTINE nl_get_auxinput8_end_y ( id_id , auxinput8_end_y )
7892 integer , INTENT(OUT) :: auxinput8_end_y
7893 INTEGER id_id
7894 CHARACTER*80 emess
7895 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7896 WRITE(emess,*)'nl_get_auxinput8_end_y: Out of range domain number: ',id_id
7897 CALL wrf_error_fatal(emess)
7898 ENDIF
7899 auxinput8_end_y = model_config_rec%auxinput8_end_y(id_id)
7900 RETURN
7901 END SUBROUTINE nl_get_auxinput8_end_y
7902 SUBROUTINE nl_get_auxinput8_end_mo ( id_id , auxinput8_end_mo )
7903 integer , INTENT(OUT) :: auxinput8_end_mo
7904 INTEGER id_id
7905 CHARACTER*80 emess
7906 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7907 WRITE(emess,*)'nl_get_auxinput8_end_mo: Out of range domain number: ',id_id
7908 CALL wrf_error_fatal(emess)
7909 ENDIF
7910 auxinput8_end_mo = model_config_rec%auxinput8_end_mo(id_id)
7911 RETURN
7912 END SUBROUTINE nl_get_auxinput8_end_mo
7913 SUBROUTINE nl_get_auxinput8_end_d ( id_id , auxinput8_end_d )
7914 integer , INTENT(OUT) :: auxinput8_end_d
7915 INTEGER id_id
7916 CHARACTER*80 emess
7917 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7918 WRITE(emess,*)'nl_get_auxinput8_end_d: Out of range domain number: ',id_id
7919 CALL wrf_error_fatal(emess)
7920 ENDIF
7921 auxinput8_end_d = model_config_rec%auxinput8_end_d(id_id)
7922 RETURN
7923 END SUBROUTINE nl_get_auxinput8_end_d
7924 SUBROUTINE nl_get_auxinput8_end_h ( id_id , auxinput8_end_h )
7925 integer , INTENT(OUT) :: auxinput8_end_h
7926 INTEGER id_id
7927 CHARACTER*80 emess
7928 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7929 WRITE(emess,*)'nl_get_auxinput8_end_h: Out of range domain number: ',id_id
7930 CALL wrf_error_fatal(emess)
7931 ENDIF
7932 auxinput8_end_h = model_config_rec%auxinput8_end_h(id_id)
7933 RETURN
7934 END SUBROUTINE nl_get_auxinput8_end_h
7935 SUBROUTINE nl_get_auxinput8_end_m ( id_id , auxinput8_end_m )
7936 integer , INTENT(OUT) :: auxinput8_end_m
7937 INTEGER id_id
7938 CHARACTER*80 emess
7939 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7940 WRITE(emess,*)'nl_get_auxinput8_end_m: Out of range domain number: ',id_id
7941 CALL wrf_error_fatal(emess)
7942 ENDIF
7943 auxinput8_end_m = model_config_rec%auxinput8_end_m(id_id)
7944 RETURN
7945 END SUBROUTINE nl_get_auxinput8_end_m
7946 SUBROUTINE nl_get_auxinput8_end_s ( id_id , auxinput8_end_s )
7947 integer , INTENT(OUT) :: auxinput8_end_s
7948 INTEGER id_id
7949 CHARACTER*80 emess
7950 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7951 WRITE(emess,*)'nl_get_auxinput8_end_s: Out of range domain number: ',id_id
7952 CALL wrf_error_fatal(emess)
7953 ENDIF
7954 auxinput8_end_s = model_config_rec%auxinput8_end_s(id_id)
7955 RETURN
7956 END SUBROUTINE nl_get_auxinput8_end_s
7957 SUBROUTINE nl_get_auxinput9_end_y ( id_id , auxinput9_end_y )
7958 integer , INTENT(OUT) :: auxinput9_end_y
7959 INTEGER id_id
7960 CHARACTER*80 emess
7961 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7962 WRITE(emess,*)'nl_get_auxinput9_end_y: Out of range domain number: ',id_id
7963 CALL wrf_error_fatal(emess)
7964 ENDIF
7965 auxinput9_end_y = model_config_rec%auxinput9_end_y(id_id)
7966 RETURN
7967 END SUBROUTINE nl_get_auxinput9_end_y
7968 SUBROUTINE nl_get_auxinput9_end_mo ( id_id , auxinput9_end_mo )
7969 integer , INTENT(OUT) :: auxinput9_end_mo
7970 INTEGER id_id
7971 CHARACTER*80 emess
7972 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7973 WRITE(emess,*)'nl_get_auxinput9_end_mo: Out of range domain number: ',id_id
7974 CALL wrf_error_fatal(emess)
7975 ENDIF
7976 auxinput9_end_mo = model_config_rec%auxinput9_end_mo(id_id)
7977 RETURN
7978 END SUBROUTINE nl_get_auxinput9_end_mo
7979 SUBROUTINE nl_get_auxinput9_end_d ( id_id , auxinput9_end_d )
7980 integer , INTENT(OUT) :: auxinput9_end_d
7981 INTEGER id_id
7982 CHARACTER*80 emess
7983 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7984 WRITE(emess,*)'nl_get_auxinput9_end_d: Out of range domain number: ',id_id
7985 CALL wrf_error_fatal(emess)
7986 ENDIF
7987 auxinput9_end_d = model_config_rec%auxinput9_end_d(id_id)
7988 RETURN
7989 END SUBROUTINE nl_get_auxinput9_end_d
7990 SUBROUTINE nl_get_auxinput9_end_h ( id_id , auxinput9_end_h )
7991 integer , INTENT(OUT) :: auxinput9_end_h
7992 INTEGER id_id
7993 CHARACTER*80 emess
7994 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7995 WRITE(emess,*)'nl_get_auxinput9_end_h: Out of range domain number: ',id_id
7996 CALL wrf_error_fatal(emess)
7997 ENDIF
7998 auxinput9_end_h = model_config_rec%auxinput9_end_h(id_id)
7999 RETURN
8000 END SUBROUTINE nl_get_auxinput9_end_h
8001 SUBROUTINE nl_get_auxinput9_end_m ( id_id , auxinput9_end_m )
8002 integer , INTENT(OUT) :: auxinput9_end_m
8003 INTEGER id_id
8004 CHARACTER*80 emess
8005 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8006 WRITE(emess,*)'nl_get_auxinput9_end_m: Out of range domain number: ',id_id
8007 CALL wrf_error_fatal(emess)
8008 ENDIF
8009 auxinput9_end_m = model_config_rec%auxinput9_end_m(id_id)
8010 RETURN
8011 END SUBROUTINE nl_get_auxinput9_end_m
8012 SUBROUTINE nl_get_auxinput9_end_s ( id_id , auxinput9_end_s )
8013 integer , INTENT(OUT) :: auxinput9_end_s
8014 INTEGER id_id
8015 CHARACTER*80 emess
8016 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8017 WRITE(emess,*)'nl_get_auxinput9_end_s: Out of range domain number: ',id_id
8018 CALL wrf_error_fatal(emess)
8019 ENDIF
8020 auxinput9_end_s = model_config_rec%auxinput9_end_s(id_id)
8021 RETURN
8022 END SUBROUTINE nl_get_auxinput9_end_s
8023 SUBROUTINE nl_get_gfdda_end_y ( id_id , gfdda_end_y )
8024 integer , INTENT(OUT) :: gfdda_end_y
8025 INTEGER id_id
8026 CHARACTER*80 emess
8027 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8028 WRITE(emess,*)'nl_get_gfdda_end_y: Out of range domain number: ',id_id
8029 CALL wrf_error_fatal(emess)
8030 ENDIF
8031 gfdda_end_y = model_config_rec%gfdda_end_y(id_id)
8032 RETURN
8033 END SUBROUTINE nl_get_gfdda_end_y
8034 SUBROUTINE nl_get_gfdda_end_mo ( id_id , gfdda_end_mo )
8035 integer , INTENT(OUT) :: gfdda_end_mo
8036 INTEGER id_id
8037 CHARACTER*80 emess
8038 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8039 WRITE(emess,*)'nl_get_gfdda_end_mo: Out of range domain number: ',id_id
8040 CALL wrf_error_fatal(emess)
8041 ENDIF
8042 gfdda_end_mo = model_config_rec%gfdda_end_mo(id_id)
8043 RETURN
8044 END SUBROUTINE nl_get_gfdda_end_mo
8045 SUBROUTINE nl_get_gfdda_end_d ( id_id , gfdda_end_d )
8046 integer , INTENT(OUT) :: gfdda_end_d
8047 INTEGER id_id
8048 CHARACTER*80 emess
8049 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8050 WRITE(emess,*)'nl_get_gfdda_end_d: Out of range domain number: ',id_id
8051 CALL wrf_error_fatal(emess)
8052 ENDIF
8053 gfdda_end_d = model_config_rec%gfdda_end_d(id_id)
8054 RETURN
8055 END SUBROUTINE nl_get_gfdda_end_d
8056 SUBROUTINE nl_get_gfdda_end_h ( id_id , gfdda_end_h )
8057 integer , INTENT(OUT) :: gfdda_end_h
8058 INTEGER id_id
8059 CHARACTER*80 emess
8060 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8061 WRITE(emess,*)'nl_get_gfdda_end_h: Out of range domain number: ',id_id
8062 CALL wrf_error_fatal(emess)
8063 ENDIF
8064 gfdda_end_h = model_config_rec%gfdda_end_h(id_id)
8065 RETURN
8066 END SUBROUTINE nl_get_gfdda_end_h
8067 SUBROUTINE nl_get_gfdda_end_m ( id_id , gfdda_end_m )
8068 integer , INTENT(OUT) :: gfdda_end_m
8069 INTEGER id_id
8070 CHARACTER*80 emess
8071 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8072 WRITE(emess,*)'nl_get_gfdda_end_m: Out of range domain number: ',id_id
8073 CALL wrf_error_fatal(emess)
8074 ENDIF
8075 gfdda_end_m = model_config_rec%gfdda_end_m(id_id)
8076 RETURN
8077 END SUBROUTINE nl_get_gfdda_end_m
8078 SUBROUTINE nl_get_gfdda_end_s ( id_id , gfdda_end_s )
8079 integer , INTENT(OUT) :: gfdda_end_s
8080 INTEGER id_id
8081 CHARACTER*80 emess
8082 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8083 WRITE(emess,*)'nl_get_gfdda_end_s: Out of range domain number: ',id_id
8084 CALL wrf_error_fatal(emess)
8085 ENDIF
8086 gfdda_end_s = model_config_rec%gfdda_end_s(id_id)
8087 RETURN
8088 END SUBROUTINE nl_get_gfdda_end_s
8089 SUBROUTINE nl_get_auxinput11_end_y ( id_id , auxinput11_end_y )
8090 integer , INTENT(OUT) :: auxinput11_end_y
8091 INTEGER id_id
8092 CHARACTER*80 emess
8093 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8094 WRITE(emess,*)'nl_get_auxinput11_end_y: Out of range domain number: ',id_id
8095 CALL wrf_error_fatal(emess)
8096 ENDIF
8097 auxinput11_end_y = model_config_rec%auxinput11_end_y(id_id)
8098 RETURN
8099 END SUBROUTINE nl_get_auxinput11_end_y
8100 SUBROUTINE nl_get_auxinput11_end_mo ( id_id , auxinput11_end_mo )
8101 integer , INTENT(OUT) :: auxinput11_end_mo
8102 INTEGER id_id
8103 CHARACTER*80 emess
8104 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8105 WRITE(emess,*)'nl_get_auxinput11_end_mo: Out of range domain number: ',id_id
8106 CALL wrf_error_fatal(emess)
8107 ENDIF
8108 auxinput11_end_mo = model_config_rec%auxinput11_end_mo(id_id)
8109 RETURN
8110 END SUBROUTINE nl_get_auxinput11_end_mo
8111 SUBROUTINE nl_get_auxinput11_end_d ( id_id , auxinput11_end_d )
8112 integer , INTENT(OUT) :: auxinput11_end_d
8113 INTEGER id_id
8114 CHARACTER*80 emess
8115 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8116 WRITE(emess,*)'nl_get_auxinput11_end_d: Out of range domain number: ',id_id
8117 CALL wrf_error_fatal(emess)
8118 ENDIF
8119 auxinput11_end_d = model_config_rec%auxinput11_end_d(id_id)
8120 RETURN
8121 END SUBROUTINE nl_get_auxinput11_end_d
8122 SUBROUTINE nl_get_auxinput11_end_h ( id_id , auxinput11_end_h )
8123 integer , INTENT(OUT) :: auxinput11_end_h
8124 INTEGER id_id
8125 CHARACTER*80 emess
8126 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8127 WRITE(emess,*)'nl_get_auxinput11_end_h: Out of range domain number: ',id_id
8128 CALL wrf_error_fatal(emess)
8129 ENDIF
8130 auxinput11_end_h = model_config_rec%auxinput11_end_h(id_id)
8131 RETURN
8132 END SUBROUTINE nl_get_auxinput11_end_h
8133 SUBROUTINE nl_get_auxinput11_end_m ( id_id , auxinput11_end_m )
8134 integer , INTENT(OUT) :: auxinput11_end_m
8135 INTEGER id_id
8136 CHARACTER*80 emess
8137 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8138 WRITE(emess,*)'nl_get_auxinput11_end_m: Out of range domain number: ',id_id
8139 CALL wrf_error_fatal(emess)
8140 ENDIF
8141 auxinput11_end_m = model_config_rec%auxinput11_end_m(id_id)
8142 RETURN
8143 END SUBROUTINE nl_get_auxinput11_end_m
8144 SUBROUTINE nl_get_auxinput11_end_s ( id_id , auxinput11_end_s )
8145 integer , INTENT(OUT) :: auxinput11_end_s
8146 INTEGER id_id
8147 CHARACTER*80 emess
8148 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8149 WRITE(emess,*)'nl_get_auxinput11_end_s: Out of range domain number: ',id_id
8150 CALL wrf_error_fatal(emess)
8151 ENDIF
8152 auxinput11_end_s = model_config_rec%auxinput11_end_s(id_id)
8153 RETURN
8154 END SUBROUTINE nl_get_auxinput11_end_s
8155 SUBROUTINE nl_get_io_form_auxinput1 ( id_id , io_form_auxinput1 )
8156 integer , INTENT(OUT) :: io_form_auxinput1
8157 INTEGER id_id
8158 CHARACTER*80 emess
8159 IF ( id_id .NE. 1 ) THEN
8160 call wrf_debug(1,&
8161 'WARNING in nl_get_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
8162 ENDIF
8163 io_form_auxinput1 = model_config_rec%io_form_auxinput1
8164 RETURN
8165 END SUBROUTINE nl_get_io_form_auxinput1
8166 SUBROUTINE nl_get_io_form_auxinput2 ( id_id , io_form_auxinput2 )
8167 integer , INTENT(OUT) :: io_form_auxinput2
8168 INTEGER id_id
8169 CHARACTER*80 emess
8170 IF ( id_id .NE. 1 ) THEN
8171 call wrf_debug(1,&
8172 'WARNING in nl_get_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
8173 ENDIF
8174 io_form_auxinput2 = model_config_rec%io_form_auxinput2
8175 RETURN
8176 END SUBROUTINE nl_get_io_form_auxinput2
8177 SUBROUTINE nl_get_io_form_auxinput3 ( id_id , io_form_auxinput3 )
8178 integer , INTENT(OUT) :: io_form_auxinput3
8179 INTEGER id_id
8180 CHARACTER*80 emess
8181 IF ( id_id .NE. 1 ) THEN
8182 call wrf_debug(1,&
8183 'WARNING in nl_get_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
8184 ENDIF
8185 io_form_auxinput3 = model_config_rec%io_form_auxinput3
8186 RETURN
8187 END SUBROUTINE nl_get_io_form_auxinput3
8188 SUBROUTINE nl_get_io_form_auxinput4 ( id_id , io_form_auxinput4 )
8189 integer , INTENT(OUT) :: io_form_auxinput4
8190 INTEGER id_id
8191 CHARACTER*80 emess
8192 IF ( id_id .NE. 1 ) THEN
8193 call wrf_debug(1,&
8194 'WARNING in nl_get_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
8195 ENDIF
8196 io_form_auxinput4 = model_config_rec%io_form_auxinput4
8197 RETURN
8198 END SUBROUTINE nl_get_io_form_auxinput4
8199 SUBROUTINE nl_get_io_form_auxinput5 ( id_id , io_form_auxinput5 )
8200 integer , INTENT(OUT) :: io_form_auxinput5
8201 INTEGER id_id
8202 CHARACTER*80 emess
8203 IF ( id_id .NE. 1 ) THEN
8204 call wrf_debug(1,&
8205 'WARNING in nl_get_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
8206 ENDIF
8207 io_form_auxinput5 = model_config_rec%io_form_auxinput5
8208 RETURN
8209 END SUBROUTINE nl_get_io_form_auxinput5
8210 SUBROUTINE nl_get_io_form_auxinput6 ( id_id , io_form_auxinput6 )
8211 integer , INTENT(OUT) :: io_form_auxinput6
8212 INTEGER id_id
8213 CHARACTER*80 emess
8214 IF ( id_id .NE. 1 ) THEN
8215 call wrf_debug(1,&
8216 'WARNING in nl_get_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
8217 ENDIF
8218 io_form_auxinput6 = model_config_rec%io_form_auxinput6
8219 RETURN
8220 END SUBROUTINE nl_get_io_form_auxinput6
8221 SUBROUTINE nl_get_io_form_auxinput7 ( id_id , io_form_auxinput7 )
8222 integer , INTENT(OUT) :: io_form_auxinput7
8223 INTEGER id_id
8224 CHARACTER*80 emess
8225 IF ( id_id .NE. 1 ) THEN
8226 call wrf_debug(1,&
8227 'WARNING in nl_get_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
8228 ENDIF
8229 io_form_auxinput7 = model_config_rec%io_form_auxinput7
8230 RETURN
8231 END SUBROUTINE nl_get_io_form_auxinput7
8232 SUBROUTINE nl_get_io_form_auxinput8 ( id_id , io_form_auxinput8 )
8233 integer , INTENT(OUT) :: io_form_auxinput8
8234 INTEGER id_id
8235 CHARACTER*80 emess
8236 IF ( id_id .NE. 1 ) THEN
8237 call wrf_debug(1,&
8238 'WARNING in nl_get_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
8239 ENDIF
8240 io_form_auxinput8 = model_config_rec%io_form_auxinput8
8241 RETURN
8242 END SUBROUTINE nl_get_io_form_auxinput8
8243 SUBROUTINE nl_get_io_form_auxinput9 ( id_id , io_form_auxinput9 )
8244 integer , INTENT(OUT) :: io_form_auxinput9
8245 INTEGER id_id
8246 CHARACTER*80 emess
8247 IF ( id_id .NE. 1 ) THEN
8248 call wrf_debug(1,&
8249 'WARNING in nl_get_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
8250 ENDIF
8251 io_form_auxinput9 = model_config_rec%io_form_auxinput9
8252 RETURN
8253 END SUBROUTINE nl_get_io_form_auxinput9
8254 SUBROUTINE nl_get_io_form_gfdda ( id_id , io_form_gfdda )
8255 integer , INTENT(OUT) :: io_form_gfdda
8256 INTEGER id_id
8257 CHARACTER*80 emess
8258 IF ( id_id .NE. 1 ) THEN
8259 call wrf_debug(1,&
8260 'WARNING in nl_get_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
8261 ENDIF
8262 io_form_gfdda = model_config_rec%io_form_gfdda
8263 RETURN
8264 END SUBROUTINE nl_get_io_form_gfdda
8265 SUBROUTINE nl_get_io_form_auxinput11 ( id_id , io_form_auxinput11 )
8266 integer , INTENT(OUT) :: io_form_auxinput11
8267 INTEGER id_id
8268 CHARACTER*80 emess
8269 IF ( id_id .NE. 1 ) THEN
8270 call wrf_debug(1,&
8271 'WARNING in nl_get_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
8272 ENDIF
8273 io_form_auxinput11 = model_config_rec%io_form_auxinput11
8274 RETURN
8275 END SUBROUTINE nl_get_io_form_auxinput11
8276 SUBROUTINE nl_get_io_form_auxhist1 ( id_id , io_form_auxhist1 )
8277 integer , INTENT(OUT) :: io_form_auxhist1
8278 INTEGER id_id
8279 CHARACTER*80 emess
8280 IF ( id_id .NE. 1 ) THEN
8281 call wrf_debug(1,&
8282 'WARNING in nl_get_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
8283 ENDIF
8284 io_form_auxhist1 = model_config_rec%io_form_auxhist1
8285 RETURN
8286 END SUBROUTINE nl_get_io_form_auxhist1
8287 SUBROUTINE nl_get_io_form_auxhist2 ( id_id , io_form_auxhist2 )
8288 integer , INTENT(OUT) :: io_form_auxhist2
8289 INTEGER id_id
8290 CHARACTER*80 emess
8291 IF ( id_id .NE. 1 ) THEN
8292 call wrf_debug(1,&
8293 'WARNING in nl_get_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
8294 ENDIF
8295 io_form_auxhist2 = model_config_rec%io_form_auxhist2
8296 RETURN
8297 END SUBROUTINE nl_get_io_form_auxhist2
8298 SUBROUTINE nl_get_io_form_auxhist3 ( id_id , io_form_auxhist3 )
8299 integer , INTENT(OUT) :: io_form_auxhist3
8300 INTEGER id_id
8301 CHARACTER*80 emess
8302 IF ( id_id .NE. 1 ) THEN
8303 call wrf_debug(1,&
8304 'WARNING in nl_get_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
8305 ENDIF
8306 io_form_auxhist3 = model_config_rec%io_form_auxhist3
8307 RETURN
8308 END SUBROUTINE nl_get_io_form_auxhist3
8309 SUBROUTINE nl_get_io_form_auxhist4 ( id_id , io_form_auxhist4 )
8310 integer , INTENT(OUT) :: io_form_auxhist4
8311 INTEGER id_id
8312 CHARACTER*80 emess
8313 IF ( id_id .NE. 1 ) THEN
8314 call wrf_debug(1,&
8315 'WARNING in nl_get_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
8316 ENDIF
8317 io_form_auxhist4 = model_config_rec%io_form_auxhist4
8318 RETURN
8319 END SUBROUTINE nl_get_io_form_auxhist4
8320 SUBROUTINE nl_get_io_form_auxhist5 ( id_id , io_form_auxhist5 )
8321 integer , INTENT(OUT) :: io_form_auxhist5
8322 INTEGER id_id
8323 CHARACTER*80 emess
8324 IF ( id_id .NE. 1 ) THEN
8325 call wrf_debug(1,&
8326 'WARNING in nl_get_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
8327 ENDIF
8328 io_form_auxhist5 = model_config_rec%io_form_auxhist5
8329 RETURN
8330 END SUBROUTINE nl_get_io_form_auxhist5
8331 SUBROUTINE nl_get_io_form_auxhist6 ( id_id , io_form_auxhist6 )
8332 integer , INTENT(OUT) :: io_form_auxhist6
8333 INTEGER id_id
8334 CHARACTER*80 emess
8335 IF ( id_id .NE. 1 ) THEN
8336 call wrf_debug(1,&
8337 'WARNING in nl_get_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
8338 ENDIF
8339 io_form_auxhist6 = model_config_rec%io_form_auxhist6
8340 RETURN
8341 END SUBROUTINE nl_get_io_form_auxhist6
8342 SUBROUTINE nl_get_io_form_auxhist7 ( id_id , io_form_auxhist7 )
8343 integer , INTENT(OUT) :: io_form_auxhist7
8344 INTEGER id_id
8345 CHARACTER*80 emess
8346 IF ( id_id .NE. 1 ) THEN
8347 call wrf_debug(1,&
8348 'WARNING in nl_get_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
8349 ENDIF
8350 io_form_auxhist7 = model_config_rec%io_form_auxhist7
8351 RETURN
8352 END SUBROUTINE nl_get_io_form_auxhist7
8353 SUBROUTINE nl_get_io_form_auxhist8 ( id_id , io_form_auxhist8 )
8354 integer , INTENT(OUT) :: io_form_auxhist8
8355 INTEGER id_id
8356 CHARACTER*80 emess
8357 IF ( id_id .NE. 1 ) THEN
8358 call wrf_debug(1,&
8359 'WARNING in nl_get_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
8360 ENDIF
8361 io_form_auxhist8 = model_config_rec%io_form_auxhist8
8362 RETURN
8363 END SUBROUTINE nl_get_io_form_auxhist8
8364 SUBROUTINE nl_get_io_form_auxhist9 ( id_id , io_form_auxhist9 )
8365 integer , INTENT(OUT) :: io_form_auxhist9
8366 INTEGER id_id
8367 CHARACTER*80 emess
8368 IF ( id_id .NE. 1 ) THEN
8369 call wrf_debug(1,&
8370 'WARNING in nl_get_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
8371 ENDIF
8372 io_form_auxhist9 = model_config_rec%io_form_auxhist9
8373 RETURN
8374 END SUBROUTINE nl_get_io_form_auxhist9
8375 SUBROUTINE nl_get_io_form_auxhist10 ( id_id , io_form_auxhist10 )
8376 integer , INTENT(OUT) :: io_form_auxhist10
8377 INTEGER id_id
8378 CHARACTER*80 emess
8379 IF ( id_id .NE. 1 ) THEN
8380 call wrf_debug(1,&
8381 'WARNING in nl_get_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
8382 ENDIF
8383 io_form_auxhist10 = model_config_rec%io_form_auxhist10
8384 RETURN
8385 END SUBROUTINE nl_get_io_form_auxhist10
8386 SUBROUTINE nl_get_io_form_auxhist11 ( id_id , io_form_auxhist11 )
8387 integer , INTENT(OUT) :: io_form_auxhist11
8388 INTEGER id_id
8389 CHARACTER*80 emess
8390 IF ( id_id .NE. 1 ) THEN
8391 call wrf_debug(1,&
8392 'WARNING in nl_get_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
8393 ENDIF
8394 io_form_auxhist11 = model_config_rec%io_form_auxhist11
8395 RETURN
8396 END SUBROUTINE nl_get_io_form_auxhist11
8397 SUBROUTINE nl_get_julyr ( id_id , julyr )
8398 integer , INTENT(OUT) :: julyr
8399 INTEGER id_id
8400 CHARACTER*80 emess
8401 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8402 WRITE(emess,*)'nl_get_julyr: Out of range domain number: ',id_id
8403 CALL wrf_error_fatal(emess)
8404 ENDIF
8405 julyr = model_config_rec%julyr(id_id)
8406 RETURN
8407 END SUBROUTINE nl_get_julyr
8408 SUBROUTINE nl_get_julday ( id_id , julday )
8409 integer , INTENT(OUT) :: julday
8410 INTEGER id_id
8411 CHARACTER*80 emess
8412 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8413 WRITE(emess,*)'nl_get_julday: Out of range domain number: ',id_id
8414 CALL wrf_error_fatal(emess)
8415 ENDIF
8416 julday = model_config_rec%julday(id_id)
8417 RETURN
8418 END SUBROUTINE nl_get_julday
8419 SUBROUTINE nl_get_gmt ( id_id , gmt )
8420 real , INTENT(OUT) :: gmt
8421 INTEGER id_id
8422 CHARACTER*80 emess
8423 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8424 WRITE(emess,*)'nl_get_gmt: Out of range domain number: ',id_id
8425 CALL wrf_error_fatal(emess)
8426 ENDIF
8427 gmt = model_config_rec%gmt(id_id)
8428 RETURN
8429 END SUBROUTINE nl_get_gmt
8430 SUBROUTINE nl_get_input_inname ( id_id , input_inname )
8431 character*256 , INTENT(OUT) :: input_inname
8432 INTEGER id_id
8433 CHARACTER*80 emess
8434 IF ( id_id .NE. 1 ) THEN
8435 call wrf_debug(1,&
8436 'WARNING in nl_get_input_inname: input_inname applies to all domains. First arg ignored.')
8437 ENDIF
8438 input_inname = trim(model_config_rec%input_inname)
8439 RETURN
8440 END SUBROUTINE nl_get_input_inname
8441 SUBROUTINE nl_get_input_outname ( id_id , input_outname )
8442 character*256 , INTENT(OUT) :: input_outname
8443 INTEGER id_id
8444 CHARACTER*80 emess
8445 IF ( id_id .NE. 1 ) THEN
8446 call wrf_debug(1,&
8447 'WARNING in nl_get_input_outname: input_outname applies to all domains. First arg ignored.')
8448 ENDIF
8449 input_outname = trim(model_config_rec%input_outname)
8450 RETURN
8451 END SUBROUTINE nl_get_input_outname
8452 SUBROUTINE nl_get_bdy_inname ( id_id , bdy_inname )
8453 character*256 , INTENT(OUT) :: bdy_inname
8454 INTEGER id_id
8455 CHARACTER*80 emess
8456 IF ( id_id .NE. 1 ) THEN
8457 call wrf_debug(1,&
8458 'WARNING in nl_get_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
8459 ENDIF
8460 bdy_inname = trim(model_config_rec%bdy_inname)
8461 RETURN
8462 END SUBROUTINE nl_get_bdy_inname
8463 SUBROUTINE nl_get_bdy_outname ( id_id , bdy_outname )
8464 character*256 , INTENT(OUT) :: bdy_outname
8465 INTEGER id_id
8466 CHARACTER*80 emess
8467 IF ( id_id .NE. 1 ) THEN
8468 call wrf_debug(1,&
8469 'WARNING in nl_get_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
8470 ENDIF
8471 bdy_outname = trim(model_config_rec%bdy_outname)
8472 RETURN
8473 END SUBROUTINE nl_get_bdy_outname
8474 SUBROUTINE nl_get_rst_inname ( id_id , rst_inname )
8475 character*256 , INTENT(OUT) :: rst_inname
8476 INTEGER id_id
8477 CHARACTER*80 emess
8478 IF ( id_id .NE. 1 ) THEN
8479 call wrf_debug(1,&
8480 'WARNING in nl_get_rst_inname: rst_inname applies to all domains. First arg ignored.')
8481 ENDIF
8482 rst_inname = trim(model_config_rec%rst_inname)
8483 RETURN
8484 END SUBROUTINE nl_get_rst_inname
8485 SUBROUTINE nl_get_rst_outname ( id_id , rst_outname )
8486 character*256 , INTENT(OUT) :: rst_outname
8487 INTEGER id_id
8488 CHARACTER*80 emess
8489 IF ( id_id .NE. 1 ) THEN
8490 call wrf_debug(1,&
8491 'WARNING in nl_get_rst_outname: rst_outname applies to all domains. First arg ignored.')
8492 ENDIF
8493 rst_outname = trim(model_config_rec%rst_outname)
8494 RETURN
8495 END SUBROUTINE nl_get_rst_outname
8496 SUBROUTINE nl_get_write_input ( id_id , write_input )
8497 logical , INTENT(OUT) :: write_input
8498 INTEGER id_id
8499 CHARACTER*80 emess
8500 IF ( id_id .NE. 1 ) THEN
8501 call wrf_debug(1,&
8502 'WARNING in nl_get_write_input: write_input applies to all domains. First arg ignored.')
8503 ENDIF
8504 write_input = model_config_rec%write_input
8505 RETURN
8506 END SUBROUTINE nl_get_write_input
8507 SUBROUTINE nl_get_write_restart_at_0h ( id_id , write_restart_at_0h )
8508 logical , INTENT(OUT) :: write_restart_at_0h
8509 INTEGER id_id
8510 CHARACTER*80 emess
8511 IF ( id_id .NE. 1 ) THEN
8512 call wrf_debug(1,&
8513 'WARNING in nl_get_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
8514 ENDIF
8515 write_restart_at_0h = model_config_rec%write_restart_at_0h
8516 RETURN
8517 END SUBROUTINE nl_get_write_restart_at_0h
8518 SUBROUTINE nl_get_adjust_output_times ( id_id , adjust_output_times )
8519 logical , INTENT(OUT) :: adjust_output_times
8520 INTEGER id_id
8521 CHARACTER*80 emess
8522 IF ( id_id .NE. 1 ) THEN
8523 call wrf_debug(1,&
8524 'WARNING in nl_get_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
8525 ENDIF
8526 adjust_output_times = model_config_rec%adjust_output_times
8527 RETURN
8528 END SUBROUTINE nl_get_adjust_output_times
8529 SUBROUTINE nl_get_adjust_input_times ( id_id , adjust_input_times )
8530 logical , INTENT(OUT) :: adjust_input_times
8531 INTEGER id_id
8532 CHARACTER*80 emess
8533 IF ( id_id .NE. 1 ) THEN
8534 call wrf_debug(1,&
8535 'WARNING in nl_get_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
8536 ENDIF
8537 adjust_input_times = model_config_rec%adjust_input_times
8538 RETURN
8539 END SUBROUTINE nl_get_adjust_input_times
8540 SUBROUTINE nl_get_nocolons ( id_id , nocolons )
8541 logical , INTENT(OUT) :: nocolons
8542 INTEGER id_id
8543 CHARACTER*80 emess
8544 IF ( id_id .NE. 1 ) THEN
8545 call wrf_debug(1,&
8546 'WARNING in nl_get_nocolons: nocolons applies to all domains. First arg ignored.')
8547 ENDIF
8548 nocolons = model_config_rec%nocolons
8549 RETURN
8550 END SUBROUTINE nl_get_nocolons
8551 SUBROUTINE nl_get_time_step ( id_id , time_step )
8552 integer , INTENT(OUT) :: time_step
8553 INTEGER id_id
8554 CHARACTER*80 emess
8555 IF ( id_id .NE. 1 ) THEN
8556 call wrf_debug(1,&
8557 'WARNING in nl_get_time_step: time_step applies to all domains. First arg ignored.')
8558 ENDIF
8559 time_step = model_config_rec%time_step
8560 RETURN
8561 END SUBROUTINE nl_get_time_step
8562 SUBROUTINE nl_get_time_step_fract_num ( id_id , time_step_fract_num )
8563 integer , INTENT(OUT) :: time_step_fract_num
8564 INTEGER id_id
8565 CHARACTER*80 emess
8566 IF ( id_id .NE. 1 ) THEN
8567 call wrf_debug(1,&
8568 'WARNING in nl_get_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
8569 ENDIF
8570 time_step_fract_num = model_config_rec%time_step_fract_num
8571 RETURN
8572 END SUBROUTINE nl_get_time_step_fract_num
8573 SUBROUTINE nl_get_time_step_fract_den ( id_id , time_step_fract_den )
8574 integer , INTENT(OUT) :: time_step_fract_den
8575 INTEGER id_id
8576 CHARACTER*80 emess
8577 IF ( id_id .NE. 1 ) THEN
8578 call wrf_debug(1,&
8579 'WARNING in nl_get_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
8580 ENDIF
8581 time_step_fract_den = model_config_rec%time_step_fract_den
8582 RETURN
8583 END SUBROUTINE nl_get_time_step_fract_den
8584 SUBROUTINE nl_get_max_dom ( id_id , max_dom )
8585 integer , INTENT(OUT) :: max_dom
8586 INTEGER id_id
8587 CHARACTER*80 emess
8588 IF ( id_id .NE. 1 ) THEN
8589 call wrf_debug(1,&
8590 'WARNING in nl_get_max_dom: max_dom applies to all domains. First arg ignored.')
8591 ENDIF
8592 max_dom = model_config_rec%max_dom
8593 RETURN
8594 END SUBROUTINE nl_get_max_dom
8595 SUBROUTINE nl_get_s_we ( id_id , s_we )
8596 integer , INTENT(OUT) :: s_we
8597 INTEGER id_id
8598 CHARACTER*80 emess
8599 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8600 WRITE(emess,*)'nl_get_s_we: Out of range domain number: ',id_id
8601 CALL wrf_error_fatal(emess)
8602 ENDIF
8603 s_we = model_config_rec%s_we(id_id)
8604 RETURN
8605 END SUBROUTINE nl_get_s_we
8606 SUBROUTINE nl_get_e_we ( id_id , e_we )
8607 integer , INTENT(OUT) :: e_we
8608 INTEGER id_id
8609 CHARACTER*80 emess
8610 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8611 WRITE(emess,*)'nl_get_e_we: Out of range domain number: ',id_id
8612 CALL wrf_error_fatal(emess)
8613 ENDIF
8614 e_we = model_config_rec%e_we(id_id)
8615 RETURN
8616 END SUBROUTINE nl_get_e_we
8617 SUBROUTINE nl_get_s_sn ( id_id , s_sn )
8618 integer , INTENT(OUT) :: s_sn
8619 INTEGER id_id
8620 CHARACTER*80 emess
8621 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8622 WRITE(emess,*)'nl_get_s_sn: Out of range domain number: ',id_id
8623 CALL wrf_error_fatal(emess)
8624 ENDIF
8625 s_sn = model_config_rec%s_sn(id_id)
8626 RETURN
8627 END SUBROUTINE nl_get_s_sn
8628 SUBROUTINE nl_get_e_sn ( id_id , e_sn )
8629 integer , INTENT(OUT) :: e_sn
8630 INTEGER id_id
8631 CHARACTER*80 emess
8632 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8633 WRITE(emess,*)'nl_get_e_sn: Out of range domain number: ',id_id
8634 CALL wrf_error_fatal(emess)
8635 ENDIF
8636 e_sn = model_config_rec%e_sn(id_id)
8637 RETURN
8638 END SUBROUTINE nl_get_e_sn
8639 SUBROUTINE nl_get_s_vert ( id_id , s_vert )
8640 integer , INTENT(OUT) :: s_vert
8641 INTEGER id_id
8642 CHARACTER*80 emess
8643 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8644 WRITE(emess,*)'nl_get_s_vert: Out of range domain number: ',id_id
8645 CALL wrf_error_fatal(emess)
8646 ENDIF
8647 s_vert = model_config_rec%s_vert(id_id)
8648 RETURN
8649 END SUBROUTINE nl_get_s_vert
8650 SUBROUTINE nl_get_e_vert ( id_id , e_vert )
8651 integer , INTENT(OUT) :: e_vert
8652 INTEGER id_id
8653 CHARACTER*80 emess
8654 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8655 WRITE(emess,*)'nl_get_e_vert: Out of range domain number: ',id_id
8656 CALL wrf_error_fatal(emess)
8657 ENDIF
8658 e_vert = model_config_rec%e_vert(id_id)
8659 RETURN
8660 END SUBROUTINE nl_get_e_vert
8661 SUBROUTINE nl_get_num_metgrid_levels ( id_id , num_metgrid_levels )
8662 integer , INTENT(OUT) :: num_metgrid_levels
8663 INTEGER id_id
8664 CHARACTER*80 emess
8665 IF ( id_id .NE. 1 ) THEN
8666 call wrf_debug(1,&
8667 'WARNING in nl_get_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
8668 ENDIF
8669 num_metgrid_levels = model_config_rec%num_metgrid_levels
8670 RETURN
8671 END SUBROUTINE nl_get_num_metgrid_levels
8672 SUBROUTINE nl_get_p_top_requested ( id_id , p_top_requested )
8673 real , INTENT(OUT) :: p_top_requested
8674 INTEGER id_id
8675 CHARACTER*80 emess
8676 IF ( id_id .NE. 1 ) THEN
8677 call wrf_debug(1,&
8678 'WARNING in nl_get_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
8679 ENDIF
8680 p_top_requested = model_config_rec%p_top_requested
8681 RETURN
8682 END SUBROUTINE nl_get_p_top_requested
8683 SUBROUTINE nl_get_interp_type ( id_id , interp_type )
8684 integer , INTENT(OUT) :: interp_type
8685 INTEGER id_id
8686 CHARACTER*80 emess
8687 IF ( id_id .NE. 1 ) THEN
8688 call wrf_debug(1,&
8689 'WARNING in nl_get_interp_type: interp_type applies to all domains. First arg ignored.')
8690 ENDIF
8691 interp_type = model_config_rec%interp_type
8692 RETURN
8693 END SUBROUTINE nl_get_interp_type
8694 SUBROUTINE nl_get_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
8695 logical , INTENT(OUT) :: lowest_lev_from_sfc
8696 INTEGER id_id
8697 CHARACTER*80 emess
8698 IF ( id_id .NE. 1 ) THEN
8699 call wrf_debug(1,&
8700 'WARNING in nl_get_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
8701 ENDIF
8702 lowest_lev_from_sfc = model_config_rec%lowest_lev_from_sfc
8703 RETURN
8704 END SUBROUTINE nl_get_lowest_lev_from_sfc
8705 SUBROUTINE nl_get_lagrange_order ( id_id , lagrange_order )
8706 integer , INTENT(OUT) :: lagrange_order
8707 INTEGER id_id
8708 CHARACTER*80 emess
8709 IF ( id_id .NE. 1 ) THEN
8710 call wrf_debug(1,&
8711 'WARNING in nl_get_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
8712 ENDIF
8713 lagrange_order = model_config_rec%lagrange_order
8714 RETURN
8715 END SUBROUTINE nl_get_lagrange_order
8716 SUBROUTINE nl_get_dx ( id_id , dx )
8717 real , INTENT(OUT) :: dx
8718 INTEGER id_id
8719 CHARACTER*80 emess
8720 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8721 WRITE(emess,*)'nl_get_dx: Out of range domain number: ',id_id
8722 CALL wrf_error_fatal(emess)
8723 ENDIF
8724 dx = model_config_rec%dx(id_id)
8725 RETURN
8726 END SUBROUTINE nl_get_dx
8727 SUBROUTINE nl_get_dy ( id_id , dy )
8728 real , INTENT(OUT) :: dy
8729 INTEGER id_id
8730 CHARACTER*80 emess
8731 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8732 WRITE(emess,*)'nl_get_dy: Out of range domain number: ',id_id
8733 CALL wrf_error_fatal(emess)
8734 ENDIF
8735 dy = model_config_rec%dy(id_id)
8736 RETURN
8737 END SUBROUTINE nl_get_dy
8738 SUBROUTINE nl_get_grid_id ( id_id , grid_id )
8739 integer , INTENT(OUT) :: grid_id
8740 INTEGER id_id
8741 CHARACTER*80 emess
8742 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8743 WRITE(emess,*)'nl_get_grid_id: Out of range domain number: ',id_id
8744 CALL wrf_error_fatal(emess)
8745 ENDIF
8746 grid_id = model_config_rec%grid_id(id_id)
8747 RETURN
8748 END SUBROUTINE nl_get_grid_id
8749 SUBROUTINE nl_get_parent_id ( id_id , parent_id )
8750 integer , INTENT(OUT) :: parent_id
8751 INTEGER id_id
8752 CHARACTER*80 emess
8753 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8754 WRITE(emess,*)'nl_get_parent_id: Out of range domain number: ',id_id
8755 CALL wrf_error_fatal(emess)
8756 ENDIF
8757 parent_id = model_config_rec%parent_id(id_id)
8758 RETURN
8759 END SUBROUTINE nl_get_parent_id
8760 SUBROUTINE nl_get_i_parent_start ( id_id , i_parent_start )
8761 integer , INTENT(OUT) :: i_parent_start
8762 INTEGER id_id
8763 CHARACTER*80 emess
8764 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8765 WRITE(emess,*)'nl_get_i_parent_start: Out of range domain number: ',id_id
8766 CALL wrf_error_fatal(emess)
8767 ENDIF
8768 i_parent_start = model_config_rec%i_parent_start(id_id)
8769 RETURN
8770 END SUBROUTINE nl_get_i_parent_start
8771 SUBROUTINE nl_get_j_parent_start ( id_id , j_parent_start )
8772 integer , INTENT(OUT) :: j_parent_start
8773 INTEGER id_id
8774 CHARACTER*80 emess
8775 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8776 WRITE(emess,*)'nl_get_j_parent_start: Out of range domain number: ',id_id
8777 CALL wrf_error_fatal(emess)
8778 ENDIF
8779 j_parent_start = model_config_rec%j_parent_start(id_id)
8780 RETURN
8781 END SUBROUTINE nl_get_j_parent_start
8782 SUBROUTINE nl_get_parent_grid_ratio ( id_id , parent_grid_ratio )
8783 integer , INTENT(OUT) :: parent_grid_ratio
8784 INTEGER id_id
8785 CHARACTER*80 emess
8786 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8787 WRITE(emess,*)'nl_get_parent_grid_ratio: Out of range domain number: ',id_id
8788 CALL wrf_error_fatal(emess)
8789 ENDIF
8790 parent_grid_ratio = model_config_rec%parent_grid_ratio(id_id)
8791 RETURN
8792 END SUBROUTINE nl_get_parent_grid_ratio
8793 SUBROUTINE nl_get_parent_time_step_ratio ( id_id , parent_time_step_ratio )
8794 integer , INTENT(OUT) :: parent_time_step_ratio
8795 INTEGER id_id
8796 CHARACTER*80 emess
8797 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8798 WRITE(emess,*)'nl_get_parent_time_step_ratio: Out of range domain number: ',id_id
8799 CALL wrf_error_fatal(emess)
8800 ENDIF
8801 parent_time_step_ratio = model_config_rec%parent_time_step_ratio(id_id)
8802 RETURN
8803 END SUBROUTINE nl_get_parent_time_step_ratio
8804 SUBROUTINE nl_get_feedback ( id_id , feedback )
8805 integer , INTENT(OUT) :: feedback
8806 INTEGER id_id
8807 CHARACTER*80 emess
8808 IF ( id_id .NE. 1 ) THEN
8809 call wrf_debug(1,&
8810 'WARNING in nl_get_feedback: feedback applies to all domains. First arg ignored.')
8811 ENDIF
8812 feedback = model_config_rec%feedback
8813 RETURN
8814 END SUBROUTINE nl_get_feedback
8815 SUBROUTINE nl_get_smooth_option ( id_id , smooth_option )
8816 integer , INTENT(OUT) :: smooth_option
8817 INTEGER id_id
8818 CHARACTER*80 emess
8819 IF ( id_id .NE. 1 ) THEN
8820 call wrf_debug(1,&
8821 'WARNING in nl_get_smooth_option: smooth_option applies to all domains. First arg ignored.')
8822 ENDIF
8823 smooth_option = model_config_rec%smooth_option
8824 RETURN
8825 END SUBROUTINE nl_get_smooth_option
8826 SUBROUTINE nl_get_blend_width ( id_id , blend_width )
8827 integer , INTENT(OUT) :: blend_width
8828 INTEGER id_id
8829 CHARACTER*80 emess
8830 IF ( id_id .NE. 1 ) THEN
8831 call wrf_debug(1,&
8832 'WARNING in nl_get_blend_width: blend_width applies to all domains. First arg ignored.')
8833 ENDIF
8834 blend_width = model_config_rec%blend_width
8835 RETURN
8836 END SUBROUTINE nl_get_blend_width
8837 SUBROUTINE nl_get_ztop ( id_id , ztop )
8838 real , INTENT(OUT) :: ztop
8839 INTEGER id_id
8840 CHARACTER*80 emess
8841 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8842 WRITE(emess,*)'nl_get_ztop: Out of range domain number: ',id_id
8843 CALL wrf_error_fatal(emess)
8844 ENDIF
8845 ztop = model_config_rec%ztop(id_id)
8846 RETURN
8847 END SUBROUTINE nl_get_ztop
8848 SUBROUTINE nl_get_moad_grid_ratio ( id_id , moad_grid_ratio )
8849 integer , INTENT(OUT) :: moad_grid_ratio
8850 INTEGER id_id
8851 CHARACTER*80 emess
8852 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8853 WRITE(emess,*)'nl_get_moad_grid_ratio: Out of range domain number: ',id_id
8854 CALL wrf_error_fatal(emess)
8855 ENDIF
8856 moad_grid_ratio = model_config_rec%moad_grid_ratio(id_id)
8857 RETURN
8858 END SUBROUTINE nl_get_moad_grid_ratio
8859 SUBROUTINE nl_get_moad_time_step_ratio ( id_id , moad_time_step_ratio )
8860 integer , INTENT(OUT) :: moad_time_step_ratio
8861 INTEGER id_id
8862 CHARACTER*80 emess
8863 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8864 WRITE(emess,*)'nl_get_moad_time_step_ratio: Out of range domain number: ',id_id
8865 CALL wrf_error_fatal(emess)
8866 ENDIF
8867 moad_time_step_ratio = model_config_rec%moad_time_step_ratio(id_id)
8868 RETURN
8869 END SUBROUTINE nl_get_moad_time_step_ratio
8870 SUBROUTINE nl_get_shw ( id_id , shw )
8871 integer , INTENT(OUT) :: shw
8872 INTEGER id_id
8873 CHARACTER*80 emess
8874 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8875 WRITE(emess,*)'nl_get_shw: Out of range domain number: ',id_id
8876 CALL wrf_error_fatal(emess)
8877 ENDIF
8878 shw = model_config_rec%shw(id_id)
8879 RETURN
8880 END SUBROUTINE nl_get_shw
8881 SUBROUTINE nl_get_tile_sz_x ( id_id , tile_sz_x )
8882 integer , INTENT(OUT) :: tile_sz_x
8883 INTEGER id_id
8884 CHARACTER*80 emess
8885 IF ( id_id .NE. 1 ) THEN
8886 call wrf_debug(1,&
8887 'WARNING in nl_get_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
8888 ENDIF
8889 tile_sz_x = model_config_rec%tile_sz_x
8890 RETURN
8891 END SUBROUTINE nl_get_tile_sz_x
8892 SUBROUTINE nl_get_tile_sz_y ( id_id , tile_sz_y )
8893 integer , INTENT(OUT) :: tile_sz_y
8894 INTEGER id_id
8895 CHARACTER*80 emess
8896 IF ( id_id .NE. 1 ) THEN
8897 call wrf_debug(1,&
8898 'WARNING in nl_get_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
8899 ENDIF
8900 tile_sz_y = model_config_rec%tile_sz_y
8901 RETURN
8902 END SUBROUTINE nl_get_tile_sz_y
8903 SUBROUTINE nl_get_numtiles ( id_id , numtiles )
8904 integer , INTENT(OUT) :: numtiles
8905 INTEGER id_id
8906 CHARACTER*80 emess
8907 IF ( id_id .NE. 1 ) THEN
8908 call wrf_debug(1,&
8909 'WARNING in nl_get_numtiles: numtiles applies to all domains. First arg ignored.')
8910 ENDIF
8911 numtiles = model_config_rec%numtiles
8912 RETURN
8913 END SUBROUTINE nl_get_numtiles
8914 SUBROUTINE nl_get_nproc_x ( id_id , nproc_x )
8915 integer , INTENT(OUT) :: nproc_x
8916 INTEGER id_id
8917 CHARACTER*80 emess
8918 IF ( id_id .NE. 1 ) THEN
8919 call wrf_debug(1,&
8920 'WARNING in nl_get_nproc_x: nproc_x applies to all domains. First arg ignored.')
8921 ENDIF
8922 nproc_x = model_config_rec%nproc_x
8923 RETURN
8924 END SUBROUTINE nl_get_nproc_x
8925 SUBROUTINE nl_get_nproc_y ( id_id , nproc_y )
8926 integer , INTENT(OUT) :: nproc_y
8927 INTEGER id_id
8928 CHARACTER*80 emess
8929 IF ( id_id .NE. 1 ) THEN
8930 call wrf_debug(1,&
8931 'WARNING in nl_get_nproc_y: nproc_y applies to all domains. First arg ignored.')
8932 ENDIF
8933 nproc_y = model_config_rec%nproc_y
8934 RETURN
8935 END SUBROUTINE nl_get_nproc_y
8936 SUBROUTINE nl_get_irand ( id_id , irand )
8937 integer , INTENT(OUT) :: irand
8938 INTEGER id_id
8939 CHARACTER*80 emess
8940 IF ( id_id .NE. 1 ) THEN
8941 call wrf_debug(1,&
8942 'WARNING in nl_get_irand: irand applies to all domains. First arg ignored.')
8943 ENDIF
8944 irand = model_config_rec%irand
8945 RETURN
8946 END SUBROUTINE nl_get_irand
8947 SUBROUTINE nl_get_dt ( id_id , dt )
8948 real , INTENT(OUT) :: dt
8949 INTEGER id_id
8950 CHARACTER*80 emess
8951 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8952 WRITE(emess,*)'nl_get_dt: Out of range domain number: ',id_id
8953 CALL wrf_error_fatal(emess)
8954 ENDIF
8955 dt = model_config_rec%dt(id_id)
8956 RETURN
8957 END SUBROUTINE nl_get_dt
8958 SUBROUTINE nl_get_num_moves ( id_id , num_moves )
8959 integer , INTENT(OUT) :: num_moves
8960 INTEGER id_id
8961 CHARACTER*80 emess
8962 IF ( id_id .NE. 1 ) THEN
8963 call wrf_debug(1,&
8964 'WARNING in nl_get_num_moves: num_moves applies to all domains. First arg ignored.')
8965 ENDIF
8966 num_moves = model_config_rec%num_moves
8967 RETURN
8968 END SUBROUTINE nl_get_num_moves
8969 SUBROUTINE nl_get_vortex_interval ( id_id , vortex_interval )
8970 integer , INTENT(OUT) :: vortex_interval
8971 INTEGER id_id
8972 CHARACTER*80 emess
8973 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8974 WRITE(emess,*)'nl_get_vortex_interval: Out of range domain number: ',id_id
8975 CALL wrf_error_fatal(emess)
8976 ENDIF
8977 vortex_interval = model_config_rec%vortex_interval(id_id)
8978 RETURN
8979 END SUBROUTINE nl_get_vortex_interval
8980 SUBROUTINE nl_get_max_vortex_speed ( id_id , max_vortex_speed )
8981 integer , INTENT(OUT) :: max_vortex_speed
8982 INTEGER id_id
8983 CHARACTER*80 emess
8984 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8985 WRITE(emess,*)'nl_get_max_vortex_speed: Out of range domain number: ',id_id
8986 CALL wrf_error_fatal(emess)
8987 ENDIF
8988 max_vortex_speed = model_config_rec%max_vortex_speed(id_id)
8989 RETURN
8990 END SUBROUTINE nl_get_max_vortex_speed
8991 SUBROUTINE nl_get_corral_dist ( id_id , corral_dist )
8992 integer , INTENT(OUT) :: corral_dist
8993 INTEGER id_id
8994 CHARACTER*80 emess
8995 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8996 WRITE(emess,*)'nl_get_corral_dist: Out of range domain number: ',id_id
8997 CALL wrf_error_fatal(emess)
8998 ENDIF
8999 corral_dist = model_config_rec%corral_dist(id_id)
9000 RETURN
9001 END SUBROUTINE nl_get_corral_dist
9002 SUBROUTINE nl_get_move_id ( id_id , move_id )
9003 integer , INTENT(OUT) :: move_id
9004 INTEGER id_id
9005 CHARACTER*80 emess
9006 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9007 WRITE(emess,*)'nl_get_move_id: Out of range move number: ',id_id
9008 CALL wrf_error_fatal(emess)
9009 ENDIF
9010 move_id = model_config_rec%move_id(id_id)
9011 RETURN
9012 END SUBROUTINE nl_get_move_id
9013 SUBROUTINE nl_get_move_interval ( id_id , move_interval )
9014 integer , INTENT(OUT) :: move_interval
9015 INTEGER id_id
9016 CHARACTER*80 emess
9017 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9018 WRITE(emess,*)'nl_get_move_interval: Out of range move number: ',id_id
9019 CALL wrf_error_fatal(emess)
9020 ENDIF
9021 move_interval = model_config_rec%move_interval(id_id)
9022 RETURN
9023 END SUBROUTINE nl_get_move_interval
9024 SUBROUTINE nl_get_move_cd_x ( id_id , move_cd_x )
9025 integer , INTENT(OUT) :: move_cd_x
9026 INTEGER id_id
9027 CHARACTER*80 emess
9028 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9029 WRITE(emess,*)'nl_get_move_cd_x: Out of range move number: ',id_id
9030 CALL wrf_error_fatal(emess)
9031 ENDIF
9032 move_cd_x = model_config_rec%move_cd_x(id_id)
9033 RETURN
9034 END SUBROUTINE nl_get_move_cd_x
9035 SUBROUTINE nl_get_move_cd_y ( id_id , move_cd_y )
9036 integer , INTENT(OUT) :: move_cd_y
9037 INTEGER id_id
9038 CHARACTER*80 emess
9039 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9040 WRITE(emess,*)'nl_get_move_cd_y: Out of range move number: ',id_id
9041 CALL wrf_error_fatal(emess)
9042 ENDIF
9043 move_cd_y = model_config_rec%move_cd_y(id_id)
9044 RETURN
9045 END SUBROUTINE nl_get_move_cd_y
9046 SUBROUTINE nl_get_swap_x ( id_id , swap_x )
9047 logical , INTENT(OUT) :: swap_x
9048 INTEGER id_id
9049 CHARACTER*80 emess
9050 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9051 WRITE(emess,*)'nl_get_swap_x: Out of range domain number: ',id_id
9052 CALL wrf_error_fatal(emess)
9053 ENDIF
9054 swap_x = model_config_rec%swap_x(id_id)
9055 RETURN
9056 END SUBROUTINE nl_get_swap_x
9057 SUBROUTINE nl_get_swap_y ( id_id , swap_y )
9058 logical , INTENT(OUT) :: swap_y
9059 INTEGER id_id
9060 CHARACTER*80 emess
9061 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9062 WRITE(emess,*)'nl_get_swap_y: Out of range domain number: ',id_id
9063 CALL wrf_error_fatal(emess)
9064 ENDIF
9065 swap_y = model_config_rec%swap_y(id_id)
9066 RETURN
9067 END SUBROUTINE nl_get_swap_y
9068 SUBROUTINE nl_get_cycle_x ( id_id , cycle_x )
9069 logical , INTENT(OUT) :: cycle_x
9070 INTEGER id_id
9071 CHARACTER*80 emess
9072 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9073 WRITE(emess,*)'nl_get_cycle_x: Out of range domain number: ',id_id
9074 CALL wrf_error_fatal(emess)
9075 ENDIF
9076 cycle_x = model_config_rec%cycle_x(id_id)
9077 RETURN
9078 END SUBROUTINE nl_get_cycle_x
9079 SUBROUTINE nl_get_cycle_y ( id_id , cycle_y )
9080 logical , INTENT(OUT) :: cycle_y
9081 INTEGER id_id
9082 CHARACTER*80 emess
9083 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9084 WRITE(emess,*)'nl_get_cycle_y: Out of range domain number: ',id_id
9085 CALL wrf_error_fatal(emess)
9086 ENDIF
9087 cycle_y = model_config_rec%cycle_y(id_id)
9088 RETURN
9089 END SUBROUTINE nl_get_cycle_y
9090 SUBROUTINE nl_get_reorder_mesh ( id_id , reorder_mesh )
9091 logical , INTENT(OUT) :: reorder_mesh
9092 INTEGER id_id
9093 CHARACTER*80 emess
9094 IF ( id_id .NE. 1 ) THEN
9095 call wrf_debug(1,&
9096 'WARNING in nl_get_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
9097 ENDIF
9098 reorder_mesh = model_config_rec%reorder_mesh
9099 RETURN
9100 END SUBROUTINE nl_get_reorder_mesh
9101 SUBROUTINE nl_get_perturb_input ( id_id , perturb_input )
9102 logical , INTENT(OUT) :: perturb_input
9103 INTEGER id_id
9104 CHARACTER*80 emess
9105 IF ( id_id .NE. 1 ) THEN
9106 call wrf_debug(1,&
9107 'WARNING in nl_get_perturb_input: perturb_input applies to all domains. First arg ignored.')
9108 ENDIF
9109 perturb_input = model_config_rec%perturb_input
9110 RETURN
9111 END SUBROUTINE nl_get_perturb_input
9112 SUBROUTINE nl_get_eta_levels ( id_id , eta_levels )
9113 real , INTENT(OUT) :: eta_levels
9114 INTEGER id_id
9115 CHARACTER*80 emess
9116 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
9117 WRITE(emess,*)'nl_get_eta_levels: Out of range eta_level number: ',id_id
9118 CALL wrf_error_fatal(emess)
9119 ENDIF
9120 eta_levels = model_config_rec%eta_levels(id_id)
9121 RETURN
9122 END SUBROUTINE nl_get_eta_levels
9123 SUBROUTINE nl_get_max_dz ( id_id , max_dz )
9124 real , INTENT(OUT) :: max_dz
9125 INTEGER id_id
9126 CHARACTER*80 emess
9127 IF ( id_id .NE. 1 ) THEN
9128 call wrf_debug(1,&
9129 'WARNING in nl_get_max_dz: max_dz applies to all domains. First arg ignored.')
9130 ENDIF
9131 max_dz = model_config_rec%max_dz
9132 RETURN
9133 END SUBROUTINE nl_get_max_dz
9134 SUBROUTINE nl_get_mp_physics ( id_id , mp_physics )
9135 integer , INTENT(OUT) :: mp_physics
9136 INTEGER id_id
9137 CHARACTER*80 emess
9138 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9139 WRITE(emess,*)'nl_get_mp_physics: Out of range domain number: ',id_id
9140 CALL wrf_error_fatal(emess)
9141 ENDIF
9142 mp_physics = model_config_rec%mp_physics(id_id)
9143 RETURN
9144 END SUBROUTINE nl_get_mp_physics
9145 SUBROUTINE nl_get_ra_lw_physics ( id_id , ra_lw_physics )
9146 integer , INTENT(OUT) :: ra_lw_physics
9147 INTEGER id_id
9148 CHARACTER*80 emess
9149 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9150 WRITE(emess,*)'nl_get_ra_lw_physics: Out of range domain number: ',id_id
9151 CALL wrf_error_fatal(emess)
9152 ENDIF
9153 ra_lw_physics = model_config_rec%ra_lw_physics(id_id)
9154 RETURN
9155 END SUBROUTINE nl_get_ra_lw_physics
9156 SUBROUTINE nl_get_ra_sw_physics ( id_id , ra_sw_physics )
9157 integer , INTENT(OUT) :: ra_sw_physics
9158 INTEGER id_id
9159 CHARACTER*80 emess
9160 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9161 WRITE(emess,*)'nl_get_ra_sw_physics: Out of range domain number: ',id_id
9162 CALL wrf_error_fatal(emess)
9163 ENDIF
9164 ra_sw_physics = model_config_rec%ra_sw_physics(id_id)
9165 RETURN
9166 END SUBROUTINE nl_get_ra_sw_physics
9167 SUBROUTINE nl_get_radt ( id_id , radt )
9168 real , INTENT(OUT) :: radt
9169 INTEGER id_id
9170 CHARACTER*80 emess
9171 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9172 WRITE(emess,*)'nl_get_radt: Out of range domain number: ',id_id
9173 CALL wrf_error_fatal(emess)
9174 ENDIF
9175 radt = model_config_rec%radt(id_id)
9176 RETURN
9177 END SUBROUTINE nl_get_radt
9178 SUBROUTINE nl_get_sf_sfclay_physics ( id_id , sf_sfclay_physics )
9179 integer , INTENT(OUT) :: sf_sfclay_physics
9180 INTEGER id_id
9181 CHARACTER*80 emess
9182 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9183 WRITE(emess,*)'nl_get_sf_sfclay_physics: Out of range domain number: ',id_id
9184 CALL wrf_error_fatal(emess)
9185 ENDIF
9186 sf_sfclay_physics = model_config_rec%sf_sfclay_physics(id_id)
9187 RETURN
9188 END SUBROUTINE nl_get_sf_sfclay_physics
9189 SUBROUTINE nl_get_sf_surface_physics ( id_id , sf_surface_physics )
9190 integer , INTENT(OUT) :: sf_surface_physics
9191 INTEGER id_id
9192 CHARACTER*80 emess
9193 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9194 WRITE(emess,*)'nl_get_sf_surface_physics: Out of range domain number: ',id_id
9195 CALL wrf_error_fatal(emess)
9196 ENDIF
9197 sf_surface_physics = model_config_rec%sf_surface_physics(id_id)
9198 RETURN
9199 END SUBROUTINE nl_get_sf_surface_physics
9200 SUBROUTINE nl_get_bl_pbl_physics ( id_id , bl_pbl_physics )
9201 integer , INTENT(OUT) :: bl_pbl_physics
9202 INTEGER id_id
9203 CHARACTER*80 emess
9204 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9205 WRITE(emess,*)'nl_get_bl_pbl_physics: Out of range domain number: ',id_id
9206 CALL wrf_error_fatal(emess)
9207 ENDIF
9208 bl_pbl_physics = model_config_rec%bl_pbl_physics(id_id)
9209 RETURN
9210 END SUBROUTINE nl_get_bl_pbl_physics
9211 SUBROUTINE nl_get_bldt ( id_id , bldt )
9212 real , INTENT(OUT) :: bldt
9213 INTEGER id_id
9214 CHARACTER*80 emess
9215 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9216 WRITE(emess,*)'nl_get_bldt: Out of range domain number: ',id_id
9217 CALL wrf_error_fatal(emess)
9218 ENDIF
9219 bldt = model_config_rec%bldt(id_id)
9220 RETURN
9221 END SUBROUTINE nl_get_bldt
9222 SUBROUTINE nl_get_cu_physics ( id_id , cu_physics )
9223 integer , INTENT(OUT) :: cu_physics
9224 INTEGER id_id
9225 CHARACTER*80 emess
9226 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9227 WRITE(emess,*)'nl_get_cu_physics: Out of range domain number: ',id_id
9228 CALL wrf_error_fatal(emess)
9229 ENDIF
9230 cu_physics = model_config_rec%cu_physics(id_id)
9231 RETURN
9232 END SUBROUTINE nl_get_cu_physics
9233 SUBROUTINE nl_get_cudt ( id_id , cudt )
9234 real , INTENT(OUT) :: cudt
9235 INTEGER id_id
9236 CHARACTER*80 emess
9237 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9238 WRITE(emess,*)'nl_get_cudt: Out of range domain number: ',id_id
9239 CALL wrf_error_fatal(emess)
9240 ENDIF
9241 cudt = model_config_rec%cudt(id_id)
9242 RETURN
9243 END SUBROUTINE nl_get_cudt
9244 SUBROUTINE nl_get_gsmdt ( id_id , gsmdt )
9245 real , INTENT(OUT) :: gsmdt
9246 INTEGER id_id
9247 CHARACTER*80 emess
9248 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9249 WRITE(emess,*)'nl_get_gsmdt: Out of range domain number: ',id_id
9250 CALL wrf_error_fatal(emess)
9251 ENDIF
9252 gsmdt = model_config_rec%gsmdt(id_id)
9253 RETURN
9254 END SUBROUTINE nl_get_gsmdt
9255 SUBROUTINE nl_get_isfflx ( id_id , isfflx )
9256 integer , INTENT(OUT) :: isfflx
9257 INTEGER id_id
9258 CHARACTER*80 emess
9259 IF ( id_id .NE. 1 ) THEN
9260 call wrf_debug(1,&
9261 'WARNING in nl_get_isfflx: isfflx applies to all domains. First arg ignored.')
9262 ENDIF
9263 isfflx = model_config_rec%isfflx
9264 RETURN
9265 END SUBROUTINE nl_get_isfflx
9266 SUBROUTINE nl_get_ifsnow ( id_id , ifsnow )
9267 integer , INTENT(OUT) :: ifsnow
9268 INTEGER id_id
9269 CHARACTER*80 emess
9270 IF ( id_id .NE. 1 ) THEN
9271 call wrf_debug(1,&
9272 'WARNING in nl_get_ifsnow: ifsnow applies to all domains. First arg ignored.')
9273 ENDIF
9274 ifsnow = model_config_rec%ifsnow
9275 RETURN
9276 END SUBROUTINE nl_get_ifsnow
9277 SUBROUTINE nl_get_icloud ( id_id , icloud )
9278 integer , INTENT(OUT) :: icloud
9279 INTEGER id_id
9280 CHARACTER*80 emess
9281 IF ( id_id .NE. 1 ) THEN
9282 call wrf_debug(1,&
9283 'WARNING in nl_get_icloud: icloud applies to all domains. First arg ignored.')
9284 ENDIF
9285 icloud = model_config_rec%icloud
9286 RETURN
9287 END SUBROUTINE nl_get_icloud
9288 SUBROUTINE nl_get_swrad_scat ( id_id , swrad_scat )
9289 real , INTENT(OUT) :: swrad_scat
9290 INTEGER id_id
9291 CHARACTER*80 emess
9292 IF ( id_id .NE. 1 ) THEN
9293 call wrf_debug(1,&
9294 'WARNING in nl_get_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
9295 ENDIF
9296 swrad_scat = model_config_rec%swrad_scat
9297 RETURN
9298 END SUBROUTINE nl_get_swrad_scat
9299 SUBROUTINE nl_get_surface_input_source ( id_id , surface_input_source )
9300 integer , INTENT(OUT) :: surface_input_source
9301 INTEGER id_id
9302 CHARACTER*80 emess
9303 IF ( id_id .NE. 1 ) THEN
9304 call wrf_debug(1,&
9305 'WARNING in nl_get_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
9306 ENDIF
9307 surface_input_source = model_config_rec%surface_input_source
9308 RETURN
9309 END SUBROUTINE nl_get_surface_input_source
9310 SUBROUTINE nl_get_num_soil_layers ( id_id , num_soil_layers )
9311 integer , INTENT(OUT) :: num_soil_layers
9312 INTEGER id_id
9313 CHARACTER*80 emess
9314 IF ( id_id .NE. 1 ) THEN
9315 call wrf_debug(1,&
9316 'WARNING in nl_get_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
9317 ENDIF
9318 num_soil_layers = model_config_rec%num_soil_layers
9319 RETURN
9320 END SUBROUTINE nl_get_num_soil_layers
9321 SUBROUTINE nl_get_num_months ( id_id , num_months )
9322 integer , INTENT(OUT) :: num_months
9323 INTEGER id_id
9324 CHARACTER*80 emess
9325 IF ( id_id .NE. 1 ) THEN
9326 call wrf_debug(1,&
9327 'WARNING in nl_get_num_months: num_months applies to all domains. First arg ignored.')
9328 ENDIF
9329 num_months = model_config_rec%num_months
9330 RETURN
9331 END SUBROUTINE nl_get_num_months
9332 SUBROUTINE nl_get_maxiens ( id_id , maxiens )
9333 integer , INTENT(OUT) :: maxiens
9334 INTEGER id_id
9335 CHARACTER*80 emess
9336 IF ( id_id .NE. 1 ) THEN
9337 call wrf_debug(1,&
9338 'WARNING in nl_get_maxiens: maxiens applies to all domains. First arg ignored.')
9339 ENDIF
9340 maxiens = model_config_rec%maxiens
9341 RETURN
9342 END SUBROUTINE nl_get_maxiens
9343 SUBROUTINE nl_get_maxens ( id_id , maxens )
9344 integer , INTENT(OUT) :: maxens
9345 INTEGER id_id
9346 CHARACTER*80 emess
9347 IF ( id_id .NE. 1 ) THEN
9348 call wrf_debug(1,&
9349 'WARNING in nl_get_maxens: maxens applies to all domains. First arg ignored.')
9350 ENDIF
9351 maxens = model_config_rec%maxens
9352 RETURN
9353 END SUBROUTINE nl_get_maxens
9354 SUBROUTINE nl_get_maxens2 ( id_id , maxens2 )
9355 integer , INTENT(OUT) :: maxens2
9356 INTEGER id_id
9357 CHARACTER*80 emess
9358 IF ( id_id .NE. 1 ) THEN
9359 call wrf_debug(1,&
9360 'WARNING in nl_get_maxens2: maxens2 applies to all domains. First arg ignored.')
9361 ENDIF
9362 maxens2 = model_config_rec%maxens2
9363 RETURN
9364 END SUBROUTINE nl_get_maxens2
9365 SUBROUTINE nl_get_maxens3 ( id_id , maxens3 )
9366 integer , INTENT(OUT) :: maxens3
9367 INTEGER id_id
9368 CHARACTER*80 emess
9369 IF ( id_id .NE. 1 ) THEN
9370 call wrf_debug(1,&
9371 'WARNING in nl_get_maxens3: maxens3 applies to all domains. First arg ignored.')
9372 ENDIF
9373 maxens3 = model_config_rec%maxens3
9374 RETURN
9375 END SUBROUTINE nl_get_maxens3
9376 SUBROUTINE nl_get_ensdim ( id_id , ensdim )
9377 integer , INTENT(OUT) :: ensdim
9378 INTEGER id_id
9379 CHARACTER*80 emess
9380 IF ( id_id .NE. 1 ) THEN
9381 call wrf_debug(1,&
9382 'WARNING in nl_get_ensdim: ensdim applies to all domains. First arg ignored.')
9383 ENDIF
9384 ensdim = model_config_rec%ensdim
9385 RETURN
9386 END SUBROUTINE nl_get_ensdim
9387 SUBROUTINE nl_get_chem_opt ( id_id , chem_opt )
9388 integer , INTENT(OUT) :: chem_opt
9389 INTEGER id_id
9390 CHARACTER*80 emess
9391 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9392 WRITE(emess,*)'nl_get_chem_opt: Out of range domain number: ',id_id
9393 CALL wrf_error_fatal(emess)
9394 ENDIF
9395 chem_opt = model_config_rec%chem_opt(id_id)
9396 RETURN
9397 END SUBROUTINE nl_get_chem_opt
9398 SUBROUTINE nl_get_num_land_cat ( id_id , num_land_cat )
9399 integer , INTENT(OUT) :: num_land_cat
9400 INTEGER id_id
9401 CHARACTER*80 emess
9402 IF ( id_id .NE. 1 ) THEN
9403 call wrf_debug(1,&
9404 'WARNING in nl_get_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
9405 ENDIF
9406 num_land_cat = model_config_rec%num_land_cat
9407 RETURN
9408 END SUBROUTINE nl_get_num_land_cat
9409 SUBROUTINE nl_get_num_soil_cat ( id_id , num_soil_cat )
9410 integer , INTENT(OUT) :: num_soil_cat
9411 INTEGER id_id
9412 CHARACTER*80 emess
9413 IF ( id_id .NE. 1 ) THEN
9414 call wrf_debug(1,&
9415 'WARNING in nl_get_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
9416 ENDIF
9417 num_soil_cat = model_config_rec%num_soil_cat
9418 RETURN
9419 END SUBROUTINE nl_get_num_soil_cat
9420 SUBROUTINE nl_get_mp_zero_out ( id_id , mp_zero_out )
9421 integer , INTENT(OUT) :: mp_zero_out
9422 INTEGER id_id
9423 CHARACTER*80 emess
9424 IF ( id_id .NE. 1 ) THEN
9425 call wrf_debug(1,&
9426 'WARNING in nl_get_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
9427 ENDIF
9428 mp_zero_out = model_config_rec%mp_zero_out
9429 RETURN
9430 END SUBROUTINE nl_get_mp_zero_out
9431 SUBROUTINE nl_get_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
9432 real , INTENT(OUT) :: mp_zero_out_thresh
9433 INTEGER id_id
9434 CHARACTER*80 emess
9435 IF ( id_id .NE. 1 ) THEN
9436 call wrf_debug(1,&
9437 'WARNING in nl_get_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
9438 ENDIF
9439 mp_zero_out_thresh = model_config_rec%mp_zero_out_thresh
9440 RETURN
9441 END SUBROUTINE nl_get_mp_zero_out_thresh
9442 SUBROUTINE nl_get_seaice_threshold ( id_id , seaice_threshold )
9443 real , INTENT(OUT) :: seaice_threshold
9444 INTEGER id_id
9445 CHARACTER*80 emess
9446 IF ( id_id .NE. 1 ) THEN
9447 call wrf_debug(1,&
9448 'WARNING in nl_get_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
9449 ENDIF
9450 seaice_threshold = model_config_rec%seaice_threshold
9451 RETURN
9452 END SUBROUTINE nl_get_seaice_threshold
9453 SUBROUTINE nl_get_sst_update ( id_id , sst_update )
9454 integer , INTENT(OUT) :: sst_update
9455 INTEGER id_id
9456 CHARACTER*80 emess
9457 IF ( id_id .NE. 1 ) THEN
9458 call wrf_debug(1,&
9459 'WARNING in nl_get_sst_update: sst_update applies to all domains. First arg ignored.')
9460 ENDIF
9461 sst_update = model_config_rec%sst_update
9462 RETURN
9463 END SUBROUTINE nl_get_sst_update
9464 SUBROUTINE nl_get_ucmcall ( id_id , ucmcall )
9465 integer , INTENT(OUT) :: ucmcall
9466 INTEGER id_id
9467 CHARACTER*80 emess
9468 IF ( id_id .NE. 1 ) THEN
9469 call wrf_debug(1,&
9470 'WARNING in nl_get_ucmcall: ucmcall applies to all domains. First arg ignored.')
9471 ENDIF
9472 ucmcall = model_config_rec%ucmcall
9473 RETURN
9474 END SUBROUTINE nl_get_ucmcall
9475 SUBROUTINE nl_get_co2tf ( id_id , co2tf )
9476 integer , INTENT(OUT) :: co2tf
9477 INTEGER id_id
9478 CHARACTER*80 emess
9479 IF ( id_id .NE. 1 ) THEN
9480 call wrf_debug(1,&
9481 'WARNING in nl_get_co2tf: co2tf applies to all domains. First arg ignored.')
9482 ENDIF
9483 co2tf = model_config_rec%co2tf
9484 RETURN
9485 END SUBROUTINE nl_get_co2tf
9486 SUBROUTINE nl_get_ra_call_offset ( id_id , ra_call_offset )
9487 integer , INTENT(OUT) :: ra_call_offset
9488 INTEGER id_id
9489 CHARACTER*80 emess
9490 IF ( id_id .NE. 1 ) THEN
9491 call wrf_debug(1,&
9492 'WARNING in nl_get_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
9493 ENDIF
9494 ra_call_offset = model_config_rec%ra_call_offset
9495 RETURN
9496 END SUBROUTINE nl_get_ra_call_offset
9497 SUBROUTINE nl_get_cam_abs_freq_s ( id_id , cam_abs_freq_s )
9498 real , INTENT(OUT) :: cam_abs_freq_s
9499 INTEGER id_id
9500 CHARACTER*80 emess
9501 IF ( id_id .NE. 1 ) THEN
9502 call wrf_debug(1,&
9503 'WARNING in nl_get_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
9504 ENDIF
9505 cam_abs_freq_s = model_config_rec%cam_abs_freq_s
9506 RETURN
9507 END SUBROUTINE nl_get_cam_abs_freq_s
9508 SUBROUTINE nl_get_levsiz ( id_id , levsiz )
9509 integer , INTENT(OUT) :: levsiz
9510 INTEGER id_id
9511 CHARACTER*80 emess
9512 IF ( id_id .NE. 1 ) THEN
9513 call wrf_debug(1,&
9514 'WARNING in nl_get_levsiz: levsiz applies to all domains. First arg ignored.')
9515 ENDIF
9516 levsiz = model_config_rec%levsiz
9517 RETURN
9518 END SUBROUTINE nl_get_levsiz
9519 SUBROUTINE nl_get_paerlev ( id_id , paerlev )
9520 integer , INTENT(OUT) :: paerlev
9521 INTEGER id_id
9522 CHARACTER*80 emess
9523 IF ( id_id .NE. 1 ) THEN
9524 call wrf_debug(1,&
9525 'WARNING in nl_get_paerlev: paerlev applies to all domains. First arg ignored.')
9526 ENDIF
9527 paerlev = model_config_rec%paerlev
9528 RETURN
9529 END SUBROUTINE nl_get_paerlev
9530 SUBROUTINE nl_get_cam_abs_dim1 ( id_id , cam_abs_dim1 )
9531 integer , INTENT(OUT) :: cam_abs_dim1
9532 INTEGER id_id
9533 CHARACTER*80 emess
9534 IF ( id_id .NE. 1 ) THEN
9535 call wrf_debug(1,&
9536 'WARNING in nl_get_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
9537 ENDIF
9538 cam_abs_dim1 = model_config_rec%cam_abs_dim1
9539 RETURN
9540 END SUBROUTINE nl_get_cam_abs_dim1
9541 SUBROUTINE nl_get_cam_abs_dim2 ( id_id , cam_abs_dim2 )
9542 integer , INTENT(OUT) :: cam_abs_dim2
9543 INTEGER id_id
9544 CHARACTER*80 emess
9545 IF ( id_id .NE. 1 ) THEN
9546 call wrf_debug(1,&
9547 'WARNING in nl_get_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
9548 ENDIF
9549 cam_abs_dim2 = model_config_rec%cam_abs_dim2
9550 RETURN
9551 END SUBROUTINE nl_get_cam_abs_dim2
9552 SUBROUTINE nl_get_fgdt ( id_id , fgdt )
9553 real , INTENT(OUT) :: fgdt
9554 INTEGER id_id
9555 CHARACTER*80 emess
9556 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9557 WRITE(emess,*)'nl_get_fgdt: Out of range domain number: ',id_id
9558 CALL wrf_error_fatal(emess)
9559 ENDIF
9560 fgdt = model_config_rec%fgdt(id_id)
9561 RETURN
9562 END SUBROUTINE nl_get_fgdt
9563 SUBROUTINE nl_get_grid_fdda ( id_id , grid_fdda )
9564 integer , INTENT(OUT) :: grid_fdda
9565 INTEGER id_id
9566 CHARACTER*80 emess
9567 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9568 WRITE(emess,*)'nl_get_grid_fdda: Out of range domain number: ',id_id
9569 CALL wrf_error_fatal(emess)
9570 ENDIF
9571 grid_fdda = model_config_rec%grid_fdda(id_id)
9572 RETURN
9573 END SUBROUTINE nl_get_grid_fdda
9574 SUBROUTINE nl_get_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
9575 integer , INTENT(OUT) :: if_no_pbl_nudging_uv
9576 INTEGER id_id
9577 CHARACTER*80 emess
9578 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9579 WRITE(emess,*)'nl_get_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
9580 CALL wrf_error_fatal(emess)
9581 ENDIF
9582 if_no_pbl_nudging_uv = model_config_rec%if_no_pbl_nudging_uv(id_id)
9583 RETURN
9584 END SUBROUTINE nl_get_if_no_pbl_nudging_uv
9585 SUBROUTINE nl_get_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
9586 integer , INTENT(OUT) :: if_no_pbl_nudging_t
9587 INTEGER id_id
9588 CHARACTER*80 emess
9589 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9590 WRITE(emess,*)'nl_get_if_no_pbl_nudging_t: Out of range domain number: ',id_id
9591 CALL wrf_error_fatal(emess)
9592 ENDIF
9593 if_no_pbl_nudging_t = model_config_rec%if_no_pbl_nudging_t(id_id)
9594 RETURN
9595 END SUBROUTINE nl_get_if_no_pbl_nudging_t
9596 SUBROUTINE nl_get_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
9597 integer , INTENT(OUT) :: if_no_pbl_nudging_q
9598 INTEGER id_id
9599 CHARACTER*80 emess
9600 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9601 WRITE(emess,*)'nl_get_if_no_pbl_nudging_q: Out of range domain number: ',id_id
9602 CALL wrf_error_fatal(emess)
9603 ENDIF
9604 if_no_pbl_nudging_q = model_config_rec%if_no_pbl_nudging_q(id_id)
9605 RETURN
9606 END SUBROUTINE nl_get_if_no_pbl_nudging_q
9607 SUBROUTINE nl_get_if_zfac_uv ( id_id , if_zfac_uv )
9608 integer , INTENT(OUT) :: if_zfac_uv
9609 INTEGER id_id
9610 CHARACTER*80 emess
9611 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9612 WRITE(emess,*)'nl_get_if_zfac_uv: Out of range domain number: ',id_id
9613 CALL wrf_error_fatal(emess)
9614 ENDIF
9615 if_zfac_uv = model_config_rec%if_zfac_uv(id_id)
9616 RETURN
9617 END SUBROUTINE nl_get_if_zfac_uv
9618 SUBROUTINE nl_get_k_zfac_uv ( id_id , k_zfac_uv )
9619 integer , INTENT(OUT) :: k_zfac_uv
9620 INTEGER id_id
9621 CHARACTER*80 emess
9622 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9623 WRITE(emess,*)'nl_get_k_zfac_uv: Out of range domain number: ',id_id
9624 CALL wrf_error_fatal(emess)
9625 ENDIF
9626 k_zfac_uv = model_config_rec%k_zfac_uv(id_id)
9627 RETURN
9628 END SUBROUTINE nl_get_k_zfac_uv
9629 SUBROUTINE nl_get_if_zfac_t ( id_id , if_zfac_t )
9630 integer , INTENT(OUT) :: if_zfac_t
9631 INTEGER id_id
9632 CHARACTER*80 emess
9633 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9634 WRITE(emess,*)'nl_get_if_zfac_t: Out of range domain number: ',id_id
9635 CALL wrf_error_fatal(emess)
9636 ENDIF
9637 if_zfac_t = model_config_rec%if_zfac_t(id_id)
9638 RETURN
9639 END SUBROUTINE nl_get_if_zfac_t
9640 SUBROUTINE nl_get_k_zfac_t ( id_id , k_zfac_t )
9641 integer , INTENT(OUT) :: k_zfac_t
9642 INTEGER id_id
9643 CHARACTER*80 emess
9644 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9645 WRITE(emess,*)'nl_get_k_zfac_t: Out of range domain number: ',id_id
9646 CALL wrf_error_fatal(emess)
9647 ENDIF
9648 k_zfac_t = model_config_rec%k_zfac_t(id_id)
9649 RETURN
9650 END SUBROUTINE nl_get_k_zfac_t
9651 SUBROUTINE nl_get_if_zfac_q ( id_id , if_zfac_q )
9652 integer , INTENT(OUT) :: if_zfac_q
9653 INTEGER id_id
9654 CHARACTER*80 emess
9655 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9656 WRITE(emess,*)'nl_get_if_zfac_q: Out of range domain number: ',id_id
9657 CALL wrf_error_fatal(emess)
9658 ENDIF
9659 if_zfac_q = model_config_rec%if_zfac_q(id_id)
9660 RETURN
9661 END SUBROUTINE nl_get_if_zfac_q
9662 SUBROUTINE nl_get_k_zfac_q ( id_id , k_zfac_q )
9663 integer , INTENT(OUT) :: k_zfac_q
9664 INTEGER id_id
9665 CHARACTER*80 emess
9666 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9667 WRITE(emess,*)'nl_get_k_zfac_q: Out of range domain number: ',id_id
9668 CALL wrf_error_fatal(emess)
9669 ENDIF
9670 k_zfac_q = model_config_rec%k_zfac_q(id_id)
9671 RETURN
9672 END SUBROUTINE nl_get_k_zfac_q
9673 SUBROUTINE nl_get_guv ( id_id , guv )
9674 real , INTENT(OUT) :: guv
9675 INTEGER id_id
9676 CHARACTER*80 emess
9677 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9678 WRITE(emess,*)'nl_get_guv: Out of range domain number: ',id_id
9679 CALL wrf_error_fatal(emess)
9680 ENDIF
9681 guv = model_config_rec%guv(id_id)
9682 RETURN
9683 END SUBROUTINE nl_get_guv
9684 SUBROUTINE nl_get_gt ( id_id , gt )
9685 real , INTENT(OUT) :: gt
9686 INTEGER id_id
9687 CHARACTER*80 emess
9688 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9689 WRITE(emess,*)'nl_get_gt: Out of range domain number: ',id_id
9690 CALL wrf_error_fatal(emess)
9691 ENDIF
9692 gt = model_config_rec%gt(id_id)
9693 RETURN
9694 END SUBROUTINE nl_get_gt
9695 SUBROUTINE nl_get_gq ( id_id , gq )
9696 real , INTENT(OUT) :: gq
9697 INTEGER id_id
9698 CHARACTER*80 emess
9699 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9700 WRITE(emess,*)'nl_get_gq: Out of range domain number: ',id_id
9701 CALL wrf_error_fatal(emess)
9702 ENDIF
9703 gq = model_config_rec%gq(id_id)
9704 RETURN
9705 END SUBROUTINE nl_get_gq
9706 SUBROUTINE nl_get_dtramp_min ( id_id , dtramp_min )
9707 real , INTENT(OUT) :: dtramp_min
9708 INTEGER id_id
9709 CHARACTER*80 emess
9710 IF ( id_id .NE. 1 ) THEN
9711 call wrf_debug(1,&
9712 'WARNING in nl_get_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
9713 ENDIF
9714 dtramp_min = model_config_rec%dtramp_min
9715 RETURN
9716 END SUBROUTINE nl_get_dtramp_min
9717 SUBROUTINE nl_get_if_ramping ( id_id , if_ramping )
9718 integer , INTENT(OUT) :: if_ramping
9719 INTEGER id_id
9720 CHARACTER*80 emess
9721 IF ( id_id .NE. 1 ) THEN
9722 call wrf_debug(1,&
9723 'WARNING in nl_get_if_ramping: if_ramping applies to all domains. First arg ignored.')
9724 ENDIF
9725 if_ramping = model_config_rec%if_ramping
9726 RETURN
9727 END SUBROUTINE nl_get_if_ramping
9728 SUBROUTINE nl_get_obs_nudge_opt ( id_id , obs_nudge_opt )
9729 integer , INTENT(OUT) :: obs_nudge_opt
9730 INTEGER id_id
9731 CHARACTER*80 emess
9732 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9733 WRITE(emess,*)'nl_get_obs_nudge_opt: Out of range domain number: ',id_id
9734 CALL wrf_error_fatal(emess)
9735 ENDIF
9736 obs_nudge_opt = model_config_rec%obs_nudge_opt(id_id)
9737 RETURN
9738 END SUBROUTINE nl_get_obs_nudge_opt
9739 SUBROUTINE nl_get_max_obs ( id_id , max_obs )
9740 integer , INTENT(OUT) :: max_obs
9741 INTEGER id_id
9742 CHARACTER*80 emess
9743 IF ( id_id .NE. 1 ) THEN
9744 call wrf_debug(1,&
9745 'WARNING in nl_get_max_obs: max_obs applies to all domains. First arg ignored.')
9746 ENDIF
9747 max_obs = model_config_rec%max_obs
9748 RETURN
9749 END SUBROUTINE nl_get_max_obs
9750 SUBROUTINE nl_get_nobs_ndg_vars ( id_id , nobs_ndg_vars )
9751 integer , INTENT(OUT) :: nobs_ndg_vars
9752 INTEGER id_id
9753 CHARACTER*80 emess
9754 IF ( id_id .NE. 1 ) THEN
9755 call wrf_debug(1,&
9756 'WARNING in nl_get_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
9757 ENDIF
9758 nobs_ndg_vars = model_config_rec%nobs_ndg_vars
9759 RETURN
9760 END SUBROUTINE nl_get_nobs_ndg_vars
9761 SUBROUTINE nl_get_nobs_err_flds ( id_id , nobs_err_flds )
9762 integer , INTENT(OUT) :: nobs_err_flds
9763 INTEGER id_id
9764 CHARACTER*80 emess
9765 IF ( id_id .NE. 1 ) THEN
9766 call wrf_debug(1,&
9767 'WARNING in nl_get_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
9768 ENDIF
9769 nobs_err_flds = model_config_rec%nobs_err_flds
9770 RETURN
9771 END SUBROUTINE nl_get_nobs_err_flds
9772 SUBROUTINE nl_get_fdda_start ( id_id , fdda_start )
9773 real , INTENT(OUT) :: fdda_start
9774 INTEGER id_id
9775 CHARACTER*80 emess
9776 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9777 WRITE(emess,*)'nl_get_fdda_start: Out of range domain number: ',id_id
9778 CALL wrf_error_fatal(emess)
9779 ENDIF
9780 fdda_start = model_config_rec%fdda_start(id_id)
9781 RETURN
9782 END SUBROUTINE nl_get_fdda_start
9783 SUBROUTINE nl_get_fdda_end ( id_id , fdda_end )
9784 real , INTENT(OUT) :: fdda_end
9785 INTEGER id_id
9786 CHARACTER*80 emess
9787 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9788 WRITE(emess,*)'nl_get_fdda_end: Out of range domain number: ',id_id
9789 CALL wrf_error_fatal(emess)
9790 ENDIF
9791 fdda_end = model_config_rec%fdda_end(id_id)
9792 RETURN
9793 END SUBROUTINE nl_get_fdda_end
9794 SUBROUTINE nl_get_obs_nudge_wind ( id_id , obs_nudge_wind )
9795 integer , INTENT(OUT) :: obs_nudge_wind
9796 INTEGER id_id
9797 CHARACTER*80 emess
9798 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9799 WRITE(emess,*)'nl_get_obs_nudge_wind: Out of range domain number: ',id_id
9800 CALL wrf_error_fatal(emess)
9801 ENDIF
9802 obs_nudge_wind = model_config_rec%obs_nudge_wind(id_id)
9803 RETURN
9804 END SUBROUTINE nl_get_obs_nudge_wind
9805 SUBROUTINE nl_get_obs_coef_wind ( id_id , obs_coef_wind )
9806 real , INTENT(OUT) :: obs_coef_wind
9807 INTEGER id_id
9808 CHARACTER*80 emess
9809 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9810 WRITE(emess,*)'nl_get_obs_coef_wind: Out of range domain number: ',id_id
9811 CALL wrf_error_fatal(emess)
9812 ENDIF
9813 obs_coef_wind = model_config_rec%obs_coef_wind(id_id)
9814 RETURN
9815 END SUBROUTINE nl_get_obs_coef_wind
9816 SUBROUTINE nl_get_obs_nudge_temp ( id_id , obs_nudge_temp )
9817 integer , INTENT(OUT) :: obs_nudge_temp
9818 INTEGER id_id
9819 CHARACTER*80 emess
9820 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9821 WRITE(emess,*)'nl_get_obs_nudge_temp: Out of range domain number: ',id_id
9822 CALL wrf_error_fatal(emess)
9823 ENDIF
9824 obs_nudge_temp = model_config_rec%obs_nudge_temp(id_id)
9825 RETURN
9826 END SUBROUTINE nl_get_obs_nudge_temp
9827 SUBROUTINE nl_get_obs_coef_temp ( id_id , obs_coef_temp )
9828 real , INTENT(OUT) :: obs_coef_temp
9829 INTEGER id_id
9830 CHARACTER*80 emess
9831 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9832 WRITE(emess,*)'nl_get_obs_coef_temp: Out of range domain number: ',id_id
9833 CALL wrf_error_fatal(emess)
9834 ENDIF
9835 obs_coef_temp = model_config_rec%obs_coef_temp(id_id)
9836 RETURN
9837 END SUBROUTINE nl_get_obs_coef_temp
9838 SUBROUTINE nl_get_obs_nudge_mois ( id_id , obs_nudge_mois )
9839 integer , INTENT(OUT) :: obs_nudge_mois
9840 INTEGER id_id
9841 CHARACTER*80 emess
9842 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9843 WRITE(emess,*)'nl_get_obs_nudge_mois: Out of range domain number: ',id_id
9844 CALL wrf_error_fatal(emess)
9845 ENDIF
9846 obs_nudge_mois = model_config_rec%obs_nudge_mois(id_id)
9847 RETURN
9848 END SUBROUTINE nl_get_obs_nudge_mois
9849 SUBROUTINE nl_get_obs_coef_mois ( id_id , obs_coef_mois )
9850 real , INTENT(OUT) :: obs_coef_mois
9851 INTEGER id_id
9852 CHARACTER*80 emess
9853 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9854 WRITE(emess,*)'nl_get_obs_coef_mois: Out of range domain number: ',id_id
9855 CALL wrf_error_fatal(emess)
9856 ENDIF
9857 obs_coef_mois = model_config_rec%obs_coef_mois(id_id)
9858 RETURN
9859 END SUBROUTINE nl_get_obs_coef_mois
9860 SUBROUTINE nl_get_obs_nudge_pstr ( id_id , obs_nudge_pstr )
9861 integer , INTENT(OUT) :: obs_nudge_pstr
9862 INTEGER id_id
9863 CHARACTER*80 emess
9864 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9865 WRITE(emess,*)'nl_get_obs_nudge_pstr: Out of range domain number: ',id_id
9866 CALL wrf_error_fatal(emess)
9867 ENDIF
9868 obs_nudge_pstr = model_config_rec%obs_nudge_pstr(id_id)
9869 RETURN
9870 END SUBROUTINE nl_get_obs_nudge_pstr
9871 SUBROUTINE nl_get_obs_coef_pstr ( id_id , obs_coef_pstr )
9872 real , INTENT(OUT) :: obs_coef_pstr
9873 INTEGER id_id
9874 CHARACTER*80 emess
9875 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9876 WRITE(emess,*)'nl_get_obs_coef_pstr: Out of range domain number: ',id_id
9877 CALL wrf_error_fatal(emess)
9878 ENDIF
9879 obs_coef_pstr = model_config_rec%obs_coef_pstr(id_id)
9880 RETURN
9881 END SUBROUTINE nl_get_obs_coef_pstr
9882 SUBROUTINE nl_get_obs_rinxy ( id_id , obs_rinxy )
9883 real , INTENT(OUT) :: obs_rinxy
9884 INTEGER id_id
9885 CHARACTER*80 emess
9886 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9887 WRITE(emess,*)'nl_get_obs_rinxy: Out of range domain number: ',id_id
9888 CALL wrf_error_fatal(emess)
9889 ENDIF
9890 obs_rinxy = model_config_rec%obs_rinxy(id_id)
9891 RETURN
9892 END SUBROUTINE nl_get_obs_rinxy
9893 SUBROUTINE nl_get_obs_rinsig ( id_id , obs_rinsig )
9894 real , INTENT(OUT) :: obs_rinsig
9895 INTEGER id_id
9896 CHARACTER*80 emess
9897 IF ( id_id .NE. 1 ) THEN
9898 call wrf_debug(1,&
9899 'WARNING in nl_get_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
9900 ENDIF
9901 obs_rinsig = model_config_rec%obs_rinsig
9902 RETURN
9903 END SUBROUTINE nl_get_obs_rinsig
9904 SUBROUTINE nl_get_obs_twindo ( id_id , obs_twindo )
9905 real , INTENT(OUT) :: obs_twindo
9906 INTEGER id_id
9907 CHARACTER*80 emess
9908 IF ( id_id .NE. 1 ) THEN
9909 call wrf_debug(1,&
9910 'WARNING in nl_get_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
9911 ENDIF
9912 obs_twindo = model_config_rec%obs_twindo
9913 RETURN
9914 END SUBROUTINE nl_get_obs_twindo
9915 SUBROUTINE nl_get_obs_npfi ( id_id , obs_npfi )
9916 integer , INTENT(OUT) :: obs_npfi
9917 INTEGER id_id
9918 CHARACTER*80 emess
9919 IF ( id_id .NE. 1 ) THEN
9920 call wrf_debug(1,&
9921 'WARNING in nl_get_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
9922 ENDIF
9923 obs_npfi = model_config_rec%obs_npfi
9924 RETURN
9925 END SUBROUTINE nl_get_obs_npfi
9926 SUBROUTINE nl_get_obs_ionf ( id_id , obs_ionf )
9927 integer , INTENT(OUT) :: obs_ionf
9928 INTEGER id_id
9929 CHARACTER*80 emess
9930 IF ( id_id .NE. 1 ) THEN
9931 call wrf_debug(1,&
9932 'WARNING in nl_get_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
9933 ENDIF
9934 obs_ionf = model_config_rec%obs_ionf
9935 RETURN
9936 END SUBROUTINE nl_get_obs_ionf
9937 SUBROUTINE nl_get_obs_idynin ( id_id , obs_idynin )
9938 integer , INTENT(OUT) :: obs_idynin
9939 INTEGER id_id
9940 CHARACTER*80 emess
9941 IF ( id_id .NE. 1 ) THEN
9942 call wrf_debug(1,&
9943 'WARNING in nl_get_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
9944 ENDIF
9945 obs_idynin = model_config_rec%obs_idynin
9946 RETURN
9947 END SUBROUTINE nl_get_obs_idynin
9948 SUBROUTINE nl_get_obs_dtramp ( id_id , obs_dtramp )
9949 real , INTENT(OUT) :: obs_dtramp
9950 INTEGER id_id
9951 CHARACTER*80 emess
9952 IF ( id_id .NE. 1 ) THEN
9953 call wrf_debug(1,&
9954 'WARNING in nl_get_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
9955 ENDIF
9956 obs_dtramp = model_config_rec%obs_dtramp
9957 RETURN
9958 END SUBROUTINE nl_get_obs_dtramp
9959 SUBROUTINE nl_get_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
9960 logical , INTENT(OUT) :: obs_ipf_in4dob
9961 INTEGER id_id
9962 CHARACTER*80 emess
9963 IF ( id_id .NE. 1 ) THEN
9964 call wrf_debug(1,&
9965 'WARNING in nl_get_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
9966 ENDIF
9967 obs_ipf_in4dob = model_config_rec%obs_ipf_in4dob
9968 RETURN
9969 END SUBROUTINE nl_get_obs_ipf_in4dob
9970 SUBROUTINE nl_get_dyn_opt ( id_id , dyn_opt )
9971 integer , INTENT(OUT) :: dyn_opt
9972 INTEGER id_id
9973 CHARACTER*80 emess
9974 IF ( id_id .NE. 1 ) THEN
9975 call wrf_debug(1,&
9976 'WARNING in nl_get_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
9977 ENDIF
9978 dyn_opt = model_config_rec%dyn_opt
9979 RETURN
9980 END SUBROUTINE nl_get_dyn_opt
9981 SUBROUTINE nl_get_rk_ord ( id_id , rk_ord )
9982 integer , INTENT(OUT) :: rk_ord
9983 INTEGER id_id
9984 CHARACTER*80 emess
9985 IF ( id_id .NE. 1 ) THEN
9986 call wrf_debug(1,&
9987 'WARNING in nl_get_rk_ord: rk_ord applies to all domains. First arg ignored.')
9988 ENDIF
9989 rk_ord = model_config_rec%rk_ord
9990 RETURN
9991 END SUBROUTINE nl_get_rk_ord
9992 SUBROUTINE nl_get_w_damping ( id_id , w_damping )
9993 integer , INTENT(OUT) :: w_damping
9994 INTEGER id_id
9995 CHARACTER*80 emess
9996 IF ( id_id .NE. 1 ) THEN
9997 call wrf_debug(1,&
9998 'WARNING in nl_get_w_damping: w_damping applies to all domains. First arg ignored.')
9999 ENDIF
10000 w_damping = model_config_rec%w_damping
10001 RETURN
10002 END SUBROUTINE nl_get_w_damping
10003 SUBROUTINE nl_get_diff_opt ( id_id , diff_opt )
10004 integer , INTENT(OUT) :: diff_opt
10005 INTEGER id_id
10006 CHARACTER*80 emess
10007 IF ( id_id .NE. 1 ) THEN
10008 call wrf_debug(1,&
10009 'WARNING in nl_get_diff_opt: diff_opt applies to all domains. First arg ignored.')
10010 ENDIF
10011 diff_opt = model_config_rec%diff_opt
10012 RETURN
10013 END SUBROUTINE nl_get_diff_opt
10014 SUBROUTINE nl_get_km_opt ( id_id , km_opt )
10015 integer , INTENT(OUT) :: km_opt
10016 INTEGER id_id
10017 CHARACTER*80 emess
10018 IF ( id_id .NE. 1 ) THEN
10019 call wrf_debug(1,&
10020 'WARNING in nl_get_km_opt: km_opt applies to all domains. First arg ignored.')
10021 ENDIF
10022 km_opt = model_config_rec%km_opt
10023 RETURN
10024 END SUBROUTINE nl_get_km_opt
10025 SUBROUTINE nl_get_damp_opt ( id_id , damp_opt )
10026 integer , INTENT(OUT) :: damp_opt
10027 INTEGER id_id
10028 CHARACTER*80 emess
10029 IF ( id_id .NE. 1 ) THEN
10030 call wrf_debug(1,&
10031 'WARNING in nl_get_damp_opt: damp_opt applies to all domains. First arg ignored.')
10032 ENDIF
10033 damp_opt = model_config_rec%damp_opt
10034 RETURN
10035 END SUBROUTINE nl_get_damp_opt
10036 SUBROUTINE nl_get_zdamp ( id_id , zdamp )
10037 real , INTENT(OUT) :: zdamp
10038 INTEGER id_id
10039 CHARACTER*80 emess
10040 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10041 WRITE(emess,*)'nl_get_zdamp: Out of range domain number: ',id_id
10042 CALL wrf_error_fatal(emess)
10043 ENDIF
10044 zdamp = model_config_rec%zdamp(id_id)
10045 RETURN
10046 END SUBROUTINE nl_get_zdamp
10047 SUBROUTINE nl_get_dampcoef ( id_id , dampcoef )
10048 real , INTENT(OUT) :: dampcoef
10049 INTEGER id_id
10050 CHARACTER*80 emess
10051 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10052 WRITE(emess,*)'nl_get_dampcoef: Out of range domain number: ',id_id
10053 CALL wrf_error_fatal(emess)
10054 ENDIF
10055 dampcoef = model_config_rec%dampcoef(id_id)
10056 RETURN
10057 END SUBROUTINE nl_get_dampcoef
10058 SUBROUTINE nl_get_khdif ( id_id , khdif )
10059 real , INTENT(OUT) :: khdif
10060 INTEGER id_id
10061 CHARACTER*80 emess
10062 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10063 WRITE(emess,*)'nl_get_khdif: Out of range domain number: ',id_id
10064 CALL wrf_error_fatal(emess)
10065 ENDIF
10066 khdif = model_config_rec%khdif(id_id)
10067 RETURN
10068 END SUBROUTINE nl_get_khdif
10069 SUBROUTINE nl_get_kvdif ( id_id , kvdif )
10070 real , INTENT(OUT) :: kvdif
10071 INTEGER id_id
10072 CHARACTER*80 emess
10073 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10074 WRITE(emess,*)'nl_get_kvdif: Out of range domain number: ',id_id
10075 CALL wrf_error_fatal(emess)
10076 ENDIF
10077 kvdif = model_config_rec%kvdif(id_id)
10078 RETURN
10079 END SUBROUTINE nl_get_kvdif
10080 SUBROUTINE nl_get_diff_6th_factor ( id_id , diff_6th_factor )
10081 real , INTENT(OUT) :: diff_6th_factor
10082 INTEGER id_id
10083 CHARACTER*80 emess
10084 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10085 WRITE(emess,*)'nl_get_diff_6th_factor: Out of range domain number: ',id_id
10086 CALL wrf_error_fatal(emess)
10087 ENDIF
10088 diff_6th_factor = model_config_rec%diff_6th_factor(id_id)
10089 RETURN
10090 END SUBROUTINE nl_get_diff_6th_factor
10091 SUBROUTINE nl_get_diff_6th_opt ( id_id , diff_6th_opt )
10092 integer , INTENT(OUT) :: diff_6th_opt
10093 INTEGER id_id
10094 CHARACTER*80 emess
10095 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10096 WRITE(emess,*)'nl_get_diff_6th_opt: Out of range domain number: ',id_id
10097 CALL wrf_error_fatal(emess)
10098 ENDIF
10099 diff_6th_opt = model_config_rec%diff_6th_opt(id_id)
10100 RETURN
10101 END SUBROUTINE nl_get_diff_6th_opt
10102 SUBROUTINE nl_get_smdiv ( id_id , smdiv )
10103 real , INTENT(OUT) :: smdiv
10104 INTEGER id_id
10105 CHARACTER*80 emess
10106 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10107 WRITE(emess,*)'nl_get_smdiv: Out of range domain number: ',id_id
10108 CALL wrf_error_fatal(emess)
10109 ENDIF
10110 smdiv = model_config_rec%smdiv(id_id)
10111 RETURN
10112 END SUBROUTINE nl_get_smdiv
10113 SUBROUTINE nl_get_emdiv ( id_id , emdiv )
10114 real , INTENT(OUT) :: emdiv
10115 INTEGER id_id
10116 CHARACTER*80 emess
10117 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10118 WRITE(emess,*)'nl_get_emdiv: Out of range domain number: ',id_id
10119 CALL wrf_error_fatal(emess)
10120 ENDIF
10121 emdiv = model_config_rec%emdiv(id_id)
10122 RETURN
10123 END SUBROUTINE nl_get_emdiv
10124 SUBROUTINE nl_get_epssm ( id_id , epssm )
10125 real , INTENT(OUT) :: epssm
10126 INTEGER id_id
10127 CHARACTER*80 emess
10128 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10129 WRITE(emess,*)'nl_get_epssm: Out of range domain number: ',id_id
10130 CALL wrf_error_fatal(emess)
10131 ENDIF
10132 epssm = model_config_rec%epssm(id_id)
10133 RETURN
10134 END SUBROUTINE nl_get_epssm
10135 SUBROUTINE nl_get_non_hydrostatic ( id_id , non_hydrostatic )
10136 logical , INTENT(OUT) :: non_hydrostatic
10137 INTEGER id_id
10138 CHARACTER*80 emess
10139 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10140 WRITE(emess,*)'nl_get_non_hydrostatic: Out of range domain number: ',id_id
10141 CALL wrf_error_fatal(emess)
10142 ENDIF
10143 non_hydrostatic = model_config_rec%non_hydrostatic(id_id)
10144 RETURN
10145 END SUBROUTINE nl_get_non_hydrostatic
10146 SUBROUTINE nl_get_time_step_sound ( id_id , time_step_sound )
10147 integer , INTENT(OUT) :: time_step_sound
10148 INTEGER id_id
10149 CHARACTER*80 emess
10150 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10151 WRITE(emess,*)'nl_get_time_step_sound: Out of range domain number: ',id_id
10152 CALL wrf_error_fatal(emess)
10153 ENDIF
10154 time_step_sound = model_config_rec%time_step_sound(id_id)
10155 RETURN
10156 END SUBROUTINE nl_get_time_step_sound
10157 SUBROUTINE nl_get_h_mom_adv_order ( id_id , h_mom_adv_order )
10158 integer , INTENT(OUT) :: h_mom_adv_order
10159 INTEGER id_id
10160 CHARACTER*80 emess
10161 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10162 WRITE(emess,*)'nl_get_h_mom_adv_order: Out of range domain number: ',id_id
10163 CALL wrf_error_fatal(emess)
10164 ENDIF
10165 h_mom_adv_order = model_config_rec%h_mom_adv_order(id_id)
10166 RETURN
10167 END SUBROUTINE nl_get_h_mom_adv_order
10168 SUBROUTINE nl_get_v_mom_adv_order ( id_id , v_mom_adv_order )
10169 integer , INTENT(OUT) :: v_mom_adv_order
10170 INTEGER id_id
10171 CHARACTER*80 emess
10172 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10173 WRITE(emess,*)'nl_get_v_mom_adv_order: Out of range domain number: ',id_id
10174 CALL wrf_error_fatal(emess)
10175 ENDIF
10176 v_mom_adv_order = model_config_rec%v_mom_adv_order(id_id)
10177 RETURN
10178 END SUBROUTINE nl_get_v_mom_adv_order
10179 SUBROUTINE nl_get_h_sca_adv_order ( id_id , h_sca_adv_order )
10180 integer , INTENT(OUT) :: h_sca_adv_order
10181 INTEGER id_id
10182 CHARACTER*80 emess
10183 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10184 WRITE(emess,*)'nl_get_h_sca_adv_order: Out of range domain number: ',id_id
10185 CALL wrf_error_fatal(emess)
10186 ENDIF
10187 h_sca_adv_order = model_config_rec%h_sca_adv_order(id_id)
10188 RETURN
10189 END SUBROUTINE nl_get_h_sca_adv_order
10190 SUBROUTINE nl_get_v_sca_adv_order ( id_id , v_sca_adv_order )
10191 integer , INTENT(OUT) :: v_sca_adv_order
10192 INTEGER id_id
10193 CHARACTER*80 emess
10194 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10195 WRITE(emess,*)'nl_get_v_sca_adv_order: Out of range domain number: ',id_id
10196 CALL wrf_error_fatal(emess)
10197 ENDIF
10198 v_sca_adv_order = model_config_rec%v_sca_adv_order(id_id)
10199 RETURN
10200 END SUBROUTINE nl_get_v_sca_adv_order
10201 SUBROUTINE nl_get_pd_moist ( id_id , pd_moist )
10202 logical , INTENT(OUT) :: pd_moist
10203 INTEGER id_id
10204 CHARACTER*80 emess
10205 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10206 WRITE(emess,*)'nl_get_pd_moist: Out of range domain number: ',id_id
10207 CALL wrf_error_fatal(emess)
10208 ENDIF
10209 pd_moist = model_config_rec%pd_moist(id_id)
10210 RETURN
10211 END SUBROUTINE nl_get_pd_moist
10212 SUBROUTINE nl_get_pd_chem ( id_id , pd_chem )
10213 logical , INTENT(OUT) :: pd_chem
10214 INTEGER id_id
10215 CHARACTER*80 emess
10216 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10217 WRITE(emess,*)'nl_get_pd_chem: Out of range domain number: ',id_id
10218 CALL wrf_error_fatal(emess)
10219 ENDIF
10220 pd_chem = model_config_rec%pd_chem(id_id)
10221 RETURN
10222 END SUBROUTINE nl_get_pd_chem
10223 SUBROUTINE nl_get_pd_scalar ( id_id , pd_scalar )
10224 logical , INTENT(OUT) :: pd_scalar
10225 INTEGER id_id
10226 CHARACTER*80 emess
10227 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10228 WRITE(emess,*)'nl_get_pd_scalar: Out of range domain number: ',id_id
10229 CALL wrf_error_fatal(emess)
10230 ENDIF
10231 pd_scalar = model_config_rec%pd_scalar(id_id)
10232 RETURN
10233 END SUBROUTINE nl_get_pd_scalar
10234 SUBROUTINE nl_get_pd_tke ( id_id , pd_tke )
10235 logical , INTENT(OUT) :: pd_tke
10236 INTEGER id_id
10237 CHARACTER*80 emess
10238 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10239 WRITE(emess,*)'nl_get_pd_tke: Out of range domain number: ',id_id
10240 CALL wrf_error_fatal(emess)
10241 ENDIF
10242 pd_tke = model_config_rec%pd_tke(id_id)
10243 RETURN
10244 END SUBROUTINE nl_get_pd_tke
10245 SUBROUTINE nl_get_top_radiation ( id_id , top_radiation )
10246 logical , INTENT(OUT) :: top_radiation
10247 INTEGER id_id
10248 CHARACTER*80 emess
10249 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10250 WRITE(emess,*)'nl_get_top_radiation: Out of range domain number: ',id_id
10251 CALL wrf_error_fatal(emess)
10252 ENDIF
10253 top_radiation = model_config_rec%top_radiation(id_id)
10254 RETURN
10255 END SUBROUTINE nl_get_top_radiation
10256 SUBROUTINE nl_get_mix_cr_len ( id_id , mix_cr_len )
10257 real , INTENT(OUT) :: mix_cr_len
10258 INTEGER id_id
10259 CHARACTER*80 emess
10260 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10261 WRITE(emess,*)'nl_get_mix_cr_len: Out of range domain number: ',id_id
10262 CALL wrf_error_fatal(emess)
10263 ENDIF
10264 mix_cr_len = model_config_rec%mix_cr_len(id_id)
10265 RETURN
10266 END SUBROUTINE nl_get_mix_cr_len
10267 SUBROUTINE nl_get_tke_upper_bound ( id_id , tke_upper_bound )
10268 real , INTENT(OUT) :: tke_upper_bound
10269 INTEGER id_id
10270 CHARACTER*80 emess
10271 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10272 WRITE(emess,*)'nl_get_tke_upper_bound: Out of range domain number: ',id_id
10273 CALL wrf_error_fatal(emess)
10274 ENDIF
10275 tke_upper_bound = model_config_rec%tke_upper_bound(id_id)
10276 RETURN
10277 END SUBROUTINE nl_get_tke_upper_bound
10278 SUBROUTINE nl_get_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
10279 real , INTENT(OUT) :: kh_tke_upper_bound
10280 INTEGER id_id
10281 CHARACTER*80 emess
10282 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10283 WRITE(emess,*)'nl_get_kh_tke_upper_bound: Out of range domain number: ',id_id
10284 CALL wrf_error_fatal(emess)
10285 ENDIF
10286 kh_tke_upper_bound = model_config_rec%kh_tke_upper_bound(id_id)
10287 RETURN
10288 END SUBROUTINE nl_get_kh_tke_upper_bound
10289 SUBROUTINE nl_get_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
10290 real , INTENT(OUT) :: kv_tke_upper_bound
10291 INTEGER id_id
10292 CHARACTER*80 emess
10293 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10294 WRITE(emess,*)'nl_get_kv_tke_upper_bound: Out of range domain number: ',id_id
10295 CALL wrf_error_fatal(emess)
10296 ENDIF
10297 kv_tke_upper_bound = model_config_rec%kv_tke_upper_bound(id_id)
10298 RETURN
10299 END SUBROUTINE nl_get_kv_tke_upper_bound
10300 SUBROUTINE nl_get_tke_drag_coefficient ( id_id , tke_drag_coefficient )
10301 real , INTENT(OUT) :: tke_drag_coefficient
10302 INTEGER id_id
10303 CHARACTER*80 emess
10304 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10305 WRITE(emess,*)'nl_get_tke_drag_coefficient: Out of range domain number: ',id_id
10306 CALL wrf_error_fatal(emess)
10307 ENDIF
10308 tke_drag_coefficient = model_config_rec%tke_drag_coefficient(id_id)
10309 RETURN
10310 END SUBROUTINE nl_get_tke_drag_coefficient
10311 SUBROUTINE nl_get_tke_heat_flux ( id_id , tke_heat_flux )
10312 real , INTENT(OUT) :: tke_heat_flux
10313 INTEGER id_id
10314 CHARACTER*80 emess
10315 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10316 WRITE(emess,*)'nl_get_tke_heat_flux: Out of range domain number: ',id_id
10317 CALL wrf_error_fatal(emess)
10318 ENDIF
10319 tke_heat_flux = model_config_rec%tke_heat_flux(id_id)
10320 RETURN
10321 END SUBROUTINE nl_get_tke_heat_flux
10322 SUBROUTINE nl_get_pert_coriolis ( id_id , pert_coriolis )
10323 logical , INTENT(OUT) :: pert_coriolis
10324 INTEGER id_id
10325 CHARACTER*80 emess
10326 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10327 WRITE(emess,*)'nl_get_pert_coriolis: Out of range domain number: ',id_id
10328 CALL wrf_error_fatal(emess)
10329 ENDIF
10330 pert_coriolis = model_config_rec%pert_coriolis(id_id)
10331 RETURN
10332 END SUBROUTINE nl_get_pert_coriolis
10333 SUBROUTINE nl_get_mix_full_fields ( id_id , mix_full_fields )
10334 logical , INTENT(OUT) :: mix_full_fields
10335 INTEGER id_id
10336 CHARACTER*80 emess
10337 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10338 WRITE(emess,*)'nl_get_mix_full_fields: Out of range domain number: ',id_id
10339 CALL wrf_error_fatal(emess)
10340 ENDIF
10341 mix_full_fields = model_config_rec%mix_full_fields(id_id)
10342 RETURN
10343 END SUBROUTINE nl_get_mix_full_fields
10344 SUBROUTINE nl_get_base_pres ( id_id , base_pres )
10345 real , INTENT(OUT) :: base_pres
10346 INTEGER id_id
10347 CHARACTER*80 emess
10348 IF ( id_id .NE. 1 ) THEN
10349 call wrf_debug(1,&
10350 'WARNING in nl_get_base_pres: base_pres applies to all domains. First arg ignored.')
10351 ENDIF
10352 base_pres = model_config_rec%base_pres
10353 RETURN
10354 END SUBROUTINE nl_get_base_pres
10355 SUBROUTINE nl_get_base_temp ( id_id , base_temp )
10356 real , INTENT(OUT) :: base_temp
10357 INTEGER id_id
10358 CHARACTER*80 emess
10359 IF ( id_id .NE. 1 ) THEN
10360 call wrf_debug(1,&
10361 'WARNING in nl_get_base_temp: base_temp applies to all domains. First arg ignored.')
10362 ENDIF
10363 base_temp = model_config_rec%base_temp
10364 RETURN
10365 END SUBROUTINE nl_get_base_temp
10366 SUBROUTINE nl_get_base_lapse ( id_id , base_lapse )
10367 real , INTENT(OUT) :: base_lapse
10368 INTEGER id_id
10369 CHARACTER*80 emess
10370 IF ( id_id .NE. 1 ) THEN
10371 call wrf_debug(1,&
10372 'WARNING in nl_get_base_lapse: base_lapse applies to all domains. First arg ignored.')
10373 ENDIF
10374 base_lapse = model_config_rec%base_lapse
10375 RETURN
10376 END SUBROUTINE nl_get_base_lapse
10377 SUBROUTINE nl_get_jcdfi_use ( id_id , jcdfi_use )
10378 logical , INTENT(OUT) :: jcdfi_use
10379 INTEGER id_id
10380 CHARACTER*80 emess
10381 IF ( id_id .NE. 1 ) THEN
10382 call wrf_debug(1,&
10383 'WARNING in nl_get_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
10384 ENDIF
10385 jcdfi_use = model_config_rec%jcdfi_use
10386 RETURN
10387 END SUBROUTINE nl_get_jcdfi_use
10388 SUBROUTINE nl_get_jcdfi_tauc ( id_id , jcdfi_tauc )
10389 real , INTENT(OUT) :: jcdfi_tauc
10390 INTEGER id_id
10391 CHARACTER*80 emess
10392 IF ( id_id .NE. 1 ) THEN
10393 call wrf_debug(1,&
10394 'WARNING in nl_get_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
10395 ENDIF
10396 jcdfi_tauc = model_config_rec%jcdfi_tauc
10397 RETURN
10398 END SUBROUTINE nl_get_jcdfi_tauc
10399 SUBROUTINE nl_get_jcdfi_gama ( id_id , jcdfi_gama )
10400 real , INTENT(OUT) :: jcdfi_gama
10401 INTEGER id_id
10402 CHARACTER*80 emess
10403 IF ( id_id .NE. 1 ) THEN
10404 call wrf_debug(1,&
10405 'WARNING in nl_get_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
10406 ENDIF
10407 jcdfi_gama = model_config_rec%jcdfi_gama
10408 RETURN
10409 END SUBROUTINE nl_get_jcdfi_gama
10410 SUBROUTINE nl_get_jcdfi_error_wind ( id_id , jcdfi_error_wind )
10411 real , INTENT(OUT) :: jcdfi_error_wind
10412 INTEGER id_id
10413 CHARACTER*80 emess
10414 IF ( id_id .NE. 1 ) THEN
10415 call wrf_debug(1,&
10416 'WARNING in nl_get_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
10417 ENDIF
10418 jcdfi_error_wind = model_config_rec%jcdfi_error_wind
10419 RETURN
10420 END SUBROUTINE nl_get_jcdfi_error_wind
10421 SUBROUTINE nl_get_jcdfi_error_t ( id_id , jcdfi_error_t )
10422 real , INTENT(OUT) :: jcdfi_error_t
10423 INTEGER id_id
10424 CHARACTER*80 emess
10425 IF ( id_id .NE. 1 ) THEN
10426 call wrf_debug(1,&
10427 'WARNING in nl_get_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
10428 ENDIF
10429 jcdfi_error_t = model_config_rec%jcdfi_error_t
10430 RETURN
10431 END SUBROUTINE nl_get_jcdfi_error_t
10432 SUBROUTINE nl_get_jcdfi_error_q ( id_id , jcdfi_error_q )
10433 real , INTENT(OUT) :: jcdfi_error_q
10434 INTEGER id_id
10435 CHARACTER*80 emess
10436 IF ( id_id .NE. 1 ) THEN
10437 call wrf_debug(1,&
10438 'WARNING in nl_get_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
10439 ENDIF
10440 jcdfi_error_q = model_config_rec%jcdfi_error_q
10441 RETURN
10442 END SUBROUTINE nl_get_jcdfi_error_q
10443 SUBROUTINE nl_get_jcdfi_error_mu ( id_id , jcdfi_error_mu )
10444 real , INTENT(OUT) :: jcdfi_error_mu
10445 INTEGER id_id
10446 CHARACTER*80 emess
10447 IF ( id_id .NE. 1 ) THEN
10448 call wrf_debug(1,&
10449 'WARNING in nl_get_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
10450 ENDIF
10451 jcdfi_error_mu = model_config_rec%jcdfi_error_mu
10452 RETURN
10453 END SUBROUTINE nl_get_jcdfi_error_mu
10454 SUBROUTINE nl_get_spec_bdy_width ( id_id , spec_bdy_width )
10455 integer , INTENT(OUT) :: spec_bdy_width
10456 INTEGER id_id
10457 CHARACTER*80 emess
10458 IF ( id_id .NE. 1 ) THEN
10459 call wrf_debug(1,&
10460 'WARNING in nl_get_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
10461 ENDIF
10462 spec_bdy_width = model_config_rec%spec_bdy_width
10463 RETURN
10464 END SUBROUTINE nl_get_spec_bdy_width
10465 SUBROUTINE nl_get_spec_zone ( id_id , spec_zone )
10466 integer , INTENT(OUT) :: spec_zone
10467 INTEGER id_id
10468 CHARACTER*80 emess
10469 IF ( id_id .NE. 1 ) THEN
10470 call wrf_debug(1,&
10471 'WARNING in nl_get_spec_zone: spec_zone applies to all domains. First arg ignored.')
10472 ENDIF
10473 spec_zone = model_config_rec%spec_zone
10474 RETURN
10475 END SUBROUTINE nl_get_spec_zone
10476 SUBROUTINE nl_get_relax_zone ( id_id , relax_zone )
10477 integer , INTENT(OUT) :: relax_zone
10478 INTEGER id_id
10479 CHARACTER*80 emess
10480 IF ( id_id .NE. 1 ) THEN
10481 call wrf_debug(1,&
10482 'WARNING in nl_get_relax_zone: relax_zone applies to all domains. First arg ignored.')
10483 ENDIF
10484 relax_zone = model_config_rec%relax_zone
10485 RETURN
10486 END SUBROUTINE nl_get_relax_zone
10487 SUBROUTINE nl_get_specified ( id_id , specified )
10488 logical , INTENT(OUT) :: specified
10489 INTEGER id_id
10490 CHARACTER*80 emess
10491 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10492 WRITE(emess,*)'nl_get_specified: Out of range domain number: ',id_id
10493 CALL wrf_error_fatal(emess)
10494 ENDIF
10495 specified = model_config_rec%specified(id_id)
10496 RETURN
10497 END SUBROUTINE nl_get_specified
10498 SUBROUTINE nl_get_periodic_x ( id_id , periodic_x )
10499 logical , INTENT(OUT) :: periodic_x
10500 INTEGER id_id
10501 CHARACTER*80 emess
10502 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10503 WRITE(emess,*)'nl_get_periodic_x: Out of range domain number: ',id_id
10504 CALL wrf_error_fatal(emess)
10505 ENDIF
10506 periodic_x = model_config_rec%periodic_x(id_id)
10507 RETURN
10508 END SUBROUTINE nl_get_periodic_x
10509 SUBROUTINE nl_get_symmetric_xs ( id_id , symmetric_xs )
10510 logical , INTENT(OUT) :: symmetric_xs
10511 INTEGER id_id
10512 CHARACTER*80 emess
10513 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10514 WRITE(emess,*)'nl_get_symmetric_xs: Out of range domain number: ',id_id
10515 CALL wrf_error_fatal(emess)
10516 ENDIF
10517 symmetric_xs = model_config_rec%symmetric_xs(id_id)
10518 RETURN
10519 END SUBROUTINE nl_get_symmetric_xs
10520 SUBROUTINE nl_get_symmetric_xe ( id_id , symmetric_xe )
10521 logical , INTENT(OUT) :: symmetric_xe
10522 INTEGER id_id
10523 CHARACTER*80 emess
10524 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10525 WRITE(emess,*)'nl_get_symmetric_xe: Out of range domain number: ',id_id
10526 CALL wrf_error_fatal(emess)
10527 ENDIF
10528 symmetric_xe = model_config_rec%symmetric_xe(id_id)
10529 RETURN
10530 END SUBROUTINE nl_get_symmetric_xe
10531 SUBROUTINE nl_get_open_xs ( id_id , open_xs )
10532 logical , INTENT(OUT) :: open_xs
10533 INTEGER id_id
10534 CHARACTER*80 emess
10535 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10536 WRITE(emess,*)'nl_get_open_xs: Out of range domain number: ',id_id
10537 CALL wrf_error_fatal(emess)
10538 ENDIF
10539 open_xs = model_config_rec%open_xs(id_id)
10540 RETURN
10541 END SUBROUTINE nl_get_open_xs
10542 SUBROUTINE nl_get_open_xe ( id_id , open_xe )
10543 logical , INTENT(OUT) :: open_xe
10544 INTEGER id_id
10545 CHARACTER*80 emess
10546 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10547 WRITE(emess,*)'nl_get_open_xe: Out of range domain number: ',id_id
10548 CALL wrf_error_fatal(emess)
10549 ENDIF
10550 open_xe = model_config_rec%open_xe(id_id)
10551 RETURN
10552 END SUBROUTINE nl_get_open_xe
10553 SUBROUTINE nl_get_periodic_y ( id_id , periodic_y )
10554 logical , INTENT(OUT) :: periodic_y
10555 INTEGER id_id
10556 CHARACTER*80 emess
10557 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10558 WRITE(emess,*)'nl_get_periodic_y: Out of range domain number: ',id_id
10559 CALL wrf_error_fatal(emess)
10560 ENDIF
10561 periodic_y = model_config_rec%periodic_y(id_id)
10562 RETURN
10563 END SUBROUTINE nl_get_periodic_y
10564 SUBROUTINE nl_get_symmetric_ys ( id_id , symmetric_ys )
10565 logical , INTENT(OUT) :: symmetric_ys
10566 INTEGER id_id
10567 CHARACTER*80 emess
10568 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10569 WRITE(emess,*)'nl_get_symmetric_ys: Out of range domain number: ',id_id
10570 CALL wrf_error_fatal(emess)
10571 ENDIF
10572 symmetric_ys = model_config_rec%symmetric_ys(id_id)
10573 RETURN
10574 END SUBROUTINE nl_get_symmetric_ys
10575 SUBROUTINE nl_get_symmetric_ye ( id_id , symmetric_ye )
10576 logical , INTENT(OUT) :: symmetric_ye
10577 INTEGER id_id
10578 CHARACTER*80 emess
10579 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10580 WRITE(emess,*)'nl_get_symmetric_ye: Out of range domain number: ',id_id
10581 CALL wrf_error_fatal(emess)
10582 ENDIF
10583 symmetric_ye = model_config_rec%symmetric_ye(id_id)
10584 RETURN
10585 END SUBROUTINE nl_get_symmetric_ye
10586 SUBROUTINE nl_get_open_ys ( id_id , open_ys )
10587 logical , INTENT(OUT) :: open_ys
10588 INTEGER id_id
10589 CHARACTER*80 emess
10590 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10591 WRITE(emess,*)'nl_get_open_ys: Out of range domain number: ',id_id
10592 CALL wrf_error_fatal(emess)
10593 ENDIF
10594 open_ys = model_config_rec%open_ys(id_id)
10595 RETURN
10596 END SUBROUTINE nl_get_open_ys
10597 SUBROUTINE nl_get_open_ye ( id_id , open_ye )
10598 logical , INTENT(OUT) :: open_ye
10599 INTEGER id_id
10600 CHARACTER*80 emess
10601 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10602 WRITE(emess,*)'nl_get_open_ye: Out of range domain number: ',id_id
10603 CALL wrf_error_fatal(emess)
10604 ENDIF
10605 open_ye = model_config_rec%open_ye(id_id)
10606 RETURN
10607 END SUBROUTINE nl_get_open_ye
10608 SUBROUTINE nl_get_nested ( id_id , nested )
10609 logical , INTENT(OUT) :: nested
10610 INTEGER id_id
10611 CHARACTER*80 emess
10612 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10613 WRITE(emess,*)'nl_get_nested: Out of range domain number: ',id_id
10614 CALL wrf_error_fatal(emess)
10615 ENDIF
10616 nested = model_config_rec%nested(id_id)
10617 RETURN
10618 END SUBROUTINE nl_get_nested
10619 SUBROUTINE nl_get_real_data_init_type ( id_id , real_data_init_type )
10620 integer , INTENT(OUT) :: real_data_init_type
10621 INTEGER id_id
10622 CHARACTER*80 emess
10623 IF ( id_id .NE. 1 ) THEN
10624 call wrf_debug(1,&
10625 'WARNING in nl_get_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
10626 ENDIF
10627 real_data_init_type = model_config_rec%real_data_init_type
10628 RETURN
10629 END SUBROUTINE nl_get_real_data_init_type
10630 SUBROUTINE nl_get_background_proc_id ( id_id , background_proc_id )
10631 integer , INTENT(OUT) :: background_proc_id
10632 INTEGER id_id
10633 CHARACTER*80 emess
10634 IF ( id_id .NE. 1 ) THEN
10635 call wrf_debug(1,&
10636 'WARNING in nl_get_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
10637 ENDIF
10638 background_proc_id = model_config_rec%background_proc_id
10639 RETURN
10640 END SUBROUTINE nl_get_background_proc_id
10641 SUBROUTINE nl_get_forecast_proc_id ( id_id , forecast_proc_id )
10642 integer , INTENT(OUT) :: forecast_proc_id
10643 INTEGER id_id
10644 CHARACTER*80 emess
10645 IF ( id_id .NE. 1 ) THEN
10646 call wrf_debug(1,&
10647 'WARNING in nl_get_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
10648 ENDIF
10649 forecast_proc_id = model_config_rec%forecast_proc_id
10650 RETURN
10651 END SUBROUTINE nl_get_forecast_proc_id
10652 SUBROUTINE nl_get_production_status ( id_id , production_status )
10653 integer , INTENT(OUT) :: production_status
10654 INTEGER id_id
10655 CHARACTER*80 emess
10656 IF ( id_id .NE. 1 ) THEN
10657 call wrf_debug(1,&
10658 'WARNING in nl_get_production_status: production_status applies to all domains. First arg ignored.')
10659 ENDIF
10660 production_status = model_config_rec%production_status
10661 RETURN
10662 END SUBROUTINE nl_get_production_status
10663 SUBROUTINE nl_get_compression ( id_id , compression )
10664 integer , INTENT(OUT) :: compression
10665 INTEGER id_id
10666 CHARACTER*80 emess
10667 IF ( id_id .NE. 1 ) THEN
10668 call wrf_debug(1,&
10669 'WARNING in nl_get_compression: compression applies to all domains. First arg ignored.')
10670 ENDIF
10671 compression = model_config_rec%compression
10672 RETURN
10673 END SUBROUTINE nl_get_compression
10674 SUBROUTINE nl_get_cen_lat ( id_id , cen_lat )
10675 real , INTENT(OUT) :: cen_lat
10676 INTEGER id_id
10677 CHARACTER*80 emess
10678 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10679 WRITE(emess,*)'nl_get_cen_lat: Out of range domain number: ',id_id
10680 CALL wrf_error_fatal(emess)
10681 ENDIF
10682 cen_lat = model_config_rec%cen_lat(id_id)
10683 RETURN
10684 END SUBROUTINE nl_get_cen_lat
10685 SUBROUTINE nl_get_cen_lon ( id_id , cen_lon )
10686 real , INTENT(OUT) :: cen_lon
10687 INTEGER id_id
10688 CHARACTER*80 emess
10689 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10690 WRITE(emess,*)'nl_get_cen_lon: Out of range domain number: ',id_id
10691 CALL wrf_error_fatal(emess)
10692 ENDIF
10693 cen_lon = model_config_rec%cen_lon(id_id)
10694 RETURN
10695 END SUBROUTINE nl_get_cen_lon
10696 SUBROUTINE nl_get_truelat1 ( id_id , truelat1 )
10697 real , INTENT(OUT) :: truelat1
10698 INTEGER id_id
10699 CHARACTER*80 emess
10700 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10701 WRITE(emess,*)'nl_get_truelat1: Out of range domain number: ',id_id
10702 CALL wrf_error_fatal(emess)
10703 ENDIF
10704 truelat1 = model_config_rec%truelat1(id_id)
10705 RETURN
10706 END SUBROUTINE nl_get_truelat1
10707 SUBROUTINE nl_get_truelat2 ( id_id , truelat2 )
10708 real , INTENT(OUT) :: truelat2
10709 INTEGER id_id
10710 CHARACTER*80 emess
10711 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10712 WRITE(emess,*)'nl_get_truelat2: Out of range domain number: ',id_id
10713 CALL wrf_error_fatal(emess)
10714 ENDIF
10715 truelat2 = model_config_rec%truelat2(id_id)
10716 RETURN
10717 END SUBROUTINE nl_get_truelat2
10718 SUBROUTINE nl_get_moad_cen_lat ( id_id , moad_cen_lat )
10719 real , INTENT(OUT) :: moad_cen_lat
10720 INTEGER id_id
10721 CHARACTER*80 emess
10722 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10723 WRITE(emess,*)'nl_get_moad_cen_lat: Out of range domain number: ',id_id
10724 CALL wrf_error_fatal(emess)
10725 ENDIF
10726 moad_cen_lat = model_config_rec%moad_cen_lat(id_id)
10727 RETURN
10728 END SUBROUTINE nl_get_moad_cen_lat
10729 SUBROUTINE nl_get_stand_lon ( id_id , stand_lon )
10730 real , INTENT(OUT) :: stand_lon
10731 INTEGER id_id
10732 CHARACTER*80 emess
10733 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10734 WRITE(emess,*)'nl_get_stand_lon: Out of range domain number: ',id_id
10735 CALL wrf_error_fatal(emess)
10736 ENDIF
10737 stand_lon = model_config_rec%stand_lon(id_id)
10738 RETURN
10739 END SUBROUTINE nl_get_stand_lon
10740 SUBROUTINE nl_get_bdyfrq ( id_id , bdyfrq )
10741 real , INTENT(OUT) :: bdyfrq
10742 INTEGER id_id
10743 CHARACTER*80 emess
10744 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10745 WRITE(emess,*)'nl_get_bdyfrq: Out of range domain number: ',id_id
10746 CALL wrf_error_fatal(emess)
10747 ENDIF
10748 bdyfrq = model_config_rec%bdyfrq(id_id)
10749 RETURN
10750 END SUBROUTINE nl_get_bdyfrq
10751 SUBROUTINE nl_get_iswater ( id_id , iswater )
10752 integer , INTENT(OUT) :: iswater
10753 INTEGER id_id
10754 CHARACTER*80 emess
10755 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10756 WRITE(emess,*)'nl_get_iswater: Out of range domain number: ',id_id
10757 CALL wrf_error_fatal(emess)
10758 ENDIF
10759 iswater = model_config_rec%iswater(id_id)
10760 RETURN
10761 END SUBROUTINE nl_get_iswater
10762 SUBROUTINE nl_get_isice ( id_id , isice )
10763 integer , INTENT(OUT) :: isice
10764 INTEGER id_id
10765 CHARACTER*80 emess
10766 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10767 WRITE(emess,*)'nl_get_isice: Out of range domain number: ',id_id
10768 CALL wrf_error_fatal(emess)
10769 ENDIF
10770 isice = model_config_rec%isice(id_id)
10771 RETURN
10772 END SUBROUTINE nl_get_isice
10773 SUBROUTINE nl_get_isurban ( id_id , isurban )
10774 integer , INTENT(OUT) :: isurban
10775 INTEGER id_id
10776 CHARACTER*80 emess
10777 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10778 WRITE(emess,*)'nl_get_isurban: Out of range domain number: ',id_id
10779 CALL wrf_error_fatal(emess)
10780 ENDIF
10781 isurban = model_config_rec%isurban(id_id)
10782 RETURN
10783 END SUBROUTINE nl_get_isurban
10784 SUBROUTINE nl_get_isoilwater ( id_id , isoilwater )
10785 integer , INTENT(OUT) :: isoilwater
10786 INTEGER id_id
10787 CHARACTER*80 emess
10788 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10789 WRITE(emess,*)'nl_get_isoilwater: Out of range domain number: ',id_id
10790 CALL wrf_error_fatal(emess)
10791 ENDIF
10792 isoilwater = model_config_rec%isoilwater(id_id)
10793 RETURN
10794 END SUBROUTINE nl_get_isoilwater
10795 SUBROUTINE nl_get_map_proj ( id_id , map_proj )
10796 integer , INTENT(OUT) :: map_proj
10797 INTEGER id_id
10798 CHARACTER*80 emess
10799 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10800 WRITE(emess,*)'nl_get_map_proj: Out of range domain number: ',id_id
10801 CALL wrf_error_fatal(emess)
10802 ENDIF
10803 map_proj = model_config_rec%map_proj(id_id)
10804 RETURN
10805 END SUBROUTINE nl_get_map_proj
10806 SUBROUTINE nl_get_simulation_start_year ( id_id , simulation_start_year )
10807 integer , INTENT(OUT) :: simulation_start_year
10808 INTEGER id_id
10809 CHARACTER*80 emess
10810 IF ( id_id .NE. 1 ) THEN
10811 call wrf_debug(1,&
10812 'WARNING in nl_get_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
10813 ENDIF
10814 simulation_start_year = model_config_rec%simulation_start_year
10815 RETURN
10816 END SUBROUTINE nl_get_simulation_start_year
10817 SUBROUTINE nl_get_simulation_start_month ( id_id , simulation_start_month )
10818 integer , INTENT(OUT) :: simulation_start_month
10819 INTEGER id_id
10820 CHARACTER*80 emess
10821 IF ( id_id .NE. 1 ) THEN
10822 call wrf_debug(1,&
10823 'WARNING in nl_get_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
10824 ENDIF
10825 simulation_start_month = model_config_rec%simulation_start_month
10826 RETURN
10827 END SUBROUTINE nl_get_simulation_start_month
10828 SUBROUTINE nl_get_simulation_start_day ( id_id , simulation_start_day )
10829 integer , INTENT(OUT) :: simulation_start_day
10830 INTEGER id_id
10831 CHARACTER*80 emess
10832 IF ( id_id .NE. 1 ) THEN
10833 call wrf_debug(1,&
10834 'WARNING in nl_get_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
10835 ENDIF
10836 simulation_start_day = model_config_rec%simulation_start_day
10837 RETURN
10838 END SUBROUTINE nl_get_simulation_start_day
10839 SUBROUTINE nl_get_simulation_start_hour ( id_id , simulation_start_hour )
10840 integer , INTENT(OUT) :: simulation_start_hour
10841 INTEGER id_id
10842 CHARACTER*80 emess
10843 IF ( id_id .NE. 1 ) THEN
10844 call wrf_debug(1,&
10845 'WARNING in nl_get_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
10846 ENDIF
10847 simulation_start_hour = model_config_rec%simulation_start_hour
10848 RETURN
10849 END SUBROUTINE nl_get_simulation_start_hour
10850 SUBROUTINE nl_get_simulation_start_minute ( id_id , simulation_start_minute )
10851 integer , INTENT(OUT) :: simulation_start_minute
10852 INTEGER id_id
10853 CHARACTER*80 emess
10854 IF ( id_id .NE. 1 ) THEN
10855 call wrf_debug(1,&
10856 'WARNING in nl_get_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
10857 ENDIF
10858 simulation_start_minute = model_config_rec%simulation_start_minute
10859 RETURN
10860 END SUBROUTINE nl_get_simulation_start_minute
10861 SUBROUTINE nl_get_simulation_start_second ( id_id , simulation_start_second )
10862 integer , INTENT(OUT) :: simulation_start_second
10863 INTEGER id_id
10864 CHARACTER*80 emess
10865 IF ( id_id .NE. 1 ) THEN
10866 call wrf_debug(1,&
10867 'WARNING in nl_get_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
10868 ENDIF
10869 simulation_start_second = model_config_rec%simulation_start_second
10870 RETURN
10871 END SUBROUTINE nl_get_simulation_start_second
10872 SUBROUTINE nl_set_write_increments ( id_id , write_increments )
10873 logical , INTENT(IN) :: write_increments
10874 INTEGER id_id
10875 CHARACTER*80 emess
10876 IF ( id_id .NE. 1 ) THEN
10877 call wrf_debug(1,&
10878 'WARNING in nl_set_write_increments: write_increments applies to all domains. First arg ignored.')
10879 ENDIF
10880 model_config_rec%write_increments = write_increments
10881 RETURN
10882 END SUBROUTINE nl_set_write_increments
10883 SUBROUTINE nl_set_var4d ( id_id , var4d )
10884 logical , INTENT(IN) :: var4d
10885 INTEGER id_id
10886 CHARACTER*80 emess
10887 IF ( id_id .NE. 1 ) THEN
10888 call wrf_debug(1,&
10889 'WARNING in nl_set_var4d: var4d applies to all domains. First arg ignored.')
10890 ENDIF
10891 model_config_rec%var4d = var4d
10892 RETURN
10893 END SUBROUTINE nl_set_var4d
10894 SUBROUTINE nl_set_var4d_coupling ( id_id , var4d_coupling )
10895 integer , INTENT(IN) :: var4d_coupling
10896 INTEGER id_id
10897 CHARACTER*80 emess
10898 IF ( id_id .NE. 1 ) THEN
10899 call wrf_debug(1,&
10900 'WARNING in nl_set_var4d_coupling: var4d_coupling applies to all domains. First arg ignored.')
10901 ENDIF
10902 model_config_rec%var4d_coupling = var4d_coupling
10903 RETURN
10904 END SUBROUTINE nl_set_var4d_coupling
10905 SUBROUTINE nl_set_global ( id_id , global )
10906 logical , INTENT(IN) :: global
10907 INTEGER id_id
10908 CHARACTER*80 emess
10909 IF ( id_id .NE. 1 ) THEN
10910 call wrf_debug(1,&
10911 'WARNING in nl_set_global: global applies to all domains. First arg ignored.')
10912 ENDIF
10913 model_config_rec%global = global
10914 RETURN
10915 END SUBROUTINE nl_set_global
10916 SUBROUTINE nl_set_oi_use ( id_id , oi_use )
10917 logical , INTENT(IN) :: oi_use
10918 INTEGER id_id
10919 CHARACTER*80 emess
10920 IF ( id_id .NE. 1 ) THEN
10921 call wrf_debug(1,&
10922 'WARNING in nl_set_oi_use: oi_use applies to all domains. First arg ignored.')
10923 ENDIF
10924 model_config_rec%oi_use = oi_use
10925 RETURN
10926 END SUBROUTINE nl_set_oi_use
10927 SUBROUTINE nl_set_print_detail_airep ( id_id , print_detail_airep )
10928 logical , INTENT(IN) :: print_detail_airep
10929 INTEGER id_id
10930 CHARACTER*80 emess
10931 IF ( id_id .NE. 1 ) THEN
10932 call wrf_debug(1,&
10933 'WARNING in nl_set_print_detail_airep: print_detail_airep applies to all domains. First arg ignored.')
10934 ENDIF
10935 model_config_rec%print_detail_airep = print_detail_airep
10936 RETURN
10937 END SUBROUTINE nl_set_print_detail_airep
10938 SUBROUTINE nl_set_print_detail_radar ( id_id , print_detail_radar )
10939 logical , INTENT(IN) :: print_detail_radar
10940 INTEGER id_id
10941 CHARACTER*80 emess
10942 IF ( id_id .NE. 1 ) THEN
10943 call wrf_debug(1,&
10944 'WARNING in nl_set_print_detail_radar: print_detail_radar applies to all domains. First arg ignored.')
10945 ENDIF
10946 model_config_rec%print_detail_radar = print_detail_radar
10947 RETURN
10948 END SUBROUTINE nl_set_print_detail_radar
10949 SUBROUTINE nl_set_print_detail_radiance ( id_id , print_detail_radiance )
10950 logical , INTENT(IN) :: print_detail_radiance
10951 INTEGER id_id
10952 CHARACTER*80 emess
10953 IF ( id_id .NE. 1 ) THEN
10954 call wrf_debug(1,&
10955 'WARNING in nl_set_print_detail_radiance: print_detail_radiance applies to all domains. First arg ignored.')
10956 ENDIF
10957 model_config_rec%print_detail_radiance = print_detail_radiance
10958 RETURN
10959 END SUBROUTINE nl_set_print_detail_radiance
10960 SUBROUTINE nl_set_print_detail_xa ( id_id , print_detail_xa )
10961 logical , INTENT(IN) :: print_detail_xa
10962 INTEGER id_id
10963 CHARACTER*80 emess
10964 IF ( id_id .NE. 1 ) THEN
10965 call wrf_debug(1,&
10966 'WARNING in nl_set_print_detail_xa: print_detail_xa applies to all domains. First arg ignored.')
10967 ENDIF
10968 model_config_rec%print_detail_xa = print_detail_xa
10969 RETURN
10970 END SUBROUTINE nl_set_print_detail_xa
10971 SUBROUTINE nl_set_print_detail_xb ( id_id , print_detail_xb )
10972 logical , INTENT(IN) :: print_detail_xb
10973 INTEGER id_id
10974 CHARACTER*80 emess
10975 IF ( id_id .NE. 1 ) THEN
10976 call wrf_debug(1,&
10977 'WARNING in nl_set_print_detail_xb: print_detail_xb applies to all domains. First arg ignored.')
10978 ENDIF
10979 model_config_rec%print_detail_xb = print_detail_xb
10980 RETURN
10981 END SUBROUTINE nl_set_print_detail_xb
10982 SUBROUTINE nl_set_print_detail_obs ( id_id , print_detail_obs )
10983 logical , INTENT(IN) :: print_detail_obs
10984 INTEGER id_id
10985 CHARACTER*80 emess
10986 IF ( id_id .NE. 1 ) THEN
10987 call wrf_debug(1,&
10988 'WARNING in nl_set_print_detail_obs: print_detail_obs applies to all domains. First arg ignored.')
10989 ENDIF
10990 model_config_rec%print_detail_obs = print_detail_obs
10991 RETURN
10992 END SUBROUTINE nl_set_print_detail_obs
10993 SUBROUTINE nl_set_print_detail_f_obs ( id_id , print_detail_f_obs )
10994 logical , INTENT(IN) :: print_detail_f_obs
10995 INTEGER id_id
10996 CHARACTER*80 emess
10997 IF ( id_id .NE. 1 ) THEN
10998 call wrf_debug(1,&
10999 'WARNING in nl_set_print_detail_f_obs: print_detail_f_obs applies to all domains. First arg ignored.')
11000 ENDIF
11001 model_config_rec%print_detail_f_obs = print_detail_f_obs
11002 RETURN
11003 END SUBROUTINE nl_set_print_detail_f_obs
11004 SUBROUTINE nl_set_print_detail_map ( id_id , print_detail_map )
11005 logical , INTENT(IN) :: print_detail_map
11006 INTEGER id_id
11007 CHARACTER*80 emess
11008 IF ( id_id .NE. 1 ) THEN
11009 call wrf_debug(1,&
11010 'WARNING in nl_set_print_detail_map: print_detail_map applies to all domains. First arg ignored.')
11011 ENDIF
11012 model_config_rec%print_detail_map = print_detail_map
11013 RETURN
11014 END SUBROUTINE nl_set_print_detail_map
11015 SUBROUTINE nl_set_print_detail_grad ( id_id , print_detail_grad )
11016 logical , INTENT(IN) :: print_detail_grad
11017 INTEGER id_id
11018 CHARACTER*80 emess
11019 IF ( id_id .NE. 1 ) THEN
11020 call wrf_debug(1,&
11021 'WARNING in nl_set_print_detail_grad: print_detail_grad applies to all domains. First arg ignored.')
11022 ENDIF
11023 model_config_rec%print_detail_grad = print_detail_grad
11024 RETURN
11025 END SUBROUTINE nl_set_print_detail_grad
11026 SUBROUTINE nl_set_print_detail_regression ( id_id , print_detail_regression )
11027 logical , INTENT(IN) :: print_detail_regression
11028 INTEGER id_id
11029 CHARACTER*80 emess
11030 IF ( id_id .NE. 1 ) THEN
11031 call wrf_debug(1,&
11032 'WARNING in nl_set_print_detail_regression: print_detail_regression applies to all domains. First arg ignored.')
11033 ENDIF
11034 model_config_rec%print_detail_regression = print_detail_regression
11035 RETURN
11036 END SUBROUTINE nl_set_print_detail_regression
11037 SUBROUTINE nl_set_print_detail_spectral ( id_id , print_detail_spectral )
11038 logical , INTENT(IN) :: print_detail_spectral
11039 INTEGER id_id
11040 CHARACTER*80 emess
11041 IF ( id_id .NE. 1 ) THEN
11042 call wrf_debug(1,&
11043 'WARNING in nl_set_print_detail_spectral: print_detail_spectral applies to all domains. First arg ignored.')
11044 ENDIF
11045 model_config_rec%print_detail_spectral = print_detail_spectral
11046 RETURN
11047 END SUBROUTINE nl_set_print_detail_spectral
11048 SUBROUTINE nl_set_print_detail_testing ( id_id , print_detail_testing )
11049 logical , INTENT(IN) :: print_detail_testing
11050 INTEGER id_id
11051 CHARACTER*80 emess
11052 IF ( id_id .NE. 1 ) THEN
11053 call wrf_debug(1,&
11054 'WARNING in nl_set_print_detail_testing: print_detail_testing applies to all domains. First arg ignored.')
11055 ENDIF
11056 model_config_rec%print_detail_testing = print_detail_testing
11057 RETURN
11058 END SUBROUTINE nl_set_print_detail_testing
11059 SUBROUTINE nl_set_print_detail_parallel ( id_id , print_detail_parallel )
11060 logical , INTENT(IN) :: print_detail_parallel
11061 INTEGER id_id
11062 CHARACTER*80 emess
11063 IF ( id_id .NE. 1 ) THEN
11064 call wrf_debug(1,&
11065 'WARNING in nl_set_print_detail_parallel: print_detail_parallel applies to all domains. First arg ignored.')
11066 ENDIF
11067 model_config_rec%print_detail_parallel = print_detail_parallel
11068 RETURN
11069 END SUBROUTINE nl_set_print_detail_parallel
11070 SUBROUTINE nl_set_print_detail_be ( id_id , print_detail_be )
11071 logical , INTENT(IN) :: print_detail_be
11072 INTEGER id_id
11073 CHARACTER*80 emess
11074 IF ( id_id .NE. 1 ) THEN
11075 call wrf_debug(1,&
11076 'WARNING in nl_set_print_detail_be: print_detail_be applies to all domains. First arg ignored.')
11077 ENDIF
11078 model_config_rec%print_detail_be = print_detail_be
11079 RETURN
11080 END SUBROUTINE nl_set_print_detail_be
11081 SUBROUTINE nl_set_print_detail_timing ( id_id , print_detail_timing )
11082 logical , INTENT(IN) :: print_detail_timing
11083 INTEGER id_id
11084 CHARACTER*80 emess
11085 IF ( id_id .NE. 1 ) THEN
11086 call wrf_debug(1,&
11087 'WARNING in nl_set_print_detail_timing: print_detail_timing applies to all domains. First arg ignored.')
11088 ENDIF
11089 model_config_rec%print_detail_timing = print_detail_timing
11090 RETURN
11091 END SUBROUTINE nl_set_print_detail_timing
11092 SUBROUTINE nl_set_check_max_iv_print ( id_id , check_max_iv_print )
11093 logical , INTENT(IN) :: check_max_iv_print
11094 INTEGER id_id
11095 CHARACTER*80 emess
11096 IF ( id_id .NE. 1 ) THEN
11097 call wrf_debug(1,&
11098 'WARNING in nl_set_check_max_iv_print: check_max_iv_print applies to all domains. First arg ignored.')
11099 ENDIF
11100 model_config_rec%check_max_iv_print = check_max_iv_print
11101 RETURN
11102 END SUBROUTINE nl_set_check_max_iv_print
11103 SUBROUTINE nl_set_analysis_accu ( id_id , analysis_accu )
11104 integer , INTENT(IN) :: analysis_accu
11105 INTEGER id_id
11106 CHARACTER*80 emess
11107 IF ( id_id .NE. 1 ) THEN
11108 call wrf_debug(1,&
11109 'WARNING in nl_set_analysis_accu: analysis_accu applies to all domains. First arg ignored.')
11110 ENDIF
11111 model_config_rec%analysis_accu = analysis_accu
11112 RETURN
11113 END SUBROUTINE nl_set_analysis_accu
11114 SUBROUTINE nl_set_w_increments ( id_id , w_increments )
11115 logical , INTENT(IN) :: w_increments
11116 INTEGER id_id
11117 CHARACTER*80 emess
11118 IF ( id_id .NE. 1 ) THEN
11119 call wrf_debug(1,&
11120 'WARNING in nl_set_w_increments: w_increments applies to all domains. First arg ignored.')
11121 ENDIF
11122 model_config_rec%w_increments = w_increments
11123 RETURN
11124 END SUBROUTINE nl_set_w_increments
11125 SUBROUTINE nl_set_dt_cloud_model ( id_id , dt_cloud_model )
11126 logical , INTENT(IN) :: dt_cloud_model
11127 INTEGER id_id
11128 CHARACTER*80 emess
11129 IF ( id_id .NE. 1 ) THEN
11130 call wrf_debug(1,&
11131 'WARNING in nl_set_dt_cloud_model: dt_cloud_model applies to all domains. First arg ignored.')
11132 ENDIF
11133 model_config_rec%dt_cloud_model = dt_cloud_model
11134 RETURN
11135 END SUBROUTINE nl_set_dt_cloud_model
11136 SUBROUTINE nl_set_write_qcw ( id_id , write_qcw )
11137 logical , INTENT(IN) :: write_qcw
11138 INTEGER id_id
11139 CHARACTER*80 emess
11140 IF ( id_id .NE. 1 ) THEN
11141 call wrf_debug(1,&
11142 'WARNING in nl_set_write_qcw: write_qcw applies to all domains. First arg ignored.')
11143 ENDIF
11144 model_config_rec%write_qcw = write_qcw
11145 RETURN
11146 END SUBROUTINE nl_set_write_qcw
11147 SUBROUTINE nl_set_write_qrn ( id_id , write_qrn )
11148 logical , INTENT(IN) :: write_qrn
11149 INTEGER id_id
11150 CHARACTER*80 emess
11151 IF ( id_id .NE. 1 ) THEN
11152 call wrf_debug(1,&
11153 'WARNING in nl_set_write_qrn: write_qrn applies to all domains. First arg ignored.')
11154 ENDIF
11155 model_config_rec%write_qrn = write_qrn
11156 RETURN
11157 END SUBROUTINE nl_set_write_qrn
11158 SUBROUTINE nl_set_write_qci ( id_id , write_qci )
11159 logical , INTENT(IN) :: write_qci
11160 INTEGER id_id
11161 CHARACTER*80 emess
11162 IF ( id_id .NE. 1 ) THEN
11163 call wrf_debug(1,&
11164 'WARNING in nl_set_write_qci: write_qci applies to all domains. First arg ignored.')
11165 ENDIF
11166 model_config_rec%write_qci = write_qci
11167 RETURN
11168 END SUBROUTINE nl_set_write_qci
11169 SUBROUTINE nl_set_write_qsn ( id_id , write_qsn )
11170 logical , INTENT(IN) :: write_qsn
11171 INTEGER id_id
11172 CHARACTER*80 emess
11173 IF ( id_id .NE. 1 ) THEN
11174 call wrf_debug(1,&
11175 'WARNING in nl_set_write_qsn: write_qsn applies to all domains. First arg ignored.')
11176 ENDIF
11177 model_config_rec%write_qsn = write_qsn
11178 RETURN
11179 END SUBROUTINE nl_set_write_qsn
11180 SUBROUTINE nl_set_write_qgr ( id_id , write_qgr )
11181 logical , INTENT(IN) :: write_qgr
11182 INTEGER id_id
11183 CHARACTER*80 emess
11184 IF ( id_id .NE. 1 ) THEN
11185 call wrf_debug(1,&
11186 'WARNING in nl_set_write_qgr: write_qgr applies to all domains. First arg ignored.')
11187 ENDIF
11188 model_config_rec%write_qgr = write_qgr
11189 RETURN
11190 END SUBROUTINE nl_set_write_qgr
11191 SUBROUTINE nl_set_write_filtered_obs ( id_id , write_filtered_obs )
11192 logical , INTENT(IN) :: write_filtered_obs
11193 INTEGER id_id
11194 CHARACTER*80 emess
11195 IF ( id_id .NE. 1 ) THEN
11196 call wrf_debug(1,&
11197 'WARNING in nl_set_write_filtered_obs: write_filtered_obs applies to all domains. First arg ignored.')
11198 ENDIF
11199 model_config_rec%write_filtered_obs = write_filtered_obs
11200 RETURN
11201 END SUBROUTINE nl_set_write_filtered_obs
11202 SUBROUTINE nl_set_fg_format ( id_id , fg_format )
11203 integer , INTENT(IN) :: fg_format
11204 INTEGER id_id
11205 CHARACTER*80 emess
11206 IF ( id_id .NE. 1 ) THEN
11207 call wrf_debug(1,&
11208 'WARNING in nl_set_fg_format: fg_format applies to all domains. First arg ignored.')
11209 ENDIF
11210 model_config_rec%fg_format = fg_format
11211 RETURN
11212 END SUBROUTINE nl_set_fg_format
11213 SUBROUTINE nl_set_ob_format ( id_id , ob_format )
11214 integer , INTENT(IN) :: ob_format
11215 INTEGER id_id
11216 CHARACTER*80 emess
11217 IF ( id_id .NE. 1 ) THEN
11218 call wrf_debug(1,&
11219 'WARNING in nl_set_ob_format: ob_format applies to all domains. First arg ignored.')
11220 ENDIF
11221 model_config_rec%ob_format = ob_format
11222 RETURN
11223 END SUBROUTINE nl_set_ob_format
11224 SUBROUTINE nl_set_num_fgat_time ( id_id , num_fgat_time )
11225 integer , INTENT(IN) :: num_fgat_time
11226 INTEGER id_id
11227 CHARACTER*80 emess
11228 IF ( id_id .NE. 1 ) THEN
11229 call wrf_debug(1,&
11230 'WARNING in nl_set_num_fgat_time: num_fgat_time applies to all domains. First arg ignored.')
11231 ENDIF
11232 model_config_rec%num_fgat_time = num_fgat_time
11233 RETURN
11234 END SUBROUTINE nl_set_num_fgat_time
11235 SUBROUTINE nl_set_use_synopobs ( id_id , use_synopobs )
11236 logical , INTENT(IN) :: use_synopobs
11237 INTEGER id_id
11238 CHARACTER*80 emess
11239 IF ( id_id .NE. 1 ) THEN
11240 call wrf_debug(1,&
11241 'WARNING in nl_set_use_synopobs: use_synopobs applies to all domains. First arg ignored.')
11242 ENDIF
11243 model_config_rec%use_synopobs = use_synopobs
11244 RETURN
11245 END SUBROUTINE nl_set_use_synopobs
11246 SUBROUTINE nl_set_use_shipsobs ( id_id , use_shipsobs )
11247 logical , INTENT(IN) :: use_shipsobs
11248 INTEGER id_id
11249 CHARACTER*80 emess
11250 IF ( id_id .NE. 1 ) THEN
11251 call wrf_debug(1,&
11252 'WARNING in nl_set_use_shipsobs: use_shipsobs applies to all domains. First arg ignored.')
11253 ENDIF
11254 model_config_rec%use_shipsobs = use_shipsobs
11255 RETURN
11256 END SUBROUTINE nl_set_use_shipsobs
11257 SUBROUTINE nl_set_use_metarobs ( id_id , use_metarobs )
11258 logical , INTENT(IN) :: use_metarobs
11259 INTEGER id_id
11260 CHARACTER*80 emess
11261 IF ( id_id .NE. 1 ) THEN
11262 call wrf_debug(1,&
11263 'WARNING in nl_set_use_metarobs: use_metarobs applies to all domains. First arg ignored.')
11264 ENDIF
11265 model_config_rec%use_metarobs = use_metarobs
11266 RETURN
11267 END SUBROUTINE nl_set_use_metarobs
11268 SUBROUTINE nl_set_use_soundobs ( id_id , use_soundobs )
11269 logical , INTENT(IN) :: use_soundobs
11270 INTEGER id_id
11271 CHARACTER*80 emess
11272 IF ( id_id .NE. 1 ) THEN
11273 call wrf_debug(1,&
11274 'WARNING in nl_set_use_soundobs: use_soundobs applies to all domains. First arg ignored.')
11275 ENDIF
11276 model_config_rec%use_soundobs = use_soundobs
11277 RETURN
11278 END SUBROUTINE nl_set_use_soundobs
11279 SUBROUTINE nl_set_use_pilotobs ( id_id , use_pilotobs )
11280 logical , INTENT(IN) :: use_pilotobs
11281 INTEGER id_id
11282 CHARACTER*80 emess
11283 IF ( id_id .NE. 1 ) THEN
11284 call wrf_debug(1,&
11285 'WARNING in nl_set_use_pilotobs: use_pilotobs applies to all domains. First arg ignored.')
11286 ENDIF
11287 model_config_rec%use_pilotobs = use_pilotobs
11288 RETURN
11289 END SUBROUTINE nl_set_use_pilotobs
11290 SUBROUTINE nl_set_use_airepobs ( id_id , use_airepobs )
11291 logical , INTENT(IN) :: use_airepobs
11292 INTEGER id_id
11293 CHARACTER*80 emess
11294 IF ( id_id .NE. 1 ) THEN
11295 call wrf_debug(1,&
11296 'WARNING in nl_set_use_airepobs: use_airepobs applies to all domains. First arg ignored.')
11297 ENDIF
11298 model_config_rec%use_airepobs = use_airepobs
11299 RETURN
11300 END SUBROUTINE nl_set_use_airepobs
11301 SUBROUTINE nl_set_use_geoamvobs ( id_id , use_geoamvobs )
11302 logical , INTENT(IN) :: use_geoamvobs
11303 INTEGER id_id
11304 CHARACTER*80 emess
11305 IF ( id_id .NE. 1 ) THEN
11306 call wrf_debug(1,&
11307 'WARNING in nl_set_use_geoamvobs: use_geoamvobs applies to all domains. First arg ignored.')
11308 ENDIF
11309 model_config_rec%use_geoamvobs = use_geoamvobs
11310 RETURN
11311 END SUBROUTINE nl_set_use_geoamvobs
11312 SUBROUTINE nl_set_use_polaramvobs ( id_id , use_polaramvobs )
11313 logical , INTENT(IN) :: use_polaramvobs
11314 INTEGER id_id
11315 CHARACTER*80 emess
11316 IF ( id_id .NE. 1 ) THEN
11317 call wrf_debug(1,&
11318 'WARNING in nl_set_use_polaramvobs: use_polaramvobs applies to all domains. First arg ignored.')
11319 ENDIF
11320 model_config_rec%use_polaramvobs = use_polaramvobs
11321 RETURN
11322 END SUBROUTINE nl_set_use_polaramvobs
11323 SUBROUTINE nl_set_use_bogusobs ( id_id , use_bogusobs )
11324 logical , INTENT(IN) :: use_bogusobs
11325 INTEGER id_id
11326 CHARACTER*80 emess
11327 IF ( id_id .NE. 1 ) THEN
11328 call wrf_debug(1,&
11329 'WARNING in nl_set_use_bogusobs: use_bogusobs applies to all domains. First arg ignored.')
11330 ENDIF
11331 model_config_rec%use_bogusobs = use_bogusobs
11332 RETURN
11333 END SUBROUTINE nl_set_use_bogusobs
11334 SUBROUTINE nl_set_use_buoyobs ( id_id , use_buoyobs )
11335 logical , INTENT(IN) :: use_buoyobs
11336 INTEGER id_id
11337 CHARACTER*80 emess
11338 IF ( id_id .NE. 1 ) THEN
11339 call wrf_debug(1,&
11340 'WARNING in nl_set_use_buoyobs: use_buoyobs applies to all domains. First arg ignored.')
11341 ENDIF
11342 model_config_rec%use_buoyobs = use_buoyobs
11343 RETURN
11344 END SUBROUTINE nl_set_use_buoyobs
11345 SUBROUTINE nl_set_use_profilerobs ( id_id , use_profilerobs )
11346 logical , INTENT(IN) :: use_profilerobs
11347 INTEGER id_id
11348 CHARACTER*80 emess
11349 IF ( id_id .NE. 1 ) THEN
11350 call wrf_debug(1,&
11351 'WARNING in nl_set_use_profilerobs: use_profilerobs applies to all domains. First arg ignored.')
11352 ENDIF
11353 model_config_rec%use_profilerobs = use_profilerobs
11354 RETURN
11355 END SUBROUTINE nl_set_use_profilerobs
11356 SUBROUTINE nl_set_use_satemobs ( id_id , use_satemobs )
11357 logical , INTENT(IN) :: use_satemobs
11358 INTEGER id_id
11359 CHARACTER*80 emess
11360 IF ( id_id .NE. 1 ) THEN
11361 call wrf_debug(1,&
11362 'WARNING in nl_set_use_satemobs: use_satemobs applies to all domains. First arg ignored.')
11363 ENDIF
11364 model_config_rec%use_satemobs = use_satemobs
11365 RETURN
11366 END SUBROUTINE nl_set_use_satemobs
11367 SUBROUTINE nl_set_use_gpspwobs ( id_id , use_gpspwobs )
11368 logical , INTENT(IN) :: use_gpspwobs
11369 INTEGER id_id
11370 CHARACTER*80 emess
11371 IF ( id_id .NE. 1 ) THEN
11372 call wrf_debug(1,&
11373 'WARNING in nl_set_use_gpspwobs: use_gpspwobs applies to all domains. First arg ignored.')
11374 ENDIF
11375 model_config_rec%use_gpspwobs = use_gpspwobs
11376 RETURN
11377 END SUBROUTINE nl_set_use_gpspwobs
11378 SUBROUTINE nl_set_use_gpsrefobs ( id_id , use_gpsrefobs )
11379 logical , INTENT(IN) :: use_gpsrefobs
11380 INTEGER id_id
11381 CHARACTER*80 emess
11382 IF ( id_id .NE. 1 ) THEN
11383 call wrf_debug(1,&
11384 'WARNING in nl_set_use_gpsrefobs: use_gpsrefobs applies to all domains. First arg ignored.')
11385 ENDIF
11386 model_config_rec%use_gpsrefobs = use_gpsrefobs
11387 RETURN
11388 END SUBROUTINE nl_set_use_gpsrefobs
11389 SUBROUTINE nl_set_use_ssmiretrievalobs ( id_id , use_ssmiretrievalobs )
11390 logical , INTENT(IN) :: use_ssmiretrievalobs
11391 INTEGER id_id
11392 CHARACTER*80 emess
11393 IF ( id_id .NE. 1 ) THEN
11394 call wrf_debug(1,&
11395 'WARNING in nl_set_use_ssmiretrievalobs: use_ssmiretrievalobs applies to all domains. First arg ignored.')
11396 ENDIF
11397 model_config_rec%use_ssmiretrievalobs = use_ssmiretrievalobs
11398 RETURN
11399 END SUBROUTINE nl_set_use_ssmiretrievalobs
11400 SUBROUTINE nl_set_use_ssmitbobs ( id_id , use_ssmitbobs )
11401 logical , INTENT(IN) :: use_ssmitbobs
11402 INTEGER id_id
11403 CHARACTER*80 emess
11404 IF ( id_id .NE. 1 ) THEN
11405 call wrf_debug(1,&
11406 'WARNING in nl_set_use_ssmitbobs: use_ssmitbobs applies to all domains. First arg ignored.')
11407 ENDIF
11408 model_config_rec%use_ssmitbobs = use_ssmitbobs
11409 RETURN
11410 END SUBROUTINE nl_set_use_ssmitbobs
11411 SUBROUTINE nl_set_use_ssmt1obs ( id_id , use_ssmt1obs )
11412 logical , INTENT(IN) :: use_ssmt1obs
11413 INTEGER id_id
11414 CHARACTER*80 emess
11415 IF ( id_id .NE. 1 ) THEN
11416 call wrf_debug(1,&
11417 'WARNING in nl_set_use_ssmt1obs: use_ssmt1obs applies to all domains. First arg ignored.')
11418 ENDIF
11419 model_config_rec%use_ssmt1obs = use_ssmt1obs
11420 RETURN
11421 END SUBROUTINE nl_set_use_ssmt1obs
11422 SUBROUTINE nl_set_use_ssmt2obs ( id_id , use_ssmt2obs )
11423 logical , INTENT(IN) :: use_ssmt2obs
11424 INTEGER id_id
11425 CHARACTER*80 emess
11426 IF ( id_id .NE. 1 ) THEN
11427 call wrf_debug(1,&
11428 'WARNING in nl_set_use_ssmt2obs: use_ssmt2obs applies to all domains. First arg ignored.')
11429 ENDIF
11430 model_config_rec%use_ssmt2obs = use_ssmt2obs
11431 RETURN
11432 END SUBROUTINE nl_set_use_ssmt2obs
11433 SUBROUTINE nl_set_use_qscatobs ( id_id , use_qscatobs )
11434 logical , INTENT(IN) :: use_qscatobs
11435 INTEGER id_id
11436 CHARACTER*80 emess
11437 IF ( id_id .NE. 1 ) THEN
11438 call wrf_debug(1,&
11439 'WARNING in nl_set_use_qscatobs: use_qscatobs applies to all domains. First arg ignored.')
11440 ENDIF
11441 model_config_rec%use_qscatobs = use_qscatobs
11442 RETURN
11443 END SUBROUTINE nl_set_use_qscatobs
11444 SUBROUTINE nl_set_use_radarobs ( id_id , use_radarobs )
11445 logical , INTENT(IN) :: use_radarobs
11446 INTEGER id_id
11447 CHARACTER*80 emess
11448 IF ( id_id .NE. 1 ) THEN
11449 call wrf_debug(1,&
11450 'WARNING in nl_set_use_radarobs: use_radarobs applies to all domains. First arg ignored.')
11451 ENDIF
11452 model_config_rec%use_radarobs = use_radarobs
11453 RETURN
11454 END SUBROUTINE nl_set_use_radarobs
11455 SUBROUTINE nl_set_use_radar_rv ( id_id , use_radar_rv )
11456 logical , INTENT(IN) :: use_radar_rv
11457 INTEGER id_id
11458 CHARACTER*80 emess
11459 IF ( id_id .NE. 1 ) THEN
11460 call wrf_debug(1,&
11461 'WARNING in nl_set_use_radar_rv: use_radar_rv applies to all domains. First arg ignored.')
11462 ENDIF
11463 model_config_rec%use_radar_rv = use_radar_rv
11464 RETURN
11465 END SUBROUTINE nl_set_use_radar_rv
11466 SUBROUTINE nl_set_use_radar_rf ( id_id , use_radar_rf )
11467 logical , INTENT(IN) :: use_radar_rf
11468 INTEGER id_id
11469 CHARACTER*80 emess
11470 IF ( id_id .NE. 1 ) THEN
11471 call wrf_debug(1,&
11472 'WARNING in nl_set_use_radar_rf: use_radar_rf applies to all domains. First arg ignored.')
11473 ENDIF
11474 model_config_rec%use_radar_rf = use_radar_rf
11475 RETURN
11476 END SUBROUTINE nl_set_use_radar_rf
11477 SUBROUTINE nl_set_use_hirs2obs ( id_id , use_hirs2obs )
11478 logical , INTENT(IN) :: use_hirs2obs
11479 INTEGER id_id
11480 CHARACTER*80 emess
11481 IF ( id_id .NE. 1 ) THEN
11482 call wrf_debug(1,&
11483 'WARNING in nl_set_use_hirs2obs: use_hirs2obs applies to all domains. First arg ignored.')
11484 ENDIF
11485 model_config_rec%use_hirs2obs = use_hirs2obs
11486 RETURN
11487 END SUBROUTINE nl_set_use_hirs2obs
11488 SUBROUTINE nl_set_use_hirs3obs ( id_id , use_hirs3obs )
11489 logical , INTENT(IN) :: use_hirs3obs
11490 INTEGER id_id
11491 CHARACTER*80 emess
11492 IF ( id_id .NE. 1 ) THEN
11493 call wrf_debug(1,&
11494 'WARNING in nl_set_use_hirs3obs: use_hirs3obs applies to all domains. First arg ignored.')
11495 ENDIF
11496 model_config_rec%use_hirs3obs = use_hirs3obs
11497 RETURN
11498 END SUBROUTINE nl_set_use_hirs3obs
11499 SUBROUTINE nl_set_use_msuobs ( id_id , use_msuobs )
11500 logical , INTENT(IN) :: use_msuobs
11501 INTEGER id_id
11502 CHARACTER*80 emess
11503 IF ( id_id .NE. 1 ) THEN
11504 call wrf_debug(1,&
11505 'WARNING in nl_set_use_msuobs: use_msuobs applies to all domains. First arg ignored.')
11506 ENDIF
11507 model_config_rec%use_msuobs = use_msuobs
11508 RETURN
11509 END SUBROUTINE nl_set_use_msuobs
11510 SUBROUTINE nl_set_use_amsuaobs ( id_id , use_amsuaobs )
11511 logical , INTENT(IN) :: use_amsuaobs
11512 INTEGER id_id
11513 CHARACTER*80 emess
11514 IF ( id_id .NE. 1 ) THEN
11515 call wrf_debug(1,&
11516 'WARNING in nl_set_use_amsuaobs: use_amsuaobs applies to all domains. First arg ignored.')
11517 ENDIF
11518 model_config_rec%use_amsuaobs = use_amsuaobs
11519 RETURN
11520 END SUBROUTINE nl_set_use_amsuaobs
11521 SUBROUTINE nl_set_use_amsubobs ( id_id , use_amsubobs )
11522 logical , INTENT(IN) :: use_amsubobs
11523 INTEGER id_id
11524 CHARACTER*80 emess
11525 IF ( id_id .NE. 1 ) THEN
11526 call wrf_debug(1,&
11527 'WARNING in nl_set_use_amsubobs: use_amsubobs applies to all domains. First arg ignored.')
11528 ENDIF
11529 model_config_rec%use_amsubobs = use_amsubobs
11530 RETURN
11531 END SUBROUTINE nl_set_use_amsubobs
11532 SUBROUTINE nl_set_use_airsobs ( id_id , use_airsobs )
11533 logical , INTENT(IN) :: use_airsobs
11534 INTEGER id_id
11535 CHARACTER*80 emess
11536 IF ( id_id .NE. 1 ) THEN
11537 call wrf_debug(1,&
11538 'WARNING in nl_set_use_airsobs: use_airsobs applies to all domains. First arg ignored.')
11539 ENDIF
11540 model_config_rec%use_airsobs = use_airsobs
11541 RETURN
11542 END SUBROUTINE nl_set_use_airsobs
11543 SUBROUTINE nl_set_use_airsretobs ( id_id , use_airsretobs )
11544 logical , INTENT(IN) :: use_airsretobs
11545 INTEGER id_id
11546 CHARACTER*80 emess
11547 IF ( id_id .NE. 1 ) THEN
11548 call wrf_debug(1,&
11549 'WARNING in nl_set_use_airsretobs: use_airsretobs applies to all domains. First arg ignored.')
11550 ENDIF
11551 model_config_rec%use_airsretobs = use_airsretobs
11552 RETURN
11553 END SUBROUTINE nl_set_use_airsretobs
11554 SUBROUTINE nl_set_use_eos_amsuaobs ( id_id , use_eos_amsuaobs )
11555 logical , INTENT(IN) :: use_eos_amsuaobs
11556 INTEGER id_id
11557 CHARACTER*80 emess
11558 IF ( id_id .NE. 1 ) THEN
11559 call wrf_debug(1,&
11560 'WARNING in nl_set_use_eos_amsuaobs: use_eos_amsuaobs applies to all domains. First arg ignored.')
11561 ENDIF
11562 model_config_rec%use_eos_amsuaobs = use_eos_amsuaobs
11563 RETURN
11564 END SUBROUTINE nl_set_use_eos_amsuaobs
11565 SUBROUTINE nl_set_use_eos_radobs ( id_id , use_eos_radobs )
11566 logical , INTENT(IN) :: use_eos_radobs
11567 INTEGER id_id
11568 CHARACTER*80 emess
11569 IF ( id_id .NE. 1 ) THEN
11570 call wrf_debug(1,&
11571 'WARNING in nl_set_use_eos_radobs: use_eos_radobs applies to all domains. First arg ignored.')
11572 ENDIF
11573 model_config_rec%use_eos_radobs = use_eos_radobs
11574 RETURN
11575 END SUBROUTINE nl_set_use_eos_radobs
11576 SUBROUTINE nl_set_use_hsbobs ( id_id , use_hsbobs )
11577 logical , INTENT(IN) :: use_hsbobs
11578 INTEGER id_id
11579 CHARACTER*80 emess
11580 IF ( id_id .NE. 1 ) THEN
11581 call wrf_debug(1,&
11582 'WARNING in nl_set_use_hsbobs: use_hsbobs applies to all domains. First arg ignored.')
11583 ENDIF
11584 model_config_rec%use_hsbobs = use_hsbobs
11585 RETURN
11586 END SUBROUTINE nl_set_use_hsbobs
11587 SUBROUTINE nl_set_use_kma1dvar ( id_id , use_kma1dvar )
11588 logical , INTENT(IN) :: use_kma1dvar
11589 INTEGER id_id
11590 CHARACTER*80 emess
11591 IF ( id_id .NE. 1 ) THEN
11592 call wrf_debug(1,&
11593 'WARNING in nl_set_use_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
11594 ENDIF
11595 model_config_rec%use_kma1dvar = use_kma1dvar
11596 RETURN
11597 END SUBROUTINE nl_set_use_kma1dvar
11598 SUBROUTINE nl_set_use_filtered_rad ( id_id , use_filtered_rad )
11599 logical , INTENT(IN) :: use_filtered_rad
11600 INTEGER id_id
11601 CHARACTER*80 emess
11602 IF ( id_id .NE. 1 ) THEN
11603 call wrf_debug(1,&
11604 'WARNING in nl_set_use_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
11605 ENDIF
11606 model_config_rec%use_filtered_rad = use_filtered_rad
11607 RETURN
11608 END SUBROUTINE nl_set_use_filtered_rad
11609 SUBROUTINE nl_set_use_radiance ( id_id , use_radiance )
11610 logical , INTENT(IN) :: use_radiance
11611 INTEGER id_id
11612 CHARACTER*80 emess
11613 IF ( id_id .NE. 1 ) THEN
11614 call wrf_debug(1,&
11615 'WARNING in nl_set_use_radiance: use_radiance applies to all domains. First arg ignored.')
11616 ENDIF
11617 model_config_rec%use_radiance = use_radiance
11618 RETURN
11619 END SUBROUTINE nl_set_use_radiance
11620 SUBROUTINE nl_set_use_obsgts ( id_id , use_obsgts )
11621 logical , INTENT(IN) :: use_obsgts
11622 INTEGER id_id
11623 CHARACTER*80 emess
11624 IF ( id_id .NE. 1 ) THEN
11625 call wrf_debug(1,&
11626 'WARNING in nl_set_use_obsgts: use_obsgts applies to all domains. First arg ignored.')
11627 ENDIF
11628 model_config_rec%use_obsgts = use_obsgts
11629 RETURN
11630 END SUBROUTINE nl_set_use_obsgts
11631 SUBROUTINE nl_set_use_obs_errfac ( id_id , use_obs_errfac )
11632 logical , INTENT(IN) :: use_obs_errfac
11633 INTEGER id_id
11634 CHARACTER*80 emess
11635 IF ( id_id .NE. 1 ) THEN
11636 call wrf_debug(1,&
11637 'WARNING in nl_set_use_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
11638 ENDIF
11639 model_config_rec%use_obs_errfac = use_obs_errfac
11640 RETURN
11641 END SUBROUTINE nl_set_use_obs_errfac
11642 SUBROUTINE nl_set_check_max_iv ( id_id , check_max_iv )
11643 logical , INTENT(IN) :: check_max_iv
11644 INTEGER id_id
11645 CHARACTER*80 emess
11646 IF ( id_id .NE. 1 ) THEN
11647 call wrf_debug(1,&
11648 'WARNING in nl_set_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
11649 ENDIF
11650 model_config_rec%check_max_iv = check_max_iv
11651 RETURN
11652 END SUBROUTINE nl_set_check_max_iv
11653 SUBROUTINE nl_set_put_rand_seed ( id_id , put_rand_seed )
11654 logical , INTENT(IN) :: put_rand_seed
11655 INTEGER id_id
11656 CHARACTER*80 emess
11657 IF ( id_id .NE. 1 ) THEN
11658 call wrf_debug(1,&
11659 'WARNING in nl_set_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
11660 ENDIF
11661 model_config_rec%put_rand_seed = put_rand_seed
11662 RETURN
11663 END SUBROUTINE nl_set_put_rand_seed
11664 SUBROUTINE nl_set_omb_set_rand ( id_id , omb_set_rand )
11665 logical , INTENT(IN) :: omb_set_rand
11666 INTEGER id_id
11667 CHARACTER*80 emess
11668 IF ( id_id .NE. 1 ) THEN
11669 call wrf_debug(1,&
11670 'WARNING in nl_set_omb_set_rand: omb_set_rand applies to all domains. First arg ignored.')
11671 ENDIF
11672 model_config_rec%omb_set_rand = omb_set_rand
11673 RETURN
11674 END SUBROUTINE nl_set_omb_set_rand
11675 SUBROUTINE nl_set_omb_add_noise ( id_id , omb_add_noise )
11676 logical , INTENT(IN) :: omb_add_noise
11677 INTEGER id_id
11678 CHARACTER*80 emess
11679 IF ( id_id .NE. 1 ) THEN
11680 call wrf_debug(1,&
11681 'WARNING in nl_set_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
11682 ENDIF
11683 model_config_rec%omb_add_noise = omb_add_noise
11684 RETURN
11685 END SUBROUTINE nl_set_omb_add_noise
11686 SUBROUTINE nl_set_obs_qc_pointer ( id_id , obs_qc_pointer )
11687 integer , INTENT(IN) :: obs_qc_pointer
11688 INTEGER id_id
11689 CHARACTER*80 emess
11690 IF ( id_id .NE. 1 ) THEN
11691 call wrf_debug(1,&
11692 'WARNING in nl_set_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
11693 ENDIF
11694 model_config_rec%obs_qc_pointer = obs_qc_pointer
11695 RETURN
11696 END SUBROUTINE nl_set_obs_qc_pointer
11697 SUBROUTINE nl_set_max_sound_input ( id_id , max_sound_input )
11698 integer , INTENT(IN) :: max_sound_input
11699 INTEGER id_id
11700 CHARACTER*80 emess
11701 IF ( id_id .NE. 1 ) THEN
11702 call wrf_debug(1,&
11703 'WARNING in nl_set_max_sound_input: max_sound_input applies to all domains. First arg ignored.')
11704 ENDIF
11705 model_config_rec%max_sound_input = max_sound_input
11706 RETURN
11707 END SUBROUTINE nl_set_max_sound_input
11708 SUBROUTINE nl_set_max_synop_input ( id_id , max_synop_input )
11709 integer , INTENT(IN) :: max_synop_input
11710 INTEGER id_id
11711 CHARACTER*80 emess
11712 IF ( id_id .NE. 1 ) THEN
11713 call wrf_debug(1,&
11714 'WARNING in nl_set_max_synop_input: max_synop_input applies to all domains. First arg ignored.')
11715 ENDIF
11716 model_config_rec%max_synop_input = max_synop_input
11717 RETURN
11718 END SUBROUTINE nl_set_max_synop_input
11719 SUBROUTINE nl_set_max_geoamv_input ( id_id , max_geoamv_input )
11720 integer , INTENT(IN) :: max_geoamv_input
11721 INTEGER id_id
11722 CHARACTER*80 emess
11723 IF ( id_id .NE. 1 ) THEN
11724 call wrf_debug(1,&
11725 'WARNING in nl_set_max_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
11726 ENDIF
11727 model_config_rec%max_geoamv_input = max_geoamv_input
11728 RETURN
11729 END SUBROUTINE nl_set_max_geoamv_input
11730 SUBROUTINE nl_set_max_polaramv_input ( id_id , max_polaramv_input )
11731 integer , INTENT(IN) :: max_polaramv_input
11732 INTEGER id_id
11733 CHARACTER*80 emess
11734 IF ( id_id .NE. 1 ) THEN
11735 call wrf_debug(1,&
11736 'WARNING in nl_set_max_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
11737 ENDIF
11738 model_config_rec%max_polaramv_input = max_polaramv_input
11739 RETURN
11740 END SUBROUTINE nl_set_max_polaramv_input
11741 SUBROUTINE nl_set_max_airep_input ( id_id , max_airep_input )
11742 integer , INTENT(IN) :: max_airep_input
11743 INTEGER id_id
11744 CHARACTER*80 emess
11745 IF ( id_id .NE. 1 ) THEN
11746 call wrf_debug(1,&
11747 'WARNING in nl_set_max_airep_input: max_airep_input applies to all domains. First arg ignored.')
11748 ENDIF
11749 model_config_rec%max_airep_input = max_airep_input
11750 RETURN
11751 END SUBROUTINE nl_set_max_airep_input
11752 SUBROUTINE nl_set_max_satem_input ( id_id , max_satem_input )
11753 integer , INTENT(IN) :: max_satem_input
11754 INTEGER id_id
11755 CHARACTER*80 emess
11756 IF ( id_id .NE. 1 ) THEN
11757 call wrf_debug(1,&
11758 'WARNING in nl_set_max_satem_input: max_satem_input applies to all domains. First arg ignored.')
11759 ENDIF
11760 model_config_rec%max_satem_input = max_satem_input
11761 RETURN
11762 END SUBROUTINE nl_set_max_satem_input
11763 SUBROUTINE nl_set_max_pilot_input ( id_id , max_pilot_input )
11764 integer , INTENT(IN) :: max_pilot_input
11765 INTEGER id_id
11766 CHARACTER*80 emess
11767 IF ( id_id .NE. 1 ) THEN
11768 call wrf_debug(1,&
11769 'WARNING in nl_set_max_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
11770 ENDIF
11771 model_config_rec%max_pilot_input = max_pilot_input
11772 RETURN
11773 END SUBROUTINE nl_set_max_pilot_input
11774 SUBROUTINE nl_set_max_radar_input ( id_id , max_radar_input )
11775 integer , INTENT(IN) :: max_radar_input
11776 INTEGER id_id
11777 CHARACTER*80 emess
11778 IF ( id_id .NE. 1 ) THEN
11779 call wrf_debug(1,&
11780 'WARNING in nl_set_max_radar_input: max_radar_input applies to all domains. First arg ignored.')
11781 ENDIF
11782 model_config_rec%max_radar_input = max_radar_input
11783 RETURN
11784 END SUBROUTINE nl_set_max_radar_input
11785 SUBROUTINE nl_set_max_metar_input ( id_id , max_metar_input )
11786 integer , INTENT(IN) :: max_metar_input
11787 INTEGER id_id
11788 CHARACTER*80 emess
11789 IF ( id_id .NE. 1 ) THEN
11790 call wrf_debug(1,&
11791 'WARNING in nl_set_max_metar_input: max_metar_input applies to all domains. First arg ignored.')
11792 ENDIF
11793 model_config_rec%max_metar_input = max_metar_input
11794 RETURN
11795 END SUBROUTINE nl_set_max_metar_input
11796 SUBROUTINE nl_set_max_gpspw_input ( id_id , max_gpspw_input )
11797 integer , INTENT(IN) :: max_gpspw_input
11798 INTEGER id_id
11799 CHARACTER*80 emess
11800 IF ( id_id .NE. 1 ) THEN
11801 call wrf_debug(1,&
11802 'WARNING in nl_set_max_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
11803 ENDIF
11804 model_config_rec%max_gpspw_input = max_gpspw_input
11805 RETURN
11806 END SUBROUTINE nl_set_max_gpspw_input
11807 SUBROUTINE nl_set_max_ships_input ( id_id , max_ships_input )
11808 integer , INTENT(IN) :: max_ships_input
11809 INTEGER id_id
11810 CHARACTER*80 emess
11811 IF ( id_id .NE. 1 ) THEN
11812 call wrf_debug(1,&
11813 'WARNING in nl_set_max_ships_input: max_ships_input applies to all domains. First arg ignored.')
11814 ENDIF
11815 model_config_rec%max_ships_input = max_ships_input
11816 RETURN
11817 END SUBROUTINE nl_set_max_ships_input
11818 SUBROUTINE nl_set_max_profiler_input ( id_id , max_profiler_input )
11819 integer , INTENT(IN) :: max_profiler_input
11820 INTEGER id_id
11821 CHARACTER*80 emess
11822 IF ( id_id .NE. 1 ) THEN
11823 call wrf_debug(1,&
11824 'WARNING in nl_set_max_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
11825 ENDIF
11826 model_config_rec%max_profiler_input = max_profiler_input
11827 RETURN
11828 END SUBROUTINE nl_set_max_profiler_input
11829 SUBROUTINE nl_set_max_bogus_input ( id_id , max_bogus_input )
11830 integer , INTENT(IN) :: max_bogus_input
11831 INTEGER id_id
11832 CHARACTER*80 emess
11833 IF ( id_id .NE. 1 ) THEN
11834 call wrf_debug(1,&
11835 'WARNING in nl_set_max_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
11836 ENDIF
11837 model_config_rec%max_bogus_input = max_bogus_input
11838 RETURN
11839 END SUBROUTINE nl_set_max_bogus_input
11840 SUBROUTINE nl_set_max_buoy_input ( id_id , max_buoy_input )
11841 integer , INTENT(IN) :: max_buoy_input
11842 INTEGER id_id
11843 CHARACTER*80 emess
11844 IF ( id_id .NE. 1 ) THEN
11845 call wrf_debug(1,&
11846 'WARNING in nl_set_max_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
11847 ENDIF
11848 model_config_rec%max_buoy_input = max_buoy_input
11849 RETURN
11850 END SUBROUTINE nl_set_max_buoy_input
11851 SUBROUTINE nl_set_max_ssmi_ret_input ( id_id , max_ssmi_ret_input )
11852 integer , INTENT(IN) :: max_ssmi_ret_input
11853 INTEGER id_id
11854 CHARACTER*80 emess
11855 IF ( id_id .NE. 1 ) THEN
11856 call wrf_debug(1,&
11857 'WARNING in nl_set_max_ssmi_ret_input: max_ssmi_ret_input applies to all domains. First arg ignored.')
11858 ENDIF
11859 model_config_rec%max_ssmi_ret_input = max_ssmi_ret_input
11860 RETURN
11861 END SUBROUTINE nl_set_max_ssmi_ret_input
11862 SUBROUTINE nl_set_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
11863 integer , INTENT(IN) :: max_ssmi_tb_input
11864 INTEGER id_id
11865 CHARACTER*80 emess
11866 IF ( id_id .NE. 1 ) THEN
11867 call wrf_debug(1,&
11868 'WARNING in nl_set_max_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
11869 ENDIF
11870 model_config_rec%max_ssmi_tb_input = max_ssmi_tb_input
11871 RETURN
11872 END SUBROUTINE nl_set_max_ssmi_tb_input
11873 SUBROUTINE nl_set_max_ssmt1_input ( id_id , max_ssmt1_input )
11874 integer , INTENT(IN) :: max_ssmt1_input
11875 INTEGER id_id
11876 CHARACTER*80 emess
11877 IF ( id_id .NE. 1 ) THEN
11878 call wrf_debug(1,&
11879 'WARNING in nl_set_max_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
11880 ENDIF
11881 model_config_rec%max_ssmt1_input = max_ssmt1_input
11882 RETURN
11883 END SUBROUTINE nl_set_max_ssmt1_input
11884 SUBROUTINE nl_set_max_ssmt2_input ( id_id , max_ssmt2_input )
11885 integer , INTENT(IN) :: max_ssmt2_input
11886 INTEGER id_id
11887 CHARACTER*80 emess
11888 IF ( id_id .NE. 1 ) THEN
11889 call wrf_debug(1,&
11890 'WARNING in nl_set_max_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
11891 ENDIF
11892 model_config_rec%max_ssmt2_input = max_ssmt2_input
11893 RETURN
11894 END SUBROUTINE nl_set_max_ssmt2_input
11895 SUBROUTINE nl_set_max_qscat_input ( id_id , max_qscat_input )
11896 integer , INTENT(IN) :: max_qscat_input
11897 INTEGER id_id
11898 CHARACTER*80 emess
11899 IF ( id_id .NE. 1 ) THEN
11900 call wrf_debug(1,&
11901 'WARNING in nl_set_max_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
11902 ENDIF
11903 model_config_rec%max_qscat_input = max_qscat_input
11904 RETURN
11905 END SUBROUTINE nl_set_max_qscat_input
11906 SUBROUTINE nl_set_max_gpsref_input ( id_id , max_gpsref_input )
11907 integer , INTENT(IN) :: max_gpsref_input
11908 INTEGER id_id
11909 CHARACTER*80 emess
11910 IF ( id_id .NE. 1 ) THEN
11911 call wrf_debug(1,&
11912 'WARNING in nl_set_max_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
11913 ENDIF
11914 model_config_rec%max_gpsref_input = max_gpsref_input
11915 RETURN
11916 END SUBROUTINE nl_set_max_gpsref_input
11917 SUBROUTINE nl_set_max_airsret_input ( id_id , max_airsret_input )
11918 integer , INTENT(IN) :: max_airsret_input
11919 INTEGER id_id
11920 CHARACTER*80 emess
11921 IF ( id_id .NE. 1 ) THEN
11922 call wrf_debug(1,&
11923 'WARNING in nl_set_max_airsret_input: max_airsret_input applies to all domains. First arg ignored.')
11924 ENDIF
11925 model_config_rec%max_airsret_input = max_airsret_input
11926 RETURN
11927 END SUBROUTINE nl_set_max_airsret_input
11928 SUBROUTINE nl_set_max_tovs_input ( id_id , max_tovs_input )
11929 integer , INTENT(IN) :: max_tovs_input
11930 INTEGER id_id
11931 CHARACTER*80 emess
11932 IF ( id_id .NE. 1 ) THEN
11933 call wrf_debug(1,&
11934 'WARNING in nl_set_max_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
11935 ENDIF
11936 model_config_rec%max_tovs_input = max_tovs_input
11937 RETURN
11938 END SUBROUTINE nl_set_max_tovs_input
11939 SUBROUTINE nl_set_report_start ( id_id , report_start )
11940 integer , INTENT(IN) :: report_start
11941 INTEGER id_id
11942 CHARACTER*80 emess
11943 IF ( id_id .NE. 1 ) THEN
11944 call wrf_debug(1,&
11945 'WARNING in nl_set_report_start: report_start applies to all domains. First arg ignored.')
11946 ENDIF
11947 model_config_rec%report_start = report_start
11948 RETURN
11949 END SUBROUTINE nl_set_report_start
11950 SUBROUTINE nl_set_report_end ( id_id , report_end )
11951 integer , INTENT(IN) :: report_end
11952 INTEGER id_id
11953 CHARACTER*80 emess
11954 IF ( id_id .NE. 1 ) THEN
11955 call wrf_debug(1,&
11956 'WARNING in nl_set_report_end: report_end applies to all domains. First arg ignored.')
11957 ENDIF
11958 model_config_rec%report_end = report_end
11959 RETURN
11960 END SUBROUTINE nl_set_report_end
11961 SUBROUTINE nl_set_tovs_start ( id_id , tovs_start )
11962 integer , INTENT(IN) :: tovs_start
11963 INTEGER id_id
11964 CHARACTER*80 emess
11965 IF ( id_id .NE. 1 ) THEN
11966 call wrf_debug(1,&
11967 'WARNING in nl_set_tovs_start: tovs_start applies to all domains. First arg ignored.')
11968 ENDIF
11969 model_config_rec%tovs_start = tovs_start
11970 RETURN
11971 END SUBROUTINE nl_set_tovs_start
11972 SUBROUTINE nl_set_tovs_end ( id_id , tovs_end )
11973 integer , INTENT(IN) :: tovs_end
11974 INTEGER id_id
11975 CHARACTER*80 emess
11976 IF ( id_id .NE. 1 ) THEN
11977 call wrf_debug(1,&
11978 'WARNING in nl_set_tovs_end: tovs_end applies to all domains. First arg ignored.')
11979 ENDIF
11980 model_config_rec%tovs_end = tovs_end
11981 RETURN
11982 END SUBROUTINE nl_set_tovs_end
11983 SUBROUTINE nl_set_max_ext_its ( id_id , max_ext_its )
11984 integer , INTENT(IN) :: max_ext_its
11985 INTEGER id_id
11986 CHARACTER*80 emess
11987 IF ( id_id .NE. 1 ) THEN
11988 call wrf_debug(1,&
11989 'WARNING in nl_set_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
11990 ENDIF
11991 model_config_rec%max_ext_its = max_ext_its
11992 RETURN
11993 END SUBROUTINE nl_set_max_ext_its
11994 SUBROUTINE nl_set_ntmax ( id_id , ntmax )
11995 integer , INTENT(IN) :: ntmax
11996 INTEGER id_id
11997 CHARACTER*80 emess
11998 IF ( id_id .NE. 1 ) THEN
11999 call wrf_debug(1,&
12000 'WARNING in nl_set_ntmax: ntmax applies to all domains. First arg ignored.')
12001 ENDIF
12002 model_config_rec%ntmax = ntmax
12003 RETURN
12004 END SUBROUTINE nl_set_ntmax
12005 SUBROUTINE nl_set_nsave ( id_id , nsave )
12006 integer , INTENT(IN) :: nsave
12007 INTEGER id_id
12008 CHARACTER*80 emess
12009 IF ( id_id .NE. 1 ) THEN
12010 call wrf_debug(1,&
12011 'WARNING in nl_set_nsave: nsave applies to all domains. First arg ignored.')
12012 ENDIF
12013 model_config_rec%nsave = nsave
12014 RETURN
12015 END SUBROUTINE nl_set_nsave
12016 SUBROUTINE nl_set_write_switch ( id_id , write_switch )
12017 logical , INTENT(IN) :: write_switch
12018 INTEGER id_id
12019 CHARACTER*80 emess
12020 IF ( id_id .NE. 1 ) THEN
12021 call wrf_debug(1,&
12022 'WARNING in nl_set_write_switch: write_switch applies to all domains. First arg ignored.')
12023 ENDIF
12024 model_config_rec%write_switch = write_switch
12025 RETURN
12026 END SUBROUTINE nl_set_write_switch
12027 SUBROUTINE nl_set_write_interval ( id_id , write_interval )
12028 integer , INTENT(IN) :: write_interval
12029 INTEGER id_id
12030 CHARACTER*80 emess
12031 IF ( id_id .NE. 1 ) THEN
12032 call wrf_debug(1,&
12033 'WARNING in nl_set_write_interval: write_interval applies to all domains. First arg ignored.')
12034 ENDIF
12035 model_config_rec%write_interval = write_interval
12036 RETURN
12037 END SUBROUTINE nl_set_write_interval
12038 SUBROUTINE nl_set_eps ( id_id , eps )
12039 real , INTENT(IN) :: eps
12040 INTEGER id_id
12041 CHARACTER*80 emess
12042 model_config_rec%eps(id_id) = eps
12043 RETURN
12044 END SUBROUTINE nl_set_eps
12045 SUBROUTINE nl_set_rf_passes ( id_id , rf_passes )
12046 integer , INTENT(IN) :: rf_passes
12047 INTEGER id_id
12048 CHARACTER*80 emess
12049 IF ( id_id .NE. 1 ) THEN
12050 call wrf_debug(1,&
12051 'WARNING in nl_set_rf_passes: rf_passes applies to all domains. First arg ignored.')
12052 ENDIF
12053 model_config_rec%rf_passes = rf_passes
12054 RETURN
12055 END SUBROUTINE nl_set_rf_passes
12056 SUBROUTINE nl_set_var_scaling1 ( id_id , var_scaling1 )
12057 real , INTENT(IN) :: var_scaling1
12058 INTEGER id_id
12059 CHARACTER*80 emess
12060 IF ( id_id .NE. 1 ) THEN
12061 call wrf_debug(1,&
12062 'WARNING in nl_set_var_scaling1: var_scaling1 applies to all domains. First arg ignored.')
12063 ENDIF
12064 model_config_rec%var_scaling1 = var_scaling1
12065 RETURN
12066 END SUBROUTINE nl_set_var_scaling1
12067 SUBROUTINE nl_set_var_scaling2 ( id_id , var_scaling2 )
12068 real , INTENT(IN) :: var_scaling2
12069 INTEGER id_id
12070 CHARACTER*80 emess
12071 IF ( id_id .NE. 1 ) THEN
12072 call wrf_debug(1,&
12073 'WARNING in nl_set_var_scaling2: var_scaling2 applies to all domains. First arg ignored.')
12074 ENDIF
12075 model_config_rec%var_scaling2 = var_scaling2
12076 RETURN
12077 END SUBROUTINE nl_set_var_scaling2
12078 SUBROUTINE nl_set_var_scaling3 ( id_id , var_scaling3 )
12079 real , INTENT(IN) :: var_scaling3
12080 INTEGER id_id
12081 CHARACTER*80 emess
12082 IF ( id_id .NE. 1 ) THEN
12083 call wrf_debug(1,&
12084 'WARNING in nl_set_var_scaling3: var_scaling3 applies to all domains. First arg ignored.')
12085 ENDIF
12086 model_config_rec%var_scaling3 = var_scaling3
12087 RETURN
12088 END SUBROUTINE nl_set_var_scaling3
12089 SUBROUTINE nl_set_var_scaling4 ( id_id , var_scaling4 )
12090 real , INTENT(IN) :: var_scaling4
12091 INTEGER id_id
12092 CHARACTER*80 emess
12093 IF ( id_id .NE. 1 ) THEN
12094 call wrf_debug(1,&
12095 'WARNING in nl_set_var_scaling4: var_scaling4 applies to all domains. First arg ignored.')
12096 ENDIF
12097 model_config_rec%var_scaling4 = var_scaling4
12098 RETURN
12099 END SUBROUTINE nl_set_var_scaling4
12100 SUBROUTINE nl_set_var_scaling5 ( id_id , var_scaling5 )
12101 real , INTENT(IN) :: var_scaling5
12102 INTEGER id_id
12103 CHARACTER*80 emess
12104 IF ( id_id .NE. 1 ) THEN
12105 call wrf_debug(1,&
12106 'WARNING in nl_set_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
12107 ENDIF
12108 model_config_rec%var_scaling5 = var_scaling5
12109 RETURN
12110 END SUBROUTINE nl_set_var_scaling5
12111 SUBROUTINE nl_set_len_scaling1 ( id_id , len_scaling1 )
12112 real , INTENT(IN) :: len_scaling1
12113 INTEGER id_id
12114 CHARACTER*80 emess
12115 IF ( id_id .NE. 1 ) THEN
12116 call wrf_debug(1,&
12117 'WARNING in nl_set_len_scaling1: len_scaling1 applies to all domains. First arg ignored.')
12118 ENDIF
12119 model_config_rec%len_scaling1 = len_scaling1
12120 RETURN
12121 END SUBROUTINE nl_set_len_scaling1
12122 SUBROUTINE nl_set_len_scaling2 ( id_id , len_scaling2 )
12123 real , INTENT(IN) :: len_scaling2
12124 INTEGER id_id
12125 CHARACTER*80 emess
12126 IF ( id_id .NE. 1 ) THEN
12127 call wrf_debug(1,&
12128 'WARNING in nl_set_len_scaling2: len_scaling2 applies to all domains. First arg ignored.')
12129 ENDIF
12130 model_config_rec%len_scaling2 = len_scaling2
12131 RETURN
12132 END SUBROUTINE nl_set_len_scaling2
12133 SUBROUTINE nl_set_len_scaling3 ( id_id , len_scaling3 )
12134 real , INTENT(IN) :: len_scaling3
12135 INTEGER id_id
12136 CHARACTER*80 emess
12137 IF ( id_id .NE. 1 ) THEN
12138 call wrf_debug(1,&
12139 'WARNING in nl_set_len_scaling3: len_scaling3 applies to all domains. First arg ignored.')
12140 ENDIF
12141 model_config_rec%len_scaling3 = len_scaling3
12142 RETURN
12143 END SUBROUTINE nl_set_len_scaling3
12144 SUBROUTINE nl_set_len_scaling4 ( id_id , len_scaling4 )
12145 real , INTENT(IN) :: len_scaling4
12146 INTEGER id_id
12147 CHARACTER*80 emess
12148 IF ( id_id .NE. 1 ) THEN
12149 call wrf_debug(1,&
12150 'WARNING in nl_set_len_scaling4: len_scaling4 applies to all domains. First arg ignored.')
12151 ENDIF
12152 model_config_rec%len_scaling4 = len_scaling4
12153 RETURN
12154 END SUBROUTINE nl_set_len_scaling4
12155 SUBROUTINE nl_set_len_scaling5 ( id_id , len_scaling5 )
12156 real , INTENT(IN) :: len_scaling5
12157 INTEGER id_id
12158 CHARACTER*80 emess
12159 IF ( id_id .NE. 1 ) THEN
12160 call wrf_debug(1,&
12161 'WARNING in nl_set_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
12162 ENDIF
12163 model_config_rec%len_scaling5 = len_scaling5
12164 RETURN
12165 END SUBROUTINE nl_set_len_scaling5
12166 SUBROUTINE nl_set_jb_factor ( id_id , jb_factor )
12167 real , INTENT(IN) :: jb_factor
12168 INTEGER id_id
12169 CHARACTER*80 emess
12170 IF ( id_id .NE. 1 ) THEN
12171 call wrf_debug(1,&
12172 'WARNING in nl_set_jb_factor: jb_factor applies to all domains. First arg ignored.')
12173 ENDIF
12174 model_config_rec%jb_factor = jb_factor
12175 RETURN
12176 END SUBROUTINE nl_set_jb_factor
12177 SUBROUTINE nl_set_je_factor ( id_id , je_factor )
12178 real , INTENT(IN) :: je_factor
12179 INTEGER id_id
12180 CHARACTER*80 emess
12181 IF ( id_id .NE. 1 ) THEN
12182 call wrf_debug(1,&
12183 'WARNING in nl_set_je_factor: je_factor applies to all domains. First arg ignored.')
12184 ENDIF
12185 model_config_rec%je_factor = je_factor
12186 RETURN
12187 END SUBROUTINE nl_set_je_factor
12188 SUBROUTINE nl_set_power_truncation ( id_id , power_truncation )
12189 real , INTENT(IN) :: power_truncation
12190 INTEGER id_id
12191 CHARACTER*80 emess
12192 IF ( id_id .NE. 1 ) THEN
12193 call wrf_debug(1,&
12194 'WARNING in nl_set_power_truncation: power_truncation applies to all domains. First arg ignored.')
12195 ENDIF
12196 model_config_rec%power_truncation = power_truncation
12197 RETURN
12198 END SUBROUTINE nl_set_power_truncation
12199 SUBROUTINE nl_set_def_sub_domain ( id_id , def_sub_domain )
12200 logical , INTENT(IN) :: def_sub_domain
12201 INTEGER id_id
12202 CHARACTER*80 emess
12203 IF ( id_id .NE. 1 ) THEN
12204 call wrf_debug(1,&
12205 'WARNING in nl_set_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
12206 ENDIF
12207 model_config_rec%def_sub_domain = def_sub_domain
12208 RETURN
12209 END SUBROUTINE nl_set_def_sub_domain
12210 SUBROUTINE nl_set_x_start_sub_domain ( id_id , x_start_sub_domain )
12211 real , INTENT(IN) :: x_start_sub_domain
12212 INTEGER id_id
12213 CHARACTER*80 emess
12214 IF ( id_id .NE. 1 ) THEN
12215 call wrf_debug(1,&
12216 'WARNING in nl_set_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
12217 ENDIF
12218 model_config_rec%x_start_sub_domain = x_start_sub_domain
12219 RETURN
12220 END SUBROUTINE nl_set_x_start_sub_domain
12221 SUBROUTINE nl_set_y_start_sub_domain ( id_id , y_start_sub_domain )
12222 real , INTENT(IN) :: y_start_sub_domain
12223 INTEGER id_id
12224 CHARACTER*80 emess
12225 IF ( id_id .NE. 1 ) THEN
12226 call wrf_debug(1,&
12227 'WARNING in nl_set_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
12228 ENDIF
12229 model_config_rec%y_start_sub_domain = y_start_sub_domain
12230 RETURN
12231 END SUBROUTINE nl_set_y_start_sub_domain
12232 SUBROUTINE nl_set_x_end_sub_domain ( id_id , x_end_sub_domain )
12233 real , INTENT(IN) :: x_end_sub_domain
12234 INTEGER id_id
12235 CHARACTER*80 emess
12236 IF ( id_id .NE. 1 ) THEN
12237 call wrf_debug(1,&
12238 'WARNING in nl_set_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
12239 ENDIF
12240 model_config_rec%x_end_sub_domain = x_end_sub_domain
12241 RETURN
12242 END SUBROUTINE nl_set_x_end_sub_domain
12243 SUBROUTINE nl_set_y_end_sub_domain ( id_id , y_end_sub_domain )
12244 real , INTENT(IN) :: y_end_sub_domain
12245 INTEGER id_id
12246 CHARACTER*80 emess
12247 IF ( id_id .NE. 1 ) THEN
12248 call wrf_debug(1,&
12249 'WARNING in nl_set_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
12250 ENDIF
12251 model_config_rec%y_end_sub_domain = y_end_sub_domain
12252 RETURN
12253 END SUBROUTINE nl_set_y_end_sub_domain
12254 SUBROUTINE nl_set_stdout ( id_id , stdout )
12255 integer , INTENT(IN) :: stdout
12256 INTEGER id_id
12257 CHARACTER*80 emess
12258 IF ( id_id .NE. 1 ) THEN
12259 call wrf_debug(1,&
12260 'WARNING in nl_set_stdout: stdout applies to all domains. First arg ignored.')
12261 ENDIF
12262 model_config_rec%stdout = stdout
12263 RETURN
12264 END SUBROUTINE nl_set_stdout
12265 SUBROUTINE nl_set_stderr ( id_id , stderr )
12266 integer , INTENT(IN) :: stderr
12267 INTEGER id_id
12268 CHARACTER*80 emess
12269 IF ( id_id .NE. 1 ) THEN
12270 call wrf_debug(1,&
12271 'WARNING in nl_set_stderr: stderr applies to all domains. First arg ignored.')
12272 ENDIF
12273 model_config_rec%stderr = stderr
12274 RETURN
12275 END SUBROUTINE nl_set_stderr
12276 SUBROUTINE nl_set_trace_unit ( id_id , trace_unit )
12277 integer , INTENT(IN) :: trace_unit
12278 INTEGER id_id
12279 CHARACTER*80 emess
12280 IF ( id_id .NE. 1 ) THEN
12281 call wrf_debug(1,&
12282 'WARNING in nl_set_trace_unit: trace_unit applies to all domains. First arg ignored.')
12283 ENDIF
12284 model_config_rec%trace_unit = trace_unit
12285 RETURN
12286 END SUBROUTINE nl_set_trace_unit
12287 SUBROUTINE nl_set_trace_pe ( id_id , trace_pe )
12288 integer , INTENT(IN) :: trace_pe
12289 INTEGER id_id
12290 CHARACTER*80 emess
12291 IF ( id_id .NE. 1 ) THEN
12292 call wrf_debug(1,&
12293 'WARNING in nl_set_trace_pe: trace_pe applies to all domains. First arg ignored.')
12294 ENDIF
12295 model_config_rec%trace_pe = trace_pe
12296 RETURN
12297 END SUBROUTINE nl_set_trace_pe
12298 SUBROUTINE nl_set_trace_repeat_head ( id_id , trace_repeat_head )
12299 integer , INTENT(IN) :: trace_repeat_head
12300 INTEGER id_id
12301 CHARACTER*80 emess
12302 IF ( id_id .NE. 1 ) THEN
12303 call wrf_debug(1,&
12304 'WARNING in nl_set_trace_repeat_head: trace_repeat_head applies to all domains. First arg ignored.')
12305 ENDIF
12306 model_config_rec%trace_repeat_head = trace_repeat_head
12307 RETURN
12308 END SUBROUTINE nl_set_trace_repeat_head
12309 SUBROUTINE nl_set_trace_repeat_body ( id_id , trace_repeat_body )
12310 integer , INTENT(IN) :: trace_repeat_body
12311 INTEGER id_id
12312 CHARACTER*80 emess
12313 IF ( id_id .NE. 1 ) THEN
12314 call wrf_debug(1,&
12315 'WARNING in nl_set_trace_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
12316 ENDIF
12317 model_config_rec%trace_repeat_body = trace_repeat_body
12318 RETURN
12319 END SUBROUTINE nl_set_trace_repeat_body
12320 SUBROUTINE nl_set_trace_max_depth ( id_id , trace_max_depth )
12321 integer , INTENT(IN) :: trace_max_depth
12322 INTEGER id_id
12323 CHARACTER*80 emess
12324 IF ( id_id .NE. 1 ) THEN
12325 call wrf_debug(1,&
12326 'WARNING in nl_set_trace_max_depth: trace_max_depth applies to all domains. First arg ignored.')
12327 ENDIF
12328 model_config_rec%trace_max_depth = trace_max_depth
12329 RETURN
12330 END SUBROUTINE nl_set_trace_max_depth
12331 SUBROUTINE nl_set_trace_use ( id_id , trace_use )
12332 logical , INTENT(IN) :: trace_use
12333 INTEGER id_id
12334 CHARACTER*80 emess
12335 IF ( id_id .NE. 1 ) THEN
12336 call wrf_debug(1,&
12337 'WARNING in nl_set_trace_use: trace_use applies to all domains. First arg ignored.')
12338 ENDIF
12339 model_config_rec%trace_use = trace_use
12340 RETURN
12341 END SUBROUTINE nl_set_trace_use
12342 SUBROUTINE nl_set_trace_use_frequent ( id_id , trace_use_frequent )
12343 logical , INTENT(IN) :: trace_use_frequent
12344 INTEGER id_id
12345 CHARACTER*80 emess
12346 IF ( id_id .NE. 1 ) THEN
12347 call wrf_debug(1,&
12348 'WARNING in nl_set_trace_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
12349 ENDIF
12350 model_config_rec%trace_use_frequent = trace_use_frequent
12351 RETURN
12352 END SUBROUTINE nl_set_trace_use_frequent
12353 SUBROUTINE nl_set_trace_memory ( id_id , trace_memory )
12354 logical , INTENT(IN) :: trace_memory
12355 INTEGER id_id
12356 CHARACTER*80 emess
12357 IF ( id_id .NE. 1 ) THEN
12358 call wrf_debug(1,&
12359 'WARNING in nl_set_trace_memory: trace_memory applies to all domains. First arg ignored.')
12360 ENDIF
12361 model_config_rec%trace_memory = trace_memory
12362 RETURN
12363 END SUBROUTINE nl_set_trace_memory
12364 SUBROUTINE nl_set_trace_all_pes ( id_id , trace_all_pes )
12365 logical , INTENT(IN) :: trace_all_pes
12366 INTEGER id_id
12367 CHARACTER*80 emess
12368 IF ( id_id .NE. 1 ) THEN
12369 call wrf_debug(1,&
12370 'WARNING in nl_set_trace_all_pes: trace_all_pes applies to all domains. First arg ignored.')
12371 ENDIF
12372 model_config_rec%trace_all_pes = trace_all_pes
12373 RETURN
12374 END SUBROUTINE nl_set_trace_all_pes
12375 SUBROUTINE nl_set_trace_csv ( id_id , trace_csv )
12376 logical , INTENT(IN) :: trace_csv
12377 INTEGER id_id
12378 CHARACTER*80 emess
12379 IF ( id_id .NE. 1 ) THEN
12380 call wrf_debug(1,&
12381 'WARNING in nl_set_trace_csv: trace_csv applies to all domains. First arg ignored.')
12382 ENDIF
12383 model_config_rec%trace_csv = trace_csv
12384 RETURN
12385 END SUBROUTINE nl_set_trace_csv
12386 SUBROUTINE nl_set_use_html ( id_id , use_html )
12387 logical , INTENT(IN) :: use_html
12388 INTEGER id_id
12389 CHARACTER*80 emess
12390 IF ( id_id .NE. 1 ) THEN
12391 call wrf_debug(1,&
12392 'WARNING in nl_set_use_html: use_html applies to all domains. First arg ignored.')
12393 ENDIF
12394 model_config_rec%use_html = use_html
12395 RETURN
12396 END SUBROUTINE nl_set_use_html
12397 SUBROUTINE nl_set_warnings_are_fatal ( id_id , warnings_are_fatal )
12398 logical , INTENT(IN) :: warnings_are_fatal
12399 INTEGER id_id
12400 CHARACTER*80 emess
12401 IF ( id_id .NE. 1 ) THEN
12402 call wrf_debug(1,&
12403 'WARNING in nl_set_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
12404 ENDIF
12405 model_config_rec%warnings_are_fatal = warnings_are_fatal
12406 RETURN
12407 END SUBROUTINE nl_set_warnings_are_fatal
12408 SUBROUTINE nl_set_testing_wrfvar ( id_id , testing_wrfvar )
12409 logical , INTENT(IN) :: testing_wrfvar
12410 INTEGER id_id
12411 CHARACTER*80 emess
12412 IF ( id_id .NE. 1 ) THEN
12413 call wrf_debug(1,&
12414 'WARNING in nl_set_testing_wrfvar: testing_wrfvar applies to all domains. First arg ignored.')
12415 ENDIF
12416 model_config_rec%testing_wrfvar = testing_wrfvar
12417 RETURN
12418 END SUBROUTINE nl_set_testing_wrfvar
12419 SUBROUTINE nl_set_test_transforms ( id_id , test_transforms )
12420 logical , INTENT(IN) :: test_transforms
12421 INTEGER id_id
12422 CHARACTER*80 emess
12423 IF ( id_id .NE. 1 ) THEN
12424 call wrf_debug(1,&
12425 'WARNING in nl_set_test_transforms: test_transforms applies to all domains. First arg ignored.')
12426 ENDIF
12427 model_config_rec%test_transforms = test_transforms
12428 RETURN
12429 END SUBROUTINE nl_set_test_transforms
12430 SUBROUTINE nl_set_test_statistics ( id_id , test_statistics )
12431 logical , INTENT(IN) :: test_statistics
12432 INTEGER id_id
12433 CHARACTER*80 emess
12434 IF ( id_id .NE. 1 ) THEN
12435 call wrf_debug(1,&
12436 'WARNING in nl_set_test_statistics: test_statistics applies to all domains. First arg ignored.')
12437 ENDIF
12438 model_config_rec%test_statistics = test_statistics
12439 RETURN
12440 END SUBROUTINE nl_set_test_statistics
12441 SUBROUTINE nl_set_interpolate_stats ( id_id , interpolate_stats )
12442 logical , INTENT(IN) :: interpolate_stats
12443 INTEGER id_id
12444 CHARACTER*80 emess
12445 IF ( id_id .NE. 1 ) THEN
12446 call wrf_debug(1,&
12447 'WARNING in nl_set_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
12448 ENDIF
12449 model_config_rec%interpolate_stats = interpolate_stats
12450 RETURN
12451 END SUBROUTINE nl_set_interpolate_stats
12452 SUBROUTINE nl_set_testing_dm_exact ( id_id , testing_dm_exact )
12453 logical , INTENT(IN) :: testing_dm_exact
12454 INTEGER id_id
12455 CHARACTER*80 emess
12456 IF ( id_id .NE. 1 ) THEN
12457 call wrf_debug(1,&
12458 'WARNING in nl_set_testing_dm_exact: testing_dm_exact applies to all domains. First arg ignored.')
12459 ENDIF
12460 model_config_rec%testing_dm_exact = testing_dm_exact
12461 RETURN
12462 END SUBROUTINE nl_set_testing_dm_exact
12463 SUBROUTINE nl_set_cv_options_hum ( id_id , cv_options_hum )
12464 integer , INTENT(IN) :: cv_options_hum
12465 INTEGER id_id
12466 CHARACTER*80 emess
12467 IF ( id_id .NE. 1 ) THEN
12468 call wrf_debug(1,&
12469 'WARNING in nl_set_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
12470 ENDIF
12471 model_config_rec%cv_options_hum = cv_options_hum
12472 RETURN
12473 END SUBROUTINE nl_set_cv_options_hum
12474 SUBROUTINE nl_set_check_rh ( id_id , check_rh )
12475 integer , INTENT(IN) :: check_rh
12476 INTEGER id_id
12477 CHARACTER*80 emess
12478 IF ( id_id .NE. 1 ) THEN
12479 call wrf_debug(1,&
12480 'WARNING in nl_set_check_rh: check_rh applies to all domains. First arg ignored.')
12481 ENDIF
12482 model_config_rec%check_rh = check_rh
12483 RETURN
12484 END SUBROUTINE nl_set_check_rh
12485 SUBROUTINE nl_set_set_omb_rand_fac ( id_id , set_omb_rand_fac )
12486 integer , INTENT(IN) :: set_omb_rand_fac
12487 INTEGER id_id
12488 CHARACTER*80 emess
12489 IF ( id_id .NE. 1 ) THEN
12490 call wrf_debug(1,&
12491 'WARNING in nl_set_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
12492 ENDIF
12493 model_config_rec%set_omb_rand_fac = set_omb_rand_fac
12494 RETURN
12495 END SUBROUTINE nl_set_set_omb_rand_fac
12496 SUBROUTINE nl_set_seed_array1 ( id_id , seed_array1 )
12497 integer , INTENT(IN) :: seed_array1
12498 INTEGER id_id
12499 CHARACTER*80 emess
12500 IF ( id_id .NE. 1 ) THEN
12501 call wrf_debug(1,&
12502 'WARNING in nl_set_seed_array1: seed_array1 applies to all domains. First arg ignored.')
12503 ENDIF
12504 model_config_rec%seed_array1 = seed_array1
12505 RETURN
12506 END SUBROUTINE nl_set_seed_array1
12507 SUBROUTINE nl_set_seed_array2 ( id_id , seed_array2 )
12508 integer , INTENT(IN) :: seed_array2
12509 INTEGER id_id
12510 CHARACTER*80 emess
12511 IF ( id_id .NE. 1 ) THEN
12512 call wrf_debug(1,&
12513 'WARNING in nl_set_seed_array2: seed_array2 applies to all domains. First arg ignored.')
12514 ENDIF
12515 model_config_rec%seed_array2 = seed_array2
12516 RETURN
12517 END SUBROUTINE nl_set_seed_array2
12518 SUBROUTINE nl_set_sfc_assi_options ( id_id , sfc_assi_options )
12519 integer , INTENT(IN) :: sfc_assi_options
12520 INTEGER id_id
12521 CHARACTER*80 emess
12522 IF ( id_id .NE. 1 ) THEN
12523 call wrf_debug(1,&
12524 'WARNING in nl_set_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
12525 ENDIF
12526 model_config_rec%sfc_assi_options = sfc_assi_options
12527 RETURN
12528 END SUBROUTINE nl_set_sfc_assi_options
12529 SUBROUTINE nl_set_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
12530 logical , INTENT(IN) :: calculate_cg_cost_fn
12531 INTEGER id_id
12532 CHARACTER*80 emess
12533 IF ( id_id .NE. 1 ) THEN
12534 call wrf_debug(1,&
12535 'WARNING in nl_set_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
12536 ENDIF
12537 model_config_rec%calculate_cg_cost_fn = calculate_cg_cost_fn
12538 RETURN
12539 END SUBROUTINE nl_set_calculate_cg_cost_fn
12540 SUBROUTINE nl_set_write_outer_loop ( id_id , write_outer_loop )
12541 logical , INTENT(IN) :: write_outer_loop
12542 INTEGER id_id
12543 CHARACTER*80 emess
12544 IF ( id_id .NE. 1 ) THEN
12545 call wrf_debug(1,&
12546 'WARNING in nl_set_write_outer_loop: write_outer_loop applies to all domains. First arg ignored.')
12547 ENDIF
12548 model_config_rec%write_outer_loop = write_outer_loop
12549 RETURN
12550 END SUBROUTINE nl_set_write_outer_loop
12551 SUBROUTINE nl_set_lat_stats_option ( id_id , lat_stats_option )
12552 logical , INTENT(IN) :: lat_stats_option
12553 INTEGER id_id
12554 CHARACTER*80 emess
12555 IF ( id_id .NE. 1 ) THEN
12556 call wrf_debug(1,&
12557 'WARNING in nl_set_lat_stats_option: lat_stats_option applies to all domains. First arg ignored.')
12558 ENDIF
12559 model_config_rec%lat_stats_option = lat_stats_option
12560 RETURN
12561 END SUBROUTINE nl_set_lat_stats_option
12562 SUBROUTINE nl_set_as1 ( id_id , as1 )
12563 real , INTENT(IN) :: as1
12564 INTEGER id_id
12565 CHARACTER*80 emess
12566 model_config_rec%as1(id_id) = as1
12567 RETURN
12568 END SUBROUTINE nl_set_as1
12569 SUBROUTINE nl_set_as2 ( id_id , as2 )
12570 real , INTENT(IN) :: as2
12571 INTEGER id_id
12572 CHARACTER*80 emess
12573 model_config_rec%as2(id_id) = as2
12574 RETURN
12575 END SUBROUTINE nl_set_as2
12576 SUBROUTINE nl_set_as3 ( id_id , as3 )
12577 real , INTENT(IN) :: as3
12578 INTEGER id_id
12579 CHARACTER*80 emess
12580 model_config_rec%as3(id_id) = as3
12581 RETURN
12582 END SUBROUTINE nl_set_as3
12583 SUBROUTINE nl_set_as4 ( id_id , as4 )
12584 real , INTENT(IN) :: as4
12585 INTEGER id_id
12586 CHARACTER*80 emess
12587 model_config_rec%as4(id_id) = as4
12588 RETURN
12589 END SUBROUTINE nl_set_as4
12590 SUBROUTINE nl_set_as5 ( id_id , as5 )
12591 real , INTENT(IN) :: as5
12592 INTEGER id_id
12593 CHARACTER*80 emess
12594 model_config_rec%as5(id_id) = as5
12595 RETURN
12596 END SUBROUTINE nl_set_as5
12597 SUBROUTINE nl_set_balance_type ( id_id , balance_type )
12598 integer , INTENT(IN) :: balance_type
12599 INTEGER id_id
12600 CHARACTER*80 emess
12601 IF ( id_id .NE. 1 ) THEN
12602 call wrf_debug(1,&
12603 'WARNING in nl_set_balance_type: balance_type applies to all domains. First arg ignored.')
12604 ENDIF
12605 model_config_rec%balance_type = balance_type
12606 RETURN
12607 END SUBROUTINE nl_set_balance_type
12608 SUBROUTINE nl_set_vert_corr ( id_id , vert_corr )
12609 integer , INTENT(IN) :: vert_corr
12610 INTEGER id_id
12611 CHARACTER*80 emess
12612 IF ( id_id .NE. 1 ) THEN
12613 call wrf_debug(1,&
12614 'WARNING in nl_set_vert_corr: vert_corr applies to all domains. First arg ignored.')
12615 ENDIF
12616 model_config_rec%vert_corr = vert_corr
12617 RETURN
12618 END SUBROUTINE nl_set_vert_corr
12619 SUBROUTINE nl_set_vertical_ip ( id_id , vertical_ip )
12620 integer , INTENT(IN) :: vertical_ip
12621 INTEGER id_id
12622 CHARACTER*80 emess
12623 IF ( id_id .NE. 1 ) THEN
12624 call wrf_debug(1,&
12625 'WARNING in nl_set_vertical_ip: vertical_ip applies to all domains. First arg ignored.')
12626 ENDIF
12627 model_config_rec%vertical_ip = vertical_ip
12628 RETURN
12629 END SUBROUTINE nl_set_vertical_ip
12630 SUBROUTINE nl_set_vert_evalue ( id_id , vert_evalue )
12631 integer , INTENT(IN) :: vert_evalue
12632 INTEGER id_id
12633 CHARACTER*80 emess
12634 IF ( id_id .NE. 1 ) THEN
12635 call wrf_debug(1,&
12636 'WARNING in nl_set_vert_evalue: vert_evalue applies to all domains. First arg ignored.')
12637 ENDIF
12638 model_config_rec%vert_evalue = vert_evalue
12639 RETURN
12640 END SUBROUTINE nl_set_vert_evalue
12641 SUBROUTINE nl_set_max_vert_var1 ( id_id , max_vert_var1 )
12642 real , INTENT(IN) :: max_vert_var1
12643 INTEGER id_id
12644 CHARACTER*80 emess
12645 IF ( id_id .NE. 1 ) THEN
12646 call wrf_debug(1,&
12647 'WARNING in nl_set_max_vert_var1: max_vert_var1 applies to all domains. First arg ignored.')
12648 ENDIF
12649 model_config_rec%max_vert_var1 = max_vert_var1
12650 RETURN
12651 END SUBROUTINE nl_set_max_vert_var1
12652 SUBROUTINE nl_set_max_vert_var2 ( id_id , max_vert_var2 )
12653 real , INTENT(IN) :: max_vert_var2
12654 INTEGER id_id
12655 CHARACTER*80 emess
12656 IF ( id_id .NE. 1 ) THEN
12657 call wrf_debug(1,&
12658 'WARNING in nl_set_max_vert_var2: max_vert_var2 applies to all domains. First arg ignored.')
12659 ENDIF
12660 model_config_rec%max_vert_var2 = max_vert_var2
12661 RETURN
12662 END SUBROUTINE nl_set_max_vert_var2
12663 SUBROUTINE nl_set_max_vert_var3 ( id_id , max_vert_var3 )
12664 real , INTENT(IN) :: max_vert_var3
12665 INTEGER id_id
12666 CHARACTER*80 emess
12667 IF ( id_id .NE. 1 ) THEN
12668 call wrf_debug(1,&
12669 'WARNING in nl_set_max_vert_var3: max_vert_var3 applies to all domains. First arg ignored.')
12670 ENDIF
12671 model_config_rec%max_vert_var3 = max_vert_var3
12672 RETURN
12673 END SUBROUTINE nl_set_max_vert_var3
12674 SUBROUTINE nl_set_max_vert_var4 ( id_id , max_vert_var4 )
12675 real , INTENT(IN) :: max_vert_var4
12676 INTEGER id_id
12677 CHARACTER*80 emess
12678 IF ( id_id .NE. 1 ) THEN
12679 call wrf_debug(1,&
12680 'WARNING in nl_set_max_vert_var4: max_vert_var4 applies to all domains. First arg ignored.')
12681 ENDIF
12682 model_config_rec%max_vert_var4 = max_vert_var4
12683 RETURN
12684 END SUBROUTINE nl_set_max_vert_var4
12685 SUBROUTINE nl_set_max_vert_var5 ( id_id , max_vert_var5 )
12686 real , INTENT(IN) :: max_vert_var5
12687 INTEGER id_id
12688 CHARACTER*80 emess
12689 IF ( id_id .NE. 1 ) THEN
12690 call wrf_debug(1,&
12691 'WARNING in nl_set_max_vert_var5: max_vert_var5 applies to all domains. First arg ignored.')
12692 ENDIF
12693 model_config_rec%max_vert_var5 = max_vert_var5
12694 RETURN
12695 END SUBROUTINE nl_set_max_vert_var5
12696 SUBROUTINE nl_set_rtminit_print ( id_id , rtminit_print )
12697 integer , INTENT(IN) :: rtminit_print
12698 INTEGER id_id
12699 CHARACTER*80 emess
12700 IF ( id_id .NE. 1 ) THEN
12701 call wrf_debug(1,&
12702 'WARNING in nl_set_rtminit_print: rtminit_print applies to all domains. First arg ignored.')
12703 ENDIF
12704 model_config_rec%rtminit_print = rtminit_print
12705 RETURN
12706 END SUBROUTINE nl_set_rtminit_print
12707 SUBROUTINE nl_set_rtminit_nsensor ( id_id , rtminit_nsensor )
12708 integer , INTENT(IN) :: rtminit_nsensor
12709 INTEGER id_id
12710 CHARACTER*80 emess
12711 IF ( id_id .NE. 1 ) THEN
12712 call wrf_debug(1,&
12713 'WARNING in nl_set_rtminit_nsensor: rtminit_nsensor applies to all domains. First arg ignored.')
12714 ENDIF
12715 model_config_rec%rtminit_nsensor = rtminit_nsensor
12716 RETURN
12717 END SUBROUTINE nl_set_rtminit_nsensor
12718 SUBROUTINE nl_set_rtminit_platform ( id_id , rtminit_platform )
12719 integer , INTENT(IN) :: rtminit_platform
12720 INTEGER id_id
12721 CHARACTER*80 emess
12722 model_config_rec%rtminit_platform(id_id) = rtminit_platform
12723 RETURN
12724 END SUBROUTINE nl_set_rtminit_platform
12725 SUBROUTINE nl_set_rtminit_satid ( id_id , rtminit_satid )
12726 integer , INTENT(IN) :: rtminit_satid
12727 INTEGER id_id
12728 CHARACTER*80 emess
12729 model_config_rec%rtminit_satid(id_id) = rtminit_satid
12730 RETURN
12731 END SUBROUTINE nl_set_rtminit_satid
12732 SUBROUTINE nl_set_rtminit_sensor ( id_id , rtminit_sensor )
12733 integer , INTENT(IN) :: rtminit_sensor
12734 INTEGER id_id
12735 CHARACTER*80 emess
12736 model_config_rec%rtminit_sensor(id_id) = rtminit_sensor
12737 RETURN
12738 END SUBROUTINE nl_set_rtminit_sensor
12739 SUBROUTINE nl_set_read_biascoef ( id_id , read_biascoef )
12740 logical , INTENT(IN) :: read_biascoef
12741 INTEGER id_id
12742 CHARACTER*80 emess
12743 IF ( id_id .NE. 1 ) THEN
12744 call wrf_debug(1,&
12745 'WARNING in nl_set_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
12746 ENDIF
12747 model_config_rec%read_biascoef = read_biascoef
12748 RETURN
12749 END SUBROUTINE nl_set_read_biascoef
12750 SUBROUTINE nl_set_biascorr ( id_id , biascorr )
12751 logical , INTENT(IN) :: biascorr
12752 INTEGER id_id
12753 CHARACTER*80 emess
12754 IF ( id_id .NE. 1 ) THEN
12755 call wrf_debug(1,&
12756 'WARNING in nl_set_biascorr: biascorr applies to all domains. First arg ignored.')
12757 ENDIF
12758 model_config_rec%biascorr = biascorr
12759 RETURN
12760 END SUBROUTINE nl_set_biascorr
12761 SUBROUTINE nl_set_biasprep ( id_id , biasprep )
12762 logical , INTENT(IN) :: biasprep
12763 INTEGER id_id
12764 CHARACTER*80 emess
12765 IF ( id_id .NE. 1 ) THEN
12766 call wrf_debug(1,&
12767 'WARNING in nl_set_biasprep: biasprep applies to all domains. First arg ignored.')
12768 ENDIF
12769 model_config_rec%biasprep = biasprep
12770 RETURN
12771 END SUBROUTINE nl_set_biasprep
12772 SUBROUTINE nl_set_rttov_scatt ( id_id , rttov_scatt )
12773 logical , INTENT(IN) :: rttov_scatt
12774 INTEGER id_id
12775 CHARACTER*80 emess
12776 IF ( id_id .NE. 1 ) THEN
12777 call wrf_debug(1,&
12778 'WARNING in nl_set_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
12779 ENDIF
12780 model_config_rec%rttov_scatt = rttov_scatt
12781 RETURN
12782 END SUBROUTINE nl_set_rttov_scatt
12783 SUBROUTINE nl_set_monitoring ( id_id , monitoring )
12784 logical , INTENT(IN) :: monitoring
12785 INTEGER id_id
12786 CHARACTER*80 emess
12787 IF ( id_id .NE. 1 ) THEN
12788 call wrf_debug(1,&
12789 'WARNING in nl_set_monitoring: monitoring applies to all domains. First arg ignored.')
12790 ENDIF
12791 model_config_rec%monitoring = monitoring
12792 RETURN
12793 END SUBROUTINE nl_set_monitoring
12794 SUBROUTINE nl_set_write_profile ( id_id , write_profile )
12795 logical , INTENT(IN) :: write_profile
12796 INTEGER id_id
12797 CHARACTER*80 emess
12798 IF ( id_id .NE. 1 ) THEN
12799 call wrf_debug(1,&
12800 'WARNING in nl_set_write_profile: write_profile applies to all domains. First arg ignored.')
12801 ENDIF
12802 model_config_rec%write_profile = write_profile
12803 RETURN
12804 END SUBROUTINE nl_set_write_profile
12805 SUBROUTINE nl_set_qc_rad ( id_id , qc_rad )
12806 logical , INTENT(IN) :: qc_rad
12807 INTEGER id_id
12808 CHARACTER*80 emess
12809 IF ( id_id .NE. 1 ) THEN
12810 call wrf_debug(1,&
12811 'WARNING in nl_set_qc_rad: qc_rad applies to all domains. First arg ignored.')
12812 ENDIF
12813 model_config_rec%qc_rad = qc_rad
12814 RETURN
12815 END SUBROUTINE nl_set_qc_rad
12816 SUBROUTINE nl_set_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
12817 logical , INTENT(IN) :: write_iv_rad_ascii
12818 INTEGER id_id
12819 CHARACTER*80 emess
12820 IF ( id_id .NE. 1 ) THEN
12821 call wrf_debug(1,&
12822 'WARNING in nl_set_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
12823 ENDIF
12824 model_config_rec%write_iv_rad_ascii = write_iv_rad_ascii
12825 RETURN
12826 END SUBROUTINE nl_set_write_iv_rad_ascii
12827 SUBROUTINE nl_set_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
12828 logical , INTENT(IN) :: write_oa_rad_ascii
12829 INTEGER id_id
12830 CHARACTER*80 emess
12831 IF ( id_id .NE. 1 ) THEN
12832 call wrf_debug(1,&
12833 'WARNING in nl_set_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
12834 ENDIF
12835 model_config_rec%write_oa_rad_ascii = write_oa_rad_ascii
12836 RETURN
12837 END SUBROUTINE nl_set_write_oa_rad_ascii
12838 SUBROUTINE nl_set_write_filtered_rad ( id_id , write_filtered_rad )
12839 logical , INTENT(IN) :: write_filtered_rad
12840 INTEGER id_id
12841 CHARACTER*80 emess
12842 IF ( id_id .NE. 1 ) THEN
12843 call wrf_debug(1,&
12844 'WARNING in nl_set_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
12845 ENDIF
12846 model_config_rec%write_filtered_rad = write_filtered_rad
12847 RETURN
12848 END SUBROUTINE nl_set_write_filtered_rad
12849 SUBROUTINE nl_set_use_error_factor_rad ( id_id , use_error_factor_rad )
12850 logical , INTENT(IN) :: use_error_factor_rad
12851 INTEGER id_id
12852 CHARACTER*80 emess
12853 IF ( id_id .NE. 1 ) THEN
12854 call wrf_debug(1,&
12855 'WARNING in nl_set_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
12856 ENDIF
12857 model_config_rec%use_error_factor_rad = use_error_factor_rad
12858 RETURN
12859 END SUBROUTINE nl_set_use_error_factor_rad
12860 SUBROUTINE nl_set_use_landem ( id_id , use_landem )
12861 logical , INTENT(IN) :: use_landem
12862 INTEGER id_id
12863 CHARACTER*80 emess
12864 IF ( id_id .NE. 1 ) THEN
12865 call wrf_debug(1,&
12866 'WARNING in nl_set_use_landem: use_landem applies to all domains. First arg ignored.')
12867 ENDIF
12868 model_config_rec%use_landem = use_landem
12869 RETURN
12870 END SUBROUTINE nl_set_use_landem
12871 SUBROUTINE nl_set_mw_emis_sea ( id_id , mw_emis_sea )
12872 integer , INTENT(IN) :: mw_emis_sea
12873 INTEGER id_id
12874 CHARACTER*80 emess
12875 IF ( id_id .NE. 1 ) THEN
12876 call wrf_debug(1,&
12877 'WARNING in nl_set_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
12878 ENDIF
12879 model_config_rec%mw_emis_sea = mw_emis_sea
12880 RETURN
12881 END SUBROUTINE nl_set_mw_emis_sea
12882 SUBROUTINE nl_set_tovs_min_transfer ( id_id , tovs_min_transfer )
12883 integer , INTENT(IN) :: tovs_min_transfer
12884 INTEGER id_id
12885 CHARACTER*80 emess
12886 IF ( id_id .NE. 1 ) THEN
12887 call wrf_debug(1,&
12888 'WARNING in nl_set_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
12889 ENDIF
12890 model_config_rec%tovs_min_transfer = tovs_min_transfer
12891 RETURN
12892 END SUBROUTINE nl_set_tovs_min_transfer
12893 SUBROUTINE nl_set_rtm_option ( id_id , rtm_option )
12894 integer , INTENT(IN) :: rtm_option
12895 INTEGER id_id
12896 CHARACTER*80 emess
12897 IF ( id_id .NE. 1 ) THEN
12898 call wrf_debug(1,&
12899 'WARNING in nl_set_rtm_option: rtm_option applies to all domains. First arg ignored.')
12900 ENDIF
12901 model_config_rec%rtm_option = rtm_option
12902 RETURN
12903 END SUBROUTINE nl_set_rtm_option
12904 SUBROUTINE nl_set_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
12905 logical , INTENT(IN) :: use_crtm_kmatrix
12906 INTEGER id_id
12907 CHARACTER*80 emess
12908 IF ( id_id .NE. 1 ) THEN
12909 call wrf_debug(1,&
12910 'WARNING in nl_set_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
12911 ENDIF
12912 model_config_rec%use_crtm_kmatrix = use_crtm_kmatrix
12913 RETURN
12914 END SUBROUTINE nl_set_use_crtm_kmatrix
12915 SUBROUTINE nl_set_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
12916 logical , INTENT(IN) :: use_crtm_kmatrix_fast
12917 INTEGER id_id
12918 CHARACTER*80 emess
12919 IF ( id_id .NE. 1 ) THEN
12920 call wrf_debug(1,&
12921 'WARNING in nl_set_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
12922 ENDIF
12923 model_config_rec%use_crtm_kmatrix_fast = use_crtm_kmatrix_fast
12924 RETURN
12925 END SUBROUTINE nl_set_use_crtm_kmatrix_fast
12926 SUBROUTINE nl_set_crtm_cloud ( id_id , crtm_cloud )
12927 logical , INTENT(IN) :: crtm_cloud
12928 INTEGER id_id
12929 CHARACTER*80 emess
12930 IF ( id_id .NE. 1 ) THEN
12931 call wrf_debug(1,&
12932 'WARNING in nl_set_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
12933 ENDIF
12934 model_config_rec%crtm_cloud = crtm_cloud
12935 RETURN
12936 END SUBROUTINE nl_set_crtm_cloud
12937 SUBROUTINE nl_set_spccoeff_file ( id_id , spccoeff_file )
12938 character*256 , INTENT(IN) :: spccoeff_file
12939 INTEGER id_id
12940 CHARACTER*80 emess
12941 IF ( id_id .NE. 1 ) THEN
12942 call wrf_debug(1,&
12943 'WARNING in nl_set_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
12944 ENDIF
12945 model_config_rec%spccoeff_file = trim(spccoeff_file)
12946 RETURN
12947 END SUBROUTINE nl_set_spccoeff_file
12948 SUBROUTINE nl_set_taucoeff_file ( id_id , taucoeff_file )
12949 character*256 , INTENT(IN) :: taucoeff_file
12950 INTEGER id_id
12951 CHARACTER*80 emess
12952 IF ( id_id .NE. 1 ) THEN
12953 call wrf_debug(1,&
12954 'WARNING in nl_set_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
12955 ENDIF
12956 model_config_rec%taucoeff_file = trim(taucoeff_file)
12957 RETURN
12958 END SUBROUTINE nl_set_taucoeff_file
12959 SUBROUTINE nl_set_aerosolcoeff_file ( id_id , aerosolcoeff_file )
12960 character*256 , INTENT(IN) :: aerosolcoeff_file
12961 INTEGER id_id
12962 CHARACTER*80 emess
12963 IF ( id_id .NE. 1 ) THEN
12964 call wrf_debug(1,&
12965 'WARNING in nl_set_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
12966 ENDIF
12967 model_config_rec%aerosolcoeff_file = trim(aerosolcoeff_file)
12968 RETURN
12969 END SUBROUTINE nl_set_aerosolcoeff_file
12970 SUBROUTINE nl_set_cloudcoeff_file ( id_id , cloudcoeff_file )
12971 character*256 , INTENT(IN) :: cloudcoeff_file
12972 INTEGER id_id
12973 CHARACTER*80 emess
12974 IF ( id_id .NE. 1 ) THEN
12975 call wrf_debug(1,&
12976 'WARNING in nl_set_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
12977 ENDIF
12978 model_config_rec%cloudcoeff_file = trim(cloudcoeff_file)
12979 RETURN
12980 END SUBROUTINE nl_set_cloudcoeff_file
12981 SUBROUTINE nl_set_emiscoeff_file ( id_id , emiscoeff_file )
12982 character*256 , INTENT(IN) :: emiscoeff_file
12983 INTEGER id_id
12984 CHARACTER*80 emess
12985 IF ( id_id .NE. 1 ) THEN
12986 call wrf_debug(1,&
12987 'WARNING in nl_set_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
12988 ENDIF
12989 model_config_rec%emiscoeff_file = trim(emiscoeff_file)
12990 RETURN
12991 END SUBROUTINE nl_set_emiscoeff_file
12992 SUBROUTINE nl_set_num_pseudo ( id_id , num_pseudo )
12993 integer , INTENT(IN) :: num_pseudo
12994 INTEGER id_id
12995 CHARACTER*80 emess
12996 IF ( id_id .NE. 1 ) THEN
12997 call wrf_debug(1,&
12998 'WARNING in nl_set_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
12999 ENDIF
13000 model_config_rec%num_pseudo = num_pseudo
13001 RETURN
13002 END SUBROUTINE nl_set_num_pseudo
13003 SUBROUTINE nl_set_pseudo_x ( id_id , pseudo_x )
13004 real , INTENT(IN) :: pseudo_x
13005 INTEGER id_id
13006 CHARACTER*80 emess
13007 IF ( id_id .NE. 1 ) THEN
13008 call wrf_debug(1,&
13009 'WARNING in nl_set_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
13010 ENDIF
13011 model_config_rec%pseudo_x = pseudo_x
13012 RETURN
13013 END SUBROUTINE nl_set_pseudo_x
13014 SUBROUTINE nl_set_pseudo_y ( id_id , pseudo_y )
13015 real , INTENT(IN) :: pseudo_y
13016 INTEGER id_id
13017 CHARACTER*80 emess
13018 IF ( id_id .NE. 1 ) THEN
13019 call wrf_debug(1,&
13020 'WARNING in nl_set_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
13021 ENDIF
13022 model_config_rec%pseudo_y = pseudo_y
13023 RETURN
13024 END SUBROUTINE nl_set_pseudo_y
13025 SUBROUTINE nl_set_pseudo_z ( id_id , pseudo_z )
13026 real , INTENT(IN) :: pseudo_z
13027 INTEGER id_id
13028 CHARACTER*80 emess
13029 IF ( id_id .NE. 1 ) THEN
13030 call wrf_debug(1,&
13031 'WARNING in nl_set_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
13032 ENDIF
13033 model_config_rec%pseudo_z = pseudo_z
13034 RETURN
13035 END SUBROUTINE nl_set_pseudo_z
13036 SUBROUTINE nl_set_pseudo_val ( id_id , pseudo_val )
13037 real , INTENT(IN) :: pseudo_val
13038 INTEGER id_id
13039 CHARACTER*80 emess
13040 IF ( id_id .NE. 1 ) THEN
13041 call wrf_debug(1,&
13042 'WARNING in nl_set_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
13043 ENDIF
13044 model_config_rec%pseudo_val = pseudo_val
13045 RETURN
13046 END SUBROUTINE nl_set_pseudo_val
13047 SUBROUTINE nl_set_pseudo_err ( id_id , pseudo_err )
13048 real , INTENT(IN) :: pseudo_err
13049 INTEGER id_id
13050 CHARACTER*80 emess
13051 IF ( id_id .NE. 1 ) THEN
13052 call wrf_debug(1,&
13053 'WARNING in nl_set_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
13054 ENDIF
13055 model_config_rec%pseudo_err = pseudo_err
13056 RETURN
13057 END SUBROUTINE nl_set_pseudo_err
13058 SUBROUTINE nl_set_alphacv_method ( id_id , alphacv_method )
13059 integer , INTENT(IN) :: alphacv_method
13060 INTEGER id_id
13061 CHARACTER*80 emess
13062 IF ( id_id .NE. 1 ) THEN
13063 call wrf_debug(1,&
13064 'WARNING in nl_set_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
13065 ENDIF
13066 model_config_rec%alphacv_method = alphacv_method
13067 RETURN
13068 END SUBROUTINE nl_set_alphacv_method
13069 SUBROUTINE nl_set_ensdim_alpha ( id_id , ensdim_alpha )
13070 integer , INTENT(IN) :: ensdim_alpha
13071 INTEGER id_id
13072 CHARACTER*80 emess
13073 IF ( id_id .NE. 1 ) THEN
13074 call wrf_debug(1,&
13075 'WARNING in nl_set_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
13076 ENDIF
13077 model_config_rec%ensdim_alpha = ensdim_alpha
13078 RETURN
13079 END SUBROUTINE nl_set_ensdim_alpha
13080 SUBROUTINE nl_set_alpha_truncation ( id_id , alpha_truncation )
13081 integer , INTENT(IN) :: alpha_truncation
13082 INTEGER id_id
13083 CHARACTER*80 emess
13084 IF ( id_id .NE. 1 ) THEN
13085 call wrf_debug(1,&
13086 'WARNING in nl_set_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
13087 ENDIF
13088 model_config_rec%alpha_truncation = alpha_truncation
13089 RETURN
13090 END SUBROUTINE nl_set_alpha_truncation
13091 SUBROUTINE nl_set_alpha_corr_type ( id_id , alpha_corr_type )
13092 integer , INTENT(IN) :: alpha_corr_type
13093 INTEGER id_id
13094 CHARACTER*80 emess
13095 IF ( id_id .NE. 1 ) THEN
13096 call wrf_debug(1,&
13097 'WARNING in nl_set_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
13098 ENDIF
13099 model_config_rec%alpha_corr_type = alpha_corr_type
13100 RETURN
13101 END SUBROUTINE nl_set_alpha_corr_type
13102 SUBROUTINE nl_set_alpha_corr_scale ( id_id , alpha_corr_scale )
13103 real , INTENT(IN) :: alpha_corr_scale
13104 INTEGER id_id
13105 CHARACTER*80 emess
13106 IF ( id_id .NE. 1 ) THEN
13107 call wrf_debug(1,&
13108 'WARNING in nl_set_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
13109 ENDIF
13110 model_config_rec%alpha_corr_scale = alpha_corr_scale
13111 RETURN
13112 END SUBROUTINE nl_set_alpha_corr_scale
13113 SUBROUTINE nl_set_alpha_std_dev ( id_id , alpha_std_dev )
13114 real , INTENT(IN) :: alpha_std_dev
13115 INTEGER id_id
13116 CHARACTER*80 emess
13117 IF ( id_id .NE. 1 ) THEN
13118 call wrf_debug(1,&
13119 'WARNING in nl_set_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
13120 ENDIF
13121 model_config_rec%alpha_std_dev = alpha_std_dev
13122 RETURN
13123 END SUBROUTINE nl_set_alpha_std_dev
13124 SUBROUTINE nl_set_analysis_type ( id_id , analysis_type )
13125 character*256 , INTENT(IN) :: analysis_type
13126 INTEGER id_id
13127 CHARACTER*80 emess
13128 IF ( id_id .NE. 1 ) THEN
13129 call wrf_debug(1,&
13130 'WARNING in nl_set_analysis_type: analysis_type applies to all domains. First arg ignored.')
13131 ENDIF
13132 model_config_rec%analysis_type = trim(analysis_type)
13133 RETURN
13134 END SUBROUTINE nl_set_analysis_type
13135 SUBROUTINE nl_set_analysis_date ( id_id , analysis_date )
13136 character*256 , INTENT(IN) :: analysis_date
13137 INTEGER id_id
13138 CHARACTER*80 emess
13139 IF ( id_id .NE. 1 ) THEN
13140 call wrf_debug(1,&
13141 'WARNING in nl_set_analysis_date: analysis_date applies to all domains. First arg ignored.')
13142 ENDIF
13143 model_config_rec%analysis_date = trim(analysis_date)
13144 RETURN
13145 END SUBROUTINE nl_set_analysis_date
13146 SUBROUTINE nl_set_pseudo_var ( id_id , pseudo_var )
13147 character*256 , INTENT(IN) :: pseudo_var
13148 INTEGER id_id
13149 CHARACTER*80 emess
13150 IF ( id_id .NE. 1 ) THEN
13151 call wrf_debug(1,&
13152 'WARNING in nl_set_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
13153 ENDIF
13154 model_config_rec%pseudo_var = trim(pseudo_var)
13155 RETURN
13156 END SUBROUTINE nl_set_pseudo_var
13157 SUBROUTINE nl_set_documentation_url ( id_id , documentation_url )
13158 character*256 , INTENT(IN) :: documentation_url
13159 INTEGER id_id
13160 CHARACTER*80 emess
13161 IF ( id_id .NE. 1 ) THEN
13162 call wrf_debug(1,&
13163 'WARNING in nl_set_documentation_url: documentation_url applies to all domains. First arg ignored.')
13164 ENDIF
13165 model_config_rec%documentation_url = trim(documentation_url)
13166 RETURN
13167 END SUBROUTINE nl_set_documentation_url
13168 SUBROUTINE nl_set_time_window_min ( id_id , time_window_min )
13169 character*256 , INTENT(IN) :: time_window_min
13170 INTEGER id_id
13171 CHARACTER*80 emess
13172 IF ( id_id .NE. 1 ) THEN
13173 call wrf_debug(1,&
13174 'WARNING in nl_set_time_window_min: time_window_min applies to all domains. First arg ignored.')
13175 ENDIF
13176 model_config_rec%time_window_min = trim(time_window_min)
13177 RETURN
13178 END SUBROUTINE nl_set_time_window_min
13179 SUBROUTINE nl_set_time_window_max ( id_id , time_window_max )
13180 character*256 , INTENT(IN) :: time_window_max
13181 INTEGER id_id
13182 CHARACTER*80 emess
13183 IF ( id_id .NE. 1 ) THEN
13184 call wrf_debug(1,&
13185 'WARNING in nl_set_time_window_max: time_window_max applies to all domains. First arg ignored.')
13186 ENDIF
13187 model_config_rec%time_window_max = trim(time_window_max)
13188 RETURN
13189 END SUBROUTINE nl_set_time_window_max
13190 SUBROUTINE nl_set_run_days ( id_id , run_days )
13191 integer , INTENT(IN) :: run_days
13192 INTEGER id_id
13193 CHARACTER*80 emess
13194 IF ( id_id .NE. 1 ) THEN
13195 call wrf_debug(1,&
13196 'WARNING in nl_set_run_days: run_days applies to all domains. First arg ignored.')
13197 ENDIF
13198 model_config_rec%run_days = run_days
13199 RETURN
13200 END SUBROUTINE nl_set_run_days
13201 SUBROUTINE nl_set_run_hours ( id_id , run_hours )
13202 integer , INTENT(IN) :: run_hours
13203 INTEGER id_id
13204 CHARACTER*80 emess
13205 IF ( id_id .NE. 1 ) THEN
13206 call wrf_debug(1,&
13207 'WARNING in nl_set_run_hours: run_hours applies to all domains. First arg ignored.')
13208 ENDIF
13209 model_config_rec%run_hours = run_hours
13210 RETURN
13211 END SUBROUTINE nl_set_run_hours
13212 SUBROUTINE nl_set_run_minutes ( id_id , run_minutes )
13213 integer , INTENT(IN) :: run_minutes
13214 INTEGER id_id
13215 CHARACTER*80 emess
13216 IF ( id_id .NE. 1 ) THEN
13217 call wrf_debug(1,&
13218 'WARNING in nl_set_run_minutes: run_minutes applies to all domains. First arg ignored.')
13219 ENDIF
13220 model_config_rec%run_minutes = run_minutes
13221 RETURN
13222 END SUBROUTINE nl_set_run_minutes
13223 SUBROUTINE nl_set_run_seconds ( id_id , run_seconds )
13224 integer , INTENT(IN) :: run_seconds
13225 INTEGER id_id
13226 CHARACTER*80 emess
13227 IF ( id_id .NE. 1 ) THEN
13228 call wrf_debug(1,&
13229 'WARNING in nl_set_run_seconds: run_seconds applies to all domains. First arg ignored.')
13230 ENDIF
13231 model_config_rec%run_seconds = run_seconds
13232 RETURN
13233 END SUBROUTINE nl_set_run_seconds
13234 SUBROUTINE nl_set_start_year ( id_id , start_year )
13235 integer , INTENT(IN) :: start_year
13236 INTEGER id_id
13237 CHARACTER*80 emess
13238 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13239 WRITE(emess,*)'nl_set_start_year: Out of range domain number: ',id_id
13240 CALL wrf_error_fatal(emess)
13241 ENDIF
13242 model_config_rec%start_year(id_id) = start_year
13243 RETURN
13244 END SUBROUTINE nl_set_start_year
13245 SUBROUTINE nl_set_start_month ( id_id , start_month )
13246 integer , INTENT(IN) :: start_month
13247 INTEGER id_id
13248 CHARACTER*80 emess
13249 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13250 WRITE(emess,*)'nl_set_start_month: Out of range domain number: ',id_id
13251 CALL wrf_error_fatal(emess)
13252 ENDIF
13253 model_config_rec%start_month(id_id) = start_month
13254 RETURN
13255 END SUBROUTINE nl_set_start_month
13256 SUBROUTINE nl_set_start_day ( id_id , start_day )
13257 integer , INTENT(IN) :: start_day
13258 INTEGER id_id
13259 CHARACTER*80 emess
13260 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13261 WRITE(emess,*)'nl_set_start_day: Out of range domain number: ',id_id
13262 CALL wrf_error_fatal(emess)
13263 ENDIF
13264 model_config_rec%start_day(id_id) = start_day
13265 RETURN
13266 END SUBROUTINE nl_set_start_day
13267 SUBROUTINE nl_set_start_hour ( id_id , start_hour )
13268 integer , INTENT(IN) :: start_hour
13269 INTEGER id_id
13270 CHARACTER*80 emess
13271 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13272 WRITE(emess,*)'nl_set_start_hour: Out of range domain number: ',id_id
13273 CALL wrf_error_fatal(emess)
13274 ENDIF
13275 model_config_rec%start_hour(id_id) = start_hour
13276 RETURN
13277 END SUBROUTINE nl_set_start_hour
13278 SUBROUTINE nl_set_start_minute ( id_id , start_minute )
13279 integer , INTENT(IN) :: start_minute
13280 INTEGER id_id
13281 CHARACTER*80 emess
13282 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13283 WRITE(emess,*)'nl_set_start_minute: Out of range domain number: ',id_id
13284 CALL wrf_error_fatal(emess)
13285 ENDIF
13286 model_config_rec%start_minute(id_id) = start_minute
13287 RETURN
13288 END SUBROUTINE nl_set_start_minute
13289 SUBROUTINE nl_set_start_second ( id_id , start_second )
13290 integer , INTENT(IN) :: start_second
13291 INTEGER id_id
13292 CHARACTER*80 emess
13293 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13294 WRITE(emess,*)'nl_set_start_second: Out of range domain number: ',id_id
13295 CALL wrf_error_fatal(emess)
13296 ENDIF
13297 model_config_rec%start_second(id_id) = start_second
13298 RETURN
13299 END SUBROUTINE nl_set_start_second
13300 SUBROUTINE nl_set_end_year ( id_id , end_year )
13301 integer , INTENT(IN) :: end_year
13302 INTEGER id_id
13303 CHARACTER*80 emess
13304 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13305 WRITE(emess,*)'nl_set_end_year: Out of range domain number: ',id_id
13306 CALL wrf_error_fatal(emess)
13307 ENDIF
13308 model_config_rec%end_year(id_id) = end_year
13309 RETURN
13310 END SUBROUTINE nl_set_end_year
13311 SUBROUTINE nl_set_end_month ( id_id , end_month )
13312 integer , INTENT(IN) :: end_month
13313 INTEGER id_id
13314 CHARACTER*80 emess
13315 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13316 WRITE(emess,*)'nl_set_end_month: Out of range domain number: ',id_id
13317 CALL wrf_error_fatal(emess)
13318 ENDIF
13319 model_config_rec%end_month(id_id) = end_month
13320 RETURN
13321 END SUBROUTINE nl_set_end_month
13322 SUBROUTINE nl_set_end_day ( id_id , end_day )
13323 integer , INTENT(IN) :: end_day
13324 INTEGER id_id
13325 CHARACTER*80 emess
13326 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13327 WRITE(emess,*)'nl_set_end_day: Out of range domain number: ',id_id
13328 CALL wrf_error_fatal(emess)
13329 ENDIF
13330 model_config_rec%end_day(id_id) = end_day
13331 RETURN
13332 END SUBROUTINE nl_set_end_day
13333 SUBROUTINE nl_set_end_hour ( id_id , end_hour )
13334 integer , INTENT(IN) :: end_hour
13335 INTEGER id_id
13336 CHARACTER*80 emess
13337 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13338 WRITE(emess,*)'nl_set_end_hour: Out of range domain number: ',id_id
13339 CALL wrf_error_fatal(emess)
13340 ENDIF
13341 model_config_rec%end_hour(id_id) = end_hour
13342 RETURN
13343 END SUBROUTINE nl_set_end_hour
13344 SUBROUTINE nl_set_end_minute ( id_id , end_minute )
13345 integer , INTENT(IN) :: end_minute
13346 INTEGER id_id
13347 CHARACTER*80 emess
13348 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13349 WRITE(emess,*)'nl_set_end_minute: Out of range domain number: ',id_id
13350 CALL wrf_error_fatal(emess)
13351 ENDIF
13352 model_config_rec%end_minute(id_id) = end_minute
13353 RETURN
13354 END SUBROUTINE nl_set_end_minute
13355 SUBROUTINE nl_set_end_second ( id_id , end_second )
13356 integer , INTENT(IN) :: end_second
13357 INTEGER id_id
13358 CHARACTER*80 emess
13359 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13360 WRITE(emess,*)'nl_set_end_second: Out of range domain number: ',id_id
13361 CALL wrf_error_fatal(emess)
13362 ENDIF
13363 model_config_rec%end_second(id_id) = end_second
13364 RETURN
13365 END SUBROUTINE nl_set_end_second
13366 SUBROUTINE nl_set_interval_seconds ( id_id , interval_seconds )
13367 integer , INTENT(IN) :: interval_seconds
13368 INTEGER id_id
13369 CHARACTER*80 emess
13370 IF ( id_id .NE. 1 ) THEN
13371 call wrf_debug(1,&
13372 'WARNING in nl_set_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
13373 ENDIF
13374 model_config_rec%interval_seconds = interval_seconds
13375 RETURN
13376 END SUBROUTINE nl_set_interval_seconds
13377 SUBROUTINE nl_set_input_from_file ( id_id , input_from_file )
13378 logical , INTENT(IN) :: input_from_file
13379 INTEGER id_id
13380 CHARACTER*80 emess
13381 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13382 WRITE(emess,*)'nl_set_input_from_file: Out of range domain number: ',id_id
13383 CALL wrf_error_fatal(emess)
13384 ENDIF
13385 model_config_rec%input_from_file(id_id) = input_from_file
13386 RETURN
13387 END SUBROUTINE nl_set_input_from_file
13388 SUBROUTINE nl_set_fine_input_stream ( id_id , fine_input_stream )
13389 integer , INTENT(IN) :: fine_input_stream
13390 INTEGER id_id
13391 CHARACTER*80 emess
13392 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13393 WRITE(emess,*)'nl_set_fine_input_stream: Out of range domain number: ',id_id
13394 CALL wrf_error_fatal(emess)
13395 ENDIF
13396 model_config_rec%fine_input_stream(id_id) = fine_input_stream
13397 RETURN
13398 END SUBROUTINE nl_set_fine_input_stream
13399 SUBROUTINE nl_set_input_from_hires ( id_id , input_from_hires )
13400 logical , INTENT(IN) :: input_from_hires
13401 INTEGER id_id
13402 CHARACTER*80 emess
13403 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13404 WRITE(emess,*)'nl_set_input_from_hires: Out of range domain number: ',id_id
13405 CALL wrf_error_fatal(emess)
13406 ENDIF
13407 model_config_rec%input_from_hires(id_id) = input_from_hires
13408 RETURN
13409 END SUBROUTINE nl_set_input_from_hires
13410 SUBROUTINE nl_set_rsmas_data_path ( id_id , rsmas_data_path )
13411 character*256 , INTENT(IN) :: rsmas_data_path
13412 INTEGER id_id
13413 CHARACTER*80 emess
13414 IF ( id_id .NE. 1 ) THEN
13415 call wrf_debug(1,&
13416 'WARNING in nl_set_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
13417 ENDIF
13418 model_config_rec%rsmas_data_path = trim(rsmas_data_path)
13419 RETURN
13420 END SUBROUTINE nl_set_rsmas_data_path
13421 SUBROUTINE nl_set_history_interval ( id_id , history_interval )
13422 integer , INTENT(IN) :: history_interval
13423 INTEGER id_id
13424 CHARACTER*80 emess
13425 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13426 WRITE(emess,*)'nl_set_history_interval: Out of range domain number: ',id_id
13427 CALL wrf_error_fatal(emess)
13428 ENDIF
13429 model_config_rec%history_interval(id_id) = history_interval
13430 RETURN
13431 END SUBROUTINE nl_set_history_interval
13432 SUBROUTINE nl_set_frames_per_outfile ( id_id , frames_per_outfile )
13433 integer , INTENT(IN) :: frames_per_outfile
13434 INTEGER id_id
13435 CHARACTER*80 emess
13436 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13437 WRITE(emess,*)'nl_set_frames_per_outfile: Out of range domain number: ',id_id
13438 CALL wrf_error_fatal(emess)
13439 ENDIF
13440 model_config_rec%frames_per_outfile(id_id) = frames_per_outfile
13441 RETURN
13442 END SUBROUTINE nl_set_frames_per_outfile
13443 SUBROUTINE nl_set_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
13444 integer , INTENT(IN) :: frames_per_auxhist1
13445 INTEGER id_id
13446 CHARACTER*80 emess
13447 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13448 WRITE(emess,*)'nl_set_frames_per_auxhist1: Out of range domain number: ',id_id
13449 CALL wrf_error_fatal(emess)
13450 ENDIF
13451 model_config_rec%frames_per_auxhist1(id_id) = frames_per_auxhist1
13452 RETURN
13453 END SUBROUTINE nl_set_frames_per_auxhist1
13454 SUBROUTINE nl_set_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
13455 integer , INTENT(IN) :: frames_per_auxhist2
13456 INTEGER id_id
13457 CHARACTER*80 emess
13458 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13459 WRITE(emess,*)'nl_set_frames_per_auxhist2: Out of range domain number: ',id_id
13460 CALL wrf_error_fatal(emess)
13461 ENDIF
13462 model_config_rec%frames_per_auxhist2(id_id) = frames_per_auxhist2
13463 RETURN
13464 END SUBROUTINE nl_set_frames_per_auxhist2
13465 SUBROUTINE nl_set_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
13466 integer , INTENT(IN) :: frames_per_auxhist3
13467 INTEGER id_id
13468 CHARACTER*80 emess
13469 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13470 WRITE(emess,*)'nl_set_frames_per_auxhist3: Out of range domain number: ',id_id
13471 CALL wrf_error_fatal(emess)
13472 ENDIF
13473 model_config_rec%frames_per_auxhist3(id_id) = frames_per_auxhist3
13474 RETURN
13475 END SUBROUTINE nl_set_frames_per_auxhist3
13476 SUBROUTINE nl_set_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
13477 integer , INTENT(IN) :: frames_per_auxhist4
13478 INTEGER id_id
13479 CHARACTER*80 emess
13480 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13481 WRITE(emess,*)'nl_set_frames_per_auxhist4: Out of range domain number: ',id_id
13482 CALL wrf_error_fatal(emess)
13483 ENDIF
13484 model_config_rec%frames_per_auxhist4(id_id) = frames_per_auxhist4
13485 RETURN
13486 END SUBROUTINE nl_set_frames_per_auxhist4
13487 SUBROUTINE nl_set_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
13488 integer , INTENT(IN) :: frames_per_auxhist5
13489 INTEGER id_id
13490 CHARACTER*80 emess
13491 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13492 WRITE(emess,*)'nl_set_frames_per_auxhist5: Out of range domain number: ',id_id
13493 CALL wrf_error_fatal(emess)
13494 ENDIF
13495 model_config_rec%frames_per_auxhist5(id_id) = frames_per_auxhist5
13496 RETURN
13497 END SUBROUTINE nl_set_frames_per_auxhist5
13498 SUBROUTINE nl_set_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
13499 integer , INTENT(IN) :: frames_per_auxhist6
13500 INTEGER id_id
13501 CHARACTER*80 emess
13502 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13503 WRITE(emess,*)'nl_set_frames_per_auxhist6: Out of range domain number: ',id_id
13504 CALL wrf_error_fatal(emess)
13505 ENDIF
13506 model_config_rec%frames_per_auxhist6(id_id) = frames_per_auxhist6
13507 RETURN
13508 END SUBROUTINE nl_set_frames_per_auxhist6
13509 SUBROUTINE nl_set_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
13510 integer , INTENT(IN) :: frames_per_auxhist7
13511 INTEGER id_id
13512 CHARACTER*80 emess
13513 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13514 WRITE(emess,*)'nl_set_frames_per_auxhist7: Out of range domain number: ',id_id
13515 CALL wrf_error_fatal(emess)
13516 ENDIF
13517 model_config_rec%frames_per_auxhist7(id_id) = frames_per_auxhist7
13518 RETURN
13519 END SUBROUTINE nl_set_frames_per_auxhist7
13520 SUBROUTINE nl_set_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
13521 integer , INTENT(IN) :: frames_per_auxhist8
13522 INTEGER id_id
13523 CHARACTER*80 emess
13524 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13525 WRITE(emess,*)'nl_set_frames_per_auxhist8: Out of range domain number: ',id_id
13526 CALL wrf_error_fatal(emess)
13527 ENDIF
13528 model_config_rec%frames_per_auxhist8(id_id) = frames_per_auxhist8
13529 RETURN
13530 END SUBROUTINE nl_set_frames_per_auxhist8
13531 SUBROUTINE nl_set_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
13532 integer , INTENT(IN) :: frames_per_auxhist9
13533 INTEGER id_id
13534 CHARACTER*80 emess
13535 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13536 WRITE(emess,*)'nl_set_frames_per_auxhist9: Out of range domain number: ',id_id
13537 CALL wrf_error_fatal(emess)
13538 ENDIF
13539 model_config_rec%frames_per_auxhist9(id_id) = frames_per_auxhist9
13540 RETURN
13541 END SUBROUTINE nl_set_frames_per_auxhist9
13542 SUBROUTINE nl_set_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
13543 integer , INTENT(IN) :: frames_per_auxhist10
13544 INTEGER id_id
13545 CHARACTER*80 emess
13546 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13547 WRITE(emess,*)'nl_set_frames_per_auxhist10: Out of range domain number: ',id_id
13548 CALL wrf_error_fatal(emess)
13549 ENDIF
13550 model_config_rec%frames_per_auxhist10(id_id) = frames_per_auxhist10
13551 RETURN
13552 END SUBROUTINE nl_set_frames_per_auxhist10
13553 SUBROUTINE nl_set_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
13554 integer , INTENT(IN) :: frames_per_auxhist11
13555 INTEGER id_id
13556 CHARACTER*80 emess
13557 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13558 WRITE(emess,*)'nl_set_frames_per_auxhist11: Out of range domain number: ',id_id
13559 CALL wrf_error_fatal(emess)
13560 ENDIF
13561 model_config_rec%frames_per_auxhist11(id_id) = frames_per_auxhist11
13562 RETURN
13563 END SUBROUTINE nl_set_frames_per_auxhist11
13564 SUBROUTINE nl_set_restart ( id_id , restart )
13565 logical , INTENT(IN) :: restart
13566 INTEGER id_id
13567 CHARACTER*80 emess
13568 IF ( id_id .NE. 1 ) THEN
13569 call wrf_debug(1,&
13570 'WARNING in nl_set_restart: restart applies to all domains. First arg ignored.')
13571 ENDIF
13572 model_config_rec%restart = restart
13573 RETURN
13574 END SUBROUTINE nl_set_restart
13575 SUBROUTINE nl_set_restart_interval ( id_id , restart_interval )
13576 integer , INTENT(IN) :: restart_interval
13577 INTEGER id_id
13578 CHARACTER*80 emess
13579 IF ( id_id .NE. 1 ) THEN
13580 call wrf_debug(1,&
13581 'WARNING in nl_set_restart_interval: restart_interval applies to all domains. First arg ignored.')
13582 ENDIF
13583 model_config_rec%restart_interval = restart_interval
13584 RETURN
13585 END SUBROUTINE nl_set_restart_interval
13586 SUBROUTINE nl_set_io_form_input ( id_id , io_form_input )
13587 integer , INTENT(IN) :: io_form_input
13588 INTEGER id_id
13589 CHARACTER*80 emess
13590 IF ( id_id .NE. 1 ) THEN
13591 call wrf_debug(1,&
13592 'WARNING in nl_set_io_form_input: io_form_input applies to all domains. First arg ignored.')
13593 ENDIF
13594 model_config_rec%io_form_input = io_form_input
13595 RETURN
13596 END SUBROUTINE nl_set_io_form_input
13597 SUBROUTINE nl_set_io_form_history ( id_id , io_form_history )
13598 integer , INTENT(IN) :: io_form_history
13599 INTEGER id_id
13600 CHARACTER*80 emess
13601 IF ( id_id .NE. 1 ) THEN
13602 call wrf_debug(1,&
13603 'WARNING in nl_set_io_form_history: io_form_history applies to all domains. First arg ignored.')
13604 ENDIF
13605 model_config_rec%io_form_history = io_form_history
13606 RETURN
13607 END SUBROUTINE nl_set_io_form_history
13608 SUBROUTINE nl_set_io_form_restart ( id_id , io_form_restart )
13609 integer , INTENT(IN) :: io_form_restart
13610 INTEGER id_id
13611 CHARACTER*80 emess
13612 IF ( id_id .NE. 1 ) THEN
13613 call wrf_debug(1,&
13614 'WARNING in nl_set_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
13615 ENDIF
13616 model_config_rec%io_form_restart = io_form_restart
13617 RETURN
13618 END SUBROUTINE nl_set_io_form_restart
13619 SUBROUTINE nl_set_io_form_boundary ( id_id , io_form_boundary )
13620 integer , INTENT(IN) :: io_form_boundary
13621 INTEGER id_id
13622 CHARACTER*80 emess
13623 IF ( id_id .NE. 1 ) THEN
13624 call wrf_debug(1,&
13625 'WARNING in nl_set_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
13626 ENDIF
13627 model_config_rec%io_form_boundary = io_form_boundary
13628 RETURN
13629 END SUBROUTINE nl_set_io_form_boundary
13630 SUBROUTINE nl_set_debug_level ( id_id , debug_level )
13631 integer , INTENT(IN) :: debug_level
13632 INTEGER id_id
13633 CHARACTER*80 emess
13634 IF ( id_id .NE. 1 ) THEN
13635 call wrf_debug(1,&
13636 'WARNING in nl_set_debug_level: debug_level applies to all domains. First arg ignored.')
13637 ENDIF
13638 model_config_rec%debug_level = debug_level
13639 RETURN
13640 END SUBROUTINE nl_set_debug_level
13641 SUBROUTINE nl_set_self_test_domain ( id_id , self_test_domain )
13642 logical , INTENT(IN) :: self_test_domain
13643 INTEGER id_id
13644 CHARACTER*80 emess
13645 IF ( id_id .NE. 1 ) THEN
13646 call wrf_debug(1,&
13647 'WARNING in nl_set_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
13648 ENDIF
13649 model_config_rec%self_test_domain = self_test_domain
13650 RETURN
13651 END SUBROUTINE nl_set_self_test_domain
13652 SUBROUTINE nl_set_history_outname ( id_id , history_outname )
13653 character*256 , INTENT(IN) :: history_outname
13654 INTEGER id_id
13655 CHARACTER*80 emess
13656 IF ( id_id .NE. 1 ) THEN
13657 call wrf_debug(1,&
13658 'WARNING in nl_set_history_outname: history_outname applies to all domains. First arg ignored.')
13659 ENDIF
13660 model_config_rec%history_outname = trim(history_outname)
13661 RETURN
13662 END SUBROUTINE nl_set_history_outname
13663 SUBROUTINE nl_set_auxhist1_outname ( id_id , auxhist1_outname )
13664 character*256 , INTENT(IN) :: auxhist1_outname
13665 INTEGER id_id
13666 CHARACTER*80 emess
13667 IF ( id_id .NE. 1 ) THEN
13668 call wrf_debug(1,&
13669 'WARNING in nl_set_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
13670 ENDIF
13671 model_config_rec%auxhist1_outname = trim(auxhist1_outname)
13672 RETURN
13673 END SUBROUTINE nl_set_auxhist1_outname
13674 SUBROUTINE nl_set_auxhist2_outname ( id_id , auxhist2_outname )
13675 character*256 , INTENT(IN) :: auxhist2_outname
13676 INTEGER id_id
13677 CHARACTER*80 emess
13678 IF ( id_id .NE. 1 ) THEN
13679 call wrf_debug(1,&
13680 'WARNING in nl_set_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
13681 ENDIF
13682 model_config_rec%auxhist2_outname = trim(auxhist2_outname)
13683 RETURN
13684 END SUBROUTINE nl_set_auxhist2_outname
13685 SUBROUTINE nl_set_auxhist3_outname ( id_id , auxhist3_outname )
13686 character*256 , INTENT(IN) :: auxhist3_outname
13687 INTEGER id_id
13688 CHARACTER*80 emess
13689 IF ( id_id .NE. 1 ) THEN
13690 call wrf_debug(1,&
13691 'WARNING in nl_set_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
13692 ENDIF
13693 model_config_rec%auxhist3_outname = trim(auxhist3_outname)
13694 RETURN
13695 END SUBROUTINE nl_set_auxhist3_outname
13696 SUBROUTINE nl_set_auxhist4_outname ( id_id , auxhist4_outname )
13697 character*256 , INTENT(IN) :: auxhist4_outname
13698 INTEGER id_id
13699 CHARACTER*80 emess
13700 IF ( id_id .NE. 1 ) THEN
13701 call wrf_debug(1,&
13702 'WARNING in nl_set_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
13703 ENDIF
13704 model_config_rec%auxhist4_outname = trim(auxhist4_outname)
13705 RETURN
13706 END SUBROUTINE nl_set_auxhist4_outname
13707 SUBROUTINE nl_set_auxhist5_outname ( id_id , auxhist5_outname )
13708 character*256 , INTENT(IN) :: auxhist5_outname
13709 INTEGER id_id
13710 CHARACTER*80 emess
13711 IF ( id_id .NE. 1 ) THEN
13712 call wrf_debug(1,&
13713 'WARNING in nl_set_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
13714 ENDIF
13715 model_config_rec%auxhist5_outname = trim(auxhist5_outname)
13716 RETURN
13717 END SUBROUTINE nl_set_auxhist5_outname
13718 SUBROUTINE nl_set_auxhist6_outname ( id_id , auxhist6_outname )
13719 character*256 , INTENT(IN) :: auxhist6_outname
13720 INTEGER id_id
13721 CHARACTER*80 emess
13722 IF ( id_id .NE. 1 ) THEN
13723 call wrf_debug(1,&
13724 'WARNING in nl_set_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
13725 ENDIF
13726 model_config_rec%auxhist6_outname = trim(auxhist6_outname)
13727 RETURN
13728 END SUBROUTINE nl_set_auxhist6_outname
13729 SUBROUTINE nl_set_auxhist7_outname ( id_id , auxhist7_outname )
13730 character*256 , INTENT(IN) :: auxhist7_outname
13731 INTEGER id_id
13732 CHARACTER*80 emess
13733 IF ( id_id .NE. 1 ) THEN
13734 call wrf_debug(1,&
13735 'WARNING in nl_set_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
13736 ENDIF
13737 model_config_rec%auxhist7_outname = trim(auxhist7_outname)
13738 RETURN
13739 END SUBROUTINE nl_set_auxhist7_outname
13740 SUBROUTINE nl_set_auxhist8_outname ( id_id , auxhist8_outname )
13741 character*256 , INTENT(IN) :: auxhist8_outname
13742 INTEGER id_id
13743 CHARACTER*80 emess
13744 IF ( id_id .NE. 1 ) THEN
13745 call wrf_debug(1,&
13746 'WARNING in nl_set_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
13747 ENDIF
13748 model_config_rec%auxhist8_outname = trim(auxhist8_outname)
13749 RETURN
13750 END SUBROUTINE nl_set_auxhist8_outname
13751 SUBROUTINE nl_set_auxhist9_outname ( id_id , auxhist9_outname )
13752 character*256 , INTENT(IN) :: auxhist9_outname
13753 INTEGER id_id
13754 CHARACTER*80 emess
13755 IF ( id_id .NE. 1 ) THEN
13756 call wrf_debug(1,&
13757 'WARNING in nl_set_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
13758 ENDIF
13759 model_config_rec%auxhist9_outname = trim(auxhist9_outname)
13760 RETURN
13761 END SUBROUTINE nl_set_auxhist9_outname
13762 SUBROUTINE nl_set_auxhist10_outname ( id_id , auxhist10_outname )
13763 character*256 , INTENT(IN) :: auxhist10_outname
13764 INTEGER id_id
13765 CHARACTER*80 emess
13766 IF ( id_id .NE. 1 ) THEN
13767 call wrf_debug(1,&
13768 'WARNING in nl_set_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
13769 ENDIF
13770 model_config_rec%auxhist10_outname = trim(auxhist10_outname)
13771 RETURN
13772 END SUBROUTINE nl_set_auxhist10_outname
13773 SUBROUTINE nl_set_auxhist11_outname ( id_id , auxhist11_outname )
13774 character*256 , INTENT(IN) :: auxhist11_outname
13775 INTEGER id_id
13776 CHARACTER*80 emess
13777 IF ( id_id .NE. 1 ) THEN
13778 call wrf_debug(1,&
13779 'WARNING in nl_set_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
13780 ENDIF
13781 model_config_rec%auxhist11_outname = trim(auxhist11_outname)
13782 RETURN
13783 END SUBROUTINE nl_set_auxhist11_outname
13784 SUBROUTINE nl_set_history_inname ( id_id , history_inname )
13785 character*256 , INTENT(IN) :: history_inname
13786 INTEGER id_id
13787 CHARACTER*80 emess
13788 IF ( id_id .NE. 1 ) THEN
13789 call wrf_debug(1,&
13790 'WARNING in nl_set_history_inname: history_inname applies to all domains. First arg ignored.')
13791 ENDIF
13792 model_config_rec%history_inname = trim(history_inname)
13793 RETURN
13794 END SUBROUTINE nl_set_history_inname
13795 SUBROUTINE nl_set_auxhist1_inname ( id_id , auxhist1_inname )
13796 character*256 , INTENT(IN) :: auxhist1_inname
13797 INTEGER id_id
13798 CHARACTER*80 emess
13799 IF ( id_id .NE. 1 ) THEN
13800 call wrf_debug(1,&
13801 'WARNING in nl_set_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
13802 ENDIF
13803 model_config_rec%auxhist1_inname = trim(auxhist1_inname)
13804 RETURN
13805 END SUBROUTINE nl_set_auxhist1_inname
13806 SUBROUTINE nl_set_auxhist2_inname ( id_id , auxhist2_inname )
13807 character*256 , INTENT(IN) :: auxhist2_inname
13808 INTEGER id_id
13809 CHARACTER*80 emess
13810 IF ( id_id .NE. 1 ) THEN
13811 call wrf_debug(1,&
13812 'WARNING in nl_set_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
13813 ENDIF
13814 model_config_rec%auxhist2_inname = trim(auxhist2_inname)
13815 RETURN
13816 END SUBROUTINE nl_set_auxhist2_inname
13817 SUBROUTINE nl_set_auxhist3_inname ( id_id , auxhist3_inname )
13818 character*256 , INTENT(IN) :: auxhist3_inname
13819 INTEGER id_id
13820 CHARACTER*80 emess
13821 IF ( id_id .NE. 1 ) THEN
13822 call wrf_debug(1,&
13823 'WARNING in nl_set_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
13824 ENDIF
13825 model_config_rec%auxhist3_inname = trim(auxhist3_inname)
13826 RETURN
13827 END SUBROUTINE nl_set_auxhist3_inname
13828 SUBROUTINE nl_set_auxhist4_inname ( id_id , auxhist4_inname )
13829 character*256 , INTENT(IN) :: auxhist4_inname
13830 INTEGER id_id
13831 CHARACTER*80 emess
13832 IF ( id_id .NE. 1 ) THEN
13833 call wrf_debug(1,&
13834 'WARNING in nl_set_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
13835 ENDIF
13836 model_config_rec%auxhist4_inname = trim(auxhist4_inname)
13837 RETURN
13838 END SUBROUTINE nl_set_auxhist4_inname
13839 SUBROUTINE nl_set_auxhist5_inname ( id_id , auxhist5_inname )
13840 character*256 , INTENT(IN) :: auxhist5_inname
13841 INTEGER id_id
13842 CHARACTER*80 emess
13843 IF ( id_id .NE. 1 ) THEN
13844 call wrf_debug(1,&
13845 'WARNING in nl_set_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
13846 ENDIF
13847 model_config_rec%auxhist5_inname = trim(auxhist5_inname)
13848 RETURN
13849 END SUBROUTINE nl_set_auxhist5_inname
13850 SUBROUTINE nl_set_auxhist6_inname ( id_id , auxhist6_inname )
13851 character*256 , INTENT(IN) :: auxhist6_inname
13852 INTEGER id_id
13853 CHARACTER*80 emess
13854 IF ( id_id .NE. 1 ) THEN
13855 call wrf_debug(1,&
13856 'WARNING in nl_set_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
13857 ENDIF
13858 model_config_rec%auxhist6_inname = trim(auxhist6_inname)
13859 RETURN
13860 END SUBROUTINE nl_set_auxhist6_inname
13861 SUBROUTINE nl_set_auxhist7_inname ( id_id , auxhist7_inname )
13862 character*256 , INTENT(IN) :: auxhist7_inname
13863 INTEGER id_id
13864 CHARACTER*80 emess
13865 IF ( id_id .NE. 1 ) THEN
13866 call wrf_debug(1,&
13867 'WARNING in nl_set_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
13868 ENDIF
13869 model_config_rec%auxhist7_inname = trim(auxhist7_inname)
13870 RETURN
13871 END SUBROUTINE nl_set_auxhist7_inname
13872 SUBROUTINE nl_set_auxhist8_inname ( id_id , auxhist8_inname )
13873 character*256 , INTENT(IN) :: auxhist8_inname
13874 INTEGER id_id
13875 CHARACTER*80 emess
13876 IF ( id_id .NE. 1 ) THEN
13877 call wrf_debug(1,&
13878 'WARNING in nl_set_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
13879 ENDIF
13880 model_config_rec%auxhist8_inname = trim(auxhist8_inname)
13881 RETURN
13882 END SUBROUTINE nl_set_auxhist8_inname
13883 SUBROUTINE nl_set_auxhist9_inname ( id_id , auxhist9_inname )
13884 character*256 , INTENT(IN) :: auxhist9_inname
13885 INTEGER id_id
13886 CHARACTER*80 emess
13887 IF ( id_id .NE. 1 ) THEN
13888 call wrf_debug(1,&
13889 'WARNING in nl_set_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
13890 ENDIF
13891 model_config_rec%auxhist9_inname = trim(auxhist9_inname)
13892 RETURN
13893 END SUBROUTINE nl_set_auxhist9_inname
13894 SUBROUTINE nl_set_auxhist10_inname ( id_id , auxhist10_inname )
13895 character*256 , INTENT(IN) :: auxhist10_inname
13896 INTEGER id_id
13897 CHARACTER*80 emess
13898 IF ( id_id .NE. 1 ) THEN
13899 call wrf_debug(1,&
13900 'WARNING in nl_set_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
13901 ENDIF
13902 model_config_rec%auxhist10_inname = trim(auxhist10_inname)
13903 RETURN
13904 END SUBROUTINE nl_set_auxhist10_inname
13905 SUBROUTINE nl_set_auxhist11_inname ( id_id , auxhist11_inname )
13906 character*256 , INTENT(IN) :: auxhist11_inname
13907 INTEGER id_id
13908 CHARACTER*80 emess
13909 IF ( id_id .NE. 1 ) THEN
13910 call wrf_debug(1,&
13911 'WARNING in nl_set_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
13912 ENDIF
13913 model_config_rec%auxhist11_inname = trim(auxhist11_inname)
13914 RETURN
13915 END SUBROUTINE nl_set_auxhist11_inname
13916 SUBROUTINE nl_set_auxinput1_outname ( id_id , auxinput1_outname )
13917 character*256 , INTENT(IN) :: auxinput1_outname
13918 INTEGER id_id
13919 CHARACTER*80 emess
13920 IF ( id_id .NE. 1 ) THEN
13921 call wrf_debug(1,&
13922 'WARNING in nl_set_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
13923 ENDIF
13924 model_config_rec%auxinput1_outname = trim(auxinput1_outname)
13925 RETURN
13926 END SUBROUTINE nl_set_auxinput1_outname
13927 SUBROUTINE nl_set_auxinput2_outname ( id_id , auxinput2_outname )
13928 character*256 , INTENT(IN) :: auxinput2_outname
13929 INTEGER id_id
13930 CHARACTER*80 emess
13931 IF ( id_id .NE. 1 ) THEN
13932 call wrf_debug(1,&
13933 'WARNING in nl_set_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
13934 ENDIF
13935 model_config_rec%auxinput2_outname = trim(auxinput2_outname)
13936 RETURN
13937 END SUBROUTINE nl_set_auxinput2_outname
13938 SUBROUTINE nl_set_auxinput3_outname ( id_id , auxinput3_outname )
13939 character*256 , INTENT(IN) :: auxinput3_outname
13940 INTEGER id_id
13941 CHARACTER*80 emess
13942 IF ( id_id .NE. 1 ) THEN
13943 call wrf_debug(1,&
13944 'WARNING in nl_set_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
13945 ENDIF
13946 model_config_rec%auxinput3_outname = trim(auxinput3_outname)
13947 RETURN
13948 END SUBROUTINE nl_set_auxinput3_outname
13949 SUBROUTINE nl_set_auxinput4_outname ( id_id , auxinput4_outname )
13950 character*256 , INTENT(IN) :: auxinput4_outname
13951 INTEGER id_id
13952 CHARACTER*80 emess
13953 IF ( id_id .NE. 1 ) THEN
13954 call wrf_debug(1,&
13955 'WARNING in nl_set_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
13956 ENDIF
13957 model_config_rec%auxinput4_outname = trim(auxinput4_outname)
13958 RETURN
13959 END SUBROUTINE nl_set_auxinput4_outname
13960 SUBROUTINE nl_set_auxinput5_outname ( id_id , auxinput5_outname )
13961 character*256 , INTENT(IN) :: auxinput5_outname
13962 INTEGER id_id
13963 CHARACTER*80 emess
13964 IF ( id_id .NE. 1 ) THEN
13965 call wrf_debug(1,&
13966 'WARNING in nl_set_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
13967 ENDIF
13968 model_config_rec%auxinput5_outname = trim(auxinput5_outname)
13969 RETURN
13970 END SUBROUTINE nl_set_auxinput5_outname
13971 SUBROUTINE nl_set_auxinput6_outname ( id_id , auxinput6_outname )
13972 character*256 , INTENT(IN) :: auxinput6_outname
13973 INTEGER id_id
13974 CHARACTER*80 emess
13975 IF ( id_id .NE. 1 ) THEN
13976 call wrf_debug(1,&
13977 'WARNING in nl_set_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
13978 ENDIF
13979 model_config_rec%auxinput6_outname = trim(auxinput6_outname)
13980 RETURN
13981 END SUBROUTINE nl_set_auxinput6_outname
13982 SUBROUTINE nl_set_auxinput7_outname ( id_id , auxinput7_outname )
13983 character*256 , INTENT(IN) :: auxinput7_outname
13984 INTEGER id_id
13985 CHARACTER*80 emess
13986 IF ( id_id .NE. 1 ) THEN
13987 call wrf_debug(1,&
13988 'WARNING in nl_set_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
13989 ENDIF
13990 model_config_rec%auxinput7_outname = trim(auxinput7_outname)
13991 RETURN
13992 END SUBROUTINE nl_set_auxinput7_outname
13993 SUBROUTINE nl_set_auxinput8_outname ( id_id , auxinput8_outname )
13994 character*256 , INTENT(IN) :: auxinput8_outname
13995 INTEGER id_id
13996 CHARACTER*80 emess
13997 IF ( id_id .NE. 1 ) THEN
13998 call wrf_debug(1,&
13999 'WARNING in nl_set_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
14000 ENDIF
14001 model_config_rec%auxinput8_outname = trim(auxinput8_outname)
14002 RETURN
14003 END SUBROUTINE nl_set_auxinput8_outname
14004 SUBROUTINE nl_set_auxinput9_outname ( id_id , auxinput9_outname )
14005 character*256 , INTENT(IN) :: auxinput9_outname
14006 INTEGER id_id
14007 CHARACTER*80 emess
14008 IF ( id_id .NE. 1 ) THEN
14009 call wrf_debug(1,&
14010 'WARNING in nl_set_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
14011 ENDIF
14012 model_config_rec%auxinput9_outname = trim(auxinput9_outname)
14013 RETURN
14014 END SUBROUTINE nl_set_auxinput9_outname
14015 SUBROUTINE nl_set_auxinput10_outname ( id_id , auxinput10_outname )
14016 character*256 , INTENT(IN) :: auxinput10_outname
14017 INTEGER id_id
14018 CHARACTER*80 emess
14019 IF ( id_id .NE. 1 ) THEN
14020 call wrf_debug(1,&
14021 'WARNING in nl_set_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
14022 ENDIF
14023 model_config_rec%auxinput10_outname = trim(auxinput10_outname)
14024 RETURN
14025 END SUBROUTINE nl_set_auxinput10_outname
14026 SUBROUTINE nl_set_auxinput11_outname ( id_id , auxinput11_outname )
14027 character*256 , INTENT(IN) :: auxinput11_outname
14028 INTEGER id_id
14029 CHARACTER*80 emess
14030 IF ( id_id .NE. 1 ) THEN
14031 call wrf_debug(1,&
14032 'WARNING in nl_set_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
14033 ENDIF
14034 model_config_rec%auxinput11_outname = trim(auxinput11_outname)
14035 RETURN
14036 END SUBROUTINE nl_set_auxinput11_outname
14037 SUBROUTINE nl_set_auxinput1_inname ( id_id , auxinput1_inname )
14038 character*256 , INTENT(IN) :: auxinput1_inname
14039 INTEGER id_id
14040 CHARACTER*80 emess
14041 IF ( id_id .NE. 1 ) THEN
14042 call wrf_debug(1,&
14043 'WARNING in nl_set_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
14044 ENDIF
14045 model_config_rec%auxinput1_inname = trim(auxinput1_inname)
14046 RETURN
14047 END SUBROUTINE nl_set_auxinput1_inname
14048 SUBROUTINE nl_set_auxinput2_inname ( id_id , auxinput2_inname )
14049 character*256 , INTENT(IN) :: auxinput2_inname
14050 INTEGER id_id
14051 CHARACTER*80 emess
14052 IF ( id_id .NE. 1 ) THEN
14053 call wrf_debug(1,&
14054 'WARNING in nl_set_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
14055 ENDIF
14056 model_config_rec%auxinput2_inname = trim(auxinput2_inname)
14057 RETURN
14058 END SUBROUTINE nl_set_auxinput2_inname
14059 SUBROUTINE nl_set_auxinput3_inname ( id_id , auxinput3_inname )
14060 character*256 , INTENT(IN) :: auxinput3_inname
14061 INTEGER id_id
14062 CHARACTER*80 emess
14063 IF ( id_id .NE. 1 ) THEN
14064 call wrf_debug(1,&
14065 'WARNING in nl_set_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
14066 ENDIF
14067 model_config_rec%auxinput3_inname = trim(auxinput3_inname)
14068 RETURN
14069 END SUBROUTINE nl_set_auxinput3_inname
14070 SUBROUTINE nl_set_auxinput4_inname ( id_id , auxinput4_inname )
14071 character*256 , INTENT(IN) :: auxinput4_inname
14072 INTEGER id_id
14073 CHARACTER*80 emess
14074 IF ( id_id .NE. 1 ) THEN
14075 call wrf_debug(1,&
14076 'WARNING in nl_set_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
14077 ENDIF
14078 model_config_rec%auxinput4_inname = trim(auxinput4_inname)
14079 RETURN
14080 END SUBROUTINE nl_set_auxinput4_inname
14081 SUBROUTINE nl_set_auxinput5_inname ( id_id , auxinput5_inname )
14082 character*256 , INTENT(IN) :: auxinput5_inname
14083 INTEGER id_id
14084 CHARACTER*80 emess
14085 IF ( id_id .NE. 1 ) THEN
14086 call wrf_debug(1,&
14087 'WARNING in nl_set_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
14088 ENDIF
14089 model_config_rec%auxinput5_inname = trim(auxinput5_inname)
14090 RETURN
14091 END SUBROUTINE nl_set_auxinput5_inname
14092 SUBROUTINE nl_set_auxinput6_inname ( id_id , auxinput6_inname )
14093 character*256 , INTENT(IN) :: auxinput6_inname
14094 INTEGER id_id
14095 CHARACTER*80 emess
14096 IF ( id_id .NE. 1 ) THEN
14097 call wrf_debug(1,&
14098 'WARNING in nl_set_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
14099 ENDIF
14100 model_config_rec%auxinput6_inname = trim(auxinput6_inname)
14101 RETURN
14102 END SUBROUTINE nl_set_auxinput6_inname
14103 SUBROUTINE nl_set_auxinput7_inname ( id_id , auxinput7_inname )
14104 character*256 , INTENT(IN) :: auxinput7_inname
14105 INTEGER id_id
14106 CHARACTER*80 emess
14107 IF ( id_id .NE. 1 ) THEN
14108 call wrf_debug(1,&
14109 'WARNING in nl_set_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
14110 ENDIF
14111 model_config_rec%auxinput7_inname = trim(auxinput7_inname)
14112 RETURN
14113 END SUBROUTINE nl_set_auxinput7_inname
14114 SUBROUTINE nl_set_auxinput8_inname ( id_id , auxinput8_inname )
14115 character*256 , INTENT(IN) :: auxinput8_inname
14116 INTEGER id_id
14117 CHARACTER*80 emess
14118 IF ( id_id .NE. 1 ) THEN
14119 call wrf_debug(1,&
14120 'WARNING in nl_set_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
14121 ENDIF
14122 model_config_rec%auxinput8_inname = trim(auxinput8_inname)
14123 RETURN
14124 END SUBROUTINE nl_set_auxinput8_inname
14125 SUBROUTINE nl_set_auxinput9_inname ( id_id , auxinput9_inname )
14126 character*256 , INTENT(IN) :: auxinput9_inname
14127 INTEGER id_id
14128 CHARACTER*80 emess
14129 IF ( id_id .NE. 1 ) THEN
14130 call wrf_debug(1,&
14131 'WARNING in nl_set_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
14132 ENDIF
14133 model_config_rec%auxinput9_inname = trim(auxinput9_inname)
14134 RETURN
14135 END SUBROUTINE nl_set_auxinput9_inname
14136 SUBROUTINE nl_set_gfdda_inname ( id_id , gfdda_inname )
14137 character*256 , INTENT(IN) :: gfdda_inname
14138 INTEGER id_id
14139 CHARACTER*80 emess
14140 IF ( id_id .NE. 1 ) THEN
14141 call wrf_debug(1,&
14142 'WARNING in nl_set_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
14143 ENDIF
14144 model_config_rec%gfdda_inname = trim(gfdda_inname)
14145 RETURN
14146 END SUBROUTINE nl_set_gfdda_inname
14147 SUBROUTINE nl_set_auxinput11_inname ( id_id , auxinput11_inname )
14148 character*256 , INTENT(IN) :: auxinput11_inname
14149 INTEGER id_id
14150 CHARACTER*80 emess
14151 IF ( id_id .NE. 1 ) THEN
14152 call wrf_debug(1,&
14153 'WARNING in nl_set_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
14154 ENDIF
14155 model_config_rec%auxinput11_inname = trim(auxinput11_inname)
14156 RETURN
14157 END SUBROUTINE nl_set_auxinput11_inname
14158 SUBROUTINE nl_set_history_interval_mo ( id_id , history_interval_mo )
14159 integer , INTENT(IN) :: history_interval_mo
14160 INTEGER id_id
14161 CHARACTER*80 emess
14162 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14163 WRITE(emess,*)'nl_set_history_interval_mo: Out of range domain number: ',id_id
14164 CALL wrf_error_fatal(emess)
14165 ENDIF
14166 model_config_rec%history_interval_mo(id_id) = history_interval_mo
14167 RETURN
14168 END SUBROUTINE nl_set_history_interval_mo
14169 SUBROUTINE nl_set_history_interval_d ( id_id , history_interval_d )
14170 integer , INTENT(IN) :: history_interval_d
14171 INTEGER id_id
14172 CHARACTER*80 emess
14173 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14174 WRITE(emess,*)'nl_set_history_interval_d: Out of range domain number: ',id_id
14175 CALL wrf_error_fatal(emess)
14176 ENDIF
14177 model_config_rec%history_interval_d(id_id) = history_interval_d
14178 RETURN
14179 END SUBROUTINE nl_set_history_interval_d
14180 SUBROUTINE nl_set_history_interval_h ( id_id , history_interval_h )
14181 integer , INTENT(IN) :: history_interval_h
14182 INTEGER id_id
14183 CHARACTER*80 emess
14184 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14185 WRITE(emess,*)'nl_set_history_interval_h: Out of range domain number: ',id_id
14186 CALL wrf_error_fatal(emess)
14187 ENDIF
14188 model_config_rec%history_interval_h(id_id) = history_interval_h
14189 RETURN
14190 END SUBROUTINE nl_set_history_interval_h
14191 SUBROUTINE nl_set_history_interval_m ( id_id , history_interval_m )
14192 integer , INTENT(IN) :: history_interval_m
14193 INTEGER id_id
14194 CHARACTER*80 emess
14195 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14196 WRITE(emess,*)'nl_set_history_interval_m: Out of range domain number: ',id_id
14197 CALL wrf_error_fatal(emess)
14198 ENDIF
14199 model_config_rec%history_interval_m(id_id) = history_interval_m
14200 RETURN
14201 END SUBROUTINE nl_set_history_interval_m
14202 SUBROUTINE nl_set_history_interval_s ( id_id , history_interval_s )
14203 integer , INTENT(IN) :: history_interval_s
14204 INTEGER id_id
14205 CHARACTER*80 emess
14206 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14207 WRITE(emess,*)'nl_set_history_interval_s: Out of range domain number: ',id_id
14208 CALL wrf_error_fatal(emess)
14209 ENDIF
14210 model_config_rec%history_interval_s(id_id) = history_interval_s
14211 RETURN
14212 END SUBROUTINE nl_set_history_interval_s
14213 SUBROUTINE nl_set_inputout_interval_mo ( id_id , inputout_interval_mo )
14214 integer , INTENT(IN) :: inputout_interval_mo
14215 INTEGER id_id
14216 CHARACTER*80 emess
14217 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14218 WRITE(emess,*)'nl_set_inputout_interval_mo: Out of range domain number: ',id_id
14219 CALL wrf_error_fatal(emess)
14220 ENDIF
14221 model_config_rec%inputout_interval_mo(id_id) = inputout_interval_mo
14222 RETURN
14223 END SUBROUTINE nl_set_inputout_interval_mo
14224 SUBROUTINE nl_set_inputout_interval_d ( id_id , inputout_interval_d )
14225 integer , INTENT(IN) :: inputout_interval_d
14226 INTEGER id_id
14227 CHARACTER*80 emess
14228 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14229 WRITE(emess,*)'nl_set_inputout_interval_d: Out of range domain number: ',id_id
14230 CALL wrf_error_fatal(emess)
14231 ENDIF
14232 model_config_rec%inputout_interval_d(id_id) = inputout_interval_d
14233 RETURN
14234 END SUBROUTINE nl_set_inputout_interval_d
14235 SUBROUTINE nl_set_inputout_interval_h ( id_id , inputout_interval_h )
14236 integer , INTENT(IN) :: inputout_interval_h
14237 INTEGER id_id
14238 CHARACTER*80 emess
14239 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14240 WRITE(emess,*)'nl_set_inputout_interval_h: Out of range domain number: ',id_id
14241 CALL wrf_error_fatal(emess)
14242 ENDIF
14243 model_config_rec%inputout_interval_h(id_id) = inputout_interval_h
14244 RETURN
14245 END SUBROUTINE nl_set_inputout_interval_h
14246 SUBROUTINE nl_set_inputout_interval_m ( id_id , inputout_interval_m )
14247 integer , INTENT(IN) :: inputout_interval_m
14248 INTEGER id_id
14249 CHARACTER*80 emess
14250 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14251 WRITE(emess,*)'nl_set_inputout_interval_m: Out of range domain number: ',id_id
14252 CALL wrf_error_fatal(emess)
14253 ENDIF
14254 model_config_rec%inputout_interval_m(id_id) = inputout_interval_m
14255 RETURN
14256 END SUBROUTINE nl_set_inputout_interval_m
14257 SUBROUTINE nl_set_inputout_interval_s ( id_id , inputout_interval_s )
14258 integer , INTENT(IN) :: inputout_interval_s
14259 INTEGER id_id
14260 CHARACTER*80 emess
14261 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14262 WRITE(emess,*)'nl_set_inputout_interval_s: Out of range domain number: ',id_id
14263 CALL wrf_error_fatal(emess)
14264 ENDIF
14265 model_config_rec%inputout_interval_s(id_id) = inputout_interval_s
14266 RETURN
14267 END SUBROUTINE nl_set_inputout_interval_s
14268 SUBROUTINE nl_set_inputout_interval ( id_id , inputout_interval )
14269 integer , INTENT(IN) :: inputout_interval
14270 INTEGER id_id
14271 CHARACTER*80 emess
14272 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14273 WRITE(emess,*)'nl_set_inputout_interval: Out of range domain number: ',id_id
14274 CALL wrf_error_fatal(emess)
14275 ENDIF
14276 model_config_rec%inputout_interval(id_id) = inputout_interval
14277 RETURN
14278 END SUBROUTINE nl_set_inputout_interval
14279 SUBROUTINE nl_set_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
14280 integer , INTENT(IN) :: auxhist1_interval_mo
14281 INTEGER id_id
14282 CHARACTER*80 emess
14283 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14284 WRITE(emess,*)'nl_set_auxhist1_interval_mo: Out of range domain number: ',id_id
14285 CALL wrf_error_fatal(emess)
14286 ENDIF
14287 model_config_rec%auxhist1_interval_mo(id_id) = auxhist1_interval_mo
14288 RETURN
14289 END SUBROUTINE nl_set_auxhist1_interval_mo
14290 SUBROUTINE nl_set_auxhist1_interval_d ( id_id , auxhist1_interval_d )
14291 integer , INTENT(IN) :: auxhist1_interval_d
14292 INTEGER id_id
14293 CHARACTER*80 emess
14294 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14295 WRITE(emess,*)'nl_set_auxhist1_interval_d: Out of range domain number: ',id_id
14296 CALL wrf_error_fatal(emess)
14297 ENDIF
14298 model_config_rec%auxhist1_interval_d(id_id) = auxhist1_interval_d
14299 RETURN
14300 END SUBROUTINE nl_set_auxhist1_interval_d
14301 SUBROUTINE nl_set_auxhist1_interval_h ( id_id , auxhist1_interval_h )
14302 integer , INTENT(IN) :: auxhist1_interval_h
14303 INTEGER id_id
14304 CHARACTER*80 emess
14305 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14306 WRITE(emess,*)'nl_set_auxhist1_interval_h: Out of range domain number: ',id_id
14307 CALL wrf_error_fatal(emess)
14308 ENDIF
14309 model_config_rec%auxhist1_interval_h(id_id) = auxhist1_interval_h
14310 RETURN
14311 END SUBROUTINE nl_set_auxhist1_interval_h
14312 SUBROUTINE nl_set_auxhist1_interval_m ( id_id , auxhist1_interval_m )
14313 integer , INTENT(IN) :: auxhist1_interval_m
14314 INTEGER id_id
14315 CHARACTER*80 emess
14316 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14317 WRITE(emess,*)'nl_set_auxhist1_interval_m: Out of range domain number: ',id_id
14318 CALL wrf_error_fatal(emess)
14319 ENDIF
14320 model_config_rec%auxhist1_interval_m(id_id) = auxhist1_interval_m
14321 RETURN
14322 END SUBROUTINE nl_set_auxhist1_interval_m
14323 SUBROUTINE nl_set_auxhist1_interval_s ( id_id , auxhist1_interval_s )
14324 integer , INTENT(IN) :: auxhist1_interval_s
14325 INTEGER id_id
14326 CHARACTER*80 emess
14327 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14328 WRITE(emess,*)'nl_set_auxhist1_interval_s: Out of range domain number: ',id_id
14329 CALL wrf_error_fatal(emess)
14330 ENDIF
14331 model_config_rec%auxhist1_interval_s(id_id) = auxhist1_interval_s
14332 RETURN
14333 END SUBROUTINE nl_set_auxhist1_interval_s
14334 SUBROUTINE nl_set_auxhist1_interval ( id_id , auxhist1_interval )
14335 integer , INTENT(IN) :: auxhist1_interval
14336 INTEGER id_id
14337 CHARACTER*80 emess
14338 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14339 WRITE(emess,*)'nl_set_auxhist1_interval: Out of range domain number: ',id_id
14340 CALL wrf_error_fatal(emess)
14341 ENDIF
14342 model_config_rec%auxhist1_interval(id_id) = auxhist1_interval
14343 RETURN
14344 END SUBROUTINE nl_set_auxhist1_interval
14345 SUBROUTINE nl_set_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
14346 integer , INTENT(IN) :: auxhist2_interval_mo
14347 INTEGER id_id
14348 CHARACTER*80 emess
14349 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14350 WRITE(emess,*)'nl_set_auxhist2_interval_mo: Out of range domain number: ',id_id
14351 CALL wrf_error_fatal(emess)
14352 ENDIF
14353 model_config_rec%auxhist2_interval_mo(id_id) = auxhist2_interval_mo
14354 RETURN
14355 END SUBROUTINE nl_set_auxhist2_interval_mo
14356 SUBROUTINE nl_set_auxhist2_interval_d ( id_id , auxhist2_interval_d )
14357 integer , INTENT(IN) :: auxhist2_interval_d
14358 INTEGER id_id
14359 CHARACTER*80 emess
14360 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14361 WRITE(emess,*)'nl_set_auxhist2_interval_d: Out of range domain number: ',id_id
14362 CALL wrf_error_fatal(emess)
14363 ENDIF
14364 model_config_rec%auxhist2_interval_d(id_id) = auxhist2_interval_d
14365 RETURN
14366 END SUBROUTINE nl_set_auxhist2_interval_d
14367 SUBROUTINE nl_set_auxhist2_interval_h ( id_id , auxhist2_interval_h )
14368 integer , INTENT(IN) :: auxhist2_interval_h
14369 INTEGER id_id
14370 CHARACTER*80 emess
14371 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14372 WRITE(emess,*)'nl_set_auxhist2_interval_h: Out of range domain number: ',id_id
14373 CALL wrf_error_fatal(emess)
14374 ENDIF
14375 model_config_rec%auxhist2_interval_h(id_id) = auxhist2_interval_h
14376 RETURN
14377 END SUBROUTINE nl_set_auxhist2_interval_h
14378 SUBROUTINE nl_set_auxhist2_interval_m ( id_id , auxhist2_interval_m )
14379 integer , INTENT(IN) :: auxhist2_interval_m
14380 INTEGER id_id
14381 CHARACTER*80 emess
14382 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14383 WRITE(emess,*)'nl_set_auxhist2_interval_m: Out of range domain number: ',id_id
14384 CALL wrf_error_fatal(emess)
14385 ENDIF
14386 model_config_rec%auxhist2_interval_m(id_id) = auxhist2_interval_m
14387 RETURN
14388 END SUBROUTINE nl_set_auxhist2_interval_m
14389 SUBROUTINE nl_set_auxhist2_interval_s ( id_id , auxhist2_interval_s )
14390 integer , INTENT(IN) :: auxhist2_interval_s
14391 INTEGER id_id
14392 CHARACTER*80 emess
14393 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14394 WRITE(emess,*)'nl_set_auxhist2_interval_s: Out of range domain number: ',id_id
14395 CALL wrf_error_fatal(emess)
14396 ENDIF
14397 model_config_rec%auxhist2_interval_s(id_id) = auxhist2_interval_s
14398 RETURN
14399 END SUBROUTINE nl_set_auxhist2_interval_s
14400 SUBROUTINE nl_set_auxhist2_interval ( id_id , auxhist2_interval )
14401 integer , INTENT(IN) :: auxhist2_interval
14402 INTEGER id_id
14403 CHARACTER*80 emess
14404 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14405 WRITE(emess,*)'nl_set_auxhist2_interval: Out of range domain number: ',id_id
14406 CALL wrf_error_fatal(emess)
14407 ENDIF
14408 model_config_rec%auxhist2_interval(id_id) = auxhist2_interval
14409 RETURN
14410 END SUBROUTINE nl_set_auxhist2_interval
14411 SUBROUTINE nl_set_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
14412 integer , INTENT(IN) :: auxhist3_interval_mo
14413 INTEGER id_id
14414 CHARACTER*80 emess
14415 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14416 WRITE(emess,*)'nl_set_auxhist3_interval_mo: Out of range domain number: ',id_id
14417 CALL wrf_error_fatal(emess)
14418 ENDIF
14419 model_config_rec%auxhist3_interval_mo(id_id) = auxhist3_interval_mo
14420 RETURN
14421 END SUBROUTINE nl_set_auxhist3_interval_mo
14422 SUBROUTINE nl_set_auxhist3_interval_d ( id_id , auxhist3_interval_d )
14423 integer , INTENT(IN) :: auxhist3_interval_d
14424 INTEGER id_id
14425 CHARACTER*80 emess
14426 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14427 WRITE(emess,*)'nl_set_auxhist3_interval_d: Out of range domain number: ',id_id
14428 CALL wrf_error_fatal(emess)
14429 ENDIF
14430 model_config_rec%auxhist3_interval_d(id_id) = auxhist3_interval_d
14431 RETURN
14432 END SUBROUTINE nl_set_auxhist3_interval_d
14433 SUBROUTINE nl_set_auxhist3_interval_h ( id_id , auxhist3_interval_h )
14434 integer , INTENT(IN) :: auxhist3_interval_h
14435 INTEGER id_id
14436 CHARACTER*80 emess
14437 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14438 WRITE(emess,*)'nl_set_auxhist3_interval_h: Out of range domain number: ',id_id
14439 CALL wrf_error_fatal(emess)
14440 ENDIF
14441 model_config_rec%auxhist3_interval_h(id_id) = auxhist3_interval_h
14442 RETURN
14443 END SUBROUTINE nl_set_auxhist3_interval_h
14444 SUBROUTINE nl_set_auxhist3_interval_m ( id_id , auxhist3_interval_m )
14445 integer , INTENT(IN) :: auxhist3_interval_m
14446 INTEGER id_id
14447 CHARACTER*80 emess
14448 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14449 WRITE(emess,*)'nl_set_auxhist3_interval_m: Out of range domain number: ',id_id
14450 CALL wrf_error_fatal(emess)
14451 ENDIF
14452 model_config_rec%auxhist3_interval_m(id_id) = auxhist3_interval_m
14453 RETURN
14454 END SUBROUTINE nl_set_auxhist3_interval_m
14455 SUBROUTINE nl_set_auxhist3_interval_s ( id_id , auxhist3_interval_s )
14456 integer , INTENT(IN) :: auxhist3_interval_s
14457 INTEGER id_id
14458 CHARACTER*80 emess
14459 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14460 WRITE(emess,*)'nl_set_auxhist3_interval_s: Out of range domain number: ',id_id
14461 CALL wrf_error_fatal(emess)
14462 ENDIF
14463 model_config_rec%auxhist3_interval_s(id_id) = auxhist3_interval_s
14464 RETURN
14465 END SUBROUTINE nl_set_auxhist3_interval_s
14466 SUBROUTINE nl_set_auxhist3_interval ( id_id , auxhist3_interval )
14467 integer , INTENT(IN) :: auxhist3_interval
14468 INTEGER id_id
14469 CHARACTER*80 emess
14470 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14471 WRITE(emess,*)'nl_set_auxhist3_interval: Out of range domain number: ',id_id
14472 CALL wrf_error_fatal(emess)
14473 ENDIF
14474 model_config_rec%auxhist3_interval(id_id) = auxhist3_interval
14475 RETURN
14476 END SUBROUTINE nl_set_auxhist3_interval
14477 SUBROUTINE nl_set_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
14478 integer , INTENT(IN) :: auxhist4_interval_mo
14479 INTEGER id_id
14480 CHARACTER*80 emess
14481 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14482 WRITE(emess,*)'nl_set_auxhist4_interval_mo: Out of range domain number: ',id_id
14483 CALL wrf_error_fatal(emess)
14484 ENDIF
14485 model_config_rec%auxhist4_interval_mo(id_id) = auxhist4_interval_mo
14486 RETURN
14487 END SUBROUTINE nl_set_auxhist4_interval_mo
14488 SUBROUTINE nl_set_auxhist4_interval_d ( id_id , auxhist4_interval_d )
14489 integer , INTENT(IN) :: auxhist4_interval_d
14490 INTEGER id_id
14491 CHARACTER*80 emess
14492 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14493 WRITE(emess,*)'nl_set_auxhist4_interval_d: Out of range domain number: ',id_id
14494 CALL wrf_error_fatal(emess)
14495 ENDIF
14496 model_config_rec%auxhist4_interval_d(id_id) = auxhist4_interval_d
14497 RETURN
14498 END SUBROUTINE nl_set_auxhist4_interval_d
14499 SUBROUTINE nl_set_auxhist4_interval_h ( id_id , auxhist4_interval_h )
14500 integer , INTENT(IN) :: auxhist4_interval_h
14501 INTEGER id_id
14502 CHARACTER*80 emess
14503 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14504 WRITE(emess,*)'nl_set_auxhist4_interval_h: Out of range domain number: ',id_id
14505 CALL wrf_error_fatal(emess)
14506 ENDIF
14507 model_config_rec%auxhist4_interval_h(id_id) = auxhist4_interval_h
14508 RETURN
14509 END SUBROUTINE nl_set_auxhist4_interval_h
14510 SUBROUTINE nl_set_auxhist4_interval_m ( id_id , auxhist4_interval_m )
14511 integer , INTENT(IN) :: auxhist4_interval_m
14512 INTEGER id_id
14513 CHARACTER*80 emess
14514 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14515 WRITE(emess,*)'nl_set_auxhist4_interval_m: Out of range domain number: ',id_id
14516 CALL wrf_error_fatal(emess)
14517 ENDIF
14518 model_config_rec%auxhist4_interval_m(id_id) = auxhist4_interval_m
14519 RETURN
14520 END SUBROUTINE nl_set_auxhist4_interval_m
14521 SUBROUTINE nl_set_auxhist4_interval_s ( id_id , auxhist4_interval_s )
14522 integer , INTENT(IN) :: auxhist4_interval_s
14523 INTEGER id_id
14524 CHARACTER*80 emess
14525 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14526 WRITE(emess,*)'nl_set_auxhist4_interval_s: Out of range domain number: ',id_id
14527 CALL wrf_error_fatal(emess)
14528 ENDIF
14529 model_config_rec%auxhist4_interval_s(id_id) = auxhist4_interval_s
14530 RETURN
14531 END SUBROUTINE nl_set_auxhist4_interval_s
14532 SUBROUTINE nl_set_auxhist4_interval ( id_id , auxhist4_interval )
14533 integer , INTENT(IN) :: auxhist4_interval
14534 INTEGER id_id
14535 CHARACTER*80 emess
14536 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14537 WRITE(emess,*)'nl_set_auxhist4_interval: Out of range domain number: ',id_id
14538 CALL wrf_error_fatal(emess)
14539 ENDIF
14540 model_config_rec%auxhist4_interval(id_id) = auxhist4_interval
14541 RETURN
14542 END SUBROUTINE nl_set_auxhist4_interval
14543 SUBROUTINE nl_set_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
14544 integer , INTENT(IN) :: auxhist5_interval_mo
14545 INTEGER id_id
14546 CHARACTER*80 emess
14547 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14548 WRITE(emess,*)'nl_set_auxhist5_interval_mo: Out of range domain number: ',id_id
14549 CALL wrf_error_fatal(emess)
14550 ENDIF
14551 model_config_rec%auxhist5_interval_mo(id_id) = auxhist5_interval_mo
14552 RETURN
14553 END SUBROUTINE nl_set_auxhist5_interval_mo
14554 SUBROUTINE nl_set_auxhist5_interval_d ( id_id , auxhist5_interval_d )
14555 integer , INTENT(IN) :: auxhist5_interval_d
14556 INTEGER id_id
14557 CHARACTER*80 emess
14558 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14559 WRITE(emess,*)'nl_set_auxhist5_interval_d: Out of range domain number: ',id_id
14560 CALL wrf_error_fatal(emess)
14561 ENDIF
14562 model_config_rec%auxhist5_interval_d(id_id) = auxhist5_interval_d
14563 RETURN
14564 END SUBROUTINE nl_set_auxhist5_interval_d
14565 SUBROUTINE nl_set_auxhist5_interval_h ( id_id , auxhist5_interval_h )
14566 integer , INTENT(IN) :: auxhist5_interval_h
14567 INTEGER id_id
14568 CHARACTER*80 emess
14569 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14570 WRITE(emess,*)'nl_set_auxhist5_interval_h: Out of range domain number: ',id_id
14571 CALL wrf_error_fatal(emess)
14572 ENDIF
14573 model_config_rec%auxhist5_interval_h(id_id) = auxhist5_interval_h
14574 RETURN
14575 END SUBROUTINE nl_set_auxhist5_interval_h
14576 SUBROUTINE nl_set_auxhist5_interval_m ( id_id , auxhist5_interval_m )
14577 integer , INTENT(IN) :: auxhist5_interval_m
14578 INTEGER id_id
14579 CHARACTER*80 emess
14580 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14581 WRITE(emess,*)'nl_set_auxhist5_interval_m: Out of range domain number: ',id_id
14582 CALL wrf_error_fatal(emess)
14583 ENDIF
14584 model_config_rec%auxhist5_interval_m(id_id) = auxhist5_interval_m
14585 RETURN
14586 END SUBROUTINE nl_set_auxhist5_interval_m
14587 SUBROUTINE nl_set_auxhist5_interval_s ( id_id , auxhist5_interval_s )
14588 integer , INTENT(IN) :: auxhist5_interval_s
14589 INTEGER id_id
14590 CHARACTER*80 emess
14591 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14592 WRITE(emess,*)'nl_set_auxhist5_interval_s: Out of range domain number: ',id_id
14593 CALL wrf_error_fatal(emess)
14594 ENDIF
14595 model_config_rec%auxhist5_interval_s(id_id) = auxhist5_interval_s
14596 RETURN
14597 END SUBROUTINE nl_set_auxhist5_interval_s
14598 SUBROUTINE nl_set_auxhist5_interval ( id_id , auxhist5_interval )
14599 integer , INTENT(IN) :: auxhist5_interval
14600 INTEGER id_id
14601 CHARACTER*80 emess
14602 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14603 WRITE(emess,*)'nl_set_auxhist5_interval: Out of range domain number: ',id_id
14604 CALL wrf_error_fatal(emess)
14605 ENDIF
14606 model_config_rec%auxhist5_interval(id_id) = auxhist5_interval
14607 RETURN
14608 END SUBROUTINE nl_set_auxhist5_interval
14609 SUBROUTINE nl_set_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
14610 integer , INTENT(IN) :: auxhist6_interval_mo
14611 INTEGER id_id
14612 CHARACTER*80 emess
14613 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14614 WRITE(emess,*)'nl_set_auxhist6_interval_mo: Out of range domain number: ',id_id
14615 CALL wrf_error_fatal(emess)
14616 ENDIF
14617 model_config_rec%auxhist6_interval_mo(id_id) = auxhist6_interval_mo
14618 RETURN
14619 END SUBROUTINE nl_set_auxhist6_interval_mo
14620 SUBROUTINE nl_set_auxhist6_interval_d ( id_id , auxhist6_interval_d )
14621 integer , INTENT(IN) :: auxhist6_interval_d
14622 INTEGER id_id
14623 CHARACTER*80 emess
14624 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14625 WRITE(emess,*)'nl_set_auxhist6_interval_d: Out of range domain number: ',id_id
14626 CALL wrf_error_fatal(emess)
14627 ENDIF
14628 model_config_rec%auxhist6_interval_d(id_id) = auxhist6_interval_d
14629 RETURN
14630 END SUBROUTINE nl_set_auxhist6_interval_d
14631 SUBROUTINE nl_set_auxhist6_interval_h ( id_id , auxhist6_interval_h )
14632 integer , INTENT(IN) :: auxhist6_interval_h
14633 INTEGER id_id
14634 CHARACTER*80 emess
14635 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14636 WRITE(emess,*)'nl_set_auxhist6_interval_h: Out of range domain number: ',id_id
14637 CALL wrf_error_fatal(emess)
14638 ENDIF
14639 model_config_rec%auxhist6_interval_h(id_id) = auxhist6_interval_h
14640 RETURN
14641 END SUBROUTINE nl_set_auxhist6_interval_h
14642 SUBROUTINE nl_set_auxhist6_interval_m ( id_id , auxhist6_interval_m )
14643 integer , INTENT(IN) :: auxhist6_interval_m
14644 INTEGER id_id
14645 CHARACTER*80 emess
14646 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14647 WRITE(emess,*)'nl_set_auxhist6_interval_m: Out of range domain number: ',id_id
14648 CALL wrf_error_fatal(emess)
14649 ENDIF
14650 model_config_rec%auxhist6_interval_m(id_id) = auxhist6_interval_m
14651 RETURN
14652 END SUBROUTINE nl_set_auxhist6_interval_m
14653 SUBROUTINE nl_set_auxhist6_interval_s ( id_id , auxhist6_interval_s )
14654 integer , INTENT(IN) :: auxhist6_interval_s
14655 INTEGER id_id
14656 CHARACTER*80 emess
14657 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14658 WRITE(emess,*)'nl_set_auxhist6_interval_s: Out of range domain number: ',id_id
14659 CALL wrf_error_fatal(emess)
14660 ENDIF
14661 model_config_rec%auxhist6_interval_s(id_id) = auxhist6_interval_s
14662 RETURN
14663 END SUBROUTINE nl_set_auxhist6_interval_s
14664 SUBROUTINE nl_set_auxhist6_interval ( id_id , auxhist6_interval )
14665 integer , INTENT(IN) :: auxhist6_interval
14666 INTEGER id_id
14667 CHARACTER*80 emess
14668 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14669 WRITE(emess,*)'nl_set_auxhist6_interval: Out of range domain number: ',id_id
14670 CALL wrf_error_fatal(emess)
14671 ENDIF
14672 model_config_rec%auxhist6_interval(id_id) = auxhist6_interval
14673 RETURN
14674 END SUBROUTINE nl_set_auxhist6_interval
14675 SUBROUTINE nl_set_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
14676 integer , INTENT(IN) :: auxhist7_interval_mo
14677 INTEGER id_id
14678 CHARACTER*80 emess
14679 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14680 WRITE(emess,*)'nl_set_auxhist7_interval_mo: Out of range domain number: ',id_id
14681 CALL wrf_error_fatal(emess)
14682 ENDIF
14683 model_config_rec%auxhist7_interval_mo(id_id) = auxhist7_interval_mo
14684 RETURN
14685 END SUBROUTINE nl_set_auxhist7_interval_mo
14686 SUBROUTINE nl_set_auxhist7_interval_d ( id_id , auxhist7_interval_d )
14687 integer , INTENT(IN) :: auxhist7_interval_d
14688 INTEGER id_id
14689 CHARACTER*80 emess
14690 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14691 WRITE(emess,*)'nl_set_auxhist7_interval_d: Out of range domain number: ',id_id
14692 CALL wrf_error_fatal(emess)
14693 ENDIF
14694 model_config_rec%auxhist7_interval_d(id_id) = auxhist7_interval_d
14695 RETURN
14696 END SUBROUTINE nl_set_auxhist7_interval_d
14697 SUBROUTINE nl_set_auxhist7_interval_h ( id_id , auxhist7_interval_h )
14698 integer , INTENT(IN) :: auxhist7_interval_h
14699 INTEGER id_id
14700 CHARACTER*80 emess
14701 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14702 WRITE(emess,*)'nl_set_auxhist7_interval_h: Out of range domain number: ',id_id
14703 CALL wrf_error_fatal(emess)
14704 ENDIF
14705 model_config_rec%auxhist7_interval_h(id_id) = auxhist7_interval_h
14706 RETURN
14707 END SUBROUTINE nl_set_auxhist7_interval_h
14708 SUBROUTINE nl_set_auxhist7_interval_m ( id_id , auxhist7_interval_m )
14709 integer , INTENT(IN) :: auxhist7_interval_m
14710 INTEGER id_id
14711 CHARACTER*80 emess
14712 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14713 WRITE(emess,*)'nl_set_auxhist7_interval_m: Out of range domain number: ',id_id
14714 CALL wrf_error_fatal(emess)
14715 ENDIF
14716 model_config_rec%auxhist7_interval_m(id_id) = auxhist7_interval_m
14717 RETURN
14718 END SUBROUTINE nl_set_auxhist7_interval_m
14719 SUBROUTINE nl_set_auxhist7_interval_s ( id_id , auxhist7_interval_s )
14720 integer , INTENT(IN) :: auxhist7_interval_s
14721 INTEGER id_id
14722 CHARACTER*80 emess
14723 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14724 WRITE(emess,*)'nl_set_auxhist7_interval_s: Out of range domain number: ',id_id
14725 CALL wrf_error_fatal(emess)
14726 ENDIF
14727 model_config_rec%auxhist7_interval_s(id_id) = auxhist7_interval_s
14728 RETURN
14729 END SUBROUTINE nl_set_auxhist7_interval_s
14730 SUBROUTINE nl_set_auxhist7_interval ( id_id , auxhist7_interval )
14731 integer , INTENT(IN) :: auxhist7_interval
14732 INTEGER id_id
14733 CHARACTER*80 emess
14734 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14735 WRITE(emess,*)'nl_set_auxhist7_interval: Out of range domain number: ',id_id
14736 CALL wrf_error_fatal(emess)
14737 ENDIF
14738 model_config_rec%auxhist7_interval(id_id) = auxhist7_interval
14739 RETURN
14740 END SUBROUTINE nl_set_auxhist7_interval
14741 SUBROUTINE nl_set_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
14742 integer , INTENT(IN) :: auxhist8_interval_mo
14743 INTEGER id_id
14744 CHARACTER*80 emess
14745 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14746 WRITE(emess,*)'nl_set_auxhist8_interval_mo: Out of range domain number: ',id_id
14747 CALL wrf_error_fatal(emess)
14748 ENDIF
14749 model_config_rec%auxhist8_interval_mo(id_id) = auxhist8_interval_mo
14750 RETURN
14751 END SUBROUTINE nl_set_auxhist8_interval_mo
14752 SUBROUTINE nl_set_auxhist8_interval_d ( id_id , auxhist8_interval_d )
14753 integer , INTENT(IN) :: auxhist8_interval_d
14754 INTEGER id_id
14755 CHARACTER*80 emess
14756 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14757 WRITE(emess,*)'nl_set_auxhist8_interval_d: Out of range domain number: ',id_id
14758 CALL wrf_error_fatal(emess)
14759 ENDIF
14760 model_config_rec%auxhist8_interval_d(id_id) = auxhist8_interval_d
14761 RETURN
14762 END SUBROUTINE nl_set_auxhist8_interval_d
14763 SUBROUTINE nl_set_auxhist8_interval_h ( id_id , auxhist8_interval_h )
14764 integer , INTENT(IN) :: auxhist8_interval_h
14765 INTEGER id_id
14766 CHARACTER*80 emess
14767 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14768 WRITE(emess,*)'nl_set_auxhist8_interval_h: Out of range domain number: ',id_id
14769 CALL wrf_error_fatal(emess)
14770 ENDIF
14771 model_config_rec%auxhist8_interval_h(id_id) = auxhist8_interval_h
14772 RETURN
14773 END SUBROUTINE nl_set_auxhist8_interval_h
14774 SUBROUTINE nl_set_auxhist8_interval_m ( id_id , auxhist8_interval_m )
14775 integer , INTENT(IN) :: auxhist8_interval_m
14776 INTEGER id_id
14777 CHARACTER*80 emess
14778 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14779 WRITE(emess,*)'nl_set_auxhist8_interval_m: Out of range domain number: ',id_id
14780 CALL wrf_error_fatal(emess)
14781 ENDIF
14782 model_config_rec%auxhist8_interval_m(id_id) = auxhist8_interval_m
14783 RETURN
14784 END SUBROUTINE nl_set_auxhist8_interval_m
14785 SUBROUTINE nl_set_auxhist8_interval_s ( id_id , auxhist8_interval_s )
14786 integer , INTENT(IN) :: auxhist8_interval_s
14787 INTEGER id_id
14788 CHARACTER*80 emess
14789 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14790 WRITE(emess,*)'nl_set_auxhist8_interval_s: Out of range domain number: ',id_id
14791 CALL wrf_error_fatal(emess)
14792 ENDIF
14793 model_config_rec%auxhist8_interval_s(id_id) = auxhist8_interval_s
14794 RETURN
14795 END SUBROUTINE nl_set_auxhist8_interval_s
14796 SUBROUTINE nl_set_auxhist8_interval ( id_id , auxhist8_interval )
14797 integer , INTENT(IN) :: auxhist8_interval
14798 INTEGER id_id
14799 CHARACTER*80 emess
14800 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14801 WRITE(emess,*)'nl_set_auxhist8_interval: Out of range domain number: ',id_id
14802 CALL wrf_error_fatal(emess)
14803 ENDIF
14804 model_config_rec%auxhist8_interval(id_id) = auxhist8_interval
14805 RETURN
14806 END SUBROUTINE nl_set_auxhist8_interval
14807 SUBROUTINE nl_set_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
14808 integer , INTENT(IN) :: auxhist9_interval_mo
14809 INTEGER id_id
14810 CHARACTER*80 emess
14811 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14812 WRITE(emess,*)'nl_set_auxhist9_interval_mo: Out of range domain number: ',id_id
14813 CALL wrf_error_fatal(emess)
14814 ENDIF
14815 model_config_rec%auxhist9_interval_mo(id_id) = auxhist9_interval_mo
14816 RETURN
14817 END SUBROUTINE nl_set_auxhist9_interval_mo
14818 SUBROUTINE nl_set_auxhist9_interval_d ( id_id , auxhist9_interval_d )
14819 integer , INTENT(IN) :: auxhist9_interval_d
14820 INTEGER id_id
14821 CHARACTER*80 emess
14822 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14823 WRITE(emess,*)'nl_set_auxhist9_interval_d: Out of range domain number: ',id_id
14824 CALL wrf_error_fatal(emess)
14825 ENDIF
14826 model_config_rec%auxhist9_interval_d(id_id) = auxhist9_interval_d
14827 RETURN
14828 END SUBROUTINE nl_set_auxhist9_interval_d
14829 SUBROUTINE nl_set_auxhist9_interval_h ( id_id , auxhist9_interval_h )
14830 integer , INTENT(IN) :: auxhist9_interval_h
14831 INTEGER id_id
14832 CHARACTER*80 emess
14833 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14834 WRITE(emess,*)'nl_set_auxhist9_interval_h: Out of range domain number: ',id_id
14835 CALL wrf_error_fatal(emess)
14836 ENDIF
14837 model_config_rec%auxhist9_interval_h(id_id) = auxhist9_interval_h
14838 RETURN
14839 END SUBROUTINE nl_set_auxhist9_interval_h
14840 SUBROUTINE nl_set_auxhist9_interval_m ( id_id , auxhist9_interval_m )
14841 integer , INTENT(IN) :: auxhist9_interval_m
14842 INTEGER id_id
14843 CHARACTER*80 emess
14844 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14845 WRITE(emess,*)'nl_set_auxhist9_interval_m: Out of range domain number: ',id_id
14846 CALL wrf_error_fatal(emess)
14847 ENDIF
14848 model_config_rec%auxhist9_interval_m(id_id) = auxhist9_interval_m
14849 RETURN
14850 END SUBROUTINE nl_set_auxhist9_interval_m
14851 SUBROUTINE nl_set_auxhist9_interval_s ( id_id , auxhist9_interval_s )
14852 integer , INTENT(IN) :: auxhist9_interval_s
14853 INTEGER id_id
14854 CHARACTER*80 emess
14855 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14856 WRITE(emess,*)'nl_set_auxhist9_interval_s: Out of range domain number: ',id_id
14857 CALL wrf_error_fatal(emess)
14858 ENDIF
14859 model_config_rec%auxhist9_interval_s(id_id) = auxhist9_interval_s
14860 RETURN
14861 END SUBROUTINE nl_set_auxhist9_interval_s
14862 SUBROUTINE nl_set_auxhist9_interval ( id_id , auxhist9_interval )
14863 integer , INTENT(IN) :: auxhist9_interval
14864 INTEGER id_id
14865 CHARACTER*80 emess
14866 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14867 WRITE(emess,*)'nl_set_auxhist9_interval: Out of range domain number: ',id_id
14868 CALL wrf_error_fatal(emess)
14869 ENDIF
14870 model_config_rec%auxhist9_interval(id_id) = auxhist9_interval
14871 RETURN
14872 END SUBROUTINE nl_set_auxhist9_interval
14873 SUBROUTINE nl_set_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
14874 integer , INTENT(IN) :: auxhist10_interval_mo
14875 INTEGER id_id
14876 CHARACTER*80 emess
14877 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14878 WRITE(emess,*)'nl_set_auxhist10_interval_mo: Out of range domain number: ',id_id
14879 CALL wrf_error_fatal(emess)
14880 ENDIF
14881 model_config_rec%auxhist10_interval_mo(id_id) = auxhist10_interval_mo
14882 RETURN
14883 END SUBROUTINE nl_set_auxhist10_interval_mo
14884 SUBROUTINE nl_set_auxhist10_interval_d ( id_id , auxhist10_interval_d )
14885 integer , INTENT(IN) :: auxhist10_interval_d
14886 INTEGER id_id
14887 CHARACTER*80 emess
14888 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14889 WRITE(emess,*)'nl_set_auxhist10_interval_d: Out of range domain number: ',id_id
14890 CALL wrf_error_fatal(emess)
14891 ENDIF
14892 model_config_rec%auxhist10_interval_d(id_id) = auxhist10_interval_d
14893 RETURN
14894 END SUBROUTINE nl_set_auxhist10_interval_d
14895 SUBROUTINE nl_set_auxhist10_interval_h ( id_id , auxhist10_interval_h )
14896 integer , INTENT(IN) :: auxhist10_interval_h
14897 INTEGER id_id
14898 CHARACTER*80 emess
14899 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14900 WRITE(emess,*)'nl_set_auxhist10_interval_h: Out of range domain number: ',id_id
14901 CALL wrf_error_fatal(emess)
14902 ENDIF
14903 model_config_rec%auxhist10_interval_h(id_id) = auxhist10_interval_h
14904 RETURN
14905 END SUBROUTINE nl_set_auxhist10_interval_h
14906 SUBROUTINE nl_set_auxhist10_interval_m ( id_id , auxhist10_interval_m )
14907 integer , INTENT(IN) :: auxhist10_interval_m
14908 INTEGER id_id
14909 CHARACTER*80 emess
14910 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14911 WRITE(emess,*)'nl_set_auxhist10_interval_m: Out of range domain number: ',id_id
14912 CALL wrf_error_fatal(emess)
14913 ENDIF
14914 model_config_rec%auxhist10_interval_m(id_id) = auxhist10_interval_m
14915 RETURN
14916 END SUBROUTINE nl_set_auxhist10_interval_m
14917 SUBROUTINE nl_set_auxhist10_interval_s ( id_id , auxhist10_interval_s )
14918 integer , INTENT(IN) :: auxhist10_interval_s
14919 INTEGER id_id
14920 CHARACTER*80 emess
14921 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14922 WRITE(emess,*)'nl_set_auxhist10_interval_s: Out of range domain number: ',id_id
14923 CALL wrf_error_fatal(emess)
14924 ENDIF
14925 model_config_rec%auxhist10_interval_s(id_id) = auxhist10_interval_s
14926 RETURN
14927 END SUBROUTINE nl_set_auxhist10_interval_s
14928 SUBROUTINE nl_set_auxhist10_interval ( id_id , auxhist10_interval )
14929 integer , INTENT(IN) :: auxhist10_interval
14930 INTEGER id_id
14931 CHARACTER*80 emess
14932 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14933 WRITE(emess,*)'nl_set_auxhist10_interval: Out of range domain number: ',id_id
14934 CALL wrf_error_fatal(emess)
14935 ENDIF
14936 model_config_rec%auxhist10_interval(id_id) = auxhist10_interval
14937 RETURN
14938 END SUBROUTINE nl_set_auxhist10_interval
14939 SUBROUTINE nl_set_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
14940 integer , INTENT(IN) :: auxhist11_interval_mo
14941 INTEGER id_id
14942 CHARACTER*80 emess
14943 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14944 WRITE(emess,*)'nl_set_auxhist11_interval_mo: Out of range domain number: ',id_id
14945 CALL wrf_error_fatal(emess)
14946 ENDIF
14947 model_config_rec%auxhist11_interval_mo(id_id) = auxhist11_interval_mo
14948 RETURN
14949 END SUBROUTINE nl_set_auxhist11_interval_mo
14950 SUBROUTINE nl_set_auxhist11_interval_d ( id_id , auxhist11_interval_d )
14951 integer , INTENT(IN) :: auxhist11_interval_d
14952 INTEGER id_id
14953 CHARACTER*80 emess
14954 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14955 WRITE(emess,*)'nl_set_auxhist11_interval_d: Out of range domain number: ',id_id
14956 CALL wrf_error_fatal(emess)
14957 ENDIF
14958 model_config_rec%auxhist11_interval_d(id_id) = auxhist11_interval_d
14959 RETURN
14960 END SUBROUTINE nl_set_auxhist11_interval_d
14961 SUBROUTINE nl_set_auxhist11_interval_h ( id_id , auxhist11_interval_h )
14962 integer , INTENT(IN) :: auxhist11_interval_h
14963 INTEGER id_id
14964 CHARACTER*80 emess
14965 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14966 WRITE(emess,*)'nl_set_auxhist11_interval_h: Out of range domain number: ',id_id
14967 CALL wrf_error_fatal(emess)
14968 ENDIF
14969 model_config_rec%auxhist11_interval_h(id_id) = auxhist11_interval_h
14970 RETURN
14971 END SUBROUTINE nl_set_auxhist11_interval_h
14972 SUBROUTINE nl_set_auxhist11_interval_m ( id_id , auxhist11_interval_m )
14973 integer , INTENT(IN) :: auxhist11_interval_m
14974 INTEGER id_id
14975 CHARACTER*80 emess
14976 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14977 WRITE(emess,*)'nl_set_auxhist11_interval_m: Out of range domain number: ',id_id
14978 CALL wrf_error_fatal(emess)
14979 ENDIF
14980 model_config_rec%auxhist11_interval_m(id_id) = auxhist11_interval_m
14981 RETURN
14982 END SUBROUTINE nl_set_auxhist11_interval_m
14983 SUBROUTINE nl_set_auxhist11_interval_s ( id_id , auxhist11_interval_s )
14984 integer , INTENT(IN) :: auxhist11_interval_s
14985 INTEGER id_id
14986 CHARACTER*80 emess
14987 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14988 WRITE(emess,*)'nl_set_auxhist11_interval_s: Out of range domain number: ',id_id
14989 CALL wrf_error_fatal(emess)
14990 ENDIF
14991 model_config_rec%auxhist11_interval_s(id_id) = auxhist11_interval_s
14992 RETURN
14993 END SUBROUTINE nl_set_auxhist11_interval_s
14994 SUBROUTINE nl_set_auxhist11_interval ( id_id , auxhist11_interval )
14995 integer , INTENT(IN) :: auxhist11_interval
14996 INTEGER id_id
14997 CHARACTER*80 emess
14998 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14999 WRITE(emess,*)'nl_set_auxhist11_interval: Out of range domain number: ',id_id
15000 CALL wrf_error_fatal(emess)
15001 ENDIF
15002 model_config_rec%auxhist11_interval(id_id) = auxhist11_interval
15003 RETURN
15004 END SUBROUTINE nl_set_auxhist11_interval
15005 SUBROUTINE nl_set_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
15006 integer , INTENT(IN) :: auxinput1_interval_mo
15007 INTEGER id_id
15008 CHARACTER*80 emess
15009 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15010 WRITE(emess,*)'nl_set_auxinput1_interval_mo: Out of range domain number: ',id_id
15011 CALL wrf_error_fatal(emess)
15012 ENDIF
15013 model_config_rec%auxinput1_interval_mo(id_id) = auxinput1_interval_mo
15014 RETURN
15015 END SUBROUTINE nl_set_auxinput1_interval_mo
15016 SUBROUTINE nl_set_auxinput1_interval_d ( id_id , auxinput1_interval_d )
15017 integer , INTENT(IN) :: auxinput1_interval_d
15018 INTEGER id_id
15019 CHARACTER*80 emess
15020 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15021 WRITE(emess,*)'nl_set_auxinput1_interval_d: Out of range domain number: ',id_id
15022 CALL wrf_error_fatal(emess)
15023 ENDIF
15024 model_config_rec%auxinput1_interval_d(id_id) = auxinput1_interval_d
15025 RETURN
15026 END SUBROUTINE nl_set_auxinput1_interval_d
15027 SUBROUTINE nl_set_auxinput1_interval_h ( id_id , auxinput1_interval_h )
15028 integer , INTENT(IN) :: auxinput1_interval_h
15029 INTEGER id_id
15030 CHARACTER*80 emess
15031 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15032 WRITE(emess,*)'nl_set_auxinput1_interval_h: Out of range domain number: ',id_id
15033 CALL wrf_error_fatal(emess)
15034 ENDIF
15035 model_config_rec%auxinput1_interval_h(id_id) = auxinput1_interval_h
15036 RETURN
15037 END SUBROUTINE nl_set_auxinput1_interval_h
15038 SUBROUTINE nl_set_auxinput1_interval_m ( id_id , auxinput1_interval_m )
15039 integer , INTENT(IN) :: auxinput1_interval_m
15040 INTEGER id_id
15041 CHARACTER*80 emess
15042 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15043 WRITE(emess,*)'nl_set_auxinput1_interval_m: Out of range domain number: ',id_id
15044 CALL wrf_error_fatal(emess)
15045 ENDIF
15046 model_config_rec%auxinput1_interval_m(id_id) = auxinput1_interval_m
15047 RETURN
15048 END SUBROUTINE nl_set_auxinput1_interval_m
15049 SUBROUTINE nl_set_auxinput1_interval_s ( id_id , auxinput1_interval_s )
15050 integer , INTENT(IN) :: auxinput1_interval_s
15051 INTEGER id_id
15052 CHARACTER*80 emess
15053 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15054 WRITE(emess,*)'nl_set_auxinput1_interval_s: Out of range domain number: ',id_id
15055 CALL wrf_error_fatal(emess)
15056 ENDIF
15057 model_config_rec%auxinput1_interval_s(id_id) = auxinput1_interval_s
15058 RETURN
15059 END SUBROUTINE nl_set_auxinput1_interval_s
15060 SUBROUTINE nl_set_auxinput1_interval ( id_id , auxinput1_interval )
15061 integer , INTENT(IN) :: auxinput1_interval
15062 INTEGER id_id
15063 CHARACTER*80 emess
15064 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15065 WRITE(emess,*)'nl_set_auxinput1_interval: Out of range domain number: ',id_id
15066 CALL wrf_error_fatal(emess)
15067 ENDIF
15068 model_config_rec%auxinput1_interval(id_id) = auxinput1_interval
15069 RETURN
15070 END SUBROUTINE nl_set_auxinput1_interval
15071 SUBROUTINE nl_set_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
15072 integer , INTENT(IN) :: auxinput2_interval_mo
15073 INTEGER id_id
15074 CHARACTER*80 emess
15075 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15076 WRITE(emess,*)'nl_set_auxinput2_interval_mo: Out of range domain number: ',id_id
15077 CALL wrf_error_fatal(emess)
15078 ENDIF
15079 model_config_rec%auxinput2_interval_mo(id_id) = auxinput2_interval_mo
15080 RETURN
15081 END SUBROUTINE nl_set_auxinput2_interval_mo
15082 SUBROUTINE nl_set_auxinput2_interval_d ( id_id , auxinput2_interval_d )
15083 integer , INTENT(IN) :: auxinput2_interval_d
15084 INTEGER id_id
15085 CHARACTER*80 emess
15086 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15087 WRITE(emess,*)'nl_set_auxinput2_interval_d: Out of range domain number: ',id_id
15088 CALL wrf_error_fatal(emess)
15089 ENDIF
15090 model_config_rec%auxinput2_interval_d(id_id) = auxinput2_interval_d
15091 RETURN
15092 END SUBROUTINE nl_set_auxinput2_interval_d
15093 SUBROUTINE nl_set_auxinput2_interval_h ( id_id , auxinput2_interval_h )
15094 integer , INTENT(IN) :: auxinput2_interval_h
15095 INTEGER id_id
15096 CHARACTER*80 emess
15097 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15098 WRITE(emess,*)'nl_set_auxinput2_interval_h: Out of range domain number: ',id_id
15099 CALL wrf_error_fatal(emess)
15100 ENDIF
15101 model_config_rec%auxinput2_interval_h(id_id) = auxinput2_interval_h
15102 RETURN
15103 END SUBROUTINE nl_set_auxinput2_interval_h
15104 SUBROUTINE nl_set_auxinput2_interval_m ( id_id , auxinput2_interval_m )
15105 integer , INTENT(IN) :: auxinput2_interval_m
15106 INTEGER id_id
15107 CHARACTER*80 emess
15108 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15109 WRITE(emess,*)'nl_set_auxinput2_interval_m: Out of range domain number: ',id_id
15110 CALL wrf_error_fatal(emess)
15111 ENDIF
15112 model_config_rec%auxinput2_interval_m(id_id) = auxinput2_interval_m
15113 RETURN
15114 END SUBROUTINE nl_set_auxinput2_interval_m
15115 SUBROUTINE nl_set_auxinput2_interval_s ( id_id , auxinput2_interval_s )
15116 integer , INTENT(IN) :: auxinput2_interval_s
15117 INTEGER id_id
15118 CHARACTER*80 emess
15119 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15120 WRITE(emess,*)'nl_set_auxinput2_interval_s: Out of range domain number: ',id_id
15121 CALL wrf_error_fatal(emess)
15122 ENDIF
15123 model_config_rec%auxinput2_interval_s(id_id) = auxinput2_interval_s
15124 RETURN
15125 END SUBROUTINE nl_set_auxinput2_interval_s
15126 SUBROUTINE nl_set_auxinput2_interval ( id_id , auxinput2_interval )
15127 integer , INTENT(IN) :: auxinput2_interval
15128 INTEGER id_id
15129 CHARACTER*80 emess
15130 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15131 WRITE(emess,*)'nl_set_auxinput2_interval: Out of range domain number: ',id_id
15132 CALL wrf_error_fatal(emess)
15133 ENDIF
15134 model_config_rec%auxinput2_interval(id_id) = auxinput2_interval
15135 RETURN
15136 END SUBROUTINE nl_set_auxinput2_interval
15137 SUBROUTINE nl_set_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
15138 integer , INTENT(IN) :: auxinput3_interval_mo
15139 INTEGER id_id
15140 CHARACTER*80 emess
15141 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15142 WRITE(emess,*)'nl_set_auxinput3_interval_mo: Out of range domain number: ',id_id
15143 CALL wrf_error_fatal(emess)
15144 ENDIF
15145 model_config_rec%auxinput3_interval_mo(id_id) = auxinput3_interval_mo
15146 RETURN
15147 END SUBROUTINE nl_set_auxinput3_interval_mo
15148 SUBROUTINE nl_set_auxinput3_interval_d ( id_id , auxinput3_interval_d )
15149 integer , INTENT(IN) :: auxinput3_interval_d
15150 INTEGER id_id
15151 CHARACTER*80 emess
15152 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15153 WRITE(emess,*)'nl_set_auxinput3_interval_d: Out of range domain number: ',id_id
15154 CALL wrf_error_fatal(emess)
15155 ENDIF
15156 model_config_rec%auxinput3_interval_d(id_id) = auxinput3_interval_d
15157 RETURN
15158 END SUBROUTINE nl_set_auxinput3_interval_d
15159 SUBROUTINE nl_set_auxinput3_interval_h ( id_id , auxinput3_interval_h )
15160 integer , INTENT(IN) :: auxinput3_interval_h
15161 INTEGER id_id
15162 CHARACTER*80 emess
15163 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15164 WRITE(emess,*)'nl_set_auxinput3_interval_h: Out of range domain number: ',id_id
15165 CALL wrf_error_fatal(emess)
15166 ENDIF
15167 model_config_rec%auxinput3_interval_h(id_id) = auxinput3_interval_h
15168 RETURN
15169 END SUBROUTINE nl_set_auxinput3_interval_h
15170 SUBROUTINE nl_set_auxinput3_interval_m ( id_id , auxinput3_interval_m )
15171 integer , INTENT(IN) :: auxinput3_interval_m
15172 INTEGER id_id
15173 CHARACTER*80 emess
15174 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15175 WRITE(emess,*)'nl_set_auxinput3_interval_m: Out of range domain number: ',id_id
15176 CALL wrf_error_fatal(emess)
15177 ENDIF
15178 model_config_rec%auxinput3_interval_m(id_id) = auxinput3_interval_m
15179 RETURN
15180 END SUBROUTINE nl_set_auxinput3_interval_m
15181 SUBROUTINE nl_set_auxinput3_interval_s ( id_id , auxinput3_interval_s )
15182 integer , INTENT(IN) :: auxinput3_interval_s
15183 INTEGER id_id
15184 CHARACTER*80 emess
15185 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15186 WRITE(emess,*)'nl_set_auxinput3_interval_s: Out of range domain number: ',id_id
15187 CALL wrf_error_fatal(emess)
15188 ENDIF
15189 model_config_rec%auxinput3_interval_s(id_id) = auxinput3_interval_s
15190 RETURN
15191 END SUBROUTINE nl_set_auxinput3_interval_s
15192 SUBROUTINE nl_set_auxinput3_interval ( id_id , auxinput3_interval )
15193 integer , INTENT(IN) :: auxinput3_interval
15194 INTEGER id_id
15195 CHARACTER*80 emess
15196 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15197 WRITE(emess,*)'nl_set_auxinput3_interval: Out of range domain number: ',id_id
15198 CALL wrf_error_fatal(emess)
15199 ENDIF
15200 model_config_rec%auxinput3_interval(id_id) = auxinput3_interval
15201 RETURN
15202 END SUBROUTINE nl_set_auxinput3_interval
15203 SUBROUTINE nl_set_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
15204 integer , INTENT(IN) :: auxinput4_interval_mo
15205 INTEGER id_id
15206 CHARACTER*80 emess
15207 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15208 WRITE(emess,*)'nl_set_auxinput4_interval_mo: Out of range domain number: ',id_id
15209 CALL wrf_error_fatal(emess)
15210 ENDIF
15211 model_config_rec%auxinput4_interval_mo(id_id) = auxinput4_interval_mo
15212 RETURN
15213 END SUBROUTINE nl_set_auxinput4_interval_mo
15214 SUBROUTINE nl_set_auxinput4_interval_d ( id_id , auxinput4_interval_d )
15215 integer , INTENT(IN) :: auxinput4_interval_d
15216 INTEGER id_id
15217 CHARACTER*80 emess
15218 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15219 WRITE(emess,*)'nl_set_auxinput4_interval_d: Out of range domain number: ',id_id
15220 CALL wrf_error_fatal(emess)
15221 ENDIF
15222 model_config_rec%auxinput4_interval_d(id_id) = auxinput4_interval_d
15223 RETURN
15224 END SUBROUTINE nl_set_auxinput4_interval_d
15225 SUBROUTINE nl_set_auxinput4_interval_h ( id_id , auxinput4_interval_h )
15226 integer , INTENT(IN) :: auxinput4_interval_h
15227 INTEGER id_id
15228 CHARACTER*80 emess
15229 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15230 WRITE(emess,*)'nl_set_auxinput4_interval_h: Out of range domain number: ',id_id
15231 CALL wrf_error_fatal(emess)
15232 ENDIF
15233 model_config_rec%auxinput4_interval_h(id_id) = auxinput4_interval_h
15234 RETURN
15235 END SUBROUTINE nl_set_auxinput4_interval_h
15236 SUBROUTINE nl_set_auxinput4_interval_m ( id_id , auxinput4_interval_m )
15237 integer , INTENT(IN) :: auxinput4_interval_m
15238 INTEGER id_id
15239 CHARACTER*80 emess
15240 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15241 WRITE(emess,*)'nl_set_auxinput4_interval_m: Out of range domain number: ',id_id
15242 CALL wrf_error_fatal(emess)
15243 ENDIF
15244 model_config_rec%auxinput4_interval_m(id_id) = auxinput4_interval_m
15245 RETURN
15246 END SUBROUTINE nl_set_auxinput4_interval_m
15247 SUBROUTINE nl_set_auxinput4_interval_s ( id_id , auxinput4_interval_s )
15248 integer , INTENT(IN) :: auxinput4_interval_s
15249 INTEGER id_id
15250 CHARACTER*80 emess
15251 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15252 WRITE(emess,*)'nl_set_auxinput4_interval_s: Out of range domain number: ',id_id
15253 CALL wrf_error_fatal(emess)
15254 ENDIF
15255 model_config_rec%auxinput4_interval_s(id_id) = auxinput4_interval_s
15256 RETURN
15257 END SUBROUTINE nl_set_auxinput4_interval_s
15258 SUBROUTINE nl_set_auxinput4_interval ( id_id , auxinput4_interval )
15259 integer , INTENT(IN) :: auxinput4_interval
15260 INTEGER id_id
15261 CHARACTER*80 emess
15262 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15263 WRITE(emess,*)'nl_set_auxinput4_interval: Out of range domain number: ',id_id
15264 CALL wrf_error_fatal(emess)
15265 ENDIF
15266 model_config_rec%auxinput4_interval(id_id) = auxinput4_interval
15267 RETURN
15268 END SUBROUTINE nl_set_auxinput4_interval
15269 SUBROUTINE nl_set_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
15270 integer , INTENT(IN) :: auxinput5_interval_mo
15271 INTEGER id_id
15272 CHARACTER*80 emess
15273 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15274 WRITE(emess,*)'nl_set_auxinput5_interval_mo: Out of range domain number: ',id_id
15275 CALL wrf_error_fatal(emess)
15276 ENDIF
15277 model_config_rec%auxinput5_interval_mo(id_id) = auxinput5_interval_mo
15278 RETURN
15279 END SUBROUTINE nl_set_auxinput5_interval_mo
15280 SUBROUTINE nl_set_auxinput5_interval_d ( id_id , auxinput5_interval_d )
15281 integer , INTENT(IN) :: auxinput5_interval_d
15282 INTEGER id_id
15283 CHARACTER*80 emess
15284 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15285 WRITE(emess,*)'nl_set_auxinput5_interval_d: Out of range domain number: ',id_id
15286 CALL wrf_error_fatal(emess)
15287 ENDIF
15288 model_config_rec%auxinput5_interval_d(id_id) = auxinput5_interval_d
15289 RETURN
15290 END SUBROUTINE nl_set_auxinput5_interval_d
15291 SUBROUTINE nl_set_auxinput5_interval_h ( id_id , auxinput5_interval_h )
15292 integer , INTENT(IN) :: auxinput5_interval_h
15293 INTEGER id_id
15294 CHARACTER*80 emess
15295 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15296 WRITE(emess,*)'nl_set_auxinput5_interval_h: Out of range domain number: ',id_id
15297 CALL wrf_error_fatal(emess)
15298 ENDIF
15299 model_config_rec%auxinput5_interval_h(id_id) = auxinput5_interval_h
15300 RETURN
15301 END SUBROUTINE nl_set_auxinput5_interval_h
15302 SUBROUTINE nl_set_auxinput5_interval_m ( id_id , auxinput5_interval_m )
15303 integer , INTENT(IN) :: auxinput5_interval_m
15304 INTEGER id_id
15305 CHARACTER*80 emess
15306 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15307 WRITE(emess,*)'nl_set_auxinput5_interval_m: Out of range domain number: ',id_id
15308 CALL wrf_error_fatal(emess)
15309 ENDIF
15310 model_config_rec%auxinput5_interval_m(id_id) = auxinput5_interval_m
15311 RETURN
15312 END SUBROUTINE nl_set_auxinput5_interval_m
15313 SUBROUTINE nl_set_auxinput5_interval_s ( id_id , auxinput5_interval_s )
15314 integer , INTENT(IN) :: auxinput5_interval_s
15315 INTEGER id_id
15316 CHARACTER*80 emess
15317 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15318 WRITE(emess,*)'nl_set_auxinput5_interval_s: Out of range domain number: ',id_id
15319 CALL wrf_error_fatal(emess)
15320 ENDIF
15321 model_config_rec%auxinput5_interval_s(id_id) = auxinput5_interval_s
15322 RETURN
15323 END SUBROUTINE nl_set_auxinput5_interval_s
15324 SUBROUTINE nl_set_auxinput5_interval ( id_id , auxinput5_interval )
15325 integer , INTENT(IN) :: auxinput5_interval
15326 INTEGER id_id
15327 CHARACTER*80 emess
15328 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15329 WRITE(emess,*)'nl_set_auxinput5_interval: Out of range domain number: ',id_id
15330 CALL wrf_error_fatal(emess)
15331 ENDIF
15332 model_config_rec%auxinput5_interval(id_id) = auxinput5_interval
15333 RETURN
15334 END SUBROUTINE nl_set_auxinput5_interval
15335 SUBROUTINE nl_set_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
15336 integer , INTENT(IN) :: auxinput6_interval_mo
15337 INTEGER id_id
15338 CHARACTER*80 emess
15339 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15340 WRITE(emess,*)'nl_set_auxinput6_interval_mo: Out of range domain number: ',id_id
15341 CALL wrf_error_fatal(emess)
15342 ENDIF
15343 model_config_rec%auxinput6_interval_mo(id_id) = auxinput6_interval_mo
15344 RETURN
15345 END SUBROUTINE nl_set_auxinput6_interval_mo
15346 SUBROUTINE nl_set_auxinput6_interval_d ( id_id , auxinput6_interval_d )
15347 integer , INTENT(IN) :: auxinput6_interval_d
15348 INTEGER id_id
15349 CHARACTER*80 emess
15350 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15351 WRITE(emess,*)'nl_set_auxinput6_interval_d: Out of range domain number: ',id_id
15352 CALL wrf_error_fatal(emess)
15353 ENDIF
15354 model_config_rec%auxinput6_interval_d(id_id) = auxinput6_interval_d
15355 RETURN
15356 END SUBROUTINE nl_set_auxinput6_interval_d
15357 SUBROUTINE nl_set_auxinput6_interval_h ( id_id , auxinput6_interval_h )
15358 integer , INTENT(IN) :: auxinput6_interval_h
15359 INTEGER id_id
15360 CHARACTER*80 emess
15361 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15362 WRITE(emess,*)'nl_set_auxinput6_interval_h: Out of range domain number: ',id_id
15363 CALL wrf_error_fatal(emess)
15364 ENDIF
15365 model_config_rec%auxinput6_interval_h(id_id) = auxinput6_interval_h
15366 RETURN
15367 END SUBROUTINE nl_set_auxinput6_interval_h
15368 SUBROUTINE nl_set_auxinput6_interval_m ( id_id , auxinput6_interval_m )
15369 integer , INTENT(IN) :: auxinput6_interval_m
15370 INTEGER id_id
15371 CHARACTER*80 emess
15372 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15373 WRITE(emess,*)'nl_set_auxinput6_interval_m: Out of range domain number: ',id_id
15374 CALL wrf_error_fatal(emess)
15375 ENDIF
15376 model_config_rec%auxinput6_interval_m(id_id) = auxinput6_interval_m
15377 RETURN
15378 END SUBROUTINE nl_set_auxinput6_interval_m
15379 SUBROUTINE nl_set_auxinput6_interval_s ( id_id , auxinput6_interval_s )
15380 integer , INTENT(IN) :: auxinput6_interval_s
15381 INTEGER id_id
15382 CHARACTER*80 emess
15383 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15384 WRITE(emess,*)'nl_set_auxinput6_interval_s: Out of range domain number: ',id_id
15385 CALL wrf_error_fatal(emess)
15386 ENDIF
15387 model_config_rec%auxinput6_interval_s(id_id) = auxinput6_interval_s
15388 RETURN
15389 END SUBROUTINE nl_set_auxinput6_interval_s
15390 SUBROUTINE nl_set_auxinput6_interval ( id_id , auxinput6_interval )
15391 integer , INTENT(IN) :: auxinput6_interval
15392 INTEGER id_id
15393 CHARACTER*80 emess
15394 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15395 WRITE(emess,*)'nl_set_auxinput6_interval: Out of range domain number: ',id_id
15396 CALL wrf_error_fatal(emess)
15397 ENDIF
15398 model_config_rec%auxinput6_interval(id_id) = auxinput6_interval
15399 RETURN
15400 END SUBROUTINE nl_set_auxinput6_interval
15401 SUBROUTINE nl_set_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
15402 integer , INTENT(IN) :: auxinput7_interval_mo
15403 INTEGER id_id
15404 CHARACTER*80 emess
15405 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15406 WRITE(emess,*)'nl_set_auxinput7_interval_mo: Out of range domain number: ',id_id
15407 CALL wrf_error_fatal(emess)
15408 ENDIF
15409 model_config_rec%auxinput7_interval_mo(id_id) = auxinput7_interval_mo
15410 RETURN
15411 END SUBROUTINE nl_set_auxinput7_interval_mo
15412 SUBROUTINE nl_set_auxinput7_interval_d ( id_id , auxinput7_interval_d )
15413 integer , INTENT(IN) :: auxinput7_interval_d
15414 INTEGER id_id
15415 CHARACTER*80 emess
15416 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15417 WRITE(emess,*)'nl_set_auxinput7_interval_d: Out of range domain number: ',id_id
15418 CALL wrf_error_fatal(emess)
15419 ENDIF
15420 model_config_rec%auxinput7_interval_d(id_id) = auxinput7_interval_d
15421 RETURN
15422 END SUBROUTINE nl_set_auxinput7_interval_d
15423 SUBROUTINE nl_set_auxinput7_interval_h ( id_id , auxinput7_interval_h )
15424 integer , INTENT(IN) :: auxinput7_interval_h
15425 INTEGER id_id
15426 CHARACTER*80 emess
15427 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15428 WRITE(emess,*)'nl_set_auxinput7_interval_h: Out of range domain number: ',id_id
15429 CALL wrf_error_fatal(emess)
15430 ENDIF
15431 model_config_rec%auxinput7_interval_h(id_id) = auxinput7_interval_h
15432 RETURN
15433 END SUBROUTINE nl_set_auxinput7_interval_h
15434 SUBROUTINE nl_set_auxinput7_interval_m ( id_id , auxinput7_interval_m )
15435 integer , INTENT(IN) :: auxinput7_interval_m
15436 INTEGER id_id
15437 CHARACTER*80 emess
15438 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15439 WRITE(emess,*)'nl_set_auxinput7_interval_m: Out of range domain number: ',id_id
15440 CALL wrf_error_fatal(emess)
15441 ENDIF
15442 model_config_rec%auxinput7_interval_m(id_id) = auxinput7_interval_m
15443 RETURN
15444 END SUBROUTINE nl_set_auxinput7_interval_m
15445 SUBROUTINE nl_set_auxinput7_interval_s ( id_id , auxinput7_interval_s )
15446 integer , INTENT(IN) :: auxinput7_interval_s
15447 INTEGER id_id
15448 CHARACTER*80 emess
15449 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15450 WRITE(emess,*)'nl_set_auxinput7_interval_s: Out of range domain number: ',id_id
15451 CALL wrf_error_fatal(emess)
15452 ENDIF
15453 model_config_rec%auxinput7_interval_s(id_id) = auxinput7_interval_s
15454 RETURN
15455 END SUBROUTINE nl_set_auxinput7_interval_s
15456 SUBROUTINE nl_set_auxinput7_interval ( id_id , auxinput7_interval )
15457 integer , INTENT(IN) :: auxinput7_interval
15458 INTEGER id_id
15459 CHARACTER*80 emess
15460 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15461 WRITE(emess,*)'nl_set_auxinput7_interval: Out of range domain number: ',id_id
15462 CALL wrf_error_fatal(emess)
15463 ENDIF
15464 model_config_rec%auxinput7_interval(id_id) = auxinput7_interval
15465 RETURN
15466 END SUBROUTINE nl_set_auxinput7_interval
15467 SUBROUTINE nl_set_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
15468 integer , INTENT(IN) :: auxinput8_interval_mo
15469 INTEGER id_id
15470 CHARACTER*80 emess
15471 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15472 WRITE(emess,*)'nl_set_auxinput8_interval_mo: Out of range domain number: ',id_id
15473 CALL wrf_error_fatal(emess)
15474 ENDIF
15475 model_config_rec%auxinput8_interval_mo(id_id) = auxinput8_interval_mo
15476 RETURN
15477 END SUBROUTINE nl_set_auxinput8_interval_mo
15478 SUBROUTINE nl_set_auxinput8_interval_d ( id_id , auxinput8_interval_d )
15479 integer , INTENT(IN) :: auxinput8_interval_d
15480 INTEGER id_id
15481 CHARACTER*80 emess
15482 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15483 WRITE(emess,*)'nl_set_auxinput8_interval_d: Out of range domain number: ',id_id
15484 CALL wrf_error_fatal(emess)
15485 ENDIF
15486 model_config_rec%auxinput8_interval_d(id_id) = auxinput8_interval_d
15487 RETURN
15488 END SUBROUTINE nl_set_auxinput8_interval_d
15489 SUBROUTINE nl_set_auxinput8_interval_h ( id_id , auxinput8_interval_h )
15490 integer , INTENT(IN) :: auxinput8_interval_h
15491 INTEGER id_id
15492 CHARACTER*80 emess
15493 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15494 WRITE(emess,*)'nl_set_auxinput8_interval_h: Out of range domain number: ',id_id
15495 CALL wrf_error_fatal(emess)
15496 ENDIF
15497 model_config_rec%auxinput8_interval_h(id_id) = auxinput8_interval_h
15498 RETURN
15499 END SUBROUTINE nl_set_auxinput8_interval_h
15500 SUBROUTINE nl_set_auxinput8_interval_m ( id_id , auxinput8_interval_m )
15501 integer , INTENT(IN) :: auxinput8_interval_m
15502 INTEGER id_id
15503 CHARACTER*80 emess
15504 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15505 WRITE(emess,*)'nl_set_auxinput8_interval_m: Out of range domain number: ',id_id
15506 CALL wrf_error_fatal(emess)
15507 ENDIF
15508 model_config_rec%auxinput8_interval_m(id_id) = auxinput8_interval_m
15509 RETURN
15510 END SUBROUTINE nl_set_auxinput8_interval_m
15511 SUBROUTINE nl_set_auxinput8_interval_s ( id_id , auxinput8_interval_s )
15512 integer , INTENT(IN) :: auxinput8_interval_s
15513 INTEGER id_id
15514 CHARACTER*80 emess
15515 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15516 WRITE(emess,*)'nl_set_auxinput8_interval_s: Out of range domain number: ',id_id
15517 CALL wrf_error_fatal(emess)
15518 ENDIF
15519 model_config_rec%auxinput8_interval_s(id_id) = auxinput8_interval_s
15520 RETURN
15521 END SUBROUTINE nl_set_auxinput8_interval_s
15522 SUBROUTINE nl_set_auxinput8_interval ( id_id , auxinput8_interval )
15523 integer , INTENT(IN) :: auxinput8_interval
15524 INTEGER id_id
15525 CHARACTER*80 emess
15526 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15527 WRITE(emess,*)'nl_set_auxinput8_interval: Out of range domain number: ',id_id
15528 CALL wrf_error_fatal(emess)
15529 ENDIF
15530 model_config_rec%auxinput8_interval(id_id) = auxinput8_interval
15531 RETURN
15532 END SUBROUTINE nl_set_auxinput8_interval
15533 SUBROUTINE nl_set_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
15534 integer , INTENT(IN) :: auxinput9_interval_mo
15535 INTEGER id_id
15536 CHARACTER*80 emess
15537 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15538 WRITE(emess,*)'nl_set_auxinput9_interval_mo: Out of range domain number: ',id_id
15539 CALL wrf_error_fatal(emess)
15540 ENDIF
15541 model_config_rec%auxinput9_interval_mo(id_id) = auxinput9_interval_mo
15542 RETURN
15543 END SUBROUTINE nl_set_auxinput9_interval_mo
15544 SUBROUTINE nl_set_auxinput9_interval_d ( id_id , auxinput9_interval_d )
15545 integer , INTENT(IN) :: auxinput9_interval_d
15546 INTEGER id_id
15547 CHARACTER*80 emess
15548 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15549 WRITE(emess,*)'nl_set_auxinput9_interval_d: Out of range domain number: ',id_id
15550 CALL wrf_error_fatal(emess)
15551 ENDIF
15552 model_config_rec%auxinput9_interval_d(id_id) = auxinput9_interval_d
15553 RETURN
15554 END SUBROUTINE nl_set_auxinput9_interval_d
15555 SUBROUTINE nl_set_auxinput9_interval_h ( id_id , auxinput9_interval_h )
15556 integer , INTENT(IN) :: auxinput9_interval_h
15557 INTEGER id_id
15558 CHARACTER*80 emess
15559 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15560 WRITE(emess,*)'nl_set_auxinput9_interval_h: Out of range domain number: ',id_id
15561 CALL wrf_error_fatal(emess)
15562 ENDIF
15563 model_config_rec%auxinput9_interval_h(id_id) = auxinput9_interval_h
15564 RETURN
15565 END SUBROUTINE nl_set_auxinput9_interval_h
15566 SUBROUTINE nl_set_auxinput9_interval_m ( id_id , auxinput9_interval_m )
15567 integer , INTENT(IN) :: auxinput9_interval_m
15568 INTEGER id_id
15569 CHARACTER*80 emess
15570 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15571 WRITE(emess,*)'nl_set_auxinput9_interval_m: Out of range domain number: ',id_id
15572 CALL wrf_error_fatal(emess)
15573 ENDIF
15574 model_config_rec%auxinput9_interval_m(id_id) = auxinput9_interval_m
15575 RETURN
15576 END SUBROUTINE nl_set_auxinput9_interval_m
15577 SUBROUTINE nl_set_auxinput9_interval_s ( id_id , auxinput9_interval_s )
15578 integer , INTENT(IN) :: auxinput9_interval_s
15579 INTEGER id_id
15580 CHARACTER*80 emess
15581 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15582 WRITE(emess,*)'nl_set_auxinput9_interval_s: Out of range domain number: ',id_id
15583 CALL wrf_error_fatal(emess)
15584 ENDIF
15585 model_config_rec%auxinput9_interval_s(id_id) = auxinput9_interval_s
15586 RETURN
15587 END SUBROUTINE nl_set_auxinput9_interval_s
15588 SUBROUTINE nl_set_auxinput9_interval ( id_id , auxinput9_interval )
15589 integer , INTENT(IN) :: auxinput9_interval
15590 INTEGER id_id
15591 CHARACTER*80 emess
15592 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15593 WRITE(emess,*)'nl_set_auxinput9_interval: Out of range domain number: ',id_id
15594 CALL wrf_error_fatal(emess)
15595 ENDIF
15596 model_config_rec%auxinput9_interval(id_id) = auxinput9_interval
15597 RETURN
15598 END SUBROUTINE nl_set_auxinput9_interval
15599 SUBROUTINE nl_set_gfdda_interval_mo ( id_id , gfdda_interval_mo )
15600 integer , INTENT(IN) :: gfdda_interval_mo
15601 INTEGER id_id
15602 CHARACTER*80 emess
15603 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15604 WRITE(emess,*)'nl_set_gfdda_interval_mo: Out of range domain number: ',id_id
15605 CALL wrf_error_fatal(emess)
15606 ENDIF
15607 model_config_rec%gfdda_interval_mo(id_id) = gfdda_interval_mo
15608 RETURN
15609 END SUBROUTINE nl_set_gfdda_interval_mo
15610 SUBROUTINE nl_set_gfdda_interval_d ( id_id , gfdda_interval_d )
15611 integer , INTENT(IN) :: gfdda_interval_d
15612 INTEGER id_id
15613 CHARACTER*80 emess
15614 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15615 WRITE(emess,*)'nl_set_gfdda_interval_d: Out of range domain number: ',id_id
15616 CALL wrf_error_fatal(emess)
15617 ENDIF
15618 model_config_rec%gfdda_interval_d(id_id) = gfdda_interval_d
15619 RETURN
15620 END SUBROUTINE nl_set_gfdda_interval_d
15621 SUBROUTINE nl_set_gfdda_interval_h ( id_id , gfdda_interval_h )
15622 integer , INTENT(IN) :: gfdda_interval_h
15623 INTEGER id_id
15624 CHARACTER*80 emess
15625 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15626 WRITE(emess,*)'nl_set_gfdda_interval_h: Out of range domain number: ',id_id
15627 CALL wrf_error_fatal(emess)
15628 ENDIF
15629 model_config_rec%gfdda_interval_h(id_id) = gfdda_interval_h
15630 RETURN
15631 END SUBROUTINE nl_set_gfdda_interval_h
15632 SUBROUTINE nl_set_gfdda_interval_m ( id_id , gfdda_interval_m )
15633 integer , INTENT(IN) :: gfdda_interval_m
15634 INTEGER id_id
15635 CHARACTER*80 emess
15636 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15637 WRITE(emess,*)'nl_set_gfdda_interval_m: Out of range domain number: ',id_id
15638 CALL wrf_error_fatal(emess)
15639 ENDIF
15640 model_config_rec%gfdda_interval_m(id_id) = gfdda_interval_m
15641 RETURN
15642 END SUBROUTINE nl_set_gfdda_interval_m
15643 SUBROUTINE nl_set_gfdda_interval_s ( id_id , gfdda_interval_s )
15644 integer , INTENT(IN) :: gfdda_interval_s
15645 INTEGER id_id
15646 CHARACTER*80 emess
15647 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15648 WRITE(emess,*)'nl_set_gfdda_interval_s: Out of range domain number: ',id_id
15649 CALL wrf_error_fatal(emess)
15650 ENDIF
15651 model_config_rec%gfdda_interval_s(id_id) = gfdda_interval_s
15652 RETURN
15653 END SUBROUTINE nl_set_gfdda_interval_s
15654 SUBROUTINE nl_set_gfdda_interval ( id_id , gfdda_interval )
15655 integer , INTENT(IN) :: gfdda_interval
15656 INTEGER id_id
15657 CHARACTER*80 emess
15658 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15659 WRITE(emess,*)'nl_set_gfdda_interval: Out of range domain number: ',id_id
15660 CALL wrf_error_fatal(emess)
15661 ENDIF
15662 model_config_rec%gfdda_interval(id_id) = gfdda_interval
15663 RETURN
15664 END SUBROUTINE nl_set_gfdda_interval
15665 SUBROUTINE nl_set_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
15666 integer , INTENT(IN) :: auxinput11_interval_mo
15667 INTEGER id_id
15668 CHARACTER*80 emess
15669 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15670 WRITE(emess,*)'nl_set_auxinput11_interval_mo: Out of range domain number: ',id_id
15671 CALL wrf_error_fatal(emess)
15672 ENDIF
15673 model_config_rec%auxinput11_interval_mo(id_id) = auxinput11_interval_mo
15674 RETURN
15675 END SUBROUTINE nl_set_auxinput11_interval_mo
15676 SUBROUTINE nl_set_auxinput11_interval_d ( id_id , auxinput11_interval_d )
15677 integer , INTENT(IN) :: auxinput11_interval_d
15678 INTEGER id_id
15679 CHARACTER*80 emess
15680 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15681 WRITE(emess,*)'nl_set_auxinput11_interval_d: Out of range domain number: ',id_id
15682 CALL wrf_error_fatal(emess)
15683 ENDIF
15684 model_config_rec%auxinput11_interval_d(id_id) = auxinput11_interval_d
15685 RETURN
15686 END SUBROUTINE nl_set_auxinput11_interval_d
15687 SUBROUTINE nl_set_auxinput11_interval_h ( id_id , auxinput11_interval_h )
15688 integer , INTENT(IN) :: auxinput11_interval_h
15689 INTEGER id_id
15690 CHARACTER*80 emess
15691 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15692 WRITE(emess,*)'nl_set_auxinput11_interval_h: Out of range domain number: ',id_id
15693 CALL wrf_error_fatal(emess)
15694 ENDIF
15695 model_config_rec%auxinput11_interval_h(id_id) = auxinput11_interval_h
15696 RETURN
15697 END SUBROUTINE nl_set_auxinput11_interval_h
15698 SUBROUTINE nl_set_auxinput11_interval_m ( id_id , auxinput11_interval_m )
15699 integer , INTENT(IN) :: auxinput11_interval_m
15700 INTEGER id_id
15701 CHARACTER*80 emess
15702 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15703 WRITE(emess,*)'nl_set_auxinput11_interval_m: Out of range domain number: ',id_id
15704 CALL wrf_error_fatal(emess)
15705 ENDIF
15706 model_config_rec%auxinput11_interval_m(id_id) = auxinput11_interval_m
15707 RETURN
15708 END SUBROUTINE nl_set_auxinput11_interval_m
15709 SUBROUTINE nl_set_auxinput11_interval_s ( id_id , auxinput11_interval_s )
15710 integer , INTENT(IN) :: auxinput11_interval_s
15711 INTEGER id_id
15712 CHARACTER*80 emess
15713 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15714 WRITE(emess,*)'nl_set_auxinput11_interval_s: Out of range domain number: ',id_id
15715 CALL wrf_error_fatal(emess)
15716 ENDIF
15717 model_config_rec%auxinput11_interval_s(id_id) = auxinput11_interval_s
15718 RETURN
15719 END SUBROUTINE nl_set_auxinput11_interval_s
15720 SUBROUTINE nl_set_auxinput11_interval ( id_id , auxinput11_interval )
15721 integer , INTENT(IN) :: auxinput11_interval
15722 INTEGER id_id
15723 CHARACTER*80 emess
15724 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15725 WRITE(emess,*)'nl_set_auxinput11_interval: Out of range domain number: ',id_id
15726 CALL wrf_error_fatal(emess)
15727 ENDIF
15728 model_config_rec%auxinput11_interval(id_id) = auxinput11_interval
15729 RETURN
15730 END SUBROUTINE nl_set_auxinput11_interval
15731 SUBROUTINE nl_set_restart_interval_mo ( id_id , restart_interval_mo )
15732 integer , INTENT(IN) :: restart_interval_mo
15733 INTEGER id_id
15734 CHARACTER*80 emess
15735 IF ( id_id .NE. 1 ) THEN
15736 call wrf_debug(1,&
15737 'WARNING in nl_set_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
15738 ENDIF
15739 model_config_rec%restart_interval_mo = restart_interval_mo
15740 RETURN
15741 END SUBROUTINE nl_set_restart_interval_mo
15742 SUBROUTINE nl_set_restart_interval_d ( id_id , restart_interval_d )
15743 integer , INTENT(IN) :: restart_interval_d
15744 INTEGER id_id
15745 CHARACTER*80 emess
15746 IF ( id_id .NE. 1 ) THEN
15747 call wrf_debug(1,&
15748 'WARNING in nl_set_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
15749 ENDIF
15750 model_config_rec%restart_interval_d = restart_interval_d
15751 RETURN
15752 END SUBROUTINE nl_set_restart_interval_d
15753 SUBROUTINE nl_set_restart_interval_h ( id_id , restart_interval_h )
15754 integer , INTENT(IN) :: restart_interval_h
15755 INTEGER id_id
15756 CHARACTER*80 emess
15757 IF ( id_id .NE. 1 ) THEN
15758 call wrf_debug(1,&
15759 'WARNING in nl_set_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
15760 ENDIF
15761 model_config_rec%restart_interval_h = restart_interval_h
15762 RETURN
15763 END SUBROUTINE nl_set_restart_interval_h
15764 SUBROUTINE nl_set_restart_interval_m ( id_id , restart_interval_m )
15765 integer , INTENT(IN) :: restart_interval_m
15766 INTEGER id_id
15767 CHARACTER*80 emess
15768 IF ( id_id .NE. 1 ) THEN
15769 call wrf_debug(1,&
15770 'WARNING in nl_set_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
15771 ENDIF
15772 model_config_rec%restart_interval_m = restart_interval_m
15773 RETURN
15774 END SUBROUTINE nl_set_restart_interval_m
15775 SUBROUTINE nl_set_restart_interval_s ( id_id , restart_interval_s )
15776 integer , INTENT(IN) :: restart_interval_s
15777 INTEGER id_id
15778 CHARACTER*80 emess
15779 IF ( id_id .NE. 1 ) THEN
15780 call wrf_debug(1,&
15781 'WARNING in nl_set_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
15782 ENDIF
15783 model_config_rec%restart_interval_s = restart_interval_s
15784 RETURN
15785 END SUBROUTINE nl_set_restart_interval_s
15786 SUBROUTINE nl_set_history_begin_y ( id_id , history_begin_y )
15787 integer , INTENT(IN) :: history_begin_y
15788 INTEGER id_id
15789 CHARACTER*80 emess
15790 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15791 WRITE(emess,*)'nl_set_history_begin_y: Out of range domain number: ',id_id
15792 CALL wrf_error_fatal(emess)
15793 ENDIF
15794 model_config_rec%history_begin_y(id_id) = history_begin_y
15795 RETURN
15796 END SUBROUTINE nl_set_history_begin_y
15797 SUBROUTINE nl_set_history_begin_mo ( id_id , history_begin_mo )
15798 integer , INTENT(IN) :: history_begin_mo
15799 INTEGER id_id
15800 CHARACTER*80 emess
15801 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15802 WRITE(emess,*)'nl_set_history_begin_mo: Out of range domain number: ',id_id
15803 CALL wrf_error_fatal(emess)
15804 ENDIF
15805 model_config_rec%history_begin_mo(id_id) = history_begin_mo
15806 RETURN
15807 END SUBROUTINE nl_set_history_begin_mo
15808 SUBROUTINE nl_set_history_begin_d ( id_id , history_begin_d )
15809 integer , INTENT(IN) :: history_begin_d
15810 INTEGER id_id
15811 CHARACTER*80 emess
15812 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15813 WRITE(emess,*)'nl_set_history_begin_d: Out of range domain number: ',id_id
15814 CALL wrf_error_fatal(emess)
15815 ENDIF
15816 model_config_rec%history_begin_d(id_id) = history_begin_d
15817 RETURN
15818 END SUBROUTINE nl_set_history_begin_d
15819 SUBROUTINE nl_set_history_begin_h ( id_id , history_begin_h )
15820 integer , INTENT(IN) :: history_begin_h
15821 INTEGER id_id
15822 CHARACTER*80 emess
15823 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15824 WRITE(emess,*)'nl_set_history_begin_h: Out of range domain number: ',id_id
15825 CALL wrf_error_fatal(emess)
15826 ENDIF
15827 model_config_rec%history_begin_h(id_id) = history_begin_h
15828 RETURN
15829 END SUBROUTINE nl_set_history_begin_h
15830 SUBROUTINE nl_set_history_begin_m ( id_id , history_begin_m )
15831 integer , INTENT(IN) :: history_begin_m
15832 INTEGER id_id
15833 CHARACTER*80 emess
15834 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15835 WRITE(emess,*)'nl_set_history_begin_m: Out of range domain number: ',id_id
15836 CALL wrf_error_fatal(emess)
15837 ENDIF
15838 model_config_rec%history_begin_m(id_id) = history_begin_m
15839 RETURN
15840 END SUBROUTINE nl_set_history_begin_m
15841 SUBROUTINE nl_set_history_begin_s ( id_id , history_begin_s )
15842 integer , INTENT(IN) :: history_begin_s
15843 INTEGER id_id
15844 CHARACTER*80 emess
15845 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15846 WRITE(emess,*)'nl_set_history_begin_s: Out of range domain number: ',id_id
15847 CALL wrf_error_fatal(emess)
15848 ENDIF
15849 model_config_rec%history_begin_s(id_id) = history_begin_s
15850 RETURN
15851 END SUBROUTINE nl_set_history_begin_s
15852 SUBROUTINE nl_set_inputout_begin_y ( id_id , inputout_begin_y )
15853 integer , INTENT(IN) :: inputout_begin_y
15854 INTEGER id_id
15855 CHARACTER*80 emess
15856 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15857 WRITE(emess,*)'nl_set_inputout_begin_y: Out of range domain number: ',id_id
15858 CALL wrf_error_fatal(emess)
15859 ENDIF
15860 model_config_rec%inputout_begin_y(id_id) = inputout_begin_y
15861 RETURN
15862 END SUBROUTINE nl_set_inputout_begin_y
15863 SUBROUTINE nl_set_inputout_begin_mo ( id_id , inputout_begin_mo )
15864 integer , INTENT(IN) :: inputout_begin_mo
15865 INTEGER id_id
15866 CHARACTER*80 emess
15867 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15868 WRITE(emess,*)'nl_set_inputout_begin_mo: Out of range domain number: ',id_id
15869 CALL wrf_error_fatal(emess)
15870 ENDIF
15871 model_config_rec%inputout_begin_mo(id_id) = inputout_begin_mo
15872 RETURN
15873 END SUBROUTINE nl_set_inputout_begin_mo
15874 SUBROUTINE nl_set_inputout_begin_d ( id_id , inputout_begin_d )
15875 integer , INTENT(IN) :: inputout_begin_d
15876 INTEGER id_id
15877 CHARACTER*80 emess
15878 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15879 WRITE(emess,*)'nl_set_inputout_begin_d: Out of range domain number: ',id_id
15880 CALL wrf_error_fatal(emess)
15881 ENDIF
15882 model_config_rec%inputout_begin_d(id_id) = inputout_begin_d
15883 RETURN
15884 END SUBROUTINE nl_set_inputout_begin_d
15885 SUBROUTINE nl_set_inputout_begin_h ( id_id , inputout_begin_h )
15886 integer , INTENT(IN) :: inputout_begin_h
15887 INTEGER id_id
15888 CHARACTER*80 emess
15889 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15890 WRITE(emess,*)'nl_set_inputout_begin_h: Out of range domain number: ',id_id
15891 CALL wrf_error_fatal(emess)
15892 ENDIF
15893 model_config_rec%inputout_begin_h(id_id) = inputout_begin_h
15894 RETURN
15895 END SUBROUTINE nl_set_inputout_begin_h
15896 SUBROUTINE nl_set_inputout_begin_m ( id_id , inputout_begin_m )
15897 integer , INTENT(IN) :: inputout_begin_m
15898 INTEGER id_id
15899 CHARACTER*80 emess
15900 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15901 WRITE(emess,*)'nl_set_inputout_begin_m: Out of range domain number: ',id_id
15902 CALL wrf_error_fatal(emess)
15903 ENDIF
15904 model_config_rec%inputout_begin_m(id_id) = inputout_begin_m
15905 RETURN
15906 END SUBROUTINE nl_set_inputout_begin_m
15907 SUBROUTINE nl_set_inputout_begin_s ( id_id , inputout_begin_s )
15908 integer , INTENT(IN) :: inputout_begin_s
15909 INTEGER id_id
15910 CHARACTER*80 emess
15911 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15912 WRITE(emess,*)'nl_set_inputout_begin_s: Out of range domain number: ',id_id
15913 CALL wrf_error_fatal(emess)
15914 ENDIF
15915 model_config_rec%inputout_begin_s(id_id) = inputout_begin_s
15916 RETURN
15917 END SUBROUTINE nl_set_inputout_begin_s
15918 SUBROUTINE nl_set_auxhist1_begin_y ( id_id , auxhist1_begin_y )
15919 integer , INTENT(IN) :: auxhist1_begin_y
15920 INTEGER id_id
15921 CHARACTER*80 emess
15922 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15923 WRITE(emess,*)'nl_set_auxhist1_begin_y: Out of range domain number: ',id_id
15924 CALL wrf_error_fatal(emess)
15925 ENDIF
15926 model_config_rec%auxhist1_begin_y(id_id) = auxhist1_begin_y
15927 RETURN
15928 END SUBROUTINE nl_set_auxhist1_begin_y
15929 SUBROUTINE nl_set_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
15930 integer , INTENT(IN) :: auxhist1_begin_mo
15931 INTEGER id_id
15932 CHARACTER*80 emess
15933 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15934 WRITE(emess,*)'nl_set_auxhist1_begin_mo: Out of range domain number: ',id_id
15935 CALL wrf_error_fatal(emess)
15936 ENDIF
15937 model_config_rec%auxhist1_begin_mo(id_id) = auxhist1_begin_mo
15938 RETURN
15939 END SUBROUTINE nl_set_auxhist1_begin_mo
15940 SUBROUTINE nl_set_auxhist1_begin_d ( id_id , auxhist1_begin_d )
15941 integer , INTENT(IN) :: auxhist1_begin_d
15942 INTEGER id_id
15943 CHARACTER*80 emess
15944 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15945 WRITE(emess,*)'nl_set_auxhist1_begin_d: Out of range domain number: ',id_id
15946 CALL wrf_error_fatal(emess)
15947 ENDIF
15948 model_config_rec%auxhist1_begin_d(id_id) = auxhist1_begin_d
15949 RETURN
15950 END SUBROUTINE nl_set_auxhist1_begin_d
15951 SUBROUTINE nl_set_auxhist1_begin_h ( id_id , auxhist1_begin_h )
15952 integer , INTENT(IN) :: auxhist1_begin_h
15953 INTEGER id_id
15954 CHARACTER*80 emess
15955 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15956 WRITE(emess,*)'nl_set_auxhist1_begin_h: Out of range domain number: ',id_id
15957 CALL wrf_error_fatal(emess)
15958 ENDIF
15959 model_config_rec%auxhist1_begin_h(id_id) = auxhist1_begin_h
15960 RETURN
15961 END SUBROUTINE nl_set_auxhist1_begin_h
15962 SUBROUTINE nl_set_auxhist1_begin_m ( id_id , auxhist1_begin_m )
15963 integer , INTENT(IN) :: auxhist1_begin_m
15964 INTEGER id_id
15965 CHARACTER*80 emess
15966 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15967 WRITE(emess,*)'nl_set_auxhist1_begin_m: Out of range domain number: ',id_id
15968 CALL wrf_error_fatal(emess)
15969 ENDIF
15970 model_config_rec%auxhist1_begin_m(id_id) = auxhist1_begin_m
15971 RETURN
15972 END SUBROUTINE nl_set_auxhist1_begin_m
15973 SUBROUTINE nl_set_auxhist1_begin_s ( id_id , auxhist1_begin_s )
15974 integer , INTENT(IN) :: auxhist1_begin_s
15975 INTEGER id_id
15976 CHARACTER*80 emess
15977 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15978 WRITE(emess,*)'nl_set_auxhist1_begin_s: Out of range domain number: ',id_id
15979 CALL wrf_error_fatal(emess)
15980 ENDIF
15981 model_config_rec%auxhist1_begin_s(id_id) = auxhist1_begin_s
15982 RETURN
15983 END SUBROUTINE nl_set_auxhist1_begin_s
15984 SUBROUTINE nl_set_auxhist2_begin_y ( id_id , auxhist2_begin_y )
15985 integer , INTENT(IN) :: auxhist2_begin_y
15986 INTEGER id_id
15987 CHARACTER*80 emess
15988 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15989 WRITE(emess,*)'nl_set_auxhist2_begin_y: Out of range domain number: ',id_id
15990 CALL wrf_error_fatal(emess)
15991 ENDIF
15992 model_config_rec%auxhist2_begin_y(id_id) = auxhist2_begin_y
15993 RETURN
15994 END SUBROUTINE nl_set_auxhist2_begin_y
15995 SUBROUTINE nl_set_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
15996 integer , INTENT(IN) :: auxhist2_begin_mo
15997 INTEGER id_id
15998 CHARACTER*80 emess
15999 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16000 WRITE(emess,*)'nl_set_auxhist2_begin_mo: Out of range domain number: ',id_id
16001 CALL wrf_error_fatal(emess)
16002 ENDIF
16003 model_config_rec%auxhist2_begin_mo(id_id) = auxhist2_begin_mo
16004 RETURN
16005 END SUBROUTINE nl_set_auxhist2_begin_mo
16006 SUBROUTINE nl_set_auxhist2_begin_d ( id_id , auxhist2_begin_d )
16007 integer , INTENT(IN) :: auxhist2_begin_d
16008 INTEGER id_id
16009 CHARACTER*80 emess
16010 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16011 WRITE(emess,*)'nl_set_auxhist2_begin_d: Out of range domain number: ',id_id
16012 CALL wrf_error_fatal(emess)
16013 ENDIF
16014 model_config_rec%auxhist2_begin_d(id_id) = auxhist2_begin_d
16015 RETURN
16016 END SUBROUTINE nl_set_auxhist2_begin_d
16017 SUBROUTINE nl_set_auxhist2_begin_h ( id_id , auxhist2_begin_h )
16018 integer , INTENT(IN) :: auxhist2_begin_h
16019 INTEGER id_id
16020 CHARACTER*80 emess
16021 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16022 WRITE(emess,*)'nl_set_auxhist2_begin_h: Out of range domain number: ',id_id
16023 CALL wrf_error_fatal(emess)
16024 ENDIF
16025 model_config_rec%auxhist2_begin_h(id_id) = auxhist2_begin_h
16026 RETURN
16027 END SUBROUTINE nl_set_auxhist2_begin_h
16028 SUBROUTINE nl_set_auxhist2_begin_m ( id_id , auxhist2_begin_m )
16029 integer , INTENT(IN) :: auxhist2_begin_m
16030 INTEGER id_id
16031 CHARACTER*80 emess
16032 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16033 WRITE(emess,*)'nl_set_auxhist2_begin_m: Out of range domain number: ',id_id
16034 CALL wrf_error_fatal(emess)
16035 ENDIF
16036 model_config_rec%auxhist2_begin_m(id_id) = auxhist2_begin_m
16037 RETURN
16038 END SUBROUTINE nl_set_auxhist2_begin_m
16039 SUBROUTINE nl_set_auxhist2_begin_s ( id_id , auxhist2_begin_s )
16040 integer , INTENT(IN) :: auxhist2_begin_s
16041 INTEGER id_id
16042 CHARACTER*80 emess
16043 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16044 WRITE(emess,*)'nl_set_auxhist2_begin_s: Out of range domain number: ',id_id
16045 CALL wrf_error_fatal(emess)
16046 ENDIF
16047 model_config_rec%auxhist2_begin_s(id_id) = auxhist2_begin_s
16048 RETURN
16049 END SUBROUTINE nl_set_auxhist2_begin_s
16050 SUBROUTINE nl_set_auxhist3_begin_y ( id_id , auxhist3_begin_y )
16051 integer , INTENT(IN) :: auxhist3_begin_y
16052 INTEGER id_id
16053 CHARACTER*80 emess
16054 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16055 WRITE(emess,*)'nl_set_auxhist3_begin_y: Out of range domain number: ',id_id
16056 CALL wrf_error_fatal(emess)
16057 ENDIF
16058 model_config_rec%auxhist3_begin_y(id_id) = auxhist3_begin_y
16059 RETURN
16060 END SUBROUTINE nl_set_auxhist3_begin_y
16061 SUBROUTINE nl_set_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
16062 integer , INTENT(IN) :: auxhist3_begin_mo
16063 INTEGER id_id
16064 CHARACTER*80 emess
16065 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16066 WRITE(emess,*)'nl_set_auxhist3_begin_mo: Out of range domain number: ',id_id
16067 CALL wrf_error_fatal(emess)
16068 ENDIF
16069 model_config_rec%auxhist3_begin_mo(id_id) = auxhist3_begin_mo
16070 RETURN
16071 END SUBROUTINE nl_set_auxhist3_begin_mo
16072 SUBROUTINE nl_set_auxhist3_begin_d ( id_id , auxhist3_begin_d )
16073 integer , INTENT(IN) :: auxhist3_begin_d
16074 INTEGER id_id
16075 CHARACTER*80 emess
16076 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16077 WRITE(emess,*)'nl_set_auxhist3_begin_d: Out of range domain number: ',id_id
16078 CALL wrf_error_fatal(emess)
16079 ENDIF
16080 model_config_rec%auxhist3_begin_d(id_id) = auxhist3_begin_d
16081 RETURN
16082 END SUBROUTINE nl_set_auxhist3_begin_d
16083 SUBROUTINE nl_set_auxhist3_begin_h ( id_id , auxhist3_begin_h )
16084 integer , INTENT(IN) :: auxhist3_begin_h
16085 INTEGER id_id
16086 CHARACTER*80 emess
16087 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16088 WRITE(emess,*)'nl_set_auxhist3_begin_h: Out of range domain number: ',id_id
16089 CALL wrf_error_fatal(emess)
16090 ENDIF
16091 model_config_rec%auxhist3_begin_h(id_id) = auxhist3_begin_h
16092 RETURN
16093 END SUBROUTINE nl_set_auxhist3_begin_h
16094 SUBROUTINE nl_set_auxhist3_begin_m ( id_id , auxhist3_begin_m )
16095 integer , INTENT(IN) :: auxhist3_begin_m
16096 INTEGER id_id
16097 CHARACTER*80 emess
16098 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16099 WRITE(emess,*)'nl_set_auxhist3_begin_m: Out of range domain number: ',id_id
16100 CALL wrf_error_fatal(emess)
16101 ENDIF
16102 model_config_rec%auxhist3_begin_m(id_id) = auxhist3_begin_m
16103 RETURN
16104 END SUBROUTINE nl_set_auxhist3_begin_m
16105 SUBROUTINE nl_set_auxhist3_begin_s ( id_id , auxhist3_begin_s )
16106 integer , INTENT(IN) :: auxhist3_begin_s
16107 INTEGER id_id
16108 CHARACTER*80 emess
16109 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16110 WRITE(emess,*)'nl_set_auxhist3_begin_s: Out of range domain number: ',id_id
16111 CALL wrf_error_fatal(emess)
16112 ENDIF
16113 model_config_rec%auxhist3_begin_s(id_id) = auxhist3_begin_s
16114 RETURN
16115 END SUBROUTINE nl_set_auxhist3_begin_s
16116 SUBROUTINE nl_set_auxhist4_begin_y ( id_id , auxhist4_begin_y )
16117 integer , INTENT(IN) :: auxhist4_begin_y
16118 INTEGER id_id
16119 CHARACTER*80 emess
16120 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16121 WRITE(emess,*)'nl_set_auxhist4_begin_y: Out of range domain number: ',id_id
16122 CALL wrf_error_fatal(emess)
16123 ENDIF
16124 model_config_rec%auxhist4_begin_y(id_id) = auxhist4_begin_y
16125 RETURN
16126 END SUBROUTINE nl_set_auxhist4_begin_y
16127 SUBROUTINE nl_set_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
16128 integer , INTENT(IN) :: auxhist4_begin_mo
16129 INTEGER id_id
16130 CHARACTER*80 emess
16131 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16132 WRITE(emess,*)'nl_set_auxhist4_begin_mo: Out of range domain number: ',id_id
16133 CALL wrf_error_fatal(emess)
16134 ENDIF
16135 model_config_rec%auxhist4_begin_mo(id_id) = auxhist4_begin_mo
16136 RETURN
16137 END SUBROUTINE nl_set_auxhist4_begin_mo
16138 SUBROUTINE nl_set_auxhist4_begin_d ( id_id , auxhist4_begin_d )
16139 integer , INTENT(IN) :: auxhist4_begin_d
16140 INTEGER id_id
16141 CHARACTER*80 emess
16142 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16143 WRITE(emess,*)'nl_set_auxhist4_begin_d: Out of range domain number: ',id_id
16144 CALL wrf_error_fatal(emess)
16145 ENDIF
16146 model_config_rec%auxhist4_begin_d(id_id) = auxhist4_begin_d
16147 RETURN
16148 END SUBROUTINE nl_set_auxhist4_begin_d
16149 SUBROUTINE nl_set_auxhist4_begin_h ( id_id , auxhist4_begin_h )
16150 integer , INTENT(IN) :: auxhist4_begin_h
16151 INTEGER id_id
16152 CHARACTER*80 emess
16153 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16154 WRITE(emess,*)'nl_set_auxhist4_begin_h: Out of range domain number: ',id_id
16155 CALL wrf_error_fatal(emess)
16156 ENDIF
16157 model_config_rec%auxhist4_begin_h(id_id) = auxhist4_begin_h
16158 RETURN
16159 END SUBROUTINE nl_set_auxhist4_begin_h
16160 SUBROUTINE nl_set_auxhist4_begin_m ( id_id , auxhist4_begin_m )
16161 integer , INTENT(IN) :: auxhist4_begin_m
16162 INTEGER id_id
16163 CHARACTER*80 emess
16164 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16165 WRITE(emess,*)'nl_set_auxhist4_begin_m: Out of range domain number: ',id_id
16166 CALL wrf_error_fatal(emess)
16167 ENDIF
16168 model_config_rec%auxhist4_begin_m(id_id) = auxhist4_begin_m
16169 RETURN
16170 END SUBROUTINE nl_set_auxhist4_begin_m
16171 SUBROUTINE nl_set_auxhist4_begin_s ( id_id , auxhist4_begin_s )
16172 integer , INTENT(IN) :: auxhist4_begin_s
16173 INTEGER id_id
16174 CHARACTER*80 emess
16175 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16176 WRITE(emess,*)'nl_set_auxhist4_begin_s: Out of range domain number: ',id_id
16177 CALL wrf_error_fatal(emess)
16178 ENDIF
16179 model_config_rec%auxhist4_begin_s(id_id) = auxhist4_begin_s
16180 RETURN
16181 END SUBROUTINE nl_set_auxhist4_begin_s
16182 SUBROUTINE nl_set_auxhist5_begin_y ( id_id , auxhist5_begin_y )
16183 integer , INTENT(IN) :: auxhist5_begin_y
16184 INTEGER id_id
16185 CHARACTER*80 emess
16186 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16187 WRITE(emess,*)'nl_set_auxhist5_begin_y: Out of range domain number: ',id_id
16188 CALL wrf_error_fatal(emess)
16189 ENDIF
16190 model_config_rec%auxhist5_begin_y(id_id) = auxhist5_begin_y
16191 RETURN
16192 END SUBROUTINE nl_set_auxhist5_begin_y
16193 SUBROUTINE nl_set_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
16194 integer , INTENT(IN) :: auxhist5_begin_mo
16195 INTEGER id_id
16196 CHARACTER*80 emess
16197 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16198 WRITE(emess,*)'nl_set_auxhist5_begin_mo: Out of range domain number: ',id_id
16199 CALL wrf_error_fatal(emess)
16200 ENDIF
16201 model_config_rec%auxhist5_begin_mo(id_id) = auxhist5_begin_mo
16202 RETURN
16203 END SUBROUTINE nl_set_auxhist5_begin_mo
16204 SUBROUTINE nl_set_auxhist5_begin_d ( id_id , auxhist5_begin_d )
16205 integer , INTENT(IN) :: auxhist5_begin_d
16206 INTEGER id_id
16207 CHARACTER*80 emess
16208 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16209 WRITE(emess,*)'nl_set_auxhist5_begin_d: Out of range domain number: ',id_id
16210 CALL wrf_error_fatal(emess)
16211 ENDIF
16212 model_config_rec%auxhist5_begin_d(id_id) = auxhist5_begin_d
16213 RETURN
16214 END SUBROUTINE nl_set_auxhist5_begin_d
16215 SUBROUTINE nl_set_auxhist5_begin_h ( id_id , auxhist5_begin_h )
16216 integer , INTENT(IN) :: auxhist5_begin_h
16217 INTEGER id_id
16218 CHARACTER*80 emess
16219 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16220 WRITE(emess,*)'nl_set_auxhist5_begin_h: Out of range domain number: ',id_id
16221 CALL wrf_error_fatal(emess)
16222 ENDIF
16223 model_config_rec%auxhist5_begin_h(id_id) = auxhist5_begin_h
16224 RETURN
16225 END SUBROUTINE nl_set_auxhist5_begin_h
16226 SUBROUTINE nl_set_auxhist5_begin_m ( id_id , auxhist5_begin_m )
16227 integer , INTENT(IN) :: auxhist5_begin_m
16228 INTEGER id_id
16229 CHARACTER*80 emess
16230 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16231 WRITE(emess,*)'nl_set_auxhist5_begin_m: Out of range domain number: ',id_id
16232 CALL wrf_error_fatal(emess)
16233 ENDIF
16234 model_config_rec%auxhist5_begin_m(id_id) = auxhist5_begin_m
16235 RETURN
16236 END SUBROUTINE nl_set_auxhist5_begin_m
16237 SUBROUTINE nl_set_auxhist5_begin_s ( id_id , auxhist5_begin_s )
16238 integer , INTENT(IN) :: auxhist5_begin_s
16239 INTEGER id_id
16240 CHARACTER*80 emess
16241 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16242 WRITE(emess,*)'nl_set_auxhist5_begin_s: Out of range domain number: ',id_id
16243 CALL wrf_error_fatal(emess)
16244 ENDIF
16245 model_config_rec%auxhist5_begin_s(id_id) = auxhist5_begin_s
16246 RETURN
16247 END SUBROUTINE nl_set_auxhist5_begin_s
16248 SUBROUTINE nl_set_auxhist6_begin_y ( id_id , auxhist6_begin_y )
16249 integer , INTENT(IN) :: auxhist6_begin_y
16250 INTEGER id_id
16251 CHARACTER*80 emess
16252 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16253 WRITE(emess,*)'nl_set_auxhist6_begin_y: Out of range domain number: ',id_id
16254 CALL wrf_error_fatal(emess)
16255 ENDIF
16256 model_config_rec%auxhist6_begin_y(id_id) = auxhist6_begin_y
16257 RETURN
16258 END SUBROUTINE nl_set_auxhist6_begin_y
16259 SUBROUTINE nl_set_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
16260 integer , INTENT(IN) :: auxhist6_begin_mo
16261 INTEGER id_id
16262 CHARACTER*80 emess
16263 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16264 WRITE(emess,*)'nl_set_auxhist6_begin_mo: Out of range domain number: ',id_id
16265 CALL wrf_error_fatal(emess)
16266 ENDIF
16267 model_config_rec%auxhist6_begin_mo(id_id) = auxhist6_begin_mo
16268 RETURN
16269 END SUBROUTINE nl_set_auxhist6_begin_mo
16270 SUBROUTINE nl_set_auxhist6_begin_d ( id_id , auxhist6_begin_d )
16271 integer , INTENT(IN) :: auxhist6_begin_d
16272 INTEGER id_id
16273 CHARACTER*80 emess
16274 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16275 WRITE(emess,*)'nl_set_auxhist6_begin_d: Out of range domain number: ',id_id
16276 CALL wrf_error_fatal(emess)
16277 ENDIF
16278 model_config_rec%auxhist6_begin_d(id_id) = auxhist6_begin_d
16279 RETURN
16280 END SUBROUTINE nl_set_auxhist6_begin_d
16281 SUBROUTINE nl_set_auxhist6_begin_h ( id_id , auxhist6_begin_h )
16282 integer , INTENT(IN) :: auxhist6_begin_h
16283 INTEGER id_id
16284 CHARACTER*80 emess
16285 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16286 WRITE(emess,*)'nl_set_auxhist6_begin_h: Out of range domain number: ',id_id
16287 CALL wrf_error_fatal(emess)
16288 ENDIF
16289 model_config_rec%auxhist6_begin_h(id_id) = auxhist6_begin_h
16290 RETURN
16291 END SUBROUTINE nl_set_auxhist6_begin_h
16292 SUBROUTINE nl_set_auxhist6_begin_m ( id_id , auxhist6_begin_m )
16293 integer , INTENT(IN) :: auxhist6_begin_m
16294 INTEGER id_id
16295 CHARACTER*80 emess
16296 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16297 WRITE(emess,*)'nl_set_auxhist6_begin_m: Out of range domain number: ',id_id
16298 CALL wrf_error_fatal(emess)
16299 ENDIF
16300 model_config_rec%auxhist6_begin_m(id_id) = auxhist6_begin_m
16301 RETURN
16302 END SUBROUTINE nl_set_auxhist6_begin_m
16303 SUBROUTINE nl_set_auxhist6_begin_s ( id_id , auxhist6_begin_s )
16304 integer , INTENT(IN) :: auxhist6_begin_s
16305 INTEGER id_id
16306 CHARACTER*80 emess
16307 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16308 WRITE(emess,*)'nl_set_auxhist6_begin_s: Out of range domain number: ',id_id
16309 CALL wrf_error_fatal(emess)
16310 ENDIF
16311 model_config_rec%auxhist6_begin_s(id_id) = auxhist6_begin_s
16312 RETURN
16313 END SUBROUTINE nl_set_auxhist6_begin_s
16314 SUBROUTINE nl_set_auxhist7_begin_y ( id_id , auxhist7_begin_y )
16315 integer , INTENT(IN) :: auxhist7_begin_y
16316 INTEGER id_id
16317 CHARACTER*80 emess
16318 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16319 WRITE(emess,*)'nl_set_auxhist7_begin_y: Out of range domain number: ',id_id
16320 CALL wrf_error_fatal(emess)
16321 ENDIF
16322 model_config_rec%auxhist7_begin_y(id_id) = auxhist7_begin_y
16323 RETURN
16324 END SUBROUTINE nl_set_auxhist7_begin_y
16325 SUBROUTINE nl_set_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
16326 integer , INTENT(IN) :: auxhist7_begin_mo
16327 INTEGER id_id
16328 CHARACTER*80 emess
16329 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16330 WRITE(emess,*)'nl_set_auxhist7_begin_mo: Out of range domain number: ',id_id
16331 CALL wrf_error_fatal(emess)
16332 ENDIF
16333 model_config_rec%auxhist7_begin_mo(id_id) = auxhist7_begin_mo
16334 RETURN
16335 END SUBROUTINE nl_set_auxhist7_begin_mo
16336 SUBROUTINE nl_set_auxhist7_begin_d ( id_id , auxhist7_begin_d )
16337 integer , INTENT(IN) :: auxhist7_begin_d
16338 INTEGER id_id
16339 CHARACTER*80 emess
16340 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16341 WRITE(emess,*)'nl_set_auxhist7_begin_d: Out of range domain number: ',id_id
16342 CALL wrf_error_fatal(emess)
16343 ENDIF
16344 model_config_rec%auxhist7_begin_d(id_id) = auxhist7_begin_d
16345 RETURN
16346 END SUBROUTINE nl_set_auxhist7_begin_d
16347 SUBROUTINE nl_set_auxhist7_begin_h ( id_id , auxhist7_begin_h )
16348 integer , INTENT(IN) :: auxhist7_begin_h
16349 INTEGER id_id
16350 CHARACTER*80 emess
16351 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16352 WRITE(emess,*)'nl_set_auxhist7_begin_h: Out of range domain number: ',id_id
16353 CALL wrf_error_fatal(emess)
16354 ENDIF
16355 model_config_rec%auxhist7_begin_h(id_id) = auxhist7_begin_h
16356 RETURN
16357 END SUBROUTINE nl_set_auxhist7_begin_h
16358 SUBROUTINE nl_set_auxhist7_begin_m ( id_id , auxhist7_begin_m )
16359 integer , INTENT(IN) :: auxhist7_begin_m
16360 INTEGER id_id
16361 CHARACTER*80 emess
16362 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16363 WRITE(emess,*)'nl_set_auxhist7_begin_m: Out of range domain number: ',id_id
16364 CALL wrf_error_fatal(emess)
16365 ENDIF
16366 model_config_rec%auxhist7_begin_m(id_id) = auxhist7_begin_m
16367 RETURN
16368 END SUBROUTINE nl_set_auxhist7_begin_m
16369 SUBROUTINE nl_set_auxhist7_begin_s ( id_id , auxhist7_begin_s )
16370 integer , INTENT(IN) :: auxhist7_begin_s
16371 INTEGER id_id
16372 CHARACTER*80 emess
16373 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16374 WRITE(emess,*)'nl_set_auxhist7_begin_s: Out of range domain number: ',id_id
16375 CALL wrf_error_fatal(emess)
16376 ENDIF
16377 model_config_rec%auxhist7_begin_s(id_id) = auxhist7_begin_s
16378 RETURN
16379 END SUBROUTINE nl_set_auxhist7_begin_s
16380 SUBROUTINE nl_set_auxhist8_begin_y ( id_id , auxhist8_begin_y )
16381 integer , INTENT(IN) :: auxhist8_begin_y
16382 INTEGER id_id
16383 CHARACTER*80 emess
16384 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16385 WRITE(emess,*)'nl_set_auxhist8_begin_y: Out of range domain number: ',id_id
16386 CALL wrf_error_fatal(emess)
16387 ENDIF
16388 model_config_rec%auxhist8_begin_y(id_id) = auxhist8_begin_y
16389 RETURN
16390 END SUBROUTINE nl_set_auxhist8_begin_y
16391 SUBROUTINE nl_set_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
16392 integer , INTENT(IN) :: auxhist8_begin_mo
16393 INTEGER id_id
16394 CHARACTER*80 emess
16395 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16396 WRITE(emess,*)'nl_set_auxhist8_begin_mo: Out of range domain number: ',id_id
16397 CALL wrf_error_fatal(emess)
16398 ENDIF
16399 model_config_rec%auxhist8_begin_mo(id_id) = auxhist8_begin_mo
16400 RETURN
16401 END SUBROUTINE nl_set_auxhist8_begin_mo
16402 SUBROUTINE nl_set_auxhist8_begin_d ( id_id , auxhist8_begin_d )
16403 integer , INTENT(IN) :: auxhist8_begin_d
16404 INTEGER id_id
16405 CHARACTER*80 emess
16406 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16407 WRITE(emess,*)'nl_set_auxhist8_begin_d: Out of range domain number: ',id_id
16408 CALL wrf_error_fatal(emess)
16409 ENDIF
16410 model_config_rec%auxhist8_begin_d(id_id) = auxhist8_begin_d
16411 RETURN
16412 END SUBROUTINE nl_set_auxhist8_begin_d
16413 SUBROUTINE nl_set_auxhist8_begin_h ( id_id , auxhist8_begin_h )
16414 integer , INTENT(IN) :: auxhist8_begin_h
16415 INTEGER id_id
16416 CHARACTER*80 emess
16417 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16418 WRITE(emess,*)'nl_set_auxhist8_begin_h: Out of range domain number: ',id_id
16419 CALL wrf_error_fatal(emess)
16420 ENDIF
16421 model_config_rec%auxhist8_begin_h(id_id) = auxhist8_begin_h
16422 RETURN
16423 END SUBROUTINE nl_set_auxhist8_begin_h
16424 SUBROUTINE nl_set_auxhist8_begin_m ( id_id , auxhist8_begin_m )
16425 integer , INTENT(IN) :: auxhist8_begin_m
16426 INTEGER id_id
16427 CHARACTER*80 emess
16428 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16429 WRITE(emess,*)'nl_set_auxhist8_begin_m: Out of range domain number: ',id_id
16430 CALL wrf_error_fatal(emess)
16431 ENDIF
16432 model_config_rec%auxhist8_begin_m(id_id) = auxhist8_begin_m
16433 RETURN
16434 END SUBROUTINE nl_set_auxhist8_begin_m
16435 SUBROUTINE nl_set_auxhist8_begin_s ( id_id , auxhist8_begin_s )
16436 integer , INTENT(IN) :: auxhist8_begin_s
16437 INTEGER id_id
16438 CHARACTER*80 emess
16439 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16440 WRITE(emess,*)'nl_set_auxhist8_begin_s: Out of range domain number: ',id_id
16441 CALL wrf_error_fatal(emess)
16442 ENDIF
16443 model_config_rec%auxhist8_begin_s(id_id) = auxhist8_begin_s
16444 RETURN
16445 END SUBROUTINE nl_set_auxhist8_begin_s
16446 SUBROUTINE nl_set_auxhist9_begin_y ( id_id , auxhist9_begin_y )
16447 integer , INTENT(IN) :: auxhist9_begin_y
16448 INTEGER id_id
16449 CHARACTER*80 emess
16450 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16451 WRITE(emess,*)'nl_set_auxhist9_begin_y: Out of range domain number: ',id_id
16452 CALL wrf_error_fatal(emess)
16453 ENDIF
16454 model_config_rec%auxhist9_begin_y(id_id) = auxhist9_begin_y
16455 RETURN
16456 END SUBROUTINE nl_set_auxhist9_begin_y
16457 SUBROUTINE nl_set_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
16458 integer , INTENT(IN) :: auxhist9_begin_mo
16459 INTEGER id_id
16460 CHARACTER*80 emess
16461 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16462 WRITE(emess,*)'nl_set_auxhist9_begin_mo: Out of range domain number: ',id_id
16463 CALL wrf_error_fatal(emess)
16464 ENDIF
16465 model_config_rec%auxhist9_begin_mo(id_id) = auxhist9_begin_mo
16466 RETURN
16467 END SUBROUTINE nl_set_auxhist9_begin_mo
16468 SUBROUTINE nl_set_auxhist9_begin_d ( id_id , auxhist9_begin_d )
16469 integer , INTENT(IN) :: auxhist9_begin_d
16470 INTEGER id_id
16471 CHARACTER*80 emess
16472 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16473 WRITE(emess,*)'nl_set_auxhist9_begin_d: Out of range domain number: ',id_id
16474 CALL wrf_error_fatal(emess)
16475 ENDIF
16476 model_config_rec%auxhist9_begin_d(id_id) = auxhist9_begin_d
16477 RETURN
16478 END SUBROUTINE nl_set_auxhist9_begin_d
16479 SUBROUTINE nl_set_auxhist9_begin_h ( id_id , auxhist9_begin_h )
16480 integer , INTENT(IN) :: auxhist9_begin_h
16481 INTEGER id_id
16482 CHARACTER*80 emess
16483 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16484 WRITE(emess,*)'nl_set_auxhist9_begin_h: Out of range domain number: ',id_id
16485 CALL wrf_error_fatal(emess)
16486 ENDIF
16487 model_config_rec%auxhist9_begin_h(id_id) = auxhist9_begin_h
16488 RETURN
16489 END SUBROUTINE nl_set_auxhist9_begin_h
16490 SUBROUTINE nl_set_auxhist9_begin_m ( id_id , auxhist9_begin_m )
16491 integer , INTENT(IN) :: auxhist9_begin_m
16492 INTEGER id_id
16493 CHARACTER*80 emess
16494 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16495 WRITE(emess,*)'nl_set_auxhist9_begin_m: Out of range domain number: ',id_id
16496 CALL wrf_error_fatal(emess)
16497 ENDIF
16498 model_config_rec%auxhist9_begin_m(id_id) = auxhist9_begin_m
16499 RETURN
16500 END SUBROUTINE nl_set_auxhist9_begin_m
16501 SUBROUTINE nl_set_auxhist9_begin_s ( id_id , auxhist9_begin_s )
16502 integer , INTENT(IN) :: auxhist9_begin_s
16503 INTEGER id_id
16504 CHARACTER*80 emess
16505 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16506 WRITE(emess,*)'nl_set_auxhist9_begin_s: Out of range domain number: ',id_id
16507 CALL wrf_error_fatal(emess)
16508 ENDIF
16509 model_config_rec%auxhist9_begin_s(id_id) = auxhist9_begin_s
16510 RETURN
16511 END SUBROUTINE nl_set_auxhist9_begin_s
16512 SUBROUTINE nl_set_auxhist10_begin_y ( id_id , auxhist10_begin_y )
16513 integer , INTENT(IN) :: auxhist10_begin_y
16514 INTEGER id_id
16515 CHARACTER*80 emess
16516 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16517 WRITE(emess,*)'nl_set_auxhist10_begin_y: Out of range domain number: ',id_id
16518 CALL wrf_error_fatal(emess)
16519 ENDIF
16520 model_config_rec%auxhist10_begin_y(id_id) = auxhist10_begin_y
16521 RETURN
16522 END SUBROUTINE nl_set_auxhist10_begin_y
16523 SUBROUTINE nl_set_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
16524 integer , INTENT(IN) :: auxhist10_begin_mo
16525 INTEGER id_id
16526 CHARACTER*80 emess
16527 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16528 WRITE(emess,*)'nl_set_auxhist10_begin_mo: Out of range domain number: ',id_id
16529 CALL wrf_error_fatal(emess)
16530 ENDIF
16531 model_config_rec%auxhist10_begin_mo(id_id) = auxhist10_begin_mo
16532 RETURN
16533 END SUBROUTINE nl_set_auxhist10_begin_mo
16534 SUBROUTINE nl_set_auxhist10_begin_d ( id_id , auxhist10_begin_d )
16535 integer , INTENT(IN) :: auxhist10_begin_d
16536 INTEGER id_id
16537 CHARACTER*80 emess
16538 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16539 WRITE(emess,*)'nl_set_auxhist10_begin_d: Out of range domain number: ',id_id
16540 CALL wrf_error_fatal(emess)
16541 ENDIF
16542 model_config_rec%auxhist10_begin_d(id_id) = auxhist10_begin_d
16543 RETURN
16544 END SUBROUTINE nl_set_auxhist10_begin_d
16545 SUBROUTINE nl_set_auxhist10_begin_h ( id_id , auxhist10_begin_h )
16546 integer , INTENT(IN) :: auxhist10_begin_h
16547 INTEGER id_id
16548 CHARACTER*80 emess
16549 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16550 WRITE(emess,*)'nl_set_auxhist10_begin_h: Out of range domain number: ',id_id
16551 CALL wrf_error_fatal(emess)
16552 ENDIF
16553 model_config_rec%auxhist10_begin_h(id_id) = auxhist10_begin_h
16554 RETURN
16555 END SUBROUTINE nl_set_auxhist10_begin_h
16556 SUBROUTINE nl_set_auxhist10_begin_m ( id_id , auxhist10_begin_m )
16557 integer , INTENT(IN) :: auxhist10_begin_m
16558 INTEGER id_id
16559 CHARACTER*80 emess
16560 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16561 WRITE(emess,*)'nl_set_auxhist10_begin_m: Out of range domain number: ',id_id
16562 CALL wrf_error_fatal(emess)
16563 ENDIF
16564 model_config_rec%auxhist10_begin_m(id_id) = auxhist10_begin_m
16565 RETURN
16566 END SUBROUTINE nl_set_auxhist10_begin_m
16567 SUBROUTINE nl_set_auxhist10_begin_s ( id_id , auxhist10_begin_s )
16568 integer , INTENT(IN) :: auxhist10_begin_s
16569 INTEGER id_id
16570 CHARACTER*80 emess
16571 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16572 WRITE(emess,*)'nl_set_auxhist10_begin_s: Out of range domain number: ',id_id
16573 CALL wrf_error_fatal(emess)
16574 ENDIF
16575 model_config_rec%auxhist10_begin_s(id_id) = auxhist10_begin_s
16576 RETURN
16577 END SUBROUTINE nl_set_auxhist10_begin_s
16578 SUBROUTINE nl_set_auxhist11_begin_y ( id_id , auxhist11_begin_y )
16579 integer , INTENT(IN) :: auxhist11_begin_y
16580 INTEGER id_id
16581 CHARACTER*80 emess
16582 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16583 WRITE(emess,*)'nl_set_auxhist11_begin_y: Out of range domain number: ',id_id
16584 CALL wrf_error_fatal(emess)
16585 ENDIF
16586 model_config_rec%auxhist11_begin_y(id_id) = auxhist11_begin_y
16587 RETURN
16588 END SUBROUTINE nl_set_auxhist11_begin_y
16589 SUBROUTINE nl_set_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
16590 integer , INTENT(IN) :: auxhist11_begin_mo
16591 INTEGER id_id
16592 CHARACTER*80 emess
16593 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16594 WRITE(emess,*)'nl_set_auxhist11_begin_mo: Out of range domain number: ',id_id
16595 CALL wrf_error_fatal(emess)
16596 ENDIF
16597 model_config_rec%auxhist11_begin_mo(id_id) = auxhist11_begin_mo
16598 RETURN
16599 END SUBROUTINE nl_set_auxhist11_begin_mo
16600 SUBROUTINE nl_set_auxhist11_begin_d ( id_id , auxhist11_begin_d )
16601 integer , INTENT(IN) :: auxhist11_begin_d
16602 INTEGER id_id
16603 CHARACTER*80 emess
16604 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16605 WRITE(emess,*)'nl_set_auxhist11_begin_d: Out of range domain number: ',id_id
16606 CALL wrf_error_fatal(emess)
16607 ENDIF
16608 model_config_rec%auxhist11_begin_d(id_id) = auxhist11_begin_d
16609 RETURN
16610 END SUBROUTINE nl_set_auxhist11_begin_d
16611 SUBROUTINE nl_set_auxhist11_begin_h ( id_id , auxhist11_begin_h )
16612 integer , INTENT(IN) :: auxhist11_begin_h
16613 INTEGER id_id
16614 CHARACTER*80 emess
16615 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16616 WRITE(emess,*)'nl_set_auxhist11_begin_h: Out of range domain number: ',id_id
16617 CALL wrf_error_fatal(emess)
16618 ENDIF
16619 model_config_rec%auxhist11_begin_h(id_id) = auxhist11_begin_h
16620 RETURN
16621 END SUBROUTINE nl_set_auxhist11_begin_h
16622 SUBROUTINE nl_set_auxhist11_begin_m ( id_id , auxhist11_begin_m )
16623 integer , INTENT(IN) :: auxhist11_begin_m
16624 INTEGER id_id
16625 CHARACTER*80 emess
16626 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16627 WRITE(emess,*)'nl_set_auxhist11_begin_m: Out of range domain number: ',id_id
16628 CALL wrf_error_fatal(emess)
16629 ENDIF
16630 model_config_rec%auxhist11_begin_m(id_id) = auxhist11_begin_m
16631 RETURN
16632 END SUBROUTINE nl_set_auxhist11_begin_m
16633 SUBROUTINE nl_set_auxhist11_begin_s ( id_id , auxhist11_begin_s )
16634 integer , INTENT(IN) :: auxhist11_begin_s
16635 INTEGER id_id
16636 CHARACTER*80 emess
16637 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16638 WRITE(emess,*)'nl_set_auxhist11_begin_s: Out of range domain number: ',id_id
16639 CALL wrf_error_fatal(emess)
16640 ENDIF
16641 model_config_rec%auxhist11_begin_s(id_id) = auxhist11_begin_s
16642 RETURN
16643 END SUBROUTINE nl_set_auxhist11_begin_s
16644 SUBROUTINE nl_set_auxinput1_begin_y ( id_id , auxinput1_begin_y )
16645 integer , INTENT(IN) :: auxinput1_begin_y
16646 INTEGER id_id
16647 CHARACTER*80 emess
16648 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16649 WRITE(emess,*)'nl_set_auxinput1_begin_y: Out of range domain number: ',id_id
16650 CALL wrf_error_fatal(emess)
16651 ENDIF
16652 model_config_rec%auxinput1_begin_y(id_id) = auxinput1_begin_y
16653 RETURN
16654 END SUBROUTINE nl_set_auxinput1_begin_y
16655 SUBROUTINE nl_set_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
16656 integer , INTENT(IN) :: auxinput1_begin_mo
16657 INTEGER id_id
16658 CHARACTER*80 emess
16659 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16660 WRITE(emess,*)'nl_set_auxinput1_begin_mo: Out of range domain number: ',id_id
16661 CALL wrf_error_fatal(emess)
16662 ENDIF
16663 model_config_rec%auxinput1_begin_mo(id_id) = auxinput1_begin_mo
16664 RETURN
16665 END SUBROUTINE nl_set_auxinput1_begin_mo
16666 SUBROUTINE nl_set_auxinput1_begin_d ( id_id , auxinput1_begin_d )
16667 integer , INTENT(IN) :: auxinput1_begin_d
16668 INTEGER id_id
16669 CHARACTER*80 emess
16670 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16671 WRITE(emess,*)'nl_set_auxinput1_begin_d: Out of range domain number: ',id_id
16672 CALL wrf_error_fatal(emess)
16673 ENDIF
16674 model_config_rec%auxinput1_begin_d(id_id) = auxinput1_begin_d
16675 RETURN
16676 END SUBROUTINE nl_set_auxinput1_begin_d
16677 SUBROUTINE nl_set_auxinput1_begin_h ( id_id , auxinput1_begin_h )
16678 integer , INTENT(IN) :: auxinput1_begin_h
16679 INTEGER id_id
16680 CHARACTER*80 emess
16681 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16682 WRITE(emess,*)'nl_set_auxinput1_begin_h: Out of range domain number: ',id_id
16683 CALL wrf_error_fatal(emess)
16684 ENDIF
16685 model_config_rec%auxinput1_begin_h(id_id) = auxinput1_begin_h
16686 RETURN
16687 END SUBROUTINE nl_set_auxinput1_begin_h
16688 SUBROUTINE nl_set_auxinput1_begin_m ( id_id , auxinput1_begin_m )
16689 integer , INTENT(IN) :: auxinput1_begin_m
16690 INTEGER id_id
16691 CHARACTER*80 emess
16692 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16693 WRITE(emess,*)'nl_set_auxinput1_begin_m: Out of range domain number: ',id_id
16694 CALL wrf_error_fatal(emess)
16695 ENDIF
16696 model_config_rec%auxinput1_begin_m(id_id) = auxinput1_begin_m
16697 RETURN
16698 END SUBROUTINE nl_set_auxinput1_begin_m
16699 SUBROUTINE nl_set_auxinput1_begin_s ( id_id , auxinput1_begin_s )
16700 integer , INTENT(IN) :: auxinput1_begin_s
16701 INTEGER id_id
16702 CHARACTER*80 emess
16703 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16704 WRITE(emess,*)'nl_set_auxinput1_begin_s: Out of range domain number: ',id_id
16705 CALL wrf_error_fatal(emess)
16706 ENDIF
16707 model_config_rec%auxinput1_begin_s(id_id) = auxinput1_begin_s
16708 RETURN
16709 END SUBROUTINE nl_set_auxinput1_begin_s
16710 SUBROUTINE nl_set_auxinput2_begin_y ( id_id , auxinput2_begin_y )
16711 integer , INTENT(IN) :: auxinput2_begin_y
16712 INTEGER id_id
16713 CHARACTER*80 emess
16714 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16715 WRITE(emess,*)'nl_set_auxinput2_begin_y: Out of range domain number: ',id_id
16716 CALL wrf_error_fatal(emess)
16717 ENDIF
16718 model_config_rec%auxinput2_begin_y(id_id) = auxinput2_begin_y
16719 RETURN
16720 END SUBROUTINE nl_set_auxinput2_begin_y
16721 SUBROUTINE nl_set_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
16722 integer , INTENT(IN) :: auxinput2_begin_mo
16723 INTEGER id_id
16724 CHARACTER*80 emess
16725 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16726 WRITE(emess,*)'nl_set_auxinput2_begin_mo: Out of range domain number: ',id_id
16727 CALL wrf_error_fatal(emess)
16728 ENDIF
16729 model_config_rec%auxinput2_begin_mo(id_id) = auxinput2_begin_mo
16730 RETURN
16731 END SUBROUTINE nl_set_auxinput2_begin_mo
16732 SUBROUTINE nl_set_auxinput2_begin_d ( id_id , auxinput2_begin_d )
16733 integer , INTENT(IN) :: auxinput2_begin_d
16734 INTEGER id_id
16735 CHARACTER*80 emess
16736 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16737 WRITE(emess,*)'nl_set_auxinput2_begin_d: Out of range domain number: ',id_id
16738 CALL wrf_error_fatal(emess)
16739 ENDIF
16740 model_config_rec%auxinput2_begin_d(id_id) = auxinput2_begin_d
16741 RETURN
16742 END SUBROUTINE nl_set_auxinput2_begin_d
16743 SUBROUTINE nl_set_auxinput2_begin_h ( id_id , auxinput2_begin_h )
16744 integer , INTENT(IN) :: auxinput2_begin_h
16745 INTEGER id_id
16746 CHARACTER*80 emess
16747 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16748 WRITE(emess,*)'nl_set_auxinput2_begin_h: Out of range domain number: ',id_id
16749 CALL wrf_error_fatal(emess)
16750 ENDIF
16751 model_config_rec%auxinput2_begin_h(id_id) = auxinput2_begin_h
16752 RETURN
16753 END SUBROUTINE nl_set_auxinput2_begin_h
16754 SUBROUTINE nl_set_auxinput2_begin_m ( id_id , auxinput2_begin_m )
16755 integer , INTENT(IN) :: auxinput2_begin_m
16756 INTEGER id_id
16757 CHARACTER*80 emess
16758 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16759 WRITE(emess,*)'nl_set_auxinput2_begin_m: Out of range domain number: ',id_id
16760 CALL wrf_error_fatal(emess)
16761 ENDIF
16762 model_config_rec%auxinput2_begin_m(id_id) = auxinput2_begin_m
16763 RETURN
16764 END SUBROUTINE nl_set_auxinput2_begin_m
16765 SUBROUTINE nl_set_auxinput2_begin_s ( id_id , auxinput2_begin_s )
16766 integer , INTENT(IN) :: auxinput2_begin_s
16767 INTEGER id_id
16768 CHARACTER*80 emess
16769 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16770 WRITE(emess,*)'nl_set_auxinput2_begin_s: Out of range domain number: ',id_id
16771 CALL wrf_error_fatal(emess)
16772 ENDIF
16773 model_config_rec%auxinput2_begin_s(id_id) = auxinput2_begin_s
16774 RETURN
16775 END SUBROUTINE nl_set_auxinput2_begin_s
16776 SUBROUTINE nl_set_auxinput3_begin_y ( id_id , auxinput3_begin_y )
16777 integer , INTENT(IN) :: auxinput3_begin_y
16778 INTEGER id_id
16779 CHARACTER*80 emess
16780 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16781 WRITE(emess,*)'nl_set_auxinput3_begin_y: Out of range domain number: ',id_id
16782 CALL wrf_error_fatal(emess)
16783 ENDIF
16784 model_config_rec%auxinput3_begin_y(id_id) = auxinput3_begin_y
16785 RETURN
16786 END SUBROUTINE nl_set_auxinput3_begin_y
16787 SUBROUTINE nl_set_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
16788 integer , INTENT(IN) :: auxinput3_begin_mo
16789 INTEGER id_id
16790 CHARACTER*80 emess
16791 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16792 WRITE(emess,*)'nl_set_auxinput3_begin_mo: Out of range domain number: ',id_id
16793 CALL wrf_error_fatal(emess)
16794 ENDIF
16795 model_config_rec%auxinput3_begin_mo(id_id) = auxinput3_begin_mo
16796 RETURN
16797 END SUBROUTINE nl_set_auxinput3_begin_mo
16798 SUBROUTINE nl_set_auxinput3_begin_d ( id_id , auxinput3_begin_d )
16799 integer , INTENT(IN) :: auxinput3_begin_d
16800 INTEGER id_id
16801 CHARACTER*80 emess
16802 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16803 WRITE(emess,*)'nl_set_auxinput3_begin_d: Out of range domain number: ',id_id
16804 CALL wrf_error_fatal(emess)
16805 ENDIF
16806 model_config_rec%auxinput3_begin_d(id_id) = auxinput3_begin_d
16807 RETURN
16808 END SUBROUTINE nl_set_auxinput3_begin_d
16809 SUBROUTINE nl_set_auxinput3_begin_h ( id_id , auxinput3_begin_h )
16810 integer , INTENT(IN) :: auxinput3_begin_h
16811 INTEGER id_id
16812 CHARACTER*80 emess
16813 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16814 WRITE(emess,*)'nl_set_auxinput3_begin_h: Out of range domain number: ',id_id
16815 CALL wrf_error_fatal(emess)
16816 ENDIF
16817 model_config_rec%auxinput3_begin_h(id_id) = auxinput3_begin_h
16818 RETURN
16819 END SUBROUTINE nl_set_auxinput3_begin_h
16820 SUBROUTINE nl_set_auxinput3_begin_m ( id_id , auxinput3_begin_m )
16821 integer , INTENT(IN) :: auxinput3_begin_m
16822 INTEGER id_id
16823 CHARACTER*80 emess
16824 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16825 WRITE(emess,*)'nl_set_auxinput3_begin_m: Out of range domain number: ',id_id
16826 CALL wrf_error_fatal(emess)
16827 ENDIF
16828 model_config_rec%auxinput3_begin_m(id_id) = auxinput3_begin_m
16829 RETURN
16830 END SUBROUTINE nl_set_auxinput3_begin_m
16831 SUBROUTINE nl_set_auxinput3_begin_s ( id_id , auxinput3_begin_s )
16832 integer , INTENT(IN) :: auxinput3_begin_s
16833 INTEGER id_id
16834 CHARACTER*80 emess
16835 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16836 WRITE(emess,*)'nl_set_auxinput3_begin_s: Out of range domain number: ',id_id
16837 CALL wrf_error_fatal(emess)
16838 ENDIF
16839 model_config_rec%auxinput3_begin_s(id_id) = auxinput3_begin_s
16840 RETURN
16841 END SUBROUTINE nl_set_auxinput3_begin_s
16842 SUBROUTINE nl_set_auxinput4_begin_y ( id_id , auxinput4_begin_y )
16843 integer , INTENT(IN) :: auxinput4_begin_y
16844 INTEGER id_id
16845 CHARACTER*80 emess
16846 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16847 WRITE(emess,*)'nl_set_auxinput4_begin_y: Out of range domain number: ',id_id
16848 CALL wrf_error_fatal(emess)
16849 ENDIF
16850 model_config_rec%auxinput4_begin_y(id_id) = auxinput4_begin_y
16851 RETURN
16852 END SUBROUTINE nl_set_auxinput4_begin_y
16853 SUBROUTINE nl_set_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
16854 integer , INTENT(IN) :: auxinput4_begin_mo
16855 INTEGER id_id
16856 CHARACTER*80 emess
16857 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16858 WRITE(emess,*)'nl_set_auxinput4_begin_mo: Out of range domain number: ',id_id
16859 CALL wrf_error_fatal(emess)
16860 ENDIF
16861 model_config_rec%auxinput4_begin_mo(id_id) = auxinput4_begin_mo
16862 RETURN
16863 END SUBROUTINE nl_set_auxinput4_begin_mo
16864 SUBROUTINE nl_set_auxinput4_begin_d ( id_id , auxinput4_begin_d )
16865 integer , INTENT(IN) :: auxinput4_begin_d
16866 INTEGER id_id
16867 CHARACTER*80 emess
16868 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16869 WRITE(emess,*)'nl_set_auxinput4_begin_d: Out of range domain number: ',id_id
16870 CALL wrf_error_fatal(emess)
16871 ENDIF
16872 model_config_rec%auxinput4_begin_d(id_id) = auxinput4_begin_d
16873 RETURN
16874 END SUBROUTINE nl_set_auxinput4_begin_d
16875 SUBROUTINE nl_set_auxinput4_begin_h ( id_id , auxinput4_begin_h )
16876 integer , INTENT(IN) :: auxinput4_begin_h
16877 INTEGER id_id
16878 CHARACTER*80 emess
16879 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16880 WRITE(emess,*)'nl_set_auxinput4_begin_h: Out of range domain number: ',id_id
16881 CALL wrf_error_fatal(emess)
16882 ENDIF
16883 model_config_rec%auxinput4_begin_h(id_id) = auxinput4_begin_h
16884 RETURN
16885 END SUBROUTINE nl_set_auxinput4_begin_h
16886 SUBROUTINE nl_set_auxinput4_begin_m ( id_id , auxinput4_begin_m )
16887 integer , INTENT(IN) :: auxinput4_begin_m
16888 INTEGER id_id
16889 CHARACTER*80 emess
16890 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16891 WRITE(emess,*)'nl_set_auxinput4_begin_m: Out of range domain number: ',id_id
16892 CALL wrf_error_fatal(emess)
16893 ENDIF
16894 model_config_rec%auxinput4_begin_m(id_id) = auxinput4_begin_m
16895 RETURN
16896 END SUBROUTINE nl_set_auxinput4_begin_m
16897 SUBROUTINE nl_set_auxinput4_begin_s ( id_id , auxinput4_begin_s )
16898 integer , INTENT(IN) :: auxinput4_begin_s
16899 INTEGER id_id
16900 CHARACTER*80 emess
16901 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16902 WRITE(emess,*)'nl_set_auxinput4_begin_s: Out of range domain number: ',id_id
16903 CALL wrf_error_fatal(emess)
16904 ENDIF
16905 model_config_rec%auxinput4_begin_s(id_id) = auxinput4_begin_s
16906 RETURN
16907 END SUBROUTINE nl_set_auxinput4_begin_s
16908 SUBROUTINE nl_set_auxinput5_begin_y ( id_id , auxinput5_begin_y )
16909 integer , INTENT(IN) :: auxinput5_begin_y
16910 INTEGER id_id
16911 CHARACTER*80 emess
16912 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16913 WRITE(emess,*)'nl_set_auxinput5_begin_y: Out of range domain number: ',id_id
16914 CALL wrf_error_fatal(emess)
16915 ENDIF
16916 model_config_rec%auxinput5_begin_y(id_id) = auxinput5_begin_y
16917 RETURN
16918 END SUBROUTINE nl_set_auxinput5_begin_y
16919 SUBROUTINE nl_set_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
16920 integer , INTENT(IN) :: auxinput5_begin_mo
16921 INTEGER id_id
16922 CHARACTER*80 emess
16923 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16924 WRITE(emess,*)'nl_set_auxinput5_begin_mo: Out of range domain number: ',id_id
16925 CALL wrf_error_fatal(emess)
16926 ENDIF
16927 model_config_rec%auxinput5_begin_mo(id_id) = auxinput5_begin_mo
16928 RETURN
16929 END SUBROUTINE nl_set_auxinput5_begin_mo
16930 SUBROUTINE nl_set_auxinput5_begin_d ( id_id , auxinput5_begin_d )
16931 integer , INTENT(IN) :: auxinput5_begin_d
16932 INTEGER id_id
16933 CHARACTER*80 emess
16934 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16935 WRITE(emess,*)'nl_set_auxinput5_begin_d: Out of range domain number: ',id_id
16936 CALL wrf_error_fatal(emess)
16937 ENDIF
16938 model_config_rec%auxinput5_begin_d(id_id) = auxinput5_begin_d
16939 RETURN
16940 END SUBROUTINE nl_set_auxinput5_begin_d
16941 SUBROUTINE nl_set_auxinput5_begin_h ( id_id , auxinput5_begin_h )
16942 integer , INTENT(IN) :: auxinput5_begin_h
16943 INTEGER id_id
16944 CHARACTER*80 emess
16945 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16946 WRITE(emess,*)'nl_set_auxinput5_begin_h: Out of range domain number: ',id_id
16947 CALL wrf_error_fatal(emess)
16948 ENDIF
16949 model_config_rec%auxinput5_begin_h(id_id) = auxinput5_begin_h
16950 RETURN
16951 END SUBROUTINE nl_set_auxinput5_begin_h
16952 SUBROUTINE nl_set_auxinput5_begin_m ( id_id , auxinput5_begin_m )
16953 integer , INTENT(IN) :: auxinput5_begin_m
16954 INTEGER id_id
16955 CHARACTER*80 emess
16956 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16957 WRITE(emess,*)'nl_set_auxinput5_begin_m: Out of range domain number: ',id_id
16958 CALL wrf_error_fatal(emess)
16959 ENDIF
16960 model_config_rec%auxinput5_begin_m(id_id) = auxinput5_begin_m
16961 RETURN
16962 END SUBROUTINE nl_set_auxinput5_begin_m
16963 SUBROUTINE nl_set_auxinput5_begin_s ( id_id , auxinput5_begin_s )
16964 integer , INTENT(IN) :: auxinput5_begin_s
16965 INTEGER id_id
16966 CHARACTER*80 emess
16967 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16968 WRITE(emess,*)'nl_set_auxinput5_begin_s: Out of range domain number: ',id_id
16969 CALL wrf_error_fatal(emess)
16970 ENDIF
16971 model_config_rec%auxinput5_begin_s(id_id) = auxinput5_begin_s
16972 RETURN
16973 END SUBROUTINE nl_set_auxinput5_begin_s
16974 SUBROUTINE nl_set_auxinput6_begin_y ( id_id , auxinput6_begin_y )
16975 integer , INTENT(IN) :: auxinput6_begin_y
16976 INTEGER id_id
16977 CHARACTER*80 emess
16978 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16979 WRITE(emess,*)'nl_set_auxinput6_begin_y: Out of range domain number: ',id_id
16980 CALL wrf_error_fatal(emess)
16981 ENDIF
16982 model_config_rec%auxinput6_begin_y(id_id) = auxinput6_begin_y
16983 RETURN
16984 END SUBROUTINE nl_set_auxinput6_begin_y
16985 SUBROUTINE nl_set_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
16986 integer , INTENT(IN) :: auxinput6_begin_mo
16987 INTEGER id_id
16988 CHARACTER*80 emess
16989 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16990 WRITE(emess,*)'nl_set_auxinput6_begin_mo: Out of range domain number: ',id_id
16991 CALL wrf_error_fatal(emess)
16992 ENDIF
16993 model_config_rec%auxinput6_begin_mo(id_id) = auxinput6_begin_mo
16994 RETURN
16995 END SUBROUTINE nl_set_auxinput6_begin_mo
16996 SUBROUTINE nl_set_auxinput6_begin_d ( id_id , auxinput6_begin_d )
16997 integer , INTENT(IN) :: auxinput6_begin_d
16998 INTEGER id_id
16999 CHARACTER*80 emess
17000 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17001 WRITE(emess,*)'nl_set_auxinput6_begin_d: Out of range domain number: ',id_id
17002 CALL wrf_error_fatal(emess)
17003 ENDIF
17004 model_config_rec%auxinput6_begin_d(id_id) = auxinput6_begin_d
17005 RETURN
17006 END SUBROUTINE nl_set_auxinput6_begin_d
17007 SUBROUTINE nl_set_auxinput6_begin_h ( id_id , auxinput6_begin_h )
17008 integer , INTENT(IN) :: auxinput6_begin_h
17009 INTEGER id_id
17010 CHARACTER*80 emess
17011 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17012 WRITE(emess,*)'nl_set_auxinput6_begin_h: Out of range domain number: ',id_id
17013 CALL wrf_error_fatal(emess)
17014 ENDIF
17015 model_config_rec%auxinput6_begin_h(id_id) = auxinput6_begin_h
17016 RETURN
17017 END SUBROUTINE nl_set_auxinput6_begin_h
17018 SUBROUTINE nl_set_auxinput6_begin_m ( id_id , auxinput6_begin_m )
17019 integer , INTENT(IN) :: auxinput6_begin_m
17020 INTEGER id_id
17021 CHARACTER*80 emess
17022 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17023 WRITE(emess,*)'nl_set_auxinput6_begin_m: Out of range domain number: ',id_id
17024 CALL wrf_error_fatal(emess)
17025 ENDIF
17026 model_config_rec%auxinput6_begin_m(id_id) = auxinput6_begin_m
17027 RETURN
17028 END SUBROUTINE nl_set_auxinput6_begin_m
17029 SUBROUTINE nl_set_auxinput6_begin_s ( id_id , auxinput6_begin_s )
17030 integer , INTENT(IN) :: auxinput6_begin_s
17031 INTEGER id_id
17032 CHARACTER*80 emess
17033 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17034 WRITE(emess,*)'nl_set_auxinput6_begin_s: Out of range domain number: ',id_id
17035 CALL wrf_error_fatal(emess)
17036 ENDIF
17037 model_config_rec%auxinput6_begin_s(id_id) = auxinput6_begin_s
17038 RETURN
17039 END SUBROUTINE nl_set_auxinput6_begin_s
17040 SUBROUTINE nl_set_auxinput7_begin_y ( id_id , auxinput7_begin_y )
17041 integer , INTENT(IN) :: auxinput7_begin_y
17042 INTEGER id_id
17043 CHARACTER*80 emess
17044 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17045 WRITE(emess,*)'nl_set_auxinput7_begin_y: Out of range domain number: ',id_id
17046 CALL wrf_error_fatal(emess)
17047 ENDIF
17048 model_config_rec%auxinput7_begin_y(id_id) = auxinput7_begin_y
17049 RETURN
17050 END SUBROUTINE nl_set_auxinput7_begin_y
17051 SUBROUTINE nl_set_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
17052 integer , INTENT(IN) :: auxinput7_begin_mo
17053 INTEGER id_id
17054 CHARACTER*80 emess
17055 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17056 WRITE(emess,*)'nl_set_auxinput7_begin_mo: Out of range domain number: ',id_id
17057 CALL wrf_error_fatal(emess)
17058 ENDIF
17059 model_config_rec%auxinput7_begin_mo(id_id) = auxinput7_begin_mo
17060 RETURN
17061 END SUBROUTINE nl_set_auxinput7_begin_mo
17062 SUBROUTINE nl_set_auxinput7_begin_d ( id_id , auxinput7_begin_d )
17063 integer , INTENT(IN) :: auxinput7_begin_d
17064 INTEGER id_id
17065 CHARACTER*80 emess
17066 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17067 WRITE(emess,*)'nl_set_auxinput7_begin_d: Out of range domain number: ',id_id
17068 CALL wrf_error_fatal(emess)
17069 ENDIF
17070 model_config_rec%auxinput7_begin_d(id_id) = auxinput7_begin_d
17071 RETURN
17072 END SUBROUTINE nl_set_auxinput7_begin_d
17073 SUBROUTINE nl_set_auxinput7_begin_h ( id_id , auxinput7_begin_h )
17074 integer , INTENT(IN) :: auxinput7_begin_h
17075 INTEGER id_id
17076 CHARACTER*80 emess
17077 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17078 WRITE(emess,*)'nl_set_auxinput7_begin_h: Out of range domain number: ',id_id
17079 CALL wrf_error_fatal(emess)
17080 ENDIF
17081 model_config_rec%auxinput7_begin_h(id_id) = auxinput7_begin_h
17082 RETURN
17083 END SUBROUTINE nl_set_auxinput7_begin_h
17084 SUBROUTINE nl_set_auxinput7_begin_m ( id_id , auxinput7_begin_m )
17085 integer , INTENT(IN) :: auxinput7_begin_m
17086 INTEGER id_id
17087 CHARACTER*80 emess
17088 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17089 WRITE(emess,*)'nl_set_auxinput7_begin_m: Out of range domain number: ',id_id
17090 CALL wrf_error_fatal(emess)
17091 ENDIF
17092 model_config_rec%auxinput7_begin_m(id_id) = auxinput7_begin_m
17093 RETURN
17094 END SUBROUTINE nl_set_auxinput7_begin_m
17095 SUBROUTINE nl_set_auxinput7_begin_s ( id_id , auxinput7_begin_s )
17096 integer , INTENT(IN) :: auxinput7_begin_s
17097 INTEGER id_id
17098 CHARACTER*80 emess
17099 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17100 WRITE(emess,*)'nl_set_auxinput7_begin_s: Out of range domain number: ',id_id
17101 CALL wrf_error_fatal(emess)
17102 ENDIF
17103 model_config_rec%auxinput7_begin_s(id_id) = auxinput7_begin_s
17104 RETURN
17105 END SUBROUTINE nl_set_auxinput7_begin_s
17106 SUBROUTINE nl_set_auxinput8_begin_y ( id_id , auxinput8_begin_y )
17107 integer , INTENT(IN) :: auxinput8_begin_y
17108 INTEGER id_id
17109 CHARACTER*80 emess
17110 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17111 WRITE(emess,*)'nl_set_auxinput8_begin_y: Out of range domain number: ',id_id
17112 CALL wrf_error_fatal(emess)
17113 ENDIF
17114 model_config_rec%auxinput8_begin_y(id_id) = auxinput8_begin_y
17115 RETURN
17116 END SUBROUTINE nl_set_auxinput8_begin_y
17117 SUBROUTINE nl_set_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
17118 integer , INTENT(IN) :: auxinput8_begin_mo
17119 INTEGER id_id
17120 CHARACTER*80 emess
17121 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17122 WRITE(emess,*)'nl_set_auxinput8_begin_mo: Out of range domain number: ',id_id
17123 CALL wrf_error_fatal(emess)
17124 ENDIF
17125 model_config_rec%auxinput8_begin_mo(id_id) = auxinput8_begin_mo
17126 RETURN
17127 END SUBROUTINE nl_set_auxinput8_begin_mo
17128 SUBROUTINE nl_set_auxinput8_begin_d ( id_id , auxinput8_begin_d )
17129 integer , INTENT(IN) :: auxinput8_begin_d
17130 INTEGER id_id
17131 CHARACTER*80 emess
17132 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17133 WRITE(emess,*)'nl_set_auxinput8_begin_d: Out of range domain number: ',id_id
17134 CALL wrf_error_fatal(emess)
17135 ENDIF
17136 model_config_rec%auxinput8_begin_d(id_id) = auxinput8_begin_d
17137 RETURN
17138 END SUBROUTINE nl_set_auxinput8_begin_d
17139 SUBROUTINE nl_set_auxinput8_begin_h ( id_id , auxinput8_begin_h )
17140 integer , INTENT(IN) :: auxinput8_begin_h
17141 INTEGER id_id
17142 CHARACTER*80 emess
17143 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17144 WRITE(emess,*)'nl_set_auxinput8_begin_h: Out of range domain number: ',id_id
17145 CALL wrf_error_fatal(emess)
17146 ENDIF
17147 model_config_rec%auxinput8_begin_h(id_id) = auxinput8_begin_h
17148 RETURN
17149 END SUBROUTINE nl_set_auxinput8_begin_h
17150 SUBROUTINE nl_set_auxinput8_begin_m ( id_id , auxinput8_begin_m )
17151 integer , INTENT(IN) :: auxinput8_begin_m
17152 INTEGER id_id
17153 CHARACTER*80 emess
17154 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17155 WRITE(emess,*)'nl_set_auxinput8_begin_m: Out of range domain number: ',id_id
17156 CALL wrf_error_fatal(emess)
17157 ENDIF
17158 model_config_rec%auxinput8_begin_m(id_id) = auxinput8_begin_m
17159 RETURN
17160 END SUBROUTINE nl_set_auxinput8_begin_m
17161 SUBROUTINE nl_set_auxinput8_begin_s ( id_id , auxinput8_begin_s )
17162 integer , INTENT(IN) :: auxinput8_begin_s
17163 INTEGER id_id
17164 CHARACTER*80 emess
17165 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17166 WRITE(emess,*)'nl_set_auxinput8_begin_s: Out of range domain number: ',id_id
17167 CALL wrf_error_fatal(emess)
17168 ENDIF
17169 model_config_rec%auxinput8_begin_s(id_id) = auxinput8_begin_s
17170 RETURN
17171 END SUBROUTINE nl_set_auxinput8_begin_s
17172 SUBROUTINE nl_set_auxinput9_begin_y ( id_id , auxinput9_begin_y )
17173 integer , INTENT(IN) :: auxinput9_begin_y
17174 INTEGER id_id
17175 CHARACTER*80 emess
17176 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17177 WRITE(emess,*)'nl_set_auxinput9_begin_y: Out of range domain number: ',id_id
17178 CALL wrf_error_fatal(emess)
17179 ENDIF
17180 model_config_rec%auxinput9_begin_y(id_id) = auxinput9_begin_y
17181 RETURN
17182 END SUBROUTINE nl_set_auxinput9_begin_y
17183 SUBROUTINE nl_set_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
17184 integer , INTENT(IN) :: auxinput9_begin_mo
17185 INTEGER id_id
17186 CHARACTER*80 emess
17187 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17188 WRITE(emess,*)'nl_set_auxinput9_begin_mo: Out of range domain number: ',id_id
17189 CALL wrf_error_fatal(emess)
17190 ENDIF
17191 model_config_rec%auxinput9_begin_mo(id_id) = auxinput9_begin_mo
17192 RETURN
17193 END SUBROUTINE nl_set_auxinput9_begin_mo
17194 SUBROUTINE nl_set_auxinput9_begin_d ( id_id , auxinput9_begin_d )
17195 integer , INTENT(IN) :: auxinput9_begin_d
17196 INTEGER id_id
17197 CHARACTER*80 emess
17198 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17199 WRITE(emess,*)'nl_set_auxinput9_begin_d: Out of range domain number: ',id_id
17200 CALL wrf_error_fatal(emess)
17201 ENDIF
17202 model_config_rec%auxinput9_begin_d(id_id) = auxinput9_begin_d
17203 RETURN
17204 END SUBROUTINE nl_set_auxinput9_begin_d
17205 SUBROUTINE nl_set_auxinput9_begin_h ( id_id , auxinput9_begin_h )
17206 integer , INTENT(IN) :: auxinput9_begin_h
17207 INTEGER id_id
17208 CHARACTER*80 emess
17209 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17210 WRITE(emess,*)'nl_set_auxinput9_begin_h: Out of range domain number: ',id_id
17211 CALL wrf_error_fatal(emess)
17212 ENDIF
17213 model_config_rec%auxinput9_begin_h(id_id) = auxinput9_begin_h
17214 RETURN
17215 END SUBROUTINE nl_set_auxinput9_begin_h
17216 SUBROUTINE nl_set_auxinput9_begin_m ( id_id , auxinput9_begin_m )
17217 integer , INTENT(IN) :: auxinput9_begin_m
17218 INTEGER id_id
17219 CHARACTER*80 emess
17220 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17221 WRITE(emess,*)'nl_set_auxinput9_begin_m: Out of range domain number: ',id_id
17222 CALL wrf_error_fatal(emess)
17223 ENDIF
17224 model_config_rec%auxinput9_begin_m(id_id) = auxinput9_begin_m
17225 RETURN
17226 END SUBROUTINE nl_set_auxinput9_begin_m
17227 SUBROUTINE nl_set_auxinput9_begin_s ( id_id , auxinput9_begin_s )
17228 integer , INTENT(IN) :: auxinput9_begin_s
17229 INTEGER id_id
17230 CHARACTER*80 emess
17231 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17232 WRITE(emess,*)'nl_set_auxinput9_begin_s: Out of range domain number: ',id_id
17233 CALL wrf_error_fatal(emess)
17234 ENDIF
17235 model_config_rec%auxinput9_begin_s(id_id) = auxinput9_begin_s
17236 RETURN
17237 END SUBROUTINE nl_set_auxinput9_begin_s
17238 SUBROUTINE nl_set_gfdda_begin_y ( id_id , gfdda_begin_y )
17239 integer , INTENT(IN) :: gfdda_begin_y
17240 INTEGER id_id
17241 CHARACTER*80 emess
17242 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17243 WRITE(emess,*)'nl_set_gfdda_begin_y: Out of range domain number: ',id_id
17244 CALL wrf_error_fatal(emess)
17245 ENDIF
17246 model_config_rec%gfdda_begin_y(id_id) = gfdda_begin_y
17247 RETURN
17248 END SUBROUTINE nl_set_gfdda_begin_y
17249 SUBROUTINE nl_set_gfdda_begin_mo ( id_id , gfdda_begin_mo )
17250 integer , INTENT(IN) :: gfdda_begin_mo
17251 INTEGER id_id
17252 CHARACTER*80 emess
17253 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17254 WRITE(emess,*)'nl_set_gfdda_begin_mo: Out of range domain number: ',id_id
17255 CALL wrf_error_fatal(emess)
17256 ENDIF
17257 model_config_rec%gfdda_begin_mo(id_id) = gfdda_begin_mo
17258 RETURN
17259 END SUBROUTINE nl_set_gfdda_begin_mo
17260 SUBROUTINE nl_set_gfdda_begin_d ( id_id , gfdda_begin_d )
17261 integer , INTENT(IN) :: gfdda_begin_d
17262 INTEGER id_id
17263 CHARACTER*80 emess
17264 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17265 WRITE(emess,*)'nl_set_gfdda_begin_d: Out of range domain number: ',id_id
17266 CALL wrf_error_fatal(emess)
17267 ENDIF
17268 model_config_rec%gfdda_begin_d(id_id) = gfdda_begin_d
17269 RETURN
17270 END SUBROUTINE nl_set_gfdda_begin_d
17271 SUBROUTINE nl_set_gfdda_begin_h ( id_id , gfdda_begin_h )
17272 integer , INTENT(IN) :: gfdda_begin_h
17273 INTEGER id_id
17274 CHARACTER*80 emess
17275 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17276 WRITE(emess,*)'nl_set_gfdda_begin_h: Out of range domain number: ',id_id
17277 CALL wrf_error_fatal(emess)
17278 ENDIF
17279 model_config_rec%gfdda_begin_h(id_id) = gfdda_begin_h
17280 RETURN
17281 END SUBROUTINE nl_set_gfdda_begin_h
17282 SUBROUTINE nl_set_gfdda_begin_m ( id_id , gfdda_begin_m )
17283 integer , INTENT(IN) :: gfdda_begin_m
17284 INTEGER id_id
17285 CHARACTER*80 emess
17286 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17287 WRITE(emess,*)'nl_set_gfdda_begin_m: Out of range domain number: ',id_id
17288 CALL wrf_error_fatal(emess)
17289 ENDIF
17290 model_config_rec%gfdda_begin_m(id_id) = gfdda_begin_m
17291 RETURN
17292 END SUBROUTINE nl_set_gfdda_begin_m
17293 SUBROUTINE nl_set_gfdda_begin_s ( id_id , gfdda_begin_s )
17294 integer , INTENT(IN) :: gfdda_begin_s
17295 INTEGER id_id
17296 CHARACTER*80 emess
17297 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17298 WRITE(emess,*)'nl_set_gfdda_begin_s: Out of range domain number: ',id_id
17299 CALL wrf_error_fatal(emess)
17300 ENDIF
17301 model_config_rec%gfdda_begin_s(id_id) = gfdda_begin_s
17302 RETURN
17303 END SUBROUTINE nl_set_gfdda_begin_s
17304 SUBROUTINE nl_set_auxinput11_begin_y ( id_id , auxinput11_begin_y )
17305 integer , INTENT(IN) :: auxinput11_begin_y
17306 INTEGER id_id
17307 CHARACTER*80 emess
17308 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17309 WRITE(emess,*)'nl_set_auxinput11_begin_y: Out of range domain number: ',id_id
17310 CALL wrf_error_fatal(emess)
17311 ENDIF
17312 model_config_rec%auxinput11_begin_y(id_id) = auxinput11_begin_y
17313 RETURN
17314 END SUBROUTINE nl_set_auxinput11_begin_y
17315 SUBROUTINE nl_set_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
17316 integer , INTENT(IN) :: auxinput11_begin_mo
17317 INTEGER id_id
17318 CHARACTER*80 emess
17319 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17320 WRITE(emess,*)'nl_set_auxinput11_begin_mo: Out of range domain number: ',id_id
17321 CALL wrf_error_fatal(emess)
17322 ENDIF
17323 model_config_rec%auxinput11_begin_mo(id_id) = auxinput11_begin_mo
17324 RETURN
17325 END SUBROUTINE nl_set_auxinput11_begin_mo
17326 SUBROUTINE nl_set_auxinput11_begin_d ( id_id , auxinput11_begin_d )
17327 integer , INTENT(IN) :: auxinput11_begin_d
17328 INTEGER id_id
17329 CHARACTER*80 emess
17330 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17331 WRITE(emess,*)'nl_set_auxinput11_begin_d: Out of range domain number: ',id_id
17332 CALL wrf_error_fatal(emess)
17333 ENDIF
17334 model_config_rec%auxinput11_begin_d(id_id) = auxinput11_begin_d
17335 RETURN
17336 END SUBROUTINE nl_set_auxinput11_begin_d
17337 SUBROUTINE nl_set_auxinput11_begin_h ( id_id , auxinput11_begin_h )
17338 integer , INTENT(IN) :: auxinput11_begin_h
17339 INTEGER id_id
17340 CHARACTER*80 emess
17341 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17342 WRITE(emess,*)'nl_set_auxinput11_begin_h: Out of range domain number: ',id_id
17343 CALL wrf_error_fatal(emess)
17344 ENDIF
17345 model_config_rec%auxinput11_begin_h(id_id) = auxinput11_begin_h
17346 RETURN
17347 END SUBROUTINE nl_set_auxinput11_begin_h
17348 SUBROUTINE nl_set_auxinput11_begin_m ( id_id , auxinput11_begin_m )
17349 integer , INTENT(IN) :: auxinput11_begin_m
17350 INTEGER id_id
17351 CHARACTER*80 emess
17352 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17353 WRITE(emess,*)'nl_set_auxinput11_begin_m: Out of range domain number: ',id_id
17354 CALL wrf_error_fatal(emess)
17355 ENDIF
17356 model_config_rec%auxinput11_begin_m(id_id) = auxinput11_begin_m
17357 RETURN
17358 END SUBROUTINE nl_set_auxinput11_begin_m
17359 SUBROUTINE nl_set_auxinput11_begin_s ( id_id , auxinput11_begin_s )
17360 integer , INTENT(IN) :: auxinput11_begin_s
17361 INTEGER id_id
17362 CHARACTER*80 emess
17363 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17364 WRITE(emess,*)'nl_set_auxinput11_begin_s: Out of range domain number: ',id_id
17365 CALL wrf_error_fatal(emess)
17366 ENDIF
17367 model_config_rec%auxinput11_begin_s(id_id) = auxinput11_begin_s
17368 RETURN
17369 END SUBROUTINE nl_set_auxinput11_begin_s
17370 SUBROUTINE nl_set_restart_begin_y ( id_id , restart_begin_y )
17371 integer , INTENT(IN) :: restart_begin_y
17372 INTEGER id_id
17373 CHARACTER*80 emess
17374 IF ( id_id .NE. 1 ) THEN
17375 call wrf_debug(1,&
17376 'WARNING in nl_set_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
17377 ENDIF
17378 model_config_rec%restart_begin_y = restart_begin_y
17379 RETURN
17380 END SUBROUTINE nl_set_restart_begin_y
17381 SUBROUTINE nl_set_restart_begin_mo ( id_id , restart_begin_mo )
17382 integer , INTENT(IN) :: restart_begin_mo
17383 INTEGER id_id
17384 CHARACTER*80 emess
17385 IF ( id_id .NE. 1 ) THEN
17386 call wrf_debug(1,&
17387 'WARNING in nl_set_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
17388 ENDIF
17389 model_config_rec%restart_begin_mo = restart_begin_mo
17390 RETURN
17391 END SUBROUTINE nl_set_restart_begin_mo
17392 SUBROUTINE nl_set_restart_begin_d ( id_id , restart_begin_d )
17393 integer , INTENT(IN) :: restart_begin_d
17394 INTEGER id_id
17395 CHARACTER*80 emess
17396 IF ( id_id .NE. 1 ) THEN
17397 call wrf_debug(1,&
17398 'WARNING in nl_set_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
17399 ENDIF
17400 model_config_rec%restart_begin_d = restart_begin_d
17401 RETURN
17402 END SUBROUTINE nl_set_restart_begin_d
17403 SUBROUTINE nl_set_restart_begin_h ( id_id , restart_begin_h )
17404 integer , INTENT(IN) :: restart_begin_h
17405 INTEGER id_id
17406 CHARACTER*80 emess
17407 IF ( id_id .NE. 1 ) THEN
17408 call wrf_debug(1,&
17409 'WARNING in nl_set_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
17410 ENDIF
17411 model_config_rec%restart_begin_h = restart_begin_h
17412 RETURN
17413 END SUBROUTINE nl_set_restart_begin_h
17414 SUBROUTINE nl_set_restart_begin_m ( id_id , restart_begin_m )
17415 integer , INTENT(IN) :: restart_begin_m
17416 INTEGER id_id
17417 CHARACTER*80 emess
17418 IF ( id_id .NE. 1 ) THEN
17419 call wrf_debug(1,&
17420 'WARNING in nl_set_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
17421 ENDIF
17422 model_config_rec%restart_begin_m = restart_begin_m
17423 RETURN
17424 END SUBROUTINE nl_set_restart_begin_m
17425 SUBROUTINE nl_set_restart_begin_s ( id_id , restart_begin_s )
17426 integer , INTENT(IN) :: restart_begin_s
17427 INTEGER id_id
17428 CHARACTER*80 emess
17429 IF ( id_id .NE. 1 ) THEN
17430 call wrf_debug(1,&
17431 'WARNING in nl_set_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
17432 ENDIF
17433 model_config_rec%restart_begin_s = restart_begin_s
17434 RETURN
17435 END SUBROUTINE nl_set_restart_begin_s
17436 SUBROUTINE nl_set_history_end_y ( id_id , history_end_y )
17437 integer , INTENT(IN) :: history_end_y
17438 INTEGER id_id
17439 CHARACTER*80 emess
17440 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17441 WRITE(emess,*)'nl_set_history_end_y: Out of range domain number: ',id_id
17442 CALL wrf_error_fatal(emess)
17443 ENDIF
17444 model_config_rec%history_end_y(id_id) = history_end_y
17445 RETURN
17446 END SUBROUTINE nl_set_history_end_y
17447 SUBROUTINE nl_set_history_end_mo ( id_id , history_end_mo )
17448 integer , INTENT(IN) :: history_end_mo
17449 INTEGER id_id
17450 CHARACTER*80 emess
17451 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17452 WRITE(emess,*)'nl_set_history_end_mo: Out of range domain number: ',id_id
17453 CALL wrf_error_fatal(emess)
17454 ENDIF
17455 model_config_rec%history_end_mo(id_id) = history_end_mo
17456 RETURN
17457 END SUBROUTINE nl_set_history_end_mo
17458 SUBROUTINE nl_set_history_end_d ( id_id , history_end_d )
17459 integer , INTENT(IN) :: history_end_d
17460 INTEGER id_id
17461 CHARACTER*80 emess
17462 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17463 WRITE(emess,*)'nl_set_history_end_d: Out of range domain number: ',id_id
17464 CALL wrf_error_fatal(emess)
17465 ENDIF
17466 model_config_rec%history_end_d(id_id) = history_end_d
17467 RETURN
17468 END SUBROUTINE nl_set_history_end_d
17469 SUBROUTINE nl_set_history_end_h ( id_id , history_end_h )
17470 integer , INTENT(IN) :: history_end_h
17471 INTEGER id_id
17472 CHARACTER*80 emess
17473 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17474 WRITE(emess,*)'nl_set_history_end_h: Out of range domain number: ',id_id
17475 CALL wrf_error_fatal(emess)
17476 ENDIF
17477 model_config_rec%history_end_h(id_id) = history_end_h
17478 RETURN
17479 END SUBROUTINE nl_set_history_end_h
17480 SUBROUTINE nl_set_history_end_m ( id_id , history_end_m )
17481 integer , INTENT(IN) :: history_end_m
17482 INTEGER id_id
17483 CHARACTER*80 emess
17484 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17485 WRITE(emess,*)'nl_set_history_end_m: Out of range domain number: ',id_id
17486 CALL wrf_error_fatal(emess)
17487 ENDIF
17488 model_config_rec%history_end_m(id_id) = history_end_m
17489 RETURN
17490 END SUBROUTINE nl_set_history_end_m
17491 SUBROUTINE nl_set_history_end_s ( id_id , history_end_s )
17492 integer , INTENT(IN) :: history_end_s
17493 INTEGER id_id
17494 CHARACTER*80 emess
17495 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17496 WRITE(emess,*)'nl_set_history_end_s: Out of range domain number: ',id_id
17497 CALL wrf_error_fatal(emess)
17498 ENDIF
17499 model_config_rec%history_end_s(id_id) = history_end_s
17500 RETURN
17501 END SUBROUTINE nl_set_history_end_s
17502 SUBROUTINE nl_set_inputout_end_y ( id_id , inputout_end_y )
17503 integer , INTENT(IN) :: inputout_end_y
17504 INTEGER id_id
17505 CHARACTER*80 emess
17506 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17507 WRITE(emess,*)'nl_set_inputout_end_y: Out of range domain number: ',id_id
17508 CALL wrf_error_fatal(emess)
17509 ENDIF
17510 model_config_rec%inputout_end_y(id_id) = inputout_end_y
17511 RETURN
17512 END SUBROUTINE nl_set_inputout_end_y
17513 SUBROUTINE nl_set_inputout_end_mo ( id_id , inputout_end_mo )
17514 integer , INTENT(IN) :: inputout_end_mo
17515 INTEGER id_id
17516 CHARACTER*80 emess
17517 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17518 WRITE(emess,*)'nl_set_inputout_end_mo: Out of range domain number: ',id_id
17519 CALL wrf_error_fatal(emess)
17520 ENDIF
17521 model_config_rec%inputout_end_mo(id_id) = inputout_end_mo
17522 RETURN
17523 END SUBROUTINE nl_set_inputout_end_mo
17524 SUBROUTINE nl_set_inputout_end_d ( id_id , inputout_end_d )
17525 integer , INTENT(IN) :: inputout_end_d
17526 INTEGER id_id
17527 CHARACTER*80 emess
17528 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17529 WRITE(emess,*)'nl_set_inputout_end_d: Out of range domain number: ',id_id
17530 CALL wrf_error_fatal(emess)
17531 ENDIF
17532 model_config_rec%inputout_end_d(id_id) = inputout_end_d
17533 RETURN
17534 END SUBROUTINE nl_set_inputout_end_d
17535 SUBROUTINE nl_set_inputout_end_h ( id_id , inputout_end_h )
17536 integer , INTENT(IN) :: inputout_end_h
17537 INTEGER id_id
17538 CHARACTER*80 emess
17539 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17540 WRITE(emess,*)'nl_set_inputout_end_h: Out of range domain number: ',id_id
17541 CALL wrf_error_fatal(emess)
17542 ENDIF
17543 model_config_rec%inputout_end_h(id_id) = inputout_end_h
17544 RETURN
17545 END SUBROUTINE nl_set_inputout_end_h
17546 SUBROUTINE nl_set_inputout_end_m ( id_id , inputout_end_m )
17547 integer , INTENT(IN) :: inputout_end_m
17548 INTEGER id_id
17549 CHARACTER*80 emess
17550 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17551 WRITE(emess,*)'nl_set_inputout_end_m: Out of range domain number: ',id_id
17552 CALL wrf_error_fatal(emess)
17553 ENDIF
17554 model_config_rec%inputout_end_m(id_id) = inputout_end_m
17555 RETURN
17556 END SUBROUTINE nl_set_inputout_end_m
17557 SUBROUTINE nl_set_inputout_end_s ( id_id , inputout_end_s )
17558 integer , INTENT(IN) :: inputout_end_s
17559 INTEGER id_id
17560 CHARACTER*80 emess
17561 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17562 WRITE(emess,*)'nl_set_inputout_end_s: Out of range domain number: ',id_id
17563 CALL wrf_error_fatal(emess)
17564 ENDIF
17565 model_config_rec%inputout_end_s(id_id) = inputout_end_s
17566 RETURN
17567 END SUBROUTINE nl_set_inputout_end_s
17568 SUBROUTINE nl_set_auxhist1_end_y ( id_id , auxhist1_end_y )
17569 integer , INTENT(IN) :: auxhist1_end_y
17570 INTEGER id_id
17571 CHARACTER*80 emess
17572 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17573 WRITE(emess,*)'nl_set_auxhist1_end_y: Out of range domain number: ',id_id
17574 CALL wrf_error_fatal(emess)
17575 ENDIF
17576 model_config_rec%auxhist1_end_y(id_id) = auxhist1_end_y
17577 RETURN
17578 END SUBROUTINE nl_set_auxhist1_end_y
17579 SUBROUTINE nl_set_auxhist1_end_mo ( id_id , auxhist1_end_mo )
17580 integer , INTENT(IN) :: auxhist1_end_mo
17581 INTEGER id_id
17582 CHARACTER*80 emess
17583 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17584 WRITE(emess,*)'nl_set_auxhist1_end_mo: Out of range domain number: ',id_id
17585 CALL wrf_error_fatal(emess)
17586 ENDIF
17587 model_config_rec%auxhist1_end_mo(id_id) = auxhist1_end_mo
17588 RETURN
17589 END SUBROUTINE nl_set_auxhist1_end_mo
17590 SUBROUTINE nl_set_auxhist1_end_d ( id_id , auxhist1_end_d )
17591 integer , INTENT(IN) :: auxhist1_end_d
17592 INTEGER id_id
17593 CHARACTER*80 emess
17594 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17595 WRITE(emess,*)'nl_set_auxhist1_end_d: Out of range domain number: ',id_id
17596 CALL wrf_error_fatal(emess)
17597 ENDIF
17598 model_config_rec%auxhist1_end_d(id_id) = auxhist1_end_d
17599 RETURN
17600 END SUBROUTINE nl_set_auxhist1_end_d
17601 SUBROUTINE nl_set_auxhist1_end_h ( id_id , auxhist1_end_h )
17602 integer , INTENT(IN) :: auxhist1_end_h
17603 INTEGER id_id
17604 CHARACTER*80 emess
17605 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17606 WRITE(emess,*)'nl_set_auxhist1_end_h: Out of range domain number: ',id_id
17607 CALL wrf_error_fatal(emess)
17608 ENDIF
17609 model_config_rec%auxhist1_end_h(id_id) = auxhist1_end_h
17610 RETURN
17611 END SUBROUTINE nl_set_auxhist1_end_h
17612 SUBROUTINE nl_set_auxhist1_end_m ( id_id , auxhist1_end_m )
17613 integer , INTENT(IN) :: auxhist1_end_m
17614 INTEGER id_id
17615 CHARACTER*80 emess
17616 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17617 WRITE(emess,*)'nl_set_auxhist1_end_m: Out of range domain number: ',id_id
17618 CALL wrf_error_fatal(emess)
17619 ENDIF
17620 model_config_rec%auxhist1_end_m(id_id) = auxhist1_end_m
17621 RETURN
17622 END SUBROUTINE nl_set_auxhist1_end_m
17623 SUBROUTINE nl_set_auxhist1_end_s ( id_id , auxhist1_end_s )
17624 integer , INTENT(IN) :: auxhist1_end_s
17625 INTEGER id_id
17626 CHARACTER*80 emess
17627 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17628 WRITE(emess,*)'nl_set_auxhist1_end_s: Out of range domain number: ',id_id
17629 CALL wrf_error_fatal(emess)
17630 ENDIF
17631 model_config_rec%auxhist1_end_s(id_id) = auxhist1_end_s
17632 RETURN
17633 END SUBROUTINE nl_set_auxhist1_end_s
17634 SUBROUTINE nl_set_auxhist2_end_y ( id_id , auxhist2_end_y )
17635 integer , INTENT(IN) :: auxhist2_end_y
17636 INTEGER id_id
17637 CHARACTER*80 emess
17638 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17639 WRITE(emess,*)'nl_set_auxhist2_end_y: Out of range domain number: ',id_id
17640 CALL wrf_error_fatal(emess)
17641 ENDIF
17642 model_config_rec%auxhist2_end_y(id_id) = auxhist2_end_y
17643 RETURN
17644 END SUBROUTINE nl_set_auxhist2_end_y
17645 SUBROUTINE nl_set_auxhist2_end_mo ( id_id , auxhist2_end_mo )
17646 integer , INTENT(IN) :: auxhist2_end_mo
17647 INTEGER id_id
17648 CHARACTER*80 emess
17649 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17650 WRITE(emess,*)'nl_set_auxhist2_end_mo: Out of range domain number: ',id_id
17651 CALL wrf_error_fatal(emess)
17652 ENDIF
17653 model_config_rec%auxhist2_end_mo(id_id) = auxhist2_end_mo
17654 RETURN
17655 END SUBROUTINE nl_set_auxhist2_end_mo
17656 SUBROUTINE nl_set_auxhist2_end_d ( id_id , auxhist2_end_d )
17657 integer , INTENT(IN) :: auxhist2_end_d
17658 INTEGER id_id
17659 CHARACTER*80 emess
17660 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17661 WRITE(emess,*)'nl_set_auxhist2_end_d: Out of range domain number: ',id_id
17662 CALL wrf_error_fatal(emess)
17663 ENDIF
17664 model_config_rec%auxhist2_end_d(id_id) = auxhist2_end_d
17665 RETURN
17666 END SUBROUTINE nl_set_auxhist2_end_d
17667 SUBROUTINE nl_set_auxhist2_end_h ( id_id , auxhist2_end_h )
17668 integer , INTENT(IN) :: auxhist2_end_h
17669 INTEGER id_id
17670 CHARACTER*80 emess
17671 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17672 WRITE(emess,*)'nl_set_auxhist2_end_h: Out of range domain number: ',id_id
17673 CALL wrf_error_fatal(emess)
17674 ENDIF
17675 model_config_rec%auxhist2_end_h(id_id) = auxhist2_end_h
17676 RETURN
17677 END SUBROUTINE nl_set_auxhist2_end_h
17678 SUBROUTINE nl_set_auxhist2_end_m ( id_id , auxhist2_end_m )
17679 integer , INTENT(IN) :: auxhist2_end_m
17680 INTEGER id_id
17681 CHARACTER*80 emess
17682 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17683 WRITE(emess,*)'nl_set_auxhist2_end_m: Out of range domain number: ',id_id
17684 CALL wrf_error_fatal(emess)
17685 ENDIF
17686 model_config_rec%auxhist2_end_m(id_id) = auxhist2_end_m
17687 RETURN
17688 END SUBROUTINE nl_set_auxhist2_end_m
17689 SUBROUTINE nl_set_auxhist2_end_s ( id_id , auxhist2_end_s )
17690 integer , INTENT(IN) :: auxhist2_end_s
17691 INTEGER id_id
17692 CHARACTER*80 emess
17693 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17694 WRITE(emess,*)'nl_set_auxhist2_end_s: Out of range domain number: ',id_id
17695 CALL wrf_error_fatal(emess)
17696 ENDIF
17697 model_config_rec%auxhist2_end_s(id_id) = auxhist2_end_s
17698 RETURN
17699 END SUBROUTINE nl_set_auxhist2_end_s
17700 SUBROUTINE nl_set_auxhist3_end_y ( id_id , auxhist3_end_y )
17701 integer , INTENT(IN) :: auxhist3_end_y
17702 INTEGER id_id
17703 CHARACTER*80 emess
17704 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17705 WRITE(emess,*)'nl_set_auxhist3_end_y: Out of range domain number: ',id_id
17706 CALL wrf_error_fatal(emess)
17707 ENDIF
17708 model_config_rec%auxhist3_end_y(id_id) = auxhist3_end_y
17709 RETURN
17710 END SUBROUTINE nl_set_auxhist3_end_y
17711 SUBROUTINE nl_set_auxhist3_end_mo ( id_id , auxhist3_end_mo )
17712 integer , INTENT(IN) :: auxhist3_end_mo
17713 INTEGER id_id
17714 CHARACTER*80 emess
17715 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17716 WRITE(emess,*)'nl_set_auxhist3_end_mo: Out of range domain number: ',id_id
17717 CALL wrf_error_fatal(emess)
17718 ENDIF
17719 model_config_rec%auxhist3_end_mo(id_id) = auxhist3_end_mo
17720 RETURN
17721 END SUBROUTINE nl_set_auxhist3_end_mo
17722 SUBROUTINE nl_set_auxhist3_end_d ( id_id , auxhist3_end_d )
17723 integer , INTENT(IN) :: auxhist3_end_d
17724 INTEGER id_id
17725 CHARACTER*80 emess
17726 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17727 WRITE(emess,*)'nl_set_auxhist3_end_d: Out of range domain number: ',id_id
17728 CALL wrf_error_fatal(emess)
17729 ENDIF
17730 model_config_rec%auxhist3_end_d(id_id) = auxhist3_end_d
17731 RETURN
17732 END SUBROUTINE nl_set_auxhist3_end_d
17733 SUBROUTINE nl_set_auxhist3_end_h ( id_id , auxhist3_end_h )
17734 integer , INTENT(IN) :: auxhist3_end_h
17735 INTEGER id_id
17736 CHARACTER*80 emess
17737 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17738 WRITE(emess,*)'nl_set_auxhist3_end_h: Out of range domain number: ',id_id
17739 CALL wrf_error_fatal(emess)
17740 ENDIF
17741 model_config_rec%auxhist3_end_h(id_id) = auxhist3_end_h
17742 RETURN
17743 END SUBROUTINE nl_set_auxhist3_end_h
17744 SUBROUTINE nl_set_auxhist3_end_m ( id_id , auxhist3_end_m )
17745 integer , INTENT(IN) :: auxhist3_end_m
17746 INTEGER id_id
17747 CHARACTER*80 emess
17748 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17749 WRITE(emess,*)'nl_set_auxhist3_end_m: Out of range domain number: ',id_id
17750 CALL wrf_error_fatal(emess)
17751 ENDIF
17752 model_config_rec%auxhist3_end_m(id_id) = auxhist3_end_m
17753 RETURN
17754 END SUBROUTINE nl_set_auxhist3_end_m
17755 SUBROUTINE nl_set_auxhist3_end_s ( id_id , auxhist3_end_s )
17756 integer , INTENT(IN) :: auxhist3_end_s
17757 INTEGER id_id
17758 CHARACTER*80 emess
17759 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17760 WRITE(emess,*)'nl_set_auxhist3_end_s: Out of range domain number: ',id_id
17761 CALL wrf_error_fatal(emess)
17762 ENDIF
17763 model_config_rec%auxhist3_end_s(id_id) = auxhist3_end_s
17764 RETURN
17765 END SUBROUTINE nl_set_auxhist3_end_s
17766 SUBROUTINE nl_set_auxhist4_end_y ( id_id , auxhist4_end_y )
17767 integer , INTENT(IN) :: auxhist4_end_y
17768 INTEGER id_id
17769 CHARACTER*80 emess
17770 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17771 WRITE(emess,*)'nl_set_auxhist4_end_y: Out of range domain number: ',id_id
17772 CALL wrf_error_fatal(emess)
17773 ENDIF
17774 model_config_rec%auxhist4_end_y(id_id) = auxhist4_end_y
17775 RETURN
17776 END SUBROUTINE nl_set_auxhist4_end_y
17777 SUBROUTINE nl_set_auxhist4_end_mo ( id_id , auxhist4_end_mo )
17778 integer , INTENT(IN) :: auxhist4_end_mo
17779 INTEGER id_id
17780 CHARACTER*80 emess
17781 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17782 WRITE(emess,*)'nl_set_auxhist4_end_mo: Out of range domain number: ',id_id
17783 CALL wrf_error_fatal(emess)
17784 ENDIF
17785 model_config_rec%auxhist4_end_mo(id_id) = auxhist4_end_mo
17786 RETURN
17787 END SUBROUTINE nl_set_auxhist4_end_mo
17788 SUBROUTINE nl_set_auxhist4_end_d ( id_id , auxhist4_end_d )
17789 integer , INTENT(IN) :: auxhist4_end_d
17790 INTEGER id_id
17791 CHARACTER*80 emess
17792 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17793 WRITE(emess,*)'nl_set_auxhist4_end_d: Out of range domain number: ',id_id
17794 CALL wrf_error_fatal(emess)
17795 ENDIF
17796 model_config_rec%auxhist4_end_d(id_id) = auxhist4_end_d
17797 RETURN
17798 END SUBROUTINE nl_set_auxhist4_end_d
17799 SUBROUTINE nl_set_auxhist4_end_h ( id_id , auxhist4_end_h )
17800 integer , INTENT(IN) :: auxhist4_end_h
17801 INTEGER id_id
17802 CHARACTER*80 emess
17803 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17804 WRITE(emess,*)'nl_set_auxhist4_end_h: Out of range domain number: ',id_id
17805 CALL wrf_error_fatal(emess)
17806 ENDIF
17807 model_config_rec%auxhist4_end_h(id_id) = auxhist4_end_h
17808 RETURN
17809 END SUBROUTINE nl_set_auxhist4_end_h
17810 SUBROUTINE nl_set_auxhist4_end_m ( id_id , auxhist4_end_m )
17811 integer , INTENT(IN) :: auxhist4_end_m
17812 INTEGER id_id
17813 CHARACTER*80 emess
17814 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17815 WRITE(emess,*)'nl_set_auxhist4_end_m: Out of range domain number: ',id_id
17816 CALL wrf_error_fatal(emess)
17817 ENDIF
17818 model_config_rec%auxhist4_end_m(id_id) = auxhist4_end_m
17819 RETURN
17820 END SUBROUTINE nl_set_auxhist4_end_m
17821 SUBROUTINE nl_set_auxhist4_end_s ( id_id , auxhist4_end_s )
17822 integer , INTENT(IN) :: auxhist4_end_s
17823 INTEGER id_id
17824 CHARACTER*80 emess
17825 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17826 WRITE(emess,*)'nl_set_auxhist4_end_s: Out of range domain number: ',id_id
17827 CALL wrf_error_fatal(emess)
17828 ENDIF
17829 model_config_rec%auxhist4_end_s(id_id) = auxhist4_end_s
17830 RETURN
17831 END SUBROUTINE nl_set_auxhist4_end_s
17832 SUBROUTINE nl_set_auxhist5_end_y ( id_id , auxhist5_end_y )
17833 integer , INTENT(IN) :: auxhist5_end_y
17834 INTEGER id_id
17835 CHARACTER*80 emess
17836 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17837 WRITE(emess,*)'nl_set_auxhist5_end_y: Out of range domain number: ',id_id
17838 CALL wrf_error_fatal(emess)
17839 ENDIF
17840 model_config_rec%auxhist5_end_y(id_id) = auxhist5_end_y
17841 RETURN
17842 END SUBROUTINE nl_set_auxhist5_end_y
17843 SUBROUTINE nl_set_auxhist5_end_mo ( id_id , auxhist5_end_mo )
17844 integer , INTENT(IN) :: auxhist5_end_mo
17845 INTEGER id_id
17846 CHARACTER*80 emess
17847 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17848 WRITE(emess,*)'nl_set_auxhist5_end_mo: Out of range domain number: ',id_id
17849 CALL wrf_error_fatal(emess)
17850 ENDIF
17851 model_config_rec%auxhist5_end_mo(id_id) = auxhist5_end_mo
17852 RETURN
17853 END SUBROUTINE nl_set_auxhist5_end_mo
17854 SUBROUTINE nl_set_auxhist5_end_d ( id_id , auxhist5_end_d )
17855 integer , INTENT(IN) :: auxhist5_end_d
17856 INTEGER id_id
17857 CHARACTER*80 emess
17858 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17859 WRITE(emess,*)'nl_set_auxhist5_end_d: Out of range domain number: ',id_id
17860 CALL wrf_error_fatal(emess)
17861 ENDIF
17862 model_config_rec%auxhist5_end_d(id_id) = auxhist5_end_d
17863 RETURN
17864 END SUBROUTINE nl_set_auxhist5_end_d
17865 SUBROUTINE nl_set_auxhist5_end_h ( id_id , auxhist5_end_h )
17866 integer , INTENT(IN) :: auxhist5_end_h
17867 INTEGER id_id
17868 CHARACTER*80 emess
17869 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17870 WRITE(emess,*)'nl_set_auxhist5_end_h: Out of range domain number: ',id_id
17871 CALL wrf_error_fatal(emess)
17872 ENDIF
17873 model_config_rec%auxhist5_end_h(id_id) = auxhist5_end_h
17874 RETURN
17875 END SUBROUTINE nl_set_auxhist5_end_h
17876 SUBROUTINE nl_set_auxhist5_end_m ( id_id , auxhist5_end_m )
17877 integer , INTENT(IN) :: auxhist5_end_m
17878 INTEGER id_id
17879 CHARACTER*80 emess
17880 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17881 WRITE(emess,*)'nl_set_auxhist5_end_m: Out of range domain number: ',id_id
17882 CALL wrf_error_fatal(emess)
17883 ENDIF
17884 model_config_rec%auxhist5_end_m(id_id) = auxhist5_end_m
17885 RETURN
17886 END SUBROUTINE nl_set_auxhist5_end_m
17887 SUBROUTINE nl_set_auxhist5_end_s ( id_id , auxhist5_end_s )
17888 integer , INTENT(IN) :: auxhist5_end_s
17889 INTEGER id_id
17890 CHARACTER*80 emess
17891 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17892 WRITE(emess,*)'nl_set_auxhist5_end_s: Out of range domain number: ',id_id
17893 CALL wrf_error_fatal(emess)
17894 ENDIF
17895 model_config_rec%auxhist5_end_s(id_id) = auxhist5_end_s
17896 RETURN
17897 END SUBROUTINE nl_set_auxhist5_end_s
17898 SUBROUTINE nl_set_auxhist6_end_y ( id_id , auxhist6_end_y )
17899 integer , INTENT(IN) :: auxhist6_end_y
17900 INTEGER id_id
17901 CHARACTER*80 emess
17902 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17903 WRITE(emess,*)'nl_set_auxhist6_end_y: Out of range domain number: ',id_id
17904 CALL wrf_error_fatal(emess)
17905 ENDIF
17906 model_config_rec%auxhist6_end_y(id_id) = auxhist6_end_y
17907 RETURN
17908 END SUBROUTINE nl_set_auxhist6_end_y
17909 SUBROUTINE nl_set_auxhist6_end_mo ( id_id , auxhist6_end_mo )
17910 integer , INTENT(IN) :: auxhist6_end_mo
17911 INTEGER id_id
17912 CHARACTER*80 emess
17913 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17914 WRITE(emess,*)'nl_set_auxhist6_end_mo: Out of range domain number: ',id_id
17915 CALL wrf_error_fatal(emess)
17916 ENDIF
17917 model_config_rec%auxhist6_end_mo(id_id) = auxhist6_end_mo
17918 RETURN
17919 END SUBROUTINE nl_set_auxhist6_end_mo
17920 SUBROUTINE nl_set_auxhist6_end_d ( id_id , auxhist6_end_d )
17921 integer , INTENT(IN) :: auxhist6_end_d
17922 INTEGER id_id
17923 CHARACTER*80 emess
17924 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17925 WRITE(emess,*)'nl_set_auxhist6_end_d: Out of range domain number: ',id_id
17926 CALL wrf_error_fatal(emess)
17927 ENDIF
17928 model_config_rec%auxhist6_end_d(id_id) = auxhist6_end_d
17929 RETURN
17930 END SUBROUTINE nl_set_auxhist6_end_d
17931 SUBROUTINE nl_set_auxhist6_end_h ( id_id , auxhist6_end_h )
17932 integer , INTENT(IN) :: auxhist6_end_h
17933 INTEGER id_id
17934 CHARACTER*80 emess
17935 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17936 WRITE(emess,*)'nl_set_auxhist6_end_h: Out of range domain number: ',id_id
17937 CALL wrf_error_fatal(emess)
17938 ENDIF
17939 model_config_rec%auxhist6_end_h(id_id) = auxhist6_end_h
17940 RETURN
17941 END SUBROUTINE nl_set_auxhist6_end_h
17942 SUBROUTINE nl_set_auxhist6_end_m ( id_id , auxhist6_end_m )
17943 integer , INTENT(IN) :: auxhist6_end_m
17944 INTEGER id_id
17945 CHARACTER*80 emess
17946 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17947 WRITE(emess,*)'nl_set_auxhist6_end_m: Out of range domain number: ',id_id
17948 CALL wrf_error_fatal(emess)
17949 ENDIF
17950 model_config_rec%auxhist6_end_m(id_id) = auxhist6_end_m
17951 RETURN
17952 END SUBROUTINE nl_set_auxhist6_end_m
17953 SUBROUTINE nl_set_auxhist6_end_s ( id_id , auxhist6_end_s )
17954 integer , INTENT(IN) :: auxhist6_end_s
17955 INTEGER id_id
17956 CHARACTER*80 emess
17957 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17958 WRITE(emess,*)'nl_set_auxhist6_end_s: Out of range domain number: ',id_id
17959 CALL wrf_error_fatal(emess)
17960 ENDIF
17961 model_config_rec%auxhist6_end_s(id_id) = auxhist6_end_s
17962 RETURN
17963 END SUBROUTINE nl_set_auxhist6_end_s
17964 SUBROUTINE nl_set_auxhist7_end_y ( id_id , auxhist7_end_y )
17965 integer , INTENT(IN) :: auxhist7_end_y
17966 INTEGER id_id
17967 CHARACTER*80 emess
17968 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17969 WRITE(emess,*)'nl_set_auxhist7_end_y: Out of range domain number: ',id_id
17970 CALL wrf_error_fatal(emess)
17971 ENDIF
17972 model_config_rec%auxhist7_end_y(id_id) = auxhist7_end_y
17973 RETURN
17974 END SUBROUTINE nl_set_auxhist7_end_y
17975 SUBROUTINE nl_set_auxhist7_end_mo ( id_id , auxhist7_end_mo )
17976 integer , INTENT(IN) :: auxhist7_end_mo
17977 INTEGER id_id
17978 CHARACTER*80 emess
17979 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17980 WRITE(emess,*)'nl_set_auxhist7_end_mo: Out of range domain number: ',id_id
17981 CALL wrf_error_fatal(emess)
17982 ENDIF
17983 model_config_rec%auxhist7_end_mo(id_id) = auxhist7_end_mo
17984 RETURN
17985 END SUBROUTINE nl_set_auxhist7_end_mo
17986 SUBROUTINE nl_set_auxhist7_end_d ( id_id , auxhist7_end_d )
17987 integer , INTENT(IN) :: auxhist7_end_d
17988 INTEGER id_id
17989 CHARACTER*80 emess
17990 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17991 WRITE(emess,*)'nl_set_auxhist7_end_d: Out of range domain number: ',id_id
17992 CALL wrf_error_fatal(emess)
17993 ENDIF
17994 model_config_rec%auxhist7_end_d(id_id) = auxhist7_end_d
17995 RETURN
17996 END SUBROUTINE nl_set_auxhist7_end_d
17997 SUBROUTINE nl_set_auxhist7_end_h ( id_id , auxhist7_end_h )
17998 integer , INTENT(IN) :: auxhist7_end_h
17999 INTEGER id_id
18000 CHARACTER*80 emess
18001 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18002 WRITE(emess,*)'nl_set_auxhist7_end_h: Out of range domain number: ',id_id
18003 CALL wrf_error_fatal(emess)
18004 ENDIF
18005 model_config_rec%auxhist7_end_h(id_id) = auxhist7_end_h
18006 RETURN
18007 END SUBROUTINE nl_set_auxhist7_end_h
18008 SUBROUTINE nl_set_auxhist7_end_m ( id_id , auxhist7_end_m )
18009 integer , INTENT(IN) :: auxhist7_end_m
18010 INTEGER id_id
18011 CHARACTER*80 emess
18012 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18013 WRITE(emess,*)'nl_set_auxhist7_end_m: Out of range domain number: ',id_id
18014 CALL wrf_error_fatal(emess)
18015 ENDIF
18016 model_config_rec%auxhist7_end_m(id_id) = auxhist7_end_m
18017 RETURN
18018 END SUBROUTINE nl_set_auxhist7_end_m
18019 SUBROUTINE nl_set_auxhist7_end_s ( id_id , auxhist7_end_s )
18020 integer , INTENT(IN) :: auxhist7_end_s
18021 INTEGER id_id
18022 CHARACTER*80 emess
18023 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18024 WRITE(emess,*)'nl_set_auxhist7_end_s: Out of range domain number: ',id_id
18025 CALL wrf_error_fatal(emess)
18026 ENDIF
18027 model_config_rec%auxhist7_end_s(id_id) = auxhist7_end_s
18028 RETURN
18029 END SUBROUTINE nl_set_auxhist7_end_s
18030 SUBROUTINE nl_set_auxhist8_end_y ( id_id , auxhist8_end_y )
18031 integer , INTENT(IN) :: auxhist8_end_y
18032 INTEGER id_id
18033 CHARACTER*80 emess
18034 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18035 WRITE(emess,*)'nl_set_auxhist8_end_y: Out of range domain number: ',id_id
18036 CALL wrf_error_fatal(emess)
18037 ENDIF
18038 model_config_rec%auxhist8_end_y(id_id) = auxhist8_end_y
18039 RETURN
18040 END SUBROUTINE nl_set_auxhist8_end_y
18041 SUBROUTINE nl_set_auxhist8_end_mo ( id_id , auxhist8_end_mo )
18042 integer , INTENT(IN) :: auxhist8_end_mo
18043 INTEGER id_id
18044 CHARACTER*80 emess
18045 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18046 WRITE(emess,*)'nl_set_auxhist8_end_mo: Out of range domain number: ',id_id
18047 CALL wrf_error_fatal(emess)
18048 ENDIF
18049 model_config_rec%auxhist8_end_mo(id_id) = auxhist8_end_mo
18050 RETURN
18051 END SUBROUTINE nl_set_auxhist8_end_mo
18052 SUBROUTINE nl_set_auxhist8_end_d ( id_id , auxhist8_end_d )
18053 integer , INTENT(IN) :: auxhist8_end_d
18054 INTEGER id_id
18055 CHARACTER*80 emess
18056 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18057 WRITE(emess,*)'nl_set_auxhist8_end_d: Out of range domain number: ',id_id
18058 CALL wrf_error_fatal(emess)
18059 ENDIF
18060 model_config_rec%auxhist8_end_d(id_id) = auxhist8_end_d
18061 RETURN
18062 END SUBROUTINE nl_set_auxhist8_end_d
18063 SUBROUTINE nl_set_auxhist8_end_h ( id_id , auxhist8_end_h )
18064 integer , INTENT(IN) :: auxhist8_end_h
18065 INTEGER id_id
18066 CHARACTER*80 emess
18067 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18068 WRITE(emess,*)'nl_set_auxhist8_end_h: Out of range domain number: ',id_id
18069 CALL wrf_error_fatal(emess)
18070 ENDIF
18071 model_config_rec%auxhist8_end_h(id_id) = auxhist8_end_h
18072 RETURN
18073 END SUBROUTINE nl_set_auxhist8_end_h
18074 SUBROUTINE nl_set_auxhist8_end_m ( id_id , auxhist8_end_m )
18075 integer , INTENT(IN) :: auxhist8_end_m
18076 INTEGER id_id
18077 CHARACTER*80 emess
18078 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18079 WRITE(emess,*)'nl_set_auxhist8_end_m: Out of range domain number: ',id_id
18080 CALL wrf_error_fatal(emess)
18081 ENDIF
18082 model_config_rec%auxhist8_end_m(id_id) = auxhist8_end_m
18083 RETURN
18084 END SUBROUTINE nl_set_auxhist8_end_m
18085 SUBROUTINE nl_set_auxhist8_end_s ( id_id , auxhist8_end_s )
18086 integer , INTENT(IN) :: auxhist8_end_s
18087 INTEGER id_id
18088 CHARACTER*80 emess
18089 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18090 WRITE(emess,*)'nl_set_auxhist8_end_s: Out of range domain number: ',id_id
18091 CALL wrf_error_fatal(emess)
18092 ENDIF
18093 model_config_rec%auxhist8_end_s(id_id) = auxhist8_end_s
18094 RETURN
18095 END SUBROUTINE nl_set_auxhist8_end_s
18096 SUBROUTINE nl_set_auxhist9_end_y ( id_id , auxhist9_end_y )
18097 integer , INTENT(IN) :: auxhist9_end_y
18098 INTEGER id_id
18099 CHARACTER*80 emess
18100 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18101 WRITE(emess,*)'nl_set_auxhist9_end_y: Out of range domain number: ',id_id
18102 CALL wrf_error_fatal(emess)
18103 ENDIF
18104 model_config_rec%auxhist9_end_y(id_id) = auxhist9_end_y
18105 RETURN
18106 END SUBROUTINE nl_set_auxhist9_end_y
18107 SUBROUTINE nl_set_auxhist9_end_mo ( id_id , auxhist9_end_mo )
18108 integer , INTENT(IN) :: auxhist9_end_mo
18109 INTEGER id_id
18110 CHARACTER*80 emess
18111 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18112 WRITE(emess,*)'nl_set_auxhist9_end_mo: Out of range domain number: ',id_id
18113 CALL wrf_error_fatal(emess)
18114 ENDIF
18115 model_config_rec%auxhist9_end_mo(id_id) = auxhist9_end_mo
18116 RETURN
18117 END SUBROUTINE nl_set_auxhist9_end_mo
18118 SUBROUTINE nl_set_auxhist9_end_d ( id_id , auxhist9_end_d )
18119 integer , INTENT(IN) :: auxhist9_end_d
18120 INTEGER id_id
18121 CHARACTER*80 emess
18122 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18123 WRITE(emess,*)'nl_set_auxhist9_end_d: Out of range domain number: ',id_id
18124 CALL wrf_error_fatal(emess)
18125 ENDIF
18126 model_config_rec%auxhist9_end_d(id_id) = auxhist9_end_d
18127 RETURN
18128 END SUBROUTINE nl_set_auxhist9_end_d
18129 SUBROUTINE nl_set_auxhist9_end_h ( id_id , auxhist9_end_h )
18130 integer , INTENT(IN) :: auxhist9_end_h
18131 INTEGER id_id
18132 CHARACTER*80 emess
18133 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18134 WRITE(emess,*)'nl_set_auxhist9_end_h: Out of range domain number: ',id_id
18135 CALL wrf_error_fatal(emess)
18136 ENDIF
18137 model_config_rec%auxhist9_end_h(id_id) = auxhist9_end_h
18138 RETURN
18139 END SUBROUTINE nl_set_auxhist9_end_h
18140 SUBROUTINE nl_set_auxhist9_end_m ( id_id , auxhist9_end_m )
18141 integer , INTENT(IN) :: auxhist9_end_m
18142 INTEGER id_id
18143 CHARACTER*80 emess
18144 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18145 WRITE(emess,*)'nl_set_auxhist9_end_m: Out of range domain number: ',id_id
18146 CALL wrf_error_fatal(emess)
18147 ENDIF
18148 model_config_rec%auxhist9_end_m(id_id) = auxhist9_end_m
18149 RETURN
18150 END SUBROUTINE nl_set_auxhist9_end_m
18151 SUBROUTINE nl_set_auxhist9_end_s ( id_id , auxhist9_end_s )
18152 integer , INTENT(IN) :: auxhist9_end_s
18153 INTEGER id_id
18154 CHARACTER*80 emess
18155 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18156 WRITE(emess,*)'nl_set_auxhist9_end_s: Out of range domain number: ',id_id
18157 CALL wrf_error_fatal(emess)
18158 ENDIF
18159 model_config_rec%auxhist9_end_s(id_id) = auxhist9_end_s
18160 RETURN
18161 END SUBROUTINE nl_set_auxhist9_end_s
18162 SUBROUTINE nl_set_auxhist10_end_y ( id_id , auxhist10_end_y )
18163 integer , INTENT(IN) :: auxhist10_end_y
18164 INTEGER id_id
18165 CHARACTER*80 emess
18166 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18167 WRITE(emess,*)'nl_set_auxhist10_end_y: Out of range domain number: ',id_id
18168 CALL wrf_error_fatal(emess)
18169 ENDIF
18170 model_config_rec%auxhist10_end_y(id_id) = auxhist10_end_y
18171 RETURN
18172 END SUBROUTINE nl_set_auxhist10_end_y
18173 SUBROUTINE nl_set_auxhist10_end_mo ( id_id , auxhist10_end_mo )
18174 integer , INTENT(IN) :: auxhist10_end_mo
18175 INTEGER id_id
18176 CHARACTER*80 emess
18177 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18178 WRITE(emess,*)'nl_set_auxhist10_end_mo: Out of range domain number: ',id_id
18179 CALL wrf_error_fatal(emess)
18180 ENDIF
18181 model_config_rec%auxhist10_end_mo(id_id) = auxhist10_end_mo
18182 RETURN
18183 END SUBROUTINE nl_set_auxhist10_end_mo
18184 SUBROUTINE nl_set_auxhist10_end_d ( id_id , auxhist10_end_d )
18185 integer , INTENT(IN) :: auxhist10_end_d
18186 INTEGER id_id
18187 CHARACTER*80 emess
18188 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18189 WRITE(emess,*)'nl_set_auxhist10_end_d: Out of range domain number: ',id_id
18190 CALL wrf_error_fatal(emess)
18191 ENDIF
18192 model_config_rec%auxhist10_end_d(id_id) = auxhist10_end_d
18193 RETURN
18194 END SUBROUTINE nl_set_auxhist10_end_d
18195 SUBROUTINE nl_set_auxhist10_end_h ( id_id , auxhist10_end_h )
18196 integer , INTENT(IN) :: auxhist10_end_h
18197 INTEGER id_id
18198 CHARACTER*80 emess
18199 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18200 WRITE(emess,*)'nl_set_auxhist10_end_h: Out of range domain number: ',id_id
18201 CALL wrf_error_fatal(emess)
18202 ENDIF
18203 model_config_rec%auxhist10_end_h(id_id) = auxhist10_end_h
18204 RETURN
18205 END SUBROUTINE nl_set_auxhist10_end_h
18206 SUBROUTINE nl_set_auxhist10_end_m ( id_id , auxhist10_end_m )
18207 integer , INTENT(IN) :: auxhist10_end_m
18208 INTEGER id_id
18209 CHARACTER*80 emess
18210 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18211 WRITE(emess,*)'nl_set_auxhist10_end_m: Out of range domain number: ',id_id
18212 CALL wrf_error_fatal(emess)
18213 ENDIF
18214 model_config_rec%auxhist10_end_m(id_id) = auxhist10_end_m
18215 RETURN
18216 END SUBROUTINE nl_set_auxhist10_end_m
18217 SUBROUTINE nl_set_auxhist10_end_s ( id_id , auxhist10_end_s )
18218 integer , INTENT(IN) :: auxhist10_end_s
18219 INTEGER id_id
18220 CHARACTER*80 emess
18221 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18222 WRITE(emess,*)'nl_set_auxhist10_end_s: Out of range domain number: ',id_id
18223 CALL wrf_error_fatal(emess)
18224 ENDIF
18225 model_config_rec%auxhist10_end_s(id_id) = auxhist10_end_s
18226 RETURN
18227 END SUBROUTINE nl_set_auxhist10_end_s
18228 SUBROUTINE nl_set_auxhist11_end_y ( id_id , auxhist11_end_y )
18229 integer , INTENT(IN) :: auxhist11_end_y
18230 INTEGER id_id
18231 CHARACTER*80 emess
18232 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18233 WRITE(emess,*)'nl_set_auxhist11_end_y: Out of range domain number: ',id_id
18234 CALL wrf_error_fatal(emess)
18235 ENDIF
18236 model_config_rec%auxhist11_end_y(id_id) = auxhist11_end_y
18237 RETURN
18238 END SUBROUTINE nl_set_auxhist11_end_y
18239 SUBROUTINE nl_set_auxhist11_end_mo ( id_id , auxhist11_end_mo )
18240 integer , INTENT(IN) :: auxhist11_end_mo
18241 INTEGER id_id
18242 CHARACTER*80 emess
18243 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18244 WRITE(emess,*)'nl_set_auxhist11_end_mo: Out of range domain number: ',id_id
18245 CALL wrf_error_fatal(emess)
18246 ENDIF
18247 model_config_rec%auxhist11_end_mo(id_id) = auxhist11_end_mo
18248 RETURN
18249 END SUBROUTINE nl_set_auxhist11_end_mo
18250 SUBROUTINE nl_set_auxhist11_end_d ( id_id , auxhist11_end_d )
18251 integer , INTENT(IN) :: auxhist11_end_d
18252 INTEGER id_id
18253 CHARACTER*80 emess
18254 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18255 WRITE(emess,*)'nl_set_auxhist11_end_d: Out of range domain number: ',id_id
18256 CALL wrf_error_fatal(emess)
18257 ENDIF
18258 model_config_rec%auxhist11_end_d(id_id) = auxhist11_end_d
18259 RETURN
18260 END SUBROUTINE nl_set_auxhist11_end_d
18261 SUBROUTINE nl_set_auxhist11_end_h ( id_id , auxhist11_end_h )
18262 integer , INTENT(IN) :: auxhist11_end_h
18263 INTEGER id_id
18264 CHARACTER*80 emess
18265 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18266 WRITE(emess,*)'nl_set_auxhist11_end_h: Out of range domain number: ',id_id
18267 CALL wrf_error_fatal(emess)
18268 ENDIF
18269 model_config_rec%auxhist11_end_h(id_id) = auxhist11_end_h
18270 RETURN
18271 END SUBROUTINE nl_set_auxhist11_end_h
18272 SUBROUTINE nl_set_auxhist11_end_m ( id_id , auxhist11_end_m )
18273 integer , INTENT(IN) :: auxhist11_end_m
18274 INTEGER id_id
18275 CHARACTER*80 emess
18276 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18277 WRITE(emess,*)'nl_set_auxhist11_end_m: Out of range domain number: ',id_id
18278 CALL wrf_error_fatal(emess)
18279 ENDIF
18280 model_config_rec%auxhist11_end_m(id_id) = auxhist11_end_m
18281 RETURN
18282 END SUBROUTINE nl_set_auxhist11_end_m
18283 SUBROUTINE nl_set_auxhist11_end_s ( id_id , auxhist11_end_s )
18284 integer , INTENT(IN) :: auxhist11_end_s
18285 INTEGER id_id
18286 CHARACTER*80 emess
18287 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18288 WRITE(emess,*)'nl_set_auxhist11_end_s: Out of range domain number: ',id_id
18289 CALL wrf_error_fatal(emess)
18290 ENDIF
18291 model_config_rec%auxhist11_end_s(id_id) = auxhist11_end_s
18292 RETURN
18293 END SUBROUTINE nl_set_auxhist11_end_s
18294 SUBROUTINE nl_set_auxinput1_end_y ( id_id , auxinput1_end_y )
18295 integer , INTENT(IN) :: auxinput1_end_y
18296 INTEGER id_id
18297 CHARACTER*80 emess
18298 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18299 WRITE(emess,*)'nl_set_auxinput1_end_y: Out of range domain number: ',id_id
18300 CALL wrf_error_fatal(emess)
18301 ENDIF
18302 model_config_rec%auxinput1_end_y(id_id) = auxinput1_end_y
18303 RETURN
18304 END SUBROUTINE nl_set_auxinput1_end_y
18305 SUBROUTINE nl_set_auxinput1_end_mo ( id_id , auxinput1_end_mo )
18306 integer , INTENT(IN) :: auxinput1_end_mo
18307 INTEGER id_id
18308 CHARACTER*80 emess
18309 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18310 WRITE(emess,*)'nl_set_auxinput1_end_mo: Out of range domain number: ',id_id
18311 CALL wrf_error_fatal(emess)
18312 ENDIF
18313 model_config_rec%auxinput1_end_mo(id_id) = auxinput1_end_mo
18314 RETURN
18315 END SUBROUTINE nl_set_auxinput1_end_mo
18316 SUBROUTINE nl_set_auxinput1_end_d ( id_id , auxinput1_end_d )
18317 integer , INTENT(IN) :: auxinput1_end_d
18318 INTEGER id_id
18319 CHARACTER*80 emess
18320 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18321 WRITE(emess,*)'nl_set_auxinput1_end_d: Out of range domain number: ',id_id
18322 CALL wrf_error_fatal(emess)
18323 ENDIF
18324 model_config_rec%auxinput1_end_d(id_id) = auxinput1_end_d
18325 RETURN
18326 END SUBROUTINE nl_set_auxinput1_end_d
18327 SUBROUTINE nl_set_auxinput1_end_h ( id_id , auxinput1_end_h )
18328 integer , INTENT(IN) :: auxinput1_end_h
18329 INTEGER id_id
18330 CHARACTER*80 emess
18331 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18332 WRITE(emess,*)'nl_set_auxinput1_end_h: Out of range domain number: ',id_id
18333 CALL wrf_error_fatal(emess)
18334 ENDIF
18335 model_config_rec%auxinput1_end_h(id_id) = auxinput1_end_h
18336 RETURN
18337 END SUBROUTINE nl_set_auxinput1_end_h
18338 SUBROUTINE nl_set_auxinput1_end_m ( id_id , auxinput1_end_m )
18339 integer , INTENT(IN) :: auxinput1_end_m
18340 INTEGER id_id
18341 CHARACTER*80 emess
18342 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18343 WRITE(emess,*)'nl_set_auxinput1_end_m: Out of range domain number: ',id_id
18344 CALL wrf_error_fatal(emess)
18345 ENDIF
18346 model_config_rec%auxinput1_end_m(id_id) = auxinput1_end_m
18347 RETURN
18348 END SUBROUTINE nl_set_auxinput1_end_m
18349 SUBROUTINE nl_set_auxinput1_end_s ( id_id , auxinput1_end_s )
18350 integer , INTENT(IN) :: auxinput1_end_s
18351 INTEGER id_id
18352 CHARACTER*80 emess
18353 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18354 WRITE(emess,*)'nl_set_auxinput1_end_s: Out of range domain number: ',id_id
18355 CALL wrf_error_fatal(emess)
18356 ENDIF
18357 model_config_rec%auxinput1_end_s(id_id) = auxinput1_end_s
18358 RETURN
18359 END SUBROUTINE nl_set_auxinput1_end_s
18360 SUBROUTINE nl_set_auxinput2_end_y ( id_id , auxinput2_end_y )
18361 integer , INTENT(IN) :: auxinput2_end_y
18362 INTEGER id_id
18363 CHARACTER*80 emess
18364 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18365 WRITE(emess,*)'nl_set_auxinput2_end_y: Out of range domain number: ',id_id
18366 CALL wrf_error_fatal(emess)
18367 ENDIF
18368 model_config_rec%auxinput2_end_y(id_id) = auxinput2_end_y
18369 RETURN
18370 END SUBROUTINE nl_set_auxinput2_end_y
18371 SUBROUTINE nl_set_auxinput2_end_mo ( id_id , auxinput2_end_mo )
18372 integer , INTENT(IN) :: auxinput2_end_mo
18373 INTEGER id_id
18374 CHARACTER*80 emess
18375 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18376 WRITE(emess,*)'nl_set_auxinput2_end_mo: Out of range domain number: ',id_id
18377 CALL wrf_error_fatal(emess)
18378 ENDIF
18379 model_config_rec%auxinput2_end_mo(id_id) = auxinput2_end_mo
18380 RETURN
18381 END SUBROUTINE nl_set_auxinput2_end_mo
18382 SUBROUTINE nl_set_auxinput2_end_d ( id_id , auxinput2_end_d )
18383 integer , INTENT(IN) :: auxinput2_end_d
18384 INTEGER id_id
18385 CHARACTER*80 emess
18386 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18387 WRITE(emess,*)'nl_set_auxinput2_end_d: Out of range domain number: ',id_id
18388 CALL wrf_error_fatal(emess)
18389 ENDIF
18390 model_config_rec%auxinput2_end_d(id_id) = auxinput2_end_d
18391 RETURN
18392 END SUBROUTINE nl_set_auxinput2_end_d
18393 SUBROUTINE nl_set_auxinput2_end_h ( id_id , auxinput2_end_h )
18394 integer , INTENT(IN) :: auxinput2_end_h
18395 INTEGER id_id
18396 CHARACTER*80 emess
18397 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18398 WRITE(emess,*)'nl_set_auxinput2_end_h: Out of range domain number: ',id_id
18399 CALL wrf_error_fatal(emess)
18400 ENDIF
18401 model_config_rec%auxinput2_end_h(id_id) = auxinput2_end_h
18402 RETURN
18403 END SUBROUTINE nl_set_auxinput2_end_h
18404 SUBROUTINE nl_set_auxinput2_end_m ( id_id , auxinput2_end_m )
18405 integer , INTENT(IN) :: auxinput2_end_m
18406 INTEGER id_id
18407 CHARACTER*80 emess
18408 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18409 WRITE(emess,*)'nl_set_auxinput2_end_m: Out of range domain number: ',id_id
18410 CALL wrf_error_fatal(emess)
18411 ENDIF
18412 model_config_rec%auxinput2_end_m(id_id) = auxinput2_end_m
18413 RETURN
18414 END SUBROUTINE nl_set_auxinput2_end_m
18415 SUBROUTINE nl_set_auxinput2_end_s ( id_id , auxinput2_end_s )
18416 integer , INTENT(IN) :: auxinput2_end_s
18417 INTEGER id_id
18418 CHARACTER*80 emess
18419 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18420 WRITE(emess,*)'nl_set_auxinput2_end_s: Out of range domain number: ',id_id
18421 CALL wrf_error_fatal(emess)
18422 ENDIF
18423 model_config_rec%auxinput2_end_s(id_id) = auxinput2_end_s
18424 RETURN
18425 END SUBROUTINE nl_set_auxinput2_end_s
18426 SUBROUTINE nl_set_auxinput3_end_y ( id_id , auxinput3_end_y )
18427 integer , INTENT(IN) :: auxinput3_end_y
18428 INTEGER id_id
18429 CHARACTER*80 emess
18430 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18431 WRITE(emess,*)'nl_set_auxinput3_end_y: Out of range domain number: ',id_id
18432 CALL wrf_error_fatal(emess)
18433 ENDIF
18434 model_config_rec%auxinput3_end_y(id_id) = auxinput3_end_y
18435 RETURN
18436 END SUBROUTINE nl_set_auxinput3_end_y
18437 SUBROUTINE nl_set_auxinput3_end_mo ( id_id , auxinput3_end_mo )
18438 integer , INTENT(IN) :: auxinput3_end_mo
18439 INTEGER id_id
18440 CHARACTER*80 emess
18441 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18442 WRITE(emess,*)'nl_set_auxinput3_end_mo: Out of range domain number: ',id_id
18443 CALL wrf_error_fatal(emess)
18444 ENDIF
18445 model_config_rec%auxinput3_end_mo(id_id) = auxinput3_end_mo
18446 RETURN
18447 END SUBROUTINE nl_set_auxinput3_end_mo
18448 SUBROUTINE nl_set_auxinput3_end_d ( id_id , auxinput3_end_d )
18449 integer , INTENT(IN) :: auxinput3_end_d
18450 INTEGER id_id
18451 CHARACTER*80 emess
18452 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18453 WRITE(emess,*)'nl_set_auxinput3_end_d: Out of range domain number: ',id_id
18454 CALL wrf_error_fatal(emess)
18455 ENDIF
18456 model_config_rec%auxinput3_end_d(id_id) = auxinput3_end_d
18457 RETURN
18458 END SUBROUTINE nl_set_auxinput3_end_d
18459 SUBROUTINE nl_set_auxinput3_end_h ( id_id , auxinput3_end_h )
18460 integer , INTENT(IN) :: auxinput3_end_h
18461 INTEGER id_id
18462 CHARACTER*80 emess
18463 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18464 WRITE(emess,*)'nl_set_auxinput3_end_h: Out of range domain number: ',id_id
18465 CALL wrf_error_fatal(emess)
18466 ENDIF
18467 model_config_rec%auxinput3_end_h(id_id) = auxinput3_end_h
18468 RETURN
18469 END SUBROUTINE nl_set_auxinput3_end_h
18470 SUBROUTINE nl_set_auxinput3_end_m ( id_id , auxinput3_end_m )
18471 integer , INTENT(IN) :: auxinput3_end_m
18472 INTEGER id_id
18473 CHARACTER*80 emess
18474 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18475 WRITE(emess,*)'nl_set_auxinput3_end_m: Out of range domain number: ',id_id
18476 CALL wrf_error_fatal(emess)
18477 ENDIF
18478 model_config_rec%auxinput3_end_m(id_id) = auxinput3_end_m
18479 RETURN
18480 END SUBROUTINE nl_set_auxinput3_end_m
18481 SUBROUTINE nl_set_auxinput3_end_s ( id_id , auxinput3_end_s )
18482 integer , INTENT(IN) :: auxinput3_end_s
18483 INTEGER id_id
18484 CHARACTER*80 emess
18485 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18486 WRITE(emess,*)'nl_set_auxinput3_end_s: Out of range domain number: ',id_id
18487 CALL wrf_error_fatal(emess)
18488 ENDIF
18489 model_config_rec%auxinput3_end_s(id_id) = auxinput3_end_s
18490 RETURN
18491 END SUBROUTINE nl_set_auxinput3_end_s
18492 SUBROUTINE nl_set_auxinput4_end_y ( id_id , auxinput4_end_y )
18493 integer , INTENT(IN) :: auxinput4_end_y
18494 INTEGER id_id
18495 CHARACTER*80 emess
18496 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18497 WRITE(emess,*)'nl_set_auxinput4_end_y: Out of range domain number: ',id_id
18498 CALL wrf_error_fatal(emess)
18499 ENDIF
18500 model_config_rec%auxinput4_end_y(id_id) = auxinput4_end_y
18501 RETURN
18502 END SUBROUTINE nl_set_auxinput4_end_y
18503 SUBROUTINE nl_set_auxinput4_end_mo ( id_id , auxinput4_end_mo )
18504 integer , INTENT(IN) :: auxinput4_end_mo
18505 INTEGER id_id
18506 CHARACTER*80 emess
18507 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18508 WRITE(emess,*)'nl_set_auxinput4_end_mo: Out of range domain number: ',id_id
18509 CALL wrf_error_fatal(emess)
18510 ENDIF
18511 model_config_rec%auxinput4_end_mo(id_id) = auxinput4_end_mo
18512 RETURN
18513 END SUBROUTINE nl_set_auxinput4_end_mo
18514 SUBROUTINE nl_set_auxinput4_end_d ( id_id , auxinput4_end_d )
18515 integer , INTENT(IN) :: auxinput4_end_d
18516 INTEGER id_id
18517 CHARACTER*80 emess
18518 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18519 WRITE(emess,*)'nl_set_auxinput4_end_d: Out of range domain number: ',id_id
18520 CALL wrf_error_fatal(emess)
18521 ENDIF
18522 model_config_rec%auxinput4_end_d(id_id) = auxinput4_end_d
18523 RETURN
18524 END SUBROUTINE nl_set_auxinput4_end_d
18525 SUBROUTINE nl_set_auxinput4_end_h ( id_id , auxinput4_end_h )
18526 integer , INTENT(IN) :: auxinput4_end_h
18527 INTEGER id_id
18528 CHARACTER*80 emess
18529 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18530 WRITE(emess,*)'nl_set_auxinput4_end_h: Out of range domain number: ',id_id
18531 CALL wrf_error_fatal(emess)
18532 ENDIF
18533 model_config_rec%auxinput4_end_h(id_id) = auxinput4_end_h
18534 RETURN
18535 END SUBROUTINE nl_set_auxinput4_end_h
18536 SUBROUTINE nl_set_auxinput4_end_m ( id_id , auxinput4_end_m )
18537 integer , INTENT(IN) :: auxinput4_end_m
18538 INTEGER id_id
18539 CHARACTER*80 emess
18540 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18541 WRITE(emess,*)'nl_set_auxinput4_end_m: Out of range domain number: ',id_id
18542 CALL wrf_error_fatal(emess)
18543 ENDIF
18544 model_config_rec%auxinput4_end_m(id_id) = auxinput4_end_m
18545 RETURN
18546 END SUBROUTINE nl_set_auxinput4_end_m
18547 SUBROUTINE nl_set_auxinput4_end_s ( id_id , auxinput4_end_s )
18548 integer , INTENT(IN) :: auxinput4_end_s
18549 INTEGER id_id
18550 CHARACTER*80 emess
18551 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18552 WRITE(emess,*)'nl_set_auxinput4_end_s: Out of range domain number: ',id_id
18553 CALL wrf_error_fatal(emess)
18554 ENDIF
18555 model_config_rec%auxinput4_end_s(id_id) = auxinput4_end_s
18556 RETURN
18557 END SUBROUTINE nl_set_auxinput4_end_s
18558 SUBROUTINE nl_set_auxinput5_end_y ( id_id , auxinput5_end_y )
18559 integer , INTENT(IN) :: auxinput5_end_y
18560 INTEGER id_id
18561 CHARACTER*80 emess
18562 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18563 WRITE(emess,*)'nl_set_auxinput5_end_y: Out of range domain number: ',id_id
18564 CALL wrf_error_fatal(emess)
18565 ENDIF
18566 model_config_rec%auxinput5_end_y(id_id) = auxinput5_end_y
18567 RETURN
18568 END SUBROUTINE nl_set_auxinput5_end_y
18569 SUBROUTINE nl_set_auxinput5_end_mo ( id_id , auxinput5_end_mo )
18570 integer , INTENT(IN) :: auxinput5_end_mo
18571 INTEGER id_id
18572 CHARACTER*80 emess
18573 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18574 WRITE(emess,*)'nl_set_auxinput5_end_mo: Out of range domain number: ',id_id
18575 CALL wrf_error_fatal(emess)
18576 ENDIF
18577 model_config_rec%auxinput5_end_mo(id_id) = auxinput5_end_mo
18578 RETURN
18579 END SUBROUTINE nl_set_auxinput5_end_mo
18580 SUBROUTINE nl_set_auxinput5_end_d ( id_id , auxinput5_end_d )
18581 integer , INTENT(IN) :: auxinput5_end_d
18582 INTEGER id_id
18583 CHARACTER*80 emess
18584 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18585 WRITE(emess,*)'nl_set_auxinput5_end_d: Out of range domain number: ',id_id
18586 CALL wrf_error_fatal(emess)
18587 ENDIF
18588 model_config_rec%auxinput5_end_d(id_id) = auxinput5_end_d
18589 RETURN
18590 END SUBROUTINE nl_set_auxinput5_end_d
18591 SUBROUTINE nl_set_auxinput5_end_h ( id_id , auxinput5_end_h )
18592 integer , INTENT(IN) :: auxinput5_end_h
18593 INTEGER id_id
18594 CHARACTER*80 emess
18595 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18596 WRITE(emess,*)'nl_set_auxinput5_end_h: Out of range domain number: ',id_id
18597 CALL wrf_error_fatal(emess)
18598 ENDIF
18599 model_config_rec%auxinput5_end_h(id_id) = auxinput5_end_h
18600 RETURN
18601 END SUBROUTINE nl_set_auxinput5_end_h
18602 SUBROUTINE nl_set_auxinput5_end_m ( id_id , auxinput5_end_m )
18603 integer , INTENT(IN) :: auxinput5_end_m
18604 INTEGER id_id
18605 CHARACTER*80 emess
18606 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18607 WRITE(emess,*)'nl_set_auxinput5_end_m: Out of range domain number: ',id_id
18608 CALL wrf_error_fatal(emess)
18609 ENDIF
18610 model_config_rec%auxinput5_end_m(id_id) = auxinput5_end_m
18611 RETURN
18612 END SUBROUTINE nl_set_auxinput5_end_m
18613 SUBROUTINE nl_set_auxinput5_end_s ( id_id , auxinput5_end_s )
18614 integer , INTENT(IN) :: auxinput5_end_s
18615 INTEGER id_id
18616 CHARACTER*80 emess
18617 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18618 WRITE(emess,*)'nl_set_auxinput5_end_s: Out of range domain number: ',id_id
18619 CALL wrf_error_fatal(emess)
18620 ENDIF
18621 model_config_rec%auxinput5_end_s(id_id) = auxinput5_end_s
18622 RETURN
18623 END SUBROUTINE nl_set_auxinput5_end_s
18624 SUBROUTINE nl_set_auxinput6_end_y ( id_id , auxinput6_end_y )
18625 integer , INTENT(IN) :: auxinput6_end_y
18626 INTEGER id_id
18627 CHARACTER*80 emess
18628 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18629 WRITE(emess,*)'nl_set_auxinput6_end_y: Out of range domain number: ',id_id
18630 CALL wrf_error_fatal(emess)
18631 ENDIF
18632 model_config_rec%auxinput6_end_y(id_id) = auxinput6_end_y
18633 RETURN
18634 END SUBROUTINE nl_set_auxinput6_end_y
18635 SUBROUTINE nl_set_auxinput6_end_mo ( id_id , auxinput6_end_mo )
18636 integer , INTENT(IN) :: auxinput6_end_mo
18637 INTEGER id_id
18638 CHARACTER*80 emess
18639 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18640 WRITE(emess,*)'nl_set_auxinput6_end_mo: Out of range domain number: ',id_id
18641 CALL wrf_error_fatal(emess)
18642 ENDIF
18643 model_config_rec%auxinput6_end_mo(id_id) = auxinput6_end_mo
18644 RETURN
18645 END SUBROUTINE nl_set_auxinput6_end_mo
18646 SUBROUTINE nl_set_auxinput6_end_d ( id_id , auxinput6_end_d )
18647 integer , INTENT(IN) :: auxinput6_end_d
18648 INTEGER id_id
18649 CHARACTER*80 emess
18650 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18651 WRITE(emess,*)'nl_set_auxinput6_end_d: Out of range domain number: ',id_id
18652 CALL wrf_error_fatal(emess)
18653 ENDIF
18654 model_config_rec%auxinput6_end_d(id_id) = auxinput6_end_d
18655 RETURN
18656 END SUBROUTINE nl_set_auxinput6_end_d
18657 SUBROUTINE nl_set_auxinput6_end_h ( id_id , auxinput6_end_h )
18658 integer , INTENT(IN) :: auxinput6_end_h
18659 INTEGER id_id
18660 CHARACTER*80 emess
18661 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18662 WRITE(emess,*)'nl_set_auxinput6_end_h: Out of range domain number: ',id_id
18663 CALL wrf_error_fatal(emess)
18664 ENDIF
18665 model_config_rec%auxinput6_end_h(id_id) = auxinput6_end_h
18666 RETURN
18667 END SUBROUTINE nl_set_auxinput6_end_h
18668 SUBROUTINE nl_set_auxinput6_end_m ( id_id , auxinput6_end_m )
18669 integer , INTENT(IN) :: auxinput6_end_m
18670 INTEGER id_id
18671 CHARACTER*80 emess
18672 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18673 WRITE(emess,*)'nl_set_auxinput6_end_m: Out of range domain number: ',id_id
18674 CALL wrf_error_fatal(emess)
18675 ENDIF
18676 model_config_rec%auxinput6_end_m(id_id) = auxinput6_end_m
18677 RETURN
18678 END SUBROUTINE nl_set_auxinput6_end_m
18679 SUBROUTINE nl_set_auxinput6_end_s ( id_id , auxinput6_end_s )
18680 integer , INTENT(IN) :: auxinput6_end_s
18681 INTEGER id_id
18682 CHARACTER*80 emess
18683 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18684 WRITE(emess,*)'nl_set_auxinput6_end_s: Out of range domain number: ',id_id
18685 CALL wrf_error_fatal(emess)
18686 ENDIF
18687 model_config_rec%auxinput6_end_s(id_id) = auxinput6_end_s
18688 RETURN
18689 END SUBROUTINE nl_set_auxinput6_end_s
18690 SUBROUTINE nl_set_auxinput7_end_y ( id_id , auxinput7_end_y )
18691 integer , INTENT(IN) :: auxinput7_end_y
18692 INTEGER id_id
18693 CHARACTER*80 emess
18694 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18695 WRITE(emess,*)'nl_set_auxinput7_end_y: Out of range domain number: ',id_id
18696 CALL wrf_error_fatal(emess)
18697 ENDIF
18698 model_config_rec%auxinput7_end_y(id_id) = auxinput7_end_y
18699 RETURN
18700 END SUBROUTINE nl_set_auxinput7_end_y
18701 SUBROUTINE nl_set_auxinput7_end_mo ( id_id , auxinput7_end_mo )
18702 integer , INTENT(IN) :: auxinput7_end_mo
18703 INTEGER id_id
18704 CHARACTER*80 emess
18705 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18706 WRITE(emess,*)'nl_set_auxinput7_end_mo: Out of range domain number: ',id_id
18707 CALL wrf_error_fatal(emess)
18708 ENDIF
18709 model_config_rec%auxinput7_end_mo(id_id) = auxinput7_end_mo
18710 RETURN
18711 END SUBROUTINE nl_set_auxinput7_end_mo
18712 SUBROUTINE nl_set_auxinput7_end_d ( id_id , auxinput7_end_d )
18713 integer , INTENT(IN) :: auxinput7_end_d
18714 INTEGER id_id
18715 CHARACTER*80 emess
18716 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18717 WRITE(emess,*)'nl_set_auxinput7_end_d: Out of range domain number: ',id_id
18718 CALL wrf_error_fatal(emess)
18719 ENDIF
18720 model_config_rec%auxinput7_end_d(id_id) = auxinput7_end_d
18721 RETURN
18722 END SUBROUTINE nl_set_auxinput7_end_d
18723 SUBROUTINE nl_set_auxinput7_end_h ( id_id , auxinput7_end_h )
18724 integer , INTENT(IN) :: auxinput7_end_h
18725 INTEGER id_id
18726 CHARACTER*80 emess
18727 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18728 WRITE(emess,*)'nl_set_auxinput7_end_h: Out of range domain number: ',id_id
18729 CALL wrf_error_fatal(emess)
18730 ENDIF
18731 model_config_rec%auxinput7_end_h(id_id) = auxinput7_end_h
18732 RETURN
18733 END SUBROUTINE nl_set_auxinput7_end_h
18734 SUBROUTINE nl_set_auxinput7_end_m ( id_id , auxinput7_end_m )
18735 integer , INTENT(IN) :: auxinput7_end_m
18736 INTEGER id_id
18737 CHARACTER*80 emess
18738 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18739 WRITE(emess,*)'nl_set_auxinput7_end_m: Out of range domain number: ',id_id
18740 CALL wrf_error_fatal(emess)
18741 ENDIF
18742 model_config_rec%auxinput7_end_m(id_id) = auxinput7_end_m
18743 RETURN
18744 END SUBROUTINE nl_set_auxinput7_end_m
18745 SUBROUTINE nl_set_auxinput7_end_s ( id_id , auxinput7_end_s )
18746 integer , INTENT(IN) :: auxinput7_end_s
18747 INTEGER id_id
18748 CHARACTER*80 emess
18749 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18750 WRITE(emess,*)'nl_set_auxinput7_end_s: Out of range domain number: ',id_id
18751 CALL wrf_error_fatal(emess)
18752 ENDIF
18753 model_config_rec%auxinput7_end_s(id_id) = auxinput7_end_s
18754 RETURN
18755 END SUBROUTINE nl_set_auxinput7_end_s
18756 SUBROUTINE nl_set_auxinput8_end_y ( id_id , auxinput8_end_y )
18757 integer , INTENT(IN) :: auxinput8_end_y
18758 INTEGER id_id
18759 CHARACTER*80 emess
18760 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18761 WRITE(emess,*)'nl_set_auxinput8_end_y: Out of range domain number: ',id_id
18762 CALL wrf_error_fatal(emess)
18763 ENDIF
18764 model_config_rec%auxinput8_end_y(id_id) = auxinput8_end_y
18765 RETURN
18766 END SUBROUTINE nl_set_auxinput8_end_y
18767 SUBROUTINE nl_set_auxinput8_end_mo ( id_id , auxinput8_end_mo )
18768 integer , INTENT(IN) :: auxinput8_end_mo
18769 INTEGER id_id
18770 CHARACTER*80 emess
18771 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18772 WRITE(emess,*)'nl_set_auxinput8_end_mo: Out of range domain number: ',id_id
18773 CALL wrf_error_fatal(emess)
18774 ENDIF
18775 model_config_rec%auxinput8_end_mo(id_id) = auxinput8_end_mo
18776 RETURN
18777 END SUBROUTINE nl_set_auxinput8_end_mo
18778 SUBROUTINE nl_set_auxinput8_end_d ( id_id , auxinput8_end_d )
18779 integer , INTENT(IN) :: auxinput8_end_d
18780 INTEGER id_id
18781 CHARACTER*80 emess
18782 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18783 WRITE(emess,*)'nl_set_auxinput8_end_d: Out of range domain number: ',id_id
18784 CALL wrf_error_fatal(emess)
18785 ENDIF
18786 model_config_rec%auxinput8_end_d(id_id) = auxinput8_end_d
18787 RETURN
18788 END SUBROUTINE nl_set_auxinput8_end_d
18789 SUBROUTINE nl_set_auxinput8_end_h ( id_id , auxinput8_end_h )
18790 integer , INTENT(IN) :: auxinput8_end_h
18791 INTEGER id_id
18792 CHARACTER*80 emess
18793 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18794 WRITE(emess,*)'nl_set_auxinput8_end_h: Out of range domain number: ',id_id
18795 CALL wrf_error_fatal(emess)
18796 ENDIF
18797 model_config_rec%auxinput8_end_h(id_id) = auxinput8_end_h
18798 RETURN
18799 END SUBROUTINE nl_set_auxinput8_end_h
18800 SUBROUTINE nl_set_auxinput8_end_m ( id_id , auxinput8_end_m )
18801 integer , INTENT(IN) :: auxinput8_end_m
18802 INTEGER id_id
18803 CHARACTER*80 emess
18804 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18805 WRITE(emess,*)'nl_set_auxinput8_end_m: Out of range domain number: ',id_id
18806 CALL wrf_error_fatal(emess)
18807 ENDIF
18808 model_config_rec%auxinput8_end_m(id_id) = auxinput8_end_m
18809 RETURN
18810 END SUBROUTINE nl_set_auxinput8_end_m
18811 SUBROUTINE nl_set_auxinput8_end_s ( id_id , auxinput8_end_s )
18812 integer , INTENT(IN) :: auxinput8_end_s
18813 INTEGER id_id
18814 CHARACTER*80 emess
18815 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18816 WRITE(emess,*)'nl_set_auxinput8_end_s: Out of range domain number: ',id_id
18817 CALL wrf_error_fatal(emess)
18818 ENDIF
18819 model_config_rec%auxinput8_end_s(id_id) = auxinput8_end_s
18820 RETURN
18821 END SUBROUTINE nl_set_auxinput8_end_s
18822 SUBROUTINE nl_set_auxinput9_end_y ( id_id , auxinput9_end_y )
18823 integer , INTENT(IN) :: auxinput9_end_y
18824 INTEGER id_id
18825 CHARACTER*80 emess
18826 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18827 WRITE(emess,*)'nl_set_auxinput9_end_y: Out of range domain number: ',id_id
18828 CALL wrf_error_fatal(emess)
18829 ENDIF
18830 model_config_rec%auxinput9_end_y(id_id) = auxinput9_end_y
18831 RETURN
18832 END SUBROUTINE nl_set_auxinput9_end_y
18833 SUBROUTINE nl_set_auxinput9_end_mo ( id_id , auxinput9_end_mo )
18834 integer , INTENT(IN) :: auxinput9_end_mo
18835 INTEGER id_id
18836 CHARACTER*80 emess
18837 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18838 WRITE(emess,*)'nl_set_auxinput9_end_mo: Out of range domain number: ',id_id
18839 CALL wrf_error_fatal(emess)
18840 ENDIF
18841 model_config_rec%auxinput9_end_mo(id_id) = auxinput9_end_mo
18842 RETURN
18843 END SUBROUTINE nl_set_auxinput9_end_mo
18844 SUBROUTINE nl_set_auxinput9_end_d ( id_id , auxinput9_end_d )
18845 integer , INTENT(IN) :: auxinput9_end_d
18846 INTEGER id_id
18847 CHARACTER*80 emess
18848 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18849 WRITE(emess,*)'nl_set_auxinput9_end_d: Out of range domain number: ',id_id
18850 CALL wrf_error_fatal(emess)
18851 ENDIF
18852 model_config_rec%auxinput9_end_d(id_id) = auxinput9_end_d
18853 RETURN
18854 END SUBROUTINE nl_set_auxinput9_end_d
18855 SUBROUTINE nl_set_auxinput9_end_h ( id_id , auxinput9_end_h )
18856 integer , INTENT(IN) :: auxinput9_end_h
18857 INTEGER id_id
18858 CHARACTER*80 emess
18859 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18860 WRITE(emess,*)'nl_set_auxinput9_end_h: Out of range domain number: ',id_id
18861 CALL wrf_error_fatal(emess)
18862 ENDIF
18863 model_config_rec%auxinput9_end_h(id_id) = auxinput9_end_h
18864 RETURN
18865 END SUBROUTINE nl_set_auxinput9_end_h
18866 SUBROUTINE nl_set_auxinput9_end_m ( id_id , auxinput9_end_m )
18867 integer , INTENT(IN) :: auxinput9_end_m
18868 INTEGER id_id
18869 CHARACTER*80 emess
18870 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18871 WRITE(emess,*)'nl_set_auxinput9_end_m: Out of range domain number: ',id_id
18872 CALL wrf_error_fatal(emess)
18873 ENDIF
18874 model_config_rec%auxinput9_end_m(id_id) = auxinput9_end_m
18875 RETURN
18876 END SUBROUTINE nl_set_auxinput9_end_m
18877 SUBROUTINE nl_set_auxinput9_end_s ( id_id , auxinput9_end_s )
18878 integer , INTENT(IN) :: auxinput9_end_s
18879 INTEGER id_id
18880 CHARACTER*80 emess
18881 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18882 WRITE(emess,*)'nl_set_auxinput9_end_s: Out of range domain number: ',id_id
18883 CALL wrf_error_fatal(emess)
18884 ENDIF
18885 model_config_rec%auxinput9_end_s(id_id) = auxinput9_end_s
18886 RETURN
18887 END SUBROUTINE nl_set_auxinput9_end_s
18888 SUBROUTINE nl_set_gfdda_end_y ( id_id , gfdda_end_y )
18889 integer , INTENT(IN) :: gfdda_end_y
18890 INTEGER id_id
18891 CHARACTER*80 emess
18892 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18893 WRITE(emess,*)'nl_set_gfdda_end_y: Out of range domain number: ',id_id
18894 CALL wrf_error_fatal(emess)
18895 ENDIF
18896 model_config_rec%gfdda_end_y(id_id) = gfdda_end_y
18897 RETURN
18898 END SUBROUTINE nl_set_gfdda_end_y
18899 SUBROUTINE nl_set_gfdda_end_mo ( id_id , gfdda_end_mo )
18900 integer , INTENT(IN) :: gfdda_end_mo
18901 INTEGER id_id
18902 CHARACTER*80 emess
18903 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18904 WRITE(emess,*)'nl_set_gfdda_end_mo: Out of range domain number: ',id_id
18905 CALL wrf_error_fatal(emess)
18906 ENDIF
18907 model_config_rec%gfdda_end_mo(id_id) = gfdda_end_mo
18908 RETURN
18909 END SUBROUTINE nl_set_gfdda_end_mo
18910 SUBROUTINE nl_set_gfdda_end_d ( id_id , gfdda_end_d )
18911 integer , INTENT(IN) :: gfdda_end_d
18912 INTEGER id_id
18913 CHARACTER*80 emess
18914 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18915 WRITE(emess,*)'nl_set_gfdda_end_d: Out of range domain number: ',id_id
18916 CALL wrf_error_fatal(emess)
18917 ENDIF
18918 model_config_rec%gfdda_end_d(id_id) = gfdda_end_d
18919 RETURN
18920 END SUBROUTINE nl_set_gfdda_end_d
18921 SUBROUTINE nl_set_gfdda_end_h ( id_id , gfdda_end_h )
18922 integer , INTENT(IN) :: gfdda_end_h
18923 INTEGER id_id
18924 CHARACTER*80 emess
18925 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18926 WRITE(emess,*)'nl_set_gfdda_end_h: Out of range domain number: ',id_id
18927 CALL wrf_error_fatal(emess)
18928 ENDIF
18929 model_config_rec%gfdda_end_h(id_id) = gfdda_end_h
18930 RETURN
18931 END SUBROUTINE nl_set_gfdda_end_h
18932 SUBROUTINE nl_set_gfdda_end_m ( id_id , gfdda_end_m )
18933 integer , INTENT(IN) :: gfdda_end_m
18934 INTEGER id_id
18935 CHARACTER*80 emess
18936 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18937 WRITE(emess,*)'nl_set_gfdda_end_m: Out of range domain number: ',id_id
18938 CALL wrf_error_fatal(emess)
18939 ENDIF
18940 model_config_rec%gfdda_end_m(id_id) = gfdda_end_m
18941 RETURN
18942 END SUBROUTINE nl_set_gfdda_end_m
18943 SUBROUTINE nl_set_gfdda_end_s ( id_id , gfdda_end_s )
18944 integer , INTENT(IN) :: gfdda_end_s
18945 INTEGER id_id
18946 CHARACTER*80 emess
18947 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18948 WRITE(emess,*)'nl_set_gfdda_end_s: Out of range domain number: ',id_id
18949 CALL wrf_error_fatal(emess)
18950 ENDIF
18951 model_config_rec%gfdda_end_s(id_id) = gfdda_end_s
18952 RETURN
18953 END SUBROUTINE nl_set_gfdda_end_s
18954 SUBROUTINE nl_set_auxinput11_end_y ( id_id , auxinput11_end_y )
18955 integer , INTENT(IN) :: auxinput11_end_y
18956 INTEGER id_id
18957 CHARACTER*80 emess
18958 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18959 WRITE(emess,*)'nl_set_auxinput11_end_y: Out of range domain number: ',id_id
18960 CALL wrf_error_fatal(emess)
18961 ENDIF
18962 model_config_rec%auxinput11_end_y(id_id) = auxinput11_end_y
18963 RETURN
18964 END SUBROUTINE nl_set_auxinput11_end_y
18965 SUBROUTINE nl_set_auxinput11_end_mo ( id_id , auxinput11_end_mo )
18966 integer , INTENT(IN) :: auxinput11_end_mo
18967 INTEGER id_id
18968 CHARACTER*80 emess
18969 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18970 WRITE(emess,*)'nl_set_auxinput11_end_mo: Out of range domain number: ',id_id
18971 CALL wrf_error_fatal(emess)
18972 ENDIF
18973 model_config_rec%auxinput11_end_mo(id_id) = auxinput11_end_mo
18974 RETURN
18975 END SUBROUTINE nl_set_auxinput11_end_mo
18976 SUBROUTINE nl_set_auxinput11_end_d ( id_id , auxinput11_end_d )
18977 integer , INTENT(IN) :: auxinput11_end_d
18978 INTEGER id_id
18979 CHARACTER*80 emess
18980 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18981 WRITE(emess,*)'nl_set_auxinput11_end_d: Out of range domain number: ',id_id
18982 CALL wrf_error_fatal(emess)
18983 ENDIF
18984 model_config_rec%auxinput11_end_d(id_id) = auxinput11_end_d
18985 RETURN
18986 END SUBROUTINE nl_set_auxinput11_end_d
18987 SUBROUTINE nl_set_auxinput11_end_h ( id_id , auxinput11_end_h )
18988 integer , INTENT(IN) :: auxinput11_end_h
18989 INTEGER id_id
18990 CHARACTER*80 emess
18991 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18992 WRITE(emess,*)'nl_set_auxinput11_end_h: Out of range domain number: ',id_id
18993 CALL wrf_error_fatal(emess)
18994 ENDIF
18995 model_config_rec%auxinput11_end_h(id_id) = auxinput11_end_h
18996 RETURN
18997 END SUBROUTINE nl_set_auxinput11_end_h
18998 SUBROUTINE nl_set_auxinput11_end_m ( id_id , auxinput11_end_m )
18999 integer , INTENT(IN) :: auxinput11_end_m
19000 INTEGER id_id
19001 CHARACTER*80 emess
19002 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19003 WRITE(emess,*)'nl_set_auxinput11_end_m: Out of range domain number: ',id_id
19004 CALL wrf_error_fatal(emess)
19005 ENDIF
19006 model_config_rec%auxinput11_end_m(id_id) = auxinput11_end_m
19007 RETURN
19008 END SUBROUTINE nl_set_auxinput11_end_m
19009 SUBROUTINE nl_set_auxinput11_end_s ( id_id , auxinput11_end_s )
19010 integer , INTENT(IN) :: auxinput11_end_s
19011 INTEGER id_id
19012 CHARACTER*80 emess
19013 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19014 WRITE(emess,*)'nl_set_auxinput11_end_s: Out of range domain number: ',id_id
19015 CALL wrf_error_fatal(emess)
19016 ENDIF
19017 model_config_rec%auxinput11_end_s(id_id) = auxinput11_end_s
19018 RETURN
19019 END SUBROUTINE nl_set_auxinput11_end_s
19020 SUBROUTINE nl_set_io_form_auxinput1 ( id_id , io_form_auxinput1 )
19021 integer , INTENT(IN) :: io_form_auxinput1
19022 INTEGER id_id
19023 CHARACTER*80 emess
19024 IF ( id_id .NE. 1 ) THEN
19025 call wrf_debug(1,&
19026 'WARNING in nl_set_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
19027 ENDIF
19028 model_config_rec%io_form_auxinput1 = io_form_auxinput1
19029 RETURN
19030 END SUBROUTINE nl_set_io_form_auxinput1
19031 SUBROUTINE nl_set_io_form_auxinput2 ( id_id , io_form_auxinput2 )
19032 integer , INTENT(IN) :: io_form_auxinput2
19033 INTEGER id_id
19034 CHARACTER*80 emess
19035 IF ( id_id .NE. 1 ) THEN
19036 call wrf_debug(1,&
19037 'WARNING in nl_set_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
19038 ENDIF
19039 model_config_rec%io_form_auxinput2 = io_form_auxinput2
19040 RETURN
19041 END SUBROUTINE nl_set_io_form_auxinput2
19042 SUBROUTINE nl_set_io_form_auxinput3 ( id_id , io_form_auxinput3 )
19043 integer , INTENT(IN) :: io_form_auxinput3
19044 INTEGER id_id
19045 CHARACTER*80 emess
19046 IF ( id_id .NE. 1 ) THEN
19047 call wrf_debug(1,&
19048 'WARNING in nl_set_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
19049 ENDIF
19050 model_config_rec%io_form_auxinput3 = io_form_auxinput3
19051 RETURN
19052 END SUBROUTINE nl_set_io_form_auxinput3
19053 SUBROUTINE nl_set_io_form_auxinput4 ( id_id , io_form_auxinput4 )
19054 integer , INTENT(IN) :: io_form_auxinput4
19055 INTEGER id_id
19056 CHARACTER*80 emess
19057 IF ( id_id .NE. 1 ) THEN
19058 call wrf_debug(1,&
19059 'WARNING in nl_set_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
19060 ENDIF
19061 model_config_rec%io_form_auxinput4 = io_form_auxinput4
19062 RETURN
19063 END SUBROUTINE nl_set_io_form_auxinput4
19064 SUBROUTINE nl_set_io_form_auxinput5 ( id_id , io_form_auxinput5 )
19065 integer , INTENT(IN) :: io_form_auxinput5
19066 INTEGER id_id
19067 CHARACTER*80 emess
19068 IF ( id_id .NE. 1 ) THEN
19069 call wrf_debug(1,&
19070 'WARNING in nl_set_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
19071 ENDIF
19072 model_config_rec%io_form_auxinput5 = io_form_auxinput5
19073 RETURN
19074 END SUBROUTINE nl_set_io_form_auxinput5
19075 SUBROUTINE nl_set_io_form_auxinput6 ( id_id , io_form_auxinput6 )
19076 integer , INTENT(IN) :: io_form_auxinput6
19077 INTEGER id_id
19078 CHARACTER*80 emess
19079 IF ( id_id .NE. 1 ) THEN
19080 call wrf_debug(1,&
19081 'WARNING in nl_set_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
19082 ENDIF
19083 model_config_rec%io_form_auxinput6 = io_form_auxinput6
19084 RETURN
19085 END SUBROUTINE nl_set_io_form_auxinput6
19086 SUBROUTINE nl_set_io_form_auxinput7 ( id_id , io_form_auxinput7 )
19087 integer , INTENT(IN) :: io_form_auxinput7
19088 INTEGER id_id
19089 CHARACTER*80 emess
19090 IF ( id_id .NE. 1 ) THEN
19091 call wrf_debug(1,&
19092 'WARNING in nl_set_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
19093 ENDIF
19094 model_config_rec%io_form_auxinput7 = io_form_auxinput7
19095 RETURN
19096 END SUBROUTINE nl_set_io_form_auxinput7
19097 SUBROUTINE nl_set_io_form_auxinput8 ( id_id , io_form_auxinput8 )
19098 integer , INTENT(IN) :: io_form_auxinput8
19099 INTEGER id_id
19100 CHARACTER*80 emess
19101 IF ( id_id .NE. 1 ) THEN
19102 call wrf_debug(1,&
19103 'WARNING in nl_set_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
19104 ENDIF
19105 model_config_rec%io_form_auxinput8 = io_form_auxinput8
19106 RETURN
19107 END SUBROUTINE nl_set_io_form_auxinput8
19108 SUBROUTINE nl_set_io_form_auxinput9 ( id_id , io_form_auxinput9 )
19109 integer , INTENT(IN) :: io_form_auxinput9
19110 INTEGER id_id
19111 CHARACTER*80 emess
19112 IF ( id_id .NE. 1 ) THEN
19113 call wrf_debug(1,&
19114 'WARNING in nl_set_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
19115 ENDIF
19116 model_config_rec%io_form_auxinput9 = io_form_auxinput9
19117 RETURN
19118 END SUBROUTINE nl_set_io_form_auxinput9
19119 SUBROUTINE nl_set_io_form_gfdda ( id_id , io_form_gfdda )
19120 integer , INTENT(IN) :: io_form_gfdda
19121 INTEGER id_id
19122 CHARACTER*80 emess
19123 IF ( id_id .NE. 1 ) THEN
19124 call wrf_debug(1,&
19125 'WARNING in nl_set_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
19126 ENDIF
19127 model_config_rec%io_form_gfdda = io_form_gfdda
19128 RETURN
19129 END SUBROUTINE nl_set_io_form_gfdda
19130 SUBROUTINE nl_set_io_form_auxinput11 ( id_id , io_form_auxinput11 )
19131 integer , INTENT(IN) :: io_form_auxinput11
19132 INTEGER id_id
19133 CHARACTER*80 emess
19134 IF ( id_id .NE. 1 ) THEN
19135 call wrf_debug(1,&
19136 'WARNING in nl_set_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
19137 ENDIF
19138 model_config_rec%io_form_auxinput11 = io_form_auxinput11
19139 RETURN
19140 END SUBROUTINE nl_set_io_form_auxinput11
19141 SUBROUTINE nl_set_io_form_auxhist1 ( id_id , io_form_auxhist1 )
19142 integer , INTENT(IN) :: io_form_auxhist1
19143 INTEGER id_id
19144 CHARACTER*80 emess
19145 IF ( id_id .NE. 1 ) THEN
19146 call wrf_debug(1,&
19147 'WARNING in nl_set_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
19148 ENDIF
19149 model_config_rec%io_form_auxhist1 = io_form_auxhist1
19150 RETURN
19151 END SUBROUTINE nl_set_io_form_auxhist1
19152 SUBROUTINE nl_set_io_form_auxhist2 ( id_id , io_form_auxhist2 )
19153 integer , INTENT(IN) :: io_form_auxhist2
19154 INTEGER id_id
19155 CHARACTER*80 emess
19156 IF ( id_id .NE. 1 ) THEN
19157 call wrf_debug(1,&
19158 'WARNING in nl_set_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
19159 ENDIF
19160 model_config_rec%io_form_auxhist2 = io_form_auxhist2
19161 RETURN
19162 END SUBROUTINE nl_set_io_form_auxhist2
19163 SUBROUTINE nl_set_io_form_auxhist3 ( id_id , io_form_auxhist3 )
19164 integer , INTENT(IN) :: io_form_auxhist3
19165 INTEGER id_id
19166 CHARACTER*80 emess
19167 IF ( id_id .NE. 1 ) THEN
19168 call wrf_debug(1,&
19169 'WARNING in nl_set_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
19170 ENDIF
19171 model_config_rec%io_form_auxhist3 = io_form_auxhist3
19172 RETURN
19173 END SUBROUTINE nl_set_io_form_auxhist3
19174 SUBROUTINE nl_set_io_form_auxhist4 ( id_id , io_form_auxhist4 )
19175 integer , INTENT(IN) :: io_form_auxhist4
19176 INTEGER id_id
19177 CHARACTER*80 emess
19178 IF ( id_id .NE. 1 ) THEN
19179 call wrf_debug(1,&
19180 'WARNING in nl_set_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
19181 ENDIF
19182 model_config_rec%io_form_auxhist4 = io_form_auxhist4
19183 RETURN
19184 END SUBROUTINE nl_set_io_form_auxhist4
19185 SUBROUTINE nl_set_io_form_auxhist5 ( id_id , io_form_auxhist5 )
19186 integer , INTENT(IN) :: io_form_auxhist5
19187 INTEGER id_id
19188 CHARACTER*80 emess
19189 IF ( id_id .NE. 1 ) THEN
19190 call wrf_debug(1,&
19191 'WARNING in nl_set_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
19192 ENDIF
19193 model_config_rec%io_form_auxhist5 = io_form_auxhist5
19194 RETURN
19195 END SUBROUTINE nl_set_io_form_auxhist5
19196 SUBROUTINE nl_set_io_form_auxhist6 ( id_id , io_form_auxhist6 )
19197 integer , INTENT(IN) :: io_form_auxhist6
19198 INTEGER id_id
19199 CHARACTER*80 emess
19200 IF ( id_id .NE. 1 ) THEN
19201 call wrf_debug(1,&
19202 'WARNING in nl_set_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
19203 ENDIF
19204 model_config_rec%io_form_auxhist6 = io_form_auxhist6
19205 RETURN
19206 END SUBROUTINE nl_set_io_form_auxhist6
19207 SUBROUTINE nl_set_io_form_auxhist7 ( id_id , io_form_auxhist7 )
19208 integer , INTENT(IN) :: io_form_auxhist7
19209 INTEGER id_id
19210 CHARACTER*80 emess
19211 IF ( id_id .NE. 1 ) THEN
19212 call wrf_debug(1,&
19213 'WARNING in nl_set_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
19214 ENDIF
19215 model_config_rec%io_form_auxhist7 = io_form_auxhist7
19216 RETURN
19217 END SUBROUTINE nl_set_io_form_auxhist7
19218 SUBROUTINE nl_set_io_form_auxhist8 ( id_id , io_form_auxhist8 )
19219 integer , INTENT(IN) :: io_form_auxhist8
19220 INTEGER id_id
19221 CHARACTER*80 emess
19222 IF ( id_id .NE. 1 ) THEN
19223 call wrf_debug(1,&
19224 'WARNING in nl_set_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
19225 ENDIF
19226 model_config_rec%io_form_auxhist8 = io_form_auxhist8
19227 RETURN
19228 END SUBROUTINE nl_set_io_form_auxhist8
19229 SUBROUTINE nl_set_io_form_auxhist9 ( id_id , io_form_auxhist9 )
19230 integer , INTENT(IN) :: io_form_auxhist9
19231 INTEGER id_id
19232 CHARACTER*80 emess
19233 IF ( id_id .NE. 1 ) THEN
19234 call wrf_debug(1,&
19235 'WARNING in nl_set_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
19236 ENDIF
19237 model_config_rec%io_form_auxhist9 = io_form_auxhist9
19238 RETURN
19239 END SUBROUTINE nl_set_io_form_auxhist9
19240 SUBROUTINE nl_set_io_form_auxhist10 ( id_id , io_form_auxhist10 )
19241 integer , INTENT(IN) :: io_form_auxhist10
19242 INTEGER id_id
19243 CHARACTER*80 emess
19244 IF ( id_id .NE. 1 ) THEN
19245 call wrf_debug(1,&
19246 'WARNING in nl_set_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
19247 ENDIF
19248 model_config_rec%io_form_auxhist10 = io_form_auxhist10
19249 RETURN
19250 END SUBROUTINE nl_set_io_form_auxhist10
19251 SUBROUTINE nl_set_io_form_auxhist11 ( id_id , io_form_auxhist11 )
19252 integer , INTENT(IN) :: io_form_auxhist11
19253 INTEGER id_id
19254 CHARACTER*80 emess
19255 IF ( id_id .NE. 1 ) THEN
19256 call wrf_debug(1,&
19257 'WARNING in nl_set_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
19258 ENDIF
19259 model_config_rec%io_form_auxhist11 = io_form_auxhist11
19260 RETURN
19261 END SUBROUTINE nl_set_io_form_auxhist11
19262 SUBROUTINE nl_set_julyr ( id_id , julyr )
19263 integer , INTENT(IN) :: julyr
19264 INTEGER id_id
19265 CHARACTER*80 emess
19266 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19267 WRITE(emess,*)'nl_set_julyr: Out of range domain number: ',id_id
19268 CALL wrf_error_fatal(emess)
19269 ENDIF
19270 model_config_rec%julyr(id_id) = julyr
19271 RETURN
19272 END SUBROUTINE nl_set_julyr
19273 SUBROUTINE nl_set_julday ( id_id , julday )
19274 integer , INTENT(IN) :: julday
19275 INTEGER id_id
19276 CHARACTER*80 emess
19277 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19278 WRITE(emess,*)'nl_set_julday: Out of range domain number: ',id_id
19279 CALL wrf_error_fatal(emess)
19280 ENDIF
19281 model_config_rec%julday(id_id) = julday
19282 RETURN
19283 END SUBROUTINE nl_set_julday
19284 SUBROUTINE nl_set_gmt ( id_id , gmt )
19285 real , INTENT(IN) :: gmt
19286 INTEGER id_id
19287 CHARACTER*80 emess
19288 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19289 WRITE(emess,*)'nl_set_gmt: Out of range domain number: ',id_id
19290 CALL wrf_error_fatal(emess)
19291 ENDIF
19292 model_config_rec%gmt(id_id) = gmt
19293 RETURN
19294 END SUBROUTINE nl_set_gmt
19295 SUBROUTINE nl_set_input_inname ( id_id , input_inname )
19296 character*256 , INTENT(IN) :: input_inname
19297 INTEGER id_id
19298 CHARACTER*80 emess
19299 IF ( id_id .NE. 1 ) THEN
19300 call wrf_debug(1,&
19301 'WARNING in nl_set_input_inname: input_inname applies to all domains. First arg ignored.')
19302 ENDIF
19303 model_config_rec%input_inname = trim(input_inname)
19304 RETURN
19305 END SUBROUTINE nl_set_input_inname
19306 SUBROUTINE nl_set_input_outname ( id_id , input_outname )
19307 character*256 , INTENT(IN) :: input_outname
19308 INTEGER id_id
19309 CHARACTER*80 emess
19310 IF ( id_id .NE. 1 ) THEN
19311 call wrf_debug(1,&
19312 'WARNING in nl_set_input_outname: input_outname applies to all domains. First arg ignored.')
19313 ENDIF
19314 model_config_rec%input_outname = trim(input_outname)
19315 RETURN
19316 END SUBROUTINE nl_set_input_outname
19317 SUBROUTINE nl_set_bdy_inname ( id_id , bdy_inname )
19318 character*256 , INTENT(IN) :: bdy_inname
19319 INTEGER id_id
19320 CHARACTER*80 emess
19321 IF ( id_id .NE. 1 ) THEN
19322 call wrf_debug(1,&
19323 'WARNING in nl_set_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
19324 ENDIF
19325 model_config_rec%bdy_inname = trim(bdy_inname)
19326 RETURN
19327 END SUBROUTINE nl_set_bdy_inname
19328 SUBROUTINE nl_set_bdy_outname ( id_id , bdy_outname )
19329 character*256 , INTENT(IN) :: bdy_outname
19330 INTEGER id_id
19331 CHARACTER*80 emess
19332 IF ( id_id .NE. 1 ) THEN
19333 call wrf_debug(1,&
19334 'WARNING in nl_set_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
19335 ENDIF
19336 model_config_rec%bdy_outname = trim(bdy_outname)
19337 RETURN
19338 END SUBROUTINE nl_set_bdy_outname
19339 SUBROUTINE nl_set_rst_inname ( id_id , rst_inname )
19340 character*256 , INTENT(IN) :: rst_inname
19341 INTEGER id_id
19342 CHARACTER*80 emess
19343 IF ( id_id .NE. 1 ) THEN
19344 call wrf_debug(1,&
19345 'WARNING in nl_set_rst_inname: rst_inname applies to all domains. First arg ignored.')
19346 ENDIF
19347 model_config_rec%rst_inname = trim(rst_inname)
19348 RETURN
19349 END SUBROUTINE nl_set_rst_inname
19350 SUBROUTINE nl_set_rst_outname ( id_id , rst_outname )
19351 character*256 , INTENT(IN) :: rst_outname
19352 INTEGER id_id
19353 CHARACTER*80 emess
19354 IF ( id_id .NE. 1 ) THEN
19355 call wrf_debug(1,&
19356 'WARNING in nl_set_rst_outname: rst_outname applies to all domains. First arg ignored.')
19357 ENDIF
19358 model_config_rec%rst_outname = trim(rst_outname)
19359 RETURN
19360 END SUBROUTINE nl_set_rst_outname
19361 SUBROUTINE nl_set_write_input ( id_id , write_input )
19362 logical , INTENT(IN) :: write_input
19363 INTEGER id_id
19364 CHARACTER*80 emess
19365 IF ( id_id .NE. 1 ) THEN
19366 call wrf_debug(1,&
19367 'WARNING in nl_set_write_input: write_input applies to all domains. First arg ignored.')
19368 ENDIF
19369 model_config_rec%write_input = write_input
19370 RETURN
19371 END SUBROUTINE nl_set_write_input
19372 SUBROUTINE nl_set_write_restart_at_0h ( id_id , write_restart_at_0h )
19373 logical , INTENT(IN) :: write_restart_at_0h
19374 INTEGER id_id
19375 CHARACTER*80 emess
19376 IF ( id_id .NE. 1 ) THEN
19377 call wrf_debug(1,&
19378 'WARNING in nl_set_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
19379 ENDIF
19380 model_config_rec%write_restart_at_0h = write_restart_at_0h
19381 RETURN
19382 END SUBROUTINE nl_set_write_restart_at_0h
19383 SUBROUTINE nl_set_adjust_output_times ( id_id , adjust_output_times )
19384 logical , INTENT(IN) :: adjust_output_times
19385 INTEGER id_id
19386 CHARACTER*80 emess
19387 IF ( id_id .NE. 1 ) THEN
19388 call wrf_debug(1,&
19389 'WARNING in nl_set_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
19390 ENDIF
19391 model_config_rec%adjust_output_times = adjust_output_times
19392 RETURN
19393 END SUBROUTINE nl_set_adjust_output_times
19394 SUBROUTINE nl_set_adjust_input_times ( id_id , adjust_input_times )
19395 logical , INTENT(IN) :: adjust_input_times
19396 INTEGER id_id
19397 CHARACTER*80 emess
19398 IF ( id_id .NE. 1 ) THEN
19399 call wrf_debug(1,&
19400 'WARNING in nl_set_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
19401 ENDIF
19402 model_config_rec%adjust_input_times = adjust_input_times
19403 RETURN
19404 END SUBROUTINE nl_set_adjust_input_times
19405 SUBROUTINE nl_set_nocolons ( id_id , nocolons )
19406 logical , INTENT(IN) :: nocolons
19407 INTEGER id_id
19408 CHARACTER*80 emess
19409 IF ( id_id .NE. 1 ) THEN
19410 call wrf_debug(1,&
19411 'WARNING in nl_set_nocolons: nocolons applies to all domains. First arg ignored.')
19412 ENDIF
19413 model_config_rec%nocolons = nocolons
19414 RETURN
19415 END SUBROUTINE nl_set_nocolons
19416 SUBROUTINE nl_set_time_step ( id_id , time_step )
19417 integer , INTENT(IN) :: time_step
19418 INTEGER id_id
19419 CHARACTER*80 emess
19420 IF ( id_id .NE. 1 ) THEN
19421 call wrf_debug(1,&
19422 'WARNING in nl_set_time_step: time_step applies to all domains. First arg ignored.')
19423 ENDIF
19424 model_config_rec%time_step = time_step
19425 RETURN
19426 END SUBROUTINE nl_set_time_step
19427 SUBROUTINE nl_set_time_step_fract_num ( id_id , time_step_fract_num )
19428 integer , INTENT(IN) :: time_step_fract_num
19429 INTEGER id_id
19430 CHARACTER*80 emess
19431 IF ( id_id .NE. 1 ) THEN
19432 call wrf_debug(1,&
19433 'WARNING in nl_set_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
19434 ENDIF
19435 model_config_rec%time_step_fract_num = time_step_fract_num
19436 RETURN
19437 END SUBROUTINE nl_set_time_step_fract_num
19438 SUBROUTINE nl_set_time_step_fract_den ( id_id , time_step_fract_den )
19439 integer , INTENT(IN) :: time_step_fract_den
19440 INTEGER id_id
19441 CHARACTER*80 emess
19442 IF ( id_id .NE. 1 ) THEN
19443 call wrf_debug(1,&
19444 'WARNING in nl_set_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
19445 ENDIF
19446 model_config_rec%time_step_fract_den = time_step_fract_den
19447 RETURN
19448 END SUBROUTINE nl_set_time_step_fract_den
19449 SUBROUTINE nl_set_max_dom ( id_id , max_dom )
19450 integer , INTENT(IN) :: max_dom
19451 INTEGER id_id
19452 CHARACTER*80 emess
19453 IF ( id_id .NE. 1 ) THEN
19454 call wrf_debug(1,&
19455 'WARNING in nl_set_max_dom: max_dom applies to all domains. First arg ignored.')
19456 ENDIF
19457 model_config_rec%max_dom = max_dom
19458 RETURN
19459 END SUBROUTINE nl_set_max_dom
19460 SUBROUTINE nl_set_s_we ( id_id , s_we )
19461 integer , INTENT(IN) :: s_we
19462 INTEGER id_id
19463 CHARACTER*80 emess
19464 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19465 WRITE(emess,*)'nl_set_s_we: Out of range domain number: ',id_id
19466 CALL wrf_error_fatal(emess)
19467 ENDIF
19468 model_config_rec%s_we(id_id) = s_we
19469 RETURN
19470 END SUBROUTINE nl_set_s_we
19471 SUBROUTINE nl_set_e_we ( id_id , e_we )
19472 integer , INTENT(IN) :: e_we
19473 INTEGER id_id
19474 CHARACTER*80 emess
19475 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19476 WRITE(emess,*)'nl_set_e_we: Out of range domain number: ',id_id
19477 CALL wrf_error_fatal(emess)
19478 ENDIF
19479 model_config_rec%e_we(id_id) = e_we
19480 RETURN
19481 END SUBROUTINE nl_set_e_we
19482 SUBROUTINE nl_set_s_sn ( id_id , s_sn )
19483 integer , INTENT(IN) :: s_sn
19484 INTEGER id_id
19485 CHARACTER*80 emess
19486 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19487 WRITE(emess,*)'nl_set_s_sn: Out of range domain number: ',id_id
19488 CALL wrf_error_fatal(emess)
19489 ENDIF
19490 model_config_rec%s_sn(id_id) = s_sn
19491 RETURN
19492 END SUBROUTINE nl_set_s_sn
19493 SUBROUTINE nl_set_e_sn ( id_id , e_sn )
19494 integer , INTENT(IN) :: e_sn
19495 INTEGER id_id
19496 CHARACTER*80 emess
19497 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19498 WRITE(emess,*)'nl_set_e_sn: Out of range domain number: ',id_id
19499 CALL wrf_error_fatal(emess)
19500 ENDIF
19501 model_config_rec%e_sn(id_id) = e_sn
19502 RETURN
19503 END SUBROUTINE nl_set_e_sn
19504 SUBROUTINE nl_set_s_vert ( id_id , s_vert )
19505 integer , INTENT(IN) :: s_vert
19506 INTEGER id_id
19507 CHARACTER*80 emess
19508 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19509 WRITE(emess,*)'nl_set_s_vert: Out of range domain number: ',id_id
19510 CALL wrf_error_fatal(emess)
19511 ENDIF
19512 model_config_rec%s_vert(id_id) = s_vert
19513 RETURN
19514 END SUBROUTINE nl_set_s_vert
19515 SUBROUTINE nl_set_e_vert ( id_id , e_vert )
19516 integer , INTENT(IN) :: e_vert
19517 INTEGER id_id
19518 CHARACTER*80 emess
19519 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19520 WRITE(emess,*)'nl_set_e_vert: Out of range domain number: ',id_id
19521 CALL wrf_error_fatal(emess)
19522 ENDIF
19523 model_config_rec%e_vert(id_id) = e_vert
19524 RETURN
19525 END SUBROUTINE nl_set_e_vert
19526 SUBROUTINE nl_set_num_metgrid_levels ( id_id , num_metgrid_levels )
19527 integer , INTENT(IN) :: num_metgrid_levels
19528 INTEGER id_id
19529 CHARACTER*80 emess
19530 IF ( id_id .NE. 1 ) THEN
19531 call wrf_debug(1,&
19532 'WARNING in nl_set_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
19533 ENDIF
19534 model_config_rec%num_metgrid_levels = num_metgrid_levels
19535 RETURN
19536 END SUBROUTINE nl_set_num_metgrid_levels
19537 SUBROUTINE nl_set_p_top_requested ( id_id , p_top_requested )
19538 real , INTENT(IN) :: p_top_requested
19539 INTEGER id_id
19540 CHARACTER*80 emess
19541 IF ( id_id .NE. 1 ) THEN
19542 call wrf_debug(1,&
19543 'WARNING in nl_set_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
19544 ENDIF
19545 model_config_rec%p_top_requested = p_top_requested
19546 RETURN
19547 END SUBROUTINE nl_set_p_top_requested
19548 SUBROUTINE nl_set_interp_type ( id_id , interp_type )
19549 integer , INTENT(IN) :: interp_type
19550 INTEGER id_id
19551 CHARACTER*80 emess
19552 IF ( id_id .NE. 1 ) THEN
19553 call wrf_debug(1,&
19554 'WARNING in nl_set_interp_type: interp_type applies to all domains. First arg ignored.')
19555 ENDIF
19556 model_config_rec%interp_type = interp_type
19557 RETURN
19558 END SUBROUTINE nl_set_interp_type
19559 SUBROUTINE nl_set_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
19560 logical , INTENT(IN) :: lowest_lev_from_sfc
19561 INTEGER id_id
19562 CHARACTER*80 emess
19563 IF ( id_id .NE. 1 ) THEN
19564 call wrf_debug(1,&
19565 'WARNING in nl_set_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
19566 ENDIF
19567 model_config_rec%lowest_lev_from_sfc = lowest_lev_from_sfc
19568 RETURN
19569 END SUBROUTINE nl_set_lowest_lev_from_sfc
19570 SUBROUTINE nl_set_lagrange_order ( id_id , lagrange_order )
19571 integer , INTENT(IN) :: lagrange_order
19572 INTEGER id_id
19573 CHARACTER*80 emess
19574 IF ( id_id .NE. 1 ) THEN
19575 call wrf_debug(1,&
19576 'WARNING in nl_set_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
19577 ENDIF
19578 model_config_rec%lagrange_order = lagrange_order
19579 RETURN
19580 END SUBROUTINE nl_set_lagrange_order
19581 SUBROUTINE nl_set_dx ( id_id , dx )
19582 real , INTENT(IN) :: dx
19583 INTEGER id_id
19584 CHARACTER*80 emess
19585 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19586 WRITE(emess,*)'nl_set_dx: Out of range domain number: ',id_id
19587 CALL wrf_error_fatal(emess)
19588 ENDIF
19589 model_config_rec%dx(id_id) = dx
19590 RETURN
19591 END SUBROUTINE nl_set_dx
19592 SUBROUTINE nl_set_dy ( id_id , dy )
19593 real , INTENT(IN) :: dy
19594 INTEGER id_id
19595 CHARACTER*80 emess
19596 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19597 WRITE(emess,*)'nl_set_dy: Out of range domain number: ',id_id
19598 CALL wrf_error_fatal(emess)
19599 ENDIF
19600 model_config_rec%dy(id_id) = dy
19601 RETURN
19602 END SUBROUTINE nl_set_dy
19603 SUBROUTINE nl_set_grid_id ( id_id , grid_id )
19604 integer , INTENT(IN) :: grid_id
19605 INTEGER id_id
19606 CHARACTER*80 emess
19607 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19608 WRITE(emess,*)'nl_set_grid_id: Out of range domain number: ',id_id
19609 CALL wrf_error_fatal(emess)
19610 ENDIF
19611 model_config_rec%grid_id(id_id) = grid_id
19612 RETURN
19613 END SUBROUTINE nl_set_grid_id
19614 SUBROUTINE nl_set_parent_id ( id_id , parent_id )
19615 integer , INTENT(IN) :: parent_id
19616 INTEGER id_id
19617 CHARACTER*80 emess
19618 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19619 WRITE(emess,*)'nl_set_parent_id: Out of range domain number: ',id_id
19620 CALL wrf_error_fatal(emess)
19621 ENDIF
19622 model_config_rec%parent_id(id_id) = parent_id
19623 RETURN
19624 END SUBROUTINE nl_set_parent_id
19625 SUBROUTINE nl_set_i_parent_start ( id_id , i_parent_start )
19626 integer , INTENT(IN) :: i_parent_start
19627 INTEGER id_id
19628 CHARACTER*80 emess
19629 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19630 WRITE(emess,*)'nl_set_i_parent_start: Out of range domain number: ',id_id
19631 CALL wrf_error_fatal(emess)
19632 ENDIF
19633 model_config_rec%i_parent_start(id_id) = i_parent_start
19634 RETURN
19635 END SUBROUTINE nl_set_i_parent_start
19636 SUBROUTINE nl_set_j_parent_start ( id_id , j_parent_start )
19637 integer , INTENT(IN) :: j_parent_start
19638 INTEGER id_id
19639 CHARACTER*80 emess
19640 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19641 WRITE(emess,*)'nl_set_j_parent_start: Out of range domain number: ',id_id
19642 CALL wrf_error_fatal(emess)
19643 ENDIF
19644 model_config_rec%j_parent_start(id_id) = j_parent_start
19645 RETURN
19646 END SUBROUTINE nl_set_j_parent_start
19647 SUBROUTINE nl_set_parent_grid_ratio ( id_id , parent_grid_ratio )
19648 integer , INTENT(IN) :: parent_grid_ratio
19649 INTEGER id_id
19650 CHARACTER*80 emess
19651 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19652 WRITE(emess,*)'nl_set_parent_grid_ratio: Out of range domain number: ',id_id
19653 CALL wrf_error_fatal(emess)
19654 ENDIF
19655 model_config_rec%parent_grid_ratio(id_id) = parent_grid_ratio
19656 RETURN
19657 END SUBROUTINE nl_set_parent_grid_ratio
19658 SUBROUTINE nl_set_parent_time_step_ratio ( id_id , parent_time_step_ratio )
19659 integer , INTENT(IN) :: parent_time_step_ratio
19660 INTEGER id_id
19661 CHARACTER*80 emess
19662 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19663 WRITE(emess,*)'nl_set_parent_time_step_ratio: Out of range domain number: ',id_id
19664 CALL wrf_error_fatal(emess)
19665 ENDIF
19666 model_config_rec%parent_time_step_ratio(id_id) = parent_time_step_ratio
19667 RETURN
19668 END SUBROUTINE nl_set_parent_time_step_ratio
19669 SUBROUTINE nl_set_feedback ( id_id , feedback )
19670 integer , INTENT(IN) :: feedback
19671 INTEGER id_id
19672 CHARACTER*80 emess
19673 IF ( id_id .NE. 1 ) THEN
19674 call wrf_debug(1,&
19675 'WARNING in nl_set_feedback: feedback applies to all domains. First arg ignored.')
19676 ENDIF
19677 model_config_rec%feedback = feedback
19678 RETURN
19679 END SUBROUTINE nl_set_feedback
19680 SUBROUTINE nl_set_smooth_option ( id_id , smooth_option )
19681 integer , INTENT(IN) :: smooth_option
19682 INTEGER id_id
19683 CHARACTER*80 emess
19684 IF ( id_id .NE. 1 ) THEN
19685 call wrf_debug(1,&
19686 'WARNING in nl_set_smooth_option: smooth_option applies to all domains. First arg ignored.')
19687 ENDIF
19688 model_config_rec%smooth_option = smooth_option
19689 RETURN
19690 END SUBROUTINE nl_set_smooth_option
19691 SUBROUTINE nl_set_blend_width ( id_id , blend_width )
19692 integer , INTENT(IN) :: blend_width
19693 INTEGER id_id
19694 CHARACTER*80 emess
19695 IF ( id_id .NE. 1 ) THEN
19696 call wrf_debug(1,&
19697 'WARNING in nl_set_blend_width: blend_width applies to all domains. First arg ignored.')
19698 ENDIF
19699 model_config_rec%blend_width = blend_width
19700 RETURN
19701 END SUBROUTINE nl_set_blend_width
19702 SUBROUTINE nl_set_ztop ( id_id , ztop )
19703 real , INTENT(IN) :: ztop
19704 INTEGER id_id
19705 CHARACTER*80 emess
19706 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19707 WRITE(emess,*)'nl_set_ztop: Out of range domain number: ',id_id
19708 CALL wrf_error_fatal(emess)
19709 ENDIF
19710 model_config_rec%ztop(id_id) = ztop
19711 RETURN
19712 END SUBROUTINE nl_set_ztop
19713 SUBROUTINE nl_set_moad_grid_ratio ( id_id , moad_grid_ratio )
19714 integer , INTENT(IN) :: moad_grid_ratio
19715 INTEGER id_id
19716 CHARACTER*80 emess
19717 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19718 WRITE(emess,*)'nl_set_moad_grid_ratio: Out of range domain number: ',id_id
19719 CALL wrf_error_fatal(emess)
19720 ENDIF
19721 model_config_rec%moad_grid_ratio(id_id) = moad_grid_ratio
19722 RETURN
19723 END SUBROUTINE nl_set_moad_grid_ratio
19724 SUBROUTINE nl_set_moad_time_step_ratio ( id_id , moad_time_step_ratio )
19725 integer , INTENT(IN) :: moad_time_step_ratio
19726 INTEGER id_id
19727 CHARACTER*80 emess
19728 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19729 WRITE(emess,*)'nl_set_moad_time_step_ratio: Out of range domain number: ',id_id
19730 CALL wrf_error_fatal(emess)
19731 ENDIF
19732 model_config_rec%moad_time_step_ratio(id_id) = moad_time_step_ratio
19733 RETURN
19734 END SUBROUTINE nl_set_moad_time_step_ratio
19735 SUBROUTINE nl_set_shw ( id_id , shw )
19736 integer , INTENT(IN) :: shw
19737 INTEGER id_id
19738 CHARACTER*80 emess
19739 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19740 WRITE(emess,*)'nl_set_shw: Out of range domain number: ',id_id
19741 CALL wrf_error_fatal(emess)
19742 ENDIF
19743 model_config_rec%shw(id_id) = shw
19744 RETURN
19745 END SUBROUTINE nl_set_shw
19746 SUBROUTINE nl_set_tile_sz_x ( id_id , tile_sz_x )
19747 integer , INTENT(IN) :: tile_sz_x
19748 INTEGER id_id
19749 CHARACTER*80 emess
19750 IF ( id_id .NE. 1 ) THEN
19751 call wrf_debug(1,&
19752 'WARNING in nl_set_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
19753 ENDIF
19754 model_config_rec%tile_sz_x = tile_sz_x
19755 RETURN
19756 END SUBROUTINE nl_set_tile_sz_x
19757 SUBROUTINE nl_set_tile_sz_y ( id_id , tile_sz_y )
19758 integer , INTENT(IN) :: tile_sz_y
19759 INTEGER id_id
19760 CHARACTER*80 emess
19761 IF ( id_id .NE. 1 ) THEN
19762 call wrf_debug(1,&
19763 'WARNING in nl_set_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
19764 ENDIF
19765 model_config_rec%tile_sz_y = tile_sz_y
19766 RETURN
19767 END SUBROUTINE nl_set_tile_sz_y
19768 SUBROUTINE nl_set_numtiles ( id_id , numtiles )
19769 integer , INTENT(IN) :: numtiles
19770 INTEGER id_id
19771 CHARACTER*80 emess
19772 IF ( id_id .NE. 1 ) THEN
19773 call wrf_debug(1,&
19774 'WARNING in nl_set_numtiles: numtiles applies to all domains. First arg ignored.')
19775 ENDIF
19776 model_config_rec%numtiles = numtiles
19777 RETURN
19778 END SUBROUTINE nl_set_numtiles
19779 SUBROUTINE nl_set_nproc_x ( id_id , nproc_x )
19780 integer , INTENT(IN) :: nproc_x
19781 INTEGER id_id
19782 CHARACTER*80 emess
19783 IF ( id_id .NE. 1 ) THEN
19784 call wrf_debug(1,&
19785 'WARNING in nl_set_nproc_x: nproc_x applies to all domains. First arg ignored.')
19786 ENDIF
19787 model_config_rec%nproc_x = nproc_x
19788 RETURN
19789 END SUBROUTINE nl_set_nproc_x
19790 SUBROUTINE nl_set_nproc_y ( id_id , nproc_y )
19791 integer , INTENT(IN) :: nproc_y
19792 INTEGER id_id
19793 CHARACTER*80 emess
19794 IF ( id_id .NE. 1 ) THEN
19795 call wrf_debug(1,&
19796 'WARNING in nl_set_nproc_y: nproc_y applies to all domains. First arg ignored.')
19797 ENDIF
19798 model_config_rec%nproc_y = nproc_y
19799 RETURN
19800 END SUBROUTINE nl_set_nproc_y
19801 SUBROUTINE nl_set_irand ( id_id , irand )
19802 integer , INTENT(IN) :: irand
19803 INTEGER id_id
19804 CHARACTER*80 emess
19805 IF ( id_id .NE. 1 ) THEN
19806 call wrf_debug(1,&
19807 'WARNING in nl_set_irand: irand applies to all domains. First arg ignored.')
19808 ENDIF
19809 model_config_rec%irand = irand
19810 RETURN
19811 END SUBROUTINE nl_set_irand
19812 SUBROUTINE nl_set_dt ( id_id , dt )
19813 real , INTENT(IN) :: dt
19814 INTEGER id_id
19815 CHARACTER*80 emess
19816 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19817 WRITE(emess,*)'nl_set_dt: Out of range domain number: ',id_id
19818 CALL wrf_error_fatal(emess)
19819 ENDIF
19820 model_config_rec%dt(id_id) = dt
19821 RETURN
19822 END SUBROUTINE nl_set_dt
19823 SUBROUTINE nl_set_num_moves ( id_id , num_moves )
19824 integer , INTENT(IN) :: num_moves
19825 INTEGER id_id
19826 CHARACTER*80 emess
19827 IF ( id_id .NE. 1 ) THEN
19828 call wrf_debug(1,&
19829 'WARNING in nl_set_num_moves: num_moves applies to all domains. First arg ignored.')
19830 ENDIF
19831 model_config_rec%num_moves = num_moves
19832 RETURN
19833 END SUBROUTINE nl_set_num_moves
19834 SUBROUTINE nl_set_vortex_interval ( id_id , vortex_interval )
19835 integer , INTENT(IN) :: vortex_interval
19836 INTEGER id_id
19837 CHARACTER*80 emess
19838 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19839 WRITE(emess,*)'nl_set_vortex_interval: Out of range domain number: ',id_id
19840 CALL wrf_error_fatal(emess)
19841 ENDIF
19842 model_config_rec%vortex_interval(id_id) = vortex_interval
19843 RETURN
19844 END SUBROUTINE nl_set_vortex_interval
19845 SUBROUTINE nl_set_max_vortex_speed ( id_id , max_vortex_speed )
19846 integer , INTENT(IN) :: max_vortex_speed
19847 INTEGER id_id
19848 CHARACTER*80 emess
19849 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19850 WRITE(emess,*)'nl_set_max_vortex_speed: Out of range domain number: ',id_id
19851 CALL wrf_error_fatal(emess)
19852 ENDIF
19853 model_config_rec%max_vortex_speed(id_id) = max_vortex_speed
19854 RETURN
19855 END SUBROUTINE nl_set_max_vortex_speed
19856 SUBROUTINE nl_set_corral_dist ( id_id , corral_dist )
19857 integer , INTENT(IN) :: corral_dist
19858 INTEGER id_id
19859 CHARACTER*80 emess
19860 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19861 WRITE(emess,*)'nl_set_corral_dist: Out of range domain number: ',id_id
19862 CALL wrf_error_fatal(emess)
19863 ENDIF
19864 model_config_rec%corral_dist(id_id) = corral_dist
19865 RETURN
19866 END SUBROUTINE nl_set_corral_dist
19867 SUBROUTINE nl_set_move_id ( id_id , move_id )
19868 integer , INTENT(IN) :: move_id
19869 INTEGER id_id
19870 CHARACTER*80 emess
19871 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19872 WRITE(emess,*)'nl_set_move_id: Out of range move number: ',id_id
19873 CALL wrf_error_fatal(emess)
19874 ENDIF
19875 model_config_rec%move_id(id_id) = move_id
19876 RETURN
19877 END SUBROUTINE nl_set_move_id
19878 SUBROUTINE nl_set_move_interval ( id_id , move_interval )
19879 integer , INTENT(IN) :: move_interval
19880 INTEGER id_id
19881 CHARACTER*80 emess
19882 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19883 WRITE(emess,*)'nl_set_move_interval: Out of range move number: ',id_id
19884 CALL wrf_error_fatal(emess)
19885 ENDIF
19886 model_config_rec%move_interval(id_id) = move_interval
19887 RETURN
19888 END SUBROUTINE nl_set_move_interval
19889 SUBROUTINE nl_set_move_cd_x ( id_id , move_cd_x )
19890 integer , INTENT(IN) :: move_cd_x
19891 INTEGER id_id
19892 CHARACTER*80 emess
19893 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19894 WRITE(emess,*)'nl_set_move_cd_x: Out of range move number: ',id_id
19895 CALL wrf_error_fatal(emess)
19896 ENDIF
19897 model_config_rec%move_cd_x(id_id) = move_cd_x
19898 RETURN
19899 END SUBROUTINE nl_set_move_cd_x
19900 SUBROUTINE nl_set_move_cd_y ( id_id , move_cd_y )
19901 integer , INTENT(IN) :: move_cd_y
19902 INTEGER id_id
19903 CHARACTER*80 emess
19904 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19905 WRITE(emess,*)'nl_set_move_cd_y: Out of range move number: ',id_id
19906 CALL wrf_error_fatal(emess)
19907 ENDIF
19908 model_config_rec%move_cd_y(id_id) = move_cd_y
19909 RETURN
19910 END SUBROUTINE nl_set_move_cd_y
19911 SUBROUTINE nl_set_swap_x ( id_id , swap_x )
19912 logical , INTENT(IN) :: swap_x
19913 INTEGER id_id
19914 CHARACTER*80 emess
19915 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19916 WRITE(emess,*)'nl_set_swap_x: Out of range domain number: ',id_id
19917 CALL wrf_error_fatal(emess)
19918 ENDIF
19919 model_config_rec%swap_x(id_id) = swap_x
19920 RETURN
19921 END SUBROUTINE nl_set_swap_x
19922 SUBROUTINE nl_set_swap_y ( id_id , swap_y )
19923 logical , INTENT(IN) :: swap_y
19924 INTEGER id_id
19925 CHARACTER*80 emess
19926 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19927 WRITE(emess,*)'nl_set_swap_y: Out of range domain number: ',id_id
19928 CALL wrf_error_fatal(emess)
19929 ENDIF
19930 model_config_rec%swap_y(id_id) = swap_y
19931 RETURN
19932 END SUBROUTINE nl_set_swap_y
19933 SUBROUTINE nl_set_cycle_x ( id_id , cycle_x )
19934 logical , INTENT(IN) :: cycle_x
19935 INTEGER id_id
19936 CHARACTER*80 emess
19937 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19938 WRITE(emess,*)'nl_set_cycle_x: Out of range domain number: ',id_id
19939 CALL wrf_error_fatal(emess)
19940 ENDIF
19941 model_config_rec%cycle_x(id_id) = cycle_x
19942 RETURN
19943 END SUBROUTINE nl_set_cycle_x
19944 SUBROUTINE nl_set_cycle_y ( id_id , cycle_y )
19945 logical , INTENT(IN) :: cycle_y
19946 INTEGER id_id
19947 CHARACTER*80 emess
19948 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19949 WRITE(emess,*)'nl_set_cycle_y: Out of range domain number: ',id_id
19950 CALL wrf_error_fatal(emess)
19951 ENDIF
19952 model_config_rec%cycle_y(id_id) = cycle_y
19953 RETURN
19954 END SUBROUTINE nl_set_cycle_y
19955 SUBROUTINE nl_set_reorder_mesh ( id_id , reorder_mesh )
19956 logical , INTENT(IN) :: reorder_mesh
19957 INTEGER id_id
19958 CHARACTER*80 emess
19959 IF ( id_id .NE. 1 ) THEN
19960 call wrf_debug(1,&
19961 'WARNING in nl_set_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
19962 ENDIF
19963 model_config_rec%reorder_mesh = reorder_mesh
19964 RETURN
19965 END SUBROUTINE nl_set_reorder_mesh
19966 SUBROUTINE nl_set_perturb_input ( id_id , perturb_input )
19967 logical , INTENT(IN) :: perturb_input
19968 INTEGER id_id
19969 CHARACTER*80 emess
19970 IF ( id_id .NE. 1 ) THEN
19971 call wrf_debug(1,&
19972 'WARNING in nl_set_perturb_input: perturb_input applies to all domains. First arg ignored.')
19973 ENDIF
19974 model_config_rec%perturb_input = perturb_input
19975 RETURN
19976 END SUBROUTINE nl_set_perturb_input
19977 SUBROUTINE nl_set_eta_levels ( id_id , eta_levels )
19978 real , INTENT(IN) :: eta_levels
19979 INTEGER id_id
19980 CHARACTER*80 emess
19981 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
19982 WRITE(emess,*)'nl_set_eta_levels: Out of range eta_level number: ',id_id
19983 CALL wrf_error_fatal(emess)
19984 ENDIF
19985 model_config_rec%eta_levels(id_id) = eta_levels
19986 RETURN
19987 END SUBROUTINE nl_set_eta_levels
19988 SUBROUTINE nl_set_max_dz ( id_id , max_dz )
19989 real , INTENT(IN) :: max_dz
19990 INTEGER id_id
19991 CHARACTER*80 emess
19992 IF ( id_id .NE. 1 ) THEN
19993 call wrf_debug(1,&
19994 'WARNING in nl_set_max_dz: max_dz applies to all domains. First arg ignored.')
19995 ENDIF
19996 model_config_rec%max_dz = max_dz
19997 RETURN
19998 END SUBROUTINE nl_set_max_dz
19999 SUBROUTINE nl_set_mp_physics ( id_id , mp_physics )
20000 integer , INTENT(IN) :: mp_physics
20001 INTEGER id_id
20002 CHARACTER*80 emess
20003 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20004 WRITE(emess,*)'nl_set_mp_physics: Out of range domain number: ',id_id
20005 CALL wrf_error_fatal(emess)
20006 ENDIF
20007 model_config_rec%mp_physics(id_id) = mp_physics
20008 RETURN
20009 END SUBROUTINE nl_set_mp_physics
20010 SUBROUTINE nl_set_ra_lw_physics ( id_id , ra_lw_physics )
20011 integer , INTENT(IN) :: ra_lw_physics
20012 INTEGER id_id
20013 CHARACTER*80 emess
20014 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20015 WRITE(emess,*)'nl_set_ra_lw_physics: Out of range domain number: ',id_id
20016 CALL wrf_error_fatal(emess)
20017 ENDIF
20018 model_config_rec%ra_lw_physics(id_id) = ra_lw_physics
20019 RETURN
20020 END SUBROUTINE nl_set_ra_lw_physics
20021 SUBROUTINE nl_set_ra_sw_physics ( id_id , ra_sw_physics )
20022 integer , INTENT(IN) :: ra_sw_physics
20023 INTEGER id_id
20024 CHARACTER*80 emess
20025 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20026 WRITE(emess,*)'nl_set_ra_sw_physics: Out of range domain number: ',id_id
20027 CALL wrf_error_fatal(emess)
20028 ENDIF
20029 model_config_rec%ra_sw_physics(id_id) = ra_sw_physics
20030 RETURN
20031 END SUBROUTINE nl_set_ra_sw_physics
20032 SUBROUTINE nl_set_radt ( id_id , radt )
20033 real , INTENT(IN) :: radt
20034 INTEGER id_id
20035 CHARACTER*80 emess
20036 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20037 WRITE(emess,*)'nl_set_radt: Out of range domain number: ',id_id
20038 CALL wrf_error_fatal(emess)
20039 ENDIF
20040 model_config_rec%radt(id_id) = radt
20041 RETURN
20042 END SUBROUTINE nl_set_radt
20043 SUBROUTINE nl_set_sf_sfclay_physics ( id_id , sf_sfclay_physics )
20044 integer , INTENT(IN) :: sf_sfclay_physics
20045 INTEGER id_id
20046 CHARACTER*80 emess
20047 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20048 WRITE(emess,*)'nl_set_sf_sfclay_physics: Out of range domain number: ',id_id
20049 CALL wrf_error_fatal(emess)
20050 ENDIF
20051 model_config_rec%sf_sfclay_physics(id_id) = sf_sfclay_physics
20052 RETURN
20053 END SUBROUTINE nl_set_sf_sfclay_physics
20054 SUBROUTINE nl_set_sf_surface_physics ( id_id , sf_surface_physics )
20055 integer , INTENT(IN) :: sf_surface_physics
20056 INTEGER id_id
20057 CHARACTER*80 emess
20058 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20059 WRITE(emess,*)'nl_set_sf_surface_physics: Out of range domain number: ',id_id
20060 CALL wrf_error_fatal(emess)
20061 ENDIF
20062 model_config_rec%sf_surface_physics(id_id) = sf_surface_physics
20063 RETURN
20064 END SUBROUTINE nl_set_sf_surface_physics
20065 SUBROUTINE nl_set_bl_pbl_physics ( id_id , bl_pbl_physics )
20066 integer , INTENT(IN) :: bl_pbl_physics
20067 INTEGER id_id
20068 CHARACTER*80 emess
20069 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20070 WRITE(emess,*)'nl_set_bl_pbl_physics: Out of range domain number: ',id_id
20071 CALL wrf_error_fatal(emess)
20072 ENDIF
20073 model_config_rec%bl_pbl_physics(id_id) = bl_pbl_physics
20074 RETURN
20075 END SUBROUTINE nl_set_bl_pbl_physics
20076 SUBROUTINE nl_set_bldt ( id_id , bldt )
20077 real , INTENT(IN) :: bldt
20078 INTEGER id_id
20079 CHARACTER*80 emess
20080 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20081 WRITE(emess,*)'nl_set_bldt: Out of range domain number: ',id_id
20082 CALL wrf_error_fatal(emess)
20083 ENDIF
20084 model_config_rec%bldt(id_id) = bldt
20085 RETURN
20086 END SUBROUTINE nl_set_bldt
20087 SUBROUTINE nl_set_cu_physics ( id_id , cu_physics )
20088 integer , INTENT(IN) :: cu_physics
20089 INTEGER id_id
20090 CHARACTER*80 emess
20091 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20092 WRITE(emess,*)'nl_set_cu_physics: Out of range domain number: ',id_id
20093 CALL wrf_error_fatal(emess)
20094 ENDIF
20095 model_config_rec%cu_physics(id_id) = cu_physics
20096 RETURN
20097 END SUBROUTINE nl_set_cu_physics
20098 SUBROUTINE nl_set_cudt ( id_id , cudt )
20099 real , INTENT(IN) :: cudt
20100 INTEGER id_id
20101 CHARACTER*80 emess
20102 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20103 WRITE(emess,*)'nl_set_cudt: Out of range domain number: ',id_id
20104 CALL wrf_error_fatal(emess)
20105 ENDIF
20106 model_config_rec%cudt(id_id) = cudt
20107 RETURN
20108 END SUBROUTINE nl_set_cudt
20109 SUBROUTINE nl_set_gsmdt ( id_id , gsmdt )
20110 real , INTENT(IN) :: gsmdt
20111 INTEGER id_id
20112 CHARACTER*80 emess
20113 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20114 WRITE(emess,*)'nl_set_gsmdt: Out of range domain number: ',id_id
20115 CALL wrf_error_fatal(emess)
20116 ENDIF
20117 model_config_rec%gsmdt(id_id) = gsmdt
20118 RETURN
20119 END SUBROUTINE nl_set_gsmdt
20120 SUBROUTINE nl_set_isfflx ( id_id , isfflx )
20121 integer , INTENT(IN) :: isfflx
20122 INTEGER id_id
20123 CHARACTER*80 emess
20124 IF ( id_id .NE. 1 ) THEN
20125 call wrf_debug(1,&
20126 'WARNING in nl_set_isfflx: isfflx applies to all domains. First arg ignored.')
20127 ENDIF
20128 model_config_rec%isfflx = isfflx
20129 RETURN
20130 END SUBROUTINE nl_set_isfflx
20131 SUBROUTINE nl_set_ifsnow ( id_id , ifsnow )
20132 integer , INTENT(IN) :: ifsnow
20133 INTEGER id_id
20134 CHARACTER*80 emess
20135 IF ( id_id .NE. 1 ) THEN
20136 call wrf_debug(1,&
20137 'WARNING in nl_set_ifsnow: ifsnow applies to all domains. First arg ignored.')
20138 ENDIF
20139 model_config_rec%ifsnow = ifsnow
20140 RETURN
20141 END SUBROUTINE nl_set_ifsnow
20142 SUBROUTINE nl_set_icloud ( id_id , icloud )
20143 integer , INTENT(IN) :: icloud
20144 INTEGER id_id
20145 CHARACTER*80 emess
20146 IF ( id_id .NE. 1 ) THEN
20147 call wrf_debug(1,&
20148 'WARNING in nl_set_icloud: icloud applies to all domains. First arg ignored.')
20149 ENDIF
20150 model_config_rec%icloud = icloud
20151 RETURN
20152 END SUBROUTINE nl_set_icloud
20153 SUBROUTINE nl_set_swrad_scat ( id_id , swrad_scat )
20154 real , INTENT(IN) :: swrad_scat
20155 INTEGER id_id
20156 CHARACTER*80 emess
20157 IF ( id_id .NE. 1 ) THEN
20158 call wrf_debug(1,&
20159 'WARNING in nl_set_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
20160 ENDIF
20161 model_config_rec%swrad_scat = swrad_scat
20162 RETURN
20163 END SUBROUTINE nl_set_swrad_scat
20164 SUBROUTINE nl_set_surface_input_source ( id_id , surface_input_source )
20165 integer , INTENT(IN) :: surface_input_source
20166 INTEGER id_id
20167 CHARACTER*80 emess
20168 IF ( id_id .NE. 1 ) THEN
20169 call wrf_debug(1,&
20170 'WARNING in nl_set_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
20171 ENDIF
20172 model_config_rec%surface_input_source = surface_input_source
20173 RETURN
20174 END SUBROUTINE nl_set_surface_input_source
20175 SUBROUTINE nl_set_num_soil_layers ( id_id , num_soil_layers )
20176 integer , INTENT(IN) :: num_soil_layers
20177 INTEGER id_id
20178 CHARACTER*80 emess
20179 IF ( id_id .NE. 1 ) THEN
20180 call wrf_debug(1,&
20181 'WARNING in nl_set_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
20182 ENDIF
20183 model_config_rec%num_soil_layers = num_soil_layers
20184 RETURN
20185 END SUBROUTINE nl_set_num_soil_layers
20186 SUBROUTINE nl_set_num_months ( id_id , num_months )
20187 integer , INTENT(IN) :: num_months
20188 INTEGER id_id
20189 CHARACTER*80 emess
20190 IF ( id_id .NE. 1 ) THEN
20191 call wrf_debug(1,&
20192 'WARNING in nl_set_num_months: num_months applies to all domains. First arg ignored.')
20193 ENDIF
20194 model_config_rec%num_months = num_months
20195 RETURN
20196 END SUBROUTINE nl_set_num_months
20197 SUBROUTINE nl_set_maxiens ( id_id , maxiens )
20198 integer , INTENT(IN) :: maxiens
20199 INTEGER id_id
20200 CHARACTER*80 emess
20201 IF ( id_id .NE. 1 ) THEN
20202 call wrf_debug(1,&
20203 'WARNING in nl_set_maxiens: maxiens applies to all domains. First arg ignored.')
20204 ENDIF
20205 model_config_rec%maxiens = maxiens
20206 RETURN
20207 END SUBROUTINE nl_set_maxiens
20208 SUBROUTINE nl_set_maxens ( id_id , maxens )
20209 integer , INTENT(IN) :: maxens
20210 INTEGER id_id
20211 CHARACTER*80 emess
20212 IF ( id_id .NE. 1 ) THEN
20213 call wrf_debug(1,&
20214 'WARNING in nl_set_maxens: maxens applies to all domains. First arg ignored.')
20215 ENDIF
20216 model_config_rec%maxens = maxens
20217 RETURN
20218 END SUBROUTINE nl_set_maxens
20219 SUBROUTINE nl_set_maxens2 ( id_id , maxens2 )
20220 integer , INTENT(IN) :: maxens2
20221 INTEGER id_id
20222 CHARACTER*80 emess
20223 IF ( id_id .NE. 1 ) THEN
20224 call wrf_debug(1,&
20225 'WARNING in nl_set_maxens2: maxens2 applies to all domains. First arg ignored.')
20226 ENDIF
20227 model_config_rec%maxens2 = maxens2
20228 RETURN
20229 END SUBROUTINE nl_set_maxens2
20230 SUBROUTINE nl_set_maxens3 ( id_id , maxens3 )
20231 integer , INTENT(IN) :: maxens3
20232 INTEGER id_id
20233 CHARACTER*80 emess
20234 IF ( id_id .NE. 1 ) THEN
20235 call wrf_debug(1,&
20236 'WARNING in nl_set_maxens3: maxens3 applies to all domains. First arg ignored.')
20237 ENDIF
20238 model_config_rec%maxens3 = maxens3
20239 RETURN
20240 END SUBROUTINE nl_set_maxens3
20241 SUBROUTINE nl_set_ensdim ( id_id , ensdim )
20242 integer , INTENT(IN) :: ensdim
20243 INTEGER id_id
20244 CHARACTER*80 emess
20245 IF ( id_id .NE. 1 ) THEN
20246 call wrf_debug(1,&
20247 'WARNING in nl_set_ensdim: ensdim applies to all domains. First arg ignored.')
20248 ENDIF
20249 model_config_rec%ensdim = ensdim
20250 RETURN
20251 END SUBROUTINE nl_set_ensdim
20252 SUBROUTINE nl_set_chem_opt ( id_id , chem_opt )
20253 integer , INTENT(IN) :: chem_opt
20254 INTEGER id_id
20255 CHARACTER*80 emess
20256 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20257 WRITE(emess,*)'nl_set_chem_opt: Out of range domain number: ',id_id
20258 CALL wrf_error_fatal(emess)
20259 ENDIF
20260 model_config_rec%chem_opt(id_id) = chem_opt
20261 RETURN
20262 END SUBROUTINE nl_set_chem_opt
20263 SUBROUTINE nl_set_num_land_cat ( id_id , num_land_cat )
20264 integer , INTENT(IN) :: num_land_cat
20265 INTEGER id_id
20266 CHARACTER*80 emess
20267 IF ( id_id .NE. 1 ) THEN
20268 call wrf_debug(1,&
20269 'WARNING in nl_set_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
20270 ENDIF
20271 model_config_rec%num_land_cat = num_land_cat
20272 RETURN
20273 END SUBROUTINE nl_set_num_land_cat
20274 SUBROUTINE nl_set_num_soil_cat ( id_id , num_soil_cat )
20275 integer , INTENT(IN) :: num_soil_cat
20276 INTEGER id_id
20277 CHARACTER*80 emess
20278 IF ( id_id .NE. 1 ) THEN
20279 call wrf_debug(1,&
20280 'WARNING in nl_set_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
20281 ENDIF
20282 model_config_rec%num_soil_cat = num_soil_cat
20283 RETURN
20284 END SUBROUTINE nl_set_num_soil_cat
20285 SUBROUTINE nl_set_mp_zero_out ( id_id , mp_zero_out )
20286 integer , INTENT(IN) :: mp_zero_out
20287 INTEGER id_id
20288 CHARACTER*80 emess
20289 IF ( id_id .NE. 1 ) THEN
20290 call wrf_debug(1,&
20291 'WARNING in nl_set_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
20292 ENDIF
20293 model_config_rec%mp_zero_out = mp_zero_out
20294 RETURN
20295 END SUBROUTINE nl_set_mp_zero_out
20296 SUBROUTINE nl_set_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
20297 real , INTENT(IN) :: mp_zero_out_thresh
20298 INTEGER id_id
20299 CHARACTER*80 emess
20300 IF ( id_id .NE. 1 ) THEN
20301 call wrf_debug(1,&
20302 'WARNING in nl_set_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
20303 ENDIF
20304 model_config_rec%mp_zero_out_thresh = mp_zero_out_thresh
20305 RETURN
20306 END SUBROUTINE nl_set_mp_zero_out_thresh
20307 SUBROUTINE nl_set_seaice_threshold ( id_id , seaice_threshold )
20308 real , INTENT(IN) :: seaice_threshold
20309 INTEGER id_id
20310 CHARACTER*80 emess
20311 IF ( id_id .NE. 1 ) THEN
20312 call wrf_debug(1,&
20313 'WARNING in nl_set_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
20314 ENDIF
20315 model_config_rec%seaice_threshold = seaice_threshold
20316 RETURN
20317 END SUBROUTINE nl_set_seaice_threshold
20318 SUBROUTINE nl_set_sst_update ( id_id , sst_update )
20319 integer , INTENT(IN) :: sst_update
20320 INTEGER id_id
20321 CHARACTER*80 emess
20322 IF ( id_id .NE. 1 ) THEN
20323 call wrf_debug(1,&
20324 'WARNING in nl_set_sst_update: sst_update applies to all domains. First arg ignored.')
20325 ENDIF
20326 model_config_rec%sst_update = sst_update
20327 RETURN
20328 END SUBROUTINE nl_set_sst_update
20329 SUBROUTINE nl_set_ucmcall ( id_id , ucmcall )
20330 integer , INTENT(IN) :: ucmcall
20331 INTEGER id_id
20332 CHARACTER*80 emess
20333 IF ( id_id .NE. 1 ) THEN
20334 call wrf_debug(1,&
20335 'WARNING in nl_set_ucmcall: ucmcall applies to all domains. First arg ignored.')
20336 ENDIF
20337 model_config_rec%ucmcall = ucmcall
20338 RETURN
20339 END SUBROUTINE nl_set_ucmcall
20340 SUBROUTINE nl_set_co2tf ( id_id , co2tf )
20341 integer , INTENT(IN) :: co2tf
20342 INTEGER id_id
20343 CHARACTER*80 emess
20344 IF ( id_id .NE. 1 ) THEN
20345 call wrf_debug(1,&
20346 'WARNING in nl_set_co2tf: co2tf applies to all domains. First arg ignored.')
20347 ENDIF
20348 model_config_rec%co2tf = co2tf
20349 RETURN
20350 END SUBROUTINE nl_set_co2tf
20351 SUBROUTINE nl_set_ra_call_offset ( id_id , ra_call_offset )
20352 integer , INTENT(IN) :: ra_call_offset
20353 INTEGER id_id
20354 CHARACTER*80 emess
20355 IF ( id_id .NE. 1 ) THEN
20356 call wrf_debug(1,&
20357 'WARNING in nl_set_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
20358 ENDIF
20359 model_config_rec%ra_call_offset = ra_call_offset
20360 RETURN
20361 END SUBROUTINE nl_set_ra_call_offset
20362 SUBROUTINE nl_set_cam_abs_freq_s ( id_id , cam_abs_freq_s )
20363 real , INTENT(IN) :: cam_abs_freq_s
20364 INTEGER id_id
20365 CHARACTER*80 emess
20366 IF ( id_id .NE. 1 ) THEN
20367 call wrf_debug(1,&
20368 'WARNING in nl_set_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
20369 ENDIF
20370 model_config_rec%cam_abs_freq_s = cam_abs_freq_s
20371 RETURN
20372 END SUBROUTINE nl_set_cam_abs_freq_s
20373 SUBROUTINE nl_set_levsiz ( id_id , levsiz )
20374 integer , INTENT(IN) :: levsiz
20375 INTEGER id_id
20376 CHARACTER*80 emess
20377 IF ( id_id .NE. 1 ) THEN
20378 call wrf_debug(1,&
20379 'WARNING in nl_set_levsiz: levsiz applies to all domains. First arg ignored.')
20380 ENDIF
20381 model_config_rec%levsiz = levsiz
20382 RETURN
20383 END SUBROUTINE nl_set_levsiz
20384 SUBROUTINE nl_set_paerlev ( id_id , paerlev )
20385 integer , INTENT(IN) :: paerlev
20386 INTEGER id_id
20387 CHARACTER*80 emess
20388 IF ( id_id .NE. 1 ) THEN
20389 call wrf_debug(1,&
20390 'WARNING in nl_set_paerlev: paerlev applies to all domains. First arg ignored.')
20391 ENDIF
20392 model_config_rec%paerlev = paerlev
20393 RETURN
20394 END SUBROUTINE nl_set_paerlev
20395 SUBROUTINE nl_set_cam_abs_dim1 ( id_id , cam_abs_dim1 )
20396 integer , INTENT(IN) :: cam_abs_dim1
20397 INTEGER id_id
20398 CHARACTER*80 emess
20399 IF ( id_id .NE. 1 ) THEN
20400 call wrf_debug(1,&
20401 'WARNING in nl_set_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
20402 ENDIF
20403 model_config_rec%cam_abs_dim1 = cam_abs_dim1
20404 RETURN
20405 END SUBROUTINE nl_set_cam_abs_dim1
20406 SUBROUTINE nl_set_cam_abs_dim2 ( id_id , cam_abs_dim2 )
20407 integer , INTENT(IN) :: cam_abs_dim2
20408 INTEGER id_id
20409 CHARACTER*80 emess
20410 IF ( id_id .NE. 1 ) THEN
20411 call wrf_debug(1,&
20412 'WARNING in nl_set_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
20413 ENDIF
20414 model_config_rec%cam_abs_dim2 = cam_abs_dim2
20415 RETURN
20416 END SUBROUTINE nl_set_cam_abs_dim2
20417 SUBROUTINE nl_set_fgdt ( id_id , fgdt )
20418 real , INTENT(IN) :: fgdt
20419 INTEGER id_id
20420 CHARACTER*80 emess
20421 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20422 WRITE(emess,*)'nl_set_fgdt: Out of range domain number: ',id_id
20423 CALL wrf_error_fatal(emess)
20424 ENDIF
20425 model_config_rec%fgdt(id_id) = fgdt
20426 RETURN
20427 END SUBROUTINE nl_set_fgdt
20428 SUBROUTINE nl_set_grid_fdda ( id_id , grid_fdda )
20429 integer , INTENT(IN) :: grid_fdda
20430 INTEGER id_id
20431 CHARACTER*80 emess
20432 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20433 WRITE(emess,*)'nl_set_grid_fdda: Out of range domain number: ',id_id
20434 CALL wrf_error_fatal(emess)
20435 ENDIF
20436 model_config_rec%grid_fdda(id_id) = grid_fdda
20437 RETURN
20438 END SUBROUTINE nl_set_grid_fdda
20439 SUBROUTINE nl_set_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
20440 integer , INTENT(IN) :: if_no_pbl_nudging_uv
20441 INTEGER id_id
20442 CHARACTER*80 emess
20443 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20444 WRITE(emess,*)'nl_set_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
20445 CALL wrf_error_fatal(emess)
20446 ENDIF
20447 model_config_rec%if_no_pbl_nudging_uv(id_id) = if_no_pbl_nudging_uv
20448 RETURN
20449 END SUBROUTINE nl_set_if_no_pbl_nudging_uv
20450 SUBROUTINE nl_set_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
20451 integer , INTENT(IN) :: if_no_pbl_nudging_t
20452 INTEGER id_id
20453 CHARACTER*80 emess
20454 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20455 WRITE(emess,*)'nl_set_if_no_pbl_nudging_t: Out of range domain number: ',id_id
20456 CALL wrf_error_fatal(emess)
20457 ENDIF
20458 model_config_rec%if_no_pbl_nudging_t(id_id) = if_no_pbl_nudging_t
20459 RETURN
20460 END SUBROUTINE nl_set_if_no_pbl_nudging_t
20461 SUBROUTINE nl_set_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
20462 integer , INTENT(IN) :: if_no_pbl_nudging_q
20463 INTEGER id_id
20464 CHARACTER*80 emess
20465 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20466 WRITE(emess,*)'nl_set_if_no_pbl_nudging_q: Out of range domain number: ',id_id
20467 CALL wrf_error_fatal(emess)
20468 ENDIF
20469 model_config_rec%if_no_pbl_nudging_q(id_id) = if_no_pbl_nudging_q
20470 RETURN
20471 END SUBROUTINE nl_set_if_no_pbl_nudging_q
20472 SUBROUTINE nl_set_if_zfac_uv ( id_id , if_zfac_uv )
20473 integer , INTENT(IN) :: if_zfac_uv
20474 INTEGER id_id
20475 CHARACTER*80 emess
20476 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20477 WRITE(emess,*)'nl_set_if_zfac_uv: Out of range domain number: ',id_id
20478 CALL wrf_error_fatal(emess)
20479 ENDIF
20480 model_config_rec%if_zfac_uv(id_id) = if_zfac_uv
20481 RETURN
20482 END SUBROUTINE nl_set_if_zfac_uv
20483 SUBROUTINE nl_set_k_zfac_uv ( id_id , k_zfac_uv )
20484 integer , INTENT(IN) :: k_zfac_uv
20485 INTEGER id_id
20486 CHARACTER*80 emess
20487 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20488 WRITE(emess,*)'nl_set_k_zfac_uv: Out of range domain number: ',id_id
20489 CALL wrf_error_fatal(emess)
20490 ENDIF
20491 model_config_rec%k_zfac_uv(id_id) = k_zfac_uv
20492 RETURN
20493 END SUBROUTINE nl_set_k_zfac_uv
20494 SUBROUTINE nl_set_if_zfac_t ( id_id , if_zfac_t )
20495 integer , INTENT(IN) :: if_zfac_t
20496 INTEGER id_id
20497 CHARACTER*80 emess
20498 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20499 WRITE(emess,*)'nl_set_if_zfac_t: Out of range domain number: ',id_id
20500 CALL wrf_error_fatal(emess)
20501 ENDIF
20502 model_config_rec%if_zfac_t(id_id) = if_zfac_t
20503 RETURN
20504 END SUBROUTINE nl_set_if_zfac_t
20505 SUBROUTINE nl_set_k_zfac_t ( id_id , k_zfac_t )
20506 integer , INTENT(IN) :: k_zfac_t
20507 INTEGER id_id
20508 CHARACTER*80 emess
20509 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20510 WRITE(emess,*)'nl_set_k_zfac_t: Out of range domain number: ',id_id
20511 CALL wrf_error_fatal(emess)
20512 ENDIF
20513 model_config_rec%k_zfac_t(id_id) = k_zfac_t
20514 RETURN
20515 END SUBROUTINE nl_set_k_zfac_t
20516 SUBROUTINE nl_set_if_zfac_q ( id_id , if_zfac_q )
20517 integer , INTENT(IN) :: if_zfac_q
20518 INTEGER id_id
20519 CHARACTER*80 emess
20520 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20521 WRITE(emess,*)'nl_set_if_zfac_q: Out of range domain number: ',id_id
20522 CALL wrf_error_fatal(emess)
20523 ENDIF
20524 model_config_rec%if_zfac_q(id_id) = if_zfac_q
20525 RETURN
20526 END SUBROUTINE nl_set_if_zfac_q
20527 SUBROUTINE nl_set_k_zfac_q ( id_id , k_zfac_q )
20528 integer , INTENT(IN) :: k_zfac_q
20529 INTEGER id_id
20530 CHARACTER*80 emess
20531 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20532 WRITE(emess,*)'nl_set_k_zfac_q: Out of range domain number: ',id_id
20533 CALL wrf_error_fatal(emess)
20534 ENDIF
20535 model_config_rec%k_zfac_q(id_id) = k_zfac_q
20536 RETURN
20537 END SUBROUTINE nl_set_k_zfac_q
20538 SUBROUTINE nl_set_guv ( id_id , guv )
20539 real , INTENT(IN) :: guv
20540 INTEGER id_id
20541 CHARACTER*80 emess
20542 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20543 WRITE(emess,*)'nl_set_guv: Out of range domain number: ',id_id
20544 CALL wrf_error_fatal(emess)
20545 ENDIF
20546 model_config_rec%guv(id_id) = guv
20547 RETURN
20548 END SUBROUTINE nl_set_guv
20549 SUBROUTINE nl_set_gt ( id_id , gt )
20550 real , INTENT(IN) :: gt
20551 INTEGER id_id
20552 CHARACTER*80 emess
20553 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20554 WRITE(emess,*)'nl_set_gt: Out of range domain number: ',id_id
20555 CALL wrf_error_fatal(emess)
20556 ENDIF
20557 model_config_rec%gt(id_id) = gt
20558 RETURN
20559 END SUBROUTINE nl_set_gt
20560 SUBROUTINE nl_set_gq ( id_id , gq )
20561 real , INTENT(IN) :: gq
20562 INTEGER id_id
20563 CHARACTER*80 emess
20564 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20565 WRITE(emess,*)'nl_set_gq: Out of range domain number: ',id_id
20566 CALL wrf_error_fatal(emess)
20567 ENDIF
20568 model_config_rec%gq(id_id) = gq
20569 RETURN
20570 END SUBROUTINE nl_set_gq
20571 SUBROUTINE nl_set_dtramp_min ( id_id , dtramp_min )
20572 real , INTENT(IN) :: dtramp_min
20573 INTEGER id_id
20574 CHARACTER*80 emess
20575 IF ( id_id .NE. 1 ) THEN
20576 call wrf_debug(1,&
20577 'WARNING in nl_set_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
20578 ENDIF
20579 model_config_rec%dtramp_min = dtramp_min
20580 RETURN
20581 END SUBROUTINE nl_set_dtramp_min
20582 SUBROUTINE nl_set_if_ramping ( id_id , if_ramping )
20583 integer , INTENT(IN) :: if_ramping
20584 INTEGER id_id
20585 CHARACTER*80 emess
20586 IF ( id_id .NE. 1 ) THEN
20587 call wrf_debug(1,&
20588 'WARNING in nl_set_if_ramping: if_ramping applies to all domains. First arg ignored.')
20589 ENDIF
20590 model_config_rec%if_ramping = if_ramping
20591 RETURN
20592 END SUBROUTINE nl_set_if_ramping
20593 SUBROUTINE nl_set_obs_nudge_opt ( id_id , obs_nudge_opt )
20594 integer , INTENT(IN) :: obs_nudge_opt
20595 INTEGER id_id
20596 CHARACTER*80 emess
20597 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20598 WRITE(emess,*)'nl_set_obs_nudge_opt: Out of range domain number: ',id_id
20599 CALL wrf_error_fatal(emess)
20600 ENDIF
20601 model_config_rec%obs_nudge_opt(id_id) = obs_nudge_opt
20602 RETURN
20603 END SUBROUTINE nl_set_obs_nudge_opt
20604 SUBROUTINE nl_set_max_obs ( id_id , max_obs )
20605 integer , INTENT(IN) :: max_obs
20606 INTEGER id_id
20607 CHARACTER*80 emess
20608 IF ( id_id .NE. 1 ) THEN
20609 call wrf_debug(1,&
20610 'WARNING in nl_set_max_obs: max_obs applies to all domains. First arg ignored.')
20611 ENDIF
20612 model_config_rec%max_obs = max_obs
20613 RETURN
20614 END SUBROUTINE nl_set_max_obs
20615 SUBROUTINE nl_set_nobs_ndg_vars ( id_id , nobs_ndg_vars )
20616 integer , INTENT(IN) :: nobs_ndg_vars
20617 INTEGER id_id
20618 CHARACTER*80 emess
20619 IF ( id_id .NE. 1 ) THEN
20620 call wrf_debug(1,&
20621 'WARNING in nl_set_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
20622 ENDIF
20623 model_config_rec%nobs_ndg_vars = nobs_ndg_vars
20624 RETURN
20625 END SUBROUTINE nl_set_nobs_ndg_vars
20626 SUBROUTINE nl_set_nobs_err_flds ( id_id , nobs_err_flds )
20627 integer , INTENT(IN) :: nobs_err_flds
20628 INTEGER id_id
20629 CHARACTER*80 emess
20630 IF ( id_id .NE. 1 ) THEN
20631 call wrf_debug(1,&
20632 'WARNING in nl_set_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
20633 ENDIF
20634 model_config_rec%nobs_err_flds = nobs_err_flds
20635 RETURN
20636 END SUBROUTINE nl_set_nobs_err_flds
20637 SUBROUTINE nl_set_fdda_start ( id_id , fdda_start )
20638 real , INTENT(IN) :: fdda_start
20639 INTEGER id_id
20640 CHARACTER*80 emess
20641 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20642 WRITE(emess,*)'nl_set_fdda_start: Out of range domain number: ',id_id
20643 CALL wrf_error_fatal(emess)
20644 ENDIF
20645 model_config_rec%fdda_start(id_id) = fdda_start
20646 RETURN
20647 END SUBROUTINE nl_set_fdda_start
20648 SUBROUTINE nl_set_fdda_end ( id_id , fdda_end )
20649 real , INTENT(IN) :: fdda_end
20650 INTEGER id_id
20651 CHARACTER*80 emess
20652 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20653 WRITE(emess,*)'nl_set_fdda_end: Out of range domain number: ',id_id
20654 CALL wrf_error_fatal(emess)
20655 ENDIF
20656 model_config_rec%fdda_end(id_id) = fdda_end
20657 RETURN
20658 END SUBROUTINE nl_set_fdda_end
20659 SUBROUTINE nl_set_obs_nudge_wind ( id_id , obs_nudge_wind )
20660 integer , INTENT(IN) :: obs_nudge_wind
20661 INTEGER id_id
20662 CHARACTER*80 emess
20663 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20664 WRITE(emess,*)'nl_set_obs_nudge_wind: Out of range domain number: ',id_id
20665 CALL wrf_error_fatal(emess)
20666 ENDIF
20667 model_config_rec%obs_nudge_wind(id_id) = obs_nudge_wind
20668 RETURN
20669 END SUBROUTINE nl_set_obs_nudge_wind
20670 SUBROUTINE nl_set_obs_coef_wind ( id_id , obs_coef_wind )
20671 real , INTENT(IN) :: obs_coef_wind
20672 INTEGER id_id
20673 CHARACTER*80 emess
20674 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20675 WRITE(emess,*)'nl_set_obs_coef_wind: Out of range domain number: ',id_id
20676 CALL wrf_error_fatal(emess)
20677 ENDIF
20678 model_config_rec%obs_coef_wind(id_id) = obs_coef_wind
20679 RETURN
20680 END SUBROUTINE nl_set_obs_coef_wind
20681 SUBROUTINE nl_set_obs_nudge_temp ( id_id , obs_nudge_temp )
20682 integer , INTENT(IN) :: obs_nudge_temp
20683 INTEGER id_id
20684 CHARACTER*80 emess
20685 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20686 WRITE(emess,*)'nl_set_obs_nudge_temp: Out of range domain number: ',id_id
20687 CALL wrf_error_fatal(emess)
20688 ENDIF
20689 model_config_rec%obs_nudge_temp(id_id) = obs_nudge_temp
20690 RETURN
20691 END SUBROUTINE nl_set_obs_nudge_temp
20692 SUBROUTINE nl_set_obs_coef_temp ( id_id , obs_coef_temp )
20693 real , INTENT(IN) :: obs_coef_temp
20694 INTEGER id_id
20695 CHARACTER*80 emess
20696 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20697 WRITE(emess,*)'nl_set_obs_coef_temp: Out of range domain number: ',id_id
20698 CALL wrf_error_fatal(emess)
20699 ENDIF
20700 model_config_rec%obs_coef_temp(id_id) = obs_coef_temp
20701 RETURN
20702 END SUBROUTINE nl_set_obs_coef_temp
20703 SUBROUTINE nl_set_obs_nudge_mois ( id_id , obs_nudge_mois )
20704 integer , INTENT(IN) :: obs_nudge_mois
20705 INTEGER id_id
20706 CHARACTER*80 emess
20707 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20708 WRITE(emess,*)'nl_set_obs_nudge_mois: Out of range domain number: ',id_id
20709 CALL wrf_error_fatal(emess)
20710 ENDIF
20711 model_config_rec%obs_nudge_mois(id_id) = obs_nudge_mois
20712 RETURN
20713 END SUBROUTINE nl_set_obs_nudge_mois
20714 SUBROUTINE nl_set_obs_coef_mois ( id_id , obs_coef_mois )
20715 real , INTENT(IN) :: obs_coef_mois
20716 INTEGER id_id
20717 CHARACTER*80 emess
20718 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20719 WRITE(emess,*)'nl_set_obs_coef_mois: Out of range domain number: ',id_id
20720 CALL wrf_error_fatal(emess)
20721 ENDIF
20722 model_config_rec%obs_coef_mois(id_id) = obs_coef_mois
20723 RETURN
20724 END SUBROUTINE nl_set_obs_coef_mois
20725 SUBROUTINE nl_set_obs_nudge_pstr ( id_id , obs_nudge_pstr )
20726 integer , INTENT(IN) :: obs_nudge_pstr
20727 INTEGER id_id
20728 CHARACTER*80 emess
20729 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20730 WRITE(emess,*)'nl_set_obs_nudge_pstr: Out of range domain number: ',id_id
20731 CALL wrf_error_fatal(emess)
20732 ENDIF
20733 model_config_rec%obs_nudge_pstr(id_id) = obs_nudge_pstr
20734 RETURN
20735 END SUBROUTINE nl_set_obs_nudge_pstr
20736 SUBROUTINE nl_set_obs_coef_pstr ( id_id , obs_coef_pstr )
20737 real , INTENT(IN) :: obs_coef_pstr
20738 INTEGER id_id
20739 CHARACTER*80 emess
20740 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20741 WRITE(emess,*)'nl_set_obs_coef_pstr: Out of range domain number: ',id_id
20742 CALL wrf_error_fatal(emess)
20743 ENDIF
20744 model_config_rec%obs_coef_pstr(id_id) = obs_coef_pstr
20745 RETURN
20746 END SUBROUTINE nl_set_obs_coef_pstr
20747 SUBROUTINE nl_set_obs_rinxy ( id_id , obs_rinxy )
20748 real , INTENT(IN) :: obs_rinxy
20749 INTEGER id_id
20750 CHARACTER*80 emess
20751 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20752 WRITE(emess,*)'nl_set_obs_rinxy: Out of range domain number: ',id_id
20753 CALL wrf_error_fatal(emess)
20754 ENDIF
20755 model_config_rec%obs_rinxy(id_id) = obs_rinxy
20756 RETURN
20757 END SUBROUTINE nl_set_obs_rinxy
20758 SUBROUTINE nl_set_obs_rinsig ( id_id , obs_rinsig )
20759 real , INTENT(IN) :: obs_rinsig
20760 INTEGER id_id
20761 CHARACTER*80 emess
20762 IF ( id_id .NE. 1 ) THEN
20763 call wrf_debug(1,&
20764 'WARNING in nl_set_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
20765 ENDIF
20766 model_config_rec%obs_rinsig = obs_rinsig
20767 RETURN
20768 END SUBROUTINE nl_set_obs_rinsig
20769 SUBROUTINE nl_set_obs_twindo ( id_id , obs_twindo )
20770 real , INTENT(IN) :: obs_twindo
20771 INTEGER id_id
20772 CHARACTER*80 emess
20773 IF ( id_id .NE. 1 ) THEN
20774 call wrf_debug(1,&
20775 'WARNING in nl_set_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
20776 ENDIF
20777 model_config_rec%obs_twindo = obs_twindo
20778 RETURN
20779 END SUBROUTINE nl_set_obs_twindo
20780 SUBROUTINE nl_set_obs_npfi ( id_id , obs_npfi )
20781 integer , INTENT(IN) :: obs_npfi
20782 INTEGER id_id
20783 CHARACTER*80 emess
20784 IF ( id_id .NE. 1 ) THEN
20785 call wrf_debug(1,&
20786 'WARNING in nl_set_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
20787 ENDIF
20788 model_config_rec%obs_npfi = obs_npfi
20789 RETURN
20790 END SUBROUTINE nl_set_obs_npfi
20791 SUBROUTINE nl_set_obs_ionf ( id_id , obs_ionf )
20792 integer , INTENT(IN) :: obs_ionf
20793 INTEGER id_id
20794 CHARACTER*80 emess
20795 IF ( id_id .NE. 1 ) THEN
20796 call wrf_debug(1,&
20797 'WARNING in nl_set_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
20798 ENDIF
20799 model_config_rec%obs_ionf = obs_ionf
20800 RETURN
20801 END SUBROUTINE nl_set_obs_ionf
20802 SUBROUTINE nl_set_obs_idynin ( id_id , obs_idynin )
20803 integer , INTENT(IN) :: obs_idynin
20804 INTEGER id_id
20805 CHARACTER*80 emess
20806 IF ( id_id .NE. 1 ) THEN
20807 call wrf_debug(1,&
20808 'WARNING in nl_set_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
20809 ENDIF
20810 model_config_rec%obs_idynin = obs_idynin
20811 RETURN
20812 END SUBROUTINE nl_set_obs_idynin
20813 SUBROUTINE nl_set_obs_dtramp ( id_id , obs_dtramp )
20814 real , INTENT(IN) :: obs_dtramp
20815 INTEGER id_id
20816 CHARACTER*80 emess
20817 IF ( id_id .NE. 1 ) THEN
20818 call wrf_debug(1,&
20819 'WARNING in nl_set_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
20820 ENDIF
20821 model_config_rec%obs_dtramp = obs_dtramp
20822 RETURN
20823 END SUBROUTINE nl_set_obs_dtramp
20824 SUBROUTINE nl_set_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
20825 logical , INTENT(IN) :: obs_ipf_in4dob
20826 INTEGER id_id
20827 CHARACTER*80 emess
20828 IF ( id_id .NE. 1 ) THEN
20829 call wrf_debug(1,&
20830 'WARNING in nl_set_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
20831 ENDIF
20832 model_config_rec%obs_ipf_in4dob = obs_ipf_in4dob
20833 RETURN
20834 END SUBROUTINE nl_set_obs_ipf_in4dob
20835 SUBROUTINE nl_set_dyn_opt ( id_id , dyn_opt )
20836 integer , INTENT(IN) :: dyn_opt
20837 INTEGER id_id
20838 CHARACTER*80 emess
20839 IF ( id_id .NE. 1 ) THEN
20840 call wrf_debug(1,&
20841 'WARNING in nl_set_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
20842 ENDIF
20843 model_config_rec%dyn_opt = dyn_opt
20844 RETURN
20845 END SUBROUTINE nl_set_dyn_opt
20846 SUBROUTINE nl_set_rk_ord ( id_id , rk_ord )
20847 integer , INTENT(IN) :: rk_ord
20848 INTEGER id_id
20849 CHARACTER*80 emess
20850 IF ( id_id .NE. 1 ) THEN
20851 call wrf_debug(1,&
20852 'WARNING in nl_set_rk_ord: rk_ord applies to all domains. First arg ignored.')
20853 ENDIF
20854 model_config_rec%rk_ord = rk_ord
20855 RETURN
20856 END SUBROUTINE nl_set_rk_ord
20857 SUBROUTINE nl_set_w_damping ( id_id , w_damping )
20858 integer , INTENT(IN) :: w_damping
20859 INTEGER id_id
20860 CHARACTER*80 emess
20861 IF ( id_id .NE. 1 ) THEN
20862 call wrf_debug(1,&
20863 'WARNING in nl_set_w_damping: w_damping applies to all domains. First arg ignored.')
20864 ENDIF
20865 model_config_rec%w_damping = w_damping
20866 RETURN
20867 END SUBROUTINE nl_set_w_damping
20868 SUBROUTINE nl_set_diff_opt ( id_id , diff_opt )
20869 integer , INTENT(IN) :: diff_opt
20870 INTEGER id_id
20871 CHARACTER*80 emess
20872 IF ( id_id .NE. 1 ) THEN
20873 call wrf_debug(1,&
20874 'WARNING in nl_set_diff_opt: diff_opt applies to all domains. First arg ignored.')
20875 ENDIF
20876 model_config_rec%diff_opt = diff_opt
20877 RETURN
20878 END SUBROUTINE nl_set_diff_opt
20879 SUBROUTINE nl_set_km_opt ( id_id , km_opt )
20880 integer , INTENT(IN) :: km_opt
20881 INTEGER id_id
20882 CHARACTER*80 emess
20883 IF ( id_id .NE. 1 ) THEN
20884 call wrf_debug(1,&
20885 'WARNING in nl_set_km_opt: km_opt applies to all domains. First arg ignored.')
20886 ENDIF
20887 model_config_rec%km_opt = km_opt
20888 RETURN
20889 END SUBROUTINE nl_set_km_opt
20890 SUBROUTINE nl_set_damp_opt ( id_id , damp_opt )
20891 integer , INTENT(IN) :: damp_opt
20892 INTEGER id_id
20893 CHARACTER*80 emess
20894 IF ( id_id .NE. 1 ) THEN
20895 call wrf_debug(1,&
20896 'WARNING in nl_set_damp_opt: damp_opt applies to all domains. First arg ignored.')
20897 ENDIF
20898 model_config_rec%damp_opt = damp_opt
20899 RETURN
20900 END SUBROUTINE nl_set_damp_opt
20901 SUBROUTINE nl_set_zdamp ( id_id , zdamp )
20902 real , INTENT(IN) :: zdamp
20903 INTEGER id_id
20904 CHARACTER*80 emess
20905 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20906 WRITE(emess,*)'nl_set_zdamp: Out of range domain number: ',id_id
20907 CALL wrf_error_fatal(emess)
20908 ENDIF
20909 model_config_rec%zdamp(id_id) = zdamp
20910 RETURN
20911 END SUBROUTINE nl_set_zdamp
20912 SUBROUTINE nl_set_dampcoef ( id_id , dampcoef )
20913 real , INTENT(IN) :: dampcoef
20914 INTEGER id_id
20915 CHARACTER*80 emess
20916 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20917 WRITE(emess,*)'nl_set_dampcoef: Out of range domain number: ',id_id
20918 CALL wrf_error_fatal(emess)
20919 ENDIF
20920 model_config_rec%dampcoef(id_id) = dampcoef
20921 RETURN
20922 END SUBROUTINE nl_set_dampcoef
20923 SUBROUTINE nl_set_khdif ( id_id , khdif )
20924 real , INTENT(IN) :: khdif
20925 INTEGER id_id
20926 CHARACTER*80 emess
20927 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20928 WRITE(emess,*)'nl_set_khdif: Out of range domain number: ',id_id
20929 CALL wrf_error_fatal(emess)
20930 ENDIF
20931 model_config_rec%khdif(id_id) = khdif
20932 RETURN
20933 END SUBROUTINE nl_set_khdif
20934 SUBROUTINE nl_set_kvdif ( id_id , kvdif )
20935 real , INTENT(IN) :: kvdif
20936 INTEGER id_id
20937 CHARACTER*80 emess
20938 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20939 WRITE(emess,*)'nl_set_kvdif: Out of range domain number: ',id_id
20940 CALL wrf_error_fatal(emess)
20941 ENDIF
20942 model_config_rec%kvdif(id_id) = kvdif
20943 RETURN
20944 END SUBROUTINE nl_set_kvdif
20945 SUBROUTINE nl_set_diff_6th_factor ( id_id , diff_6th_factor )
20946 real , INTENT(IN) :: diff_6th_factor
20947 INTEGER id_id
20948 CHARACTER*80 emess
20949 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20950 WRITE(emess,*)'nl_set_diff_6th_factor: Out of range domain number: ',id_id
20951 CALL wrf_error_fatal(emess)
20952 ENDIF
20953 model_config_rec%diff_6th_factor(id_id) = diff_6th_factor
20954 RETURN
20955 END SUBROUTINE nl_set_diff_6th_factor
20956 SUBROUTINE nl_set_diff_6th_opt ( id_id , diff_6th_opt )
20957 integer , INTENT(IN) :: diff_6th_opt
20958 INTEGER id_id
20959 CHARACTER*80 emess
20960 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20961 WRITE(emess,*)'nl_set_diff_6th_opt: Out of range domain number: ',id_id
20962 CALL wrf_error_fatal(emess)
20963 ENDIF
20964 model_config_rec%diff_6th_opt(id_id) = diff_6th_opt
20965 RETURN
20966 END SUBROUTINE nl_set_diff_6th_opt
20967 SUBROUTINE nl_set_smdiv ( id_id , smdiv )
20968 real , INTENT(IN) :: smdiv
20969 INTEGER id_id
20970 CHARACTER*80 emess
20971 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20972 WRITE(emess,*)'nl_set_smdiv: Out of range domain number: ',id_id
20973 CALL wrf_error_fatal(emess)
20974 ENDIF
20975 model_config_rec%smdiv(id_id) = smdiv
20976 RETURN
20977 END SUBROUTINE nl_set_smdiv
20978 SUBROUTINE nl_set_emdiv ( id_id , emdiv )
20979 real , INTENT(IN) :: emdiv
20980 INTEGER id_id
20981 CHARACTER*80 emess
20982 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20983 WRITE(emess,*)'nl_set_emdiv: Out of range domain number: ',id_id
20984 CALL wrf_error_fatal(emess)
20985 ENDIF
20986 model_config_rec%emdiv(id_id) = emdiv
20987 RETURN
20988 END SUBROUTINE nl_set_emdiv
20989 SUBROUTINE nl_set_epssm ( id_id , epssm )
20990 real , INTENT(IN) :: epssm
20991 INTEGER id_id
20992 CHARACTER*80 emess
20993 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20994 WRITE(emess,*)'nl_set_epssm: Out of range domain number: ',id_id
20995 CALL wrf_error_fatal(emess)
20996 ENDIF
20997 model_config_rec%epssm(id_id) = epssm
20998 RETURN
20999 END SUBROUTINE nl_set_epssm
21000 SUBROUTINE nl_set_non_hydrostatic ( id_id , non_hydrostatic )
21001 logical , INTENT(IN) :: non_hydrostatic
21002 INTEGER id_id
21003 CHARACTER*80 emess
21004 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21005 WRITE(emess,*)'nl_set_non_hydrostatic: Out of range domain number: ',id_id
21006 CALL wrf_error_fatal(emess)
21007 ENDIF
21008 model_config_rec%non_hydrostatic(id_id) = non_hydrostatic
21009 RETURN
21010 END SUBROUTINE nl_set_non_hydrostatic
21011 SUBROUTINE nl_set_time_step_sound ( id_id , time_step_sound )
21012 integer , INTENT(IN) :: time_step_sound
21013 INTEGER id_id
21014 CHARACTER*80 emess
21015 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21016 WRITE(emess,*)'nl_set_time_step_sound: Out of range domain number: ',id_id
21017 CALL wrf_error_fatal(emess)
21018 ENDIF
21019 model_config_rec%time_step_sound(id_id) = time_step_sound
21020 RETURN
21021 END SUBROUTINE nl_set_time_step_sound
21022 SUBROUTINE nl_set_h_mom_adv_order ( id_id , h_mom_adv_order )
21023 integer , INTENT(IN) :: h_mom_adv_order
21024 INTEGER id_id
21025 CHARACTER*80 emess
21026 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21027 WRITE(emess,*)'nl_set_h_mom_adv_order: Out of range domain number: ',id_id
21028 CALL wrf_error_fatal(emess)
21029 ENDIF
21030 model_config_rec%h_mom_adv_order(id_id) = h_mom_adv_order
21031 RETURN
21032 END SUBROUTINE nl_set_h_mom_adv_order
21033 SUBROUTINE nl_set_v_mom_adv_order ( id_id , v_mom_adv_order )
21034 integer , INTENT(IN) :: v_mom_adv_order
21035 INTEGER id_id
21036 CHARACTER*80 emess
21037 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21038 WRITE(emess,*)'nl_set_v_mom_adv_order: Out of range domain number: ',id_id
21039 CALL wrf_error_fatal(emess)
21040 ENDIF
21041 model_config_rec%v_mom_adv_order(id_id) = v_mom_adv_order
21042 RETURN
21043 END SUBROUTINE nl_set_v_mom_adv_order
21044 SUBROUTINE nl_set_h_sca_adv_order ( id_id , h_sca_adv_order )
21045 integer , INTENT(IN) :: h_sca_adv_order
21046 INTEGER id_id
21047 CHARACTER*80 emess
21048 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21049 WRITE(emess,*)'nl_set_h_sca_adv_order: Out of range domain number: ',id_id
21050 CALL wrf_error_fatal(emess)
21051 ENDIF
21052 model_config_rec%h_sca_adv_order(id_id) = h_sca_adv_order
21053 RETURN
21054 END SUBROUTINE nl_set_h_sca_adv_order
21055 SUBROUTINE nl_set_v_sca_adv_order ( id_id , v_sca_adv_order )
21056 integer , INTENT(IN) :: v_sca_adv_order
21057 INTEGER id_id
21058 CHARACTER*80 emess
21059 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21060 WRITE(emess,*)'nl_set_v_sca_adv_order: Out of range domain number: ',id_id
21061 CALL wrf_error_fatal(emess)
21062 ENDIF
21063 model_config_rec%v_sca_adv_order(id_id) = v_sca_adv_order
21064 RETURN
21065 END SUBROUTINE nl_set_v_sca_adv_order
21066 SUBROUTINE nl_set_pd_moist ( id_id , pd_moist )
21067 logical , INTENT(IN) :: pd_moist
21068 INTEGER id_id
21069 CHARACTER*80 emess
21070 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21071 WRITE(emess,*)'nl_set_pd_moist: Out of range domain number: ',id_id
21072 CALL wrf_error_fatal(emess)
21073 ENDIF
21074 model_config_rec%pd_moist(id_id) = pd_moist
21075 RETURN
21076 END SUBROUTINE nl_set_pd_moist
21077 SUBROUTINE nl_set_pd_chem ( id_id , pd_chem )
21078 logical , INTENT(IN) :: pd_chem
21079 INTEGER id_id
21080 CHARACTER*80 emess
21081 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21082 WRITE(emess,*)'nl_set_pd_chem: Out of range domain number: ',id_id
21083 CALL wrf_error_fatal(emess)
21084 ENDIF
21085 model_config_rec%pd_chem(id_id) = pd_chem
21086 RETURN
21087 END SUBROUTINE nl_set_pd_chem
21088 SUBROUTINE nl_set_pd_scalar ( id_id , pd_scalar )
21089 logical , INTENT(IN) :: pd_scalar
21090 INTEGER id_id
21091 CHARACTER*80 emess
21092 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21093 WRITE(emess,*)'nl_set_pd_scalar: Out of range domain number: ',id_id
21094 CALL wrf_error_fatal(emess)
21095 ENDIF
21096 model_config_rec%pd_scalar(id_id) = pd_scalar
21097 RETURN
21098 END SUBROUTINE nl_set_pd_scalar
21099 SUBROUTINE nl_set_pd_tke ( id_id , pd_tke )
21100 logical , INTENT(IN) :: pd_tke
21101 INTEGER id_id
21102 CHARACTER*80 emess
21103 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21104 WRITE(emess,*)'nl_set_pd_tke: Out of range domain number: ',id_id
21105 CALL wrf_error_fatal(emess)
21106 ENDIF
21107 model_config_rec%pd_tke(id_id) = pd_tke
21108 RETURN
21109 END SUBROUTINE nl_set_pd_tke
21110 SUBROUTINE nl_set_top_radiation ( id_id , top_radiation )
21111 logical , INTENT(IN) :: top_radiation
21112 INTEGER id_id
21113 CHARACTER*80 emess
21114 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21115 WRITE(emess,*)'nl_set_top_radiation: Out of range domain number: ',id_id
21116 CALL wrf_error_fatal(emess)
21117 ENDIF
21118 model_config_rec%top_radiation(id_id) = top_radiation
21119 RETURN
21120 END SUBROUTINE nl_set_top_radiation
21121 SUBROUTINE nl_set_mix_cr_len ( id_id , mix_cr_len )
21122 real , INTENT(IN) :: mix_cr_len
21123 INTEGER id_id
21124 CHARACTER*80 emess
21125 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21126 WRITE(emess,*)'nl_set_mix_cr_len: Out of range domain number: ',id_id
21127 CALL wrf_error_fatal(emess)
21128 ENDIF
21129 model_config_rec%mix_cr_len(id_id) = mix_cr_len
21130 RETURN
21131 END SUBROUTINE nl_set_mix_cr_len
21132 SUBROUTINE nl_set_tke_upper_bound ( id_id , tke_upper_bound )
21133 real , INTENT(IN) :: tke_upper_bound
21134 INTEGER id_id
21135 CHARACTER*80 emess
21136 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21137 WRITE(emess,*)'nl_set_tke_upper_bound: Out of range domain number: ',id_id
21138 CALL wrf_error_fatal(emess)
21139 ENDIF
21140 model_config_rec%tke_upper_bound(id_id) = tke_upper_bound
21141 RETURN
21142 END SUBROUTINE nl_set_tke_upper_bound
21143 SUBROUTINE nl_set_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
21144 real , INTENT(IN) :: kh_tke_upper_bound
21145 INTEGER id_id
21146 CHARACTER*80 emess
21147 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21148 WRITE(emess,*)'nl_set_kh_tke_upper_bound: Out of range domain number: ',id_id
21149 CALL wrf_error_fatal(emess)
21150 ENDIF
21151 model_config_rec%kh_tke_upper_bound(id_id) = kh_tke_upper_bound
21152 RETURN
21153 END SUBROUTINE nl_set_kh_tke_upper_bound
21154 SUBROUTINE nl_set_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
21155 real , INTENT(IN) :: kv_tke_upper_bound
21156 INTEGER id_id
21157 CHARACTER*80 emess
21158 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21159 WRITE(emess,*)'nl_set_kv_tke_upper_bound: Out of range domain number: ',id_id
21160 CALL wrf_error_fatal(emess)
21161 ENDIF
21162 model_config_rec%kv_tke_upper_bound(id_id) = kv_tke_upper_bound
21163 RETURN
21164 END SUBROUTINE nl_set_kv_tke_upper_bound
21165 SUBROUTINE nl_set_tke_drag_coefficient ( id_id , tke_drag_coefficient )
21166 real , INTENT(IN) :: tke_drag_coefficient
21167 INTEGER id_id
21168 CHARACTER*80 emess
21169 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21170 WRITE(emess,*)'nl_set_tke_drag_coefficient: Out of range domain number: ',id_id
21171 CALL wrf_error_fatal(emess)
21172 ENDIF
21173 model_config_rec%tke_drag_coefficient(id_id) = tke_drag_coefficient
21174 RETURN
21175 END SUBROUTINE nl_set_tke_drag_coefficient
21176 SUBROUTINE nl_set_tke_heat_flux ( id_id , tke_heat_flux )
21177 real , INTENT(IN) :: tke_heat_flux
21178 INTEGER id_id
21179 CHARACTER*80 emess
21180 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21181 WRITE(emess,*)'nl_set_tke_heat_flux: Out of range domain number: ',id_id
21182 CALL wrf_error_fatal(emess)
21183 ENDIF
21184 model_config_rec%tke_heat_flux(id_id) = tke_heat_flux
21185 RETURN
21186 END SUBROUTINE nl_set_tke_heat_flux
21187 SUBROUTINE nl_set_pert_coriolis ( id_id , pert_coriolis )
21188 logical , INTENT(IN) :: pert_coriolis
21189 INTEGER id_id
21190 CHARACTER*80 emess
21191 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21192 WRITE(emess,*)'nl_set_pert_coriolis: Out of range domain number: ',id_id
21193 CALL wrf_error_fatal(emess)
21194 ENDIF
21195 model_config_rec%pert_coriolis(id_id) = pert_coriolis
21196 RETURN
21197 END SUBROUTINE nl_set_pert_coriolis
21198 SUBROUTINE nl_set_mix_full_fields ( id_id , mix_full_fields )
21199 logical , INTENT(IN) :: mix_full_fields
21200 INTEGER id_id
21201 CHARACTER*80 emess
21202 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21203 WRITE(emess,*)'nl_set_mix_full_fields: Out of range domain number: ',id_id
21204 CALL wrf_error_fatal(emess)
21205 ENDIF
21206 model_config_rec%mix_full_fields(id_id) = mix_full_fields
21207 RETURN
21208 END SUBROUTINE nl_set_mix_full_fields
21209 SUBROUTINE nl_set_base_pres ( id_id , base_pres )
21210 real , INTENT(IN) :: base_pres
21211 INTEGER id_id
21212 CHARACTER*80 emess
21213 IF ( id_id .NE. 1 ) THEN
21214 call wrf_debug(1,&
21215 'WARNING in nl_set_base_pres: base_pres applies to all domains. First arg ignored.')
21216 ENDIF
21217 model_config_rec%base_pres = base_pres
21218 RETURN
21219 END SUBROUTINE nl_set_base_pres
21220 SUBROUTINE nl_set_base_temp ( id_id , base_temp )
21221 real , INTENT(IN) :: base_temp
21222 INTEGER id_id
21223 CHARACTER*80 emess
21224 IF ( id_id .NE. 1 ) THEN
21225 call wrf_debug(1,&
21226 'WARNING in nl_set_base_temp: base_temp applies to all domains. First arg ignored.')
21227 ENDIF
21228 model_config_rec%base_temp = base_temp
21229 RETURN
21230 END SUBROUTINE nl_set_base_temp
21231 SUBROUTINE nl_set_base_lapse ( id_id , base_lapse )
21232 real , INTENT(IN) :: base_lapse
21233 INTEGER id_id
21234 CHARACTER*80 emess
21235 IF ( id_id .NE. 1 ) THEN
21236 call wrf_debug(1,&
21237 'WARNING in nl_set_base_lapse: base_lapse applies to all domains. First arg ignored.')
21238 ENDIF
21239 model_config_rec%base_lapse = base_lapse
21240 RETURN
21241 END SUBROUTINE nl_set_base_lapse
21242 SUBROUTINE nl_set_jcdfi_use ( id_id , jcdfi_use )
21243 logical , INTENT(IN) :: jcdfi_use
21244 INTEGER id_id
21245 CHARACTER*80 emess
21246 IF ( id_id .NE. 1 ) THEN
21247 call wrf_debug(1,&
21248 'WARNING in nl_set_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
21249 ENDIF
21250 model_config_rec%jcdfi_use = jcdfi_use
21251 RETURN
21252 END SUBROUTINE nl_set_jcdfi_use
21253 SUBROUTINE nl_set_jcdfi_tauc ( id_id , jcdfi_tauc )
21254 real , INTENT(IN) :: jcdfi_tauc
21255 INTEGER id_id
21256 CHARACTER*80 emess
21257 IF ( id_id .NE. 1 ) THEN
21258 call wrf_debug(1,&
21259 'WARNING in nl_set_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
21260 ENDIF
21261 model_config_rec%jcdfi_tauc = jcdfi_tauc
21262 RETURN
21263 END SUBROUTINE nl_set_jcdfi_tauc
21264 SUBROUTINE nl_set_jcdfi_gama ( id_id , jcdfi_gama )
21265 real , INTENT(IN) :: jcdfi_gama
21266 INTEGER id_id
21267 CHARACTER*80 emess
21268 IF ( id_id .NE. 1 ) THEN
21269 call wrf_debug(1,&
21270 'WARNING in nl_set_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
21271 ENDIF
21272 model_config_rec%jcdfi_gama = jcdfi_gama
21273 RETURN
21274 END SUBROUTINE nl_set_jcdfi_gama
21275 SUBROUTINE nl_set_jcdfi_error_wind ( id_id , jcdfi_error_wind )
21276 real , INTENT(IN) :: jcdfi_error_wind
21277 INTEGER id_id
21278 CHARACTER*80 emess
21279 IF ( id_id .NE. 1 ) THEN
21280 call wrf_debug(1,&
21281 'WARNING in nl_set_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
21282 ENDIF
21283 model_config_rec%jcdfi_error_wind = jcdfi_error_wind
21284 RETURN
21285 END SUBROUTINE nl_set_jcdfi_error_wind
21286 SUBROUTINE nl_set_jcdfi_error_t ( id_id , jcdfi_error_t )
21287 real , INTENT(IN) :: jcdfi_error_t
21288 INTEGER id_id
21289 CHARACTER*80 emess
21290 IF ( id_id .NE. 1 ) THEN
21291 call wrf_debug(1,&
21292 'WARNING in nl_set_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
21293 ENDIF
21294 model_config_rec%jcdfi_error_t = jcdfi_error_t
21295 RETURN
21296 END SUBROUTINE nl_set_jcdfi_error_t
21297 SUBROUTINE nl_set_jcdfi_error_q ( id_id , jcdfi_error_q )
21298 real , INTENT(IN) :: jcdfi_error_q
21299 INTEGER id_id
21300 CHARACTER*80 emess
21301 IF ( id_id .NE. 1 ) THEN
21302 call wrf_debug(1,&
21303 'WARNING in nl_set_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
21304 ENDIF
21305 model_config_rec%jcdfi_error_q = jcdfi_error_q
21306 RETURN
21307 END SUBROUTINE nl_set_jcdfi_error_q
21308 SUBROUTINE nl_set_jcdfi_error_mu ( id_id , jcdfi_error_mu )
21309 real , INTENT(IN) :: jcdfi_error_mu
21310 INTEGER id_id
21311 CHARACTER*80 emess
21312 IF ( id_id .NE. 1 ) THEN
21313 call wrf_debug(1,&
21314 'WARNING in nl_set_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
21315 ENDIF
21316 model_config_rec%jcdfi_error_mu = jcdfi_error_mu
21317 RETURN
21318 END SUBROUTINE nl_set_jcdfi_error_mu
21319 SUBROUTINE nl_set_spec_bdy_width ( id_id , spec_bdy_width )
21320 integer , INTENT(IN) :: spec_bdy_width
21321 INTEGER id_id
21322 CHARACTER*80 emess
21323 IF ( id_id .NE. 1 ) THEN
21324 call wrf_debug(1,&
21325 'WARNING in nl_set_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
21326 ENDIF
21327 model_config_rec%spec_bdy_width = spec_bdy_width
21328 RETURN
21329 END SUBROUTINE nl_set_spec_bdy_width
21330 SUBROUTINE nl_set_spec_zone ( id_id , spec_zone )
21331 integer , INTENT(IN) :: spec_zone
21332 INTEGER id_id
21333 CHARACTER*80 emess
21334 IF ( id_id .NE. 1 ) THEN
21335 call wrf_debug(1,&
21336 'WARNING in nl_set_spec_zone: spec_zone applies to all domains. First arg ignored.')
21337 ENDIF
21338 model_config_rec%spec_zone = spec_zone
21339 RETURN
21340 END SUBROUTINE nl_set_spec_zone
21341 SUBROUTINE nl_set_relax_zone ( id_id , relax_zone )
21342 integer , INTENT(IN) :: relax_zone
21343 INTEGER id_id
21344 CHARACTER*80 emess
21345 IF ( id_id .NE. 1 ) THEN
21346 call wrf_debug(1,&
21347 'WARNING in nl_set_relax_zone: relax_zone applies to all domains. First arg ignored.')
21348 ENDIF
21349 model_config_rec%relax_zone = relax_zone
21350 RETURN
21351 END SUBROUTINE nl_set_relax_zone
21352 SUBROUTINE nl_set_specified ( id_id , specified )
21353 logical , INTENT(IN) :: specified
21354 INTEGER id_id
21355 CHARACTER*80 emess
21356 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21357 WRITE(emess,*)'nl_set_specified: Out of range domain number: ',id_id
21358 CALL wrf_error_fatal(emess)
21359 ENDIF
21360 model_config_rec%specified(id_id) = specified
21361 RETURN
21362 END SUBROUTINE nl_set_specified
21363 SUBROUTINE nl_set_periodic_x ( id_id , periodic_x )
21364 logical , INTENT(IN) :: periodic_x
21365 INTEGER id_id
21366 CHARACTER*80 emess
21367 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21368 WRITE(emess,*)'nl_set_periodic_x: Out of range domain number: ',id_id
21369 CALL wrf_error_fatal(emess)
21370 ENDIF
21371 model_config_rec%periodic_x(id_id) = periodic_x
21372 RETURN
21373 END SUBROUTINE nl_set_periodic_x
21374 SUBROUTINE nl_set_symmetric_xs ( id_id , symmetric_xs )
21375 logical , INTENT(IN) :: symmetric_xs
21376 INTEGER id_id
21377 CHARACTER*80 emess
21378 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21379 WRITE(emess,*)'nl_set_symmetric_xs: Out of range domain number: ',id_id
21380 CALL wrf_error_fatal(emess)
21381 ENDIF
21382 model_config_rec%symmetric_xs(id_id) = symmetric_xs
21383 RETURN
21384 END SUBROUTINE nl_set_symmetric_xs
21385 SUBROUTINE nl_set_symmetric_xe ( id_id , symmetric_xe )
21386 logical , INTENT(IN) :: symmetric_xe
21387 INTEGER id_id
21388 CHARACTER*80 emess
21389 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21390 WRITE(emess,*)'nl_set_symmetric_xe: Out of range domain number: ',id_id
21391 CALL wrf_error_fatal(emess)
21392 ENDIF
21393 model_config_rec%symmetric_xe(id_id) = symmetric_xe
21394 RETURN
21395 END SUBROUTINE nl_set_symmetric_xe
21396 SUBROUTINE nl_set_open_xs ( id_id , open_xs )
21397 logical , INTENT(IN) :: open_xs
21398 INTEGER id_id
21399 CHARACTER*80 emess
21400 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21401 WRITE(emess,*)'nl_set_open_xs: Out of range domain number: ',id_id
21402 CALL wrf_error_fatal(emess)
21403 ENDIF
21404 model_config_rec%open_xs(id_id) = open_xs
21405 RETURN
21406 END SUBROUTINE nl_set_open_xs
21407 SUBROUTINE nl_set_open_xe ( id_id , open_xe )
21408 logical , INTENT(IN) :: open_xe
21409 INTEGER id_id
21410 CHARACTER*80 emess
21411 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21412 WRITE(emess,*)'nl_set_open_xe: Out of range domain number: ',id_id
21413 CALL wrf_error_fatal(emess)
21414 ENDIF
21415 model_config_rec%open_xe(id_id) = open_xe
21416 RETURN
21417 END SUBROUTINE nl_set_open_xe
21418 SUBROUTINE nl_set_periodic_y ( id_id , periodic_y )
21419 logical , INTENT(IN) :: periodic_y
21420 INTEGER id_id
21421 CHARACTER*80 emess
21422 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21423 WRITE(emess,*)'nl_set_periodic_y: Out of range domain number: ',id_id
21424 CALL wrf_error_fatal(emess)
21425 ENDIF
21426 model_config_rec%periodic_y(id_id) = periodic_y
21427 RETURN
21428 END SUBROUTINE nl_set_periodic_y
21429 SUBROUTINE nl_set_symmetric_ys ( id_id , symmetric_ys )
21430 logical , INTENT(IN) :: symmetric_ys
21431 INTEGER id_id
21432 CHARACTER*80 emess
21433 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21434 WRITE(emess,*)'nl_set_symmetric_ys: Out of range domain number: ',id_id
21435 CALL wrf_error_fatal(emess)
21436 ENDIF
21437 model_config_rec%symmetric_ys(id_id) = symmetric_ys
21438 RETURN
21439 END SUBROUTINE nl_set_symmetric_ys
21440 SUBROUTINE nl_set_symmetric_ye ( id_id , symmetric_ye )
21441 logical , INTENT(IN) :: symmetric_ye
21442 INTEGER id_id
21443 CHARACTER*80 emess
21444 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21445 WRITE(emess,*)'nl_set_symmetric_ye: Out of range domain number: ',id_id
21446 CALL wrf_error_fatal(emess)
21447 ENDIF
21448 model_config_rec%symmetric_ye(id_id) = symmetric_ye
21449 RETURN
21450 END SUBROUTINE nl_set_symmetric_ye
21451 SUBROUTINE nl_set_open_ys ( id_id , open_ys )
21452 logical , INTENT(IN) :: open_ys
21453 INTEGER id_id
21454 CHARACTER*80 emess
21455 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21456 WRITE(emess,*)'nl_set_open_ys: Out of range domain number: ',id_id
21457 CALL wrf_error_fatal(emess)
21458 ENDIF
21459 model_config_rec%open_ys(id_id) = open_ys
21460 RETURN
21461 END SUBROUTINE nl_set_open_ys
21462 SUBROUTINE nl_set_open_ye ( id_id , open_ye )
21463 logical , INTENT(IN) :: open_ye
21464 INTEGER id_id
21465 CHARACTER*80 emess
21466 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21467 WRITE(emess,*)'nl_set_open_ye: Out of range domain number: ',id_id
21468 CALL wrf_error_fatal(emess)
21469 ENDIF
21470 model_config_rec%open_ye(id_id) = open_ye
21471 RETURN
21472 END SUBROUTINE nl_set_open_ye
21473 SUBROUTINE nl_set_nested ( id_id , nested )
21474 logical , INTENT(IN) :: nested
21475 INTEGER id_id
21476 CHARACTER*80 emess
21477 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21478 WRITE(emess,*)'nl_set_nested: Out of range domain number: ',id_id
21479 CALL wrf_error_fatal(emess)
21480 ENDIF
21481 model_config_rec%nested(id_id) = nested
21482 RETURN
21483 END SUBROUTINE nl_set_nested
21484 SUBROUTINE nl_set_real_data_init_type ( id_id , real_data_init_type )
21485 integer , INTENT(IN) :: real_data_init_type
21486 INTEGER id_id
21487 CHARACTER*80 emess
21488 IF ( id_id .NE. 1 ) THEN
21489 call wrf_debug(1,&
21490 'WARNING in nl_set_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
21491 ENDIF
21492 model_config_rec%real_data_init_type = real_data_init_type
21493 RETURN
21494 END SUBROUTINE nl_set_real_data_init_type
21495 SUBROUTINE nl_set_background_proc_id ( id_id , background_proc_id )
21496 integer , INTENT(IN) :: background_proc_id
21497 INTEGER id_id
21498 CHARACTER*80 emess
21499 IF ( id_id .NE. 1 ) THEN
21500 call wrf_debug(1,&
21501 'WARNING in nl_set_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
21502 ENDIF
21503 model_config_rec%background_proc_id = background_proc_id
21504 RETURN
21505 END SUBROUTINE nl_set_background_proc_id
21506 SUBROUTINE nl_set_forecast_proc_id ( id_id , forecast_proc_id )
21507 integer , INTENT(IN) :: forecast_proc_id
21508 INTEGER id_id
21509 CHARACTER*80 emess
21510 IF ( id_id .NE. 1 ) THEN
21511 call wrf_debug(1,&
21512 'WARNING in nl_set_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
21513 ENDIF
21514 model_config_rec%forecast_proc_id = forecast_proc_id
21515 RETURN
21516 END SUBROUTINE nl_set_forecast_proc_id
21517 SUBROUTINE nl_set_production_status ( id_id , production_status )
21518 integer , INTENT(IN) :: production_status
21519 INTEGER id_id
21520 CHARACTER*80 emess
21521 IF ( id_id .NE. 1 ) THEN
21522 call wrf_debug(1,&
21523 'WARNING in nl_set_production_status: production_status applies to all domains. First arg ignored.')
21524 ENDIF
21525 model_config_rec%production_status = production_status
21526 RETURN
21527 END SUBROUTINE nl_set_production_status
21528 SUBROUTINE nl_set_compression ( id_id , compression )
21529 integer , INTENT(IN) :: compression
21530 INTEGER id_id
21531 CHARACTER*80 emess
21532 IF ( id_id .NE. 1 ) THEN
21533 call wrf_debug(1,&
21534 'WARNING in nl_set_compression: compression applies to all domains. First arg ignored.')
21535 ENDIF
21536 model_config_rec%compression = compression
21537 RETURN
21538 END SUBROUTINE nl_set_compression
21539 SUBROUTINE nl_set_cen_lat ( id_id , cen_lat )
21540 real , INTENT(IN) :: cen_lat
21541 INTEGER id_id
21542 CHARACTER*80 emess
21543 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21544 WRITE(emess,*)'nl_set_cen_lat: Out of range domain number: ',id_id
21545 CALL wrf_error_fatal(emess)
21546 ENDIF
21547 model_config_rec%cen_lat(id_id) = cen_lat
21548 RETURN
21549 END SUBROUTINE nl_set_cen_lat
21550 SUBROUTINE nl_set_cen_lon ( id_id , cen_lon )
21551 real , INTENT(IN) :: cen_lon
21552 INTEGER id_id
21553 CHARACTER*80 emess
21554 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21555 WRITE(emess,*)'nl_set_cen_lon: Out of range domain number: ',id_id
21556 CALL wrf_error_fatal(emess)
21557 ENDIF
21558 model_config_rec%cen_lon(id_id) = cen_lon
21559 RETURN
21560 END SUBROUTINE nl_set_cen_lon
21561 SUBROUTINE nl_set_truelat1 ( id_id , truelat1 )
21562 real , INTENT(IN) :: truelat1
21563 INTEGER id_id
21564 CHARACTER*80 emess
21565 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21566 WRITE(emess,*)'nl_set_truelat1: Out of range domain number: ',id_id
21567 CALL wrf_error_fatal(emess)
21568 ENDIF
21569 model_config_rec%truelat1(id_id) = truelat1
21570 RETURN
21571 END SUBROUTINE nl_set_truelat1
21572 SUBROUTINE nl_set_truelat2 ( id_id , truelat2 )
21573 real , INTENT(IN) :: truelat2
21574 INTEGER id_id
21575 CHARACTER*80 emess
21576 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21577 WRITE(emess,*)'nl_set_truelat2: Out of range domain number: ',id_id
21578 CALL wrf_error_fatal(emess)
21579 ENDIF
21580 model_config_rec%truelat2(id_id) = truelat2
21581 RETURN
21582 END SUBROUTINE nl_set_truelat2
21583 SUBROUTINE nl_set_moad_cen_lat ( id_id , moad_cen_lat )
21584 real , INTENT(IN) :: moad_cen_lat
21585 INTEGER id_id
21586 CHARACTER*80 emess
21587 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21588 WRITE(emess,*)'nl_set_moad_cen_lat: Out of range domain number: ',id_id
21589 CALL wrf_error_fatal(emess)
21590 ENDIF
21591 model_config_rec%moad_cen_lat(id_id) = moad_cen_lat
21592 RETURN
21593 END SUBROUTINE nl_set_moad_cen_lat
21594 SUBROUTINE nl_set_stand_lon ( id_id , stand_lon )
21595 real , INTENT(IN) :: stand_lon
21596 INTEGER id_id
21597 CHARACTER*80 emess
21598 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21599 WRITE(emess,*)'nl_set_stand_lon: Out of range domain number: ',id_id
21600 CALL wrf_error_fatal(emess)
21601 ENDIF
21602 model_config_rec%stand_lon(id_id) = stand_lon
21603 RETURN
21604 END SUBROUTINE nl_set_stand_lon
21605 SUBROUTINE nl_set_bdyfrq ( id_id , bdyfrq )
21606 real , INTENT(IN) :: bdyfrq
21607 INTEGER id_id
21608 CHARACTER*80 emess
21609 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21610 WRITE(emess,*)'nl_set_bdyfrq: Out of range domain number: ',id_id
21611 CALL wrf_error_fatal(emess)
21612 ENDIF
21613 model_config_rec%bdyfrq(id_id) = bdyfrq
21614 RETURN
21615 END SUBROUTINE nl_set_bdyfrq
21616 SUBROUTINE nl_set_iswater ( id_id , iswater )
21617 integer , INTENT(IN) :: iswater
21618 INTEGER id_id
21619 CHARACTER*80 emess
21620 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21621 WRITE(emess,*)'nl_set_iswater: Out of range domain number: ',id_id
21622 CALL wrf_error_fatal(emess)
21623 ENDIF
21624 model_config_rec%iswater(id_id) = iswater
21625 RETURN
21626 END SUBROUTINE nl_set_iswater
21627 SUBROUTINE nl_set_isice ( id_id , isice )
21628 integer , INTENT(IN) :: isice
21629 INTEGER id_id
21630 CHARACTER*80 emess
21631 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21632 WRITE(emess,*)'nl_set_isice: Out of range domain number: ',id_id
21633 CALL wrf_error_fatal(emess)
21634 ENDIF
21635 model_config_rec%isice(id_id) = isice
21636 RETURN
21637 END SUBROUTINE nl_set_isice
21638 SUBROUTINE nl_set_isurban ( id_id , isurban )
21639 integer , INTENT(IN) :: isurban
21640 INTEGER id_id
21641 CHARACTER*80 emess
21642 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21643 WRITE(emess,*)'nl_set_isurban: Out of range domain number: ',id_id
21644 CALL wrf_error_fatal(emess)
21645 ENDIF
21646 model_config_rec%isurban(id_id) = isurban
21647 RETURN
21648 END SUBROUTINE nl_set_isurban
21649 SUBROUTINE nl_set_isoilwater ( id_id , isoilwater )
21650 integer , INTENT(IN) :: isoilwater
21651 INTEGER id_id
21652 CHARACTER*80 emess
21653 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21654 WRITE(emess,*)'nl_set_isoilwater: Out of range domain number: ',id_id
21655 CALL wrf_error_fatal(emess)
21656 ENDIF
21657 model_config_rec%isoilwater(id_id) = isoilwater
21658 RETURN
21659 END SUBROUTINE nl_set_isoilwater
21660 SUBROUTINE nl_set_map_proj ( id_id , map_proj )
21661 integer , INTENT(IN) :: map_proj
21662 INTEGER id_id
21663 CHARACTER*80 emess
21664 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21665 WRITE(emess,*)'nl_set_map_proj: Out of range domain number: ',id_id
21666 CALL wrf_error_fatal(emess)
21667 ENDIF
21668 model_config_rec%map_proj(id_id) = map_proj
21669 RETURN
21670 END SUBROUTINE nl_set_map_proj
21671 SUBROUTINE nl_set_simulation_start_year ( id_id , simulation_start_year )
21672 integer , INTENT(IN) :: simulation_start_year
21673 INTEGER id_id
21674 CHARACTER*80 emess
21675 IF ( id_id .NE. 1 ) THEN
21676 call wrf_debug(1,&
21677 'WARNING in nl_set_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
21678 ENDIF
21679 model_config_rec%simulation_start_year = simulation_start_year
21680 RETURN
21681 END SUBROUTINE nl_set_simulation_start_year
21682 SUBROUTINE nl_set_simulation_start_month ( id_id , simulation_start_month )
21683 integer , INTENT(IN) :: simulation_start_month
21684 INTEGER id_id
21685 CHARACTER*80 emess
21686 IF ( id_id .NE. 1 ) THEN
21687 call wrf_debug(1,&
21688 'WARNING in nl_set_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
21689 ENDIF
21690 model_config_rec%simulation_start_month = simulation_start_month
21691 RETURN
21692 END SUBROUTINE nl_set_simulation_start_month
21693 SUBROUTINE nl_set_simulation_start_day ( id_id , simulation_start_day )
21694 integer , INTENT(IN) :: simulation_start_day
21695 INTEGER id_id
21696 CHARACTER*80 emess
21697 IF ( id_id .NE. 1 ) THEN
21698 call wrf_debug(1,&
21699 'WARNING in nl_set_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
21700 ENDIF
21701 model_config_rec%simulation_start_day = simulation_start_day
21702 RETURN
21703 END SUBROUTINE nl_set_simulation_start_day
21704 SUBROUTINE nl_set_simulation_start_hour ( id_id , simulation_start_hour )
21705 integer , INTENT(IN) :: simulation_start_hour
21706 INTEGER id_id
21707 CHARACTER*80 emess
21708 IF ( id_id .NE. 1 ) THEN
21709 call wrf_debug(1,&
21710 'WARNING in nl_set_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
21711 ENDIF
21712 model_config_rec%simulation_start_hour = simulation_start_hour
21713 RETURN
21714 END SUBROUTINE nl_set_simulation_start_hour
21715 SUBROUTINE nl_set_simulation_start_minute ( id_id , simulation_start_minute )
21716 integer , INTENT(IN) :: simulation_start_minute
21717 INTEGER id_id
21718 CHARACTER*80 emess
21719 IF ( id_id .NE. 1 ) THEN
21720 call wrf_debug(1,&
21721 'WARNING in nl_set_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
21722 ENDIF
21723 model_config_rec%simulation_start_minute = simulation_start_minute
21724 RETURN
21725 END SUBROUTINE nl_set_simulation_start_minute
21726 SUBROUTINE nl_set_simulation_start_second ( id_id , simulation_start_second )
21727 integer , INTENT(IN) :: simulation_start_second
21728 INTEGER id_id
21729 CHARACTER*80 emess
21730 IF ( id_id .NE. 1 ) THEN
21731 call wrf_debug(1,&
21732 'WARNING in nl_set_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
21733 ENDIF
21734 model_config_rec%simulation_start_second = simulation_start_second
21735 RETURN
21736 END SUBROUTINE nl_set_simulation_start_second
21737 !ENDOFREGISTRYGENERATEDINCLUDE