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_rad ( id_id , print_detail_rad )
85 logical , INTENT(OUT) :: print_detail_rad
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_rad: print_detail_rad applies to all domains. First arg ignored.')
91 ENDIF
92 print_detail_rad = model_config_rec%print_detail_rad
93 RETURN
94 END SUBROUTINE nl_get_print_detail_rad
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_calc_w_increment ( id_id , calc_w_increment )
250 logical , INTENT(OUT) :: calc_w_increment
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_calc_w_increment: calc_w_increment applies to all domains. First arg ignored.')
256 ENDIF
257 calc_w_increment = model_config_rec%calc_w_increment
258 RETURN
259 END SUBROUTINE nl_get_calc_w_increment
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_ssmisobs ( id_id , use_ssmisobs )
723 logical , INTENT(OUT) :: use_ssmisobs
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_ssmisobs: use_ssmisobs applies to all domains. First arg ignored.')
729 ENDIF
730 use_ssmisobs = model_config_rec%use_ssmisobs
731 RETURN
732 END SUBROUTINE nl_get_use_ssmisobs
733 SUBROUTINE nl_get_use_kma1dvar ( id_id , use_kma1dvar )
734 logical , INTENT(OUT) :: use_kma1dvar
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_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
740 ENDIF
741 use_kma1dvar = model_config_rec%use_kma1dvar
742 RETURN
743 END SUBROUTINE nl_get_use_kma1dvar
744 SUBROUTINE nl_get_use_filtered_rad ( id_id , use_filtered_rad )
745 logical , INTENT(OUT) :: use_filtered_rad
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_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
751 ENDIF
752 use_filtered_rad = model_config_rec%use_filtered_rad
753 RETURN
754 END SUBROUTINE nl_get_use_filtered_rad
755 SUBROUTINE nl_get_use_rad ( id_id , use_rad )
756 logical , INTENT(OUT) :: use_rad
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_rad: use_rad applies to all domains. First arg ignored.')
762 ENDIF
763 use_rad = model_config_rec%use_rad
764 RETURN
765 END SUBROUTINE nl_get_use_rad
766 SUBROUTINE nl_get_use_obsgts ( id_id , use_obsgts )
767 logical , INTENT(OUT) :: use_obsgts
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_obsgts: use_obsgts applies to all domains. First arg ignored.')
773 ENDIF
774 use_obsgts = model_config_rec%use_obsgts
775 RETURN
776 END SUBROUTINE nl_get_use_obsgts
777 SUBROUTINE nl_get_use_obs_errfac ( id_id , use_obs_errfac )
778 logical , INTENT(OUT) :: use_obs_errfac
779 INTEGER id_id
780 CHARACTER*80 emess
781 IF ( id_id .NE. 1 ) THEN
782 call wrf_debug(1,&
783 'WARNING in nl_get_use_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
784 ENDIF
785 use_obs_errfac = model_config_rec%use_obs_errfac
786 RETURN
787 END SUBROUTINE nl_get_use_obs_errfac
788 SUBROUTINE nl_get_check_max_iv ( id_id , check_max_iv )
789 logical , INTENT(OUT) :: check_max_iv
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_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
795 ENDIF
796 check_max_iv = model_config_rec%check_max_iv
797 RETURN
798 END SUBROUTINE nl_get_check_max_iv
799 SUBROUTINE nl_get_put_rand_seed ( id_id , put_rand_seed )
800 logical , INTENT(OUT) :: put_rand_seed
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_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
806 ENDIF
807 put_rand_seed = model_config_rec%put_rand_seed
808 RETURN
809 END SUBROUTINE nl_get_put_rand_seed
810 SUBROUTINE nl_get_omb_set_rand ( id_id , omb_set_rand )
811 logical , INTENT(OUT) :: omb_set_rand
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_set_rand: omb_set_rand applies to all domains. First arg ignored.')
817 ENDIF
818 omb_set_rand = model_config_rec%omb_set_rand
819 RETURN
820 END SUBROUTINE nl_get_omb_set_rand
821 SUBROUTINE nl_get_omb_add_noise ( id_id , omb_add_noise )
822 logical , INTENT(OUT) :: omb_add_noise
823 INTEGER id_id
824 CHARACTER*80 emess
825 IF ( id_id .NE. 1 ) THEN
826 call wrf_debug(1,&
827 'WARNING in nl_get_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
828 ENDIF
829 omb_add_noise = model_config_rec%omb_add_noise
830 RETURN
831 END SUBROUTINE nl_get_omb_add_noise
832 SUBROUTINE nl_get_obs_qc_pointer ( id_id , obs_qc_pointer )
833 integer , INTENT(OUT) :: obs_qc_pointer
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_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
839 ENDIF
840 obs_qc_pointer = model_config_rec%obs_qc_pointer
841 RETURN
842 END SUBROUTINE nl_get_obs_qc_pointer
843 SUBROUTINE nl_get_max_sound_input ( id_id , max_sound_input )
844 integer , INTENT(OUT) :: max_sound_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_sound_input: max_sound_input applies to all domains. First arg ignored.')
850 ENDIF
851 max_sound_input = model_config_rec%max_sound_input
852 RETURN
853 END SUBROUTINE nl_get_max_sound_input
854 SUBROUTINE nl_get_max_synop_input ( id_id , max_synop_input )
855 integer , INTENT(OUT) :: max_synop_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_synop_input: max_synop_input applies to all domains. First arg ignored.')
861 ENDIF
862 max_synop_input = model_config_rec%max_synop_input
863 RETURN
864 END SUBROUTINE nl_get_max_synop_input
865 SUBROUTINE nl_get_max_geoamv_input ( id_id , max_geoamv_input )
866 integer , INTENT(OUT) :: max_geoamv_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_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
872 ENDIF
873 max_geoamv_input = model_config_rec%max_geoamv_input
874 RETURN
875 END SUBROUTINE nl_get_max_geoamv_input
876 SUBROUTINE nl_get_max_polaramv_input ( id_id , max_polaramv_input )
877 integer , INTENT(OUT) :: max_polaramv_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_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
883 ENDIF
884 max_polaramv_input = model_config_rec%max_polaramv_input
885 RETURN
886 END SUBROUTINE nl_get_max_polaramv_input
887 SUBROUTINE nl_get_max_airep_input ( id_id , max_airep_input )
888 integer , INTENT(OUT) :: max_airep_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_airep_input: max_airep_input applies to all domains. First arg ignored.')
894 ENDIF
895 max_airep_input = model_config_rec%max_airep_input
896 RETURN
897 END SUBROUTINE nl_get_max_airep_input
898 SUBROUTINE nl_get_max_satem_input ( id_id , max_satem_input )
899 integer , INTENT(OUT) :: max_satem_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_satem_input: max_satem_input applies to all domains. First arg ignored.')
905 ENDIF
906 max_satem_input = model_config_rec%max_satem_input
907 RETURN
908 END SUBROUTINE nl_get_max_satem_input
909 SUBROUTINE nl_get_max_pilot_input ( id_id , max_pilot_input )
910 integer , INTENT(OUT) :: max_pilot_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_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
916 ENDIF
917 max_pilot_input = model_config_rec%max_pilot_input
918 RETURN
919 END SUBROUTINE nl_get_max_pilot_input
920 SUBROUTINE nl_get_max_radar_input ( id_id , max_radar_input )
921 integer , INTENT(OUT) :: max_radar_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_radar_input: max_radar_input applies to all domains. First arg ignored.')
927 ENDIF
928 max_radar_input = model_config_rec%max_radar_input
929 RETURN
930 END SUBROUTINE nl_get_max_radar_input
931 SUBROUTINE nl_get_max_metar_input ( id_id , max_metar_input )
932 integer , INTENT(OUT) :: max_metar_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_metar_input: max_metar_input applies to all domains. First arg ignored.')
938 ENDIF
939 max_metar_input = model_config_rec%max_metar_input
940 RETURN
941 END SUBROUTINE nl_get_max_metar_input
942 SUBROUTINE nl_get_max_gpspw_input ( id_id , max_gpspw_input )
943 integer , INTENT(OUT) :: max_gpspw_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_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
949 ENDIF
950 max_gpspw_input = model_config_rec%max_gpspw_input
951 RETURN
952 END SUBROUTINE nl_get_max_gpspw_input
953 SUBROUTINE nl_get_max_ships_input ( id_id , max_ships_input )
954 integer , INTENT(OUT) :: max_ships_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_ships_input: max_ships_input applies to all domains. First arg ignored.')
960 ENDIF
961 max_ships_input = model_config_rec%max_ships_input
962 RETURN
963 END SUBROUTINE nl_get_max_ships_input
964 SUBROUTINE nl_get_max_profiler_input ( id_id , max_profiler_input )
965 integer , INTENT(OUT) :: max_profiler_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_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
971 ENDIF
972 max_profiler_input = model_config_rec%max_profiler_input
973 RETURN
974 END SUBROUTINE nl_get_max_profiler_input
975 SUBROUTINE nl_get_max_bogus_input ( id_id , max_bogus_input )
976 integer , INTENT(OUT) :: max_bogus_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_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
982 ENDIF
983 max_bogus_input = model_config_rec%max_bogus_input
984 RETURN
985 END SUBROUTINE nl_get_max_bogus_input
986 SUBROUTINE nl_get_max_buoy_input ( id_id , max_buoy_input )
987 integer , INTENT(OUT) :: max_buoy_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_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
993 ENDIF
994 max_buoy_input = model_config_rec%max_buoy_input
995 RETURN
996 END SUBROUTINE nl_get_max_buoy_input
997 SUBROUTINE nl_get_max_ssmi_ret_input ( id_id , max_ssmi_ret_input )
998 integer , INTENT(OUT) :: max_ssmi_ret_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_ret_input: max_ssmi_ret_input applies to all domains. First arg ignored.')
1004 ENDIF
1005 max_ssmi_ret_input = model_config_rec%max_ssmi_ret_input
1006 RETURN
1007 END SUBROUTINE nl_get_max_ssmi_ret_input
1008 SUBROUTINE nl_get_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
1009 integer , INTENT(OUT) :: max_ssmi_tb_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_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
1015 ENDIF
1016 max_ssmi_tb_input = model_config_rec%max_ssmi_tb_input
1017 RETURN
1018 END SUBROUTINE nl_get_max_ssmi_tb_input
1019 SUBROUTINE nl_get_max_ssmt1_input ( id_id , max_ssmt1_input )
1020 integer , INTENT(OUT) :: max_ssmt1_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_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
1026 ENDIF
1027 max_ssmt1_input = model_config_rec%max_ssmt1_input
1028 RETURN
1029 END SUBROUTINE nl_get_max_ssmt1_input
1030 SUBROUTINE nl_get_max_ssmt2_input ( id_id , max_ssmt2_input )
1031 integer , INTENT(OUT) :: max_ssmt2_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_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
1037 ENDIF
1038 max_ssmt2_input = model_config_rec%max_ssmt2_input
1039 RETURN
1040 END SUBROUTINE nl_get_max_ssmt2_input
1041 SUBROUTINE nl_get_max_qscat_input ( id_id , max_qscat_input )
1042 integer , INTENT(OUT) :: max_qscat_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_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
1048 ENDIF
1049 max_qscat_input = model_config_rec%max_qscat_input
1050 RETURN
1051 END SUBROUTINE nl_get_max_qscat_input
1052 SUBROUTINE nl_get_max_gpsref_input ( id_id , max_gpsref_input )
1053 integer , INTENT(OUT) :: max_gpsref_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_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
1059 ENDIF
1060 max_gpsref_input = model_config_rec%max_gpsref_input
1061 RETURN
1062 END SUBROUTINE nl_get_max_gpsref_input
1063 SUBROUTINE nl_get_max_airsret_input ( id_id , max_airsret_input )
1064 integer , INTENT(OUT) :: max_airsret_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_airsret_input: max_airsret_input applies to all domains. First arg ignored.')
1070 ENDIF
1071 max_airsret_input = model_config_rec%max_airsret_input
1072 RETURN
1073 END SUBROUTINE nl_get_max_airsret_input
1074 SUBROUTINE nl_get_max_tovs_input ( id_id , max_tovs_input )
1075 integer , INTENT(OUT) :: max_tovs_input
1076 INTEGER id_id
1077 CHARACTER*80 emess
1078 IF ( id_id .NE. 1 ) THEN
1079 call wrf_debug(1,&
1080 'WARNING in nl_get_max_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
1081 ENDIF
1082 max_tovs_input = model_config_rec%max_tovs_input
1083 RETURN
1084 END SUBROUTINE nl_get_max_tovs_input
1085 SUBROUTINE nl_get_max_ssmis_input ( id_id , max_ssmis_input )
1086 integer , INTENT(OUT) :: max_ssmis_input
1087 INTEGER id_id
1088 CHARACTER*80 emess
1089 IF ( id_id .NE. 1 ) THEN
1090 call wrf_debug(1,&
1091 'WARNING in nl_get_max_ssmis_input: max_ssmis_input applies to all domains. First arg ignored.')
1092 ENDIF
1093 max_ssmis_input = model_config_rec%max_ssmis_input
1094 RETURN
1095 END SUBROUTINE nl_get_max_ssmis_input
1096 SUBROUTINE nl_get_report_start ( id_id , report_start )
1097 integer , INTENT(OUT) :: report_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_report_start: report_start applies to all domains. First arg ignored.')
1103 ENDIF
1104 report_start = model_config_rec%report_start
1105 RETURN
1106 END SUBROUTINE nl_get_report_start
1107 SUBROUTINE nl_get_report_end ( id_id , report_end )
1108 integer , INTENT(OUT) :: report_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_report_end: report_end applies to all domains. First arg ignored.')
1114 ENDIF
1115 report_end = model_config_rec%report_end
1116 RETURN
1117 END SUBROUTINE nl_get_report_end
1118 SUBROUTINE nl_get_tovs_start ( id_id , tovs_start )
1119 integer , INTENT(OUT) :: tovs_start
1120 INTEGER id_id
1121 CHARACTER*80 emess
1122 IF ( id_id .NE. 1 ) THEN
1123 call wrf_debug(1,&
1124 'WARNING in nl_get_tovs_start: tovs_start applies to all domains. First arg ignored.')
1125 ENDIF
1126 tovs_start = model_config_rec%tovs_start
1127 RETURN
1128 END SUBROUTINE nl_get_tovs_start
1129 SUBROUTINE nl_get_tovs_end ( id_id , tovs_end )
1130 integer , INTENT(OUT) :: tovs_end
1131 INTEGER id_id
1132 CHARACTER*80 emess
1133 IF ( id_id .NE. 1 ) THEN
1134 call wrf_debug(1,&
1135 'WARNING in nl_get_tovs_end: tovs_end applies to all domains. First arg ignored.')
1136 ENDIF
1137 tovs_end = model_config_rec%tovs_end
1138 RETURN
1139 END SUBROUTINE nl_get_tovs_end
1140 SUBROUTINE nl_get_max_ext_its ( id_id , max_ext_its )
1141 integer , INTENT(OUT) :: max_ext_its
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_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
1147 ENDIF
1148 max_ext_its = model_config_rec%max_ext_its
1149 RETURN
1150 END SUBROUTINE nl_get_max_ext_its
1151 SUBROUTINE nl_get_ntmax ( id_id , ntmax )
1152 integer , INTENT(OUT) :: ntmax
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_ntmax: ntmax applies to all domains. First arg ignored.')
1158 ENDIF
1159 ntmax = model_config_rec%ntmax
1160 RETURN
1161 END SUBROUTINE nl_get_ntmax
1162 SUBROUTINE nl_get_nsave ( id_id , nsave )
1163 integer , INTENT(OUT) :: nsave
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_nsave: nsave applies to all domains. First arg ignored.')
1169 ENDIF
1170 nsave = model_config_rec%nsave
1171 RETURN
1172 END SUBROUTINE nl_get_nsave
1173 SUBROUTINE nl_get_write_interval ( id_id , write_interval )
1174 integer , INTENT(OUT) :: write_interval
1175 INTEGER id_id
1176 CHARACTER*80 emess
1177 IF ( id_id .NE. 1 ) THEN
1178 call wrf_debug(1,&
1179 'WARNING in nl_get_write_interval: write_interval applies to all domains. First arg ignored.')
1180 ENDIF
1181 write_interval = model_config_rec%write_interval
1182 RETURN
1183 END SUBROUTINE nl_get_write_interval
1184 SUBROUTINE nl_get_eps ( id_id , eps )
1185 real , INTENT(OUT) :: eps
1186 INTEGER id_id
1187 CHARACTER*80 emess
1188 eps = model_config_rec%eps(id_id)
1189 RETURN
1190 END SUBROUTINE nl_get_eps
1191 SUBROUTINE nl_get_rf_passes ( id_id , rf_passes )
1192 integer , INTENT(OUT) :: rf_passes
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_rf_passes: rf_passes applies to all domains. First arg ignored.')
1198 ENDIF
1199 rf_passes = model_config_rec%rf_passes
1200 RETURN
1201 END SUBROUTINE nl_get_rf_passes
1202 SUBROUTINE nl_get_var_scaling1 ( id_id , var_scaling1 )
1203 real , INTENT(OUT) :: var_scaling1
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_scaling1: var_scaling1 applies to all domains. First arg ignored.')
1209 ENDIF
1210 var_scaling1 = model_config_rec%var_scaling1
1211 RETURN
1212 END SUBROUTINE nl_get_var_scaling1
1213 SUBROUTINE nl_get_var_scaling2 ( id_id , var_scaling2 )
1214 real , INTENT(OUT) :: var_scaling2
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_scaling2: var_scaling2 applies to all domains. First arg ignored.')
1220 ENDIF
1221 var_scaling2 = model_config_rec%var_scaling2
1222 RETURN
1223 END SUBROUTINE nl_get_var_scaling2
1224 SUBROUTINE nl_get_var_scaling3 ( id_id , var_scaling3 )
1225 real , INTENT(OUT) :: var_scaling3
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_scaling3: var_scaling3 applies to all domains. First arg ignored.')
1231 ENDIF
1232 var_scaling3 = model_config_rec%var_scaling3
1233 RETURN
1234 END SUBROUTINE nl_get_var_scaling3
1235 SUBROUTINE nl_get_var_scaling4 ( id_id , var_scaling4 )
1236 real , INTENT(OUT) :: var_scaling4
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_scaling4: var_scaling4 applies to all domains. First arg ignored.')
1242 ENDIF
1243 var_scaling4 = model_config_rec%var_scaling4
1244 RETURN
1245 END SUBROUTINE nl_get_var_scaling4
1246 SUBROUTINE nl_get_var_scaling5 ( id_id , var_scaling5 )
1247 real , INTENT(OUT) :: var_scaling5
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_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
1253 ENDIF
1254 var_scaling5 = model_config_rec%var_scaling5
1255 RETURN
1256 END SUBROUTINE nl_get_var_scaling5
1257 SUBROUTINE nl_get_len_scaling1 ( id_id , len_scaling1 )
1258 real , INTENT(OUT) :: len_scaling1
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_scaling1: len_scaling1 applies to all domains. First arg ignored.')
1264 ENDIF
1265 len_scaling1 = model_config_rec%len_scaling1
1266 RETURN
1267 END SUBROUTINE nl_get_len_scaling1
1268 SUBROUTINE nl_get_len_scaling2 ( id_id , len_scaling2 )
1269 real , INTENT(OUT) :: len_scaling2
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_scaling2: len_scaling2 applies to all domains. First arg ignored.')
1275 ENDIF
1276 len_scaling2 = model_config_rec%len_scaling2
1277 RETURN
1278 END SUBROUTINE nl_get_len_scaling2
1279 SUBROUTINE nl_get_len_scaling3 ( id_id , len_scaling3 )
1280 real , INTENT(OUT) :: len_scaling3
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_scaling3: len_scaling3 applies to all domains. First arg ignored.')
1286 ENDIF
1287 len_scaling3 = model_config_rec%len_scaling3
1288 RETURN
1289 END SUBROUTINE nl_get_len_scaling3
1290 SUBROUTINE nl_get_len_scaling4 ( id_id , len_scaling4 )
1291 real , INTENT(OUT) :: len_scaling4
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_scaling4: len_scaling4 applies to all domains. First arg ignored.')
1297 ENDIF
1298 len_scaling4 = model_config_rec%len_scaling4
1299 RETURN
1300 END SUBROUTINE nl_get_len_scaling4
1301 SUBROUTINE nl_get_len_scaling5 ( id_id , len_scaling5 )
1302 real , INTENT(OUT) :: len_scaling5
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_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
1308 ENDIF
1309 len_scaling5 = model_config_rec%len_scaling5
1310 RETURN
1311 END SUBROUTINE nl_get_len_scaling5
1312 SUBROUTINE nl_get_jb_factor ( id_id , jb_factor )
1313 real , INTENT(OUT) :: jb_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_jb_factor: jb_factor applies to all domains. First arg ignored.')
1319 ENDIF
1320 jb_factor = model_config_rec%jb_factor
1321 RETURN
1322 END SUBROUTINE nl_get_jb_factor
1323 SUBROUTINE nl_get_je_factor ( id_id , je_factor )
1324 real , INTENT(OUT) :: je_factor
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_je_factor: je_factor applies to all domains. First arg ignored.')
1330 ENDIF
1331 je_factor = model_config_rec%je_factor
1332 RETURN
1333 END SUBROUTINE nl_get_je_factor
1334 SUBROUTINE nl_get_power_truncation ( id_id , power_truncation )
1335 real , INTENT(OUT) :: power_truncation
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_power_truncation: power_truncation applies to all domains. First arg ignored.')
1341 ENDIF
1342 power_truncation = model_config_rec%power_truncation
1343 RETURN
1344 END SUBROUTINE nl_get_power_truncation
1345 SUBROUTINE nl_get_def_sub_domain ( id_id , def_sub_domain )
1346 logical , INTENT(OUT) :: def_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_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
1352 ENDIF
1353 def_sub_domain = model_config_rec%def_sub_domain
1354 RETURN
1355 END SUBROUTINE nl_get_def_sub_domain
1356 SUBROUTINE nl_get_x_start_sub_domain ( id_id , x_start_sub_domain )
1357 real , INTENT(OUT) :: x_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_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
1363 ENDIF
1364 x_start_sub_domain = model_config_rec%x_start_sub_domain
1365 RETURN
1366 END SUBROUTINE nl_get_x_start_sub_domain
1367 SUBROUTINE nl_get_y_start_sub_domain ( id_id , y_start_sub_domain )
1368 real , INTENT(OUT) :: y_start_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_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
1374 ENDIF
1375 y_start_sub_domain = model_config_rec%y_start_sub_domain
1376 RETURN
1377 END SUBROUTINE nl_get_y_start_sub_domain
1378 SUBROUTINE nl_get_x_end_sub_domain ( id_id , x_end_sub_domain )
1379 real , INTENT(OUT) :: x_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_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
1385 ENDIF
1386 x_end_sub_domain = model_config_rec%x_end_sub_domain
1387 RETURN
1388 END SUBROUTINE nl_get_x_end_sub_domain
1389 SUBROUTINE nl_get_y_end_sub_domain ( id_id , y_end_sub_domain )
1390 real , INTENT(OUT) :: y_end_sub_domain
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_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
1396 ENDIF
1397 y_end_sub_domain = model_config_rec%y_end_sub_domain
1398 RETURN
1399 END SUBROUTINE nl_get_y_end_sub_domain
1400 SUBROUTINE nl_get_stdout ( id_id , stdout )
1401 integer , INTENT(OUT) :: stdout
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_stdout: stdout applies to all domains. First arg ignored.')
1407 ENDIF
1408 stdout = model_config_rec%stdout
1409 RETURN
1410 END SUBROUTINE nl_get_stdout
1411 SUBROUTINE nl_get_stderr ( id_id , stderr )
1412 integer , INTENT(OUT) :: stderr
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_stderr: stderr applies to all domains. First arg ignored.')
1418 ENDIF
1419 stderr = model_config_rec%stderr
1420 RETURN
1421 END SUBROUTINE nl_get_stderr
1422 SUBROUTINE nl_get_trace_unit ( id_id , trace_unit )
1423 integer , INTENT(OUT) :: trace_unit
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_unit: trace_unit applies to all domains. First arg ignored.')
1429 ENDIF
1430 trace_unit = model_config_rec%trace_unit
1431 RETURN
1432 END SUBROUTINE nl_get_trace_unit
1433 SUBROUTINE nl_get_trace_pe ( id_id , trace_pe )
1434 integer , INTENT(OUT) :: trace_pe
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_pe: trace_pe applies to all domains. First arg ignored.')
1440 ENDIF
1441 trace_pe = model_config_rec%trace_pe
1442 RETURN
1443 END SUBROUTINE nl_get_trace_pe
1444 SUBROUTINE nl_get_trace_repeat_head ( id_id , trace_repeat_head )
1445 integer , INTENT(OUT) :: trace_repeat_head
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_head: trace_repeat_head applies to all domains. First arg ignored.')
1451 ENDIF
1452 trace_repeat_head = model_config_rec%trace_repeat_head
1453 RETURN
1454 END SUBROUTINE nl_get_trace_repeat_head
1455 SUBROUTINE nl_get_trace_repeat_body ( id_id , trace_repeat_body )
1456 integer , INTENT(OUT) :: trace_repeat_body
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_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
1462 ENDIF
1463 trace_repeat_body = model_config_rec%trace_repeat_body
1464 RETURN
1465 END SUBROUTINE nl_get_trace_repeat_body
1466 SUBROUTINE nl_get_trace_max_depth ( id_id , trace_max_depth )
1467 integer , INTENT(OUT) :: trace_max_depth
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_max_depth: trace_max_depth applies to all domains. First arg ignored.')
1473 ENDIF
1474 trace_max_depth = model_config_rec%trace_max_depth
1475 RETURN
1476 END SUBROUTINE nl_get_trace_max_depth
1477 SUBROUTINE nl_get_trace_use ( id_id , trace_use )
1478 logical , INTENT(OUT) :: trace_use
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: trace_use applies to all domains. First arg ignored.')
1484 ENDIF
1485 trace_use = model_config_rec%trace_use
1486 RETURN
1487 END SUBROUTINE nl_get_trace_use
1488 SUBROUTINE nl_get_trace_use_frequent ( id_id , trace_use_frequent )
1489 logical , INTENT(OUT) :: trace_use_frequent
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_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
1495 ENDIF
1496 trace_use_frequent = model_config_rec%trace_use_frequent
1497 RETURN
1498 END SUBROUTINE nl_get_trace_use_frequent
1499 SUBROUTINE nl_get_trace_memory ( id_id , trace_memory )
1500 logical , INTENT(OUT) :: trace_memory
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_memory: trace_memory applies to all domains. First arg ignored.')
1506 ENDIF
1507 trace_memory = model_config_rec%trace_memory
1508 RETURN
1509 END SUBROUTINE nl_get_trace_memory
1510 SUBROUTINE nl_get_trace_all_pes ( id_id , trace_all_pes )
1511 logical , INTENT(OUT) :: trace_all_pes
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_all_pes: trace_all_pes applies to all domains. First arg ignored.')
1517 ENDIF
1518 trace_all_pes = model_config_rec%trace_all_pes
1519 RETURN
1520 END SUBROUTINE nl_get_trace_all_pes
1521 SUBROUTINE nl_get_trace_csv ( id_id , trace_csv )
1522 logical , INTENT(OUT) :: trace_csv
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_trace_csv: trace_csv applies to all domains. First arg ignored.')
1528 ENDIF
1529 trace_csv = model_config_rec%trace_csv
1530 RETURN
1531 END SUBROUTINE nl_get_trace_csv
1532 SUBROUTINE nl_get_use_html ( id_id , use_html )
1533 logical , INTENT(OUT) :: use_html
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_use_html: use_html applies to all domains. First arg ignored.')
1539 ENDIF
1540 use_html = model_config_rec%use_html
1541 RETURN
1542 END SUBROUTINE nl_get_use_html
1543 SUBROUTINE nl_get_warnings_are_fatal ( id_id , warnings_are_fatal )
1544 logical , INTENT(OUT) :: warnings_are_fatal
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_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
1550 ENDIF
1551 warnings_are_fatal = model_config_rec%warnings_are_fatal
1552 RETURN
1553 END SUBROUTINE nl_get_warnings_are_fatal
1554 SUBROUTINE nl_get_testing_wrfvar ( id_id , testing_wrfvar )
1555 logical , INTENT(OUT) :: testing_wrfvar
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_testing_wrfvar: testing_wrfvar applies to all domains. First arg ignored.')
1561 ENDIF
1562 testing_wrfvar = model_config_rec%testing_wrfvar
1563 RETURN
1564 END SUBROUTINE nl_get_testing_wrfvar
1565 SUBROUTINE nl_get_test_transforms ( id_id , test_transforms )
1566 logical , INTENT(OUT) :: test_transforms
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_transforms: test_transforms applies to all domains. First arg ignored.')
1572 ENDIF
1573 test_transforms = model_config_rec%test_transforms
1574 RETURN
1575 END SUBROUTINE nl_get_test_transforms
1576 SUBROUTINE nl_get_test_statistics ( id_id , test_statistics )
1577 logical , INTENT(OUT) :: test_statistics
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_test_statistics: test_statistics applies to all domains. First arg ignored.')
1583 ENDIF
1584 test_statistics = model_config_rec%test_statistics
1585 RETURN
1586 END SUBROUTINE nl_get_test_statistics
1587 SUBROUTINE nl_get_interpolate_stats ( id_id , interpolate_stats )
1588 logical , INTENT(OUT) :: interpolate_stats
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_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
1594 ENDIF
1595 interpolate_stats = model_config_rec%interpolate_stats
1596 RETURN
1597 END SUBROUTINE nl_get_interpolate_stats
1598 SUBROUTINE nl_get_testing_dm_exact ( id_id , testing_dm_exact )
1599 logical , INTENT(OUT) :: testing_dm_exact
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_testing_dm_exact: testing_dm_exact applies to all domains. First arg ignored.')
1605 ENDIF
1606 testing_dm_exact = model_config_rec%testing_dm_exact
1607 RETURN
1608 END SUBROUTINE nl_get_testing_dm_exact
1609 SUBROUTINE nl_get_cv_options_hum ( id_id , cv_options_hum )
1610 integer , INTENT(OUT) :: cv_options_hum
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_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
1616 ENDIF
1617 cv_options_hum = model_config_rec%cv_options_hum
1618 RETURN
1619 END SUBROUTINE nl_get_cv_options_hum
1620 SUBROUTINE nl_get_check_rh ( id_id , check_rh )
1621 integer , INTENT(OUT) :: check_rh
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_check_rh: check_rh applies to all domains. First arg ignored.')
1627 ENDIF
1628 check_rh = model_config_rec%check_rh
1629 RETURN
1630 END SUBROUTINE nl_get_check_rh
1631 SUBROUTINE nl_get_set_omb_rand_fac ( id_id , set_omb_rand_fac )
1632 integer , INTENT(OUT) :: set_omb_rand_fac
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_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
1638 ENDIF
1639 set_omb_rand_fac = model_config_rec%set_omb_rand_fac
1640 RETURN
1641 END SUBROUTINE nl_get_set_omb_rand_fac
1642 SUBROUTINE nl_get_seed_array1 ( id_id , seed_array1 )
1643 integer , INTENT(OUT) :: seed_array1
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_array1: seed_array1 applies to all domains. First arg ignored.')
1649 ENDIF
1650 seed_array1 = model_config_rec%seed_array1
1651 RETURN
1652 END SUBROUTINE nl_get_seed_array1
1653 SUBROUTINE nl_get_seed_array2 ( id_id , seed_array2 )
1654 integer , INTENT(OUT) :: seed_array2
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_seed_array2: seed_array2 applies to all domains. First arg ignored.')
1660 ENDIF
1661 seed_array2 = model_config_rec%seed_array2
1662 RETURN
1663 END SUBROUTINE nl_get_seed_array2
1664 SUBROUTINE nl_get_sfc_assi_options ( id_id , sfc_assi_options )
1665 integer , INTENT(OUT) :: sfc_assi_options
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_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
1671 ENDIF
1672 sfc_assi_options = model_config_rec%sfc_assi_options
1673 RETURN
1674 END SUBROUTINE nl_get_sfc_assi_options
1675 SUBROUTINE nl_get_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
1676 logical , INTENT(OUT) :: calculate_cg_cost_fn
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_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
1682 ENDIF
1683 calculate_cg_cost_fn = model_config_rec%calculate_cg_cost_fn
1684 RETURN
1685 END SUBROUTINE nl_get_calculate_cg_cost_fn
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_rad_monitoring ( id_id , rad_monitoring )
1875 integer , INTENT(OUT) :: rad_monitoring
1876 INTEGER id_id
1877 CHARACTER*80 emess
1878 rad_monitoring = model_config_rec%rad_monitoring(id_id)
1879 RETURN
1880 END SUBROUTINE nl_get_rad_monitoring
1881 SUBROUTINE nl_get_thinning_mesh ( id_id , thinning_mesh )
1882 real , INTENT(OUT) :: thinning_mesh
1883 INTEGER id_id
1884 CHARACTER*80 emess
1885 thinning_mesh = model_config_rec%thinning_mesh(id_id)
1886 RETURN
1887 END SUBROUTINE nl_get_thinning_mesh
1888 SUBROUTINE nl_get_thinning ( id_id , thinning )
1889 logical , INTENT(OUT) :: thinning
1890 INTEGER id_id
1891 CHARACTER*80 emess
1892 IF ( id_id .NE. 1 ) THEN
1893 call wrf_debug(1,&
1894 'WARNING in nl_get_thinning: thinning applies to all domains. First arg ignored.')
1895 ENDIF
1896 thinning = model_config_rec%thinning
1897 RETURN
1898 END SUBROUTINE nl_get_thinning
1899 SUBROUTINE nl_get_read_biascoef ( id_id , read_biascoef )
1900 logical , INTENT(OUT) :: read_biascoef
1901 INTEGER id_id
1902 CHARACTER*80 emess
1903 IF ( id_id .NE. 1 ) THEN
1904 call wrf_debug(1,&
1905 'WARNING in nl_get_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
1906 ENDIF
1907 read_biascoef = model_config_rec%read_biascoef
1908 RETURN
1909 END SUBROUTINE nl_get_read_biascoef
1910 SUBROUTINE nl_get_biascorr ( id_id , biascorr )
1911 logical , INTENT(OUT) :: biascorr
1912 INTEGER id_id
1913 CHARACTER*80 emess
1914 IF ( id_id .NE. 1 ) THEN
1915 call wrf_debug(1,&
1916 'WARNING in nl_get_biascorr: biascorr applies to all domains. First arg ignored.')
1917 ENDIF
1918 biascorr = model_config_rec%biascorr
1919 RETURN
1920 END SUBROUTINE nl_get_biascorr
1921 SUBROUTINE nl_get_biasprep ( id_id , biasprep )
1922 logical , INTENT(OUT) :: biasprep
1923 INTEGER id_id
1924 CHARACTER*80 emess
1925 IF ( id_id .NE. 1 ) THEN
1926 call wrf_debug(1,&
1927 'WARNING in nl_get_biasprep: biasprep applies to all domains. First arg ignored.')
1928 ENDIF
1929 biasprep = model_config_rec%biasprep
1930 RETURN
1931 END SUBROUTINE nl_get_biasprep
1932 SUBROUTINE nl_get_rttov_scatt ( id_id , rttov_scatt )
1933 logical , INTENT(OUT) :: rttov_scatt
1934 INTEGER id_id
1935 CHARACTER*80 emess
1936 IF ( id_id .NE. 1 ) THEN
1937 call wrf_debug(1,&
1938 'WARNING in nl_get_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
1939 ENDIF
1940 rttov_scatt = model_config_rec%rttov_scatt
1941 RETURN
1942 END SUBROUTINE nl_get_rttov_scatt
1943 SUBROUTINE nl_get_write_profile ( id_id , write_profile )
1944 logical , INTENT(OUT) :: write_profile
1945 INTEGER id_id
1946 CHARACTER*80 emess
1947 IF ( id_id .NE. 1 ) THEN
1948 call wrf_debug(1,&
1949 'WARNING in nl_get_write_profile: write_profile applies to all domains. First arg ignored.')
1950 ENDIF
1951 write_profile = model_config_rec%write_profile
1952 RETURN
1953 END SUBROUTINE nl_get_write_profile
1954 SUBROUTINE nl_get_qc_rad ( id_id , qc_rad )
1955 logical , INTENT(OUT) :: qc_rad
1956 INTEGER id_id
1957 CHARACTER*80 emess
1958 IF ( id_id .NE. 1 ) THEN
1959 call wrf_debug(1,&
1960 'WARNING in nl_get_qc_rad: qc_rad applies to all domains. First arg ignored.')
1961 ENDIF
1962 qc_rad = model_config_rec%qc_rad
1963 RETURN
1964 END SUBROUTINE nl_get_qc_rad
1965 SUBROUTINE nl_get_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
1966 logical , INTENT(OUT) :: write_iv_rad_ascii
1967 INTEGER id_id
1968 CHARACTER*80 emess
1969 IF ( id_id .NE. 1 ) THEN
1970 call wrf_debug(1,&
1971 'WARNING in nl_get_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
1972 ENDIF
1973 write_iv_rad_ascii = model_config_rec%write_iv_rad_ascii
1974 RETURN
1975 END SUBROUTINE nl_get_write_iv_rad_ascii
1976 SUBROUTINE nl_get_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
1977 logical , INTENT(OUT) :: write_oa_rad_ascii
1978 INTEGER id_id
1979 CHARACTER*80 emess
1980 IF ( id_id .NE. 1 ) THEN
1981 call wrf_debug(1,&
1982 'WARNING in nl_get_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
1983 ENDIF
1984 write_oa_rad_ascii = model_config_rec%write_oa_rad_ascii
1985 RETURN
1986 END SUBROUTINE nl_get_write_oa_rad_ascii
1987 SUBROUTINE nl_get_write_filtered_rad ( id_id , write_filtered_rad )
1988 logical , INTENT(OUT) :: write_filtered_rad
1989 INTEGER id_id
1990 CHARACTER*80 emess
1991 IF ( id_id .NE. 1 ) THEN
1992 call wrf_debug(1,&
1993 'WARNING in nl_get_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
1994 ENDIF
1995 write_filtered_rad = model_config_rec%write_filtered_rad
1996 RETURN
1997 END SUBROUTINE nl_get_write_filtered_rad
1998 SUBROUTINE nl_get_use_error_factor_rad ( id_id , use_error_factor_rad )
1999 logical , INTENT(OUT) :: use_error_factor_rad
2000 INTEGER id_id
2001 CHARACTER*80 emess
2002 IF ( id_id .NE. 1 ) THEN
2003 call wrf_debug(1,&
2004 'WARNING in nl_get_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
2005 ENDIF
2006 use_error_factor_rad = model_config_rec%use_error_factor_rad
2007 RETURN
2008 END SUBROUTINE nl_get_use_error_factor_rad
2009 SUBROUTINE nl_get_use_landem ( id_id , use_landem )
2010 logical , INTENT(OUT) :: use_landem
2011 INTEGER id_id
2012 CHARACTER*80 emess
2013 IF ( id_id .NE. 1 ) THEN
2014 call wrf_debug(1,&
2015 'WARNING in nl_get_use_landem: use_landem applies to all domains. First arg ignored.')
2016 ENDIF
2017 use_landem = model_config_rec%use_landem
2018 RETURN
2019 END SUBROUTINE nl_get_use_landem
2020 SUBROUTINE nl_get_mw_emis_sea ( id_id , mw_emis_sea )
2021 integer , INTENT(OUT) :: mw_emis_sea
2022 INTEGER id_id
2023 CHARACTER*80 emess
2024 IF ( id_id .NE. 1 ) THEN
2025 call wrf_debug(1,&
2026 'WARNING in nl_get_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
2027 ENDIF
2028 mw_emis_sea = model_config_rec%mw_emis_sea
2029 RETURN
2030 END SUBROUTINE nl_get_mw_emis_sea
2031 SUBROUTINE nl_get_tovs_min_transfer ( id_id , tovs_min_transfer )
2032 integer , INTENT(OUT) :: tovs_min_transfer
2033 INTEGER id_id
2034 CHARACTER*80 emess
2035 IF ( id_id .NE. 1 ) THEN
2036 call wrf_debug(1,&
2037 'WARNING in nl_get_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
2038 ENDIF
2039 tovs_min_transfer = model_config_rec%tovs_min_transfer
2040 RETURN
2041 END SUBROUTINE nl_get_tovs_min_transfer
2042 SUBROUTINE nl_get_tovs_batch ( id_id , tovs_batch )
2043 logical , INTENT(OUT) :: tovs_batch
2044 INTEGER id_id
2045 CHARACTER*80 emess
2046 IF ( id_id .NE. 1 ) THEN
2047 call wrf_debug(1,&
2048 'WARNING in nl_get_tovs_batch: tovs_batch applies to all domains. First arg ignored.')
2049 ENDIF
2050 tovs_batch = model_config_rec%tovs_batch
2051 RETURN
2052 END SUBROUTINE nl_get_tovs_batch
2053 SUBROUTINE nl_get_rtm_option ( id_id , rtm_option )
2054 integer , INTENT(OUT) :: rtm_option
2055 INTEGER id_id
2056 CHARACTER*80 emess
2057 IF ( id_id .NE. 1 ) THEN
2058 call wrf_debug(1,&
2059 'WARNING in nl_get_rtm_option: rtm_option applies to all domains. First arg ignored.')
2060 ENDIF
2061 rtm_option = model_config_rec%rtm_option
2062 RETURN
2063 END SUBROUTINE nl_get_rtm_option
2064 SUBROUTINE nl_get_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
2065 logical , INTENT(OUT) :: use_crtm_kmatrix
2066 INTEGER id_id
2067 CHARACTER*80 emess
2068 IF ( id_id .NE. 1 ) THEN
2069 call wrf_debug(1,&
2070 'WARNING in nl_get_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
2071 ENDIF
2072 use_crtm_kmatrix = model_config_rec%use_crtm_kmatrix
2073 RETURN
2074 END SUBROUTINE nl_get_use_crtm_kmatrix
2075 SUBROUTINE nl_get_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
2076 logical , INTENT(OUT) :: use_crtm_kmatrix_fast
2077 INTEGER id_id
2078 CHARACTER*80 emess
2079 IF ( id_id .NE. 1 ) THEN
2080 call wrf_debug(1,&
2081 'WARNING in nl_get_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
2082 ENDIF
2083 use_crtm_kmatrix_fast = model_config_rec%use_crtm_kmatrix_fast
2084 RETURN
2085 END SUBROUTINE nl_get_use_crtm_kmatrix_fast
2086 SUBROUTINE nl_get_crtm_cloud ( id_id , crtm_cloud )
2087 logical , INTENT(OUT) :: crtm_cloud
2088 INTEGER id_id
2089 CHARACTER*80 emess
2090 IF ( id_id .NE. 1 ) THEN
2091 call wrf_debug(1,&
2092 'WARNING in nl_get_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
2093 ENDIF
2094 crtm_cloud = model_config_rec%crtm_cloud
2095 RETURN
2096 END SUBROUTINE nl_get_crtm_cloud
2097 SUBROUTINE nl_get_only_sea_rad ( id_id , only_sea_rad )
2098 logical , INTENT(OUT) :: only_sea_rad
2099 INTEGER id_id
2100 CHARACTER*80 emess
2101 IF ( id_id .NE. 1 ) THEN
2102 call wrf_debug(1,&
2103 'WARNING in nl_get_only_sea_rad: only_sea_rad applies to all domains. First arg ignored.')
2104 ENDIF
2105 only_sea_rad = model_config_rec%only_sea_rad
2106 RETURN
2107 END SUBROUTINE nl_get_only_sea_rad
2108 SUBROUTINE nl_get_spccoeff_file ( id_id , spccoeff_file )
2109 character*256 , INTENT(OUT) :: spccoeff_file
2110 INTEGER id_id
2111 CHARACTER*80 emess
2112 IF ( id_id .NE. 1 ) THEN
2113 call wrf_debug(1,&
2114 'WARNING in nl_get_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
2115 ENDIF
2116 spccoeff_file = trim(model_config_rec%spccoeff_file)
2117 RETURN
2118 END SUBROUTINE nl_get_spccoeff_file
2119 SUBROUTINE nl_get_taucoeff_file ( id_id , taucoeff_file )
2120 character*256 , INTENT(OUT) :: taucoeff_file
2121 INTEGER id_id
2122 CHARACTER*80 emess
2123 IF ( id_id .NE. 1 ) THEN
2124 call wrf_debug(1,&
2125 'WARNING in nl_get_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
2126 ENDIF
2127 taucoeff_file = trim(model_config_rec%taucoeff_file)
2128 RETURN
2129 END SUBROUTINE nl_get_taucoeff_file
2130 SUBROUTINE nl_get_aerosolcoeff_file ( id_id , aerosolcoeff_file )
2131 character*256 , INTENT(OUT) :: aerosolcoeff_file
2132 INTEGER id_id
2133 CHARACTER*80 emess
2134 IF ( id_id .NE. 1 ) THEN
2135 call wrf_debug(1,&
2136 'WARNING in nl_get_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
2137 ENDIF
2138 aerosolcoeff_file = trim(model_config_rec%aerosolcoeff_file)
2139 RETURN
2140 END SUBROUTINE nl_get_aerosolcoeff_file
2141 SUBROUTINE nl_get_cloudcoeff_file ( id_id , cloudcoeff_file )
2142 character*256 , INTENT(OUT) :: cloudcoeff_file
2143 INTEGER id_id
2144 CHARACTER*80 emess
2145 IF ( id_id .NE. 1 ) THEN
2146 call wrf_debug(1,&
2147 'WARNING in nl_get_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
2148 ENDIF
2149 cloudcoeff_file = trim(model_config_rec%cloudcoeff_file)
2150 RETURN
2151 END SUBROUTINE nl_get_cloudcoeff_file
2152 SUBROUTINE nl_get_emiscoeff_file ( id_id , emiscoeff_file )
2153 character*256 , INTENT(OUT) :: emiscoeff_file
2154 INTEGER id_id
2155 CHARACTER*80 emess
2156 IF ( id_id .NE. 1 ) THEN
2157 call wrf_debug(1,&
2158 'WARNING in nl_get_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
2159 ENDIF
2160 emiscoeff_file = trim(model_config_rec%emiscoeff_file)
2161 RETURN
2162 END SUBROUTINE nl_get_emiscoeff_file
2163 SUBROUTINE nl_get_num_pseudo ( id_id , num_pseudo )
2164 integer , INTENT(OUT) :: num_pseudo
2165 INTEGER id_id
2166 CHARACTER*80 emess
2167 IF ( id_id .NE. 1 ) THEN
2168 call wrf_debug(1,&
2169 'WARNING in nl_get_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
2170 ENDIF
2171 num_pseudo = model_config_rec%num_pseudo
2172 RETURN
2173 END SUBROUTINE nl_get_num_pseudo
2174 SUBROUTINE nl_get_pseudo_x ( id_id , pseudo_x )
2175 real , INTENT(OUT) :: pseudo_x
2176 INTEGER id_id
2177 CHARACTER*80 emess
2178 IF ( id_id .NE. 1 ) THEN
2179 call wrf_debug(1,&
2180 'WARNING in nl_get_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
2181 ENDIF
2182 pseudo_x = model_config_rec%pseudo_x
2183 RETURN
2184 END SUBROUTINE nl_get_pseudo_x
2185 SUBROUTINE nl_get_pseudo_y ( id_id , pseudo_y )
2186 real , INTENT(OUT) :: pseudo_y
2187 INTEGER id_id
2188 CHARACTER*80 emess
2189 IF ( id_id .NE. 1 ) THEN
2190 call wrf_debug(1,&
2191 'WARNING in nl_get_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
2192 ENDIF
2193 pseudo_y = model_config_rec%pseudo_y
2194 RETURN
2195 END SUBROUTINE nl_get_pseudo_y
2196 SUBROUTINE nl_get_pseudo_z ( id_id , pseudo_z )
2197 real , INTENT(OUT) :: pseudo_z
2198 INTEGER id_id
2199 CHARACTER*80 emess
2200 IF ( id_id .NE. 1 ) THEN
2201 call wrf_debug(1,&
2202 'WARNING in nl_get_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
2203 ENDIF
2204 pseudo_z = model_config_rec%pseudo_z
2205 RETURN
2206 END SUBROUTINE nl_get_pseudo_z
2207 SUBROUTINE nl_get_pseudo_val ( id_id , pseudo_val )
2208 real , INTENT(OUT) :: pseudo_val
2209 INTEGER id_id
2210 CHARACTER*80 emess
2211 IF ( id_id .NE. 1 ) THEN
2212 call wrf_debug(1,&
2213 'WARNING in nl_get_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
2214 ENDIF
2215 pseudo_val = model_config_rec%pseudo_val
2216 RETURN
2217 END SUBROUTINE nl_get_pseudo_val
2218 SUBROUTINE nl_get_pseudo_err ( id_id , pseudo_err )
2219 real , INTENT(OUT) :: pseudo_err
2220 INTEGER id_id
2221 CHARACTER*80 emess
2222 IF ( id_id .NE. 1 ) THEN
2223 call wrf_debug(1,&
2224 'WARNING in nl_get_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
2225 ENDIF
2226 pseudo_err = model_config_rec%pseudo_err
2227 RETURN
2228 END SUBROUTINE nl_get_pseudo_err
2229 SUBROUTINE nl_get_alphacv_method ( id_id , alphacv_method )
2230 integer , INTENT(OUT) :: alphacv_method
2231 INTEGER id_id
2232 CHARACTER*80 emess
2233 IF ( id_id .NE. 1 ) THEN
2234 call wrf_debug(1,&
2235 'WARNING in nl_get_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
2236 ENDIF
2237 alphacv_method = model_config_rec%alphacv_method
2238 RETURN
2239 END SUBROUTINE nl_get_alphacv_method
2240 SUBROUTINE nl_get_ensdim_alpha ( id_id , ensdim_alpha )
2241 integer , INTENT(OUT) :: ensdim_alpha
2242 INTEGER id_id
2243 CHARACTER*80 emess
2244 IF ( id_id .NE. 1 ) THEN
2245 call wrf_debug(1,&
2246 'WARNING in nl_get_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
2247 ENDIF
2248 ensdim_alpha = model_config_rec%ensdim_alpha
2249 RETURN
2250 END SUBROUTINE nl_get_ensdim_alpha
2251 SUBROUTINE nl_get_alpha_truncation ( id_id , alpha_truncation )
2252 integer , INTENT(OUT) :: alpha_truncation
2253 INTEGER id_id
2254 CHARACTER*80 emess
2255 IF ( id_id .NE. 1 ) THEN
2256 call wrf_debug(1,&
2257 'WARNING in nl_get_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
2258 ENDIF
2259 alpha_truncation = model_config_rec%alpha_truncation
2260 RETURN
2261 END SUBROUTINE nl_get_alpha_truncation
2262 SUBROUTINE nl_get_alpha_corr_type ( id_id , alpha_corr_type )
2263 integer , INTENT(OUT) :: alpha_corr_type
2264 INTEGER id_id
2265 CHARACTER*80 emess
2266 IF ( id_id .NE. 1 ) THEN
2267 call wrf_debug(1,&
2268 'WARNING in nl_get_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
2269 ENDIF
2270 alpha_corr_type = model_config_rec%alpha_corr_type
2271 RETURN
2272 END SUBROUTINE nl_get_alpha_corr_type
2273 SUBROUTINE nl_get_alpha_corr_scale ( id_id , alpha_corr_scale )
2274 real , INTENT(OUT) :: alpha_corr_scale
2275 INTEGER id_id
2276 CHARACTER*80 emess
2277 IF ( id_id .NE. 1 ) THEN
2278 call wrf_debug(1,&
2279 'WARNING in nl_get_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
2280 ENDIF
2281 alpha_corr_scale = model_config_rec%alpha_corr_scale
2282 RETURN
2283 END SUBROUTINE nl_get_alpha_corr_scale
2284 SUBROUTINE nl_get_alpha_std_dev ( id_id , alpha_std_dev )
2285 real , INTENT(OUT) :: alpha_std_dev
2286 INTEGER id_id
2287 CHARACTER*80 emess
2288 IF ( id_id .NE. 1 ) THEN
2289 call wrf_debug(1,&
2290 'WARNING in nl_get_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
2291 ENDIF
2292 alpha_std_dev = model_config_rec%alpha_std_dev
2293 RETURN
2294 END SUBROUTINE nl_get_alpha_std_dev
2295 SUBROUTINE nl_get_analysis_type ( id_id , analysis_type )
2296 character*256 , INTENT(OUT) :: analysis_type
2297 INTEGER id_id
2298 CHARACTER*80 emess
2299 IF ( id_id .NE. 1 ) THEN
2300 call wrf_debug(1,&
2301 'WARNING in nl_get_analysis_type: analysis_type applies to all domains. First arg ignored.')
2302 ENDIF
2303 analysis_type = trim(model_config_rec%analysis_type)
2304 RETURN
2305 END SUBROUTINE nl_get_analysis_type
2306 SUBROUTINE nl_get_analysis_date ( id_id , analysis_date )
2307 character*256 , INTENT(OUT) :: analysis_date
2308 INTEGER id_id
2309 CHARACTER*80 emess
2310 IF ( id_id .NE. 1 ) THEN
2311 call wrf_debug(1,&
2312 'WARNING in nl_get_analysis_date: analysis_date applies to all domains. First arg ignored.')
2313 ENDIF
2314 analysis_date = trim(model_config_rec%analysis_date)
2315 RETURN
2316 END SUBROUTINE nl_get_analysis_date
2317 SUBROUTINE nl_get_pseudo_var ( id_id , pseudo_var )
2318 character*256 , INTENT(OUT) :: pseudo_var
2319 INTEGER id_id
2320 CHARACTER*80 emess
2321 IF ( id_id .NE. 1 ) THEN
2322 call wrf_debug(1,&
2323 'WARNING in nl_get_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
2324 ENDIF
2325 pseudo_var = trim(model_config_rec%pseudo_var)
2326 RETURN
2327 END SUBROUTINE nl_get_pseudo_var
2328 SUBROUTINE nl_get_documentation_url ( id_id , documentation_url )
2329 character*256 , INTENT(OUT) :: documentation_url
2330 INTEGER id_id
2331 CHARACTER*80 emess
2332 IF ( id_id .NE. 1 ) THEN
2333 call wrf_debug(1,&
2334 'WARNING in nl_get_documentation_url: documentation_url applies to all domains. First arg ignored.')
2335 ENDIF
2336 documentation_url = trim(model_config_rec%documentation_url)
2337 RETURN
2338 END SUBROUTINE nl_get_documentation_url
2339 SUBROUTINE nl_get_time_window_min ( id_id , time_window_min )
2340 character*256 , INTENT(OUT) :: time_window_min
2341 INTEGER id_id
2342 CHARACTER*80 emess
2343 IF ( id_id .NE. 1 ) THEN
2344 call wrf_debug(1,&
2345 'WARNING in nl_get_time_window_min: time_window_min applies to all domains. First arg ignored.')
2346 ENDIF
2347 time_window_min = trim(model_config_rec%time_window_min)
2348 RETURN
2349 END SUBROUTINE nl_get_time_window_min
2350 SUBROUTINE nl_get_time_window_max ( id_id , time_window_max )
2351 character*256 , INTENT(OUT) :: time_window_max
2352 INTEGER id_id
2353 CHARACTER*80 emess
2354 IF ( id_id .NE. 1 ) THEN
2355 call wrf_debug(1,&
2356 'WARNING in nl_get_time_window_max: time_window_max applies to all domains. First arg ignored.')
2357 ENDIF
2358 time_window_max = trim(model_config_rec%time_window_max)
2359 RETURN
2360 END SUBROUTINE nl_get_time_window_max
2361 SUBROUTINE nl_get_run_days ( id_id , run_days )
2362 integer , INTENT(OUT) :: run_days
2363 INTEGER id_id
2364 CHARACTER*80 emess
2365 IF ( id_id .NE. 1 ) THEN
2366 call wrf_debug(1,&
2367 'WARNING in nl_get_run_days: run_days applies to all domains. First arg ignored.')
2368 ENDIF
2369 run_days = model_config_rec%run_days
2370 RETURN
2371 END SUBROUTINE nl_get_run_days
2372 SUBROUTINE nl_get_run_hours ( id_id , run_hours )
2373 integer , INTENT(OUT) :: run_hours
2374 INTEGER id_id
2375 CHARACTER*80 emess
2376 IF ( id_id .NE. 1 ) THEN
2377 call wrf_debug(1,&
2378 'WARNING in nl_get_run_hours: run_hours applies to all domains. First arg ignored.')
2379 ENDIF
2380 run_hours = model_config_rec%run_hours
2381 RETURN
2382 END SUBROUTINE nl_get_run_hours
2383 SUBROUTINE nl_get_run_minutes ( id_id , run_minutes )
2384 integer , INTENT(OUT) :: run_minutes
2385 INTEGER id_id
2386 CHARACTER*80 emess
2387 IF ( id_id .NE. 1 ) THEN
2388 call wrf_debug(1,&
2389 'WARNING in nl_get_run_minutes: run_minutes applies to all domains. First arg ignored.')
2390 ENDIF
2391 run_minutes = model_config_rec%run_minutes
2392 RETURN
2393 END SUBROUTINE nl_get_run_minutes
2394 SUBROUTINE nl_get_run_seconds ( id_id , run_seconds )
2395 integer , INTENT(OUT) :: run_seconds
2396 INTEGER id_id
2397 CHARACTER*80 emess
2398 IF ( id_id .NE. 1 ) THEN
2399 call wrf_debug(1,&
2400 'WARNING in nl_get_run_seconds: run_seconds applies to all domains. First arg ignored.')
2401 ENDIF
2402 run_seconds = model_config_rec%run_seconds
2403 RETURN
2404 END SUBROUTINE nl_get_run_seconds
2405 SUBROUTINE nl_get_start_year ( id_id , start_year )
2406 integer , INTENT(OUT) :: start_year
2407 INTEGER id_id
2408 CHARACTER*80 emess
2409 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2410 WRITE(emess,*)'nl_get_start_year: Out of range domain number: ',id_id
2411 CALL wrf_error_fatal(emess)
2412 ENDIF
2413 start_year = model_config_rec%start_year(id_id)
2414 RETURN
2415 END SUBROUTINE nl_get_start_year
2416 SUBROUTINE nl_get_start_month ( id_id , start_month )
2417 integer , INTENT(OUT) :: start_month
2418 INTEGER id_id
2419 CHARACTER*80 emess
2420 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2421 WRITE(emess,*)'nl_get_start_month: Out of range domain number: ',id_id
2422 CALL wrf_error_fatal(emess)
2423 ENDIF
2424 start_month = model_config_rec%start_month(id_id)
2425 RETURN
2426 END SUBROUTINE nl_get_start_month
2427 SUBROUTINE nl_get_start_day ( id_id , start_day )
2428 integer , INTENT(OUT) :: start_day
2429 INTEGER id_id
2430 CHARACTER*80 emess
2431 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2432 WRITE(emess,*)'nl_get_start_day: Out of range domain number: ',id_id
2433 CALL wrf_error_fatal(emess)
2434 ENDIF
2435 start_day = model_config_rec%start_day(id_id)
2436 RETURN
2437 END SUBROUTINE nl_get_start_day
2438 SUBROUTINE nl_get_start_hour ( id_id , start_hour )
2439 integer , INTENT(OUT) :: start_hour
2440 INTEGER id_id
2441 CHARACTER*80 emess
2442 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2443 WRITE(emess,*)'nl_get_start_hour: Out of range domain number: ',id_id
2444 CALL wrf_error_fatal(emess)
2445 ENDIF
2446 start_hour = model_config_rec%start_hour(id_id)
2447 RETURN
2448 END SUBROUTINE nl_get_start_hour
2449 SUBROUTINE nl_get_start_minute ( id_id , start_minute )
2450 integer , INTENT(OUT) :: start_minute
2451 INTEGER id_id
2452 CHARACTER*80 emess
2453 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2454 WRITE(emess,*)'nl_get_start_minute: Out of range domain number: ',id_id
2455 CALL wrf_error_fatal(emess)
2456 ENDIF
2457 start_minute = model_config_rec%start_minute(id_id)
2458 RETURN
2459 END SUBROUTINE nl_get_start_minute
2460 SUBROUTINE nl_get_start_second ( id_id , start_second )
2461 integer , INTENT(OUT) :: start_second
2462 INTEGER id_id
2463 CHARACTER*80 emess
2464 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2465 WRITE(emess,*)'nl_get_start_second: Out of range domain number: ',id_id
2466 CALL wrf_error_fatal(emess)
2467 ENDIF
2468 start_second = model_config_rec%start_second(id_id)
2469 RETURN
2470 END SUBROUTINE nl_get_start_second
2471 SUBROUTINE nl_get_end_year ( id_id , end_year )
2472 integer , INTENT(OUT) :: end_year
2473 INTEGER id_id
2474 CHARACTER*80 emess
2475 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2476 WRITE(emess,*)'nl_get_end_year: Out of range domain number: ',id_id
2477 CALL wrf_error_fatal(emess)
2478 ENDIF
2479 end_year = model_config_rec%end_year(id_id)
2480 RETURN
2481 END SUBROUTINE nl_get_end_year
2482 SUBROUTINE nl_get_end_month ( id_id , end_month )
2483 integer , INTENT(OUT) :: end_month
2484 INTEGER id_id
2485 CHARACTER*80 emess
2486 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2487 WRITE(emess,*)'nl_get_end_month: Out of range domain number: ',id_id
2488 CALL wrf_error_fatal(emess)
2489 ENDIF
2490 end_month = model_config_rec%end_month(id_id)
2491 RETURN
2492 END SUBROUTINE nl_get_end_month
2493 SUBROUTINE nl_get_end_day ( id_id , end_day )
2494 integer , INTENT(OUT) :: end_day
2495 INTEGER id_id
2496 CHARACTER*80 emess
2497 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2498 WRITE(emess,*)'nl_get_end_day: Out of range domain number: ',id_id
2499 CALL wrf_error_fatal(emess)
2500 ENDIF
2501 end_day = model_config_rec%end_day(id_id)
2502 RETURN
2503 END SUBROUTINE nl_get_end_day
2504 SUBROUTINE nl_get_end_hour ( id_id , end_hour )
2505 integer , INTENT(OUT) :: end_hour
2506 INTEGER id_id
2507 CHARACTER*80 emess
2508 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2509 WRITE(emess,*)'nl_get_end_hour: Out of range domain number: ',id_id
2510 CALL wrf_error_fatal(emess)
2511 ENDIF
2512 end_hour = model_config_rec%end_hour(id_id)
2513 RETURN
2514 END SUBROUTINE nl_get_end_hour
2515 SUBROUTINE nl_get_end_minute ( id_id , end_minute )
2516 integer , INTENT(OUT) :: end_minute
2517 INTEGER id_id
2518 CHARACTER*80 emess
2519 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2520 WRITE(emess,*)'nl_get_end_minute: Out of range domain number: ',id_id
2521 CALL wrf_error_fatal(emess)
2522 ENDIF
2523 end_minute = model_config_rec%end_minute(id_id)
2524 RETURN
2525 END SUBROUTINE nl_get_end_minute
2526 SUBROUTINE nl_get_end_second ( id_id , end_second )
2527 integer , INTENT(OUT) :: end_second
2528 INTEGER id_id
2529 CHARACTER*80 emess
2530 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2531 WRITE(emess,*)'nl_get_end_second: Out of range domain number: ',id_id
2532 CALL wrf_error_fatal(emess)
2533 ENDIF
2534 end_second = model_config_rec%end_second(id_id)
2535 RETURN
2536 END SUBROUTINE nl_get_end_second
2537 SUBROUTINE nl_get_interval_seconds ( id_id , interval_seconds )
2538 integer , INTENT(OUT) :: interval_seconds
2539 INTEGER id_id
2540 CHARACTER*80 emess
2541 IF ( id_id .NE. 1 ) THEN
2542 call wrf_debug(1,&
2543 'WARNING in nl_get_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
2544 ENDIF
2545 interval_seconds = model_config_rec%interval_seconds
2546 RETURN
2547 END SUBROUTINE nl_get_interval_seconds
2548 SUBROUTINE nl_get_input_from_file ( id_id , input_from_file )
2549 logical , INTENT(OUT) :: input_from_file
2550 INTEGER id_id
2551 CHARACTER*80 emess
2552 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2553 WRITE(emess,*)'nl_get_input_from_file: Out of range domain number: ',id_id
2554 CALL wrf_error_fatal(emess)
2555 ENDIF
2556 input_from_file = model_config_rec%input_from_file(id_id)
2557 RETURN
2558 END SUBROUTINE nl_get_input_from_file
2559 SUBROUTINE nl_get_fine_input_stream ( id_id , fine_input_stream )
2560 integer , INTENT(OUT) :: fine_input_stream
2561 INTEGER id_id
2562 CHARACTER*80 emess
2563 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2564 WRITE(emess,*)'nl_get_fine_input_stream: Out of range domain number: ',id_id
2565 CALL wrf_error_fatal(emess)
2566 ENDIF
2567 fine_input_stream = model_config_rec%fine_input_stream(id_id)
2568 RETURN
2569 END SUBROUTINE nl_get_fine_input_stream
2570 SUBROUTINE nl_get_input_from_hires ( id_id , input_from_hires )
2571 logical , INTENT(OUT) :: input_from_hires
2572 INTEGER id_id
2573 CHARACTER*80 emess
2574 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2575 WRITE(emess,*)'nl_get_input_from_hires: Out of range domain number: ',id_id
2576 CALL wrf_error_fatal(emess)
2577 ENDIF
2578 input_from_hires = model_config_rec%input_from_hires(id_id)
2579 RETURN
2580 END SUBROUTINE nl_get_input_from_hires
2581 SUBROUTINE nl_get_rsmas_data_path ( id_id , rsmas_data_path )
2582 character*256 , INTENT(OUT) :: rsmas_data_path
2583 INTEGER id_id
2584 CHARACTER*80 emess
2585 IF ( id_id .NE. 1 ) THEN
2586 call wrf_debug(1,&
2587 'WARNING in nl_get_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
2588 ENDIF
2589 rsmas_data_path = trim(model_config_rec%rsmas_data_path)
2590 RETURN
2591 END SUBROUTINE nl_get_rsmas_data_path
2592 SUBROUTINE nl_get_history_interval ( id_id , history_interval )
2593 integer , INTENT(OUT) :: history_interval
2594 INTEGER id_id
2595 CHARACTER*80 emess
2596 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2597 WRITE(emess,*)'nl_get_history_interval: Out of range domain number: ',id_id
2598 CALL wrf_error_fatal(emess)
2599 ENDIF
2600 history_interval = model_config_rec%history_interval(id_id)
2601 RETURN
2602 END SUBROUTINE nl_get_history_interval
2603 SUBROUTINE nl_get_frames_per_outfile ( id_id , frames_per_outfile )
2604 integer , INTENT(OUT) :: frames_per_outfile
2605 INTEGER id_id
2606 CHARACTER*80 emess
2607 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2608 WRITE(emess,*)'nl_get_frames_per_outfile: Out of range domain number: ',id_id
2609 CALL wrf_error_fatal(emess)
2610 ENDIF
2611 frames_per_outfile = model_config_rec%frames_per_outfile(id_id)
2612 RETURN
2613 END SUBROUTINE nl_get_frames_per_outfile
2614 SUBROUTINE nl_get_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
2615 integer , INTENT(OUT) :: frames_per_auxhist1
2616 INTEGER id_id
2617 CHARACTER*80 emess
2618 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2619 WRITE(emess,*)'nl_get_frames_per_auxhist1: Out of range domain number: ',id_id
2620 CALL wrf_error_fatal(emess)
2621 ENDIF
2622 frames_per_auxhist1 = model_config_rec%frames_per_auxhist1(id_id)
2623 RETURN
2624 END SUBROUTINE nl_get_frames_per_auxhist1
2625 SUBROUTINE nl_get_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
2626 integer , INTENT(OUT) :: frames_per_auxhist2
2627 INTEGER id_id
2628 CHARACTER*80 emess
2629 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2630 WRITE(emess,*)'nl_get_frames_per_auxhist2: Out of range domain number: ',id_id
2631 CALL wrf_error_fatal(emess)
2632 ENDIF
2633 frames_per_auxhist2 = model_config_rec%frames_per_auxhist2(id_id)
2634 RETURN
2635 END SUBROUTINE nl_get_frames_per_auxhist2
2636 SUBROUTINE nl_get_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
2637 integer , INTENT(OUT) :: frames_per_auxhist3
2638 INTEGER id_id
2639 CHARACTER*80 emess
2640 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2641 WRITE(emess,*)'nl_get_frames_per_auxhist3: Out of range domain number: ',id_id
2642 CALL wrf_error_fatal(emess)
2643 ENDIF
2644 frames_per_auxhist3 = model_config_rec%frames_per_auxhist3(id_id)
2645 RETURN
2646 END SUBROUTINE nl_get_frames_per_auxhist3
2647 SUBROUTINE nl_get_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
2648 integer , INTENT(OUT) :: frames_per_auxhist4
2649 INTEGER id_id
2650 CHARACTER*80 emess
2651 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2652 WRITE(emess,*)'nl_get_frames_per_auxhist4: Out of range domain number: ',id_id
2653 CALL wrf_error_fatal(emess)
2654 ENDIF
2655 frames_per_auxhist4 = model_config_rec%frames_per_auxhist4(id_id)
2656 RETURN
2657 END SUBROUTINE nl_get_frames_per_auxhist4
2658 SUBROUTINE nl_get_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
2659 integer , INTENT(OUT) :: frames_per_auxhist5
2660 INTEGER id_id
2661 CHARACTER*80 emess
2662 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2663 WRITE(emess,*)'nl_get_frames_per_auxhist5: Out of range domain number: ',id_id
2664 CALL wrf_error_fatal(emess)
2665 ENDIF
2666 frames_per_auxhist5 = model_config_rec%frames_per_auxhist5(id_id)
2667 RETURN
2668 END SUBROUTINE nl_get_frames_per_auxhist5
2669 SUBROUTINE nl_get_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
2670 integer , INTENT(OUT) :: frames_per_auxhist6
2671 INTEGER id_id
2672 CHARACTER*80 emess
2673 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2674 WRITE(emess,*)'nl_get_frames_per_auxhist6: Out of range domain number: ',id_id
2675 CALL wrf_error_fatal(emess)
2676 ENDIF
2677 frames_per_auxhist6 = model_config_rec%frames_per_auxhist6(id_id)
2678 RETURN
2679 END SUBROUTINE nl_get_frames_per_auxhist6
2680 SUBROUTINE nl_get_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
2681 integer , INTENT(OUT) :: frames_per_auxhist7
2682 INTEGER id_id
2683 CHARACTER*80 emess
2684 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2685 WRITE(emess,*)'nl_get_frames_per_auxhist7: Out of range domain number: ',id_id
2686 CALL wrf_error_fatal(emess)
2687 ENDIF
2688 frames_per_auxhist7 = model_config_rec%frames_per_auxhist7(id_id)
2689 RETURN
2690 END SUBROUTINE nl_get_frames_per_auxhist7
2691 SUBROUTINE nl_get_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
2692 integer , INTENT(OUT) :: frames_per_auxhist8
2693 INTEGER id_id
2694 CHARACTER*80 emess
2695 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2696 WRITE(emess,*)'nl_get_frames_per_auxhist8: Out of range domain number: ',id_id
2697 CALL wrf_error_fatal(emess)
2698 ENDIF
2699 frames_per_auxhist8 = model_config_rec%frames_per_auxhist8(id_id)
2700 RETURN
2701 END SUBROUTINE nl_get_frames_per_auxhist8
2702 SUBROUTINE nl_get_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
2703 integer , INTENT(OUT) :: frames_per_auxhist9
2704 INTEGER id_id
2705 CHARACTER*80 emess
2706 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2707 WRITE(emess,*)'nl_get_frames_per_auxhist9: Out of range domain number: ',id_id
2708 CALL wrf_error_fatal(emess)
2709 ENDIF
2710 frames_per_auxhist9 = model_config_rec%frames_per_auxhist9(id_id)
2711 RETURN
2712 END SUBROUTINE nl_get_frames_per_auxhist9
2713 SUBROUTINE nl_get_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
2714 integer , INTENT(OUT) :: frames_per_auxhist10
2715 INTEGER id_id
2716 CHARACTER*80 emess
2717 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2718 WRITE(emess,*)'nl_get_frames_per_auxhist10: Out of range domain number: ',id_id
2719 CALL wrf_error_fatal(emess)
2720 ENDIF
2721 frames_per_auxhist10 = model_config_rec%frames_per_auxhist10(id_id)
2722 RETURN
2723 END SUBROUTINE nl_get_frames_per_auxhist10
2724 SUBROUTINE nl_get_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
2725 integer , INTENT(OUT) :: frames_per_auxhist11
2726 INTEGER id_id
2727 CHARACTER*80 emess
2728 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
2729 WRITE(emess,*)'nl_get_frames_per_auxhist11: Out of range domain number: ',id_id
2730 CALL wrf_error_fatal(emess)
2731 ENDIF
2732 frames_per_auxhist11 = model_config_rec%frames_per_auxhist11(id_id)
2733 RETURN
2734 END SUBROUTINE nl_get_frames_per_auxhist11
2735 SUBROUTINE nl_get_restart ( id_id , restart )
2736 logical , INTENT(OUT) :: restart
2737 INTEGER id_id
2738 CHARACTER*80 emess
2739 IF ( id_id .NE. 1 ) THEN
2740 call wrf_debug(1,&
2741 'WARNING in nl_get_restart: restart applies to all domains. First arg ignored.')
2742 ENDIF
2743 restart = model_config_rec%restart
2744 RETURN
2745 END SUBROUTINE nl_get_restart
2746 SUBROUTINE nl_get_restart_interval ( id_id , restart_interval )
2747 integer , INTENT(OUT) :: restart_interval
2748 INTEGER id_id
2749 CHARACTER*80 emess
2750 IF ( id_id .NE. 1 ) THEN
2751 call wrf_debug(1,&
2752 'WARNING in nl_get_restart_interval: restart_interval applies to all domains. First arg ignored.')
2753 ENDIF
2754 restart_interval = model_config_rec%restart_interval
2755 RETURN
2756 END SUBROUTINE nl_get_restart_interval
2757 SUBROUTINE nl_get_io_form_input ( id_id , io_form_input )
2758 integer , INTENT(OUT) :: io_form_input
2759 INTEGER id_id
2760 CHARACTER*80 emess
2761 IF ( id_id .NE. 1 ) THEN
2762 call wrf_debug(1,&
2763 'WARNING in nl_get_io_form_input: io_form_input applies to all domains. First arg ignored.')
2764 ENDIF
2765 io_form_input = model_config_rec%io_form_input
2766 RETURN
2767 END SUBROUTINE nl_get_io_form_input
2768 SUBROUTINE nl_get_io_form_history ( id_id , io_form_history )
2769 integer , INTENT(OUT) :: io_form_history
2770 INTEGER id_id
2771 CHARACTER*80 emess
2772 IF ( id_id .NE. 1 ) THEN
2773 call wrf_debug(1,&
2774 'WARNING in nl_get_io_form_history: io_form_history applies to all domains. First arg ignored.')
2775 ENDIF
2776 io_form_history = model_config_rec%io_form_history
2777 RETURN
2778 END SUBROUTINE nl_get_io_form_history
2779 SUBROUTINE nl_get_io_form_restart ( id_id , io_form_restart )
2780 integer , INTENT(OUT) :: io_form_restart
2781 INTEGER id_id
2782 CHARACTER*80 emess
2783 IF ( id_id .NE. 1 ) THEN
2784 call wrf_debug(1,&
2785 'WARNING in nl_get_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
2786 ENDIF
2787 io_form_restart = model_config_rec%io_form_restart
2788 RETURN
2789 END SUBROUTINE nl_get_io_form_restart
2790 SUBROUTINE nl_get_io_form_boundary ( id_id , io_form_boundary )
2791 integer , INTENT(OUT) :: io_form_boundary
2792 INTEGER id_id
2793 CHARACTER*80 emess
2794 IF ( id_id .NE. 1 ) THEN
2795 call wrf_debug(1,&
2796 'WARNING in nl_get_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
2797 ENDIF
2798 io_form_boundary = model_config_rec%io_form_boundary
2799 RETURN
2800 END SUBROUTINE nl_get_io_form_boundary
2801 SUBROUTINE nl_get_debug_level ( id_id , debug_level )
2802 integer , INTENT(OUT) :: debug_level
2803 INTEGER id_id
2804 CHARACTER*80 emess
2805 IF ( id_id .NE. 1 ) THEN
2806 call wrf_debug(1,&
2807 'WARNING in nl_get_debug_level: debug_level applies to all domains. First arg ignored.')
2808 ENDIF
2809 debug_level = model_config_rec%debug_level
2810 RETURN
2811 END SUBROUTINE nl_get_debug_level
2812 SUBROUTINE nl_get_self_test_domain ( id_id , self_test_domain )
2813 logical , INTENT(OUT) :: self_test_domain
2814 INTEGER id_id
2815 CHARACTER*80 emess
2816 IF ( id_id .NE. 1 ) THEN
2817 call wrf_debug(1,&
2818 'WARNING in nl_get_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
2819 ENDIF
2820 self_test_domain = model_config_rec%self_test_domain
2821 RETURN
2822 END SUBROUTINE nl_get_self_test_domain
2823 SUBROUTINE nl_get_history_outname ( id_id , history_outname )
2824 character*256 , INTENT(OUT) :: history_outname
2825 INTEGER id_id
2826 CHARACTER*80 emess
2827 IF ( id_id .NE. 1 ) THEN
2828 call wrf_debug(1,&
2829 'WARNING in nl_get_history_outname: history_outname applies to all domains. First arg ignored.')
2830 ENDIF
2831 history_outname = trim(model_config_rec%history_outname)
2832 RETURN
2833 END SUBROUTINE nl_get_history_outname
2834 SUBROUTINE nl_get_auxhist1_outname ( id_id , auxhist1_outname )
2835 character*256 , INTENT(OUT) :: auxhist1_outname
2836 INTEGER id_id
2837 CHARACTER*80 emess
2838 IF ( id_id .NE. 1 ) THEN
2839 call wrf_debug(1,&
2840 'WARNING in nl_get_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
2841 ENDIF
2842 auxhist1_outname = trim(model_config_rec%auxhist1_outname)
2843 RETURN
2844 END SUBROUTINE nl_get_auxhist1_outname
2845 SUBROUTINE nl_get_auxhist2_outname ( id_id , auxhist2_outname )
2846 character*256 , INTENT(OUT) :: auxhist2_outname
2847 INTEGER id_id
2848 CHARACTER*80 emess
2849 IF ( id_id .NE. 1 ) THEN
2850 call wrf_debug(1,&
2851 'WARNING in nl_get_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
2852 ENDIF
2853 auxhist2_outname = trim(model_config_rec%auxhist2_outname)
2854 RETURN
2855 END SUBROUTINE nl_get_auxhist2_outname
2856 SUBROUTINE nl_get_auxhist3_outname ( id_id , auxhist3_outname )
2857 character*256 , INTENT(OUT) :: auxhist3_outname
2858 INTEGER id_id
2859 CHARACTER*80 emess
2860 IF ( id_id .NE. 1 ) THEN
2861 call wrf_debug(1,&
2862 'WARNING in nl_get_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
2863 ENDIF
2864 auxhist3_outname = trim(model_config_rec%auxhist3_outname)
2865 RETURN
2866 END SUBROUTINE nl_get_auxhist3_outname
2867 SUBROUTINE nl_get_auxhist4_outname ( id_id , auxhist4_outname )
2868 character*256 , INTENT(OUT) :: auxhist4_outname
2869 INTEGER id_id
2870 CHARACTER*80 emess
2871 IF ( id_id .NE. 1 ) THEN
2872 call wrf_debug(1,&
2873 'WARNING in nl_get_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
2874 ENDIF
2875 auxhist4_outname = trim(model_config_rec%auxhist4_outname)
2876 RETURN
2877 END SUBROUTINE nl_get_auxhist4_outname
2878 SUBROUTINE nl_get_auxhist5_outname ( id_id , auxhist5_outname )
2879 character*256 , INTENT(OUT) :: auxhist5_outname
2880 INTEGER id_id
2881 CHARACTER*80 emess
2882 IF ( id_id .NE. 1 ) THEN
2883 call wrf_debug(1,&
2884 'WARNING in nl_get_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
2885 ENDIF
2886 auxhist5_outname = trim(model_config_rec%auxhist5_outname)
2887 RETURN
2888 END SUBROUTINE nl_get_auxhist5_outname
2889 SUBROUTINE nl_get_auxhist6_outname ( id_id , auxhist6_outname )
2890 character*256 , INTENT(OUT) :: auxhist6_outname
2891 INTEGER id_id
2892 CHARACTER*80 emess
2893 IF ( id_id .NE. 1 ) THEN
2894 call wrf_debug(1,&
2895 'WARNING in nl_get_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
2896 ENDIF
2897 auxhist6_outname = trim(model_config_rec%auxhist6_outname)
2898 RETURN
2899 END SUBROUTINE nl_get_auxhist6_outname
2900 SUBROUTINE nl_get_auxhist7_outname ( id_id , auxhist7_outname )
2901 character*256 , INTENT(OUT) :: auxhist7_outname
2902 INTEGER id_id
2903 CHARACTER*80 emess
2904 IF ( id_id .NE. 1 ) THEN
2905 call wrf_debug(1,&
2906 'WARNING in nl_get_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
2907 ENDIF
2908 auxhist7_outname = trim(model_config_rec%auxhist7_outname)
2909 RETURN
2910 END SUBROUTINE nl_get_auxhist7_outname
2911 SUBROUTINE nl_get_auxhist8_outname ( id_id , auxhist8_outname )
2912 character*256 , INTENT(OUT) :: auxhist8_outname
2913 INTEGER id_id
2914 CHARACTER*80 emess
2915 IF ( id_id .NE. 1 ) THEN
2916 call wrf_debug(1,&
2917 'WARNING in nl_get_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
2918 ENDIF
2919 auxhist8_outname = trim(model_config_rec%auxhist8_outname)
2920 RETURN
2921 END SUBROUTINE nl_get_auxhist8_outname
2922 SUBROUTINE nl_get_auxhist9_outname ( id_id , auxhist9_outname )
2923 character*256 , INTENT(OUT) :: auxhist9_outname
2924 INTEGER id_id
2925 CHARACTER*80 emess
2926 IF ( id_id .NE. 1 ) THEN
2927 call wrf_debug(1,&
2928 'WARNING in nl_get_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
2929 ENDIF
2930 auxhist9_outname = trim(model_config_rec%auxhist9_outname)
2931 RETURN
2932 END SUBROUTINE nl_get_auxhist9_outname
2933 SUBROUTINE nl_get_auxhist10_outname ( id_id , auxhist10_outname )
2934 character*256 , INTENT(OUT) :: auxhist10_outname
2935 INTEGER id_id
2936 CHARACTER*80 emess
2937 IF ( id_id .NE. 1 ) THEN
2938 call wrf_debug(1,&
2939 'WARNING in nl_get_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
2940 ENDIF
2941 auxhist10_outname = trim(model_config_rec%auxhist10_outname)
2942 RETURN
2943 END SUBROUTINE nl_get_auxhist10_outname
2944 SUBROUTINE nl_get_auxhist11_outname ( id_id , auxhist11_outname )
2945 character*256 , INTENT(OUT) :: auxhist11_outname
2946 INTEGER id_id
2947 CHARACTER*80 emess
2948 IF ( id_id .NE. 1 ) THEN
2949 call wrf_debug(1,&
2950 'WARNING in nl_get_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
2951 ENDIF
2952 auxhist11_outname = trim(model_config_rec%auxhist11_outname)
2953 RETURN
2954 END SUBROUTINE nl_get_auxhist11_outname
2955 SUBROUTINE nl_get_history_inname ( id_id , history_inname )
2956 character*256 , INTENT(OUT) :: history_inname
2957 INTEGER id_id
2958 CHARACTER*80 emess
2959 IF ( id_id .NE. 1 ) THEN
2960 call wrf_debug(1,&
2961 'WARNING in nl_get_history_inname: history_inname applies to all domains. First arg ignored.')
2962 ENDIF
2963 history_inname = trim(model_config_rec%history_inname)
2964 RETURN
2965 END SUBROUTINE nl_get_history_inname
2966 SUBROUTINE nl_get_auxhist1_inname ( id_id , auxhist1_inname )
2967 character*256 , INTENT(OUT) :: auxhist1_inname
2968 INTEGER id_id
2969 CHARACTER*80 emess
2970 IF ( id_id .NE. 1 ) THEN
2971 call wrf_debug(1,&
2972 'WARNING in nl_get_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
2973 ENDIF
2974 auxhist1_inname = trim(model_config_rec%auxhist1_inname)
2975 RETURN
2976 END SUBROUTINE nl_get_auxhist1_inname
2977 SUBROUTINE nl_get_auxhist2_inname ( id_id , auxhist2_inname )
2978 character*256 , INTENT(OUT) :: auxhist2_inname
2979 INTEGER id_id
2980 CHARACTER*80 emess
2981 IF ( id_id .NE. 1 ) THEN
2982 call wrf_debug(1,&
2983 'WARNING in nl_get_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
2984 ENDIF
2985 auxhist2_inname = trim(model_config_rec%auxhist2_inname)
2986 RETURN
2987 END SUBROUTINE nl_get_auxhist2_inname
2988 SUBROUTINE nl_get_auxhist3_inname ( id_id , auxhist3_inname )
2989 character*256 , INTENT(OUT) :: auxhist3_inname
2990 INTEGER id_id
2991 CHARACTER*80 emess
2992 IF ( id_id .NE. 1 ) THEN
2993 call wrf_debug(1,&
2994 'WARNING in nl_get_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
2995 ENDIF
2996 auxhist3_inname = trim(model_config_rec%auxhist3_inname)
2997 RETURN
2998 END SUBROUTINE nl_get_auxhist3_inname
2999 SUBROUTINE nl_get_auxhist4_inname ( id_id , auxhist4_inname )
3000 character*256 , INTENT(OUT) :: auxhist4_inname
3001 INTEGER id_id
3002 CHARACTER*80 emess
3003 IF ( id_id .NE. 1 ) THEN
3004 call wrf_debug(1,&
3005 'WARNING in nl_get_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
3006 ENDIF
3007 auxhist4_inname = trim(model_config_rec%auxhist4_inname)
3008 RETURN
3009 END SUBROUTINE nl_get_auxhist4_inname
3010 SUBROUTINE nl_get_auxhist5_inname ( id_id , auxhist5_inname )
3011 character*256 , INTENT(OUT) :: auxhist5_inname
3012 INTEGER id_id
3013 CHARACTER*80 emess
3014 IF ( id_id .NE. 1 ) THEN
3015 call wrf_debug(1,&
3016 'WARNING in nl_get_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
3017 ENDIF
3018 auxhist5_inname = trim(model_config_rec%auxhist5_inname)
3019 RETURN
3020 END SUBROUTINE nl_get_auxhist5_inname
3021 SUBROUTINE nl_get_auxhist6_inname ( id_id , auxhist6_inname )
3022 character*256 , INTENT(OUT) :: auxhist6_inname
3023 INTEGER id_id
3024 CHARACTER*80 emess
3025 IF ( id_id .NE. 1 ) THEN
3026 call wrf_debug(1,&
3027 'WARNING in nl_get_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
3028 ENDIF
3029 auxhist6_inname = trim(model_config_rec%auxhist6_inname)
3030 RETURN
3031 END SUBROUTINE nl_get_auxhist6_inname
3032 SUBROUTINE nl_get_auxhist7_inname ( id_id , auxhist7_inname )
3033 character*256 , INTENT(OUT) :: auxhist7_inname
3034 INTEGER id_id
3035 CHARACTER*80 emess
3036 IF ( id_id .NE. 1 ) THEN
3037 call wrf_debug(1,&
3038 'WARNING in nl_get_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
3039 ENDIF
3040 auxhist7_inname = trim(model_config_rec%auxhist7_inname)
3041 RETURN
3042 END SUBROUTINE nl_get_auxhist7_inname
3043 SUBROUTINE nl_get_auxhist8_inname ( id_id , auxhist8_inname )
3044 character*256 , INTENT(OUT) :: auxhist8_inname
3045 INTEGER id_id
3046 CHARACTER*80 emess
3047 IF ( id_id .NE. 1 ) THEN
3048 call wrf_debug(1,&
3049 'WARNING in nl_get_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
3050 ENDIF
3051 auxhist8_inname = trim(model_config_rec%auxhist8_inname)
3052 RETURN
3053 END SUBROUTINE nl_get_auxhist8_inname
3054 SUBROUTINE nl_get_auxhist9_inname ( id_id , auxhist9_inname )
3055 character*256 , INTENT(OUT) :: auxhist9_inname
3056 INTEGER id_id
3057 CHARACTER*80 emess
3058 IF ( id_id .NE. 1 ) THEN
3059 call wrf_debug(1,&
3060 'WARNING in nl_get_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
3061 ENDIF
3062 auxhist9_inname = trim(model_config_rec%auxhist9_inname)
3063 RETURN
3064 END SUBROUTINE nl_get_auxhist9_inname
3065 SUBROUTINE nl_get_auxhist10_inname ( id_id , auxhist10_inname )
3066 character*256 , INTENT(OUT) :: auxhist10_inname
3067 INTEGER id_id
3068 CHARACTER*80 emess
3069 IF ( id_id .NE. 1 ) THEN
3070 call wrf_debug(1,&
3071 'WARNING in nl_get_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
3072 ENDIF
3073 auxhist10_inname = trim(model_config_rec%auxhist10_inname)
3074 RETURN
3075 END SUBROUTINE nl_get_auxhist10_inname
3076 SUBROUTINE nl_get_auxhist11_inname ( id_id , auxhist11_inname )
3077 character*256 , INTENT(OUT) :: auxhist11_inname
3078 INTEGER id_id
3079 CHARACTER*80 emess
3080 IF ( id_id .NE. 1 ) THEN
3081 call wrf_debug(1,&
3082 'WARNING in nl_get_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
3083 ENDIF
3084 auxhist11_inname = trim(model_config_rec%auxhist11_inname)
3085 RETURN
3086 END SUBROUTINE nl_get_auxhist11_inname
3087 SUBROUTINE nl_get_auxinput1_outname ( id_id , auxinput1_outname )
3088 character*256 , INTENT(OUT) :: auxinput1_outname
3089 INTEGER id_id
3090 CHARACTER*80 emess
3091 IF ( id_id .NE. 1 ) THEN
3092 call wrf_debug(1,&
3093 'WARNING in nl_get_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
3094 ENDIF
3095 auxinput1_outname = trim(model_config_rec%auxinput1_outname)
3096 RETURN
3097 END SUBROUTINE nl_get_auxinput1_outname
3098 SUBROUTINE nl_get_auxinput2_outname ( id_id , auxinput2_outname )
3099 character*256 , INTENT(OUT) :: auxinput2_outname
3100 INTEGER id_id
3101 CHARACTER*80 emess
3102 IF ( id_id .NE. 1 ) THEN
3103 call wrf_debug(1,&
3104 'WARNING in nl_get_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
3105 ENDIF
3106 auxinput2_outname = trim(model_config_rec%auxinput2_outname)
3107 RETURN
3108 END SUBROUTINE nl_get_auxinput2_outname
3109 SUBROUTINE nl_get_auxinput3_outname ( id_id , auxinput3_outname )
3110 character*256 , INTENT(OUT) :: auxinput3_outname
3111 INTEGER id_id
3112 CHARACTER*80 emess
3113 IF ( id_id .NE. 1 ) THEN
3114 call wrf_debug(1,&
3115 'WARNING in nl_get_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
3116 ENDIF
3117 auxinput3_outname = trim(model_config_rec%auxinput3_outname)
3118 RETURN
3119 END SUBROUTINE nl_get_auxinput3_outname
3120 SUBROUTINE nl_get_auxinput4_outname ( id_id , auxinput4_outname )
3121 character*256 , INTENT(OUT) :: auxinput4_outname
3122 INTEGER id_id
3123 CHARACTER*80 emess
3124 IF ( id_id .NE. 1 ) THEN
3125 call wrf_debug(1,&
3126 'WARNING in nl_get_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
3127 ENDIF
3128 auxinput4_outname = trim(model_config_rec%auxinput4_outname)
3129 RETURN
3130 END SUBROUTINE nl_get_auxinput4_outname
3131 SUBROUTINE nl_get_auxinput5_outname ( id_id , auxinput5_outname )
3132 character*256 , INTENT(OUT) :: auxinput5_outname
3133 INTEGER id_id
3134 CHARACTER*80 emess
3135 IF ( id_id .NE. 1 ) THEN
3136 call wrf_debug(1,&
3137 'WARNING in nl_get_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
3138 ENDIF
3139 auxinput5_outname = trim(model_config_rec%auxinput5_outname)
3140 RETURN
3141 END SUBROUTINE nl_get_auxinput5_outname
3142 SUBROUTINE nl_get_auxinput6_outname ( id_id , auxinput6_outname )
3143 character*256 , INTENT(OUT) :: auxinput6_outname
3144 INTEGER id_id
3145 CHARACTER*80 emess
3146 IF ( id_id .NE. 1 ) THEN
3147 call wrf_debug(1,&
3148 'WARNING in nl_get_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
3149 ENDIF
3150 auxinput6_outname = trim(model_config_rec%auxinput6_outname)
3151 RETURN
3152 END SUBROUTINE nl_get_auxinput6_outname
3153 SUBROUTINE nl_get_auxinput7_outname ( id_id , auxinput7_outname )
3154 character*256 , INTENT(OUT) :: auxinput7_outname
3155 INTEGER id_id
3156 CHARACTER*80 emess
3157 IF ( id_id .NE. 1 ) THEN
3158 call wrf_debug(1,&
3159 'WARNING in nl_get_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
3160 ENDIF
3161 auxinput7_outname = trim(model_config_rec%auxinput7_outname)
3162 RETURN
3163 END SUBROUTINE nl_get_auxinput7_outname
3164 SUBROUTINE nl_get_auxinput8_outname ( id_id , auxinput8_outname )
3165 character*256 , INTENT(OUT) :: auxinput8_outname
3166 INTEGER id_id
3167 CHARACTER*80 emess
3168 IF ( id_id .NE. 1 ) THEN
3169 call wrf_debug(1,&
3170 'WARNING in nl_get_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
3171 ENDIF
3172 auxinput8_outname = trim(model_config_rec%auxinput8_outname)
3173 RETURN
3174 END SUBROUTINE nl_get_auxinput8_outname
3175 SUBROUTINE nl_get_auxinput9_outname ( id_id , auxinput9_outname )
3176 character*256 , INTENT(OUT) :: auxinput9_outname
3177 INTEGER id_id
3178 CHARACTER*80 emess
3179 IF ( id_id .NE. 1 ) THEN
3180 call wrf_debug(1,&
3181 'WARNING in nl_get_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
3182 ENDIF
3183 auxinput9_outname = trim(model_config_rec%auxinput9_outname)
3184 RETURN
3185 END SUBROUTINE nl_get_auxinput9_outname
3186 SUBROUTINE nl_get_auxinput10_outname ( id_id , auxinput10_outname )
3187 character*256 , INTENT(OUT) :: auxinput10_outname
3188 INTEGER id_id
3189 CHARACTER*80 emess
3190 IF ( id_id .NE. 1 ) THEN
3191 call wrf_debug(1,&
3192 'WARNING in nl_get_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
3193 ENDIF
3194 auxinput10_outname = trim(model_config_rec%auxinput10_outname)
3195 RETURN
3196 END SUBROUTINE nl_get_auxinput10_outname
3197 SUBROUTINE nl_get_auxinput11_outname ( id_id , auxinput11_outname )
3198 character*256 , INTENT(OUT) :: auxinput11_outname
3199 INTEGER id_id
3200 CHARACTER*80 emess
3201 IF ( id_id .NE. 1 ) THEN
3202 call wrf_debug(1,&
3203 'WARNING in nl_get_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
3204 ENDIF
3205 auxinput11_outname = trim(model_config_rec%auxinput11_outname)
3206 RETURN
3207 END SUBROUTINE nl_get_auxinput11_outname
3208 SUBROUTINE nl_get_auxinput1_inname ( id_id , auxinput1_inname )
3209 character*256 , INTENT(OUT) :: auxinput1_inname
3210 INTEGER id_id
3211 CHARACTER*80 emess
3212 IF ( id_id .NE. 1 ) THEN
3213 call wrf_debug(1,&
3214 'WARNING in nl_get_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
3215 ENDIF
3216 auxinput1_inname = trim(model_config_rec%auxinput1_inname)
3217 RETURN
3218 END SUBROUTINE nl_get_auxinput1_inname
3219 SUBROUTINE nl_get_auxinput2_inname ( id_id , auxinput2_inname )
3220 character*256 , INTENT(OUT) :: auxinput2_inname
3221 INTEGER id_id
3222 CHARACTER*80 emess
3223 IF ( id_id .NE. 1 ) THEN
3224 call wrf_debug(1,&
3225 'WARNING in nl_get_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
3226 ENDIF
3227 auxinput2_inname = trim(model_config_rec%auxinput2_inname)
3228 RETURN
3229 END SUBROUTINE nl_get_auxinput2_inname
3230 SUBROUTINE nl_get_auxinput3_inname ( id_id , auxinput3_inname )
3231 character*256 , INTENT(OUT) :: auxinput3_inname
3232 INTEGER id_id
3233 CHARACTER*80 emess
3234 IF ( id_id .NE. 1 ) THEN
3235 call wrf_debug(1,&
3236 'WARNING in nl_get_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
3237 ENDIF
3238 auxinput3_inname = trim(model_config_rec%auxinput3_inname)
3239 RETURN
3240 END SUBROUTINE nl_get_auxinput3_inname
3241 SUBROUTINE nl_get_auxinput4_inname ( id_id , auxinput4_inname )
3242 character*256 , INTENT(OUT) :: auxinput4_inname
3243 INTEGER id_id
3244 CHARACTER*80 emess
3245 IF ( id_id .NE. 1 ) THEN
3246 call wrf_debug(1,&
3247 'WARNING in nl_get_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
3248 ENDIF
3249 auxinput4_inname = trim(model_config_rec%auxinput4_inname)
3250 RETURN
3251 END SUBROUTINE nl_get_auxinput4_inname
3252 SUBROUTINE nl_get_auxinput5_inname ( id_id , auxinput5_inname )
3253 character*256 , INTENT(OUT) :: auxinput5_inname
3254 INTEGER id_id
3255 CHARACTER*80 emess
3256 IF ( id_id .NE. 1 ) THEN
3257 call wrf_debug(1,&
3258 'WARNING in nl_get_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
3259 ENDIF
3260 auxinput5_inname = trim(model_config_rec%auxinput5_inname)
3261 RETURN
3262 END SUBROUTINE nl_get_auxinput5_inname
3263 SUBROUTINE nl_get_auxinput6_inname ( id_id , auxinput6_inname )
3264 character*256 , INTENT(OUT) :: auxinput6_inname
3265 INTEGER id_id
3266 CHARACTER*80 emess
3267 IF ( id_id .NE. 1 ) THEN
3268 call wrf_debug(1,&
3269 'WARNING in nl_get_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
3270 ENDIF
3271 auxinput6_inname = trim(model_config_rec%auxinput6_inname)
3272 RETURN
3273 END SUBROUTINE nl_get_auxinput6_inname
3274 SUBROUTINE nl_get_auxinput7_inname ( id_id , auxinput7_inname )
3275 character*256 , INTENT(OUT) :: auxinput7_inname
3276 INTEGER id_id
3277 CHARACTER*80 emess
3278 IF ( id_id .NE. 1 ) THEN
3279 call wrf_debug(1,&
3280 'WARNING in nl_get_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
3281 ENDIF
3282 auxinput7_inname = trim(model_config_rec%auxinput7_inname)
3283 RETURN
3284 END SUBROUTINE nl_get_auxinput7_inname
3285 SUBROUTINE nl_get_auxinput8_inname ( id_id , auxinput8_inname )
3286 character*256 , INTENT(OUT) :: auxinput8_inname
3287 INTEGER id_id
3288 CHARACTER*80 emess
3289 IF ( id_id .NE. 1 ) THEN
3290 call wrf_debug(1,&
3291 'WARNING in nl_get_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
3292 ENDIF
3293 auxinput8_inname = trim(model_config_rec%auxinput8_inname)
3294 RETURN
3295 END SUBROUTINE nl_get_auxinput8_inname
3296 SUBROUTINE nl_get_auxinput9_inname ( id_id , auxinput9_inname )
3297 character*256 , INTENT(OUT) :: auxinput9_inname
3298 INTEGER id_id
3299 CHARACTER*80 emess
3300 IF ( id_id .NE. 1 ) THEN
3301 call wrf_debug(1,&
3302 'WARNING in nl_get_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
3303 ENDIF
3304 auxinput9_inname = trim(model_config_rec%auxinput9_inname)
3305 RETURN
3306 END SUBROUTINE nl_get_auxinput9_inname
3307 SUBROUTINE nl_get_gfdda_inname ( id_id , gfdda_inname )
3308 character*256 , INTENT(OUT) :: gfdda_inname
3309 INTEGER id_id
3310 CHARACTER*80 emess
3311 IF ( id_id .NE. 1 ) THEN
3312 call wrf_debug(1,&
3313 'WARNING in nl_get_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
3314 ENDIF
3315 gfdda_inname = trim(model_config_rec%gfdda_inname)
3316 RETURN
3317 END SUBROUTINE nl_get_gfdda_inname
3318 SUBROUTINE nl_get_auxinput11_inname ( id_id , auxinput11_inname )
3319 character*256 , INTENT(OUT) :: auxinput11_inname
3320 INTEGER id_id
3321 CHARACTER*80 emess
3322 IF ( id_id .NE. 1 ) THEN
3323 call wrf_debug(1,&
3324 'WARNING in nl_get_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
3325 ENDIF
3326 auxinput11_inname = trim(model_config_rec%auxinput11_inname)
3327 RETURN
3328 END SUBROUTINE nl_get_auxinput11_inname
3329 SUBROUTINE nl_get_history_interval_mo ( id_id , history_interval_mo )
3330 integer , INTENT(OUT) :: history_interval_mo
3331 INTEGER id_id
3332 CHARACTER*80 emess
3333 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3334 WRITE(emess,*)'nl_get_history_interval_mo: Out of range domain number: ',id_id
3335 CALL wrf_error_fatal(emess)
3336 ENDIF
3337 history_interval_mo = model_config_rec%history_interval_mo(id_id)
3338 RETURN
3339 END SUBROUTINE nl_get_history_interval_mo
3340 SUBROUTINE nl_get_history_interval_d ( id_id , history_interval_d )
3341 integer , INTENT(OUT) :: history_interval_d
3342 INTEGER id_id
3343 CHARACTER*80 emess
3344 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3345 WRITE(emess,*)'nl_get_history_interval_d: Out of range domain number: ',id_id
3346 CALL wrf_error_fatal(emess)
3347 ENDIF
3348 history_interval_d = model_config_rec%history_interval_d(id_id)
3349 RETURN
3350 END SUBROUTINE nl_get_history_interval_d
3351 SUBROUTINE nl_get_history_interval_h ( id_id , history_interval_h )
3352 integer , INTENT(OUT) :: history_interval_h
3353 INTEGER id_id
3354 CHARACTER*80 emess
3355 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3356 WRITE(emess,*)'nl_get_history_interval_h: Out of range domain number: ',id_id
3357 CALL wrf_error_fatal(emess)
3358 ENDIF
3359 history_interval_h = model_config_rec%history_interval_h(id_id)
3360 RETURN
3361 END SUBROUTINE nl_get_history_interval_h
3362 SUBROUTINE nl_get_history_interval_m ( id_id , history_interval_m )
3363 integer , INTENT(OUT) :: history_interval_m
3364 INTEGER id_id
3365 CHARACTER*80 emess
3366 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3367 WRITE(emess,*)'nl_get_history_interval_m: Out of range domain number: ',id_id
3368 CALL wrf_error_fatal(emess)
3369 ENDIF
3370 history_interval_m = model_config_rec%history_interval_m(id_id)
3371 RETURN
3372 END SUBROUTINE nl_get_history_interval_m
3373 SUBROUTINE nl_get_history_interval_s ( id_id , history_interval_s )
3374 integer , INTENT(OUT) :: history_interval_s
3375 INTEGER id_id
3376 CHARACTER*80 emess
3377 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3378 WRITE(emess,*)'nl_get_history_interval_s: Out of range domain number: ',id_id
3379 CALL wrf_error_fatal(emess)
3380 ENDIF
3381 history_interval_s = model_config_rec%history_interval_s(id_id)
3382 RETURN
3383 END SUBROUTINE nl_get_history_interval_s
3384 SUBROUTINE nl_get_inputout_interval_mo ( id_id , inputout_interval_mo )
3385 integer , INTENT(OUT) :: inputout_interval_mo
3386 INTEGER id_id
3387 CHARACTER*80 emess
3388 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3389 WRITE(emess,*)'nl_get_inputout_interval_mo: Out of range domain number: ',id_id
3390 CALL wrf_error_fatal(emess)
3391 ENDIF
3392 inputout_interval_mo = model_config_rec%inputout_interval_mo(id_id)
3393 RETURN
3394 END SUBROUTINE nl_get_inputout_interval_mo
3395 SUBROUTINE nl_get_inputout_interval_d ( id_id , inputout_interval_d )
3396 integer , INTENT(OUT) :: inputout_interval_d
3397 INTEGER id_id
3398 CHARACTER*80 emess
3399 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3400 WRITE(emess,*)'nl_get_inputout_interval_d: Out of range domain number: ',id_id
3401 CALL wrf_error_fatal(emess)
3402 ENDIF
3403 inputout_interval_d = model_config_rec%inputout_interval_d(id_id)
3404 RETURN
3405 END SUBROUTINE nl_get_inputout_interval_d
3406 SUBROUTINE nl_get_inputout_interval_h ( id_id , inputout_interval_h )
3407 integer , INTENT(OUT) :: inputout_interval_h
3408 INTEGER id_id
3409 CHARACTER*80 emess
3410 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3411 WRITE(emess,*)'nl_get_inputout_interval_h: Out of range domain number: ',id_id
3412 CALL wrf_error_fatal(emess)
3413 ENDIF
3414 inputout_interval_h = model_config_rec%inputout_interval_h(id_id)
3415 RETURN
3416 END SUBROUTINE nl_get_inputout_interval_h
3417 SUBROUTINE nl_get_inputout_interval_m ( id_id , inputout_interval_m )
3418 integer , INTENT(OUT) :: inputout_interval_m
3419 INTEGER id_id
3420 CHARACTER*80 emess
3421 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3422 WRITE(emess,*)'nl_get_inputout_interval_m: Out of range domain number: ',id_id
3423 CALL wrf_error_fatal(emess)
3424 ENDIF
3425 inputout_interval_m = model_config_rec%inputout_interval_m(id_id)
3426 RETURN
3427 END SUBROUTINE nl_get_inputout_interval_m
3428 SUBROUTINE nl_get_inputout_interval_s ( id_id , inputout_interval_s )
3429 integer , INTENT(OUT) :: inputout_interval_s
3430 INTEGER id_id
3431 CHARACTER*80 emess
3432 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3433 WRITE(emess,*)'nl_get_inputout_interval_s: Out of range domain number: ',id_id
3434 CALL wrf_error_fatal(emess)
3435 ENDIF
3436 inputout_interval_s = model_config_rec%inputout_interval_s(id_id)
3437 RETURN
3438 END SUBROUTINE nl_get_inputout_interval_s
3439 SUBROUTINE nl_get_inputout_interval ( id_id , inputout_interval )
3440 integer , INTENT(OUT) :: inputout_interval
3441 INTEGER id_id
3442 CHARACTER*80 emess
3443 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3444 WRITE(emess,*)'nl_get_inputout_interval: Out of range domain number: ',id_id
3445 CALL wrf_error_fatal(emess)
3446 ENDIF
3447 inputout_interval = model_config_rec%inputout_interval(id_id)
3448 RETURN
3449 END SUBROUTINE nl_get_inputout_interval
3450 SUBROUTINE nl_get_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
3451 integer , INTENT(OUT) :: auxhist1_interval_mo
3452 INTEGER id_id
3453 CHARACTER*80 emess
3454 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3455 WRITE(emess,*)'nl_get_auxhist1_interval_mo: Out of range domain number: ',id_id
3456 CALL wrf_error_fatal(emess)
3457 ENDIF
3458 auxhist1_interval_mo = model_config_rec%auxhist1_interval_mo(id_id)
3459 RETURN
3460 END SUBROUTINE nl_get_auxhist1_interval_mo
3461 SUBROUTINE nl_get_auxhist1_interval_d ( id_id , auxhist1_interval_d )
3462 integer , INTENT(OUT) :: auxhist1_interval_d
3463 INTEGER id_id
3464 CHARACTER*80 emess
3465 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3466 WRITE(emess,*)'nl_get_auxhist1_interval_d: Out of range domain number: ',id_id
3467 CALL wrf_error_fatal(emess)
3468 ENDIF
3469 auxhist1_interval_d = model_config_rec%auxhist1_interval_d(id_id)
3470 RETURN
3471 END SUBROUTINE nl_get_auxhist1_interval_d
3472 SUBROUTINE nl_get_auxhist1_interval_h ( id_id , auxhist1_interval_h )
3473 integer , INTENT(OUT) :: auxhist1_interval_h
3474 INTEGER id_id
3475 CHARACTER*80 emess
3476 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3477 WRITE(emess,*)'nl_get_auxhist1_interval_h: Out of range domain number: ',id_id
3478 CALL wrf_error_fatal(emess)
3479 ENDIF
3480 auxhist1_interval_h = model_config_rec%auxhist1_interval_h(id_id)
3481 RETURN
3482 END SUBROUTINE nl_get_auxhist1_interval_h
3483 SUBROUTINE nl_get_auxhist1_interval_m ( id_id , auxhist1_interval_m )
3484 integer , INTENT(OUT) :: auxhist1_interval_m
3485 INTEGER id_id
3486 CHARACTER*80 emess
3487 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3488 WRITE(emess,*)'nl_get_auxhist1_interval_m: Out of range domain number: ',id_id
3489 CALL wrf_error_fatal(emess)
3490 ENDIF
3491 auxhist1_interval_m = model_config_rec%auxhist1_interval_m(id_id)
3492 RETURN
3493 END SUBROUTINE nl_get_auxhist1_interval_m
3494 SUBROUTINE nl_get_auxhist1_interval_s ( id_id , auxhist1_interval_s )
3495 integer , INTENT(OUT) :: auxhist1_interval_s
3496 INTEGER id_id
3497 CHARACTER*80 emess
3498 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3499 WRITE(emess,*)'nl_get_auxhist1_interval_s: Out of range domain number: ',id_id
3500 CALL wrf_error_fatal(emess)
3501 ENDIF
3502 auxhist1_interval_s = model_config_rec%auxhist1_interval_s(id_id)
3503 RETURN
3504 END SUBROUTINE nl_get_auxhist1_interval_s
3505 SUBROUTINE nl_get_auxhist1_interval ( id_id , auxhist1_interval )
3506 integer , INTENT(OUT) :: auxhist1_interval
3507 INTEGER id_id
3508 CHARACTER*80 emess
3509 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3510 WRITE(emess,*)'nl_get_auxhist1_interval: Out of range domain number: ',id_id
3511 CALL wrf_error_fatal(emess)
3512 ENDIF
3513 auxhist1_interval = model_config_rec%auxhist1_interval(id_id)
3514 RETURN
3515 END SUBROUTINE nl_get_auxhist1_interval
3516 SUBROUTINE nl_get_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
3517 integer , INTENT(OUT) :: auxhist2_interval_mo
3518 INTEGER id_id
3519 CHARACTER*80 emess
3520 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3521 WRITE(emess,*)'nl_get_auxhist2_interval_mo: Out of range domain number: ',id_id
3522 CALL wrf_error_fatal(emess)
3523 ENDIF
3524 auxhist2_interval_mo = model_config_rec%auxhist2_interval_mo(id_id)
3525 RETURN
3526 END SUBROUTINE nl_get_auxhist2_interval_mo
3527 SUBROUTINE nl_get_auxhist2_interval_d ( id_id , auxhist2_interval_d )
3528 integer , INTENT(OUT) :: auxhist2_interval_d
3529 INTEGER id_id
3530 CHARACTER*80 emess
3531 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3532 WRITE(emess,*)'nl_get_auxhist2_interval_d: Out of range domain number: ',id_id
3533 CALL wrf_error_fatal(emess)
3534 ENDIF
3535 auxhist2_interval_d = model_config_rec%auxhist2_interval_d(id_id)
3536 RETURN
3537 END SUBROUTINE nl_get_auxhist2_interval_d
3538 SUBROUTINE nl_get_auxhist2_interval_h ( id_id , auxhist2_interval_h )
3539 integer , INTENT(OUT) :: auxhist2_interval_h
3540 INTEGER id_id
3541 CHARACTER*80 emess
3542 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3543 WRITE(emess,*)'nl_get_auxhist2_interval_h: Out of range domain number: ',id_id
3544 CALL wrf_error_fatal(emess)
3545 ENDIF
3546 auxhist2_interval_h = model_config_rec%auxhist2_interval_h(id_id)
3547 RETURN
3548 END SUBROUTINE nl_get_auxhist2_interval_h
3549 SUBROUTINE nl_get_auxhist2_interval_m ( id_id , auxhist2_interval_m )
3550 integer , INTENT(OUT) :: auxhist2_interval_m
3551 INTEGER id_id
3552 CHARACTER*80 emess
3553 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3554 WRITE(emess,*)'nl_get_auxhist2_interval_m: Out of range domain number: ',id_id
3555 CALL wrf_error_fatal(emess)
3556 ENDIF
3557 auxhist2_interval_m = model_config_rec%auxhist2_interval_m(id_id)
3558 RETURN
3559 END SUBROUTINE nl_get_auxhist2_interval_m
3560 SUBROUTINE nl_get_auxhist2_interval_s ( id_id , auxhist2_interval_s )
3561 integer , INTENT(OUT) :: auxhist2_interval_s
3562 INTEGER id_id
3563 CHARACTER*80 emess
3564 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3565 WRITE(emess,*)'nl_get_auxhist2_interval_s: Out of range domain number: ',id_id
3566 CALL wrf_error_fatal(emess)
3567 ENDIF
3568 auxhist2_interval_s = model_config_rec%auxhist2_interval_s(id_id)
3569 RETURN
3570 END SUBROUTINE nl_get_auxhist2_interval_s
3571 SUBROUTINE nl_get_auxhist2_interval ( id_id , auxhist2_interval )
3572 integer , INTENT(OUT) :: auxhist2_interval
3573 INTEGER id_id
3574 CHARACTER*80 emess
3575 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3576 WRITE(emess,*)'nl_get_auxhist2_interval: Out of range domain number: ',id_id
3577 CALL wrf_error_fatal(emess)
3578 ENDIF
3579 auxhist2_interval = model_config_rec%auxhist2_interval(id_id)
3580 RETURN
3581 END SUBROUTINE nl_get_auxhist2_interval
3582 SUBROUTINE nl_get_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
3583 integer , INTENT(OUT) :: auxhist3_interval_mo
3584 INTEGER id_id
3585 CHARACTER*80 emess
3586 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3587 WRITE(emess,*)'nl_get_auxhist3_interval_mo: Out of range domain number: ',id_id
3588 CALL wrf_error_fatal(emess)
3589 ENDIF
3590 auxhist3_interval_mo = model_config_rec%auxhist3_interval_mo(id_id)
3591 RETURN
3592 END SUBROUTINE nl_get_auxhist3_interval_mo
3593 SUBROUTINE nl_get_auxhist3_interval_d ( id_id , auxhist3_interval_d )
3594 integer , INTENT(OUT) :: auxhist3_interval_d
3595 INTEGER id_id
3596 CHARACTER*80 emess
3597 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3598 WRITE(emess,*)'nl_get_auxhist3_interval_d: Out of range domain number: ',id_id
3599 CALL wrf_error_fatal(emess)
3600 ENDIF
3601 auxhist3_interval_d = model_config_rec%auxhist3_interval_d(id_id)
3602 RETURN
3603 END SUBROUTINE nl_get_auxhist3_interval_d
3604 SUBROUTINE nl_get_auxhist3_interval_h ( id_id , auxhist3_interval_h )
3605 integer , INTENT(OUT) :: auxhist3_interval_h
3606 INTEGER id_id
3607 CHARACTER*80 emess
3608 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3609 WRITE(emess,*)'nl_get_auxhist3_interval_h: Out of range domain number: ',id_id
3610 CALL wrf_error_fatal(emess)
3611 ENDIF
3612 auxhist3_interval_h = model_config_rec%auxhist3_interval_h(id_id)
3613 RETURN
3614 END SUBROUTINE nl_get_auxhist3_interval_h
3615 SUBROUTINE nl_get_auxhist3_interval_m ( id_id , auxhist3_interval_m )
3616 integer , INTENT(OUT) :: auxhist3_interval_m
3617 INTEGER id_id
3618 CHARACTER*80 emess
3619 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3620 WRITE(emess,*)'nl_get_auxhist3_interval_m: Out of range domain number: ',id_id
3621 CALL wrf_error_fatal(emess)
3622 ENDIF
3623 auxhist3_interval_m = model_config_rec%auxhist3_interval_m(id_id)
3624 RETURN
3625 END SUBROUTINE nl_get_auxhist3_interval_m
3626 SUBROUTINE nl_get_auxhist3_interval_s ( id_id , auxhist3_interval_s )
3627 integer , INTENT(OUT) :: auxhist3_interval_s
3628 INTEGER id_id
3629 CHARACTER*80 emess
3630 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3631 WRITE(emess,*)'nl_get_auxhist3_interval_s: Out of range domain number: ',id_id
3632 CALL wrf_error_fatal(emess)
3633 ENDIF
3634 auxhist3_interval_s = model_config_rec%auxhist3_interval_s(id_id)
3635 RETURN
3636 END SUBROUTINE nl_get_auxhist3_interval_s
3637 SUBROUTINE nl_get_auxhist3_interval ( id_id , auxhist3_interval )
3638 integer , INTENT(OUT) :: auxhist3_interval
3639 INTEGER id_id
3640 CHARACTER*80 emess
3641 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3642 WRITE(emess,*)'nl_get_auxhist3_interval: Out of range domain number: ',id_id
3643 CALL wrf_error_fatal(emess)
3644 ENDIF
3645 auxhist3_interval = model_config_rec%auxhist3_interval(id_id)
3646 RETURN
3647 END SUBROUTINE nl_get_auxhist3_interval
3648 SUBROUTINE nl_get_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
3649 integer , INTENT(OUT) :: auxhist4_interval_mo
3650 INTEGER id_id
3651 CHARACTER*80 emess
3652 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3653 WRITE(emess,*)'nl_get_auxhist4_interval_mo: Out of range domain number: ',id_id
3654 CALL wrf_error_fatal(emess)
3655 ENDIF
3656 auxhist4_interval_mo = model_config_rec%auxhist4_interval_mo(id_id)
3657 RETURN
3658 END SUBROUTINE nl_get_auxhist4_interval_mo
3659 SUBROUTINE nl_get_auxhist4_interval_d ( id_id , auxhist4_interval_d )
3660 integer , INTENT(OUT) :: auxhist4_interval_d
3661 INTEGER id_id
3662 CHARACTER*80 emess
3663 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3664 WRITE(emess,*)'nl_get_auxhist4_interval_d: Out of range domain number: ',id_id
3665 CALL wrf_error_fatal(emess)
3666 ENDIF
3667 auxhist4_interval_d = model_config_rec%auxhist4_interval_d(id_id)
3668 RETURN
3669 END SUBROUTINE nl_get_auxhist4_interval_d
3670 SUBROUTINE nl_get_auxhist4_interval_h ( id_id , auxhist4_interval_h )
3671 integer , INTENT(OUT) :: auxhist4_interval_h
3672 INTEGER id_id
3673 CHARACTER*80 emess
3674 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3675 WRITE(emess,*)'nl_get_auxhist4_interval_h: Out of range domain number: ',id_id
3676 CALL wrf_error_fatal(emess)
3677 ENDIF
3678 auxhist4_interval_h = model_config_rec%auxhist4_interval_h(id_id)
3679 RETURN
3680 END SUBROUTINE nl_get_auxhist4_interval_h
3681 SUBROUTINE nl_get_auxhist4_interval_m ( id_id , auxhist4_interval_m )
3682 integer , INTENT(OUT) :: auxhist4_interval_m
3683 INTEGER id_id
3684 CHARACTER*80 emess
3685 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3686 WRITE(emess,*)'nl_get_auxhist4_interval_m: Out of range domain number: ',id_id
3687 CALL wrf_error_fatal(emess)
3688 ENDIF
3689 auxhist4_interval_m = model_config_rec%auxhist4_interval_m(id_id)
3690 RETURN
3691 END SUBROUTINE nl_get_auxhist4_interval_m
3692 SUBROUTINE nl_get_auxhist4_interval_s ( id_id , auxhist4_interval_s )
3693 integer , INTENT(OUT) :: auxhist4_interval_s
3694 INTEGER id_id
3695 CHARACTER*80 emess
3696 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3697 WRITE(emess,*)'nl_get_auxhist4_interval_s: Out of range domain number: ',id_id
3698 CALL wrf_error_fatal(emess)
3699 ENDIF
3700 auxhist4_interval_s = model_config_rec%auxhist4_interval_s(id_id)
3701 RETURN
3702 END SUBROUTINE nl_get_auxhist4_interval_s
3703 SUBROUTINE nl_get_auxhist4_interval ( id_id , auxhist4_interval )
3704 integer , INTENT(OUT) :: auxhist4_interval
3705 INTEGER id_id
3706 CHARACTER*80 emess
3707 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3708 WRITE(emess,*)'nl_get_auxhist4_interval: Out of range domain number: ',id_id
3709 CALL wrf_error_fatal(emess)
3710 ENDIF
3711 auxhist4_interval = model_config_rec%auxhist4_interval(id_id)
3712 RETURN
3713 END SUBROUTINE nl_get_auxhist4_interval
3714 SUBROUTINE nl_get_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
3715 integer , INTENT(OUT) :: auxhist5_interval_mo
3716 INTEGER id_id
3717 CHARACTER*80 emess
3718 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3719 WRITE(emess,*)'nl_get_auxhist5_interval_mo: Out of range domain number: ',id_id
3720 CALL wrf_error_fatal(emess)
3721 ENDIF
3722 auxhist5_interval_mo = model_config_rec%auxhist5_interval_mo(id_id)
3723 RETURN
3724 END SUBROUTINE nl_get_auxhist5_interval_mo
3725 SUBROUTINE nl_get_auxhist5_interval_d ( id_id , auxhist5_interval_d )
3726 integer , INTENT(OUT) :: auxhist5_interval_d
3727 INTEGER id_id
3728 CHARACTER*80 emess
3729 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3730 WRITE(emess,*)'nl_get_auxhist5_interval_d: Out of range domain number: ',id_id
3731 CALL wrf_error_fatal(emess)
3732 ENDIF
3733 auxhist5_interval_d = model_config_rec%auxhist5_interval_d(id_id)
3734 RETURN
3735 END SUBROUTINE nl_get_auxhist5_interval_d
3736 SUBROUTINE nl_get_auxhist5_interval_h ( id_id , auxhist5_interval_h )
3737 integer , INTENT(OUT) :: auxhist5_interval_h
3738 INTEGER id_id
3739 CHARACTER*80 emess
3740 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3741 WRITE(emess,*)'nl_get_auxhist5_interval_h: Out of range domain number: ',id_id
3742 CALL wrf_error_fatal(emess)
3743 ENDIF
3744 auxhist5_interval_h = model_config_rec%auxhist5_interval_h(id_id)
3745 RETURN
3746 END SUBROUTINE nl_get_auxhist5_interval_h
3747 SUBROUTINE nl_get_auxhist5_interval_m ( id_id , auxhist5_interval_m )
3748 integer , INTENT(OUT) :: auxhist5_interval_m
3749 INTEGER id_id
3750 CHARACTER*80 emess
3751 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3752 WRITE(emess,*)'nl_get_auxhist5_interval_m: Out of range domain number: ',id_id
3753 CALL wrf_error_fatal(emess)
3754 ENDIF
3755 auxhist5_interval_m = model_config_rec%auxhist5_interval_m(id_id)
3756 RETURN
3757 END SUBROUTINE nl_get_auxhist5_interval_m
3758 SUBROUTINE nl_get_auxhist5_interval_s ( id_id , auxhist5_interval_s )
3759 integer , INTENT(OUT) :: auxhist5_interval_s
3760 INTEGER id_id
3761 CHARACTER*80 emess
3762 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3763 WRITE(emess,*)'nl_get_auxhist5_interval_s: Out of range domain number: ',id_id
3764 CALL wrf_error_fatal(emess)
3765 ENDIF
3766 auxhist5_interval_s = model_config_rec%auxhist5_interval_s(id_id)
3767 RETURN
3768 END SUBROUTINE nl_get_auxhist5_interval_s
3769 SUBROUTINE nl_get_auxhist5_interval ( id_id , auxhist5_interval )
3770 integer , INTENT(OUT) :: auxhist5_interval
3771 INTEGER id_id
3772 CHARACTER*80 emess
3773 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3774 WRITE(emess,*)'nl_get_auxhist5_interval: Out of range domain number: ',id_id
3775 CALL wrf_error_fatal(emess)
3776 ENDIF
3777 auxhist5_interval = model_config_rec%auxhist5_interval(id_id)
3778 RETURN
3779 END SUBROUTINE nl_get_auxhist5_interval
3780 SUBROUTINE nl_get_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
3781 integer , INTENT(OUT) :: auxhist6_interval_mo
3782 INTEGER id_id
3783 CHARACTER*80 emess
3784 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3785 WRITE(emess,*)'nl_get_auxhist6_interval_mo: Out of range domain number: ',id_id
3786 CALL wrf_error_fatal(emess)
3787 ENDIF
3788 auxhist6_interval_mo = model_config_rec%auxhist6_interval_mo(id_id)
3789 RETURN
3790 END SUBROUTINE nl_get_auxhist6_interval_mo
3791 SUBROUTINE nl_get_auxhist6_interval_d ( id_id , auxhist6_interval_d )
3792 integer , INTENT(OUT) :: auxhist6_interval_d
3793 INTEGER id_id
3794 CHARACTER*80 emess
3795 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3796 WRITE(emess,*)'nl_get_auxhist6_interval_d: Out of range domain number: ',id_id
3797 CALL wrf_error_fatal(emess)
3798 ENDIF
3799 auxhist6_interval_d = model_config_rec%auxhist6_interval_d(id_id)
3800 RETURN
3801 END SUBROUTINE nl_get_auxhist6_interval_d
3802 SUBROUTINE nl_get_auxhist6_interval_h ( id_id , auxhist6_interval_h )
3803 integer , INTENT(OUT) :: auxhist6_interval_h
3804 INTEGER id_id
3805 CHARACTER*80 emess
3806 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3807 WRITE(emess,*)'nl_get_auxhist6_interval_h: Out of range domain number: ',id_id
3808 CALL wrf_error_fatal(emess)
3809 ENDIF
3810 auxhist6_interval_h = model_config_rec%auxhist6_interval_h(id_id)
3811 RETURN
3812 END SUBROUTINE nl_get_auxhist6_interval_h
3813 SUBROUTINE nl_get_auxhist6_interval_m ( id_id , auxhist6_interval_m )
3814 integer , INTENT(OUT) :: auxhist6_interval_m
3815 INTEGER id_id
3816 CHARACTER*80 emess
3817 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3818 WRITE(emess,*)'nl_get_auxhist6_interval_m: Out of range domain number: ',id_id
3819 CALL wrf_error_fatal(emess)
3820 ENDIF
3821 auxhist6_interval_m = model_config_rec%auxhist6_interval_m(id_id)
3822 RETURN
3823 END SUBROUTINE nl_get_auxhist6_interval_m
3824 SUBROUTINE nl_get_auxhist6_interval_s ( id_id , auxhist6_interval_s )
3825 integer , INTENT(OUT) :: auxhist6_interval_s
3826 INTEGER id_id
3827 CHARACTER*80 emess
3828 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3829 WRITE(emess,*)'nl_get_auxhist6_interval_s: Out of range domain number: ',id_id
3830 CALL wrf_error_fatal(emess)
3831 ENDIF
3832 auxhist6_interval_s = model_config_rec%auxhist6_interval_s(id_id)
3833 RETURN
3834 END SUBROUTINE nl_get_auxhist6_interval_s
3835 SUBROUTINE nl_get_auxhist6_interval ( id_id , auxhist6_interval )
3836 integer , INTENT(OUT) :: auxhist6_interval
3837 INTEGER id_id
3838 CHARACTER*80 emess
3839 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3840 WRITE(emess,*)'nl_get_auxhist6_interval: Out of range domain number: ',id_id
3841 CALL wrf_error_fatal(emess)
3842 ENDIF
3843 auxhist6_interval = model_config_rec%auxhist6_interval(id_id)
3844 RETURN
3845 END SUBROUTINE nl_get_auxhist6_interval
3846 SUBROUTINE nl_get_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
3847 integer , INTENT(OUT) :: auxhist7_interval_mo
3848 INTEGER id_id
3849 CHARACTER*80 emess
3850 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3851 WRITE(emess,*)'nl_get_auxhist7_interval_mo: Out of range domain number: ',id_id
3852 CALL wrf_error_fatal(emess)
3853 ENDIF
3854 auxhist7_interval_mo = model_config_rec%auxhist7_interval_mo(id_id)
3855 RETURN
3856 END SUBROUTINE nl_get_auxhist7_interval_mo
3857 SUBROUTINE nl_get_auxhist7_interval_d ( id_id , auxhist7_interval_d )
3858 integer , INTENT(OUT) :: auxhist7_interval_d
3859 INTEGER id_id
3860 CHARACTER*80 emess
3861 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3862 WRITE(emess,*)'nl_get_auxhist7_interval_d: Out of range domain number: ',id_id
3863 CALL wrf_error_fatal(emess)
3864 ENDIF
3865 auxhist7_interval_d = model_config_rec%auxhist7_interval_d(id_id)
3866 RETURN
3867 END SUBROUTINE nl_get_auxhist7_interval_d
3868 SUBROUTINE nl_get_auxhist7_interval_h ( id_id , auxhist7_interval_h )
3869 integer , INTENT(OUT) :: auxhist7_interval_h
3870 INTEGER id_id
3871 CHARACTER*80 emess
3872 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3873 WRITE(emess,*)'nl_get_auxhist7_interval_h: Out of range domain number: ',id_id
3874 CALL wrf_error_fatal(emess)
3875 ENDIF
3876 auxhist7_interval_h = model_config_rec%auxhist7_interval_h(id_id)
3877 RETURN
3878 END SUBROUTINE nl_get_auxhist7_interval_h
3879 SUBROUTINE nl_get_auxhist7_interval_m ( id_id , auxhist7_interval_m )
3880 integer , INTENT(OUT) :: auxhist7_interval_m
3881 INTEGER id_id
3882 CHARACTER*80 emess
3883 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3884 WRITE(emess,*)'nl_get_auxhist7_interval_m: Out of range domain number: ',id_id
3885 CALL wrf_error_fatal(emess)
3886 ENDIF
3887 auxhist7_interval_m = model_config_rec%auxhist7_interval_m(id_id)
3888 RETURN
3889 END SUBROUTINE nl_get_auxhist7_interval_m
3890 SUBROUTINE nl_get_auxhist7_interval_s ( id_id , auxhist7_interval_s )
3891 integer , INTENT(OUT) :: auxhist7_interval_s
3892 INTEGER id_id
3893 CHARACTER*80 emess
3894 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3895 WRITE(emess,*)'nl_get_auxhist7_interval_s: Out of range domain number: ',id_id
3896 CALL wrf_error_fatal(emess)
3897 ENDIF
3898 auxhist7_interval_s = model_config_rec%auxhist7_interval_s(id_id)
3899 RETURN
3900 END SUBROUTINE nl_get_auxhist7_interval_s
3901 SUBROUTINE nl_get_auxhist7_interval ( id_id , auxhist7_interval )
3902 integer , INTENT(OUT) :: auxhist7_interval
3903 INTEGER id_id
3904 CHARACTER*80 emess
3905 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3906 WRITE(emess,*)'nl_get_auxhist7_interval: Out of range domain number: ',id_id
3907 CALL wrf_error_fatal(emess)
3908 ENDIF
3909 auxhist7_interval = model_config_rec%auxhist7_interval(id_id)
3910 RETURN
3911 END SUBROUTINE nl_get_auxhist7_interval
3912 SUBROUTINE nl_get_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
3913 integer , INTENT(OUT) :: auxhist8_interval_mo
3914 INTEGER id_id
3915 CHARACTER*80 emess
3916 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3917 WRITE(emess,*)'nl_get_auxhist8_interval_mo: Out of range domain number: ',id_id
3918 CALL wrf_error_fatal(emess)
3919 ENDIF
3920 auxhist8_interval_mo = model_config_rec%auxhist8_interval_mo(id_id)
3921 RETURN
3922 END SUBROUTINE nl_get_auxhist8_interval_mo
3923 SUBROUTINE nl_get_auxhist8_interval_d ( id_id , auxhist8_interval_d )
3924 integer , INTENT(OUT) :: auxhist8_interval_d
3925 INTEGER id_id
3926 CHARACTER*80 emess
3927 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3928 WRITE(emess,*)'nl_get_auxhist8_interval_d: Out of range domain number: ',id_id
3929 CALL wrf_error_fatal(emess)
3930 ENDIF
3931 auxhist8_interval_d = model_config_rec%auxhist8_interval_d(id_id)
3932 RETURN
3933 END SUBROUTINE nl_get_auxhist8_interval_d
3934 SUBROUTINE nl_get_auxhist8_interval_h ( id_id , auxhist8_interval_h )
3935 integer , INTENT(OUT) :: auxhist8_interval_h
3936 INTEGER id_id
3937 CHARACTER*80 emess
3938 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3939 WRITE(emess,*)'nl_get_auxhist8_interval_h: Out of range domain number: ',id_id
3940 CALL wrf_error_fatal(emess)
3941 ENDIF
3942 auxhist8_interval_h = model_config_rec%auxhist8_interval_h(id_id)
3943 RETURN
3944 END SUBROUTINE nl_get_auxhist8_interval_h
3945 SUBROUTINE nl_get_auxhist8_interval_m ( id_id , auxhist8_interval_m )
3946 integer , INTENT(OUT) :: auxhist8_interval_m
3947 INTEGER id_id
3948 CHARACTER*80 emess
3949 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3950 WRITE(emess,*)'nl_get_auxhist8_interval_m: Out of range domain number: ',id_id
3951 CALL wrf_error_fatal(emess)
3952 ENDIF
3953 auxhist8_interval_m = model_config_rec%auxhist8_interval_m(id_id)
3954 RETURN
3955 END SUBROUTINE nl_get_auxhist8_interval_m
3956 SUBROUTINE nl_get_auxhist8_interval_s ( id_id , auxhist8_interval_s )
3957 integer , INTENT(OUT) :: auxhist8_interval_s
3958 INTEGER id_id
3959 CHARACTER*80 emess
3960 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3961 WRITE(emess,*)'nl_get_auxhist8_interval_s: Out of range domain number: ',id_id
3962 CALL wrf_error_fatal(emess)
3963 ENDIF
3964 auxhist8_interval_s = model_config_rec%auxhist8_interval_s(id_id)
3965 RETURN
3966 END SUBROUTINE nl_get_auxhist8_interval_s
3967 SUBROUTINE nl_get_auxhist8_interval ( id_id , auxhist8_interval )
3968 integer , INTENT(OUT) :: auxhist8_interval
3969 INTEGER id_id
3970 CHARACTER*80 emess
3971 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3972 WRITE(emess,*)'nl_get_auxhist8_interval: Out of range domain number: ',id_id
3973 CALL wrf_error_fatal(emess)
3974 ENDIF
3975 auxhist8_interval = model_config_rec%auxhist8_interval(id_id)
3976 RETURN
3977 END SUBROUTINE nl_get_auxhist8_interval
3978 SUBROUTINE nl_get_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
3979 integer , INTENT(OUT) :: auxhist9_interval_mo
3980 INTEGER id_id
3981 CHARACTER*80 emess
3982 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3983 WRITE(emess,*)'nl_get_auxhist9_interval_mo: Out of range domain number: ',id_id
3984 CALL wrf_error_fatal(emess)
3985 ENDIF
3986 auxhist9_interval_mo = model_config_rec%auxhist9_interval_mo(id_id)
3987 RETURN
3988 END SUBROUTINE nl_get_auxhist9_interval_mo
3989 SUBROUTINE nl_get_auxhist9_interval_d ( id_id , auxhist9_interval_d )
3990 integer , INTENT(OUT) :: auxhist9_interval_d
3991 INTEGER id_id
3992 CHARACTER*80 emess
3993 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
3994 WRITE(emess,*)'nl_get_auxhist9_interval_d: Out of range domain number: ',id_id
3995 CALL wrf_error_fatal(emess)
3996 ENDIF
3997 auxhist9_interval_d = model_config_rec%auxhist9_interval_d(id_id)
3998 RETURN
3999 END SUBROUTINE nl_get_auxhist9_interval_d
4000 SUBROUTINE nl_get_auxhist9_interval_h ( id_id , auxhist9_interval_h )
4001 integer , INTENT(OUT) :: auxhist9_interval_h
4002 INTEGER id_id
4003 CHARACTER*80 emess
4004 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4005 WRITE(emess,*)'nl_get_auxhist9_interval_h: Out of range domain number: ',id_id
4006 CALL wrf_error_fatal(emess)
4007 ENDIF
4008 auxhist9_interval_h = model_config_rec%auxhist9_interval_h(id_id)
4009 RETURN
4010 END SUBROUTINE nl_get_auxhist9_interval_h
4011 SUBROUTINE nl_get_auxhist9_interval_m ( id_id , auxhist9_interval_m )
4012 integer , INTENT(OUT) :: auxhist9_interval_m
4013 INTEGER id_id
4014 CHARACTER*80 emess
4015 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4016 WRITE(emess,*)'nl_get_auxhist9_interval_m: Out of range domain number: ',id_id
4017 CALL wrf_error_fatal(emess)
4018 ENDIF
4019 auxhist9_interval_m = model_config_rec%auxhist9_interval_m(id_id)
4020 RETURN
4021 END SUBROUTINE nl_get_auxhist9_interval_m
4022 SUBROUTINE nl_get_auxhist9_interval_s ( id_id , auxhist9_interval_s )
4023 integer , INTENT(OUT) :: auxhist9_interval_s
4024 INTEGER id_id
4025 CHARACTER*80 emess
4026 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4027 WRITE(emess,*)'nl_get_auxhist9_interval_s: Out of range domain number: ',id_id
4028 CALL wrf_error_fatal(emess)
4029 ENDIF
4030 auxhist9_interval_s = model_config_rec%auxhist9_interval_s(id_id)
4031 RETURN
4032 END SUBROUTINE nl_get_auxhist9_interval_s
4033 SUBROUTINE nl_get_auxhist9_interval ( id_id , auxhist9_interval )
4034 integer , INTENT(OUT) :: auxhist9_interval
4035 INTEGER id_id
4036 CHARACTER*80 emess
4037 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4038 WRITE(emess,*)'nl_get_auxhist9_interval: Out of range domain number: ',id_id
4039 CALL wrf_error_fatal(emess)
4040 ENDIF
4041 auxhist9_interval = model_config_rec%auxhist9_interval(id_id)
4042 RETURN
4043 END SUBROUTINE nl_get_auxhist9_interval
4044 SUBROUTINE nl_get_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
4045 integer , INTENT(OUT) :: auxhist10_interval_mo
4046 INTEGER id_id
4047 CHARACTER*80 emess
4048 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4049 WRITE(emess,*)'nl_get_auxhist10_interval_mo: Out of range domain number: ',id_id
4050 CALL wrf_error_fatal(emess)
4051 ENDIF
4052 auxhist10_interval_mo = model_config_rec%auxhist10_interval_mo(id_id)
4053 RETURN
4054 END SUBROUTINE nl_get_auxhist10_interval_mo
4055 SUBROUTINE nl_get_auxhist10_interval_d ( id_id , auxhist10_interval_d )
4056 integer , INTENT(OUT) :: auxhist10_interval_d
4057 INTEGER id_id
4058 CHARACTER*80 emess
4059 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4060 WRITE(emess,*)'nl_get_auxhist10_interval_d: Out of range domain number: ',id_id
4061 CALL wrf_error_fatal(emess)
4062 ENDIF
4063 auxhist10_interval_d = model_config_rec%auxhist10_interval_d(id_id)
4064 RETURN
4065 END SUBROUTINE nl_get_auxhist10_interval_d
4066 SUBROUTINE nl_get_auxhist10_interval_h ( id_id , auxhist10_interval_h )
4067 integer , INTENT(OUT) :: auxhist10_interval_h
4068 INTEGER id_id
4069 CHARACTER*80 emess
4070 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4071 WRITE(emess,*)'nl_get_auxhist10_interval_h: Out of range domain number: ',id_id
4072 CALL wrf_error_fatal(emess)
4073 ENDIF
4074 auxhist10_interval_h = model_config_rec%auxhist10_interval_h(id_id)
4075 RETURN
4076 END SUBROUTINE nl_get_auxhist10_interval_h
4077 SUBROUTINE nl_get_auxhist10_interval_m ( id_id , auxhist10_interval_m )
4078 integer , INTENT(OUT) :: auxhist10_interval_m
4079 INTEGER id_id
4080 CHARACTER*80 emess
4081 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4082 WRITE(emess,*)'nl_get_auxhist10_interval_m: Out of range domain number: ',id_id
4083 CALL wrf_error_fatal(emess)
4084 ENDIF
4085 auxhist10_interval_m = model_config_rec%auxhist10_interval_m(id_id)
4086 RETURN
4087 END SUBROUTINE nl_get_auxhist10_interval_m
4088 SUBROUTINE nl_get_auxhist10_interval_s ( id_id , auxhist10_interval_s )
4089 integer , INTENT(OUT) :: auxhist10_interval_s
4090 INTEGER id_id
4091 CHARACTER*80 emess
4092 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4093 WRITE(emess,*)'nl_get_auxhist10_interval_s: Out of range domain number: ',id_id
4094 CALL wrf_error_fatal(emess)
4095 ENDIF
4096 auxhist10_interval_s = model_config_rec%auxhist10_interval_s(id_id)
4097 RETURN
4098 END SUBROUTINE nl_get_auxhist10_interval_s
4099 SUBROUTINE nl_get_auxhist10_interval ( id_id , auxhist10_interval )
4100 integer , INTENT(OUT) :: auxhist10_interval
4101 INTEGER id_id
4102 CHARACTER*80 emess
4103 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4104 WRITE(emess,*)'nl_get_auxhist10_interval: Out of range domain number: ',id_id
4105 CALL wrf_error_fatal(emess)
4106 ENDIF
4107 auxhist10_interval = model_config_rec%auxhist10_interval(id_id)
4108 RETURN
4109 END SUBROUTINE nl_get_auxhist10_interval
4110 SUBROUTINE nl_get_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
4111 integer , INTENT(OUT) :: auxhist11_interval_mo
4112 INTEGER id_id
4113 CHARACTER*80 emess
4114 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4115 WRITE(emess,*)'nl_get_auxhist11_interval_mo: Out of range domain number: ',id_id
4116 CALL wrf_error_fatal(emess)
4117 ENDIF
4118 auxhist11_interval_mo = model_config_rec%auxhist11_interval_mo(id_id)
4119 RETURN
4120 END SUBROUTINE nl_get_auxhist11_interval_mo
4121 SUBROUTINE nl_get_auxhist11_interval_d ( id_id , auxhist11_interval_d )
4122 integer , INTENT(OUT) :: auxhist11_interval_d
4123 INTEGER id_id
4124 CHARACTER*80 emess
4125 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4126 WRITE(emess,*)'nl_get_auxhist11_interval_d: Out of range domain number: ',id_id
4127 CALL wrf_error_fatal(emess)
4128 ENDIF
4129 auxhist11_interval_d = model_config_rec%auxhist11_interval_d(id_id)
4130 RETURN
4131 END SUBROUTINE nl_get_auxhist11_interval_d
4132 SUBROUTINE nl_get_auxhist11_interval_h ( id_id , auxhist11_interval_h )
4133 integer , INTENT(OUT) :: auxhist11_interval_h
4134 INTEGER id_id
4135 CHARACTER*80 emess
4136 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4137 WRITE(emess,*)'nl_get_auxhist11_interval_h: Out of range domain number: ',id_id
4138 CALL wrf_error_fatal(emess)
4139 ENDIF
4140 auxhist11_interval_h = model_config_rec%auxhist11_interval_h(id_id)
4141 RETURN
4142 END SUBROUTINE nl_get_auxhist11_interval_h
4143 SUBROUTINE nl_get_auxhist11_interval_m ( id_id , auxhist11_interval_m )
4144 integer , INTENT(OUT) :: auxhist11_interval_m
4145 INTEGER id_id
4146 CHARACTER*80 emess
4147 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4148 WRITE(emess,*)'nl_get_auxhist11_interval_m: Out of range domain number: ',id_id
4149 CALL wrf_error_fatal(emess)
4150 ENDIF
4151 auxhist11_interval_m = model_config_rec%auxhist11_interval_m(id_id)
4152 RETURN
4153 END SUBROUTINE nl_get_auxhist11_interval_m
4154 SUBROUTINE nl_get_auxhist11_interval_s ( id_id , auxhist11_interval_s )
4155 integer , INTENT(OUT) :: auxhist11_interval_s
4156 INTEGER id_id
4157 CHARACTER*80 emess
4158 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4159 WRITE(emess,*)'nl_get_auxhist11_interval_s: Out of range domain number: ',id_id
4160 CALL wrf_error_fatal(emess)
4161 ENDIF
4162 auxhist11_interval_s = model_config_rec%auxhist11_interval_s(id_id)
4163 RETURN
4164 END SUBROUTINE nl_get_auxhist11_interval_s
4165 SUBROUTINE nl_get_auxhist11_interval ( id_id , auxhist11_interval )
4166 integer , INTENT(OUT) :: auxhist11_interval
4167 INTEGER id_id
4168 CHARACTER*80 emess
4169 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4170 WRITE(emess,*)'nl_get_auxhist11_interval: Out of range domain number: ',id_id
4171 CALL wrf_error_fatal(emess)
4172 ENDIF
4173 auxhist11_interval = model_config_rec%auxhist11_interval(id_id)
4174 RETURN
4175 END SUBROUTINE nl_get_auxhist11_interval
4176 SUBROUTINE nl_get_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
4177 integer , INTENT(OUT) :: auxinput1_interval_mo
4178 INTEGER id_id
4179 CHARACTER*80 emess
4180 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4181 WRITE(emess,*)'nl_get_auxinput1_interval_mo: Out of range domain number: ',id_id
4182 CALL wrf_error_fatal(emess)
4183 ENDIF
4184 auxinput1_interval_mo = model_config_rec%auxinput1_interval_mo(id_id)
4185 RETURN
4186 END SUBROUTINE nl_get_auxinput1_interval_mo
4187 SUBROUTINE nl_get_auxinput1_interval_d ( id_id , auxinput1_interval_d )
4188 integer , INTENT(OUT) :: auxinput1_interval_d
4189 INTEGER id_id
4190 CHARACTER*80 emess
4191 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4192 WRITE(emess,*)'nl_get_auxinput1_interval_d: Out of range domain number: ',id_id
4193 CALL wrf_error_fatal(emess)
4194 ENDIF
4195 auxinput1_interval_d = model_config_rec%auxinput1_interval_d(id_id)
4196 RETURN
4197 END SUBROUTINE nl_get_auxinput1_interval_d
4198 SUBROUTINE nl_get_auxinput1_interval_h ( id_id , auxinput1_interval_h )
4199 integer , INTENT(OUT) :: auxinput1_interval_h
4200 INTEGER id_id
4201 CHARACTER*80 emess
4202 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4203 WRITE(emess,*)'nl_get_auxinput1_interval_h: Out of range domain number: ',id_id
4204 CALL wrf_error_fatal(emess)
4205 ENDIF
4206 auxinput1_interval_h = model_config_rec%auxinput1_interval_h(id_id)
4207 RETURN
4208 END SUBROUTINE nl_get_auxinput1_interval_h
4209 SUBROUTINE nl_get_auxinput1_interval_m ( id_id , auxinput1_interval_m )
4210 integer , INTENT(OUT) :: auxinput1_interval_m
4211 INTEGER id_id
4212 CHARACTER*80 emess
4213 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4214 WRITE(emess,*)'nl_get_auxinput1_interval_m: Out of range domain number: ',id_id
4215 CALL wrf_error_fatal(emess)
4216 ENDIF
4217 auxinput1_interval_m = model_config_rec%auxinput1_interval_m(id_id)
4218 RETURN
4219 END SUBROUTINE nl_get_auxinput1_interval_m
4220 SUBROUTINE nl_get_auxinput1_interval_s ( id_id , auxinput1_interval_s )
4221 integer , INTENT(OUT) :: auxinput1_interval_s
4222 INTEGER id_id
4223 CHARACTER*80 emess
4224 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4225 WRITE(emess,*)'nl_get_auxinput1_interval_s: Out of range domain number: ',id_id
4226 CALL wrf_error_fatal(emess)
4227 ENDIF
4228 auxinput1_interval_s = model_config_rec%auxinput1_interval_s(id_id)
4229 RETURN
4230 END SUBROUTINE nl_get_auxinput1_interval_s
4231 SUBROUTINE nl_get_auxinput1_interval ( id_id , auxinput1_interval )
4232 integer , INTENT(OUT) :: auxinput1_interval
4233 INTEGER id_id
4234 CHARACTER*80 emess
4235 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4236 WRITE(emess,*)'nl_get_auxinput1_interval: Out of range domain number: ',id_id
4237 CALL wrf_error_fatal(emess)
4238 ENDIF
4239 auxinput1_interval = model_config_rec%auxinput1_interval(id_id)
4240 RETURN
4241 END SUBROUTINE nl_get_auxinput1_interval
4242 SUBROUTINE nl_get_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
4243 integer , INTENT(OUT) :: auxinput2_interval_mo
4244 INTEGER id_id
4245 CHARACTER*80 emess
4246 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4247 WRITE(emess,*)'nl_get_auxinput2_interval_mo: Out of range domain number: ',id_id
4248 CALL wrf_error_fatal(emess)
4249 ENDIF
4250 auxinput2_interval_mo = model_config_rec%auxinput2_interval_mo(id_id)
4251 RETURN
4252 END SUBROUTINE nl_get_auxinput2_interval_mo
4253 SUBROUTINE nl_get_auxinput2_interval_d ( id_id , auxinput2_interval_d )
4254 integer , INTENT(OUT) :: auxinput2_interval_d
4255 INTEGER id_id
4256 CHARACTER*80 emess
4257 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4258 WRITE(emess,*)'nl_get_auxinput2_interval_d: Out of range domain number: ',id_id
4259 CALL wrf_error_fatal(emess)
4260 ENDIF
4261 auxinput2_interval_d = model_config_rec%auxinput2_interval_d(id_id)
4262 RETURN
4263 END SUBROUTINE nl_get_auxinput2_interval_d
4264 SUBROUTINE nl_get_auxinput2_interval_h ( id_id , auxinput2_interval_h )
4265 integer , INTENT(OUT) :: auxinput2_interval_h
4266 INTEGER id_id
4267 CHARACTER*80 emess
4268 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4269 WRITE(emess,*)'nl_get_auxinput2_interval_h: Out of range domain number: ',id_id
4270 CALL wrf_error_fatal(emess)
4271 ENDIF
4272 auxinput2_interval_h = model_config_rec%auxinput2_interval_h(id_id)
4273 RETURN
4274 END SUBROUTINE nl_get_auxinput2_interval_h
4275 SUBROUTINE nl_get_auxinput2_interval_m ( id_id , auxinput2_interval_m )
4276 integer , INTENT(OUT) :: auxinput2_interval_m
4277 INTEGER id_id
4278 CHARACTER*80 emess
4279 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4280 WRITE(emess,*)'nl_get_auxinput2_interval_m: Out of range domain number: ',id_id
4281 CALL wrf_error_fatal(emess)
4282 ENDIF
4283 auxinput2_interval_m = model_config_rec%auxinput2_interval_m(id_id)
4284 RETURN
4285 END SUBROUTINE nl_get_auxinput2_interval_m
4286 SUBROUTINE nl_get_auxinput2_interval_s ( id_id , auxinput2_interval_s )
4287 integer , INTENT(OUT) :: auxinput2_interval_s
4288 INTEGER id_id
4289 CHARACTER*80 emess
4290 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4291 WRITE(emess,*)'nl_get_auxinput2_interval_s: Out of range domain number: ',id_id
4292 CALL wrf_error_fatal(emess)
4293 ENDIF
4294 auxinput2_interval_s = model_config_rec%auxinput2_interval_s(id_id)
4295 RETURN
4296 END SUBROUTINE nl_get_auxinput2_interval_s
4297 SUBROUTINE nl_get_auxinput2_interval ( id_id , auxinput2_interval )
4298 integer , INTENT(OUT) :: auxinput2_interval
4299 INTEGER id_id
4300 CHARACTER*80 emess
4301 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4302 WRITE(emess,*)'nl_get_auxinput2_interval: Out of range domain number: ',id_id
4303 CALL wrf_error_fatal(emess)
4304 ENDIF
4305 auxinput2_interval = model_config_rec%auxinput2_interval(id_id)
4306 RETURN
4307 END SUBROUTINE nl_get_auxinput2_interval
4308 SUBROUTINE nl_get_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
4309 integer , INTENT(OUT) :: auxinput3_interval_mo
4310 INTEGER id_id
4311 CHARACTER*80 emess
4312 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4313 WRITE(emess,*)'nl_get_auxinput3_interval_mo: Out of range domain number: ',id_id
4314 CALL wrf_error_fatal(emess)
4315 ENDIF
4316 auxinput3_interval_mo = model_config_rec%auxinput3_interval_mo(id_id)
4317 RETURN
4318 END SUBROUTINE nl_get_auxinput3_interval_mo
4319 SUBROUTINE nl_get_auxinput3_interval_d ( id_id , auxinput3_interval_d )
4320 integer , INTENT(OUT) :: auxinput3_interval_d
4321 INTEGER id_id
4322 CHARACTER*80 emess
4323 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4324 WRITE(emess,*)'nl_get_auxinput3_interval_d: Out of range domain number: ',id_id
4325 CALL wrf_error_fatal(emess)
4326 ENDIF
4327 auxinput3_interval_d = model_config_rec%auxinput3_interval_d(id_id)
4328 RETURN
4329 END SUBROUTINE nl_get_auxinput3_interval_d
4330 SUBROUTINE nl_get_auxinput3_interval_h ( id_id , auxinput3_interval_h )
4331 integer , INTENT(OUT) :: auxinput3_interval_h
4332 INTEGER id_id
4333 CHARACTER*80 emess
4334 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4335 WRITE(emess,*)'nl_get_auxinput3_interval_h: Out of range domain number: ',id_id
4336 CALL wrf_error_fatal(emess)
4337 ENDIF
4338 auxinput3_interval_h = model_config_rec%auxinput3_interval_h(id_id)
4339 RETURN
4340 END SUBROUTINE nl_get_auxinput3_interval_h
4341 SUBROUTINE nl_get_auxinput3_interval_m ( id_id , auxinput3_interval_m )
4342 integer , INTENT(OUT) :: auxinput3_interval_m
4343 INTEGER id_id
4344 CHARACTER*80 emess
4345 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4346 WRITE(emess,*)'nl_get_auxinput3_interval_m: Out of range domain number: ',id_id
4347 CALL wrf_error_fatal(emess)
4348 ENDIF
4349 auxinput3_interval_m = model_config_rec%auxinput3_interval_m(id_id)
4350 RETURN
4351 END SUBROUTINE nl_get_auxinput3_interval_m
4352 SUBROUTINE nl_get_auxinput3_interval_s ( id_id , auxinput3_interval_s )
4353 integer , INTENT(OUT) :: auxinput3_interval_s
4354 INTEGER id_id
4355 CHARACTER*80 emess
4356 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4357 WRITE(emess,*)'nl_get_auxinput3_interval_s: Out of range domain number: ',id_id
4358 CALL wrf_error_fatal(emess)
4359 ENDIF
4360 auxinput3_interval_s = model_config_rec%auxinput3_interval_s(id_id)
4361 RETURN
4362 END SUBROUTINE nl_get_auxinput3_interval_s
4363 SUBROUTINE nl_get_auxinput3_interval ( id_id , auxinput3_interval )
4364 integer , INTENT(OUT) :: auxinput3_interval
4365 INTEGER id_id
4366 CHARACTER*80 emess
4367 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4368 WRITE(emess,*)'nl_get_auxinput3_interval: Out of range domain number: ',id_id
4369 CALL wrf_error_fatal(emess)
4370 ENDIF
4371 auxinput3_interval = model_config_rec%auxinput3_interval(id_id)
4372 RETURN
4373 END SUBROUTINE nl_get_auxinput3_interval
4374 SUBROUTINE nl_get_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
4375 integer , INTENT(OUT) :: auxinput4_interval_mo
4376 INTEGER id_id
4377 CHARACTER*80 emess
4378 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4379 WRITE(emess,*)'nl_get_auxinput4_interval_mo: Out of range domain number: ',id_id
4380 CALL wrf_error_fatal(emess)
4381 ENDIF
4382 auxinput4_interval_mo = model_config_rec%auxinput4_interval_mo(id_id)
4383 RETURN
4384 END SUBROUTINE nl_get_auxinput4_interval_mo
4385 SUBROUTINE nl_get_auxinput4_interval_d ( id_id , auxinput4_interval_d )
4386 integer , INTENT(OUT) :: auxinput4_interval_d
4387 INTEGER id_id
4388 CHARACTER*80 emess
4389 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4390 WRITE(emess,*)'nl_get_auxinput4_interval_d: Out of range domain number: ',id_id
4391 CALL wrf_error_fatal(emess)
4392 ENDIF
4393 auxinput4_interval_d = model_config_rec%auxinput4_interval_d(id_id)
4394 RETURN
4395 END SUBROUTINE nl_get_auxinput4_interval_d
4396 SUBROUTINE nl_get_auxinput4_interval_h ( id_id , auxinput4_interval_h )
4397 integer , INTENT(OUT) :: auxinput4_interval_h
4398 INTEGER id_id
4399 CHARACTER*80 emess
4400 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4401 WRITE(emess,*)'nl_get_auxinput4_interval_h: Out of range domain number: ',id_id
4402 CALL wrf_error_fatal(emess)
4403 ENDIF
4404 auxinput4_interval_h = model_config_rec%auxinput4_interval_h(id_id)
4405 RETURN
4406 END SUBROUTINE nl_get_auxinput4_interval_h
4407 SUBROUTINE nl_get_auxinput4_interval_m ( id_id , auxinput4_interval_m )
4408 integer , INTENT(OUT) :: auxinput4_interval_m
4409 INTEGER id_id
4410 CHARACTER*80 emess
4411 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4412 WRITE(emess,*)'nl_get_auxinput4_interval_m: Out of range domain number: ',id_id
4413 CALL wrf_error_fatal(emess)
4414 ENDIF
4415 auxinput4_interval_m = model_config_rec%auxinput4_interval_m(id_id)
4416 RETURN
4417 END SUBROUTINE nl_get_auxinput4_interval_m
4418 SUBROUTINE nl_get_auxinput4_interval_s ( id_id , auxinput4_interval_s )
4419 integer , INTENT(OUT) :: auxinput4_interval_s
4420 INTEGER id_id
4421 CHARACTER*80 emess
4422 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4423 WRITE(emess,*)'nl_get_auxinput4_interval_s: Out of range domain number: ',id_id
4424 CALL wrf_error_fatal(emess)
4425 ENDIF
4426 auxinput4_interval_s = model_config_rec%auxinput4_interval_s(id_id)
4427 RETURN
4428 END SUBROUTINE nl_get_auxinput4_interval_s
4429 SUBROUTINE nl_get_auxinput4_interval ( id_id , auxinput4_interval )
4430 integer , INTENT(OUT) :: auxinput4_interval
4431 INTEGER id_id
4432 CHARACTER*80 emess
4433 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4434 WRITE(emess,*)'nl_get_auxinput4_interval: Out of range domain number: ',id_id
4435 CALL wrf_error_fatal(emess)
4436 ENDIF
4437 auxinput4_interval = model_config_rec%auxinput4_interval(id_id)
4438 RETURN
4439 END SUBROUTINE nl_get_auxinput4_interval
4440 SUBROUTINE nl_get_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
4441 integer , INTENT(OUT) :: auxinput5_interval_mo
4442 INTEGER id_id
4443 CHARACTER*80 emess
4444 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4445 WRITE(emess,*)'nl_get_auxinput5_interval_mo: Out of range domain number: ',id_id
4446 CALL wrf_error_fatal(emess)
4447 ENDIF
4448 auxinput5_interval_mo = model_config_rec%auxinput5_interval_mo(id_id)
4449 RETURN
4450 END SUBROUTINE nl_get_auxinput5_interval_mo
4451 SUBROUTINE nl_get_auxinput5_interval_d ( id_id , auxinput5_interval_d )
4452 integer , INTENT(OUT) :: auxinput5_interval_d
4453 INTEGER id_id
4454 CHARACTER*80 emess
4455 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4456 WRITE(emess,*)'nl_get_auxinput5_interval_d: Out of range domain number: ',id_id
4457 CALL wrf_error_fatal(emess)
4458 ENDIF
4459 auxinput5_interval_d = model_config_rec%auxinput5_interval_d(id_id)
4460 RETURN
4461 END SUBROUTINE nl_get_auxinput5_interval_d
4462 SUBROUTINE nl_get_auxinput5_interval_h ( id_id , auxinput5_interval_h )
4463 integer , INTENT(OUT) :: auxinput5_interval_h
4464 INTEGER id_id
4465 CHARACTER*80 emess
4466 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4467 WRITE(emess,*)'nl_get_auxinput5_interval_h: Out of range domain number: ',id_id
4468 CALL wrf_error_fatal(emess)
4469 ENDIF
4470 auxinput5_interval_h = model_config_rec%auxinput5_interval_h(id_id)
4471 RETURN
4472 END SUBROUTINE nl_get_auxinput5_interval_h
4473 SUBROUTINE nl_get_auxinput5_interval_m ( id_id , auxinput5_interval_m )
4474 integer , INTENT(OUT) :: auxinput5_interval_m
4475 INTEGER id_id
4476 CHARACTER*80 emess
4477 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4478 WRITE(emess,*)'nl_get_auxinput5_interval_m: Out of range domain number: ',id_id
4479 CALL wrf_error_fatal(emess)
4480 ENDIF
4481 auxinput5_interval_m = model_config_rec%auxinput5_interval_m(id_id)
4482 RETURN
4483 END SUBROUTINE nl_get_auxinput5_interval_m
4484 SUBROUTINE nl_get_auxinput5_interval_s ( id_id , auxinput5_interval_s )
4485 integer , INTENT(OUT) :: auxinput5_interval_s
4486 INTEGER id_id
4487 CHARACTER*80 emess
4488 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4489 WRITE(emess,*)'nl_get_auxinput5_interval_s: Out of range domain number: ',id_id
4490 CALL wrf_error_fatal(emess)
4491 ENDIF
4492 auxinput5_interval_s = model_config_rec%auxinput5_interval_s(id_id)
4493 RETURN
4494 END SUBROUTINE nl_get_auxinput5_interval_s
4495 SUBROUTINE nl_get_auxinput5_interval ( id_id , auxinput5_interval )
4496 integer , INTENT(OUT) :: auxinput5_interval
4497 INTEGER id_id
4498 CHARACTER*80 emess
4499 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4500 WRITE(emess,*)'nl_get_auxinput5_interval: Out of range domain number: ',id_id
4501 CALL wrf_error_fatal(emess)
4502 ENDIF
4503 auxinput5_interval = model_config_rec%auxinput5_interval(id_id)
4504 RETURN
4505 END SUBROUTINE nl_get_auxinput5_interval
4506 SUBROUTINE nl_get_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
4507 integer , INTENT(OUT) :: auxinput6_interval_mo
4508 INTEGER id_id
4509 CHARACTER*80 emess
4510 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4511 WRITE(emess,*)'nl_get_auxinput6_interval_mo: Out of range domain number: ',id_id
4512 CALL wrf_error_fatal(emess)
4513 ENDIF
4514 auxinput6_interval_mo = model_config_rec%auxinput6_interval_mo(id_id)
4515 RETURN
4516 END SUBROUTINE nl_get_auxinput6_interval_mo
4517 SUBROUTINE nl_get_auxinput6_interval_d ( id_id , auxinput6_interval_d )
4518 integer , INTENT(OUT) :: auxinput6_interval_d
4519 INTEGER id_id
4520 CHARACTER*80 emess
4521 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4522 WRITE(emess,*)'nl_get_auxinput6_interval_d: Out of range domain number: ',id_id
4523 CALL wrf_error_fatal(emess)
4524 ENDIF
4525 auxinput6_interval_d = model_config_rec%auxinput6_interval_d(id_id)
4526 RETURN
4527 END SUBROUTINE nl_get_auxinput6_interval_d
4528 SUBROUTINE nl_get_auxinput6_interval_h ( id_id , auxinput6_interval_h )
4529 integer , INTENT(OUT) :: auxinput6_interval_h
4530 INTEGER id_id
4531 CHARACTER*80 emess
4532 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4533 WRITE(emess,*)'nl_get_auxinput6_interval_h: Out of range domain number: ',id_id
4534 CALL wrf_error_fatal(emess)
4535 ENDIF
4536 auxinput6_interval_h = model_config_rec%auxinput6_interval_h(id_id)
4537 RETURN
4538 END SUBROUTINE nl_get_auxinput6_interval_h
4539 SUBROUTINE nl_get_auxinput6_interval_m ( id_id , auxinput6_interval_m )
4540 integer , INTENT(OUT) :: auxinput6_interval_m
4541 INTEGER id_id
4542 CHARACTER*80 emess
4543 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4544 WRITE(emess,*)'nl_get_auxinput6_interval_m: Out of range domain number: ',id_id
4545 CALL wrf_error_fatal(emess)
4546 ENDIF
4547 auxinput6_interval_m = model_config_rec%auxinput6_interval_m(id_id)
4548 RETURN
4549 END SUBROUTINE nl_get_auxinput6_interval_m
4550 SUBROUTINE nl_get_auxinput6_interval_s ( id_id , auxinput6_interval_s )
4551 integer , INTENT(OUT) :: auxinput6_interval_s
4552 INTEGER id_id
4553 CHARACTER*80 emess
4554 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4555 WRITE(emess,*)'nl_get_auxinput6_interval_s: Out of range domain number: ',id_id
4556 CALL wrf_error_fatal(emess)
4557 ENDIF
4558 auxinput6_interval_s = model_config_rec%auxinput6_interval_s(id_id)
4559 RETURN
4560 END SUBROUTINE nl_get_auxinput6_interval_s
4561 SUBROUTINE nl_get_auxinput6_interval ( id_id , auxinput6_interval )
4562 integer , INTENT(OUT) :: auxinput6_interval
4563 INTEGER id_id
4564 CHARACTER*80 emess
4565 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4566 WRITE(emess,*)'nl_get_auxinput6_interval: Out of range domain number: ',id_id
4567 CALL wrf_error_fatal(emess)
4568 ENDIF
4569 auxinput6_interval = model_config_rec%auxinput6_interval(id_id)
4570 RETURN
4571 END SUBROUTINE nl_get_auxinput6_interval
4572 SUBROUTINE nl_get_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
4573 integer , INTENT(OUT) :: auxinput7_interval_mo
4574 INTEGER id_id
4575 CHARACTER*80 emess
4576 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4577 WRITE(emess,*)'nl_get_auxinput7_interval_mo: Out of range domain number: ',id_id
4578 CALL wrf_error_fatal(emess)
4579 ENDIF
4580 auxinput7_interval_mo = model_config_rec%auxinput7_interval_mo(id_id)
4581 RETURN
4582 END SUBROUTINE nl_get_auxinput7_interval_mo
4583 SUBROUTINE nl_get_auxinput7_interval_d ( id_id , auxinput7_interval_d )
4584 integer , INTENT(OUT) :: auxinput7_interval_d
4585 INTEGER id_id
4586 CHARACTER*80 emess
4587 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4588 WRITE(emess,*)'nl_get_auxinput7_interval_d: Out of range domain number: ',id_id
4589 CALL wrf_error_fatal(emess)
4590 ENDIF
4591 auxinput7_interval_d = model_config_rec%auxinput7_interval_d(id_id)
4592 RETURN
4593 END SUBROUTINE nl_get_auxinput7_interval_d
4594 SUBROUTINE nl_get_auxinput7_interval_h ( id_id , auxinput7_interval_h )
4595 integer , INTENT(OUT) :: auxinput7_interval_h
4596 INTEGER id_id
4597 CHARACTER*80 emess
4598 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4599 WRITE(emess,*)'nl_get_auxinput7_interval_h: Out of range domain number: ',id_id
4600 CALL wrf_error_fatal(emess)
4601 ENDIF
4602 auxinput7_interval_h = model_config_rec%auxinput7_interval_h(id_id)
4603 RETURN
4604 END SUBROUTINE nl_get_auxinput7_interval_h
4605 SUBROUTINE nl_get_auxinput7_interval_m ( id_id , auxinput7_interval_m )
4606 integer , INTENT(OUT) :: auxinput7_interval_m
4607 INTEGER id_id
4608 CHARACTER*80 emess
4609 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4610 WRITE(emess,*)'nl_get_auxinput7_interval_m: Out of range domain number: ',id_id
4611 CALL wrf_error_fatal(emess)
4612 ENDIF
4613 auxinput7_interval_m = model_config_rec%auxinput7_interval_m(id_id)
4614 RETURN
4615 END SUBROUTINE nl_get_auxinput7_interval_m
4616 SUBROUTINE nl_get_auxinput7_interval_s ( id_id , auxinput7_interval_s )
4617 integer , INTENT(OUT) :: auxinput7_interval_s
4618 INTEGER id_id
4619 CHARACTER*80 emess
4620 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4621 WRITE(emess,*)'nl_get_auxinput7_interval_s: Out of range domain number: ',id_id
4622 CALL wrf_error_fatal(emess)
4623 ENDIF
4624 auxinput7_interval_s = model_config_rec%auxinput7_interval_s(id_id)
4625 RETURN
4626 END SUBROUTINE nl_get_auxinput7_interval_s
4627 SUBROUTINE nl_get_auxinput7_interval ( id_id , auxinput7_interval )
4628 integer , INTENT(OUT) :: auxinput7_interval
4629 INTEGER id_id
4630 CHARACTER*80 emess
4631 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4632 WRITE(emess,*)'nl_get_auxinput7_interval: Out of range domain number: ',id_id
4633 CALL wrf_error_fatal(emess)
4634 ENDIF
4635 auxinput7_interval = model_config_rec%auxinput7_interval(id_id)
4636 RETURN
4637 END SUBROUTINE nl_get_auxinput7_interval
4638 SUBROUTINE nl_get_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
4639 integer , INTENT(OUT) :: auxinput8_interval_mo
4640 INTEGER id_id
4641 CHARACTER*80 emess
4642 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4643 WRITE(emess,*)'nl_get_auxinput8_interval_mo: Out of range domain number: ',id_id
4644 CALL wrf_error_fatal(emess)
4645 ENDIF
4646 auxinput8_interval_mo = model_config_rec%auxinput8_interval_mo(id_id)
4647 RETURN
4648 END SUBROUTINE nl_get_auxinput8_interval_mo
4649 SUBROUTINE nl_get_auxinput8_interval_d ( id_id , auxinput8_interval_d )
4650 integer , INTENT(OUT) :: auxinput8_interval_d
4651 INTEGER id_id
4652 CHARACTER*80 emess
4653 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4654 WRITE(emess,*)'nl_get_auxinput8_interval_d: Out of range domain number: ',id_id
4655 CALL wrf_error_fatal(emess)
4656 ENDIF
4657 auxinput8_interval_d = model_config_rec%auxinput8_interval_d(id_id)
4658 RETURN
4659 END SUBROUTINE nl_get_auxinput8_interval_d
4660 SUBROUTINE nl_get_auxinput8_interval_h ( id_id , auxinput8_interval_h )
4661 integer , INTENT(OUT) :: auxinput8_interval_h
4662 INTEGER id_id
4663 CHARACTER*80 emess
4664 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4665 WRITE(emess,*)'nl_get_auxinput8_interval_h: Out of range domain number: ',id_id
4666 CALL wrf_error_fatal(emess)
4667 ENDIF
4668 auxinput8_interval_h = model_config_rec%auxinput8_interval_h(id_id)
4669 RETURN
4670 END SUBROUTINE nl_get_auxinput8_interval_h
4671 SUBROUTINE nl_get_auxinput8_interval_m ( id_id , auxinput8_interval_m )
4672 integer , INTENT(OUT) :: auxinput8_interval_m
4673 INTEGER id_id
4674 CHARACTER*80 emess
4675 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4676 WRITE(emess,*)'nl_get_auxinput8_interval_m: Out of range domain number: ',id_id
4677 CALL wrf_error_fatal(emess)
4678 ENDIF
4679 auxinput8_interval_m = model_config_rec%auxinput8_interval_m(id_id)
4680 RETURN
4681 END SUBROUTINE nl_get_auxinput8_interval_m
4682 SUBROUTINE nl_get_auxinput8_interval_s ( id_id , auxinput8_interval_s )
4683 integer , INTENT(OUT) :: auxinput8_interval_s
4684 INTEGER id_id
4685 CHARACTER*80 emess
4686 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4687 WRITE(emess,*)'nl_get_auxinput8_interval_s: Out of range domain number: ',id_id
4688 CALL wrf_error_fatal(emess)
4689 ENDIF
4690 auxinput8_interval_s = model_config_rec%auxinput8_interval_s(id_id)
4691 RETURN
4692 END SUBROUTINE nl_get_auxinput8_interval_s
4693 SUBROUTINE nl_get_auxinput8_interval ( id_id , auxinput8_interval )
4694 integer , INTENT(OUT) :: auxinput8_interval
4695 INTEGER id_id
4696 CHARACTER*80 emess
4697 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4698 WRITE(emess,*)'nl_get_auxinput8_interval: Out of range domain number: ',id_id
4699 CALL wrf_error_fatal(emess)
4700 ENDIF
4701 auxinput8_interval = model_config_rec%auxinput8_interval(id_id)
4702 RETURN
4703 END SUBROUTINE nl_get_auxinput8_interval
4704 SUBROUTINE nl_get_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
4705 integer , INTENT(OUT) :: auxinput9_interval_mo
4706 INTEGER id_id
4707 CHARACTER*80 emess
4708 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4709 WRITE(emess,*)'nl_get_auxinput9_interval_mo: Out of range domain number: ',id_id
4710 CALL wrf_error_fatal(emess)
4711 ENDIF
4712 auxinput9_interval_mo = model_config_rec%auxinput9_interval_mo(id_id)
4713 RETURN
4714 END SUBROUTINE nl_get_auxinput9_interval_mo
4715 SUBROUTINE nl_get_auxinput9_interval_d ( id_id , auxinput9_interval_d )
4716 integer , INTENT(OUT) :: auxinput9_interval_d
4717 INTEGER id_id
4718 CHARACTER*80 emess
4719 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4720 WRITE(emess,*)'nl_get_auxinput9_interval_d: Out of range domain number: ',id_id
4721 CALL wrf_error_fatal(emess)
4722 ENDIF
4723 auxinput9_interval_d = model_config_rec%auxinput9_interval_d(id_id)
4724 RETURN
4725 END SUBROUTINE nl_get_auxinput9_interval_d
4726 SUBROUTINE nl_get_auxinput9_interval_h ( id_id , auxinput9_interval_h )
4727 integer , INTENT(OUT) :: auxinput9_interval_h
4728 INTEGER id_id
4729 CHARACTER*80 emess
4730 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4731 WRITE(emess,*)'nl_get_auxinput9_interval_h: Out of range domain number: ',id_id
4732 CALL wrf_error_fatal(emess)
4733 ENDIF
4734 auxinput9_interval_h = model_config_rec%auxinput9_interval_h(id_id)
4735 RETURN
4736 END SUBROUTINE nl_get_auxinput9_interval_h
4737 SUBROUTINE nl_get_auxinput9_interval_m ( id_id , auxinput9_interval_m )
4738 integer , INTENT(OUT) :: auxinput9_interval_m
4739 INTEGER id_id
4740 CHARACTER*80 emess
4741 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4742 WRITE(emess,*)'nl_get_auxinput9_interval_m: Out of range domain number: ',id_id
4743 CALL wrf_error_fatal(emess)
4744 ENDIF
4745 auxinput9_interval_m = model_config_rec%auxinput9_interval_m(id_id)
4746 RETURN
4747 END SUBROUTINE nl_get_auxinput9_interval_m
4748 SUBROUTINE nl_get_auxinput9_interval_s ( id_id , auxinput9_interval_s )
4749 integer , INTENT(OUT) :: auxinput9_interval_s
4750 INTEGER id_id
4751 CHARACTER*80 emess
4752 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4753 WRITE(emess,*)'nl_get_auxinput9_interval_s: Out of range domain number: ',id_id
4754 CALL wrf_error_fatal(emess)
4755 ENDIF
4756 auxinput9_interval_s = model_config_rec%auxinput9_interval_s(id_id)
4757 RETURN
4758 END SUBROUTINE nl_get_auxinput9_interval_s
4759 SUBROUTINE nl_get_auxinput9_interval ( id_id , auxinput9_interval )
4760 integer , INTENT(OUT) :: auxinput9_interval
4761 INTEGER id_id
4762 CHARACTER*80 emess
4763 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4764 WRITE(emess,*)'nl_get_auxinput9_interval: Out of range domain number: ',id_id
4765 CALL wrf_error_fatal(emess)
4766 ENDIF
4767 auxinput9_interval = model_config_rec%auxinput9_interval(id_id)
4768 RETURN
4769 END SUBROUTINE nl_get_auxinput9_interval
4770 SUBROUTINE nl_get_gfdda_interval_mo ( id_id , gfdda_interval_mo )
4771 integer , INTENT(OUT) :: gfdda_interval_mo
4772 INTEGER id_id
4773 CHARACTER*80 emess
4774 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4775 WRITE(emess,*)'nl_get_gfdda_interval_mo: Out of range domain number: ',id_id
4776 CALL wrf_error_fatal(emess)
4777 ENDIF
4778 gfdda_interval_mo = model_config_rec%gfdda_interval_mo(id_id)
4779 RETURN
4780 END SUBROUTINE nl_get_gfdda_interval_mo
4781 SUBROUTINE nl_get_gfdda_interval_d ( id_id , gfdda_interval_d )
4782 integer , INTENT(OUT) :: gfdda_interval_d
4783 INTEGER id_id
4784 CHARACTER*80 emess
4785 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4786 WRITE(emess,*)'nl_get_gfdda_interval_d: Out of range domain number: ',id_id
4787 CALL wrf_error_fatal(emess)
4788 ENDIF
4789 gfdda_interval_d = model_config_rec%gfdda_interval_d(id_id)
4790 RETURN
4791 END SUBROUTINE nl_get_gfdda_interval_d
4792 SUBROUTINE nl_get_gfdda_interval_h ( id_id , gfdda_interval_h )
4793 integer , INTENT(OUT) :: gfdda_interval_h
4794 INTEGER id_id
4795 CHARACTER*80 emess
4796 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4797 WRITE(emess,*)'nl_get_gfdda_interval_h: Out of range domain number: ',id_id
4798 CALL wrf_error_fatal(emess)
4799 ENDIF
4800 gfdda_interval_h = model_config_rec%gfdda_interval_h(id_id)
4801 RETURN
4802 END SUBROUTINE nl_get_gfdda_interval_h
4803 SUBROUTINE nl_get_gfdda_interval_m ( id_id , gfdda_interval_m )
4804 integer , INTENT(OUT) :: gfdda_interval_m
4805 INTEGER id_id
4806 CHARACTER*80 emess
4807 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4808 WRITE(emess,*)'nl_get_gfdda_interval_m: Out of range domain number: ',id_id
4809 CALL wrf_error_fatal(emess)
4810 ENDIF
4811 gfdda_interval_m = model_config_rec%gfdda_interval_m(id_id)
4812 RETURN
4813 END SUBROUTINE nl_get_gfdda_interval_m
4814 SUBROUTINE nl_get_gfdda_interval_s ( id_id , gfdda_interval_s )
4815 integer , INTENT(OUT) :: gfdda_interval_s
4816 INTEGER id_id
4817 CHARACTER*80 emess
4818 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4819 WRITE(emess,*)'nl_get_gfdda_interval_s: Out of range domain number: ',id_id
4820 CALL wrf_error_fatal(emess)
4821 ENDIF
4822 gfdda_interval_s = model_config_rec%gfdda_interval_s(id_id)
4823 RETURN
4824 END SUBROUTINE nl_get_gfdda_interval_s
4825 SUBROUTINE nl_get_gfdda_interval ( id_id , gfdda_interval )
4826 integer , INTENT(OUT) :: gfdda_interval
4827 INTEGER id_id
4828 CHARACTER*80 emess
4829 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4830 WRITE(emess,*)'nl_get_gfdda_interval: Out of range domain number: ',id_id
4831 CALL wrf_error_fatal(emess)
4832 ENDIF
4833 gfdda_interval = model_config_rec%gfdda_interval(id_id)
4834 RETURN
4835 END SUBROUTINE nl_get_gfdda_interval
4836 SUBROUTINE nl_get_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
4837 integer , INTENT(OUT) :: auxinput11_interval_mo
4838 INTEGER id_id
4839 CHARACTER*80 emess
4840 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4841 WRITE(emess,*)'nl_get_auxinput11_interval_mo: Out of range domain number: ',id_id
4842 CALL wrf_error_fatal(emess)
4843 ENDIF
4844 auxinput11_interval_mo = model_config_rec%auxinput11_interval_mo(id_id)
4845 RETURN
4846 END SUBROUTINE nl_get_auxinput11_interval_mo
4847 SUBROUTINE nl_get_auxinput11_interval_d ( id_id , auxinput11_interval_d )
4848 integer , INTENT(OUT) :: auxinput11_interval_d
4849 INTEGER id_id
4850 CHARACTER*80 emess
4851 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4852 WRITE(emess,*)'nl_get_auxinput11_interval_d: Out of range domain number: ',id_id
4853 CALL wrf_error_fatal(emess)
4854 ENDIF
4855 auxinput11_interval_d = model_config_rec%auxinput11_interval_d(id_id)
4856 RETURN
4857 END SUBROUTINE nl_get_auxinput11_interval_d
4858 SUBROUTINE nl_get_auxinput11_interval_h ( id_id , auxinput11_interval_h )
4859 integer , INTENT(OUT) :: auxinput11_interval_h
4860 INTEGER id_id
4861 CHARACTER*80 emess
4862 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4863 WRITE(emess,*)'nl_get_auxinput11_interval_h: Out of range domain number: ',id_id
4864 CALL wrf_error_fatal(emess)
4865 ENDIF
4866 auxinput11_interval_h = model_config_rec%auxinput11_interval_h(id_id)
4867 RETURN
4868 END SUBROUTINE nl_get_auxinput11_interval_h
4869 SUBROUTINE nl_get_auxinput11_interval_m ( id_id , auxinput11_interval_m )
4870 integer , INTENT(OUT) :: auxinput11_interval_m
4871 INTEGER id_id
4872 CHARACTER*80 emess
4873 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4874 WRITE(emess,*)'nl_get_auxinput11_interval_m: Out of range domain number: ',id_id
4875 CALL wrf_error_fatal(emess)
4876 ENDIF
4877 auxinput11_interval_m = model_config_rec%auxinput11_interval_m(id_id)
4878 RETURN
4879 END SUBROUTINE nl_get_auxinput11_interval_m
4880 SUBROUTINE nl_get_auxinput11_interval_s ( id_id , auxinput11_interval_s )
4881 integer , INTENT(OUT) :: auxinput11_interval_s
4882 INTEGER id_id
4883 CHARACTER*80 emess
4884 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4885 WRITE(emess,*)'nl_get_auxinput11_interval_s: Out of range domain number: ',id_id
4886 CALL wrf_error_fatal(emess)
4887 ENDIF
4888 auxinput11_interval_s = model_config_rec%auxinput11_interval_s(id_id)
4889 RETURN
4890 END SUBROUTINE nl_get_auxinput11_interval_s
4891 SUBROUTINE nl_get_auxinput11_interval ( id_id , auxinput11_interval )
4892 integer , INTENT(OUT) :: auxinput11_interval
4893 INTEGER id_id
4894 CHARACTER*80 emess
4895 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4896 WRITE(emess,*)'nl_get_auxinput11_interval: Out of range domain number: ',id_id
4897 CALL wrf_error_fatal(emess)
4898 ENDIF
4899 auxinput11_interval = model_config_rec%auxinput11_interval(id_id)
4900 RETURN
4901 END SUBROUTINE nl_get_auxinput11_interval
4902 SUBROUTINE nl_get_restart_interval_mo ( id_id , restart_interval_mo )
4903 integer , INTENT(OUT) :: restart_interval_mo
4904 INTEGER id_id
4905 CHARACTER*80 emess
4906 IF ( id_id .NE. 1 ) THEN
4907 call wrf_debug(1,&
4908 'WARNING in nl_get_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
4909 ENDIF
4910 restart_interval_mo = model_config_rec%restart_interval_mo
4911 RETURN
4912 END SUBROUTINE nl_get_restart_interval_mo
4913 SUBROUTINE nl_get_restart_interval_d ( id_id , restart_interval_d )
4914 integer , INTENT(OUT) :: restart_interval_d
4915 INTEGER id_id
4916 CHARACTER*80 emess
4917 IF ( id_id .NE. 1 ) THEN
4918 call wrf_debug(1,&
4919 'WARNING in nl_get_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
4920 ENDIF
4921 restart_interval_d = model_config_rec%restart_interval_d
4922 RETURN
4923 END SUBROUTINE nl_get_restart_interval_d
4924 SUBROUTINE nl_get_restart_interval_h ( id_id , restart_interval_h )
4925 integer , INTENT(OUT) :: restart_interval_h
4926 INTEGER id_id
4927 CHARACTER*80 emess
4928 IF ( id_id .NE. 1 ) THEN
4929 call wrf_debug(1,&
4930 'WARNING in nl_get_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
4931 ENDIF
4932 restart_interval_h = model_config_rec%restart_interval_h
4933 RETURN
4934 END SUBROUTINE nl_get_restart_interval_h
4935 SUBROUTINE nl_get_restart_interval_m ( id_id , restart_interval_m )
4936 integer , INTENT(OUT) :: restart_interval_m
4937 INTEGER id_id
4938 CHARACTER*80 emess
4939 IF ( id_id .NE. 1 ) THEN
4940 call wrf_debug(1,&
4941 'WARNING in nl_get_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
4942 ENDIF
4943 restart_interval_m = model_config_rec%restart_interval_m
4944 RETURN
4945 END SUBROUTINE nl_get_restart_interval_m
4946 SUBROUTINE nl_get_restart_interval_s ( id_id , restart_interval_s )
4947 integer , INTENT(OUT) :: restart_interval_s
4948 INTEGER id_id
4949 CHARACTER*80 emess
4950 IF ( id_id .NE. 1 ) THEN
4951 call wrf_debug(1,&
4952 'WARNING in nl_get_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
4953 ENDIF
4954 restart_interval_s = model_config_rec%restart_interval_s
4955 RETURN
4956 END SUBROUTINE nl_get_restart_interval_s
4957 SUBROUTINE nl_get_history_begin_y ( id_id , history_begin_y )
4958 integer , INTENT(OUT) :: history_begin_y
4959 INTEGER id_id
4960 CHARACTER*80 emess
4961 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4962 WRITE(emess,*)'nl_get_history_begin_y: Out of range domain number: ',id_id
4963 CALL wrf_error_fatal(emess)
4964 ENDIF
4965 history_begin_y = model_config_rec%history_begin_y(id_id)
4966 RETURN
4967 END SUBROUTINE nl_get_history_begin_y
4968 SUBROUTINE nl_get_history_begin_mo ( id_id , history_begin_mo )
4969 integer , INTENT(OUT) :: history_begin_mo
4970 INTEGER id_id
4971 CHARACTER*80 emess
4972 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4973 WRITE(emess,*)'nl_get_history_begin_mo: Out of range domain number: ',id_id
4974 CALL wrf_error_fatal(emess)
4975 ENDIF
4976 history_begin_mo = model_config_rec%history_begin_mo(id_id)
4977 RETURN
4978 END SUBROUTINE nl_get_history_begin_mo
4979 SUBROUTINE nl_get_history_begin_d ( id_id , history_begin_d )
4980 integer , INTENT(OUT) :: history_begin_d
4981 INTEGER id_id
4982 CHARACTER*80 emess
4983 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4984 WRITE(emess,*)'nl_get_history_begin_d: Out of range domain number: ',id_id
4985 CALL wrf_error_fatal(emess)
4986 ENDIF
4987 history_begin_d = model_config_rec%history_begin_d(id_id)
4988 RETURN
4989 END SUBROUTINE nl_get_history_begin_d
4990 SUBROUTINE nl_get_history_begin_h ( id_id , history_begin_h )
4991 integer , INTENT(OUT) :: history_begin_h
4992 INTEGER id_id
4993 CHARACTER*80 emess
4994 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
4995 WRITE(emess,*)'nl_get_history_begin_h: Out of range domain number: ',id_id
4996 CALL wrf_error_fatal(emess)
4997 ENDIF
4998 history_begin_h = model_config_rec%history_begin_h(id_id)
4999 RETURN
5000 END SUBROUTINE nl_get_history_begin_h
5001 SUBROUTINE nl_get_history_begin_m ( id_id , history_begin_m )
5002 integer , INTENT(OUT) :: history_begin_m
5003 INTEGER id_id
5004 CHARACTER*80 emess
5005 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5006 WRITE(emess,*)'nl_get_history_begin_m: Out of range domain number: ',id_id
5007 CALL wrf_error_fatal(emess)
5008 ENDIF
5009 history_begin_m = model_config_rec%history_begin_m(id_id)
5010 RETURN
5011 END SUBROUTINE nl_get_history_begin_m
5012 SUBROUTINE nl_get_history_begin_s ( id_id , history_begin_s )
5013 integer , INTENT(OUT) :: history_begin_s
5014 INTEGER id_id
5015 CHARACTER*80 emess
5016 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5017 WRITE(emess,*)'nl_get_history_begin_s: Out of range domain number: ',id_id
5018 CALL wrf_error_fatal(emess)
5019 ENDIF
5020 history_begin_s = model_config_rec%history_begin_s(id_id)
5021 RETURN
5022 END SUBROUTINE nl_get_history_begin_s
5023 SUBROUTINE nl_get_inputout_begin_y ( id_id , inputout_begin_y )
5024 integer , INTENT(OUT) :: inputout_begin_y
5025 INTEGER id_id
5026 CHARACTER*80 emess
5027 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5028 WRITE(emess,*)'nl_get_inputout_begin_y: Out of range domain number: ',id_id
5029 CALL wrf_error_fatal(emess)
5030 ENDIF
5031 inputout_begin_y = model_config_rec%inputout_begin_y(id_id)
5032 RETURN
5033 END SUBROUTINE nl_get_inputout_begin_y
5034 SUBROUTINE nl_get_inputout_begin_mo ( id_id , inputout_begin_mo )
5035 integer , INTENT(OUT) :: inputout_begin_mo
5036 INTEGER id_id
5037 CHARACTER*80 emess
5038 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5039 WRITE(emess,*)'nl_get_inputout_begin_mo: Out of range domain number: ',id_id
5040 CALL wrf_error_fatal(emess)
5041 ENDIF
5042 inputout_begin_mo = model_config_rec%inputout_begin_mo(id_id)
5043 RETURN
5044 END SUBROUTINE nl_get_inputout_begin_mo
5045 SUBROUTINE nl_get_inputout_begin_d ( id_id , inputout_begin_d )
5046 integer , INTENT(OUT) :: inputout_begin_d
5047 INTEGER id_id
5048 CHARACTER*80 emess
5049 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5050 WRITE(emess,*)'nl_get_inputout_begin_d: Out of range domain number: ',id_id
5051 CALL wrf_error_fatal(emess)
5052 ENDIF
5053 inputout_begin_d = model_config_rec%inputout_begin_d(id_id)
5054 RETURN
5055 END SUBROUTINE nl_get_inputout_begin_d
5056 SUBROUTINE nl_get_inputout_begin_h ( id_id , inputout_begin_h )
5057 integer , INTENT(OUT) :: inputout_begin_h
5058 INTEGER id_id
5059 CHARACTER*80 emess
5060 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5061 WRITE(emess,*)'nl_get_inputout_begin_h: Out of range domain number: ',id_id
5062 CALL wrf_error_fatal(emess)
5063 ENDIF
5064 inputout_begin_h = model_config_rec%inputout_begin_h(id_id)
5065 RETURN
5066 END SUBROUTINE nl_get_inputout_begin_h
5067 SUBROUTINE nl_get_inputout_begin_m ( id_id , inputout_begin_m )
5068 integer , INTENT(OUT) :: inputout_begin_m
5069 INTEGER id_id
5070 CHARACTER*80 emess
5071 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5072 WRITE(emess,*)'nl_get_inputout_begin_m: Out of range domain number: ',id_id
5073 CALL wrf_error_fatal(emess)
5074 ENDIF
5075 inputout_begin_m = model_config_rec%inputout_begin_m(id_id)
5076 RETURN
5077 END SUBROUTINE nl_get_inputout_begin_m
5078 SUBROUTINE nl_get_inputout_begin_s ( id_id , inputout_begin_s )
5079 integer , INTENT(OUT) :: inputout_begin_s
5080 INTEGER id_id
5081 CHARACTER*80 emess
5082 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5083 WRITE(emess,*)'nl_get_inputout_begin_s: Out of range domain number: ',id_id
5084 CALL wrf_error_fatal(emess)
5085 ENDIF
5086 inputout_begin_s = model_config_rec%inputout_begin_s(id_id)
5087 RETURN
5088 END SUBROUTINE nl_get_inputout_begin_s
5089 SUBROUTINE nl_get_auxhist1_begin_y ( id_id , auxhist1_begin_y )
5090 integer , INTENT(OUT) :: auxhist1_begin_y
5091 INTEGER id_id
5092 CHARACTER*80 emess
5093 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5094 WRITE(emess,*)'nl_get_auxhist1_begin_y: Out of range domain number: ',id_id
5095 CALL wrf_error_fatal(emess)
5096 ENDIF
5097 auxhist1_begin_y = model_config_rec%auxhist1_begin_y(id_id)
5098 RETURN
5099 END SUBROUTINE nl_get_auxhist1_begin_y
5100 SUBROUTINE nl_get_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
5101 integer , INTENT(OUT) :: auxhist1_begin_mo
5102 INTEGER id_id
5103 CHARACTER*80 emess
5104 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5105 WRITE(emess,*)'nl_get_auxhist1_begin_mo: Out of range domain number: ',id_id
5106 CALL wrf_error_fatal(emess)
5107 ENDIF
5108 auxhist1_begin_mo = model_config_rec%auxhist1_begin_mo(id_id)
5109 RETURN
5110 END SUBROUTINE nl_get_auxhist1_begin_mo
5111 SUBROUTINE nl_get_auxhist1_begin_d ( id_id , auxhist1_begin_d )
5112 integer , INTENT(OUT) :: auxhist1_begin_d
5113 INTEGER id_id
5114 CHARACTER*80 emess
5115 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5116 WRITE(emess,*)'nl_get_auxhist1_begin_d: Out of range domain number: ',id_id
5117 CALL wrf_error_fatal(emess)
5118 ENDIF
5119 auxhist1_begin_d = model_config_rec%auxhist1_begin_d(id_id)
5120 RETURN
5121 END SUBROUTINE nl_get_auxhist1_begin_d
5122 SUBROUTINE nl_get_auxhist1_begin_h ( id_id , auxhist1_begin_h )
5123 integer , INTENT(OUT) :: auxhist1_begin_h
5124 INTEGER id_id
5125 CHARACTER*80 emess
5126 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5127 WRITE(emess,*)'nl_get_auxhist1_begin_h: Out of range domain number: ',id_id
5128 CALL wrf_error_fatal(emess)
5129 ENDIF
5130 auxhist1_begin_h = model_config_rec%auxhist1_begin_h(id_id)
5131 RETURN
5132 END SUBROUTINE nl_get_auxhist1_begin_h
5133 SUBROUTINE nl_get_auxhist1_begin_m ( id_id , auxhist1_begin_m )
5134 integer , INTENT(OUT) :: auxhist1_begin_m
5135 INTEGER id_id
5136 CHARACTER*80 emess
5137 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5138 WRITE(emess,*)'nl_get_auxhist1_begin_m: Out of range domain number: ',id_id
5139 CALL wrf_error_fatal(emess)
5140 ENDIF
5141 auxhist1_begin_m = model_config_rec%auxhist1_begin_m(id_id)
5142 RETURN
5143 END SUBROUTINE nl_get_auxhist1_begin_m
5144 SUBROUTINE nl_get_auxhist1_begin_s ( id_id , auxhist1_begin_s )
5145 integer , INTENT(OUT) :: auxhist1_begin_s
5146 INTEGER id_id
5147 CHARACTER*80 emess
5148 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5149 WRITE(emess,*)'nl_get_auxhist1_begin_s: Out of range domain number: ',id_id
5150 CALL wrf_error_fatal(emess)
5151 ENDIF
5152 auxhist1_begin_s = model_config_rec%auxhist1_begin_s(id_id)
5153 RETURN
5154 END SUBROUTINE nl_get_auxhist1_begin_s
5155 SUBROUTINE nl_get_auxhist2_begin_y ( id_id , auxhist2_begin_y )
5156 integer , INTENT(OUT) :: auxhist2_begin_y
5157 INTEGER id_id
5158 CHARACTER*80 emess
5159 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5160 WRITE(emess,*)'nl_get_auxhist2_begin_y: Out of range domain number: ',id_id
5161 CALL wrf_error_fatal(emess)
5162 ENDIF
5163 auxhist2_begin_y = model_config_rec%auxhist2_begin_y(id_id)
5164 RETURN
5165 END SUBROUTINE nl_get_auxhist2_begin_y
5166 SUBROUTINE nl_get_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
5167 integer , INTENT(OUT) :: auxhist2_begin_mo
5168 INTEGER id_id
5169 CHARACTER*80 emess
5170 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5171 WRITE(emess,*)'nl_get_auxhist2_begin_mo: Out of range domain number: ',id_id
5172 CALL wrf_error_fatal(emess)
5173 ENDIF
5174 auxhist2_begin_mo = model_config_rec%auxhist2_begin_mo(id_id)
5175 RETURN
5176 END SUBROUTINE nl_get_auxhist2_begin_mo
5177 SUBROUTINE nl_get_auxhist2_begin_d ( id_id , auxhist2_begin_d )
5178 integer , INTENT(OUT) :: auxhist2_begin_d
5179 INTEGER id_id
5180 CHARACTER*80 emess
5181 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5182 WRITE(emess,*)'nl_get_auxhist2_begin_d: Out of range domain number: ',id_id
5183 CALL wrf_error_fatal(emess)
5184 ENDIF
5185 auxhist2_begin_d = model_config_rec%auxhist2_begin_d(id_id)
5186 RETURN
5187 END SUBROUTINE nl_get_auxhist2_begin_d
5188 SUBROUTINE nl_get_auxhist2_begin_h ( id_id , auxhist2_begin_h )
5189 integer , INTENT(OUT) :: auxhist2_begin_h
5190 INTEGER id_id
5191 CHARACTER*80 emess
5192 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5193 WRITE(emess,*)'nl_get_auxhist2_begin_h: Out of range domain number: ',id_id
5194 CALL wrf_error_fatal(emess)
5195 ENDIF
5196 auxhist2_begin_h = model_config_rec%auxhist2_begin_h(id_id)
5197 RETURN
5198 END SUBROUTINE nl_get_auxhist2_begin_h
5199 SUBROUTINE nl_get_auxhist2_begin_m ( id_id , auxhist2_begin_m )
5200 integer , INTENT(OUT) :: auxhist2_begin_m
5201 INTEGER id_id
5202 CHARACTER*80 emess
5203 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5204 WRITE(emess,*)'nl_get_auxhist2_begin_m: Out of range domain number: ',id_id
5205 CALL wrf_error_fatal(emess)
5206 ENDIF
5207 auxhist2_begin_m = model_config_rec%auxhist2_begin_m(id_id)
5208 RETURN
5209 END SUBROUTINE nl_get_auxhist2_begin_m
5210 SUBROUTINE nl_get_auxhist2_begin_s ( id_id , auxhist2_begin_s )
5211 integer , INTENT(OUT) :: auxhist2_begin_s
5212 INTEGER id_id
5213 CHARACTER*80 emess
5214 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5215 WRITE(emess,*)'nl_get_auxhist2_begin_s: Out of range domain number: ',id_id
5216 CALL wrf_error_fatal(emess)
5217 ENDIF
5218 auxhist2_begin_s = model_config_rec%auxhist2_begin_s(id_id)
5219 RETURN
5220 END SUBROUTINE nl_get_auxhist2_begin_s
5221 SUBROUTINE nl_get_auxhist3_begin_y ( id_id , auxhist3_begin_y )
5222 integer , INTENT(OUT) :: auxhist3_begin_y
5223 INTEGER id_id
5224 CHARACTER*80 emess
5225 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5226 WRITE(emess,*)'nl_get_auxhist3_begin_y: Out of range domain number: ',id_id
5227 CALL wrf_error_fatal(emess)
5228 ENDIF
5229 auxhist3_begin_y = model_config_rec%auxhist3_begin_y(id_id)
5230 RETURN
5231 END SUBROUTINE nl_get_auxhist3_begin_y
5232 SUBROUTINE nl_get_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
5233 integer , INTENT(OUT) :: auxhist3_begin_mo
5234 INTEGER id_id
5235 CHARACTER*80 emess
5236 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5237 WRITE(emess,*)'nl_get_auxhist3_begin_mo: Out of range domain number: ',id_id
5238 CALL wrf_error_fatal(emess)
5239 ENDIF
5240 auxhist3_begin_mo = model_config_rec%auxhist3_begin_mo(id_id)
5241 RETURN
5242 END SUBROUTINE nl_get_auxhist3_begin_mo
5243 SUBROUTINE nl_get_auxhist3_begin_d ( id_id , auxhist3_begin_d )
5244 integer , INTENT(OUT) :: auxhist3_begin_d
5245 INTEGER id_id
5246 CHARACTER*80 emess
5247 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5248 WRITE(emess,*)'nl_get_auxhist3_begin_d: Out of range domain number: ',id_id
5249 CALL wrf_error_fatal(emess)
5250 ENDIF
5251 auxhist3_begin_d = model_config_rec%auxhist3_begin_d(id_id)
5252 RETURN
5253 END SUBROUTINE nl_get_auxhist3_begin_d
5254 SUBROUTINE nl_get_auxhist3_begin_h ( id_id , auxhist3_begin_h )
5255 integer , INTENT(OUT) :: auxhist3_begin_h
5256 INTEGER id_id
5257 CHARACTER*80 emess
5258 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5259 WRITE(emess,*)'nl_get_auxhist3_begin_h: Out of range domain number: ',id_id
5260 CALL wrf_error_fatal(emess)
5261 ENDIF
5262 auxhist3_begin_h = model_config_rec%auxhist3_begin_h(id_id)
5263 RETURN
5264 END SUBROUTINE nl_get_auxhist3_begin_h
5265 SUBROUTINE nl_get_auxhist3_begin_m ( id_id , auxhist3_begin_m )
5266 integer , INTENT(OUT) :: auxhist3_begin_m
5267 INTEGER id_id
5268 CHARACTER*80 emess
5269 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5270 WRITE(emess,*)'nl_get_auxhist3_begin_m: Out of range domain number: ',id_id
5271 CALL wrf_error_fatal(emess)
5272 ENDIF
5273 auxhist3_begin_m = model_config_rec%auxhist3_begin_m(id_id)
5274 RETURN
5275 END SUBROUTINE nl_get_auxhist3_begin_m
5276 SUBROUTINE nl_get_auxhist3_begin_s ( id_id , auxhist3_begin_s )
5277 integer , INTENT(OUT) :: auxhist3_begin_s
5278 INTEGER id_id
5279 CHARACTER*80 emess
5280 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5281 WRITE(emess,*)'nl_get_auxhist3_begin_s: Out of range domain number: ',id_id
5282 CALL wrf_error_fatal(emess)
5283 ENDIF
5284 auxhist3_begin_s = model_config_rec%auxhist3_begin_s(id_id)
5285 RETURN
5286 END SUBROUTINE nl_get_auxhist3_begin_s
5287 SUBROUTINE nl_get_auxhist4_begin_y ( id_id , auxhist4_begin_y )
5288 integer , INTENT(OUT) :: auxhist4_begin_y
5289 INTEGER id_id
5290 CHARACTER*80 emess
5291 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5292 WRITE(emess,*)'nl_get_auxhist4_begin_y: Out of range domain number: ',id_id
5293 CALL wrf_error_fatal(emess)
5294 ENDIF
5295 auxhist4_begin_y = model_config_rec%auxhist4_begin_y(id_id)
5296 RETURN
5297 END SUBROUTINE nl_get_auxhist4_begin_y
5298 SUBROUTINE nl_get_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
5299 integer , INTENT(OUT) :: auxhist4_begin_mo
5300 INTEGER id_id
5301 CHARACTER*80 emess
5302 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5303 WRITE(emess,*)'nl_get_auxhist4_begin_mo: Out of range domain number: ',id_id
5304 CALL wrf_error_fatal(emess)
5305 ENDIF
5306 auxhist4_begin_mo = model_config_rec%auxhist4_begin_mo(id_id)
5307 RETURN
5308 END SUBROUTINE nl_get_auxhist4_begin_mo
5309 SUBROUTINE nl_get_auxhist4_begin_d ( id_id , auxhist4_begin_d )
5310 integer , INTENT(OUT) :: auxhist4_begin_d
5311 INTEGER id_id
5312 CHARACTER*80 emess
5313 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5314 WRITE(emess,*)'nl_get_auxhist4_begin_d: Out of range domain number: ',id_id
5315 CALL wrf_error_fatal(emess)
5316 ENDIF
5317 auxhist4_begin_d = model_config_rec%auxhist4_begin_d(id_id)
5318 RETURN
5319 END SUBROUTINE nl_get_auxhist4_begin_d
5320 SUBROUTINE nl_get_auxhist4_begin_h ( id_id , auxhist4_begin_h )
5321 integer , INTENT(OUT) :: auxhist4_begin_h
5322 INTEGER id_id
5323 CHARACTER*80 emess
5324 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5325 WRITE(emess,*)'nl_get_auxhist4_begin_h: Out of range domain number: ',id_id
5326 CALL wrf_error_fatal(emess)
5327 ENDIF
5328 auxhist4_begin_h = model_config_rec%auxhist4_begin_h(id_id)
5329 RETURN
5330 END SUBROUTINE nl_get_auxhist4_begin_h
5331 SUBROUTINE nl_get_auxhist4_begin_m ( id_id , auxhist4_begin_m )
5332 integer , INTENT(OUT) :: auxhist4_begin_m
5333 INTEGER id_id
5334 CHARACTER*80 emess
5335 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5336 WRITE(emess,*)'nl_get_auxhist4_begin_m: Out of range domain number: ',id_id
5337 CALL wrf_error_fatal(emess)
5338 ENDIF
5339 auxhist4_begin_m = model_config_rec%auxhist4_begin_m(id_id)
5340 RETURN
5341 END SUBROUTINE nl_get_auxhist4_begin_m
5342 SUBROUTINE nl_get_auxhist4_begin_s ( id_id , auxhist4_begin_s )
5343 integer , INTENT(OUT) :: auxhist4_begin_s
5344 INTEGER id_id
5345 CHARACTER*80 emess
5346 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5347 WRITE(emess,*)'nl_get_auxhist4_begin_s: Out of range domain number: ',id_id
5348 CALL wrf_error_fatal(emess)
5349 ENDIF
5350 auxhist4_begin_s = model_config_rec%auxhist4_begin_s(id_id)
5351 RETURN
5352 END SUBROUTINE nl_get_auxhist4_begin_s
5353 SUBROUTINE nl_get_auxhist5_begin_y ( id_id , auxhist5_begin_y )
5354 integer , INTENT(OUT) :: auxhist5_begin_y
5355 INTEGER id_id
5356 CHARACTER*80 emess
5357 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5358 WRITE(emess,*)'nl_get_auxhist5_begin_y: Out of range domain number: ',id_id
5359 CALL wrf_error_fatal(emess)
5360 ENDIF
5361 auxhist5_begin_y = model_config_rec%auxhist5_begin_y(id_id)
5362 RETURN
5363 END SUBROUTINE nl_get_auxhist5_begin_y
5364 SUBROUTINE nl_get_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
5365 integer , INTENT(OUT) :: auxhist5_begin_mo
5366 INTEGER id_id
5367 CHARACTER*80 emess
5368 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5369 WRITE(emess,*)'nl_get_auxhist5_begin_mo: Out of range domain number: ',id_id
5370 CALL wrf_error_fatal(emess)
5371 ENDIF
5372 auxhist5_begin_mo = model_config_rec%auxhist5_begin_mo(id_id)
5373 RETURN
5374 END SUBROUTINE nl_get_auxhist5_begin_mo
5375 SUBROUTINE nl_get_auxhist5_begin_d ( id_id , auxhist5_begin_d )
5376 integer , INTENT(OUT) :: auxhist5_begin_d
5377 INTEGER id_id
5378 CHARACTER*80 emess
5379 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5380 WRITE(emess,*)'nl_get_auxhist5_begin_d: Out of range domain number: ',id_id
5381 CALL wrf_error_fatal(emess)
5382 ENDIF
5383 auxhist5_begin_d = model_config_rec%auxhist5_begin_d(id_id)
5384 RETURN
5385 END SUBROUTINE nl_get_auxhist5_begin_d
5386 SUBROUTINE nl_get_auxhist5_begin_h ( id_id , auxhist5_begin_h )
5387 integer , INTENT(OUT) :: auxhist5_begin_h
5388 INTEGER id_id
5389 CHARACTER*80 emess
5390 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5391 WRITE(emess,*)'nl_get_auxhist5_begin_h: Out of range domain number: ',id_id
5392 CALL wrf_error_fatal(emess)
5393 ENDIF
5394 auxhist5_begin_h = model_config_rec%auxhist5_begin_h(id_id)
5395 RETURN
5396 END SUBROUTINE nl_get_auxhist5_begin_h
5397 SUBROUTINE nl_get_auxhist5_begin_m ( id_id , auxhist5_begin_m )
5398 integer , INTENT(OUT) :: auxhist5_begin_m
5399 INTEGER id_id
5400 CHARACTER*80 emess
5401 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5402 WRITE(emess,*)'nl_get_auxhist5_begin_m: Out of range domain number: ',id_id
5403 CALL wrf_error_fatal(emess)
5404 ENDIF
5405 auxhist5_begin_m = model_config_rec%auxhist5_begin_m(id_id)
5406 RETURN
5407 END SUBROUTINE nl_get_auxhist5_begin_m
5408 SUBROUTINE nl_get_auxhist5_begin_s ( id_id , auxhist5_begin_s )
5409 integer , INTENT(OUT) :: auxhist5_begin_s
5410 INTEGER id_id
5411 CHARACTER*80 emess
5412 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5413 WRITE(emess,*)'nl_get_auxhist5_begin_s: Out of range domain number: ',id_id
5414 CALL wrf_error_fatal(emess)
5415 ENDIF
5416 auxhist5_begin_s = model_config_rec%auxhist5_begin_s(id_id)
5417 RETURN
5418 END SUBROUTINE nl_get_auxhist5_begin_s
5419 SUBROUTINE nl_get_auxhist6_begin_y ( id_id , auxhist6_begin_y )
5420 integer , INTENT(OUT) :: auxhist6_begin_y
5421 INTEGER id_id
5422 CHARACTER*80 emess
5423 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5424 WRITE(emess,*)'nl_get_auxhist6_begin_y: Out of range domain number: ',id_id
5425 CALL wrf_error_fatal(emess)
5426 ENDIF
5427 auxhist6_begin_y = model_config_rec%auxhist6_begin_y(id_id)
5428 RETURN
5429 END SUBROUTINE nl_get_auxhist6_begin_y
5430 SUBROUTINE nl_get_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
5431 integer , INTENT(OUT) :: auxhist6_begin_mo
5432 INTEGER id_id
5433 CHARACTER*80 emess
5434 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5435 WRITE(emess,*)'nl_get_auxhist6_begin_mo: Out of range domain number: ',id_id
5436 CALL wrf_error_fatal(emess)
5437 ENDIF
5438 auxhist6_begin_mo = model_config_rec%auxhist6_begin_mo(id_id)
5439 RETURN
5440 END SUBROUTINE nl_get_auxhist6_begin_mo
5441 SUBROUTINE nl_get_auxhist6_begin_d ( id_id , auxhist6_begin_d )
5442 integer , INTENT(OUT) :: auxhist6_begin_d
5443 INTEGER id_id
5444 CHARACTER*80 emess
5445 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5446 WRITE(emess,*)'nl_get_auxhist6_begin_d: Out of range domain number: ',id_id
5447 CALL wrf_error_fatal(emess)
5448 ENDIF
5449 auxhist6_begin_d = model_config_rec%auxhist6_begin_d(id_id)
5450 RETURN
5451 END SUBROUTINE nl_get_auxhist6_begin_d
5452 SUBROUTINE nl_get_auxhist6_begin_h ( id_id , auxhist6_begin_h )
5453 integer , INTENT(OUT) :: auxhist6_begin_h
5454 INTEGER id_id
5455 CHARACTER*80 emess
5456 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5457 WRITE(emess,*)'nl_get_auxhist6_begin_h: Out of range domain number: ',id_id
5458 CALL wrf_error_fatal(emess)
5459 ENDIF
5460 auxhist6_begin_h = model_config_rec%auxhist6_begin_h(id_id)
5461 RETURN
5462 END SUBROUTINE nl_get_auxhist6_begin_h
5463 SUBROUTINE nl_get_auxhist6_begin_m ( id_id , auxhist6_begin_m )
5464 integer , INTENT(OUT) :: auxhist6_begin_m
5465 INTEGER id_id
5466 CHARACTER*80 emess
5467 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5468 WRITE(emess,*)'nl_get_auxhist6_begin_m: Out of range domain number: ',id_id
5469 CALL wrf_error_fatal(emess)
5470 ENDIF
5471 auxhist6_begin_m = model_config_rec%auxhist6_begin_m(id_id)
5472 RETURN
5473 END SUBROUTINE nl_get_auxhist6_begin_m
5474 SUBROUTINE nl_get_auxhist6_begin_s ( id_id , auxhist6_begin_s )
5475 integer , INTENT(OUT) :: auxhist6_begin_s
5476 INTEGER id_id
5477 CHARACTER*80 emess
5478 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5479 WRITE(emess,*)'nl_get_auxhist6_begin_s: Out of range domain number: ',id_id
5480 CALL wrf_error_fatal(emess)
5481 ENDIF
5482 auxhist6_begin_s = model_config_rec%auxhist6_begin_s(id_id)
5483 RETURN
5484 END SUBROUTINE nl_get_auxhist6_begin_s
5485 SUBROUTINE nl_get_auxhist7_begin_y ( id_id , auxhist7_begin_y )
5486 integer , INTENT(OUT) :: auxhist7_begin_y
5487 INTEGER id_id
5488 CHARACTER*80 emess
5489 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5490 WRITE(emess,*)'nl_get_auxhist7_begin_y: Out of range domain number: ',id_id
5491 CALL wrf_error_fatal(emess)
5492 ENDIF
5493 auxhist7_begin_y = model_config_rec%auxhist7_begin_y(id_id)
5494 RETURN
5495 END SUBROUTINE nl_get_auxhist7_begin_y
5496 SUBROUTINE nl_get_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
5497 integer , INTENT(OUT) :: auxhist7_begin_mo
5498 INTEGER id_id
5499 CHARACTER*80 emess
5500 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5501 WRITE(emess,*)'nl_get_auxhist7_begin_mo: Out of range domain number: ',id_id
5502 CALL wrf_error_fatal(emess)
5503 ENDIF
5504 auxhist7_begin_mo = model_config_rec%auxhist7_begin_mo(id_id)
5505 RETURN
5506 END SUBROUTINE nl_get_auxhist7_begin_mo
5507 SUBROUTINE nl_get_auxhist7_begin_d ( id_id , auxhist7_begin_d )
5508 integer , INTENT(OUT) :: auxhist7_begin_d
5509 INTEGER id_id
5510 CHARACTER*80 emess
5511 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5512 WRITE(emess,*)'nl_get_auxhist7_begin_d: Out of range domain number: ',id_id
5513 CALL wrf_error_fatal(emess)
5514 ENDIF
5515 auxhist7_begin_d = model_config_rec%auxhist7_begin_d(id_id)
5516 RETURN
5517 END SUBROUTINE nl_get_auxhist7_begin_d
5518 SUBROUTINE nl_get_auxhist7_begin_h ( id_id , auxhist7_begin_h )
5519 integer , INTENT(OUT) :: auxhist7_begin_h
5520 INTEGER id_id
5521 CHARACTER*80 emess
5522 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5523 WRITE(emess,*)'nl_get_auxhist7_begin_h: Out of range domain number: ',id_id
5524 CALL wrf_error_fatal(emess)
5525 ENDIF
5526 auxhist7_begin_h = model_config_rec%auxhist7_begin_h(id_id)
5527 RETURN
5528 END SUBROUTINE nl_get_auxhist7_begin_h
5529 SUBROUTINE nl_get_auxhist7_begin_m ( id_id , auxhist7_begin_m )
5530 integer , INTENT(OUT) :: auxhist7_begin_m
5531 INTEGER id_id
5532 CHARACTER*80 emess
5533 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5534 WRITE(emess,*)'nl_get_auxhist7_begin_m: Out of range domain number: ',id_id
5535 CALL wrf_error_fatal(emess)
5536 ENDIF
5537 auxhist7_begin_m = model_config_rec%auxhist7_begin_m(id_id)
5538 RETURN
5539 END SUBROUTINE nl_get_auxhist7_begin_m
5540 SUBROUTINE nl_get_auxhist7_begin_s ( id_id , auxhist7_begin_s )
5541 integer , INTENT(OUT) :: auxhist7_begin_s
5542 INTEGER id_id
5543 CHARACTER*80 emess
5544 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5545 WRITE(emess,*)'nl_get_auxhist7_begin_s: Out of range domain number: ',id_id
5546 CALL wrf_error_fatal(emess)
5547 ENDIF
5548 auxhist7_begin_s = model_config_rec%auxhist7_begin_s(id_id)
5549 RETURN
5550 END SUBROUTINE nl_get_auxhist7_begin_s
5551 SUBROUTINE nl_get_auxhist8_begin_y ( id_id , auxhist8_begin_y )
5552 integer , INTENT(OUT) :: auxhist8_begin_y
5553 INTEGER id_id
5554 CHARACTER*80 emess
5555 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5556 WRITE(emess,*)'nl_get_auxhist8_begin_y: Out of range domain number: ',id_id
5557 CALL wrf_error_fatal(emess)
5558 ENDIF
5559 auxhist8_begin_y = model_config_rec%auxhist8_begin_y(id_id)
5560 RETURN
5561 END SUBROUTINE nl_get_auxhist8_begin_y
5562 SUBROUTINE nl_get_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
5563 integer , INTENT(OUT) :: auxhist8_begin_mo
5564 INTEGER id_id
5565 CHARACTER*80 emess
5566 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5567 WRITE(emess,*)'nl_get_auxhist8_begin_mo: Out of range domain number: ',id_id
5568 CALL wrf_error_fatal(emess)
5569 ENDIF
5570 auxhist8_begin_mo = model_config_rec%auxhist8_begin_mo(id_id)
5571 RETURN
5572 END SUBROUTINE nl_get_auxhist8_begin_mo
5573 SUBROUTINE nl_get_auxhist8_begin_d ( id_id , auxhist8_begin_d )
5574 integer , INTENT(OUT) :: auxhist8_begin_d
5575 INTEGER id_id
5576 CHARACTER*80 emess
5577 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5578 WRITE(emess,*)'nl_get_auxhist8_begin_d: Out of range domain number: ',id_id
5579 CALL wrf_error_fatal(emess)
5580 ENDIF
5581 auxhist8_begin_d = model_config_rec%auxhist8_begin_d(id_id)
5582 RETURN
5583 END SUBROUTINE nl_get_auxhist8_begin_d
5584 SUBROUTINE nl_get_auxhist8_begin_h ( id_id , auxhist8_begin_h )
5585 integer , INTENT(OUT) :: auxhist8_begin_h
5586 INTEGER id_id
5587 CHARACTER*80 emess
5588 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5589 WRITE(emess,*)'nl_get_auxhist8_begin_h: Out of range domain number: ',id_id
5590 CALL wrf_error_fatal(emess)
5591 ENDIF
5592 auxhist8_begin_h = model_config_rec%auxhist8_begin_h(id_id)
5593 RETURN
5594 END SUBROUTINE nl_get_auxhist8_begin_h
5595 SUBROUTINE nl_get_auxhist8_begin_m ( id_id , auxhist8_begin_m )
5596 integer , INTENT(OUT) :: auxhist8_begin_m
5597 INTEGER id_id
5598 CHARACTER*80 emess
5599 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5600 WRITE(emess,*)'nl_get_auxhist8_begin_m: Out of range domain number: ',id_id
5601 CALL wrf_error_fatal(emess)
5602 ENDIF
5603 auxhist8_begin_m = model_config_rec%auxhist8_begin_m(id_id)
5604 RETURN
5605 END SUBROUTINE nl_get_auxhist8_begin_m
5606 SUBROUTINE nl_get_auxhist8_begin_s ( id_id , auxhist8_begin_s )
5607 integer , INTENT(OUT) :: auxhist8_begin_s
5608 INTEGER id_id
5609 CHARACTER*80 emess
5610 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5611 WRITE(emess,*)'nl_get_auxhist8_begin_s: Out of range domain number: ',id_id
5612 CALL wrf_error_fatal(emess)
5613 ENDIF
5614 auxhist8_begin_s = model_config_rec%auxhist8_begin_s(id_id)
5615 RETURN
5616 END SUBROUTINE nl_get_auxhist8_begin_s
5617 SUBROUTINE nl_get_auxhist9_begin_y ( id_id , auxhist9_begin_y )
5618 integer , INTENT(OUT) :: auxhist9_begin_y
5619 INTEGER id_id
5620 CHARACTER*80 emess
5621 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5622 WRITE(emess,*)'nl_get_auxhist9_begin_y: Out of range domain number: ',id_id
5623 CALL wrf_error_fatal(emess)
5624 ENDIF
5625 auxhist9_begin_y = model_config_rec%auxhist9_begin_y(id_id)
5626 RETURN
5627 END SUBROUTINE nl_get_auxhist9_begin_y
5628 SUBROUTINE nl_get_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
5629 integer , INTENT(OUT) :: auxhist9_begin_mo
5630 INTEGER id_id
5631 CHARACTER*80 emess
5632 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5633 WRITE(emess,*)'nl_get_auxhist9_begin_mo: Out of range domain number: ',id_id
5634 CALL wrf_error_fatal(emess)
5635 ENDIF
5636 auxhist9_begin_mo = model_config_rec%auxhist9_begin_mo(id_id)
5637 RETURN
5638 END SUBROUTINE nl_get_auxhist9_begin_mo
5639 SUBROUTINE nl_get_auxhist9_begin_d ( id_id , auxhist9_begin_d )
5640 integer , INTENT(OUT) :: auxhist9_begin_d
5641 INTEGER id_id
5642 CHARACTER*80 emess
5643 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5644 WRITE(emess,*)'nl_get_auxhist9_begin_d: Out of range domain number: ',id_id
5645 CALL wrf_error_fatal(emess)
5646 ENDIF
5647 auxhist9_begin_d = model_config_rec%auxhist9_begin_d(id_id)
5648 RETURN
5649 END SUBROUTINE nl_get_auxhist9_begin_d
5650 SUBROUTINE nl_get_auxhist9_begin_h ( id_id , auxhist9_begin_h )
5651 integer , INTENT(OUT) :: auxhist9_begin_h
5652 INTEGER id_id
5653 CHARACTER*80 emess
5654 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5655 WRITE(emess,*)'nl_get_auxhist9_begin_h: Out of range domain number: ',id_id
5656 CALL wrf_error_fatal(emess)
5657 ENDIF
5658 auxhist9_begin_h = model_config_rec%auxhist9_begin_h(id_id)
5659 RETURN
5660 END SUBROUTINE nl_get_auxhist9_begin_h
5661 SUBROUTINE nl_get_auxhist9_begin_m ( id_id , auxhist9_begin_m )
5662 integer , INTENT(OUT) :: auxhist9_begin_m
5663 INTEGER id_id
5664 CHARACTER*80 emess
5665 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5666 WRITE(emess,*)'nl_get_auxhist9_begin_m: Out of range domain number: ',id_id
5667 CALL wrf_error_fatal(emess)
5668 ENDIF
5669 auxhist9_begin_m = model_config_rec%auxhist9_begin_m(id_id)
5670 RETURN
5671 END SUBROUTINE nl_get_auxhist9_begin_m
5672 SUBROUTINE nl_get_auxhist9_begin_s ( id_id , auxhist9_begin_s )
5673 integer , INTENT(OUT) :: auxhist9_begin_s
5674 INTEGER id_id
5675 CHARACTER*80 emess
5676 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5677 WRITE(emess,*)'nl_get_auxhist9_begin_s: Out of range domain number: ',id_id
5678 CALL wrf_error_fatal(emess)
5679 ENDIF
5680 auxhist9_begin_s = model_config_rec%auxhist9_begin_s(id_id)
5681 RETURN
5682 END SUBROUTINE nl_get_auxhist9_begin_s
5683 SUBROUTINE nl_get_auxhist10_begin_y ( id_id , auxhist10_begin_y )
5684 integer , INTENT(OUT) :: auxhist10_begin_y
5685 INTEGER id_id
5686 CHARACTER*80 emess
5687 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5688 WRITE(emess,*)'nl_get_auxhist10_begin_y: Out of range domain number: ',id_id
5689 CALL wrf_error_fatal(emess)
5690 ENDIF
5691 auxhist10_begin_y = model_config_rec%auxhist10_begin_y(id_id)
5692 RETURN
5693 END SUBROUTINE nl_get_auxhist10_begin_y
5694 SUBROUTINE nl_get_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
5695 integer , INTENT(OUT) :: auxhist10_begin_mo
5696 INTEGER id_id
5697 CHARACTER*80 emess
5698 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5699 WRITE(emess,*)'nl_get_auxhist10_begin_mo: Out of range domain number: ',id_id
5700 CALL wrf_error_fatal(emess)
5701 ENDIF
5702 auxhist10_begin_mo = model_config_rec%auxhist10_begin_mo(id_id)
5703 RETURN
5704 END SUBROUTINE nl_get_auxhist10_begin_mo
5705 SUBROUTINE nl_get_auxhist10_begin_d ( id_id , auxhist10_begin_d )
5706 integer , INTENT(OUT) :: auxhist10_begin_d
5707 INTEGER id_id
5708 CHARACTER*80 emess
5709 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5710 WRITE(emess,*)'nl_get_auxhist10_begin_d: Out of range domain number: ',id_id
5711 CALL wrf_error_fatal(emess)
5712 ENDIF
5713 auxhist10_begin_d = model_config_rec%auxhist10_begin_d(id_id)
5714 RETURN
5715 END SUBROUTINE nl_get_auxhist10_begin_d
5716 SUBROUTINE nl_get_auxhist10_begin_h ( id_id , auxhist10_begin_h )
5717 integer , INTENT(OUT) :: auxhist10_begin_h
5718 INTEGER id_id
5719 CHARACTER*80 emess
5720 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5721 WRITE(emess,*)'nl_get_auxhist10_begin_h: Out of range domain number: ',id_id
5722 CALL wrf_error_fatal(emess)
5723 ENDIF
5724 auxhist10_begin_h = model_config_rec%auxhist10_begin_h(id_id)
5725 RETURN
5726 END SUBROUTINE nl_get_auxhist10_begin_h
5727 SUBROUTINE nl_get_auxhist10_begin_m ( id_id , auxhist10_begin_m )
5728 integer , INTENT(OUT) :: auxhist10_begin_m
5729 INTEGER id_id
5730 CHARACTER*80 emess
5731 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5732 WRITE(emess,*)'nl_get_auxhist10_begin_m: Out of range domain number: ',id_id
5733 CALL wrf_error_fatal(emess)
5734 ENDIF
5735 auxhist10_begin_m = model_config_rec%auxhist10_begin_m(id_id)
5736 RETURN
5737 END SUBROUTINE nl_get_auxhist10_begin_m
5738 SUBROUTINE nl_get_auxhist10_begin_s ( id_id , auxhist10_begin_s )
5739 integer , INTENT(OUT) :: auxhist10_begin_s
5740 INTEGER id_id
5741 CHARACTER*80 emess
5742 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5743 WRITE(emess,*)'nl_get_auxhist10_begin_s: Out of range domain number: ',id_id
5744 CALL wrf_error_fatal(emess)
5745 ENDIF
5746 auxhist10_begin_s = model_config_rec%auxhist10_begin_s(id_id)
5747 RETURN
5748 END SUBROUTINE nl_get_auxhist10_begin_s
5749 SUBROUTINE nl_get_auxhist11_begin_y ( id_id , auxhist11_begin_y )
5750 integer , INTENT(OUT) :: auxhist11_begin_y
5751 INTEGER id_id
5752 CHARACTER*80 emess
5753 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5754 WRITE(emess,*)'nl_get_auxhist11_begin_y: Out of range domain number: ',id_id
5755 CALL wrf_error_fatal(emess)
5756 ENDIF
5757 auxhist11_begin_y = model_config_rec%auxhist11_begin_y(id_id)
5758 RETURN
5759 END SUBROUTINE nl_get_auxhist11_begin_y
5760 SUBROUTINE nl_get_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
5761 integer , INTENT(OUT) :: auxhist11_begin_mo
5762 INTEGER id_id
5763 CHARACTER*80 emess
5764 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5765 WRITE(emess,*)'nl_get_auxhist11_begin_mo: Out of range domain number: ',id_id
5766 CALL wrf_error_fatal(emess)
5767 ENDIF
5768 auxhist11_begin_mo = model_config_rec%auxhist11_begin_mo(id_id)
5769 RETURN
5770 END SUBROUTINE nl_get_auxhist11_begin_mo
5771 SUBROUTINE nl_get_auxhist11_begin_d ( id_id , auxhist11_begin_d )
5772 integer , INTENT(OUT) :: auxhist11_begin_d
5773 INTEGER id_id
5774 CHARACTER*80 emess
5775 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5776 WRITE(emess,*)'nl_get_auxhist11_begin_d: Out of range domain number: ',id_id
5777 CALL wrf_error_fatal(emess)
5778 ENDIF
5779 auxhist11_begin_d = model_config_rec%auxhist11_begin_d(id_id)
5780 RETURN
5781 END SUBROUTINE nl_get_auxhist11_begin_d
5782 SUBROUTINE nl_get_auxhist11_begin_h ( id_id , auxhist11_begin_h )
5783 integer , INTENT(OUT) :: auxhist11_begin_h
5784 INTEGER id_id
5785 CHARACTER*80 emess
5786 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5787 WRITE(emess,*)'nl_get_auxhist11_begin_h: Out of range domain number: ',id_id
5788 CALL wrf_error_fatal(emess)
5789 ENDIF
5790 auxhist11_begin_h = model_config_rec%auxhist11_begin_h(id_id)
5791 RETURN
5792 END SUBROUTINE nl_get_auxhist11_begin_h
5793 SUBROUTINE nl_get_auxhist11_begin_m ( id_id , auxhist11_begin_m )
5794 integer , INTENT(OUT) :: auxhist11_begin_m
5795 INTEGER id_id
5796 CHARACTER*80 emess
5797 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5798 WRITE(emess,*)'nl_get_auxhist11_begin_m: Out of range domain number: ',id_id
5799 CALL wrf_error_fatal(emess)
5800 ENDIF
5801 auxhist11_begin_m = model_config_rec%auxhist11_begin_m(id_id)
5802 RETURN
5803 END SUBROUTINE nl_get_auxhist11_begin_m
5804 SUBROUTINE nl_get_auxhist11_begin_s ( id_id , auxhist11_begin_s )
5805 integer , INTENT(OUT) :: auxhist11_begin_s
5806 INTEGER id_id
5807 CHARACTER*80 emess
5808 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5809 WRITE(emess,*)'nl_get_auxhist11_begin_s: Out of range domain number: ',id_id
5810 CALL wrf_error_fatal(emess)
5811 ENDIF
5812 auxhist11_begin_s = model_config_rec%auxhist11_begin_s(id_id)
5813 RETURN
5814 END SUBROUTINE nl_get_auxhist11_begin_s
5815 SUBROUTINE nl_get_auxinput1_begin_y ( id_id , auxinput1_begin_y )
5816 integer , INTENT(OUT) :: auxinput1_begin_y
5817 INTEGER id_id
5818 CHARACTER*80 emess
5819 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5820 WRITE(emess,*)'nl_get_auxinput1_begin_y: Out of range domain number: ',id_id
5821 CALL wrf_error_fatal(emess)
5822 ENDIF
5823 auxinput1_begin_y = model_config_rec%auxinput1_begin_y(id_id)
5824 RETURN
5825 END SUBROUTINE nl_get_auxinput1_begin_y
5826 SUBROUTINE nl_get_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
5827 integer , INTENT(OUT) :: auxinput1_begin_mo
5828 INTEGER id_id
5829 CHARACTER*80 emess
5830 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5831 WRITE(emess,*)'nl_get_auxinput1_begin_mo: Out of range domain number: ',id_id
5832 CALL wrf_error_fatal(emess)
5833 ENDIF
5834 auxinput1_begin_mo = model_config_rec%auxinput1_begin_mo(id_id)
5835 RETURN
5836 END SUBROUTINE nl_get_auxinput1_begin_mo
5837 SUBROUTINE nl_get_auxinput1_begin_d ( id_id , auxinput1_begin_d )
5838 integer , INTENT(OUT) :: auxinput1_begin_d
5839 INTEGER id_id
5840 CHARACTER*80 emess
5841 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5842 WRITE(emess,*)'nl_get_auxinput1_begin_d: Out of range domain number: ',id_id
5843 CALL wrf_error_fatal(emess)
5844 ENDIF
5845 auxinput1_begin_d = model_config_rec%auxinput1_begin_d(id_id)
5846 RETURN
5847 END SUBROUTINE nl_get_auxinput1_begin_d
5848 SUBROUTINE nl_get_auxinput1_begin_h ( id_id , auxinput1_begin_h )
5849 integer , INTENT(OUT) :: auxinput1_begin_h
5850 INTEGER id_id
5851 CHARACTER*80 emess
5852 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5853 WRITE(emess,*)'nl_get_auxinput1_begin_h: Out of range domain number: ',id_id
5854 CALL wrf_error_fatal(emess)
5855 ENDIF
5856 auxinput1_begin_h = model_config_rec%auxinput1_begin_h(id_id)
5857 RETURN
5858 END SUBROUTINE nl_get_auxinput1_begin_h
5859 SUBROUTINE nl_get_auxinput1_begin_m ( id_id , auxinput1_begin_m )
5860 integer , INTENT(OUT) :: auxinput1_begin_m
5861 INTEGER id_id
5862 CHARACTER*80 emess
5863 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5864 WRITE(emess,*)'nl_get_auxinput1_begin_m: Out of range domain number: ',id_id
5865 CALL wrf_error_fatal(emess)
5866 ENDIF
5867 auxinput1_begin_m = model_config_rec%auxinput1_begin_m(id_id)
5868 RETURN
5869 END SUBROUTINE nl_get_auxinput1_begin_m
5870 SUBROUTINE nl_get_auxinput1_begin_s ( id_id , auxinput1_begin_s )
5871 integer , INTENT(OUT) :: auxinput1_begin_s
5872 INTEGER id_id
5873 CHARACTER*80 emess
5874 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5875 WRITE(emess,*)'nl_get_auxinput1_begin_s: Out of range domain number: ',id_id
5876 CALL wrf_error_fatal(emess)
5877 ENDIF
5878 auxinput1_begin_s = model_config_rec%auxinput1_begin_s(id_id)
5879 RETURN
5880 END SUBROUTINE nl_get_auxinput1_begin_s
5881 SUBROUTINE nl_get_auxinput2_begin_y ( id_id , auxinput2_begin_y )
5882 integer , INTENT(OUT) :: auxinput2_begin_y
5883 INTEGER id_id
5884 CHARACTER*80 emess
5885 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5886 WRITE(emess,*)'nl_get_auxinput2_begin_y: Out of range domain number: ',id_id
5887 CALL wrf_error_fatal(emess)
5888 ENDIF
5889 auxinput2_begin_y = model_config_rec%auxinput2_begin_y(id_id)
5890 RETURN
5891 END SUBROUTINE nl_get_auxinput2_begin_y
5892 SUBROUTINE nl_get_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
5893 integer , INTENT(OUT) :: auxinput2_begin_mo
5894 INTEGER id_id
5895 CHARACTER*80 emess
5896 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5897 WRITE(emess,*)'nl_get_auxinput2_begin_mo: Out of range domain number: ',id_id
5898 CALL wrf_error_fatal(emess)
5899 ENDIF
5900 auxinput2_begin_mo = model_config_rec%auxinput2_begin_mo(id_id)
5901 RETURN
5902 END SUBROUTINE nl_get_auxinput2_begin_mo
5903 SUBROUTINE nl_get_auxinput2_begin_d ( id_id , auxinput2_begin_d )
5904 integer , INTENT(OUT) :: auxinput2_begin_d
5905 INTEGER id_id
5906 CHARACTER*80 emess
5907 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5908 WRITE(emess,*)'nl_get_auxinput2_begin_d: Out of range domain number: ',id_id
5909 CALL wrf_error_fatal(emess)
5910 ENDIF
5911 auxinput2_begin_d = model_config_rec%auxinput2_begin_d(id_id)
5912 RETURN
5913 END SUBROUTINE nl_get_auxinput2_begin_d
5914 SUBROUTINE nl_get_auxinput2_begin_h ( id_id , auxinput2_begin_h )
5915 integer , INTENT(OUT) :: auxinput2_begin_h
5916 INTEGER id_id
5917 CHARACTER*80 emess
5918 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5919 WRITE(emess,*)'nl_get_auxinput2_begin_h: Out of range domain number: ',id_id
5920 CALL wrf_error_fatal(emess)
5921 ENDIF
5922 auxinput2_begin_h = model_config_rec%auxinput2_begin_h(id_id)
5923 RETURN
5924 END SUBROUTINE nl_get_auxinput2_begin_h
5925 SUBROUTINE nl_get_auxinput2_begin_m ( id_id , auxinput2_begin_m )
5926 integer , INTENT(OUT) :: auxinput2_begin_m
5927 INTEGER id_id
5928 CHARACTER*80 emess
5929 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5930 WRITE(emess,*)'nl_get_auxinput2_begin_m: Out of range domain number: ',id_id
5931 CALL wrf_error_fatal(emess)
5932 ENDIF
5933 auxinput2_begin_m = model_config_rec%auxinput2_begin_m(id_id)
5934 RETURN
5935 END SUBROUTINE nl_get_auxinput2_begin_m
5936 SUBROUTINE nl_get_auxinput2_begin_s ( id_id , auxinput2_begin_s )
5937 integer , INTENT(OUT) :: auxinput2_begin_s
5938 INTEGER id_id
5939 CHARACTER*80 emess
5940 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5941 WRITE(emess,*)'nl_get_auxinput2_begin_s: Out of range domain number: ',id_id
5942 CALL wrf_error_fatal(emess)
5943 ENDIF
5944 auxinput2_begin_s = model_config_rec%auxinput2_begin_s(id_id)
5945 RETURN
5946 END SUBROUTINE nl_get_auxinput2_begin_s
5947 SUBROUTINE nl_get_auxinput3_begin_y ( id_id , auxinput3_begin_y )
5948 integer , INTENT(OUT) :: auxinput3_begin_y
5949 INTEGER id_id
5950 CHARACTER*80 emess
5951 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5952 WRITE(emess,*)'nl_get_auxinput3_begin_y: Out of range domain number: ',id_id
5953 CALL wrf_error_fatal(emess)
5954 ENDIF
5955 auxinput3_begin_y = model_config_rec%auxinput3_begin_y(id_id)
5956 RETURN
5957 END SUBROUTINE nl_get_auxinput3_begin_y
5958 SUBROUTINE nl_get_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
5959 integer , INTENT(OUT) :: auxinput3_begin_mo
5960 INTEGER id_id
5961 CHARACTER*80 emess
5962 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5963 WRITE(emess,*)'nl_get_auxinput3_begin_mo: Out of range domain number: ',id_id
5964 CALL wrf_error_fatal(emess)
5965 ENDIF
5966 auxinput3_begin_mo = model_config_rec%auxinput3_begin_mo(id_id)
5967 RETURN
5968 END SUBROUTINE nl_get_auxinput3_begin_mo
5969 SUBROUTINE nl_get_auxinput3_begin_d ( id_id , auxinput3_begin_d )
5970 integer , INTENT(OUT) :: auxinput3_begin_d
5971 INTEGER id_id
5972 CHARACTER*80 emess
5973 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5974 WRITE(emess,*)'nl_get_auxinput3_begin_d: Out of range domain number: ',id_id
5975 CALL wrf_error_fatal(emess)
5976 ENDIF
5977 auxinput3_begin_d = model_config_rec%auxinput3_begin_d(id_id)
5978 RETURN
5979 END SUBROUTINE nl_get_auxinput3_begin_d
5980 SUBROUTINE nl_get_auxinput3_begin_h ( id_id , auxinput3_begin_h )
5981 integer , INTENT(OUT) :: auxinput3_begin_h
5982 INTEGER id_id
5983 CHARACTER*80 emess
5984 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5985 WRITE(emess,*)'nl_get_auxinput3_begin_h: Out of range domain number: ',id_id
5986 CALL wrf_error_fatal(emess)
5987 ENDIF
5988 auxinput3_begin_h = model_config_rec%auxinput3_begin_h(id_id)
5989 RETURN
5990 END SUBROUTINE nl_get_auxinput3_begin_h
5991 SUBROUTINE nl_get_auxinput3_begin_m ( id_id , auxinput3_begin_m )
5992 integer , INTENT(OUT) :: auxinput3_begin_m
5993 INTEGER id_id
5994 CHARACTER*80 emess
5995 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
5996 WRITE(emess,*)'nl_get_auxinput3_begin_m: Out of range domain number: ',id_id
5997 CALL wrf_error_fatal(emess)
5998 ENDIF
5999 auxinput3_begin_m = model_config_rec%auxinput3_begin_m(id_id)
6000 RETURN
6001 END SUBROUTINE nl_get_auxinput3_begin_m
6002 SUBROUTINE nl_get_auxinput3_begin_s ( id_id , auxinput3_begin_s )
6003 integer , INTENT(OUT) :: auxinput3_begin_s
6004 INTEGER id_id
6005 CHARACTER*80 emess
6006 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6007 WRITE(emess,*)'nl_get_auxinput3_begin_s: Out of range domain number: ',id_id
6008 CALL wrf_error_fatal(emess)
6009 ENDIF
6010 auxinput3_begin_s = model_config_rec%auxinput3_begin_s(id_id)
6011 RETURN
6012 END SUBROUTINE nl_get_auxinput3_begin_s
6013 SUBROUTINE nl_get_auxinput4_begin_y ( id_id , auxinput4_begin_y )
6014 integer , INTENT(OUT) :: auxinput4_begin_y
6015 INTEGER id_id
6016 CHARACTER*80 emess
6017 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6018 WRITE(emess,*)'nl_get_auxinput4_begin_y: Out of range domain number: ',id_id
6019 CALL wrf_error_fatal(emess)
6020 ENDIF
6021 auxinput4_begin_y = model_config_rec%auxinput4_begin_y(id_id)
6022 RETURN
6023 END SUBROUTINE nl_get_auxinput4_begin_y
6024 SUBROUTINE nl_get_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
6025 integer , INTENT(OUT) :: auxinput4_begin_mo
6026 INTEGER id_id
6027 CHARACTER*80 emess
6028 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6029 WRITE(emess,*)'nl_get_auxinput4_begin_mo: Out of range domain number: ',id_id
6030 CALL wrf_error_fatal(emess)
6031 ENDIF
6032 auxinput4_begin_mo = model_config_rec%auxinput4_begin_mo(id_id)
6033 RETURN
6034 END SUBROUTINE nl_get_auxinput4_begin_mo
6035 SUBROUTINE nl_get_auxinput4_begin_d ( id_id , auxinput4_begin_d )
6036 integer , INTENT(OUT) :: auxinput4_begin_d
6037 INTEGER id_id
6038 CHARACTER*80 emess
6039 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6040 WRITE(emess,*)'nl_get_auxinput4_begin_d: Out of range domain number: ',id_id
6041 CALL wrf_error_fatal(emess)
6042 ENDIF
6043 auxinput4_begin_d = model_config_rec%auxinput4_begin_d(id_id)
6044 RETURN
6045 END SUBROUTINE nl_get_auxinput4_begin_d
6046 SUBROUTINE nl_get_auxinput4_begin_h ( id_id , auxinput4_begin_h )
6047 integer , INTENT(OUT) :: auxinput4_begin_h
6048 INTEGER id_id
6049 CHARACTER*80 emess
6050 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6051 WRITE(emess,*)'nl_get_auxinput4_begin_h: Out of range domain number: ',id_id
6052 CALL wrf_error_fatal(emess)
6053 ENDIF
6054 auxinput4_begin_h = model_config_rec%auxinput4_begin_h(id_id)
6055 RETURN
6056 END SUBROUTINE nl_get_auxinput4_begin_h
6057 SUBROUTINE nl_get_auxinput4_begin_m ( id_id , auxinput4_begin_m )
6058 integer , INTENT(OUT) :: auxinput4_begin_m
6059 INTEGER id_id
6060 CHARACTER*80 emess
6061 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6062 WRITE(emess,*)'nl_get_auxinput4_begin_m: Out of range domain number: ',id_id
6063 CALL wrf_error_fatal(emess)
6064 ENDIF
6065 auxinput4_begin_m = model_config_rec%auxinput4_begin_m(id_id)
6066 RETURN
6067 END SUBROUTINE nl_get_auxinput4_begin_m
6068 SUBROUTINE nl_get_auxinput4_begin_s ( id_id , auxinput4_begin_s )
6069 integer , INTENT(OUT) :: auxinput4_begin_s
6070 INTEGER id_id
6071 CHARACTER*80 emess
6072 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6073 WRITE(emess,*)'nl_get_auxinput4_begin_s: Out of range domain number: ',id_id
6074 CALL wrf_error_fatal(emess)
6075 ENDIF
6076 auxinput4_begin_s = model_config_rec%auxinput4_begin_s(id_id)
6077 RETURN
6078 END SUBROUTINE nl_get_auxinput4_begin_s
6079 SUBROUTINE nl_get_auxinput5_begin_y ( id_id , auxinput5_begin_y )
6080 integer , INTENT(OUT) :: auxinput5_begin_y
6081 INTEGER id_id
6082 CHARACTER*80 emess
6083 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6084 WRITE(emess,*)'nl_get_auxinput5_begin_y: Out of range domain number: ',id_id
6085 CALL wrf_error_fatal(emess)
6086 ENDIF
6087 auxinput5_begin_y = model_config_rec%auxinput5_begin_y(id_id)
6088 RETURN
6089 END SUBROUTINE nl_get_auxinput5_begin_y
6090 SUBROUTINE nl_get_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
6091 integer , INTENT(OUT) :: auxinput5_begin_mo
6092 INTEGER id_id
6093 CHARACTER*80 emess
6094 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6095 WRITE(emess,*)'nl_get_auxinput5_begin_mo: Out of range domain number: ',id_id
6096 CALL wrf_error_fatal(emess)
6097 ENDIF
6098 auxinput5_begin_mo = model_config_rec%auxinput5_begin_mo(id_id)
6099 RETURN
6100 END SUBROUTINE nl_get_auxinput5_begin_mo
6101 SUBROUTINE nl_get_auxinput5_begin_d ( id_id , auxinput5_begin_d )
6102 integer , INTENT(OUT) :: auxinput5_begin_d
6103 INTEGER id_id
6104 CHARACTER*80 emess
6105 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6106 WRITE(emess,*)'nl_get_auxinput5_begin_d: Out of range domain number: ',id_id
6107 CALL wrf_error_fatal(emess)
6108 ENDIF
6109 auxinput5_begin_d = model_config_rec%auxinput5_begin_d(id_id)
6110 RETURN
6111 END SUBROUTINE nl_get_auxinput5_begin_d
6112 SUBROUTINE nl_get_auxinput5_begin_h ( id_id , auxinput5_begin_h )
6113 integer , INTENT(OUT) :: auxinput5_begin_h
6114 INTEGER id_id
6115 CHARACTER*80 emess
6116 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6117 WRITE(emess,*)'nl_get_auxinput5_begin_h: Out of range domain number: ',id_id
6118 CALL wrf_error_fatal(emess)
6119 ENDIF
6120 auxinput5_begin_h = model_config_rec%auxinput5_begin_h(id_id)
6121 RETURN
6122 END SUBROUTINE nl_get_auxinput5_begin_h
6123 SUBROUTINE nl_get_auxinput5_begin_m ( id_id , auxinput5_begin_m )
6124 integer , INTENT(OUT) :: auxinput5_begin_m
6125 INTEGER id_id
6126 CHARACTER*80 emess
6127 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6128 WRITE(emess,*)'nl_get_auxinput5_begin_m: Out of range domain number: ',id_id
6129 CALL wrf_error_fatal(emess)
6130 ENDIF
6131 auxinput5_begin_m = model_config_rec%auxinput5_begin_m(id_id)
6132 RETURN
6133 END SUBROUTINE nl_get_auxinput5_begin_m
6134 SUBROUTINE nl_get_auxinput5_begin_s ( id_id , auxinput5_begin_s )
6135 integer , INTENT(OUT) :: auxinput5_begin_s
6136 INTEGER id_id
6137 CHARACTER*80 emess
6138 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6139 WRITE(emess,*)'nl_get_auxinput5_begin_s: Out of range domain number: ',id_id
6140 CALL wrf_error_fatal(emess)
6141 ENDIF
6142 auxinput5_begin_s = model_config_rec%auxinput5_begin_s(id_id)
6143 RETURN
6144 END SUBROUTINE nl_get_auxinput5_begin_s
6145 SUBROUTINE nl_get_auxinput6_begin_y ( id_id , auxinput6_begin_y )
6146 integer , INTENT(OUT) :: auxinput6_begin_y
6147 INTEGER id_id
6148 CHARACTER*80 emess
6149 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6150 WRITE(emess,*)'nl_get_auxinput6_begin_y: Out of range domain number: ',id_id
6151 CALL wrf_error_fatal(emess)
6152 ENDIF
6153 auxinput6_begin_y = model_config_rec%auxinput6_begin_y(id_id)
6154 RETURN
6155 END SUBROUTINE nl_get_auxinput6_begin_y
6156 SUBROUTINE nl_get_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
6157 integer , INTENT(OUT) :: auxinput6_begin_mo
6158 INTEGER id_id
6159 CHARACTER*80 emess
6160 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6161 WRITE(emess,*)'nl_get_auxinput6_begin_mo: Out of range domain number: ',id_id
6162 CALL wrf_error_fatal(emess)
6163 ENDIF
6164 auxinput6_begin_mo = model_config_rec%auxinput6_begin_mo(id_id)
6165 RETURN
6166 END SUBROUTINE nl_get_auxinput6_begin_mo
6167 SUBROUTINE nl_get_auxinput6_begin_d ( id_id , auxinput6_begin_d )
6168 integer , INTENT(OUT) :: auxinput6_begin_d
6169 INTEGER id_id
6170 CHARACTER*80 emess
6171 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6172 WRITE(emess,*)'nl_get_auxinput6_begin_d: Out of range domain number: ',id_id
6173 CALL wrf_error_fatal(emess)
6174 ENDIF
6175 auxinput6_begin_d = model_config_rec%auxinput6_begin_d(id_id)
6176 RETURN
6177 END SUBROUTINE nl_get_auxinput6_begin_d
6178 SUBROUTINE nl_get_auxinput6_begin_h ( id_id , auxinput6_begin_h )
6179 integer , INTENT(OUT) :: auxinput6_begin_h
6180 INTEGER id_id
6181 CHARACTER*80 emess
6182 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6183 WRITE(emess,*)'nl_get_auxinput6_begin_h: Out of range domain number: ',id_id
6184 CALL wrf_error_fatal(emess)
6185 ENDIF
6186 auxinput6_begin_h = model_config_rec%auxinput6_begin_h(id_id)
6187 RETURN
6188 END SUBROUTINE nl_get_auxinput6_begin_h
6189 SUBROUTINE nl_get_auxinput6_begin_m ( id_id , auxinput6_begin_m )
6190 integer , INTENT(OUT) :: auxinput6_begin_m
6191 INTEGER id_id
6192 CHARACTER*80 emess
6193 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6194 WRITE(emess,*)'nl_get_auxinput6_begin_m: Out of range domain number: ',id_id
6195 CALL wrf_error_fatal(emess)
6196 ENDIF
6197 auxinput6_begin_m = model_config_rec%auxinput6_begin_m(id_id)
6198 RETURN
6199 END SUBROUTINE nl_get_auxinput6_begin_m
6200 SUBROUTINE nl_get_auxinput6_begin_s ( id_id , auxinput6_begin_s )
6201 integer , INTENT(OUT) :: auxinput6_begin_s
6202 INTEGER id_id
6203 CHARACTER*80 emess
6204 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6205 WRITE(emess,*)'nl_get_auxinput6_begin_s: Out of range domain number: ',id_id
6206 CALL wrf_error_fatal(emess)
6207 ENDIF
6208 auxinput6_begin_s = model_config_rec%auxinput6_begin_s(id_id)
6209 RETURN
6210 END SUBROUTINE nl_get_auxinput6_begin_s
6211 SUBROUTINE nl_get_auxinput7_begin_y ( id_id , auxinput7_begin_y )
6212 integer , INTENT(OUT) :: auxinput7_begin_y
6213 INTEGER id_id
6214 CHARACTER*80 emess
6215 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6216 WRITE(emess,*)'nl_get_auxinput7_begin_y: Out of range domain number: ',id_id
6217 CALL wrf_error_fatal(emess)
6218 ENDIF
6219 auxinput7_begin_y = model_config_rec%auxinput7_begin_y(id_id)
6220 RETURN
6221 END SUBROUTINE nl_get_auxinput7_begin_y
6222 SUBROUTINE nl_get_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
6223 integer , INTENT(OUT) :: auxinput7_begin_mo
6224 INTEGER id_id
6225 CHARACTER*80 emess
6226 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6227 WRITE(emess,*)'nl_get_auxinput7_begin_mo: Out of range domain number: ',id_id
6228 CALL wrf_error_fatal(emess)
6229 ENDIF
6230 auxinput7_begin_mo = model_config_rec%auxinput7_begin_mo(id_id)
6231 RETURN
6232 END SUBROUTINE nl_get_auxinput7_begin_mo
6233 SUBROUTINE nl_get_auxinput7_begin_d ( id_id , auxinput7_begin_d )
6234 integer , INTENT(OUT) :: auxinput7_begin_d
6235 INTEGER id_id
6236 CHARACTER*80 emess
6237 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6238 WRITE(emess,*)'nl_get_auxinput7_begin_d: Out of range domain number: ',id_id
6239 CALL wrf_error_fatal(emess)
6240 ENDIF
6241 auxinput7_begin_d = model_config_rec%auxinput7_begin_d(id_id)
6242 RETURN
6243 END SUBROUTINE nl_get_auxinput7_begin_d
6244 SUBROUTINE nl_get_auxinput7_begin_h ( id_id , auxinput7_begin_h )
6245 integer , INTENT(OUT) :: auxinput7_begin_h
6246 INTEGER id_id
6247 CHARACTER*80 emess
6248 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6249 WRITE(emess,*)'nl_get_auxinput7_begin_h: Out of range domain number: ',id_id
6250 CALL wrf_error_fatal(emess)
6251 ENDIF
6252 auxinput7_begin_h = model_config_rec%auxinput7_begin_h(id_id)
6253 RETURN
6254 END SUBROUTINE nl_get_auxinput7_begin_h
6255 SUBROUTINE nl_get_auxinput7_begin_m ( id_id , auxinput7_begin_m )
6256 integer , INTENT(OUT) :: auxinput7_begin_m
6257 INTEGER id_id
6258 CHARACTER*80 emess
6259 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6260 WRITE(emess,*)'nl_get_auxinput7_begin_m: Out of range domain number: ',id_id
6261 CALL wrf_error_fatal(emess)
6262 ENDIF
6263 auxinput7_begin_m = model_config_rec%auxinput7_begin_m(id_id)
6264 RETURN
6265 END SUBROUTINE nl_get_auxinput7_begin_m
6266 SUBROUTINE nl_get_auxinput7_begin_s ( id_id , auxinput7_begin_s )
6267 integer , INTENT(OUT) :: auxinput7_begin_s
6268 INTEGER id_id
6269 CHARACTER*80 emess
6270 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6271 WRITE(emess,*)'nl_get_auxinput7_begin_s: Out of range domain number: ',id_id
6272 CALL wrf_error_fatal(emess)
6273 ENDIF
6274 auxinput7_begin_s = model_config_rec%auxinput7_begin_s(id_id)
6275 RETURN
6276 END SUBROUTINE nl_get_auxinput7_begin_s
6277 SUBROUTINE nl_get_auxinput8_begin_y ( id_id , auxinput8_begin_y )
6278 integer , INTENT(OUT) :: auxinput8_begin_y
6279 INTEGER id_id
6280 CHARACTER*80 emess
6281 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6282 WRITE(emess,*)'nl_get_auxinput8_begin_y: Out of range domain number: ',id_id
6283 CALL wrf_error_fatal(emess)
6284 ENDIF
6285 auxinput8_begin_y = model_config_rec%auxinput8_begin_y(id_id)
6286 RETURN
6287 END SUBROUTINE nl_get_auxinput8_begin_y
6288 SUBROUTINE nl_get_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
6289 integer , INTENT(OUT) :: auxinput8_begin_mo
6290 INTEGER id_id
6291 CHARACTER*80 emess
6292 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6293 WRITE(emess,*)'nl_get_auxinput8_begin_mo: Out of range domain number: ',id_id
6294 CALL wrf_error_fatal(emess)
6295 ENDIF
6296 auxinput8_begin_mo = model_config_rec%auxinput8_begin_mo(id_id)
6297 RETURN
6298 END SUBROUTINE nl_get_auxinput8_begin_mo
6299 SUBROUTINE nl_get_auxinput8_begin_d ( id_id , auxinput8_begin_d )
6300 integer , INTENT(OUT) :: auxinput8_begin_d
6301 INTEGER id_id
6302 CHARACTER*80 emess
6303 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6304 WRITE(emess,*)'nl_get_auxinput8_begin_d: Out of range domain number: ',id_id
6305 CALL wrf_error_fatal(emess)
6306 ENDIF
6307 auxinput8_begin_d = model_config_rec%auxinput8_begin_d(id_id)
6308 RETURN
6309 END SUBROUTINE nl_get_auxinput8_begin_d
6310 SUBROUTINE nl_get_auxinput8_begin_h ( id_id , auxinput8_begin_h )
6311 integer , INTENT(OUT) :: auxinput8_begin_h
6312 INTEGER id_id
6313 CHARACTER*80 emess
6314 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6315 WRITE(emess,*)'nl_get_auxinput8_begin_h: Out of range domain number: ',id_id
6316 CALL wrf_error_fatal(emess)
6317 ENDIF
6318 auxinput8_begin_h = model_config_rec%auxinput8_begin_h(id_id)
6319 RETURN
6320 END SUBROUTINE nl_get_auxinput8_begin_h
6321 SUBROUTINE nl_get_auxinput8_begin_m ( id_id , auxinput8_begin_m )
6322 integer , INTENT(OUT) :: auxinput8_begin_m
6323 INTEGER id_id
6324 CHARACTER*80 emess
6325 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6326 WRITE(emess,*)'nl_get_auxinput8_begin_m: Out of range domain number: ',id_id
6327 CALL wrf_error_fatal(emess)
6328 ENDIF
6329 auxinput8_begin_m = model_config_rec%auxinput8_begin_m(id_id)
6330 RETURN
6331 END SUBROUTINE nl_get_auxinput8_begin_m
6332 SUBROUTINE nl_get_auxinput8_begin_s ( id_id , auxinput8_begin_s )
6333 integer , INTENT(OUT) :: auxinput8_begin_s
6334 INTEGER id_id
6335 CHARACTER*80 emess
6336 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6337 WRITE(emess,*)'nl_get_auxinput8_begin_s: Out of range domain number: ',id_id
6338 CALL wrf_error_fatal(emess)
6339 ENDIF
6340 auxinput8_begin_s = model_config_rec%auxinput8_begin_s(id_id)
6341 RETURN
6342 END SUBROUTINE nl_get_auxinput8_begin_s
6343 SUBROUTINE nl_get_auxinput9_begin_y ( id_id , auxinput9_begin_y )
6344 integer , INTENT(OUT) :: auxinput9_begin_y
6345 INTEGER id_id
6346 CHARACTER*80 emess
6347 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6348 WRITE(emess,*)'nl_get_auxinput9_begin_y: Out of range domain number: ',id_id
6349 CALL wrf_error_fatal(emess)
6350 ENDIF
6351 auxinput9_begin_y = model_config_rec%auxinput9_begin_y(id_id)
6352 RETURN
6353 END SUBROUTINE nl_get_auxinput9_begin_y
6354 SUBROUTINE nl_get_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
6355 integer , INTENT(OUT) :: auxinput9_begin_mo
6356 INTEGER id_id
6357 CHARACTER*80 emess
6358 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6359 WRITE(emess,*)'nl_get_auxinput9_begin_mo: Out of range domain number: ',id_id
6360 CALL wrf_error_fatal(emess)
6361 ENDIF
6362 auxinput9_begin_mo = model_config_rec%auxinput9_begin_mo(id_id)
6363 RETURN
6364 END SUBROUTINE nl_get_auxinput9_begin_mo
6365 SUBROUTINE nl_get_auxinput9_begin_d ( id_id , auxinput9_begin_d )
6366 integer , INTENT(OUT) :: auxinput9_begin_d
6367 INTEGER id_id
6368 CHARACTER*80 emess
6369 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6370 WRITE(emess,*)'nl_get_auxinput9_begin_d: Out of range domain number: ',id_id
6371 CALL wrf_error_fatal(emess)
6372 ENDIF
6373 auxinput9_begin_d = model_config_rec%auxinput9_begin_d(id_id)
6374 RETURN
6375 END SUBROUTINE nl_get_auxinput9_begin_d
6376 SUBROUTINE nl_get_auxinput9_begin_h ( id_id , auxinput9_begin_h )
6377 integer , INTENT(OUT) :: auxinput9_begin_h
6378 INTEGER id_id
6379 CHARACTER*80 emess
6380 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6381 WRITE(emess,*)'nl_get_auxinput9_begin_h: Out of range domain number: ',id_id
6382 CALL wrf_error_fatal(emess)
6383 ENDIF
6384 auxinput9_begin_h = model_config_rec%auxinput9_begin_h(id_id)
6385 RETURN
6386 END SUBROUTINE nl_get_auxinput9_begin_h
6387 SUBROUTINE nl_get_auxinput9_begin_m ( id_id , auxinput9_begin_m )
6388 integer , INTENT(OUT) :: auxinput9_begin_m
6389 INTEGER id_id
6390 CHARACTER*80 emess
6391 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6392 WRITE(emess,*)'nl_get_auxinput9_begin_m: Out of range domain number: ',id_id
6393 CALL wrf_error_fatal(emess)
6394 ENDIF
6395 auxinput9_begin_m = model_config_rec%auxinput9_begin_m(id_id)
6396 RETURN
6397 END SUBROUTINE nl_get_auxinput9_begin_m
6398 SUBROUTINE nl_get_auxinput9_begin_s ( id_id , auxinput9_begin_s )
6399 integer , INTENT(OUT) :: auxinput9_begin_s
6400 INTEGER id_id
6401 CHARACTER*80 emess
6402 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6403 WRITE(emess,*)'nl_get_auxinput9_begin_s: Out of range domain number: ',id_id
6404 CALL wrf_error_fatal(emess)
6405 ENDIF
6406 auxinput9_begin_s = model_config_rec%auxinput9_begin_s(id_id)
6407 RETURN
6408 END SUBROUTINE nl_get_auxinput9_begin_s
6409 SUBROUTINE nl_get_gfdda_begin_y ( id_id , gfdda_begin_y )
6410 integer , INTENT(OUT) :: gfdda_begin_y
6411 INTEGER id_id
6412 CHARACTER*80 emess
6413 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6414 WRITE(emess,*)'nl_get_gfdda_begin_y: Out of range domain number: ',id_id
6415 CALL wrf_error_fatal(emess)
6416 ENDIF
6417 gfdda_begin_y = model_config_rec%gfdda_begin_y(id_id)
6418 RETURN
6419 END SUBROUTINE nl_get_gfdda_begin_y
6420 SUBROUTINE nl_get_gfdda_begin_mo ( id_id , gfdda_begin_mo )
6421 integer , INTENT(OUT) :: gfdda_begin_mo
6422 INTEGER id_id
6423 CHARACTER*80 emess
6424 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6425 WRITE(emess,*)'nl_get_gfdda_begin_mo: Out of range domain number: ',id_id
6426 CALL wrf_error_fatal(emess)
6427 ENDIF
6428 gfdda_begin_mo = model_config_rec%gfdda_begin_mo(id_id)
6429 RETURN
6430 END SUBROUTINE nl_get_gfdda_begin_mo
6431 SUBROUTINE nl_get_gfdda_begin_d ( id_id , gfdda_begin_d )
6432 integer , INTENT(OUT) :: gfdda_begin_d
6433 INTEGER id_id
6434 CHARACTER*80 emess
6435 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6436 WRITE(emess,*)'nl_get_gfdda_begin_d: Out of range domain number: ',id_id
6437 CALL wrf_error_fatal(emess)
6438 ENDIF
6439 gfdda_begin_d = model_config_rec%gfdda_begin_d(id_id)
6440 RETURN
6441 END SUBROUTINE nl_get_gfdda_begin_d
6442 SUBROUTINE nl_get_gfdda_begin_h ( id_id , gfdda_begin_h )
6443 integer , INTENT(OUT) :: gfdda_begin_h
6444 INTEGER id_id
6445 CHARACTER*80 emess
6446 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6447 WRITE(emess,*)'nl_get_gfdda_begin_h: Out of range domain number: ',id_id
6448 CALL wrf_error_fatal(emess)
6449 ENDIF
6450 gfdda_begin_h = model_config_rec%gfdda_begin_h(id_id)
6451 RETURN
6452 END SUBROUTINE nl_get_gfdda_begin_h
6453 SUBROUTINE nl_get_gfdda_begin_m ( id_id , gfdda_begin_m )
6454 integer , INTENT(OUT) :: gfdda_begin_m
6455 INTEGER id_id
6456 CHARACTER*80 emess
6457 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6458 WRITE(emess,*)'nl_get_gfdda_begin_m: Out of range domain number: ',id_id
6459 CALL wrf_error_fatal(emess)
6460 ENDIF
6461 gfdda_begin_m = model_config_rec%gfdda_begin_m(id_id)
6462 RETURN
6463 END SUBROUTINE nl_get_gfdda_begin_m
6464 SUBROUTINE nl_get_gfdda_begin_s ( id_id , gfdda_begin_s )
6465 integer , INTENT(OUT) :: gfdda_begin_s
6466 INTEGER id_id
6467 CHARACTER*80 emess
6468 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6469 WRITE(emess,*)'nl_get_gfdda_begin_s: Out of range domain number: ',id_id
6470 CALL wrf_error_fatal(emess)
6471 ENDIF
6472 gfdda_begin_s = model_config_rec%gfdda_begin_s(id_id)
6473 RETURN
6474 END SUBROUTINE nl_get_gfdda_begin_s
6475 SUBROUTINE nl_get_auxinput11_begin_y ( id_id , auxinput11_begin_y )
6476 integer , INTENT(OUT) :: auxinput11_begin_y
6477 INTEGER id_id
6478 CHARACTER*80 emess
6479 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6480 WRITE(emess,*)'nl_get_auxinput11_begin_y: Out of range domain number: ',id_id
6481 CALL wrf_error_fatal(emess)
6482 ENDIF
6483 auxinput11_begin_y = model_config_rec%auxinput11_begin_y(id_id)
6484 RETURN
6485 END SUBROUTINE nl_get_auxinput11_begin_y
6486 SUBROUTINE nl_get_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
6487 integer , INTENT(OUT) :: auxinput11_begin_mo
6488 INTEGER id_id
6489 CHARACTER*80 emess
6490 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6491 WRITE(emess,*)'nl_get_auxinput11_begin_mo: Out of range domain number: ',id_id
6492 CALL wrf_error_fatal(emess)
6493 ENDIF
6494 auxinput11_begin_mo = model_config_rec%auxinput11_begin_mo(id_id)
6495 RETURN
6496 END SUBROUTINE nl_get_auxinput11_begin_mo
6497 SUBROUTINE nl_get_auxinput11_begin_d ( id_id , auxinput11_begin_d )
6498 integer , INTENT(OUT) :: auxinput11_begin_d
6499 INTEGER id_id
6500 CHARACTER*80 emess
6501 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6502 WRITE(emess,*)'nl_get_auxinput11_begin_d: Out of range domain number: ',id_id
6503 CALL wrf_error_fatal(emess)
6504 ENDIF
6505 auxinput11_begin_d = model_config_rec%auxinput11_begin_d(id_id)
6506 RETURN
6507 END SUBROUTINE nl_get_auxinput11_begin_d
6508 SUBROUTINE nl_get_auxinput11_begin_h ( id_id , auxinput11_begin_h )
6509 integer , INTENT(OUT) :: auxinput11_begin_h
6510 INTEGER id_id
6511 CHARACTER*80 emess
6512 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6513 WRITE(emess,*)'nl_get_auxinput11_begin_h: Out of range domain number: ',id_id
6514 CALL wrf_error_fatal(emess)
6515 ENDIF
6516 auxinput11_begin_h = model_config_rec%auxinput11_begin_h(id_id)
6517 RETURN
6518 END SUBROUTINE nl_get_auxinput11_begin_h
6519 SUBROUTINE nl_get_auxinput11_begin_m ( id_id , auxinput11_begin_m )
6520 integer , INTENT(OUT) :: auxinput11_begin_m
6521 INTEGER id_id
6522 CHARACTER*80 emess
6523 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6524 WRITE(emess,*)'nl_get_auxinput11_begin_m: Out of range domain number: ',id_id
6525 CALL wrf_error_fatal(emess)
6526 ENDIF
6527 auxinput11_begin_m = model_config_rec%auxinput11_begin_m(id_id)
6528 RETURN
6529 END SUBROUTINE nl_get_auxinput11_begin_m
6530 SUBROUTINE nl_get_auxinput11_begin_s ( id_id , auxinput11_begin_s )
6531 integer , INTENT(OUT) :: auxinput11_begin_s
6532 INTEGER id_id
6533 CHARACTER*80 emess
6534 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6535 WRITE(emess,*)'nl_get_auxinput11_begin_s: Out of range domain number: ',id_id
6536 CALL wrf_error_fatal(emess)
6537 ENDIF
6538 auxinput11_begin_s = model_config_rec%auxinput11_begin_s(id_id)
6539 RETURN
6540 END SUBROUTINE nl_get_auxinput11_begin_s
6541 SUBROUTINE nl_get_restart_begin_y ( id_id , restart_begin_y )
6542 integer , INTENT(OUT) :: restart_begin_y
6543 INTEGER id_id
6544 CHARACTER*80 emess
6545 IF ( id_id .NE. 1 ) THEN
6546 call wrf_debug(1,&
6547 'WARNING in nl_get_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
6548 ENDIF
6549 restart_begin_y = model_config_rec%restart_begin_y
6550 RETURN
6551 END SUBROUTINE nl_get_restart_begin_y
6552 SUBROUTINE nl_get_restart_begin_mo ( id_id , restart_begin_mo )
6553 integer , INTENT(OUT) :: restart_begin_mo
6554 INTEGER id_id
6555 CHARACTER*80 emess
6556 IF ( id_id .NE. 1 ) THEN
6557 call wrf_debug(1,&
6558 'WARNING in nl_get_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
6559 ENDIF
6560 restart_begin_mo = model_config_rec%restart_begin_mo
6561 RETURN
6562 END SUBROUTINE nl_get_restart_begin_mo
6563 SUBROUTINE nl_get_restart_begin_d ( id_id , restart_begin_d )
6564 integer , INTENT(OUT) :: restart_begin_d
6565 INTEGER id_id
6566 CHARACTER*80 emess
6567 IF ( id_id .NE. 1 ) THEN
6568 call wrf_debug(1,&
6569 'WARNING in nl_get_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
6570 ENDIF
6571 restart_begin_d = model_config_rec%restart_begin_d
6572 RETURN
6573 END SUBROUTINE nl_get_restart_begin_d
6574 SUBROUTINE nl_get_restart_begin_h ( id_id , restart_begin_h )
6575 integer , INTENT(OUT) :: restart_begin_h
6576 INTEGER id_id
6577 CHARACTER*80 emess
6578 IF ( id_id .NE. 1 ) THEN
6579 call wrf_debug(1,&
6580 'WARNING in nl_get_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
6581 ENDIF
6582 restart_begin_h = model_config_rec%restart_begin_h
6583 RETURN
6584 END SUBROUTINE nl_get_restart_begin_h
6585 SUBROUTINE nl_get_restart_begin_m ( id_id , restart_begin_m )
6586 integer , INTENT(OUT) :: restart_begin_m
6587 INTEGER id_id
6588 CHARACTER*80 emess
6589 IF ( id_id .NE. 1 ) THEN
6590 call wrf_debug(1,&
6591 'WARNING in nl_get_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
6592 ENDIF
6593 restart_begin_m = model_config_rec%restart_begin_m
6594 RETURN
6595 END SUBROUTINE nl_get_restart_begin_m
6596 SUBROUTINE nl_get_restart_begin_s ( id_id , restart_begin_s )
6597 integer , INTENT(OUT) :: restart_begin_s
6598 INTEGER id_id
6599 CHARACTER*80 emess
6600 IF ( id_id .NE. 1 ) THEN
6601 call wrf_debug(1,&
6602 'WARNING in nl_get_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
6603 ENDIF
6604 restart_begin_s = model_config_rec%restart_begin_s
6605 RETURN
6606 END SUBROUTINE nl_get_restart_begin_s
6607 SUBROUTINE nl_get_history_end_y ( id_id , history_end_y )
6608 integer , INTENT(OUT) :: history_end_y
6609 INTEGER id_id
6610 CHARACTER*80 emess
6611 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6612 WRITE(emess,*)'nl_get_history_end_y: Out of range domain number: ',id_id
6613 CALL wrf_error_fatal(emess)
6614 ENDIF
6615 history_end_y = model_config_rec%history_end_y(id_id)
6616 RETURN
6617 END SUBROUTINE nl_get_history_end_y
6618 SUBROUTINE nl_get_history_end_mo ( id_id , history_end_mo )
6619 integer , INTENT(OUT) :: history_end_mo
6620 INTEGER id_id
6621 CHARACTER*80 emess
6622 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6623 WRITE(emess,*)'nl_get_history_end_mo: Out of range domain number: ',id_id
6624 CALL wrf_error_fatal(emess)
6625 ENDIF
6626 history_end_mo = model_config_rec%history_end_mo(id_id)
6627 RETURN
6628 END SUBROUTINE nl_get_history_end_mo
6629 SUBROUTINE nl_get_history_end_d ( id_id , history_end_d )
6630 integer , INTENT(OUT) :: history_end_d
6631 INTEGER id_id
6632 CHARACTER*80 emess
6633 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6634 WRITE(emess,*)'nl_get_history_end_d: Out of range domain number: ',id_id
6635 CALL wrf_error_fatal(emess)
6636 ENDIF
6637 history_end_d = model_config_rec%history_end_d(id_id)
6638 RETURN
6639 END SUBROUTINE nl_get_history_end_d
6640 SUBROUTINE nl_get_history_end_h ( id_id , history_end_h )
6641 integer , INTENT(OUT) :: history_end_h
6642 INTEGER id_id
6643 CHARACTER*80 emess
6644 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6645 WRITE(emess,*)'nl_get_history_end_h: Out of range domain number: ',id_id
6646 CALL wrf_error_fatal(emess)
6647 ENDIF
6648 history_end_h = model_config_rec%history_end_h(id_id)
6649 RETURN
6650 END SUBROUTINE nl_get_history_end_h
6651 SUBROUTINE nl_get_history_end_m ( id_id , history_end_m )
6652 integer , INTENT(OUT) :: history_end_m
6653 INTEGER id_id
6654 CHARACTER*80 emess
6655 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6656 WRITE(emess,*)'nl_get_history_end_m: Out of range domain number: ',id_id
6657 CALL wrf_error_fatal(emess)
6658 ENDIF
6659 history_end_m = model_config_rec%history_end_m(id_id)
6660 RETURN
6661 END SUBROUTINE nl_get_history_end_m
6662 SUBROUTINE nl_get_history_end_s ( id_id , history_end_s )
6663 integer , INTENT(OUT) :: history_end_s
6664 INTEGER id_id
6665 CHARACTER*80 emess
6666 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6667 WRITE(emess,*)'nl_get_history_end_s: Out of range domain number: ',id_id
6668 CALL wrf_error_fatal(emess)
6669 ENDIF
6670 history_end_s = model_config_rec%history_end_s(id_id)
6671 RETURN
6672 END SUBROUTINE nl_get_history_end_s
6673 SUBROUTINE nl_get_inputout_end_y ( id_id , inputout_end_y )
6674 integer , INTENT(OUT) :: inputout_end_y
6675 INTEGER id_id
6676 CHARACTER*80 emess
6677 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6678 WRITE(emess,*)'nl_get_inputout_end_y: Out of range domain number: ',id_id
6679 CALL wrf_error_fatal(emess)
6680 ENDIF
6681 inputout_end_y = model_config_rec%inputout_end_y(id_id)
6682 RETURN
6683 END SUBROUTINE nl_get_inputout_end_y
6684 SUBROUTINE nl_get_inputout_end_mo ( id_id , inputout_end_mo )
6685 integer , INTENT(OUT) :: inputout_end_mo
6686 INTEGER id_id
6687 CHARACTER*80 emess
6688 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6689 WRITE(emess,*)'nl_get_inputout_end_mo: Out of range domain number: ',id_id
6690 CALL wrf_error_fatal(emess)
6691 ENDIF
6692 inputout_end_mo = model_config_rec%inputout_end_mo(id_id)
6693 RETURN
6694 END SUBROUTINE nl_get_inputout_end_mo
6695 SUBROUTINE nl_get_inputout_end_d ( id_id , inputout_end_d )
6696 integer , INTENT(OUT) :: inputout_end_d
6697 INTEGER id_id
6698 CHARACTER*80 emess
6699 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6700 WRITE(emess,*)'nl_get_inputout_end_d: Out of range domain number: ',id_id
6701 CALL wrf_error_fatal(emess)
6702 ENDIF
6703 inputout_end_d = model_config_rec%inputout_end_d(id_id)
6704 RETURN
6705 END SUBROUTINE nl_get_inputout_end_d
6706 SUBROUTINE nl_get_inputout_end_h ( id_id , inputout_end_h )
6707 integer , INTENT(OUT) :: inputout_end_h
6708 INTEGER id_id
6709 CHARACTER*80 emess
6710 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6711 WRITE(emess,*)'nl_get_inputout_end_h: Out of range domain number: ',id_id
6712 CALL wrf_error_fatal(emess)
6713 ENDIF
6714 inputout_end_h = model_config_rec%inputout_end_h(id_id)
6715 RETURN
6716 END SUBROUTINE nl_get_inputout_end_h
6717 SUBROUTINE nl_get_inputout_end_m ( id_id , inputout_end_m )
6718 integer , INTENT(OUT) :: inputout_end_m
6719 INTEGER id_id
6720 CHARACTER*80 emess
6721 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6722 WRITE(emess,*)'nl_get_inputout_end_m: Out of range domain number: ',id_id
6723 CALL wrf_error_fatal(emess)
6724 ENDIF
6725 inputout_end_m = model_config_rec%inputout_end_m(id_id)
6726 RETURN
6727 END SUBROUTINE nl_get_inputout_end_m
6728 SUBROUTINE nl_get_inputout_end_s ( id_id , inputout_end_s )
6729 integer , INTENT(OUT) :: inputout_end_s
6730 INTEGER id_id
6731 CHARACTER*80 emess
6732 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6733 WRITE(emess,*)'nl_get_inputout_end_s: Out of range domain number: ',id_id
6734 CALL wrf_error_fatal(emess)
6735 ENDIF
6736 inputout_end_s = model_config_rec%inputout_end_s(id_id)
6737 RETURN
6738 END SUBROUTINE nl_get_inputout_end_s
6739 SUBROUTINE nl_get_auxhist1_end_y ( id_id , auxhist1_end_y )
6740 integer , INTENT(OUT) :: auxhist1_end_y
6741 INTEGER id_id
6742 CHARACTER*80 emess
6743 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6744 WRITE(emess,*)'nl_get_auxhist1_end_y: Out of range domain number: ',id_id
6745 CALL wrf_error_fatal(emess)
6746 ENDIF
6747 auxhist1_end_y = model_config_rec%auxhist1_end_y(id_id)
6748 RETURN
6749 END SUBROUTINE nl_get_auxhist1_end_y
6750 SUBROUTINE nl_get_auxhist1_end_mo ( id_id , auxhist1_end_mo )
6751 integer , INTENT(OUT) :: auxhist1_end_mo
6752 INTEGER id_id
6753 CHARACTER*80 emess
6754 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6755 WRITE(emess,*)'nl_get_auxhist1_end_mo: Out of range domain number: ',id_id
6756 CALL wrf_error_fatal(emess)
6757 ENDIF
6758 auxhist1_end_mo = model_config_rec%auxhist1_end_mo(id_id)
6759 RETURN
6760 END SUBROUTINE nl_get_auxhist1_end_mo
6761 SUBROUTINE nl_get_auxhist1_end_d ( id_id , auxhist1_end_d )
6762 integer , INTENT(OUT) :: auxhist1_end_d
6763 INTEGER id_id
6764 CHARACTER*80 emess
6765 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6766 WRITE(emess,*)'nl_get_auxhist1_end_d: Out of range domain number: ',id_id
6767 CALL wrf_error_fatal(emess)
6768 ENDIF
6769 auxhist1_end_d = model_config_rec%auxhist1_end_d(id_id)
6770 RETURN
6771 END SUBROUTINE nl_get_auxhist1_end_d
6772 SUBROUTINE nl_get_auxhist1_end_h ( id_id , auxhist1_end_h )
6773 integer , INTENT(OUT) :: auxhist1_end_h
6774 INTEGER id_id
6775 CHARACTER*80 emess
6776 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6777 WRITE(emess,*)'nl_get_auxhist1_end_h: Out of range domain number: ',id_id
6778 CALL wrf_error_fatal(emess)
6779 ENDIF
6780 auxhist1_end_h = model_config_rec%auxhist1_end_h(id_id)
6781 RETURN
6782 END SUBROUTINE nl_get_auxhist1_end_h
6783 SUBROUTINE nl_get_auxhist1_end_m ( id_id , auxhist1_end_m )
6784 integer , INTENT(OUT) :: auxhist1_end_m
6785 INTEGER id_id
6786 CHARACTER*80 emess
6787 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6788 WRITE(emess,*)'nl_get_auxhist1_end_m: Out of range domain number: ',id_id
6789 CALL wrf_error_fatal(emess)
6790 ENDIF
6791 auxhist1_end_m = model_config_rec%auxhist1_end_m(id_id)
6792 RETURN
6793 END SUBROUTINE nl_get_auxhist1_end_m
6794 SUBROUTINE nl_get_auxhist1_end_s ( id_id , auxhist1_end_s )
6795 integer , INTENT(OUT) :: auxhist1_end_s
6796 INTEGER id_id
6797 CHARACTER*80 emess
6798 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6799 WRITE(emess,*)'nl_get_auxhist1_end_s: Out of range domain number: ',id_id
6800 CALL wrf_error_fatal(emess)
6801 ENDIF
6802 auxhist1_end_s = model_config_rec%auxhist1_end_s(id_id)
6803 RETURN
6804 END SUBROUTINE nl_get_auxhist1_end_s
6805 SUBROUTINE nl_get_auxhist2_end_y ( id_id , auxhist2_end_y )
6806 integer , INTENT(OUT) :: auxhist2_end_y
6807 INTEGER id_id
6808 CHARACTER*80 emess
6809 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6810 WRITE(emess,*)'nl_get_auxhist2_end_y: Out of range domain number: ',id_id
6811 CALL wrf_error_fatal(emess)
6812 ENDIF
6813 auxhist2_end_y = model_config_rec%auxhist2_end_y(id_id)
6814 RETURN
6815 END SUBROUTINE nl_get_auxhist2_end_y
6816 SUBROUTINE nl_get_auxhist2_end_mo ( id_id , auxhist2_end_mo )
6817 integer , INTENT(OUT) :: auxhist2_end_mo
6818 INTEGER id_id
6819 CHARACTER*80 emess
6820 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6821 WRITE(emess,*)'nl_get_auxhist2_end_mo: Out of range domain number: ',id_id
6822 CALL wrf_error_fatal(emess)
6823 ENDIF
6824 auxhist2_end_mo = model_config_rec%auxhist2_end_mo(id_id)
6825 RETURN
6826 END SUBROUTINE nl_get_auxhist2_end_mo
6827 SUBROUTINE nl_get_auxhist2_end_d ( id_id , auxhist2_end_d )
6828 integer , INTENT(OUT) :: auxhist2_end_d
6829 INTEGER id_id
6830 CHARACTER*80 emess
6831 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6832 WRITE(emess,*)'nl_get_auxhist2_end_d: Out of range domain number: ',id_id
6833 CALL wrf_error_fatal(emess)
6834 ENDIF
6835 auxhist2_end_d = model_config_rec%auxhist2_end_d(id_id)
6836 RETURN
6837 END SUBROUTINE nl_get_auxhist2_end_d
6838 SUBROUTINE nl_get_auxhist2_end_h ( id_id , auxhist2_end_h )
6839 integer , INTENT(OUT) :: auxhist2_end_h
6840 INTEGER id_id
6841 CHARACTER*80 emess
6842 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6843 WRITE(emess,*)'nl_get_auxhist2_end_h: Out of range domain number: ',id_id
6844 CALL wrf_error_fatal(emess)
6845 ENDIF
6846 auxhist2_end_h = model_config_rec%auxhist2_end_h(id_id)
6847 RETURN
6848 END SUBROUTINE nl_get_auxhist2_end_h
6849 SUBROUTINE nl_get_auxhist2_end_m ( id_id , auxhist2_end_m )
6850 integer , INTENT(OUT) :: auxhist2_end_m
6851 INTEGER id_id
6852 CHARACTER*80 emess
6853 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6854 WRITE(emess,*)'nl_get_auxhist2_end_m: Out of range domain number: ',id_id
6855 CALL wrf_error_fatal(emess)
6856 ENDIF
6857 auxhist2_end_m = model_config_rec%auxhist2_end_m(id_id)
6858 RETURN
6859 END SUBROUTINE nl_get_auxhist2_end_m
6860 SUBROUTINE nl_get_auxhist2_end_s ( id_id , auxhist2_end_s )
6861 integer , INTENT(OUT) :: auxhist2_end_s
6862 INTEGER id_id
6863 CHARACTER*80 emess
6864 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6865 WRITE(emess,*)'nl_get_auxhist2_end_s: Out of range domain number: ',id_id
6866 CALL wrf_error_fatal(emess)
6867 ENDIF
6868 auxhist2_end_s = model_config_rec%auxhist2_end_s(id_id)
6869 RETURN
6870 END SUBROUTINE nl_get_auxhist2_end_s
6871 SUBROUTINE nl_get_auxhist3_end_y ( id_id , auxhist3_end_y )
6872 integer , INTENT(OUT) :: auxhist3_end_y
6873 INTEGER id_id
6874 CHARACTER*80 emess
6875 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6876 WRITE(emess,*)'nl_get_auxhist3_end_y: Out of range domain number: ',id_id
6877 CALL wrf_error_fatal(emess)
6878 ENDIF
6879 auxhist3_end_y = model_config_rec%auxhist3_end_y(id_id)
6880 RETURN
6881 END SUBROUTINE nl_get_auxhist3_end_y
6882 SUBROUTINE nl_get_auxhist3_end_mo ( id_id , auxhist3_end_mo )
6883 integer , INTENT(OUT) :: auxhist3_end_mo
6884 INTEGER id_id
6885 CHARACTER*80 emess
6886 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6887 WRITE(emess,*)'nl_get_auxhist3_end_mo: Out of range domain number: ',id_id
6888 CALL wrf_error_fatal(emess)
6889 ENDIF
6890 auxhist3_end_mo = model_config_rec%auxhist3_end_mo(id_id)
6891 RETURN
6892 END SUBROUTINE nl_get_auxhist3_end_mo
6893 SUBROUTINE nl_get_auxhist3_end_d ( id_id , auxhist3_end_d )
6894 integer , INTENT(OUT) :: auxhist3_end_d
6895 INTEGER id_id
6896 CHARACTER*80 emess
6897 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6898 WRITE(emess,*)'nl_get_auxhist3_end_d: Out of range domain number: ',id_id
6899 CALL wrf_error_fatal(emess)
6900 ENDIF
6901 auxhist3_end_d = model_config_rec%auxhist3_end_d(id_id)
6902 RETURN
6903 END SUBROUTINE nl_get_auxhist3_end_d
6904 SUBROUTINE nl_get_auxhist3_end_h ( id_id , auxhist3_end_h )
6905 integer , INTENT(OUT) :: auxhist3_end_h
6906 INTEGER id_id
6907 CHARACTER*80 emess
6908 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6909 WRITE(emess,*)'nl_get_auxhist3_end_h: Out of range domain number: ',id_id
6910 CALL wrf_error_fatal(emess)
6911 ENDIF
6912 auxhist3_end_h = model_config_rec%auxhist3_end_h(id_id)
6913 RETURN
6914 END SUBROUTINE nl_get_auxhist3_end_h
6915 SUBROUTINE nl_get_auxhist3_end_m ( id_id , auxhist3_end_m )
6916 integer , INTENT(OUT) :: auxhist3_end_m
6917 INTEGER id_id
6918 CHARACTER*80 emess
6919 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6920 WRITE(emess,*)'nl_get_auxhist3_end_m: Out of range domain number: ',id_id
6921 CALL wrf_error_fatal(emess)
6922 ENDIF
6923 auxhist3_end_m = model_config_rec%auxhist3_end_m(id_id)
6924 RETURN
6925 END SUBROUTINE nl_get_auxhist3_end_m
6926 SUBROUTINE nl_get_auxhist3_end_s ( id_id , auxhist3_end_s )
6927 integer , INTENT(OUT) :: auxhist3_end_s
6928 INTEGER id_id
6929 CHARACTER*80 emess
6930 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6931 WRITE(emess,*)'nl_get_auxhist3_end_s: Out of range domain number: ',id_id
6932 CALL wrf_error_fatal(emess)
6933 ENDIF
6934 auxhist3_end_s = model_config_rec%auxhist3_end_s(id_id)
6935 RETURN
6936 END SUBROUTINE nl_get_auxhist3_end_s
6937 SUBROUTINE nl_get_auxhist4_end_y ( id_id , auxhist4_end_y )
6938 integer , INTENT(OUT) :: auxhist4_end_y
6939 INTEGER id_id
6940 CHARACTER*80 emess
6941 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6942 WRITE(emess,*)'nl_get_auxhist4_end_y: Out of range domain number: ',id_id
6943 CALL wrf_error_fatal(emess)
6944 ENDIF
6945 auxhist4_end_y = model_config_rec%auxhist4_end_y(id_id)
6946 RETURN
6947 END SUBROUTINE nl_get_auxhist4_end_y
6948 SUBROUTINE nl_get_auxhist4_end_mo ( id_id , auxhist4_end_mo )
6949 integer , INTENT(OUT) :: auxhist4_end_mo
6950 INTEGER id_id
6951 CHARACTER*80 emess
6952 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6953 WRITE(emess,*)'nl_get_auxhist4_end_mo: Out of range domain number: ',id_id
6954 CALL wrf_error_fatal(emess)
6955 ENDIF
6956 auxhist4_end_mo = model_config_rec%auxhist4_end_mo(id_id)
6957 RETURN
6958 END SUBROUTINE nl_get_auxhist4_end_mo
6959 SUBROUTINE nl_get_auxhist4_end_d ( id_id , auxhist4_end_d )
6960 integer , INTENT(OUT) :: auxhist4_end_d
6961 INTEGER id_id
6962 CHARACTER*80 emess
6963 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6964 WRITE(emess,*)'nl_get_auxhist4_end_d: Out of range domain number: ',id_id
6965 CALL wrf_error_fatal(emess)
6966 ENDIF
6967 auxhist4_end_d = model_config_rec%auxhist4_end_d(id_id)
6968 RETURN
6969 END SUBROUTINE nl_get_auxhist4_end_d
6970 SUBROUTINE nl_get_auxhist4_end_h ( id_id , auxhist4_end_h )
6971 integer , INTENT(OUT) :: auxhist4_end_h
6972 INTEGER id_id
6973 CHARACTER*80 emess
6974 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6975 WRITE(emess,*)'nl_get_auxhist4_end_h: Out of range domain number: ',id_id
6976 CALL wrf_error_fatal(emess)
6977 ENDIF
6978 auxhist4_end_h = model_config_rec%auxhist4_end_h(id_id)
6979 RETURN
6980 END SUBROUTINE nl_get_auxhist4_end_h
6981 SUBROUTINE nl_get_auxhist4_end_m ( id_id , auxhist4_end_m )
6982 integer , INTENT(OUT) :: auxhist4_end_m
6983 INTEGER id_id
6984 CHARACTER*80 emess
6985 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6986 WRITE(emess,*)'nl_get_auxhist4_end_m: Out of range domain number: ',id_id
6987 CALL wrf_error_fatal(emess)
6988 ENDIF
6989 auxhist4_end_m = model_config_rec%auxhist4_end_m(id_id)
6990 RETURN
6991 END SUBROUTINE nl_get_auxhist4_end_m
6992 SUBROUTINE nl_get_auxhist4_end_s ( id_id , auxhist4_end_s )
6993 integer , INTENT(OUT) :: auxhist4_end_s
6994 INTEGER id_id
6995 CHARACTER*80 emess
6996 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
6997 WRITE(emess,*)'nl_get_auxhist4_end_s: Out of range domain number: ',id_id
6998 CALL wrf_error_fatal(emess)
6999 ENDIF
7000 auxhist4_end_s = model_config_rec%auxhist4_end_s(id_id)
7001 RETURN
7002 END SUBROUTINE nl_get_auxhist4_end_s
7003 SUBROUTINE nl_get_auxhist5_end_y ( id_id , auxhist5_end_y )
7004 integer , INTENT(OUT) :: auxhist5_end_y
7005 INTEGER id_id
7006 CHARACTER*80 emess
7007 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7008 WRITE(emess,*)'nl_get_auxhist5_end_y: Out of range domain number: ',id_id
7009 CALL wrf_error_fatal(emess)
7010 ENDIF
7011 auxhist5_end_y = model_config_rec%auxhist5_end_y(id_id)
7012 RETURN
7013 END SUBROUTINE nl_get_auxhist5_end_y
7014 SUBROUTINE nl_get_auxhist5_end_mo ( id_id , auxhist5_end_mo )
7015 integer , INTENT(OUT) :: auxhist5_end_mo
7016 INTEGER id_id
7017 CHARACTER*80 emess
7018 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7019 WRITE(emess,*)'nl_get_auxhist5_end_mo: Out of range domain number: ',id_id
7020 CALL wrf_error_fatal(emess)
7021 ENDIF
7022 auxhist5_end_mo = model_config_rec%auxhist5_end_mo(id_id)
7023 RETURN
7024 END SUBROUTINE nl_get_auxhist5_end_mo
7025 SUBROUTINE nl_get_auxhist5_end_d ( id_id , auxhist5_end_d )
7026 integer , INTENT(OUT) :: auxhist5_end_d
7027 INTEGER id_id
7028 CHARACTER*80 emess
7029 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7030 WRITE(emess,*)'nl_get_auxhist5_end_d: Out of range domain number: ',id_id
7031 CALL wrf_error_fatal(emess)
7032 ENDIF
7033 auxhist5_end_d = model_config_rec%auxhist5_end_d(id_id)
7034 RETURN
7035 END SUBROUTINE nl_get_auxhist5_end_d
7036 SUBROUTINE nl_get_auxhist5_end_h ( id_id , auxhist5_end_h )
7037 integer , INTENT(OUT) :: auxhist5_end_h
7038 INTEGER id_id
7039 CHARACTER*80 emess
7040 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7041 WRITE(emess,*)'nl_get_auxhist5_end_h: Out of range domain number: ',id_id
7042 CALL wrf_error_fatal(emess)
7043 ENDIF
7044 auxhist5_end_h = model_config_rec%auxhist5_end_h(id_id)
7045 RETURN
7046 END SUBROUTINE nl_get_auxhist5_end_h
7047 SUBROUTINE nl_get_auxhist5_end_m ( id_id , auxhist5_end_m )
7048 integer , INTENT(OUT) :: auxhist5_end_m
7049 INTEGER id_id
7050 CHARACTER*80 emess
7051 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7052 WRITE(emess,*)'nl_get_auxhist5_end_m: Out of range domain number: ',id_id
7053 CALL wrf_error_fatal(emess)
7054 ENDIF
7055 auxhist5_end_m = model_config_rec%auxhist5_end_m(id_id)
7056 RETURN
7057 END SUBROUTINE nl_get_auxhist5_end_m
7058 SUBROUTINE nl_get_auxhist5_end_s ( id_id , auxhist5_end_s )
7059 integer , INTENT(OUT) :: auxhist5_end_s
7060 INTEGER id_id
7061 CHARACTER*80 emess
7062 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7063 WRITE(emess,*)'nl_get_auxhist5_end_s: Out of range domain number: ',id_id
7064 CALL wrf_error_fatal(emess)
7065 ENDIF
7066 auxhist5_end_s = model_config_rec%auxhist5_end_s(id_id)
7067 RETURN
7068 END SUBROUTINE nl_get_auxhist5_end_s
7069 SUBROUTINE nl_get_auxhist6_end_y ( id_id , auxhist6_end_y )
7070 integer , INTENT(OUT) :: auxhist6_end_y
7071 INTEGER id_id
7072 CHARACTER*80 emess
7073 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7074 WRITE(emess,*)'nl_get_auxhist6_end_y: Out of range domain number: ',id_id
7075 CALL wrf_error_fatal(emess)
7076 ENDIF
7077 auxhist6_end_y = model_config_rec%auxhist6_end_y(id_id)
7078 RETURN
7079 END SUBROUTINE nl_get_auxhist6_end_y
7080 SUBROUTINE nl_get_auxhist6_end_mo ( id_id , auxhist6_end_mo )
7081 integer , INTENT(OUT) :: auxhist6_end_mo
7082 INTEGER id_id
7083 CHARACTER*80 emess
7084 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7085 WRITE(emess,*)'nl_get_auxhist6_end_mo: Out of range domain number: ',id_id
7086 CALL wrf_error_fatal(emess)
7087 ENDIF
7088 auxhist6_end_mo = model_config_rec%auxhist6_end_mo(id_id)
7089 RETURN
7090 END SUBROUTINE nl_get_auxhist6_end_mo
7091 SUBROUTINE nl_get_auxhist6_end_d ( id_id , auxhist6_end_d )
7092 integer , INTENT(OUT) :: auxhist6_end_d
7093 INTEGER id_id
7094 CHARACTER*80 emess
7095 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7096 WRITE(emess,*)'nl_get_auxhist6_end_d: Out of range domain number: ',id_id
7097 CALL wrf_error_fatal(emess)
7098 ENDIF
7099 auxhist6_end_d = model_config_rec%auxhist6_end_d(id_id)
7100 RETURN
7101 END SUBROUTINE nl_get_auxhist6_end_d
7102 SUBROUTINE nl_get_auxhist6_end_h ( id_id , auxhist6_end_h )
7103 integer , INTENT(OUT) :: auxhist6_end_h
7104 INTEGER id_id
7105 CHARACTER*80 emess
7106 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7107 WRITE(emess,*)'nl_get_auxhist6_end_h: Out of range domain number: ',id_id
7108 CALL wrf_error_fatal(emess)
7109 ENDIF
7110 auxhist6_end_h = model_config_rec%auxhist6_end_h(id_id)
7111 RETURN
7112 END SUBROUTINE nl_get_auxhist6_end_h
7113 SUBROUTINE nl_get_auxhist6_end_m ( id_id , auxhist6_end_m )
7114 integer , INTENT(OUT) :: auxhist6_end_m
7115 INTEGER id_id
7116 CHARACTER*80 emess
7117 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7118 WRITE(emess,*)'nl_get_auxhist6_end_m: Out of range domain number: ',id_id
7119 CALL wrf_error_fatal(emess)
7120 ENDIF
7121 auxhist6_end_m = model_config_rec%auxhist6_end_m(id_id)
7122 RETURN
7123 END SUBROUTINE nl_get_auxhist6_end_m
7124 SUBROUTINE nl_get_auxhist6_end_s ( id_id , auxhist6_end_s )
7125 integer , INTENT(OUT) :: auxhist6_end_s
7126 INTEGER id_id
7127 CHARACTER*80 emess
7128 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7129 WRITE(emess,*)'nl_get_auxhist6_end_s: Out of range domain number: ',id_id
7130 CALL wrf_error_fatal(emess)
7131 ENDIF
7132 auxhist6_end_s = model_config_rec%auxhist6_end_s(id_id)
7133 RETURN
7134 END SUBROUTINE nl_get_auxhist6_end_s
7135 SUBROUTINE nl_get_auxhist7_end_y ( id_id , auxhist7_end_y )
7136 integer , INTENT(OUT) :: auxhist7_end_y
7137 INTEGER id_id
7138 CHARACTER*80 emess
7139 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7140 WRITE(emess,*)'nl_get_auxhist7_end_y: Out of range domain number: ',id_id
7141 CALL wrf_error_fatal(emess)
7142 ENDIF
7143 auxhist7_end_y = model_config_rec%auxhist7_end_y(id_id)
7144 RETURN
7145 END SUBROUTINE nl_get_auxhist7_end_y
7146 SUBROUTINE nl_get_auxhist7_end_mo ( id_id , auxhist7_end_mo )
7147 integer , INTENT(OUT) :: auxhist7_end_mo
7148 INTEGER id_id
7149 CHARACTER*80 emess
7150 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7151 WRITE(emess,*)'nl_get_auxhist7_end_mo: Out of range domain number: ',id_id
7152 CALL wrf_error_fatal(emess)
7153 ENDIF
7154 auxhist7_end_mo = model_config_rec%auxhist7_end_mo(id_id)
7155 RETURN
7156 END SUBROUTINE nl_get_auxhist7_end_mo
7157 SUBROUTINE nl_get_auxhist7_end_d ( id_id , auxhist7_end_d )
7158 integer , INTENT(OUT) :: auxhist7_end_d
7159 INTEGER id_id
7160 CHARACTER*80 emess
7161 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7162 WRITE(emess,*)'nl_get_auxhist7_end_d: Out of range domain number: ',id_id
7163 CALL wrf_error_fatal(emess)
7164 ENDIF
7165 auxhist7_end_d = model_config_rec%auxhist7_end_d(id_id)
7166 RETURN
7167 END SUBROUTINE nl_get_auxhist7_end_d
7168 SUBROUTINE nl_get_auxhist7_end_h ( id_id , auxhist7_end_h )
7169 integer , INTENT(OUT) :: auxhist7_end_h
7170 INTEGER id_id
7171 CHARACTER*80 emess
7172 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7173 WRITE(emess,*)'nl_get_auxhist7_end_h: Out of range domain number: ',id_id
7174 CALL wrf_error_fatal(emess)
7175 ENDIF
7176 auxhist7_end_h = model_config_rec%auxhist7_end_h(id_id)
7177 RETURN
7178 END SUBROUTINE nl_get_auxhist7_end_h
7179 SUBROUTINE nl_get_auxhist7_end_m ( id_id , auxhist7_end_m )
7180 integer , INTENT(OUT) :: auxhist7_end_m
7181 INTEGER id_id
7182 CHARACTER*80 emess
7183 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7184 WRITE(emess,*)'nl_get_auxhist7_end_m: Out of range domain number: ',id_id
7185 CALL wrf_error_fatal(emess)
7186 ENDIF
7187 auxhist7_end_m = model_config_rec%auxhist7_end_m(id_id)
7188 RETURN
7189 END SUBROUTINE nl_get_auxhist7_end_m
7190 SUBROUTINE nl_get_auxhist7_end_s ( id_id , auxhist7_end_s )
7191 integer , INTENT(OUT) :: auxhist7_end_s
7192 INTEGER id_id
7193 CHARACTER*80 emess
7194 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7195 WRITE(emess,*)'nl_get_auxhist7_end_s: Out of range domain number: ',id_id
7196 CALL wrf_error_fatal(emess)
7197 ENDIF
7198 auxhist7_end_s = model_config_rec%auxhist7_end_s(id_id)
7199 RETURN
7200 END SUBROUTINE nl_get_auxhist7_end_s
7201 SUBROUTINE nl_get_auxhist8_end_y ( id_id , auxhist8_end_y )
7202 integer , INTENT(OUT) :: auxhist8_end_y
7203 INTEGER id_id
7204 CHARACTER*80 emess
7205 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7206 WRITE(emess,*)'nl_get_auxhist8_end_y: Out of range domain number: ',id_id
7207 CALL wrf_error_fatal(emess)
7208 ENDIF
7209 auxhist8_end_y = model_config_rec%auxhist8_end_y(id_id)
7210 RETURN
7211 END SUBROUTINE nl_get_auxhist8_end_y
7212 SUBROUTINE nl_get_auxhist8_end_mo ( id_id , auxhist8_end_mo )
7213 integer , INTENT(OUT) :: auxhist8_end_mo
7214 INTEGER id_id
7215 CHARACTER*80 emess
7216 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7217 WRITE(emess,*)'nl_get_auxhist8_end_mo: Out of range domain number: ',id_id
7218 CALL wrf_error_fatal(emess)
7219 ENDIF
7220 auxhist8_end_mo = model_config_rec%auxhist8_end_mo(id_id)
7221 RETURN
7222 END SUBROUTINE nl_get_auxhist8_end_mo
7223 SUBROUTINE nl_get_auxhist8_end_d ( id_id , auxhist8_end_d )
7224 integer , INTENT(OUT) :: auxhist8_end_d
7225 INTEGER id_id
7226 CHARACTER*80 emess
7227 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7228 WRITE(emess,*)'nl_get_auxhist8_end_d: Out of range domain number: ',id_id
7229 CALL wrf_error_fatal(emess)
7230 ENDIF
7231 auxhist8_end_d = model_config_rec%auxhist8_end_d(id_id)
7232 RETURN
7233 END SUBROUTINE nl_get_auxhist8_end_d
7234 SUBROUTINE nl_get_auxhist8_end_h ( id_id , auxhist8_end_h )
7235 integer , INTENT(OUT) :: auxhist8_end_h
7236 INTEGER id_id
7237 CHARACTER*80 emess
7238 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7239 WRITE(emess,*)'nl_get_auxhist8_end_h: Out of range domain number: ',id_id
7240 CALL wrf_error_fatal(emess)
7241 ENDIF
7242 auxhist8_end_h = model_config_rec%auxhist8_end_h(id_id)
7243 RETURN
7244 END SUBROUTINE nl_get_auxhist8_end_h
7245 SUBROUTINE nl_get_auxhist8_end_m ( id_id , auxhist8_end_m )
7246 integer , INTENT(OUT) :: auxhist8_end_m
7247 INTEGER id_id
7248 CHARACTER*80 emess
7249 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7250 WRITE(emess,*)'nl_get_auxhist8_end_m: Out of range domain number: ',id_id
7251 CALL wrf_error_fatal(emess)
7252 ENDIF
7253 auxhist8_end_m = model_config_rec%auxhist8_end_m(id_id)
7254 RETURN
7255 END SUBROUTINE nl_get_auxhist8_end_m
7256 SUBROUTINE nl_get_auxhist8_end_s ( id_id , auxhist8_end_s )
7257 integer , INTENT(OUT) :: auxhist8_end_s
7258 INTEGER id_id
7259 CHARACTER*80 emess
7260 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7261 WRITE(emess,*)'nl_get_auxhist8_end_s: Out of range domain number: ',id_id
7262 CALL wrf_error_fatal(emess)
7263 ENDIF
7264 auxhist8_end_s = model_config_rec%auxhist8_end_s(id_id)
7265 RETURN
7266 END SUBROUTINE nl_get_auxhist8_end_s
7267 SUBROUTINE nl_get_auxhist9_end_y ( id_id , auxhist9_end_y )
7268 integer , INTENT(OUT) :: auxhist9_end_y
7269 INTEGER id_id
7270 CHARACTER*80 emess
7271 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7272 WRITE(emess,*)'nl_get_auxhist9_end_y: Out of range domain number: ',id_id
7273 CALL wrf_error_fatal(emess)
7274 ENDIF
7275 auxhist9_end_y = model_config_rec%auxhist9_end_y(id_id)
7276 RETURN
7277 END SUBROUTINE nl_get_auxhist9_end_y
7278 SUBROUTINE nl_get_auxhist9_end_mo ( id_id , auxhist9_end_mo )
7279 integer , INTENT(OUT) :: auxhist9_end_mo
7280 INTEGER id_id
7281 CHARACTER*80 emess
7282 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7283 WRITE(emess,*)'nl_get_auxhist9_end_mo: Out of range domain number: ',id_id
7284 CALL wrf_error_fatal(emess)
7285 ENDIF
7286 auxhist9_end_mo = model_config_rec%auxhist9_end_mo(id_id)
7287 RETURN
7288 END SUBROUTINE nl_get_auxhist9_end_mo
7289 SUBROUTINE nl_get_auxhist9_end_d ( id_id , auxhist9_end_d )
7290 integer , INTENT(OUT) :: auxhist9_end_d
7291 INTEGER id_id
7292 CHARACTER*80 emess
7293 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7294 WRITE(emess,*)'nl_get_auxhist9_end_d: Out of range domain number: ',id_id
7295 CALL wrf_error_fatal(emess)
7296 ENDIF
7297 auxhist9_end_d = model_config_rec%auxhist9_end_d(id_id)
7298 RETURN
7299 END SUBROUTINE nl_get_auxhist9_end_d
7300 SUBROUTINE nl_get_auxhist9_end_h ( id_id , auxhist9_end_h )
7301 integer , INTENT(OUT) :: auxhist9_end_h
7302 INTEGER id_id
7303 CHARACTER*80 emess
7304 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7305 WRITE(emess,*)'nl_get_auxhist9_end_h: Out of range domain number: ',id_id
7306 CALL wrf_error_fatal(emess)
7307 ENDIF
7308 auxhist9_end_h = model_config_rec%auxhist9_end_h(id_id)
7309 RETURN
7310 END SUBROUTINE nl_get_auxhist9_end_h
7311 SUBROUTINE nl_get_auxhist9_end_m ( id_id , auxhist9_end_m )
7312 integer , INTENT(OUT) :: auxhist9_end_m
7313 INTEGER id_id
7314 CHARACTER*80 emess
7315 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7316 WRITE(emess,*)'nl_get_auxhist9_end_m: Out of range domain number: ',id_id
7317 CALL wrf_error_fatal(emess)
7318 ENDIF
7319 auxhist9_end_m = model_config_rec%auxhist9_end_m(id_id)
7320 RETURN
7321 END SUBROUTINE nl_get_auxhist9_end_m
7322 SUBROUTINE nl_get_auxhist9_end_s ( id_id , auxhist9_end_s )
7323 integer , INTENT(OUT) :: auxhist9_end_s
7324 INTEGER id_id
7325 CHARACTER*80 emess
7326 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7327 WRITE(emess,*)'nl_get_auxhist9_end_s: Out of range domain number: ',id_id
7328 CALL wrf_error_fatal(emess)
7329 ENDIF
7330 auxhist9_end_s = model_config_rec%auxhist9_end_s(id_id)
7331 RETURN
7332 END SUBROUTINE nl_get_auxhist9_end_s
7333 SUBROUTINE nl_get_auxhist10_end_y ( id_id , auxhist10_end_y )
7334 integer , INTENT(OUT) :: auxhist10_end_y
7335 INTEGER id_id
7336 CHARACTER*80 emess
7337 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7338 WRITE(emess,*)'nl_get_auxhist10_end_y: Out of range domain number: ',id_id
7339 CALL wrf_error_fatal(emess)
7340 ENDIF
7341 auxhist10_end_y = model_config_rec%auxhist10_end_y(id_id)
7342 RETURN
7343 END SUBROUTINE nl_get_auxhist10_end_y
7344 SUBROUTINE nl_get_auxhist10_end_mo ( id_id , auxhist10_end_mo )
7345 integer , INTENT(OUT) :: auxhist10_end_mo
7346 INTEGER id_id
7347 CHARACTER*80 emess
7348 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7349 WRITE(emess,*)'nl_get_auxhist10_end_mo: Out of range domain number: ',id_id
7350 CALL wrf_error_fatal(emess)
7351 ENDIF
7352 auxhist10_end_mo = model_config_rec%auxhist10_end_mo(id_id)
7353 RETURN
7354 END SUBROUTINE nl_get_auxhist10_end_mo
7355 SUBROUTINE nl_get_auxhist10_end_d ( id_id , auxhist10_end_d )
7356 integer , INTENT(OUT) :: auxhist10_end_d
7357 INTEGER id_id
7358 CHARACTER*80 emess
7359 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7360 WRITE(emess,*)'nl_get_auxhist10_end_d: Out of range domain number: ',id_id
7361 CALL wrf_error_fatal(emess)
7362 ENDIF
7363 auxhist10_end_d = model_config_rec%auxhist10_end_d(id_id)
7364 RETURN
7365 END SUBROUTINE nl_get_auxhist10_end_d
7366 SUBROUTINE nl_get_auxhist10_end_h ( id_id , auxhist10_end_h )
7367 integer , INTENT(OUT) :: auxhist10_end_h
7368 INTEGER id_id
7369 CHARACTER*80 emess
7370 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7371 WRITE(emess,*)'nl_get_auxhist10_end_h: Out of range domain number: ',id_id
7372 CALL wrf_error_fatal(emess)
7373 ENDIF
7374 auxhist10_end_h = model_config_rec%auxhist10_end_h(id_id)
7375 RETURN
7376 END SUBROUTINE nl_get_auxhist10_end_h
7377 SUBROUTINE nl_get_auxhist10_end_m ( id_id , auxhist10_end_m )
7378 integer , INTENT(OUT) :: auxhist10_end_m
7379 INTEGER id_id
7380 CHARACTER*80 emess
7381 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7382 WRITE(emess,*)'nl_get_auxhist10_end_m: Out of range domain number: ',id_id
7383 CALL wrf_error_fatal(emess)
7384 ENDIF
7385 auxhist10_end_m = model_config_rec%auxhist10_end_m(id_id)
7386 RETURN
7387 END SUBROUTINE nl_get_auxhist10_end_m
7388 SUBROUTINE nl_get_auxhist10_end_s ( id_id , auxhist10_end_s )
7389 integer , INTENT(OUT) :: auxhist10_end_s
7390 INTEGER id_id
7391 CHARACTER*80 emess
7392 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7393 WRITE(emess,*)'nl_get_auxhist10_end_s: Out of range domain number: ',id_id
7394 CALL wrf_error_fatal(emess)
7395 ENDIF
7396 auxhist10_end_s = model_config_rec%auxhist10_end_s(id_id)
7397 RETURN
7398 END SUBROUTINE nl_get_auxhist10_end_s
7399 SUBROUTINE nl_get_auxhist11_end_y ( id_id , auxhist11_end_y )
7400 integer , INTENT(OUT) :: auxhist11_end_y
7401 INTEGER id_id
7402 CHARACTER*80 emess
7403 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7404 WRITE(emess,*)'nl_get_auxhist11_end_y: Out of range domain number: ',id_id
7405 CALL wrf_error_fatal(emess)
7406 ENDIF
7407 auxhist11_end_y = model_config_rec%auxhist11_end_y(id_id)
7408 RETURN
7409 END SUBROUTINE nl_get_auxhist11_end_y
7410 SUBROUTINE nl_get_auxhist11_end_mo ( id_id , auxhist11_end_mo )
7411 integer , INTENT(OUT) :: auxhist11_end_mo
7412 INTEGER id_id
7413 CHARACTER*80 emess
7414 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7415 WRITE(emess,*)'nl_get_auxhist11_end_mo: Out of range domain number: ',id_id
7416 CALL wrf_error_fatal(emess)
7417 ENDIF
7418 auxhist11_end_mo = model_config_rec%auxhist11_end_mo(id_id)
7419 RETURN
7420 END SUBROUTINE nl_get_auxhist11_end_mo
7421 SUBROUTINE nl_get_auxhist11_end_d ( id_id , auxhist11_end_d )
7422 integer , INTENT(OUT) :: auxhist11_end_d
7423 INTEGER id_id
7424 CHARACTER*80 emess
7425 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7426 WRITE(emess,*)'nl_get_auxhist11_end_d: Out of range domain number: ',id_id
7427 CALL wrf_error_fatal(emess)
7428 ENDIF
7429 auxhist11_end_d = model_config_rec%auxhist11_end_d(id_id)
7430 RETURN
7431 END SUBROUTINE nl_get_auxhist11_end_d
7432 SUBROUTINE nl_get_auxhist11_end_h ( id_id , auxhist11_end_h )
7433 integer , INTENT(OUT) :: auxhist11_end_h
7434 INTEGER id_id
7435 CHARACTER*80 emess
7436 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7437 WRITE(emess,*)'nl_get_auxhist11_end_h: Out of range domain number: ',id_id
7438 CALL wrf_error_fatal(emess)
7439 ENDIF
7440 auxhist11_end_h = model_config_rec%auxhist11_end_h(id_id)
7441 RETURN
7442 END SUBROUTINE nl_get_auxhist11_end_h
7443 SUBROUTINE nl_get_auxhist11_end_m ( id_id , auxhist11_end_m )
7444 integer , INTENT(OUT) :: auxhist11_end_m
7445 INTEGER id_id
7446 CHARACTER*80 emess
7447 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7448 WRITE(emess,*)'nl_get_auxhist11_end_m: Out of range domain number: ',id_id
7449 CALL wrf_error_fatal(emess)
7450 ENDIF
7451 auxhist11_end_m = model_config_rec%auxhist11_end_m(id_id)
7452 RETURN
7453 END SUBROUTINE nl_get_auxhist11_end_m
7454 SUBROUTINE nl_get_auxhist11_end_s ( id_id , auxhist11_end_s )
7455 integer , INTENT(OUT) :: auxhist11_end_s
7456 INTEGER id_id
7457 CHARACTER*80 emess
7458 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7459 WRITE(emess,*)'nl_get_auxhist11_end_s: Out of range domain number: ',id_id
7460 CALL wrf_error_fatal(emess)
7461 ENDIF
7462 auxhist11_end_s = model_config_rec%auxhist11_end_s(id_id)
7463 RETURN
7464 END SUBROUTINE nl_get_auxhist11_end_s
7465 SUBROUTINE nl_get_auxinput1_end_y ( id_id , auxinput1_end_y )
7466 integer , INTENT(OUT) :: auxinput1_end_y
7467 INTEGER id_id
7468 CHARACTER*80 emess
7469 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7470 WRITE(emess,*)'nl_get_auxinput1_end_y: Out of range domain number: ',id_id
7471 CALL wrf_error_fatal(emess)
7472 ENDIF
7473 auxinput1_end_y = model_config_rec%auxinput1_end_y(id_id)
7474 RETURN
7475 END SUBROUTINE nl_get_auxinput1_end_y
7476 SUBROUTINE nl_get_auxinput1_end_mo ( id_id , auxinput1_end_mo )
7477 integer , INTENT(OUT) :: auxinput1_end_mo
7478 INTEGER id_id
7479 CHARACTER*80 emess
7480 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7481 WRITE(emess,*)'nl_get_auxinput1_end_mo: Out of range domain number: ',id_id
7482 CALL wrf_error_fatal(emess)
7483 ENDIF
7484 auxinput1_end_mo = model_config_rec%auxinput1_end_mo(id_id)
7485 RETURN
7486 END SUBROUTINE nl_get_auxinput1_end_mo
7487 SUBROUTINE nl_get_auxinput1_end_d ( id_id , auxinput1_end_d )
7488 integer , INTENT(OUT) :: auxinput1_end_d
7489 INTEGER id_id
7490 CHARACTER*80 emess
7491 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7492 WRITE(emess,*)'nl_get_auxinput1_end_d: Out of range domain number: ',id_id
7493 CALL wrf_error_fatal(emess)
7494 ENDIF
7495 auxinput1_end_d = model_config_rec%auxinput1_end_d(id_id)
7496 RETURN
7497 END SUBROUTINE nl_get_auxinput1_end_d
7498 SUBROUTINE nl_get_auxinput1_end_h ( id_id , auxinput1_end_h )
7499 integer , INTENT(OUT) :: auxinput1_end_h
7500 INTEGER id_id
7501 CHARACTER*80 emess
7502 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7503 WRITE(emess,*)'nl_get_auxinput1_end_h: Out of range domain number: ',id_id
7504 CALL wrf_error_fatal(emess)
7505 ENDIF
7506 auxinput1_end_h = model_config_rec%auxinput1_end_h(id_id)
7507 RETURN
7508 END SUBROUTINE nl_get_auxinput1_end_h
7509 SUBROUTINE nl_get_auxinput1_end_m ( id_id , auxinput1_end_m )
7510 integer , INTENT(OUT) :: auxinput1_end_m
7511 INTEGER id_id
7512 CHARACTER*80 emess
7513 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7514 WRITE(emess,*)'nl_get_auxinput1_end_m: Out of range domain number: ',id_id
7515 CALL wrf_error_fatal(emess)
7516 ENDIF
7517 auxinput1_end_m = model_config_rec%auxinput1_end_m(id_id)
7518 RETURN
7519 END SUBROUTINE nl_get_auxinput1_end_m
7520 SUBROUTINE nl_get_auxinput1_end_s ( id_id , auxinput1_end_s )
7521 integer , INTENT(OUT) :: auxinput1_end_s
7522 INTEGER id_id
7523 CHARACTER*80 emess
7524 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7525 WRITE(emess,*)'nl_get_auxinput1_end_s: Out of range domain number: ',id_id
7526 CALL wrf_error_fatal(emess)
7527 ENDIF
7528 auxinput1_end_s = model_config_rec%auxinput1_end_s(id_id)
7529 RETURN
7530 END SUBROUTINE nl_get_auxinput1_end_s
7531 SUBROUTINE nl_get_auxinput2_end_y ( id_id , auxinput2_end_y )
7532 integer , INTENT(OUT) :: auxinput2_end_y
7533 INTEGER id_id
7534 CHARACTER*80 emess
7535 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7536 WRITE(emess,*)'nl_get_auxinput2_end_y: Out of range domain number: ',id_id
7537 CALL wrf_error_fatal(emess)
7538 ENDIF
7539 auxinput2_end_y = model_config_rec%auxinput2_end_y(id_id)
7540 RETURN
7541 END SUBROUTINE nl_get_auxinput2_end_y
7542 SUBROUTINE nl_get_auxinput2_end_mo ( id_id , auxinput2_end_mo )
7543 integer , INTENT(OUT) :: auxinput2_end_mo
7544 INTEGER id_id
7545 CHARACTER*80 emess
7546 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7547 WRITE(emess,*)'nl_get_auxinput2_end_mo: Out of range domain number: ',id_id
7548 CALL wrf_error_fatal(emess)
7549 ENDIF
7550 auxinput2_end_mo = model_config_rec%auxinput2_end_mo(id_id)
7551 RETURN
7552 END SUBROUTINE nl_get_auxinput2_end_mo
7553 SUBROUTINE nl_get_auxinput2_end_d ( id_id , auxinput2_end_d )
7554 integer , INTENT(OUT) :: auxinput2_end_d
7555 INTEGER id_id
7556 CHARACTER*80 emess
7557 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7558 WRITE(emess,*)'nl_get_auxinput2_end_d: Out of range domain number: ',id_id
7559 CALL wrf_error_fatal(emess)
7560 ENDIF
7561 auxinput2_end_d = model_config_rec%auxinput2_end_d(id_id)
7562 RETURN
7563 END SUBROUTINE nl_get_auxinput2_end_d
7564 SUBROUTINE nl_get_auxinput2_end_h ( id_id , auxinput2_end_h )
7565 integer , INTENT(OUT) :: auxinput2_end_h
7566 INTEGER id_id
7567 CHARACTER*80 emess
7568 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7569 WRITE(emess,*)'nl_get_auxinput2_end_h: Out of range domain number: ',id_id
7570 CALL wrf_error_fatal(emess)
7571 ENDIF
7572 auxinput2_end_h = model_config_rec%auxinput2_end_h(id_id)
7573 RETURN
7574 END SUBROUTINE nl_get_auxinput2_end_h
7575 SUBROUTINE nl_get_auxinput2_end_m ( id_id , auxinput2_end_m )
7576 integer , INTENT(OUT) :: auxinput2_end_m
7577 INTEGER id_id
7578 CHARACTER*80 emess
7579 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7580 WRITE(emess,*)'nl_get_auxinput2_end_m: Out of range domain number: ',id_id
7581 CALL wrf_error_fatal(emess)
7582 ENDIF
7583 auxinput2_end_m = model_config_rec%auxinput2_end_m(id_id)
7584 RETURN
7585 END SUBROUTINE nl_get_auxinput2_end_m
7586 SUBROUTINE nl_get_auxinput2_end_s ( id_id , auxinput2_end_s )
7587 integer , INTENT(OUT) :: auxinput2_end_s
7588 INTEGER id_id
7589 CHARACTER*80 emess
7590 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7591 WRITE(emess,*)'nl_get_auxinput2_end_s: Out of range domain number: ',id_id
7592 CALL wrf_error_fatal(emess)
7593 ENDIF
7594 auxinput2_end_s = model_config_rec%auxinput2_end_s(id_id)
7595 RETURN
7596 END SUBROUTINE nl_get_auxinput2_end_s
7597 SUBROUTINE nl_get_auxinput3_end_y ( id_id , auxinput3_end_y )
7598 integer , INTENT(OUT) :: auxinput3_end_y
7599 INTEGER id_id
7600 CHARACTER*80 emess
7601 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7602 WRITE(emess,*)'nl_get_auxinput3_end_y: Out of range domain number: ',id_id
7603 CALL wrf_error_fatal(emess)
7604 ENDIF
7605 auxinput3_end_y = model_config_rec%auxinput3_end_y(id_id)
7606 RETURN
7607 END SUBROUTINE nl_get_auxinput3_end_y
7608 SUBROUTINE nl_get_auxinput3_end_mo ( id_id , auxinput3_end_mo )
7609 integer , INTENT(OUT) :: auxinput3_end_mo
7610 INTEGER id_id
7611 CHARACTER*80 emess
7612 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7613 WRITE(emess,*)'nl_get_auxinput3_end_mo: Out of range domain number: ',id_id
7614 CALL wrf_error_fatal(emess)
7615 ENDIF
7616 auxinput3_end_mo = model_config_rec%auxinput3_end_mo(id_id)
7617 RETURN
7618 END SUBROUTINE nl_get_auxinput3_end_mo
7619 SUBROUTINE nl_get_auxinput3_end_d ( id_id , auxinput3_end_d )
7620 integer , INTENT(OUT) :: auxinput3_end_d
7621 INTEGER id_id
7622 CHARACTER*80 emess
7623 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7624 WRITE(emess,*)'nl_get_auxinput3_end_d: Out of range domain number: ',id_id
7625 CALL wrf_error_fatal(emess)
7626 ENDIF
7627 auxinput3_end_d = model_config_rec%auxinput3_end_d(id_id)
7628 RETURN
7629 END SUBROUTINE nl_get_auxinput3_end_d
7630 SUBROUTINE nl_get_auxinput3_end_h ( id_id , auxinput3_end_h )
7631 integer , INTENT(OUT) :: auxinput3_end_h
7632 INTEGER id_id
7633 CHARACTER*80 emess
7634 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7635 WRITE(emess,*)'nl_get_auxinput3_end_h: Out of range domain number: ',id_id
7636 CALL wrf_error_fatal(emess)
7637 ENDIF
7638 auxinput3_end_h = model_config_rec%auxinput3_end_h(id_id)
7639 RETURN
7640 END SUBROUTINE nl_get_auxinput3_end_h
7641 SUBROUTINE nl_get_auxinput3_end_m ( id_id , auxinput3_end_m )
7642 integer , INTENT(OUT) :: auxinput3_end_m
7643 INTEGER id_id
7644 CHARACTER*80 emess
7645 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7646 WRITE(emess,*)'nl_get_auxinput3_end_m: Out of range domain number: ',id_id
7647 CALL wrf_error_fatal(emess)
7648 ENDIF
7649 auxinput3_end_m = model_config_rec%auxinput3_end_m(id_id)
7650 RETURN
7651 END SUBROUTINE nl_get_auxinput3_end_m
7652 SUBROUTINE nl_get_auxinput3_end_s ( id_id , auxinput3_end_s )
7653 integer , INTENT(OUT) :: auxinput3_end_s
7654 INTEGER id_id
7655 CHARACTER*80 emess
7656 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7657 WRITE(emess,*)'nl_get_auxinput3_end_s: Out of range domain number: ',id_id
7658 CALL wrf_error_fatal(emess)
7659 ENDIF
7660 auxinput3_end_s = model_config_rec%auxinput3_end_s(id_id)
7661 RETURN
7662 END SUBROUTINE nl_get_auxinput3_end_s
7663 SUBROUTINE nl_get_auxinput4_end_y ( id_id , auxinput4_end_y )
7664 integer , INTENT(OUT) :: auxinput4_end_y
7665 INTEGER id_id
7666 CHARACTER*80 emess
7667 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7668 WRITE(emess,*)'nl_get_auxinput4_end_y: Out of range domain number: ',id_id
7669 CALL wrf_error_fatal(emess)
7670 ENDIF
7671 auxinput4_end_y = model_config_rec%auxinput4_end_y(id_id)
7672 RETURN
7673 END SUBROUTINE nl_get_auxinput4_end_y
7674 SUBROUTINE nl_get_auxinput4_end_mo ( id_id , auxinput4_end_mo )
7675 integer , INTENT(OUT) :: auxinput4_end_mo
7676 INTEGER id_id
7677 CHARACTER*80 emess
7678 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7679 WRITE(emess,*)'nl_get_auxinput4_end_mo: Out of range domain number: ',id_id
7680 CALL wrf_error_fatal(emess)
7681 ENDIF
7682 auxinput4_end_mo = model_config_rec%auxinput4_end_mo(id_id)
7683 RETURN
7684 END SUBROUTINE nl_get_auxinput4_end_mo
7685 SUBROUTINE nl_get_auxinput4_end_d ( id_id , auxinput4_end_d )
7686 integer , INTENT(OUT) :: auxinput4_end_d
7687 INTEGER id_id
7688 CHARACTER*80 emess
7689 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7690 WRITE(emess,*)'nl_get_auxinput4_end_d: Out of range domain number: ',id_id
7691 CALL wrf_error_fatal(emess)
7692 ENDIF
7693 auxinput4_end_d = model_config_rec%auxinput4_end_d(id_id)
7694 RETURN
7695 END SUBROUTINE nl_get_auxinput4_end_d
7696 SUBROUTINE nl_get_auxinput4_end_h ( id_id , auxinput4_end_h )
7697 integer , INTENT(OUT) :: auxinput4_end_h
7698 INTEGER id_id
7699 CHARACTER*80 emess
7700 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7701 WRITE(emess,*)'nl_get_auxinput4_end_h: Out of range domain number: ',id_id
7702 CALL wrf_error_fatal(emess)
7703 ENDIF
7704 auxinput4_end_h = model_config_rec%auxinput4_end_h(id_id)
7705 RETURN
7706 END SUBROUTINE nl_get_auxinput4_end_h
7707 SUBROUTINE nl_get_auxinput4_end_m ( id_id , auxinput4_end_m )
7708 integer , INTENT(OUT) :: auxinput4_end_m
7709 INTEGER id_id
7710 CHARACTER*80 emess
7711 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7712 WRITE(emess,*)'nl_get_auxinput4_end_m: Out of range domain number: ',id_id
7713 CALL wrf_error_fatal(emess)
7714 ENDIF
7715 auxinput4_end_m = model_config_rec%auxinput4_end_m(id_id)
7716 RETURN
7717 END SUBROUTINE nl_get_auxinput4_end_m
7718 SUBROUTINE nl_get_auxinput4_end_s ( id_id , auxinput4_end_s )
7719 integer , INTENT(OUT) :: auxinput4_end_s
7720 INTEGER id_id
7721 CHARACTER*80 emess
7722 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7723 WRITE(emess,*)'nl_get_auxinput4_end_s: Out of range domain number: ',id_id
7724 CALL wrf_error_fatal(emess)
7725 ENDIF
7726 auxinput4_end_s = model_config_rec%auxinput4_end_s(id_id)
7727 RETURN
7728 END SUBROUTINE nl_get_auxinput4_end_s
7729 SUBROUTINE nl_get_auxinput5_end_y ( id_id , auxinput5_end_y )
7730 integer , INTENT(OUT) :: auxinput5_end_y
7731 INTEGER id_id
7732 CHARACTER*80 emess
7733 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7734 WRITE(emess,*)'nl_get_auxinput5_end_y: Out of range domain number: ',id_id
7735 CALL wrf_error_fatal(emess)
7736 ENDIF
7737 auxinput5_end_y = model_config_rec%auxinput5_end_y(id_id)
7738 RETURN
7739 END SUBROUTINE nl_get_auxinput5_end_y
7740 SUBROUTINE nl_get_auxinput5_end_mo ( id_id , auxinput5_end_mo )
7741 integer , INTENT(OUT) :: auxinput5_end_mo
7742 INTEGER id_id
7743 CHARACTER*80 emess
7744 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7745 WRITE(emess,*)'nl_get_auxinput5_end_mo: Out of range domain number: ',id_id
7746 CALL wrf_error_fatal(emess)
7747 ENDIF
7748 auxinput5_end_mo = model_config_rec%auxinput5_end_mo(id_id)
7749 RETURN
7750 END SUBROUTINE nl_get_auxinput5_end_mo
7751 SUBROUTINE nl_get_auxinput5_end_d ( id_id , auxinput5_end_d )
7752 integer , INTENT(OUT) :: auxinput5_end_d
7753 INTEGER id_id
7754 CHARACTER*80 emess
7755 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7756 WRITE(emess,*)'nl_get_auxinput5_end_d: Out of range domain number: ',id_id
7757 CALL wrf_error_fatal(emess)
7758 ENDIF
7759 auxinput5_end_d = model_config_rec%auxinput5_end_d(id_id)
7760 RETURN
7761 END SUBROUTINE nl_get_auxinput5_end_d
7762 SUBROUTINE nl_get_auxinput5_end_h ( id_id , auxinput5_end_h )
7763 integer , INTENT(OUT) :: auxinput5_end_h
7764 INTEGER id_id
7765 CHARACTER*80 emess
7766 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7767 WRITE(emess,*)'nl_get_auxinput5_end_h: Out of range domain number: ',id_id
7768 CALL wrf_error_fatal(emess)
7769 ENDIF
7770 auxinput5_end_h = model_config_rec%auxinput5_end_h(id_id)
7771 RETURN
7772 END SUBROUTINE nl_get_auxinput5_end_h
7773 SUBROUTINE nl_get_auxinput5_end_m ( id_id , auxinput5_end_m )
7774 integer , INTENT(OUT) :: auxinput5_end_m
7775 INTEGER id_id
7776 CHARACTER*80 emess
7777 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7778 WRITE(emess,*)'nl_get_auxinput5_end_m: Out of range domain number: ',id_id
7779 CALL wrf_error_fatal(emess)
7780 ENDIF
7781 auxinput5_end_m = model_config_rec%auxinput5_end_m(id_id)
7782 RETURN
7783 END SUBROUTINE nl_get_auxinput5_end_m
7784 SUBROUTINE nl_get_auxinput5_end_s ( id_id , auxinput5_end_s )
7785 integer , INTENT(OUT) :: auxinput5_end_s
7786 INTEGER id_id
7787 CHARACTER*80 emess
7788 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7789 WRITE(emess,*)'nl_get_auxinput5_end_s: Out of range domain number: ',id_id
7790 CALL wrf_error_fatal(emess)
7791 ENDIF
7792 auxinput5_end_s = model_config_rec%auxinput5_end_s(id_id)
7793 RETURN
7794 END SUBROUTINE nl_get_auxinput5_end_s
7795 SUBROUTINE nl_get_auxinput6_end_y ( id_id , auxinput6_end_y )
7796 integer , INTENT(OUT) :: auxinput6_end_y
7797 INTEGER id_id
7798 CHARACTER*80 emess
7799 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7800 WRITE(emess,*)'nl_get_auxinput6_end_y: Out of range domain number: ',id_id
7801 CALL wrf_error_fatal(emess)
7802 ENDIF
7803 auxinput6_end_y = model_config_rec%auxinput6_end_y(id_id)
7804 RETURN
7805 END SUBROUTINE nl_get_auxinput6_end_y
7806 SUBROUTINE nl_get_auxinput6_end_mo ( id_id , auxinput6_end_mo )
7807 integer , INTENT(OUT) :: auxinput6_end_mo
7808 INTEGER id_id
7809 CHARACTER*80 emess
7810 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7811 WRITE(emess,*)'nl_get_auxinput6_end_mo: Out of range domain number: ',id_id
7812 CALL wrf_error_fatal(emess)
7813 ENDIF
7814 auxinput6_end_mo = model_config_rec%auxinput6_end_mo(id_id)
7815 RETURN
7816 END SUBROUTINE nl_get_auxinput6_end_mo
7817 SUBROUTINE nl_get_auxinput6_end_d ( id_id , auxinput6_end_d )
7818 integer , INTENT(OUT) :: auxinput6_end_d
7819 INTEGER id_id
7820 CHARACTER*80 emess
7821 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7822 WRITE(emess,*)'nl_get_auxinput6_end_d: Out of range domain number: ',id_id
7823 CALL wrf_error_fatal(emess)
7824 ENDIF
7825 auxinput6_end_d = model_config_rec%auxinput6_end_d(id_id)
7826 RETURN
7827 END SUBROUTINE nl_get_auxinput6_end_d
7828 SUBROUTINE nl_get_auxinput6_end_h ( id_id , auxinput6_end_h )
7829 integer , INTENT(OUT) :: auxinput6_end_h
7830 INTEGER id_id
7831 CHARACTER*80 emess
7832 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7833 WRITE(emess,*)'nl_get_auxinput6_end_h: Out of range domain number: ',id_id
7834 CALL wrf_error_fatal(emess)
7835 ENDIF
7836 auxinput6_end_h = model_config_rec%auxinput6_end_h(id_id)
7837 RETURN
7838 END SUBROUTINE nl_get_auxinput6_end_h
7839 SUBROUTINE nl_get_auxinput6_end_m ( id_id , auxinput6_end_m )
7840 integer , INTENT(OUT) :: auxinput6_end_m
7841 INTEGER id_id
7842 CHARACTER*80 emess
7843 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7844 WRITE(emess,*)'nl_get_auxinput6_end_m: Out of range domain number: ',id_id
7845 CALL wrf_error_fatal(emess)
7846 ENDIF
7847 auxinput6_end_m = model_config_rec%auxinput6_end_m(id_id)
7848 RETURN
7849 END SUBROUTINE nl_get_auxinput6_end_m
7850 SUBROUTINE nl_get_auxinput6_end_s ( id_id , auxinput6_end_s )
7851 integer , INTENT(OUT) :: auxinput6_end_s
7852 INTEGER id_id
7853 CHARACTER*80 emess
7854 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7855 WRITE(emess,*)'nl_get_auxinput6_end_s: Out of range domain number: ',id_id
7856 CALL wrf_error_fatal(emess)
7857 ENDIF
7858 auxinput6_end_s = model_config_rec%auxinput6_end_s(id_id)
7859 RETURN
7860 END SUBROUTINE nl_get_auxinput6_end_s
7861 SUBROUTINE nl_get_auxinput7_end_y ( id_id , auxinput7_end_y )
7862 integer , INTENT(OUT) :: auxinput7_end_y
7863 INTEGER id_id
7864 CHARACTER*80 emess
7865 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7866 WRITE(emess,*)'nl_get_auxinput7_end_y: Out of range domain number: ',id_id
7867 CALL wrf_error_fatal(emess)
7868 ENDIF
7869 auxinput7_end_y = model_config_rec%auxinput7_end_y(id_id)
7870 RETURN
7871 END SUBROUTINE nl_get_auxinput7_end_y
7872 SUBROUTINE nl_get_auxinput7_end_mo ( id_id , auxinput7_end_mo )
7873 integer , INTENT(OUT) :: auxinput7_end_mo
7874 INTEGER id_id
7875 CHARACTER*80 emess
7876 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7877 WRITE(emess,*)'nl_get_auxinput7_end_mo: Out of range domain number: ',id_id
7878 CALL wrf_error_fatal(emess)
7879 ENDIF
7880 auxinput7_end_mo = model_config_rec%auxinput7_end_mo(id_id)
7881 RETURN
7882 END SUBROUTINE nl_get_auxinput7_end_mo
7883 SUBROUTINE nl_get_auxinput7_end_d ( id_id , auxinput7_end_d )
7884 integer , INTENT(OUT) :: auxinput7_end_d
7885 INTEGER id_id
7886 CHARACTER*80 emess
7887 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7888 WRITE(emess,*)'nl_get_auxinput7_end_d: Out of range domain number: ',id_id
7889 CALL wrf_error_fatal(emess)
7890 ENDIF
7891 auxinput7_end_d = model_config_rec%auxinput7_end_d(id_id)
7892 RETURN
7893 END SUBROUTINE nl_get_auxinput7_end_d
7894 SUBROUTINE nl_get_auxinput7_end_h ( id_id , auxinput7_end_h )
7895 integer , INTENT(OUT) :: auxinput7_end_h
7896 INTEGER id_id
7897 CHARACTER*80 emess
7898 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7899 WRITE(emess,*)'nl_get_auxinput7_end_h: Out of range domain number: ',id_id
7900 CALL wrf_error_fatal(emess)
7901 ENDIF
7902 auxinput7_end_h = model_config_rec%auxinput7_end_h(id_id)
7903 RETURN
7904 END SUBROUTINE nl_get_auxinput7_end_h
7905 SUBROUTINE nl_get_auxinput7_end_m ( id_id , auxinput7_end_m )
7906 integer , INTENT(OUT) :: auxinput7_end_m
7907 INTEGER id_id
7908 CHARACTER*80 emess
7909 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7910 WRITE(emess,*)'nl_get_auxinput7_end_m: Out of range domain number: ',id_id
7911 CALL wrf_error_fatal(emess)
7912 ENDIF
7913 auxinput7_end_m = model_config_rec%auxinput7_end_m(id_id)
7914 RETURN
7915 END SUBROUTINE nl_get_auxinput7_end_m
7916 SUBROUTINE nl_get_auxinput7_end_s ( id_id , auxinput7_end_s )
7917 integer , INTENT(OUT) :: auxinput7_end_s
7918 INTEGER id_id
7919 CHARACTER*80 emess
7920 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7921 WRITE(emess,*)'nl_get_auxinput7_end_s: Out of range domain number: ',id_id
7922 CALL wrf_error_fatal(emess)
7923 ENDIF
7924 auxinput7_end_s = model_config_rec%auxinput7_end_s(id_id)
7925 RETURN
7926 END SUBROUTINE nl_get_auxinput7_end_s
7927 SUBROUTINE nl_get_auxinput8_end_y ( id_id , auxinput8_end_y )
7928 integer , INTENT(OUT) :: auxinput8_end_y
7929 INTEGER id_id
7930 CHARACTER*80 emess
7931 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7932 WRITE(emess,*)'nl_get_auxinput8_end_y: Out of range domain number: ',id_id
7933 CALL wrf_error_fatal(emess)
7934 ENDIF
7935 auxinput8_end_y = model_config_rec%auxinput8_end_y(id_id)
7936 RETURN
7937 END SUBROUTINE nl_get_auxinput8_end_y
7938 SUBROUTINE nl_get_auxinput8_end_mo ( id_id , auxinput8_end_mo )
7939 integer , INTENT(OUT) :: auxinput8_end_mo
7940 INTEGER id_id
7941 CHARACTER*80 emess
7942 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7943 WRITE(emess,*)'nl_get_auxinput8_end_mo: Out of range domain number: ',id_id
7944 CALL wrf_error_fatal(emess)
7945 ENDIF
7946 auxinput8_end_mo = model_config_rec%auxinput8_end_mo(id_id)
7947 RETURN
7948 END SUBROUTINE nl_get_auxinput8_end_mo
7949 SUBROUTINE nl_get_auxinput8_end_d ( id_id , auxinput8_end_d )
7950 integer , INTENT(OUT) :: auxinput8_end_d
7951 INTEGER id_id
7952 CHARACTER*80 emess
7953 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7954 WRITE(emess,*)'nl_get_auxinput8_end_d: Out of range domain number: ',id_id
7955 CALL wrf_error_fatal(emess)
7956 ENDIF
7957 auxinput8_end_d = model_config_rec%auxinput8_end_d(id_id)
7958 RETURN
7959 END SUBROUTINE nl_get_auxinput8_end_d
7960 SUBROUTINE nl_get_auxinput8_end_h ( id_id , auxinput8_end_h )
7961 integer , INTENT(OUT) :: auxinput8_end_h
7962 INTEGER id_id
7963 CHARACTER*80 emess
7964 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7965 WRITE(emess,*)'nl_get_auxinput8_end_h: Out of range domain number: ',id_id
7966 CALL wrf_error_fatal(emess)
7967 ENDIF
7968 auxinput8_end_h = model_config_rec%auxinput8_end_h(id_id)
7969 RETURN
7970 END SUBROUTINE nl_get_auxinput8_end_h
7971 SUBROUTINE nl_get_auxinput8_end_m ( id_id , auxinput8_end_m )
7972 integer , INTENT(OUT) :: auxinput8_end_m
7973 INTEGER id_id
7974 CHARACTER*80 emess
7975 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7976 WRITE(emess,*)'nl_get_auxinput8_end_m: Out of range domain number: ',id_id
7977 CALL wrf_error_fatal(emess)
7978 ENDIF
7979 auxinput8_end_m = model_config_rec%auxinput8_end_m(id_id)
7980 RETURN
7981 END SUBROUTINE nl_get_auxinput8_end_m
7982 SUBROUTINE nl_get_auxinput8_end_s ( id_id , auxinput8_end_s )
7983 integer , INTENT(OUT) :: auxinput8_end_s
7984 INTEGER id_id
7985 CHARACTER*80 emess
7986 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7987 WRITE(emess,*)'nl_get_auxinput8_end_s: Out of range domain number: ',id_id
7988 CALL wrf_error_fatal(emess)
7989 ENDIF
7990 auxinput8_end_s = model_config_rec%auxinput8_end_s(id_id)
7991 RETURN
7992 END SUBROUTINE nl_get_auxinput8_end_s
7993 SUBROUTINE nl_get_auxinput9_end_y ( id_id , auxinput9_end_y )
7994 integer , INTENT(OUT) :: auxinput9_end_y
7995 INTEGER id_id
7996 CHARACTER*80 emess
7997 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
7998 WRITE(emess,*)'nl_get_auxinput9_end_y: Out of range domain number: ',id_id
7999 CALL wrf_error_fatal(emess)
8000 ENDIF
8001 auxinput9_end_y = model_config_rec%auxinput9_end_y(id_id)
8002 RETURN
8003 END SUBROUTINE nl_get_auxinput9_end_y
8004 SUBROUTINE nl_get_auxinput9_end_mo ( id_id , auxinput9_end_mo )
8005 integer , INTENT(OUT) :: auxinput9_end_mo
8006 INTEGER id_id
8007 CHARACTER*80 emess
8008 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8009 WRITE(emess,*)'nl_get_auxinput9_end_mo: Out of range domain number: ',id_id
8010 CALL wrf_error_fatal(emess)
8011 ENDIF
8012 auxinput9_end_mo = model_config_rec%auxinput9_end_mo(id_id)
8013 RETURN
8014 END SUBROUTINE nl_get_auxinput9_end_mo
8015 SUBROUTINE nl_get_auxinput9_end_d ( id_id , auxinput9_end_d )
8016 integer , INTENT(OUT) :: auxinput9_end_d
8017 INTEGER id_id
8018 CHARACTER*80 emess
8019 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8020 WRITE(emess,*)'nl_get_auxinput9_end_d: Out of range domain number: ',id_id
8021 CALL wrf_error_fatal(emess)
8022 ENDIF
8023 auxinput9_end_d = model_config_rec%auxinput9_end_d(id_id)
8024 RETURN
8025 END SUBROUTINE nl_get_auxinput9_end_d
8026 SUBROUTINE nl_get_auxinput9_end_h ( id_id , auxinput9_end_h )
8027 integer , INTENT(OUT) :: auxinput9_end_h
8028 INTEGER id_id
8029 CHARACTER*80 emess
8030 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8031 WRITE(emess,*)'nl_get_auxinput9_end_h: Out of range domain number: ',id_id
8032 CALL wrf_error_fatal(emess)
8033 ENDIF
8034 auxinput9_end_h = model_config_rec%auxinput9_end_h(id_id)
8035 RETURN
8036 END SUBROUTINE nl_get_auxinput9_end_h
8037 SUBROUTINE nl_get_auxinput9_end_m ( id_id , auxinput9_end_m )
8038 integer , INTENT(OUT) :: auxinput9_end_m
8039 INTEGER id_id
8040 CHARACTER*80 emess
8041 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8042 WRITE(emess,*)'nl_get_auxinput9_end_m: Out of range domain number: ',id_id
8043 CALL wrf_error_fatal(emess)
8044 ENDIF
8045 auxinput9_end_m = model_config_rec%auxinput9_end_m(id_id)
8046 RETURN
8047 END SUBROUTINE nl_get_auxinput9_end_m
8048 SUBROUTINE nl_get_auxinput9_end_s ( id_id , auxinput9_end_s )
8049 integer , INTENT(OUT) :: auxinput9_end_s
8050 INTEGER id_id
8051 CHARACTER*80 emess
8052 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8053 WRITE(emess,*)'nl_get_auxinput9_end_s: Out of range domain number: ',id_id
8054 CALL wrf_error_fatal(emess)
8055 ENDIF
8056 auxinput9_end_s = model_config_rec%auxinput9_end_s(id_id)
8057 RETURN
8058 END SUBROUTINE nl_get_auxinput9_end_s
8059 SUBROUTINE nl_get_gfdda_end_y ( id_id , gfdda_end_y )
8060 integer , INTENT(OUT) :: gfdda_end_y
8061 INTEGER id_id
8062 CHARACTER*80 emess
8063 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8064 WRITE(emess,*)'nl_get_gfdda_end_y: Out of range domain number: ',id_id
8065 CALL wrf_error_fatal(emess)
8066 ENDIF
8067 gfdda_end_y = model_config_rec%gfdda_end_y(id_id)
8068 RETURN
8069 END SUBROUTINE nl_get_gfdda_end_y
8070 SUBROUTINE nl_get_gfdda_end_mo ( id_id , gfdda_end_mo )
8071 integer , INTENT(OUT) :: gfdda_end_mo
8072 INTEGER id_id
8073 CHARACTER*80 emess
8074 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8075 WRITE(emess,*)'nl_get_gfdda_end_mo: Out of range domain number: ',id_id
8076 CALL wrf_error_fatal(emess)
8077 ENDIF
8078 gfdda_end_mo = model_config_rec%gfdda_end_mo(id_id)
8079 RETURN
8080 END SUBROUTINE nl_get_gfdda_end_mo
8081 SUBROUTINE nl_get_gfdda_end_d ( id_id , gfdda_end_d )
8082 integer , INTENT(OUT) :: gfdda_end_d
8083 INTEGER id_id
8084 CHARACTER*80 emess
8085 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8086 WRITE(emess,*)'nl_get_gfdda_end_d: Out of range domain number: ',id_id
8087 CALL wrf_error_fatal(emess)
8088 ENDIF
8089 gfdda_end_d = model_config_rec%gfdda_end_d(id_id)
8090 RETURN
8091 END SUBROUTINE nl_get_gfdda_end_d
8092 SUBROUTINE nl_get_gfdda_end_h ( id_id , gfdda_end_h )
8093 integer , INTENT(OUT) :: gfdda_end_h
8094 INTEGER id_id
8095 CHARACTER*80 emess
8096 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8097 WRITE(emess,*)'nl_get_gfdda_end_h: Out of range domain number: ',id_id
8098 CALL wrf_error_fatal(emess)
8099 ENDIF
8100 gfdda_end_h = model_config_rec%gfdda_end_h(id_id)
8101 RETURN
8102 END SUBROUTINE nl_get_gfdda_end_h
8103 SUBROUTINE nl_get_gfdda_end_m ( id_id , gfdda_end_m )
8104 integer , INTENT(OUT) :: gfdda_end_m
8105 INTEGER id_id
8106 CHARACTER*80 emess
8107 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8108 WRITE(emess,*)'nl_get_gfdda_end_m: Out of range domain number: ',id_id
8109 CALL wrf_error_fatal(emess)
8110 ENDIF
8111 gfdda_end_m = model_config_rec%gfdda_end_m(id_id)
8112 RETURN
8113 END SUBROUTINE nl_get_gfdda_end_m
8114 SUBROUTINE nl_get_gfdda_end_s ( id_id , gfdda_end_s )
8115 integer , INTENT(OUT) :: gfdda_end_s
8116 INTEGER id_id
8117 CHARACTER*80 emess
8118 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8119 WRITE(emess,*)'nl_get_gfdda_end_s: Out of range domain number: ',id_id
8120 CALL wrf_error_fatal(emess)
8121 ENDIF
8122 gfdda_end_s = model_config_rec%gfdda_end_s(id_id)
8123 RETURN
8124 END SUBROUTINE nl_get_gfdda_end_s
8125 SUBROUTINE nl_get_auxinput11_end_y ( id_id , auxinput11_end_y )
8126 integer , INTENT(OUT) :: auxinput11_end_y
8127 INTEGER id_id
8128 CHARACTER*80 emess
8129 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8130 WRITE(emess,*)'nl_get_auxinput11_end_y: Out of range domain number: ',id_id
8131 CALL wrf_error_fatal(emess)
8132 ENDIF
8133 auxinput11_end_y = model_config_rec%auxinput11_end_y(id_id)
8134 RETURN
8135 END SUBROUTINE nl_get_auxinput11_end_y
8136 SUBROUTINE nl_get_auxinput11_end_mo ( id_id , auxinput11_end_mo )
8137 integer , INTENT(OUT) :: auxinput11_end_mo
8138 INTEGER id_id
8139 CHARACTER*80 emess
8140 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8141 WRITE(emess,*)'nl_get_auxinput11_end_mo: Out of range domain number: ',id_id
8142 CALL wrf_error_fatal(emess)
8143 ENDIF
8144 auxinput11_end_mo = model_config_rec%auxinput11_end_mo(id_id)
8145 RETURN
8146 END SUBROUTINE nl_get_auxinput11_end_mo
8147 SUBROUTINE nl_get_auxinput11_end_d ( id_id , auxinput11_end_d )
8148 integer , INTENT(OUT) :: auxinput11_end_d
8149 INTEGER id_id
8150 CHARACTER*80 emess
8151 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8152 WRITE(emess,*)'nl_get_auxinput11_end_d: Out of range domain number: ',id_id
8153 CALL wrf_error_fatal(emess)
8154 ENDIF
8155 auxinput11_end_d = model_config_rec%auxinput11_end_d(id_id)
8156 RETURN
8157 END SUBROUTINE nl_get_auxinput11_end_d
8158 SUBROUTINE nl_get_auxinput11_end_h ( id_id , auxinput11_end_h )
8159 integer , INTENT(OUT) :: auxinput11_end_h
8160 INTEGER id_id
8161 CHARACTER*80 emess
8162 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8163 WRITE(emess,*)'nl_get_auxinput11_end_h: Out of range domain number: ',id_id
8164 CALL wrf_error_fatal(emess)
8165 ENDIF
8166 auxinput11_end_h = model_config_rec%auxinput11_end_h(id_id)
8167 RETURN
8168 END SUBROUTINE nl_get_auxinput11_end_h
8169 SUBROUTINE nl_get_auxinput11_end_m ( id_id , auxinput11_end_m )
8170 integer , INTENT(OUT) :: auxinput11_end_m
8171 INTEGER id_id
8172 CHARACTER*80 emess
8173 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8174 WRITE(emess,*)'nl_get_auxinput11_end_m: Out of range domain number: ',id_id
8175 CALL wrf_error_fatal(emess)
8176 ENDIF
8177 auxinput11_end_m = model_config_rec%auxinput11_end_m(id_id)
8178 RETURN
8179 END SUBROUTINE nl_get_auxinput11_end_m
8180 SUBROUTINE nl_get_auxinput11_end_s ( id_id , auxinput11_end_s )
8181 integer , INTENT(OUT) :: auxinput11_end_s
8182 INTEGER id_id
8183 CHARACTER*80 emess
8184 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8185 WRITE(emess,*)'nl_get_auxinput11_end_s: Out of range domain number: ',id_id
8186 CALL wrf_error_fatal(emess)
8187 ENDIF
8188 auxinput11_end_s = model_config_rec%auxinput11_end_s(id_id)
8189 RETURN
8190 END SUBROUTINE nl_get_auxinput11_end_s
8191 SUBROUTINE nl_get_io_form_auxinput1 ( id_id , io_form_auxinput1 )
8192 integer , INTENT(OUT) :: io_form_auxinput1
8193 INTEGER id_id
8194 CHARACTER*80 emess
8195 IF ( id_id .NE. 1 ) THEN
8196 call wrf_debug(1,&
8197 'WARNING in nl_get_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
8198 ENDIF
8199 io_form_auxinput1 = model_config_rec%io_form_auxinput1
8200 RETURN
8201 END SUBROUTINE nl_get_io_form_auxinput1
8202 SUBROUTINE nl_get_io_form_auxinput2 ( id_id , io_form_auxinput2 )
8203 integer , INTENT(OUT) :: io_form_auxinput2
8204 INTEGER id_id
8205 CHARACTER*80 emess
8206 IF ( id_id .NE. 1 ) THEN
8207 call wrf_debug(1,&
8208 'WARNING in nl_get_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
8209 ENDIF
8210 io_form_auxinput2 = model_config_rec%io_form_auxinput2
8211 RETURN
8212 END SUBROUTINE nl_get_io_form_auxinput2
8213 SUBROUTINE nl_get_io_form_auxinput3 ( id_id , io_form_auxinput3 )
8214 integer , INTENT(OUT) :: io_form_auxinput3
8215 INTEGER id_id
8216 CHARACTER*80 emess
8217 IF ( id_id .NE. 1 ) THEN
8218 call wrf_debug(1,&
8219 'WARNING in nl_get_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
8220 ENDIF
8221 io_form_auxinput3 = model_config_rec%io_form_auxinput3
8222 RETURN
8223 END SUBROUTINE nl_get_io_form_auxinput3
8224 SUBROUTINE nl_get_io_form_auxinput4 ( id_id , io_form_auxinput4 )
8225 integer , INTENT(OUT) :: io_form_auxinput4
8226 INTEGER id_id
8227 CHARACTER*80 emess
8228 IF ( id_id .NE. 1 ) THEN
8229 call wrf_debug(1,&
8230 'WARNING in nl_get_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
8231 ENDIF
8232 io_form_auxinput4 = model_config_rec%io_form_auxinput4
8233 RETURN
8234 END SUBROUTINE nl_get_io_form_auxinput4
8235 SUBROUTINE nl_get_io_form_auxinput5 ( id_id , io_form_auxinput5 )
8236 integer , INTENT(OUT) :: io_form_auxinput5
8237 INTEGER id_id
8238 CHARACTER*80 emess
8239 IF ( id_id .NE. 1 ) THEN
8240 call wrf_debug(1,&
8241 'WARNING in nl_get_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
8242 ENDIF
8243 io_form_auxinput5 = model_config_rec%io_form_auxinput5
8244 RETURN
8245 END SUBROUTINE nl_get_io_form_auxinput5
8246 SUBROUTINE nl_get_io_form_auxinput6 ( id_id , io_form_auxinput6 )
8247 integer , INTENT(OUT) :: io_form_auxinput6
8248 INTEGER id_id
8249 CHARACTER*80 emess
8250 IF ( id_id .NE. 1 ) THEN
8251 call wrf_debug(1,&
8252 'WARNING in nl_get_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
8253 ENDIF
8254 io_form_auxinput6 = model_config_rec%io_form_auxinput6
8255 RETURN
8256 END SUBROUTINE nl_get_io_form_auxinput6
8257 SUBROUTINE nl_get_io_form_auxinput7 ( id_id , io_form_auxinput7 )
8258 integer , INTENT(OUT) :: io_form_auxinput7
8259 INTEGER id_id
8260 CHARACTER*80 emess
8261 IF ( id_id .NE. 1 ) THEN
8262 call wrf_debug(1,&
8263 'WARNING in nl_get_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
8264 ENDIF
8265 io_form_auxinput7 = model_config_rec%io_form_auxinput7
8266 RETURN
8267 END SUBROUTINE nl_get_io_form_auxinput7
8268 SUBROUTINE nl_get_io_form_auxinput8 ( id_id , io_form_auxinput8 )
8269 integer , INTENT(OUT) :: io_form_auxinput8
8270 INTEGER id_id
8271 CHARACTER*80 emess
8272 IF ( id_id .NE. 1 ) THEN
8273 call wrf_debug(1,&
8274 'WARNING in nl_get_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
8275 ENDIF
8276 io_form_auxinput8 = model_config_rec%io_form_auxinput8
8277 RETURN
8278 END SUBROUTINE nl_get_io_form_auxinput8
8279 SUBROUTINE nl_get_io_form_auxinput9 ( id_id , io_form_auxinput9 )
8280 integer , INTENT(OUT) :: io_form_auxinput9
8281 INTEGER id_id
8282 CHARACTER*80 emess
8283 IF ( id_id .NE. 1 ) THEN
8284 call wrf_debug(1,&
8285 'WARNING in nl_get_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
8286 ENDIF
8287 io_form_auxinput9 = model_config_rec%io_form_auxinput9
8288 RETURN
8289 END SUBROUTINE nl_get_io_form_auxinput9
8290 SUBROUTINE nl_get_io_form_gfdda ( id_id , io_form_gfdda )
8291 integer , INTENT(OUT) :: io_form_gfdda
8292 INTEGER id_id
8293 CHARACTER*80 emess
8294 IF ( id_id .NE. 1 ) THEN
8295 call wrf_debug(1,&
8296 'WARNING in nl_get_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
8297 ENDIF
8298 io_form_gfdda = model_config_rec%io_form_gfdda
8299 RETURN
8300 END SUBROUTINE nl_get_io_form_gfdda
8301 SUBROUTINE nl_get_io_form_auxinput11 ( id_id , io_form_auxinput11 )
8302 integer , INTENT(OUT) :: io_form_auxinput11
8303 INTEGER id_id
8304 CHARACTER*80 emess
8305 IF ( id_id .NE. 1 ) THEN
8306 call wrf_debug(1,&
8307 'WARNING in nl_get_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
8308 ENDIF
8309 io_form_auxinput11 = model_config_rec%io_form_auxinput11
8310 RETURN
8311 END SUBROUTINE nl_get_io_form_auxinput11
8312 SUBROUTINE nl_get_io_form_auxhist1 ( id_id , io_form_auxhist1 )
8313 integer , INTENT(OUT) :: io_form_auxhist1
8314 INTEGER id_id
8315 CHARACTER*80 emess
8316 IF ( id_id .NE. 1 ) THEN
8317 call wrf_debug(1,&
8318 'WARNING in nl_get_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
8319 ENDIF
8320 io_form_auxhist1 = model_config_rec%io_form_auxhist1
8321 RETURN
8322 END SUBROUTINE nl_get_io_form_auxhist1
8323 SUBROUTINE nl_get_io_form_auxhist2 ( id_id , io_form_auxhist2 )
8324 integer , INTENT(OUT) :: io_form_auxhist2
8325 INTEGER id_id
8326 CHARACTER*80 emess
8327 IF ( id_id .NE. 1 ) THEN
8328 call wrf_debug(1,&
8329 'WARNING in nl_get_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
8330 ENDIF
8331 io_form_auxhist2 = model_config_rec%io_form_auxhist2
8332 RETURN
8333 END SUBROUTINE nl_get_io_form_auxhist2
8334 SUBROUTINE nl_get_io_form_auxhist3 ( id_id , io_form_auxhist3 )
8335 integer , INTENT(OUT) :: io_form_auxhist3
8336 INTEGER id_id
8337 CHARACTER*80 emess
8338 IF ( id_id .NE. 1 ) THEN
8339 call wrf_debug(1,&
8340 'WARNING in nl_get_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
8341 ENDIF
8342 io_form_auxhist3 = model_config_rec%io_form_auxhist3
8343 RETURN
8344 END SUBROUTINE nl_get_io_form_auxhist3
8345 SUBROUTINE nl_get_io_form_auxhist4 ( id_id , io_form_auxhist4 )
8346 integer , INTENT(OUT) :: io_form_auxhist4
8347 INTEGER id_id
8348 CHARACTER*80 emess
8349 IF ( id_id .NE. 1 ) THEN
8350 call wrf_debug(1,&
8351 'WARNING in nl_get_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
8352 ENDIF
8353 io_form_auxhist4 = model_config_rec%io_form_auxhist4
8354 RETURN
8355 END SUBROUTINE nl_get_io_form_auxhist4
8356 SUBROUTINE nl_get_io_form_auxhist5 ( id_id , io_form_auxhist5 )
8357 integer , INTENT(OUT) :: io_form_auxhist5
8358 INTEGER id_id
8359 CHARACTER*80 emess
8360 IF ( id_id .NE. 1 ) THEN
8361 call wrf_debug(1,&
8362 'WARNING in nl_get_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
8363 ENDIF
8364 io_form_auxhist5 = model_config_rec%io_form_auxhist5
8365 RETURN
8366 END SUBROUTINE nl_get_io_form_auxhist5
8367 SUBROUTINE nl_get_io_form_auxhist6 ( id_id , io_form_auxhist6 )
8368 integer , INTENT(OUT) :: io_form_auxhist6
8369 INTEGER id_id
8370 CHARACTER*80 emess
8371 IF ( id_id .NE. 1 ) THEN
8372 call wrf_debug(1,&
8373 'WARNING in nl_get_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
8374 ENDIF
8375 io_form_auxhist6 = model_config_rec%io_form_auxhist6
8376 RETURN
8377 END SUBROUTINE nl_get_io_form_auxhist6
8378 SUBROUTINE nl_get_io_form_auxhist7 ( id_id , io_form_auxhist7 )
8379 integer , INTENT(OUT) :: io_form_auxhist7
8380 INTEGER id_id
8381 CHARACTER*80 emess
8382 IF ( id_id .NE. 1 ) THEN
8383 call wrf_debug(1,&
8384 'WARNING in nl_get_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
8385 ENDIF
8386 io_form_auxhist7 = model_config_rec%io_form_auxhist7
8387 RETURN
8388 END SUBROUTINE nl_get_io_form_auxhist7
8389 SUBROUTINE nl_get_io_form_auxhist8 ( id_id , io_form_auxhist8 )
8390 integer , INTENT(OUT) :: io_form_auxhist8
8391 INTEGER id_id
8392 CHARACTER*80 emess
8393 IF ( id_id .NE. 1 ) THEN
8394 call wrf_debug(1,&
8395 'WARNING in nl_get_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
8396 ENDIF
8397 io_form_auxhist8 = model_config_rec%io_form_auxhist8
8398 RETURN
8399 END SUBROUTINE nl_get_io_form_auxhist8
8400 SUBROUTINE nl_get_io_form_auxhist9 ( id_id , io_form_auxhist9 )
8401 integer , INTENT(OUT) :: io_form_auxhist9
8402 INTEGER id_id
8403 CHARACTER*80 emess
8404 IF ( id_id .NE. 1 ) THEN
8405 call wrf_debug(1,&
8406 'WARNING in nl_get_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
8407 ENDIF
8408 io_form_auxhist9 = model_config_rec%io_form_auxhist9
8409 RETURN
8410 END SUBROUTINE nl_get_io_form_auxhist9
8411 SUBROUTINE nl_get_io_form_auxhist10 ( id_id , io_form_auxhist10 )
8412 integer , INTENT(OUT) :: io_form_auxhist10
8413 INTEGER id_id
8414 CHARACTER*80 emess
8415 IF ( id_id .NE. 1 ) THEN
8416 call wrf_debug(1,&
8417 'WARNING in nl_get_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
8418 ENDIF
8419 io_form_auxhist10 = model_config_rec%io_form_auxhist10
8420 RETURN
8421 END SUBROUTINE nl_get_io_form_auxhist10
8422 SUBROUTINE nl_get_io_form_auxhist11 ( id_id , io_form_auxhist11 )
8423 integer , INTENT(OUT) :: io_form_auxhist11
8424 INTEGER id_id
8425 CHARACTER*80 emess
8426 IF ( id_id .NE. 1 ) THEN
8427 call wrf_debug(1,&
8428 'WARNING in nl_get_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
8429 ENDIF
8430 io_form_auxhist11 = model_config_rec%io_form_auxhist11
8431 RETURN
8432 END SUBROUTINE nl_get_io_form_auxhist11
8433 SUBROUTINE nl_get_julyr ( id_id , julyr )
8434 integer , INTENT(OUT) :: julyr
8435 INTEGER id_id
8436 CHARACTER*80 emess
8437 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8438 WRITE(emess,*)'nl_get_julyr: Out of range domain number: ',id_id
8439 CALL wrf_error_fatal(emess)
8440 ENDIF
8441 julyr = model_config_rec%julyr(id_id)
8442 RETURN
8443 END SUBROUTINE nl_get_julyr
8444 SUBROUTINE nl_get_julday ( id_id , julday )
8445 integer , INTENT(OUT) :: julday
8446 INTEGER id_id
8447 CHARACTER*80 emess
8448 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8449 WRITE(emess,*)'nl_get_julday: Out of range domain number: ',id_id
8450 CALL wrf_error_fatal(emess)
8451 ENDIF
8452 julday = model_config_rec%julday(id_id)
8453 RETURN
8454 END SUBROUTINE nl_get_julday
8455 SUBROUTINE nl_get_gmt ( id_id , gmt )
8456 real , INTENT(OUT) :: gmt
8457 INTEGER id_id
8458 CHARACTER*80 emess
8459 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8460 WRITE(emess,*)'nl_get_gmt: Out of range domain number: ',id_id
8461 CALL wrf_error_fatal(emess)
8462 ENDIF
8463 gmt = model_config_rec%gmt(id_id)
8464 RETURN
8465 END SUBROUTINE nl_get_gmt
8466 SUBROUTINE nl_get_input_inname ( id_id , input_inname )
8467 character*256 , INTENT(OUT) :: input_inname
8468 INTEGER id_id
8469 CHARACTER*80 emess
8470 IF ( id_id .NE. 1 ) THEN
8471 call wrf_debug(1,&
8472 'WARNING in nl_get_input_inname: input_inname applies to all domains. First arg ignored.')
8473 ENDIF
8474 input_inname = trim(model_config_rec%input_inname)
8475 RETURN
8476 END SUBROUTINE nl_get_input_inname
8477 SUBROUTINE nl_get_input_outname ( id_id , input_outname )
8478 character*256 , INTENT(OUT) :: input_outname
8479 INTEGER id_id
8480 CHARACTER*80 emess
8481 IF ( id_id .NE. 1 ) THEN
8482 call wrf_debug(1,&
8483 'WARNING in nl_get_input_outname: input_outname applies to all domains. First arg ignored.')
8484 ENDIF
8485 input_outname = trim(model_config_rec%input_outname)
8486 RETURN
8487 END SUBROUTINE nl_get_input_outname
8488 SUBROUTINE nl_get_bdy_inname ( id_id , bdy_inname )
8489 character*256 , INTENT(OUT) :: bdy_inname
8490 INTEGER id_id
8491 CHARACTER*80 emess
8492 IF ( id_id .NE. 1 ) THEN
8493 call wrf_debug(1,&
8494 'WARNING in nl_get_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
8495 ENDIF
8496 bdy_inname = trim(model_config_rec%bdy_inname)
8497 RETURN
8498 END SUBROUTINE nl_get_bdy_inname
8499 SUBROUTINE nl_get_bdy_outname ( id_id , bdy_outname )
8500 character*256 , INTENT(OUT) :: bdy_outname
8501 INTEGER id_id
8502 CHARACTER*80 emess
8503 IF ( id_id .NE. 1 ) THEN
8504 call wrf_debug(1,&
8505 'WARNING in nl_get_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
8506 ENDIF
8507 bdy_outname = trim(model_config_rec%bdy_outname)
8508 RETURN
8509 END SUBROUTINE nl_get_bdy_outname
8510 SUBROUTINE nl_get_rst_inname ( id_id , rst_inname )
8511 character*256 , INTENT(OUT) :: rst_inname
8512 INTEGER id_id
8513 CHARACTER*80 emess
8514 IF ( id_id .NE. 1 ) THEN
8515 call wrf_debug(1,&
8516 'WARNING in nl_get_rst_inname: rst_inname applies to all domains. First arg ignored.')
8517 ENDIF
8518 rst_inname = trim(model_config_rec%rst_inname)
8519 RETURN
8520 END SUBROUTINE nl_get_rst_inname
8521 SUBROUTINE nl_get_rst_outname ( id_id , rst_outname )
8522 character*256 , INTENT(OUT) :: rst_outname
8523 INTEGER id_id
8524 CHARACTER*80 emess
8525 IF ( id_id .NE. 1 ) THEN
8526 call wrf_debug(1,&
8527 'WARNING in nl_get_rst_outname: rst_outname applies to all domains. First arg ignored.')
8528 ENDIF
8529 rst_outname = trim(model_config_rec%rst_outname)
8530 RETURN
8531 END SUBROUTINE nl_get_rst_outname
8532 SUBROUTINE nl_get_write_input ( id_id , write_input )
8533 logical , INTENT(OUT) :: write_input
8534 INTEGER id_id
8535 CHARACTER*80 emess
8536 IF ( id_id .NE. 1 ) THEN
8537 call wrf_debug(1,&
8538 'WARNING in nl_get_write_input: write_input applies to all domains. First arg ignored.')
8539 ENDIF
8540 write_input = model_config_rec%write_input
8541 RETURN
8542 END SUBROUTINE nl_get_write_input
8543 SUBROUTINE nl_get_write_restart_at_0h ( id_id , write_restart_at_0h )
8544 logical , INTENT(OUT) :: write_restart_at_0h
8545 INTEGER id_id
8546 CHARACTER*80 emess
8547 IF ( id_id .NE. 1 ) THEN
8548 call wrf_debug(1,&
8549 'WARNING in nl_get_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
8550 ENDIF
8551 write_restart_at_0h = model_config_rec%write_restart_at_0h
8552 RETURN
8553 END SUBROUTINE nl_get_write_restart_at_0h
8554 SUBROUTINE nl_get_adjust_output_times ( id_id , adjust_output_times )
8555 logical , INTENT(OUT) :: adjust_output_times
8556 INTEGER id_id
8557 CHARACTER*80 emess
8558 IF ( id_id .NE. 1 ) THEN
8559 call wrf_debug(1,&
8560 'WARNING in nl_get_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
8561 ENDIF
8562 adjust_output_times = model_config_rec%adjust_output_times
8563 RETURN
8564 END SUBROUTINE nl_get_adjust_output_times
8565 SUBROUTINE nl_get_adjust_input_times ( id_id , adjust_input_times )
8566 logical , INTENT(OUT) :: adjust_input_times
8567 INTEGER id_id
8568 CHARACTER*80 emess
8569 IF ( id_id .NE. 1 ) THEN
8570 call wrf_debug(1,&
8571 'WARNING in nl_get_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
8572 ENDIF
8573 adjust_input_times = model_config_rec%adjust_input_times
8574 RETURN
8575 END SUBROUTINE nl_get_adjust_input_times
8576 SUBROUTINE nl_get_nocolons ( id_id , nocolons )
8577 logical , INTENT(OUT) :: nocolons
8578 INTEGER id_id
8579 CHARACTER*80 emess
8580 IF ( id_id .NE. 1 ) THEN
8581 call wrf_debug(1,&
8582 'WARNING in nl_get_nocolons: nocolons applies to all domains. First arg ignored.')
8583 ENDIF
8584 nocolons = model_config_rec%nocolons
8585 RETURN
8586 END SUBROUTINE nl_get_nocolons
8587 SUBROUTINE nl_get_time_step ( id_id , time_step )
8588 integer , INTENT(OUT) :: time_step
8589 INTEGER id_id
8590 CHARACTER*80 emess
8591 IF ( id_id .NE. 1 ) THEN
8592 call wrf_debug(1,&
8593 'WARNING in nl_get_time_step: time_step applies to all domains. First arg ignored.')
8594 ENDIF
8595 time_step = model_config_rec%time_step
8596 RETURN
8597 END SUBROUTINE nl_get_time_step
8598 SUBROUTINE nl_get_time_step_fract_num ( id_id , time_step_fract_num )
8599 integer , INTENT(OUT) :: time_step_fract_num
8600 INTEGER id_id
8601 CHARACTER*80 emess
8602 IF ( id_id .NE. 1 ) THEN
8603 call wrf_debug(1,&
8604 'WARNING in nl_get_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
8605 ENDIF
8606 time_step_fract_num = model_config_rec%time_step_fract_num
8607 RETURN
8608 END SUBROUTINE nl_get_time_step_fract_num
8609 SUBROUTINE nl_get_time_step_fract_den ( id_id , time_step_fract_den )
8610 integer , INTENT(OUT) :: time_step_fract_den
8611 INTEGER id_id
8612 CHARACTER*80 emess
8613 IF ( id_id .NE. 1 ) THEN
8614 call wrf_debug(1,&
8615 'WARNING in nl_get_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
8616 ENDIF
8617 time_step_fract_den = model_config_rec%time_step_fract_den
8618 RETURN
8619 END SUBROUTINE nl_get_time_step_fract_den
8620 SUBROUTINE nl_get_max_dom ( id_id , max_dom )
8621 integer , INTENT(OUT) :: max_dom
8622 INTEGER id_id
8623 CHARACTER*80 emess
8624 IF ( id_id .NE. 1 ) THEN
8625 call wrf_debug(1,&
8626 'WARNING in nl_get_max_dom: max_dom applies to all domains. First arg ignored.')
8627 ENDIF
8628 max_dom = model_config_rec%max_dom
8629 RETURN
8630 END SUBROUTINE nl_get_max_dom
8631 SUBROUTINE nl_get_s_we ( id_id , s_we )
8632 integer , INTENT(OUT) :: s_we
8633 INTEGER id_id
8634 CHARACTER*80 emess
8635 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8636 WRITE(emess,*)'nl_get_s_we: Out of range domain number: ',id_id
8637 CALL wrf_error_fatal(emess)
8638 ENDIF
8639 s_we = model_config_rec%s_we(id_id)
8640 RETURN
8641 END SUBROUTINE nl_get_s_we
8642 SUBROUTINE nl_get_e_we ( id_id , e_we )
8643 integer , INTENT(OUT) :: e_we
8644 INTEGER id_id
8645 CHARACTER*80 emess
8646 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8647 WRITE(emess,*)'nl_get_e_we: Out of range domain number: ',id_id
8648 CALL wrf_error_fatal(emess)
8649 ENDIF
8650 e_we = model_config_rec%e_we(id_id)
8651 RETURN
8652 END SUBROUTINE nl_get_e_we
8653 SUBROUTINE nl_get_s_sn ( id_id , s_sn )
8654 integer , INTENT(OUT) :: s_sn
8655 INTEGER id_id
8656 CHARACTER*80 emess
8657 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8658 WRITE(emess,*)'nl_get_s_sn: Out of range domain number: ',id_id
8659 CALL wrf_error_fatal(emess)
8660 ENDIF
8661 s_sn = model_config_rec%s_sn(id_id)
8662 RETURN
8663 END SUBROUTINE nl_get_s_sn
8664 SUBROUTINE nl_get_e_sn ( id_id , e_sn )
8665 integer , INTENT(OUT) :: e_sn
8666 INTEGER id_id
8667 CHARACTER*80 emess
8668 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8669 WRITE(emess,*)'nl_get_e_sn: Out of range domain number: ',id_id
8670 CALL wrf_error_fatal(emess)
8671 ENDIF
8672 e_sn = model_config_rec%e_sn(id_id)
8673 RETURN
8674 END SUBROUTINE nl_get_e_sn
8675 SUBROUTINE nl_get_s_vert ( id_id , s_vert )
8676 integer , INTENT(OUT) :: s_vert
8677 INTEGER id_id
8678 CHARACTER*80 emess
8679 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8680 WRITE(emess,*)'nl_get_s_vert: Out of range domain number: ',id_id
8681 CALL wrf_error_fatal(emess)
8682 ENDIF
8683 s_vert = model_config_rec%s_vert(id_id)
8684 RETURN
8685 END SUBROUTINE nl_get_s_vert
8686 SUBROUTINE nl_get_e_vert ( id_id , e_vert )
8687 integer , INTENT(OUT) :: e_vert
8688 INTEGER id_id
8689 CHARACTER*80 emess
8690 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8691 WRITE(emess,*)'nl_get_e_vert: Out of range domain number: ',id_id
8692 CALL wrf_error_fatal(emess)
8693 ENDIF
8694 e_vert = model_config_rec%e_vert(id_id)
8695 RETURN
8696 END SUBROUTINE nl_get_e_vert
8697 SUBROUTINE nl_get_num_metgrid_levels ( id_id , num_metgrid_levels )
8698 integer , INTENT(OUT) :: num_metgrid_levels
8699 INTEGER id_id
8700 CHARACTER*80 emess
8701 IF ( id_id .NE. 1 ) THEN
8702 call wrf_debug(1,&
8703 'WARNING in nl_get_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
8704 ENDIF
8705 num_metgrid_levels = model_config_rec%num_metgrid_levels
8706 RETURN
8707 END SUBROUTINE nl_get_num_metgrid_levels
8708 SUBROUTINE nl_get_p_top_requested ( id_id , p_top_requested )
8709 real , INTENT(OUT) :: p_top_requested
8710 INTEGER id_id
8711 CHARACTER*80 emess
8712 IF ( id_id .NE. 1 ) THEN
8713 call wrf_debug(1,&
8714 'WARNING in nl_get_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
8715 ENDIF
8716 p_top_requested = model_config_rec%p_top_requested
8717 RETURN
8718 END SUBROUTINE nl_get_p_top_requested
8719 SUBROUTINE nl_get_interp_type ( id_id , interp_type )
8720 integer , INTENT(OUT) :: interp_type
8721 INTEGER id_id
8722 CHARACTER*80 emess
8723 IF ( id_id .NE. 1 ) THEN
8724 call wrf_debug(1,&
8725 'WARNING in nl_get_interp_type: interp_type applies to all domains. First arg ignored.')
8726 ENDIF
8727 interp_type = model_config_rec%interp_type
8728 RETURN
8729 END SUBROUTINE nl_get_interp_type
8730 SUBROUTINE nl_get_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
8731 logical , INTENT(OUT) :: lowest_lev_from_sfc
8732 INTEGER id_id
8733 CHARACTER*80 emess
8734 IF ( id_id .NE. 1 ) THEN
8735 call wrf_debug(1,&
8736 'WARNING in nl_get_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
8737 ENDIF
8738 lowest_lev_from_sfc = model_config_rec%lowest_lev_from_sfc
8739 RETURN
8740 END SUBROUTINE nl_get_lowest_lev_from_sfc
8741 SUBROUTINE nl_get_lagrange_order ( id_id , lagrange_order )
8742 integer , INTENT(OUT) :: lagrange_order
8743 INTEGER id_id
8744 CHARACTER*80 emess
8745 IF ( id_id .NE. 1 ) THEN
8746 call wrf_debug(1,&
8747 'WARNING in nl_get_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
8748 ENDIF
8749 lagrange_order = model_config_rec%lagrange_order
8750 RETURN
8751 END SUBROUTINE nl_get_lagrange_order
8752 SUBROUTINE nl_get_dx ( id_id , dx )
8753 real , INTENT(OUT) :: dx
8754 INTEGER id_id
8755 CHARACTER*80 emess
8756 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8757 WRITE(emess,*)'nl_get_dx: Out of range domain number: ',id_id
8758 CALL wrf_error_fatal(emess)
8759 ENDIF
8760 dx = model_config_rec%dx(id_id)
8761 RETURN
8762 END SUBROUTINE nl_get_dx
8763 SUBROUTINE nl_get_dy ( id_id , dy )
8764 real , INTENT(OUT) :: dy
8765 INTEGER id_id
8766 CHARACTER*80 emess
8767 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8768 WRITE(emess,*)'nl_get_dy: Out of range domain number: ',id_id
8769 CALL wrf_error_fatal(emess)
8770 ENDIF
8771 dy = model_config_rec%dy(id_id)
8772 RETURN
8773 END SUBROUTINE nl_get_dy
8774 SUBROUTINE nl_get_grid_id ( id_id , grid_id )
8775 integer , INTENT(OUT) :: grid_id
8776 INTEGER id_id
8777 CHARACTER*80 emess
8778 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8779 WRITE(emess,*)'nl_get_grid_id: Out of range domain number: ',id_id
8780 CALL wrf_error_fatal(emess)
8781 ENDIF
8782 grid_id = model_config_rec%grid_id(id_id)
8783 RETURN
8784 END SUBROUTINE nl_get_grid_id
8785 SUBROUTINE nl_get_parent_id ( id_id , parent_id )
8786 integer , INTENT(OUT) :: parent_id
8787 INTEGER id_id
8788 CHARACTER*80 emess
8789 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8790 WRITE(emess,*)'nl_get_parent_id: Out of range domain number: ',id_id
8791 CALL wrf_error_fatal(emess)
8792 ENDIF
8793 parent_id = model_config_rec%parent_id(id_id)
8794 RETURN
8795 END SUBROUTINE nl_get_parent_id
8796 SUBROUTINE nl_get_i_parent_start ( id_id , i_parent_start )
8797 integer , INTENT(OUT) :: i_parent_start
8798 INTEGER id_id
8799 CHARACTER*80 emess
8800 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8801 WRITE(emess,*)'nl_get_i_parent_start: Out of range domain number: ',id_id
8802 CALL wrf_error_fatal(emess)
8803 ENDIF
8804 i_parent_start = model_config_rec%i_parent_start(id_id)
8805 RETURN
8806 END SUBROUTINE nl_get_i_parent_start
8807 SUBROUTINE nl_get_j_parent_start ( id_id , j_parent_start )
8808 integer , INTENT(OUT) :: j_parent_start
8809 INTEGER id_id
8810 CHARACTER*80 emess
8811 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8812 WRITE(emess,*)'nl_get_j_parent_start: Out of range domain number: ',id_id
8813 CALL wrf_error_fatal(emess)
8814 ENDIF
8815 j_parent_start = model_config_rec%j_parent_start(id_id)
8816 RETURN
8817 END SUBROUTINE nl_get_j_parent_start
8818 SUBROUTINE nl_get_parent_grid_ratio ( id_id , parent_grid_ratio )
8819 integer , INTENT(OUT) :: parent_grid_ratio
8820 INTEGER id_id
8821 CHARACTER*80 emess
8822 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8823 WRITE(emess,*)'nl_get_parent_grid_ratio: Out of range domain number: ',id_id
8824 CALL wrf_error_fatal(emess)
8825 ENDIF
8826 parent_grid_ratio = model_config_rec%parent_grid_ratio(id_id)
8827 RETURN
8828 END SUBROUTINE nl_get_parent_grid_ratio
8829 SUBROUTINE nl_get_parent_time_step_ratio ( id_id , parent_time_step_ratio )
8830 integer , INTENT(OUT) :: parent_time_step_ratio
8831 INTEGER id_id
8832 CHARACTER*80 emess
8833 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8834 WRITE(emess,*)'nl_get_parent_time_step_ratio: Out of range domain number: ',id_id
8835 CALL wrf_error_fatal(emess)
8836 ENDIF
8837 parent_time_step_ratio = model_config_rec%parent_time_step_ratio(id_id)
8838 RETURN
8839 END SUBROUTINE nl_get_parent_time_step_ratio
8840 SUBROUTINE nl_get_feedback ( id_id , feedback )
8841 integer , INTENT(OUT) :: feedback
8842 INTEGER id_id
8843 CHARACTER*80 emess
8844 IF ( id_id .NE. 1 ) THEN
8845 call wrf_debug(1,&
8846 'WARNING in nl_get_feedback: feedback applies to all domains. First arg ignored.')
8847 ENDIF
8848 feedback = model_config_rec%feedback
8849 RETURN
8850 END SUBROUTINE nl_get_feedback
8851 SUBROUTINE nl_get_smooth_option ( id_id , smooth_option )
8852 integer , INTENT(OUT) :: smooth_option
8853 INTEGER id_id
8854 CHARACTER*80 emess
8855 IF ( id_id .NE. 1 ) THEN
8856 call wrf_debug(1,&
8857 'WARNING in nl_get_smooth_option: smooth_option applies to all domains. First arg ignored.')
8858 ENDIF
8859 smooth_option = model_config_rec%smooth_option
8860 RETURN
8861 END SUBROUTINE nl_get_smooth_option
8862 SUBROUTINE nl_get_blend_width ( id_id , blend_width )
8863 integer , INTENT(OUT) :: blend_width
8864 INTEGER id_id
8865 CHARACTER*80 emess
8866 IF ( id_id .NE. 1 ) THEN
8867 call wrf_debug(1,&
8868 'WARNING in nl_get_blend_width: blend_width applies to all domains. First arg ignored.')
8869 ENDIF
8870 blend_width = model_config_rec%blend_width
8871 RETURN
8872 END SUBROUTINE nl_get_blend_width
8873 SUBROUTINE nl_get_ztop ( id_id , ztop )
8874 real , INTENT(OUT) :: ztop
8875 INTEGER id_id
8876 CHARACTER*80 emess
8877 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8878 WRITE(emess,*)'nl_get_ztop: Out of range domain number: ',id_id
8879 CALL wrf_error_fatal(emess)
8880 ENDIF
8881 ztop = model_config_rec%ztop(id_id)
8882 RETURN
8883 END SUBROUTINE nl_get_ztop
8884 SUBROUTINE nl_get_moad_grid_ratio ( id_id , moad_grid_ratio )
8885 integer , INTENT(OUT) :: moad_grid_ratio
8886 INTEGER id_id
8887 CHARACTER*80 emess
8888 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8889 WRITE(emess,*)'nl_get_moad_grid_ratio: Out of range domain number: ',id_id
8890 CALL wrf_error_fatal(emess)
8891 ENDIF
8892 moad_grid_ratio = model_config_rec%moad_grid_ratio(id_id)
8893 RETURN
8894 END SUBROUTINE nl_get_moad_grid_ratio
8895 SUBROUTINE nl_get_moad_time_step_ratio ( id_id , moad_time_step_ratio )
8896 integer , INTENT(OUT) :: moad_time_step_ratio
8897 INTEGER id_id
8898 CHARACTER*80 emess
8899 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8900 WRITE(emess,*)'nl_get_moad_time_step_ratio: Out of range domain number: ',id_id
8901 CALL wrf_error_fatal(emess)
8902 ENDIF
8903 moad_time_step_ratio = model_config_rec%moad_time_step_ratio(id_id)
8904 RETURN
8905 END SUBROUTINE nl_get_moad_time_step_ratio
8906 SUBROUTINE nl_get_shw ( id_id , shw )
8907 integer , INTENT(OUT) :: shw
8908 INTEGER id_id
8909 CHARACTER*80 emess
8910 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8911 WRITE(emess,*)'nl_get_shw: Out of range domain number: ',id_id
8912 CALL wrf_error_fatal(emess)
8913 ENDIF
8914 shw = model_config_rec%shw(id_id)
8915 RETURN
8916 END SUBROUTINE nl_get_shw
8917 SUBROUTINE nl_get_tile_sz_x ( id_id , tile_sz_x )
8918 integer , INTENT(OUT) :: tile_sz_x
8919 INTEGER id_id
8920 CHARACTER*80 emess
8921 IF ( id_id .NE. 1 ) THEN
8922 call wrf_debug(1,&
8923 'WARNING in nl_get_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
8924 ENDIF
8925 tile_sz_x = model_config_rec%tile_sz_x
8926 RETURN
8927 END SUBROUTINE nl_get_tile_sz_x
8928 SUBROUTINE nl_get_tile_sz_y ( id_id , tile_sz_y )
8929 integer , INTENT(OUT) :: tile_sz_y
8930 INTEGER id_id
8931 CHARACTER*80 emess
8932 IF ( id_id .NE. 1 ) THEN
8933 call wrf_debug(1,&
8934 'WARNING in nl_get_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
8935 ENDIF
8936 tile_sz_y = model_config_rec%tile_sz_y
8937 RETURN
8938 END SUBROUTINE nl_get_tile_sz_y
8939 SUBROUTINE nl_get_numtiles ( id_id , numtiles )
8940 integer , INTENT(OUT) :: numtiles
8941 INTEGER id_id
8942 CHARACTER*80 emess
8943 IF ( id_id .NE. 1 ) THEN
8944 call wrf_debug(1,&
8945 'WARNING in nl_get_numtiles: numtiles applies to all domains. First arg ignored.')
8946 ENDIF
8947 numtiles = model_config_rec%numtiles
8948 RETURN
8949 END SUBROUTINE nl_get_numtiles
8950 SUBROUTINE nl_get_nproc_x ( id_id , nproc_x )
8951 integer , INTENT(OUT) :: nproc_x
8952 INTEGER id_id
8953 CHARACTER*80 emess
8954 IF ( id_id .NE. 1 ) THEN
8955 call wrf_debug(1,&
8956 'WARNING in nl_get_nproc_x: nproc_x applies to all domains. First arg ignored.')
8957 ENDIF
8958 nproc_x = model_config_rec%nproc_x
8959 RETURN
8960 END SUBROUTINE nl_get_nproc_x
8961 SUBROUTINE nl_get_nproc_y ( id_id , nproc_y )
8962 integer , INTENT(OUT) :: nproc_y
8963 INTEGER id_id
8964 CHARACTER*80 emess
8965 IF ( id_id .NE. 1 ) THEN
8966 call wrf_debug(1,&
8967 'WARNING in nl_get_nproc_y: nproc_y applies to all domains. First arg ignored.')
8968 ENDIF
8969 nproc_y = model_config_rec%nproc_y
8970 RETURN
8971 END SUBROUTINE nl_get_nproc_y
8972 SUBROUTINE nl_get_irand ( id_id , irand )
8973 integer , INTENT(OUT) :: irand
8974 INTEGER id_id
8975 CHARACTER*80 emess
8976 IF ( id_id .NE. 1 ) THEN
8977 call wrf_debug(1,&
8978 'WARNING in nl_get_irand: irand applies to all domains. First arg ignored.')
8979 ENDIF
8980 irand = model_config_rec%irand
8981 RETURN
8982 END SUBROUTINE nl_get_irand
8983 SUBROUTINE nl_get_dt ( id_id , dt )
8984 real , INTENT(OUT) :: dt
8985 INTEGER id_id
8986 CHARACTER*80 emess
8987 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
8988 WRITE(emess,*)'nl_get_dt: Out of range domain number: ',id_id
8989 CALL wrf_error_fatal(emess)
8990 ENDIF
8991 dt = model_config_rec%dt(id_id)
8992 RETURN
8993 END SUBROUTINE nl_get_dt
8994 SUBROUTINE nl_get_num_moves ( id_id , num_moves )
8995 integer , INTENT(OUT) :: num_moves
8996 INTEGER id_id
8997 CHARACTER*80 emess
8998 IF ( id_id .NE. 1 ) THEN
8999 call wrf_debug(1,&
9000 'WARNING in nl_get_num_moves: num_moves applies to all domains. First arg ignored.')
9001 ENDIF
9002 num_moves = model_config_rec%num_moves
9003 RETURN
9004 END SUBROUTINE nl_get_num_moves
9005 SUBROUTINE nl_get_vortex_interval ( id_id , vortex_interval )
9006 integer , INTENT(OUT) :: vortex_interval
9007 INTEGER id_id
9008 CHARACTER*80 emess
9009 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9010 WRITE(emess,*)'nl_get_vortex_interval: Out of range domain number: ',id_id
9011 CALL wrf_error_fatal(emess)
9012 ENDIF
9013 vortex_interval = model_config_rec%vortex_interval(id_id)
9014 RETURN
9015 END SUBROUTINE nl_get_vortex_interval
9016 SUBROUTINE nl_get_max_vortex_speed ( id_id , max_vortex_speed )
9017 integer , INTENT(OUT) :: max_vortex_speed
9018 INTEGER id_id
9019 CHARACTER*80 emess
9020 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9021 WRITE(emess,*)'nl_get_max_vortex_speed: Out of range domain number: ',id_id
9022 CALL wrf_error_fatal(emess)
9023 ENDIF
9024 max_vortex_speed = model_config_rec%max_vortex_speed(id_id)
9025 RETURN
9026 END SUBROUTINE nl_get_max_vortex_speed
9027 SUBROUTINE nl_get_corral_dist ( id_id , corral_dist )
9028 integer , INTENT(OUT) :: corral_dist
9029 INTEGER id_id
9030 CHARACTER*80 emess
9031 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9032 WRITE(emess,*)'nl_get_corral_dist: Out of range domain number: ',id_id
9033 CALL wrf_error_fatal(emess)
9034 ENDIF
9035 corral_dist = model_config_rec%corral_dist(id_id)
9036 RETURN
9037 END SUBROUTINE nl_get_corral_dist
9038 SUBROUTINE nl_get_move_id ( id_id , move_id )
9039 integer , INTENT(OUT) :: move_id
9040 INTEGER id_id
9041 CHARACTER*80 emess
9042 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9043 WRITE(emess,*)'nl_get_move_id: Out of range move number: ',id_id
9044 CALL wrf_error_fatal(emess)
9045 ENDIF
9046 move_id = model_config_rec%move_id(id_id)
9047 RETURN
9048 END SUBROUTINE nl_get_move_id
9049 SUBROUTINE nl_get_move_interval ( id_id , move_interval )
9050 integer , INTENT(OUT) :: move_interval
9051 INTEGER id_id
9052 CHARACTER*80 emess
9053 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9054 WRITE(emess,*)'nl_get_move_interval: Out of range move number: ',id_id
9055 CALL wrf_error_fatal(emess)
9056 ENDIF
9057 move_interval = model_config_rec%move_interval(id_id)
9058 RETURN
9059 END SUBROUTINE nl_get_move_interval
9060 SUBROUTINE nl_get_move_cd_x ( id_id , move_cd_x )
9061 integer , INTENT(OUT) :: move_cd_x
9062 INTEGER id_id
9063 CHARACTER*80 emess
9064 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9065 WRITE(emess,*)'nl_get_move_cd_x: Out of range move number: ',id_id
9066 CALL wrf_error_fatal(emess)
9067 ENDIF
9068 move_cd_x = model_config_rec%move_cd_x(id_id)
9069 RETURN
9070 END SUBROUTINE nl_get_move_cd_x
9071 SUBROUTINE nl_get_move_cd_y ( id_id , move_cd_y )
9072 integer , INTENT(OUT) :: move_cd_y
9073 INTEGER id_id
9074 CHARACTER*80 emess
9075 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
9076 WRITE(emess,*)'nl_get_move_cd_y: Out of range move number: ',id_id
9077 CALL wrf_error_fatal(emess)
9078 ENDIF
9079 move_cd_y = model_config_rec%move_cd_y(id_id)
9080 RETURN
9081 END SUBROUTINE nl_get_move_cd_y
9082 SUBROUTINE nl_get_swap_x ( id_id , swap_x )
9083 logical , INTENT(OUT) :: swap_x
9084 INTEGER id_id
9085 CHARACTER*80 emess
9086 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9087 WRITE(emess,*)'nl_get_swap_x: Out of range domain number: ',id_id
9088 CALL wrf_error_fatal(emess)
9089 ENDIF
9090 swap_x = model_config_rec%swap_x(id_id)
9091 RETURN
9092 END SUBROUTINE nl_get_swap_x
9093 SUBROUTINE nl_get_swap_y ( id_id , swap_y )
9094 logical , INTENT(OUT) :: swap_y
9095 INTEGER id_id
9096 CHARACTER*80 emess
9097 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9098 WRITE(emess,*)'nl_get_swap_y: Out of range domain number: ',id_id
9099 CALL wrf_error_fatal(emess)
9100 ENDIF
9101 swap_y = model_config_rec%swap_y(id_id)
9102 RETURN
9103 END SUBROUTINE nl_get_swap_y
9104 SUBROUTINE nl_get_cycle_x ( id_id , cycle_x )
9105 logical , INTENT(OUT) :: cycle_x
9106 INTEGER id_id
9107 CHARACTER*80 emess
9108 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9109 WRITE(emess,*)'nl_get_cycle_x: Out of range domain number: ',id_id
9110 CALL wrf_error_fatal(emess)
9111 ENDIF
9112 cycle_x = model_config_rec%cycle_x(id_id)
9113 RETURN
9114 END SUBROUTINE nl_get_cycle_x
9115 SUBROUTINE nl_get_cycle_y ( id_id , cycle_y )
9116 logical , INTENT(OUT) :: cycle_y
9117 INTEGER id_id
9118 CHARACTER*80 emess
9119 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9120 WRITE(emess,*)'nl_get_cycle_y: Out of range domain number: ',id_id
9121 CALL wrf_error_fatal(emess)
9122 ENDIF
9123 cycle_y = model_config_rec%cycle_y(id_id)
9124 RETURN
9125 END SUBROUTINE nl_get_cycle_y
9126 SUBROUTINE nl_get_reorder_mesh ( id_id , reorder_mesh )
9127 logical , INTENT(OUT) :: reorder_mesh
9128 INTEGER id_id
9129 CHARACTER*80 emess
9130 IF ( id_id .NE. 1 ) THEN
9131 call wrf_debug(1,&
9132 'WARNING in nl_get_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
9133 ENDIF
9134 reorder_mesh = model_config_rec%reorder_mesh
9135 RETURN
9136 END SUBROUTINE nl_get_reorder_mesh
9137 SUBROUTINE nl_get_perturb_input ( id_id , perturb_input )
9138 logical , INTENT(OUT) :: perturb_input
9139 INTEGER id_id
9140 CHARACTER*80 emess
9141 IF ( id_id .NE. 1 ) THEN
9142 call wrf_debug(1,&
9143 'WARNING in nl_get_perturb_input: perturb_input applies to all domains. First arg ignored.')
9144 ENDIF
9145 perturb_input = model_config_rec%perturb_input
9146 RETURN
9147 END SUBROUTINE nl_get_perturb_input
9148 SUBROUTINE nl_get_eta_levels ( id_id , eta_levels )
9149 real , INTENT(OUT) :: eta_levels
9150 INTEGER id_id
9151 CHARACTER*80 emess
9152 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
9153 WRITE(emess,*)'nl_get_eta_levels: Out of range eta_level number: ',id_id
9154 CALL wrf_error_fatal(emess)
9155 ENDIF
9156 eta_levels = model_config_rec%eta_levels(id_id)
9157 RETURN
9158 END SUBROUTINE nl_get_eta_levels
9159 SUBROUTINE nl_get_max_dz ( id_id , max_dz )
9160 real , INTENT(OUT) :: max_dz
9161 INTEGER id_id
9162 CHARACTER*80 emess
9163 IF ( id_id .NE. 1 ) THEN
9164 call wrf_debug(1,&
9165 'WARNING in nl_get_max_dz: max_dz applies to all domains. First arg ignored.')
9166 ENDIF
9167 max_dz = model_config_rec%max_dz
9168 RETURN
9169 END SUBROUTINE nl_get_max_dz
9170 SUBROUTINE nl_get_mp_physics ( id_id , mp_physics )
9171 integer , INTENT(OUT) :: mp_physics
9172 INTEGER id_id
9173 CHARACTER*80 emess
9174 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9175 WRITE(emess,*)'nl_get_mp_physics: Out of range domain number: ',id_id
9176 CALL wrf_error_fatal(emess)
9177 ENDIF
9178 mp_physics = model_config_rec%mp_physics(id_id)
9179 RETURN
9180 END SUBROUTINE nl_get_mp_physics
9181 SUBROUTINE nl_get_ra_lw_physics ( id_id , ra_lw_physics )
9182 integer , INTENT(OUT) :: ra_lw_physics
9183 INTEGER id_id
9184 CHARACTER*80 emess
9185 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9186 WRITE(emess,*)'nl_get_ra_lw_physics: Out of range domain number: ',id_id
9187 CALL wrf_error_fatal(emess)
9188 ENDIF
9189 ra_lw_physics = model_config_rec%ra_lw_physics(id_id)
9190 RETURN
9191 END SUBROUTINE nl_get_ra_lw_physics
9192 SUBROUTINE nl_get_ra_sw_physics ( id_id , ra_sw_physics )
9193 integer , INTENT(OUT) :: ra_sw_physics
9194 INTEGER id_id
9195 CHARACTER*80 emess
9196 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9197 WRITE(emess,*)'nl_get_ra_sw_physics: Out of range domain number: ',id_id
9198 CALL wrf_error_fatal(emess)
9199 ENDIF
9200 ra_sw_physics = model_config_rec%ra_sw_physics(id_id)
9201 RETURN
9202 END SUBROUTINE nl_get_ra_sw_physics
9203 SUBROUTINE nl_get_radt ( id_id , radt )
9204 real , INTENT(OUT) :: radt
9205 INTEGER id_id
9206 CHARACTER*80 emess
9207 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9208 WRITE(emess,*)'nl_get_radt: Out of range domain number: ',id_id
9209 CALL wrf_error_fatal(emess)
9210 ENDIF
9211 radt = model_config_rec%radt(id_id)
9212 RETURN
9213 END SUBROUTINE nl_get_radt
9214 SUBROUTINE nl_get_sf_sfclay_physics ( id_id , sf_sfclay_physics )
9215 integer , INTENT(OUT) :: sf_sfclay_physics
9216 INTEGER id_id
9217 CHARACTER*80 emess
9218 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9219 WRITE(emess,*)'nl_get_sf_sfclay_physics: Out of range domain number: ',id_id
9220 CALL wrf_error_fatal(emess)
9221 ENDIF
9222 sf_sfclay_physics = model_config_rec%sf_sfclay_physics(id_id)
9223 RETURN
9224 END SUBROUTINE nl_get_sf_sfclay_physics
9225 SUBROUTINE nl_get_sf_surface_physics ( id_id , sf_surface_physics )
9226 integer , INTENT(OUT) :: sf_surface_physics
9227 INTEGER id_id
9228 CHARACTER*80 emess
9229 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9230 WRITE(emess,*)'nl_get_sf_surface_physics: Out of range domain number: ',id_id
9231 CALL wrf_error_fatal(emess)
9232 ENDIF
9233 sf_surface_physics = model_config_rec%sf_surface_physics(id_id)
9234 RETURN
9235 END SUBROUTINE nl_get_sf_surface_physics
9236 SUBROUTINE nl_get_bl_pbl_physics ( id_id , bl_pbl_physics )
9237 integer , INTENT(OUT) :: bl_pbl_physics
9238 INTEGER id_id
9239 CHARACTER*80 emess
9240 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9241 WRITE(emess,*)'nl_get_bl_pbl_physics: Out of range domain number: ',id_id
9242 CALL wrf_error_fatal(emess)
9243 ENDIF
9244 bl_pbl_physics = model_config_rec%bl_pbl_physics(id_id)
9245 RETURN
9246 END SUBROUTINE nl_get_bl_pbl_physics
9247 SUBROUTINE nl_get_bldt ( id_id , bldt )
9248 real , INTENT(OUT) :: bldt
9249 INTEGER id_id
9250 CHARACTER*80 emess
9251 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9252 WRITE(emess,*)'nl_get_bldt: Out of range domain number: ',id_id
9253 CALL wrf_error_fatal(emess)
9254 ENDIF
9255 bldt = model_config_rec%bldt(id_id)
9256 RETURN
9257 END SUBROUTINE nl_get_bldt
9258 SUBROUTINE nl_get_cu_physics ( id_id , cu_physics )
9259 integer , INTENT(OUT) :: cu_physics
9260 INTEGER id_id
9261 CHARACTER*80 emess
9262 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9263 WRITE(emess,*)'nl_get_cu_physics: Out of range domain number: ',id_id
9264 CALL wrf_error_fatal(emess)
9265 ENDIF
9266 cu_physics = model_config_rec%cu_physics(id_id)
9267 RETURN
9268 END SUBROUTINE nl_get_cu_physics
9269 SUBROUTINE nl_get_cudt ( id_id , cudt )
9270 real , INTENT(OUT) :: cudt
9271 INTEGER id_id
9272 CHARACTER*80 emess
9273 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9274 WRITE(emess,*)'nl_get_cudt: Out of range domain number: ',id_id
9275 CALL wrf_error_fatal(emess)
9276 ENDIF
9277 cudt = model_config_rec%cudt(id_id)
9278 RETURN
9279 END SUBROUTINE nl_get_cudt
9280 SUBROUTINE nl_get_gsmdt ( id_id , gsmdt )
9281 real , INTENT(OUT) :: gsmdt
9282 INTEGER id_id
9283 CHARACTER*80 emess
9284 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9285 WRITE(emess,*)'nl_get_gsmdt: Out of range domain number: ',id_id
9286 CALL wrf_error_fatal(emess)
9287 ENDIF
9288 gsmdt = model_config_rec%gsmdt(id_id)
9289 RETURN
9290 END SUBROUTINE nl_get_gsmdt
9291 SUBROUTINE nl_get_isfflx ( id_id , isfflx )
9292 integer , INTENT(OUT) :: isfflx
9293 INTEGER id_id
9294 CHARACTER*80 emess
9295 IF ( id_id .NE. 1 ) THEN
9296 call wrf_debug(1,&
9297 'WARNING in nl_get_isfflx: isfflx applies to all domains. First arg ignored.')
9298 ENDIF
9299 isfflx = model_config_rec%isfflx
9300 RETURN
9301 END SUBROUTINE nl_get_isfflx
9302 SUBROUTINE nl_get_ifsnow ( id_id , ifsnow )
9303 integer , INTENT(OUT) :: ifsnow
9304 INTEGER id_id
9305 CHARACTER*80 emess
9306 IF ( id_id .NE. 1 ) THEN
9307 call wrf_debug(1,&
9308 'WARNING in nl_get_ifsnow: ifsnow applies to all domains. First arg ignored.')
9309 ENDIF
9310 ifsnow = model_config_rec%ifsnow
9311 RETURN
9312 END SUBROUTINE nl_get_ifsnow
9313 SUBROUTINE nl_get_icloud ( id_id , icloud )
9314 integer , INTENT(OUT) :: icloud
9315 INTEGER id_id
9316 CHARACTER*80 emess
9317 IF ( id_id .NE. 1 ) THEN
9318 call wrf_debug(1,&
9319 'WARNING in nl_get_icloud: icloud applies to all domains. First arg ignored.')
9320 ENDIF
9321 icloud = model_config_rec%icloud
9322 RETURN
9323 END SUBROUTINE nl_get_icloud
9324 SUBROUTINE nl_get_swrad_scat ( id_id , swrad_scat )
9325 real , INTENT(OUT) :: swrad_scat
9326 INTEGER id_id
9327 CHARACTER*80 emess
9328 IF ( id_id .NE. 1 ) THEN
9329 call wrf_debug(1,&
9330 'WARNING in nl_get_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
9331 ENDIF
9332 swrad_scat = model_config_rec%swrad_scat
9333 RETURN
9334 END SUBROUTINE nl_get_swrad_scat
9335 SUBROUTINE nl_get_surface_input_source ( id_id , surface_input_source )
9336 integer , INTENT(OUT) :: surface_input_source
9337 INTEGER id_id
9338 CHARACTER*80 emess
9339 IF ( id_id .NE. 1 ) THEN
9340 call wrf_debug(1,&
9341 'WARNING in nl_get_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
9342 ENDIF
9343 surface_input_source = model_config_rec%surface_input_source
9344 RETURN
9345 END SUBROUTINE nl_get_surface_input_source
9346 SUBROUTINE nl_get_num_soil_layers ( id_id , num_soil_layers )
9347 integer , INTENT(OUT) :: num_soil_layers
9348 INTEGER id_id
9349 CHARACTER*80 emess
9350 IF ( id_id .NE. 1 ) THEN
9351 call wrf_debug(1,&
9352 'WARNING in nl_get_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
9353 ENDIF
9354 num_soil_layers = model_config_rec%num_soil_layers
9355 RETURN
9356 END SUBROUTINE nl_get_num_soil_layers
9357 SUBROUTINE nl_get_num_months ( id_id , num_months )
9358 integer , INTENT(OUT) :: num_months
9359 INTEGER id_id
9360 CHARACTER*80 emess
9361 IF ( id_id .NE. 1 ) THEN
9362 call wrf_debug(1,&
9363 'WARNING in nl_get_num_months: num_months applies to all domains. First arg ignored.')
9364 ENDIF
9365 num_months = model_config_rec%num_months
9366 RETURN
9367 END SUBROUTINE nl_get_num_months
9368 SUBROUTINE nl_get_maxiens ( id_id , maxiens )
9369 integer , INTENT(OUT) :: maxiens
9370 INTEGER id_id
9371 CHARACTER*80 emess
9372 IF ( id_id .NE. 1 ) THEN
9373 call wrf_debug(1,&
9374 'WARNING in nl_get_maxiens: maxiens applies to all domains. First arg ignored.')
9375 ENDIF
9376 maxiens = model_config_rec%maxiens
9377 RETURN
9378 END SUBROUTINE nl_get_maxiens
9379 SUBROUTINE nl_get_maxens ( id_id , maxens )
9380 integer , INTENT(OUT) :: maxens
9381 INTEGER id_id
9382 CHARACTER*80 emess
9383 IF ( id_id .NE. 1 ) THEN
9384 call wrf_debug(1,&
9385 'WARNING in nl_get_maxens: maxens applies to all domains. First arg ignored.')
9386 ENDIF
9387 maxens = model_config_rec%maxens
9388 RETURN
9389 END SUBROUTINE nl_get_maxens
9390 SUBROUTINE nl_get_maxens2 ( id_id , maxens2 )
9391 integer , INTENT(OUT) :: maxens2
9392 INTEGER id_id
9393 CHARACTER*80 emess
9394 IF ( id_id .NE. 1 ) THEN
9395 call wrf_debug(1,&
9396 'WARNING in nl_get_maxens2: maxens2 applies to all domains. First arg ignored.')
9397 ENDIF
9398 maxens2 = model_config_rec%maxens2
9399 RETURN
9400 END SUBROUTINE nl_get_maxens2
9401 SUBROUTINE nl_get_maxens3 ( id_id , maxens3 )
9402 integer , INTENT(OUT) :: maxens3
9403 INTEGER id_id
9404 CHARACTER*80 emess
9405 IF ( id_id .NE. 1 ) THEN
9406 call wrf_debug(1,&
9407 'WARNING in nl_get_maxens3: maxens3 applies to all domains. First arg ignored.')
9408 ENDIF
9409 maxens3 = model_config_rec%maxens3
9410 RETURN
9411 END SUBROUTINE nl_get_maxens3
9412 SUBROUTINE nl_get_ensdim ( id_id , ensdim )
9413 integer , INTENT(OUT) :: ensdim
9414 INTEGER id_id
9415 CHARACTER*80 emess
9416 IF ( id_id .NE. 1 ) THEN
9417 call wrf_debug(1,&
9418 'WARNING in nl_get_ensdim: ensdim applies to all domains. First arg ignored.')
9419 ENDIF
9420 ensdim = model_config_rec%ensdim
9421 RETURN
9422 END SUBROUTINE nl_get_ensdim
9423 SUBROUTINE nl_get_chem_opt ( id_id , chem_opt )
9424 integer , INTENT(OUT) :: chem_opt
9425 INTEGER id_id
9426 CHARACTER*80 emess
9427 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9428 WRITE(emess,*)'nl_get_chem_opt: Out of range domain number: ',id_id
9429 CALL wrf_error_fatal(emess)
9430 ENDIF
9431 chem_opt = model_config_rec%chem_opt(id_id)
9432 RETURN
9433 END SUBROUTINE nl_get_chem_opt
9434 SUBROUTINE nl_get_num_land_cat ( id_id , num_land_cat )
9435 integer , INTENT(OUT) :: num_land_cat
9436 INTEGER id_id
9437 CHARACTER*80 emess
9438 IF ( id_id .NE. 1 ) THEN
9439 call wrf_debug(1,&
9440 'WARNING in nl_get_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
9441 ENDIF
9442 num_land_cat = model_config_rec%num_land_cat
9443 RETURN
9444 END SUBROUTINE nl_get_num_land_cat
9445 SUBROUTINE nl_get_num_soil_cat ( id_id , num_soil_cat )
9446 integer , INTENT(OUT) :: num_soil_cat
9447 INTEGER id_id
9448 CHARACTER*80 emess
9449 IF ( id_id .NE. 1 ) THEN
9450 call wrf_debug(1,&
9451 'WARNING in nl_get_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
9452 ENDIF
9453 num_soil_cat = model_config_rec%num_soil_cat
9454 RETURN
9455 END SUBROUTINE nl_get_num_soil_cat
9456 SUBROUTINE nl_get_mp_zero_out ( id_id , mp_zero_out )
9457 integer , INTENT(OUT) :: mp_zero_out
9458 INTEGER id_id
9459 CHARACTER*80 emess
9460 IF ( id_id .NE. 1 ) THEN
9461 call wrf_debug(1,&
9462 'WARNING in nl_get_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
9463 ENDIF
9464 mp_zero_out = model_config_rec%mp_zero_out
9465 RETURN
9466 END SUBROUTINE nl_get_mp_zero_out
9467 SUBROUTINE nl_get_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
9468 real , INTENT(OUT) :: mp_zero_out_thresh
9469 INTEGER id_id
9470 CHARACTER*80 emess
9471 IF ( id_id .NE. 1 ) THEN
9472 call wrf_debug(1,&
9473 'WARNING in nl_get_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
9474 ENDIF
9475 mp_zero_out_thresh = model_config_rec%mp_zero_out_thresh
9476 RETURN
9477 END SUBROUTINE nl_get_mp_zero_out_thresh
9478 SUBROUTINE nl_get_seaice_threshold ( id_id , seaice_threshold )
9479 real , INTENT(OUT) :: seaice_threshold
9480 INTEGER id_id
9481 CHARACTER*80 emess
9482 IF ( id_id .NE. 1 ) THEN
9483 call wrf_debug(1,&
9484 'WARNING in nl_get_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
9485 ENDIF
9486 seaice_threshold = model_config_rec%seaice_threshold
9487 RETURN
9488 END SUBROUTINE nl_get_seaice_threshold
9489 SUBROUTINE nl_get_sst_update ( id_id , sst_update )
9490 integer , INTENT(OUT) :: sst_update
9491 INTEGER id_id
9492 CHARACTER*80 emess
9493 IF ( id_id .NE. 1 ) THEN
9494 call wrf_debug(1,&
9495 'WARNING in nl_get_sst_update: sst_update applies to all domains. First arg ignored.')
9496 ENDIF
9497 sst_update = model_config_rec%sst_update
9498 RETURN
9499 END SUBROUTINE nl_get_sst_update
9500 SUBROUTINE nl_get_ucmcall ( id_id , ucmcall )
9501 integer , INTENT(OUT) :: ucmcall
9502 INTEGER id_id
9503 CHARACTER*80 emess
9504 IF ( id_id .NE. 1 ) THEN
9505 call wrf_debug(1,&
9506 'WARNING in nl_get_ucmcall: ucmcall applies to all domains. First arg ignored.')
9507 ENDIF
9508 ucmcall = model_config_rec%ucmcall
9509 RETURN
9510 END SUBROUTINE nl_get_ucmcall
9511 SUBROUTINE nl_get_co2tf ( id_id , co2tf )
9512 integer , INTENT(OUT) :: co2tf
9513 INTEGER id_id
9514 CHARACTER*80 emess
9515 IF ( id_id .NE. 1 ) THEN
9516 call wrf_debug(1,&
9517 'WARNING in nl_get_co2tf: co2tf applies to all domains. First arg ignored.')
9518 ENDIF
9519 co2tf = model_config_rec%co2tf
9520 RETURN
9521 END SUBROUTINE nl_get_co2tf
9522 SUBROUTINE nl_get_ra_call_offset ( id_id , ra_call_offset )
9523 integer , INTENT(OUT) :: ra_call_offset
9524 INTEGER id_id
9525 CHARACTER*80 emess
9526 IF ( id_id .NE. 1 ) THEN
9527 call wrf_debug(1,&
9528 'WARNING in nl_get_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
9529 ENDIF
9530 ra_call_offset = model_config_rec%ra_call_offset
9531 RETURN
9532 END SUBROUTINE nl_get_ra_call_offset
9533 SUBROUTINE nl_get_cam_abs_freq_s ( id_id , cam_abs_freq_s )
9534 real , INTENT(OUT) :: cam_abs_freq_s
9535 INTEGER id_id
9536 CHARACTER*80 emess
9537 IF ( id_id .NE. 1 ) THEN
9538 call wrf_debug(1,&
9539 'WARNING in nl_get_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
9540 ENDIF
9541 cam_abs_freq_s = model_config_rec%cam_abs_freq_s
9542 RETURN
9543 END SUBROUTINE nl_get_cam_abs_freq_s
9544 SUBROUTINE nl_get_levsiz ( id_id , levsiz )
9545 integer , INTENT(OUT) :: levsiz
9546 INTEGER id_id
9547 CHARACTER*80 emess
9548 IF ( id_id .NE. 1 ) THEN
9549 call wrf_debug(1,&
9550 'WARNING in nl_get_levsiz: levsiz applies to all domains. First arg ignored.')
9551 ENDIF
9552 levsiz = model_config_rec%levsiz
9553 RETURN
9554 END SUBROUTINE nl_get_levsiz
9555 SUBROUTINE nl_get_paerlev ( id_id , paerlev )
9556 integer , INTENT(OUT) :: paerlev
9557 INTEGER id_id
9558 CHARACTER*80 emess
9559 IF ( id_id .NE. 1 ) THEN
9560 call wrf_debug(1,&
9561 'WARNING in nl_get_paerlev: paerlev applies to all domains. First arg ignored.')
9562 ENDIF
9563 paerlev = model_config_rec%paerlev
9564 RETURN
9565 END SUBROUTINE nl_get_paerlev
9566 SUBROUTINE nl_get_cam_abs_dim1 ( id_id , cam_abs_dim1 )
9567 integer , INTENT(OUT) :: cam_abs_dim1
9568 INTEGER id_id
9569 CHARACTER*80 emess
9570 IF ( id_id .NE. 1 ) THEN
9571 call wrf_debug(1,&
9572 'WARNING in nl_get_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
9573 ENDIF
9574 cam_abs_dim1 = model_config_rec%cam_abs_dim1
9575 RETURN
9576 END SUBROUTINE nl_get_cam_abs_dim1
9577 SUBROUTINE nl_get_cam_abs_dim2 ( id_id , cam_abs_dim2 )
9578 integer , INTENT(OUT) :: cam_abs_dim2
9579 INTEGER id_id
9580 CHARACTER*80 emess
9581 IF ( id_id .NE. 1 ) THEN
9582 call wrf_debug(1,&
9583 'WARNING in nl_get_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
9584 ENDIF
9585 cam_abs_dim2 = model_config_rec%cam_abs_dim2
9586 RETURN
9587 END SUBROUTINE nl_get_cam_abs_dim2
9588 SUBROUTINE nl_get_fgdt ( id_id , fgdt )
9589 real , INTENT(OUT) :: fgdt
9590 INTEGER id_id
9591 CHARACTER*80 emess
9592 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9593 WRITE(emess,*)'nl_get_fgdt: Out of range domain number: ',id_id
9594 CALL wrf_error_fatal(emess)
9595 ENDIF
9596 fgdt = model_config_rec%fgdt(id_id)
9597 RETURN
9598 END SUBROUTINE nl_get_fgdt
9599 SUBROUTINE nl_get_grid_fdda ( id_id , grid_fdda )
9600 integer , INTENT(OUT) :: grid_fdda
9601 INTEGER id_id
9602 CHARACTER*80 emess
9603 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9604 WRITE(emess,*)'nl_get_grid_fdda: Out of range domain number: ',id_id
9605 CALL wrf_error_fatal(emess)
9606 ENDIF
9607 grid_fdda = model_config_rec%grid_fdda(id_id)
9608 RETURN
9609 END SUBROUTINE nl_get_grid_fdda
9610 SUBROUTINE nl_get_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
9611 integer , INTENT(OUT) :: if_no_pbl_nudging_uv
9612 INTEGER id_id
9613 CHARACTER*80 emess
9614 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9615 WRITE(emess,*)'nl_get_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
9616 CALL wrf_error_fatal(emess)
9617 ENDIF
9618 if_no_pbl_nudging_uv = model_config_rec%if_no_pbl_nudging_uv(id_id)
9619 RETURN
9620 END SUBROUTINE nl_get_if_no_pbl_nudging_uv
9621 SUBROUTINE nl_get_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
9622 integer , INTENT(OUT) :: if_no_pbl_nudging_t
9623 INTEGER id_id
9624 CHARACTER*80 emess
9625 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9626 WRITE(emess,*)'nl_get_if_no_pbl_nudging_t: Out of range domain number: ',id_id
9627 CALL wrf_error_fatal(emess)
9628 ENDIF
9629 if_no_pbl_nudging_t = model_config_rec%if_no_pbl_nudging_t(id_id)
9630 RETURN
9631 END SUBROUTINE nl_get_if_no_pbl_nudging_t
9632 SUBROUTINE nl_get_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
9633 integer , INTENT(OUT) :: if_no_pbl_nudging_q
9634 INTEGER id_id
9635 CHARACTER*80 emess
9636 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9637 WRITE(emess,*)'nl_get_if_no_pbl_nudging_q: Out of range domain number: ',id_id
9638 CALL wrf_error_fatal(emess)
9639 ENDIF
9640 if_no_pbl_nudging_q = model_config_rec%if_no_pbl_nudging_q(id_id)
9641 RETURN
9642 END SUBROUTINE nl_get_if_no_pbl_nudging_q
9643 SUBROUTINE nl_get_if_zfac_uv ( id_id , if_zfac_uv )
9644 integer , INTENT(OUT) :: if_zfac_uv
9645 INTEGER id_id
9646 CHARACTER*80 emess
9647 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9648 WRITE(emess,*)'nl_get_if_zfac_uv: Out of range domain number: ',id_id
9649 CALL wrf_error_fatal(emess)
9650 ENDIF
9651 if_zfac_uv = model_config_rec%if_zfac_uv(id_id)
9652 RETURN
9653 END SUBROUTINE nl_get_if_zfac_uv
9654 SUBROUTINE nl_get_k_zfac_uv ( id_id , k_zfac_uv )
9655 integer , INTENT(OUT) :: k_zfac_uv
9656 INTEGER id_id
9657 CHARACTER*80 emess
9658 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9659 WRITE(emess,*)'nl_get_k_zfac_uv: Out of range domain number: ',id_id
9660 CALL wrf_error_fatal(emess)
9661 ENDIF
9662 k_zfac_uv = model_config_rec%k_zfac_uv(id_id)
9663 RETURN
9664 END SUBROUTINE nl_get_k_zfac_uv
9665 SUBROUTINE nl_get_if_zfac_t ( id_id , if_zfac_t )
9666 integer , INTENT(OUT) :: if_zfac_t
9667 INTEGER id_id
9668 CHARACTER*80 emess
9669 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9670 WRITE(emess,*)'nl_get_if_zfac_t: Out of range domain number: ',id_id
9671 CALL wrf_error_fatal(emess)
9672 ENDIF
9673 if_zfac_t = model_config_rec%if_zfac_t(id_id)
9674 RETURN
9675 END SUBROUTINE nl_get_if_zfac_t
9676 SUBROUTINE nl_get_k_zfac_t ( id_id , k_zfac_t )
9677 integer , INTENT(OUT) :: k_zfac_t
9678 INTEGER id_id
9679 CHARACTER*80 emess
9680 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9681 WRITE(emess,*)'nl_get_k_zfac_t: Out of range domain number: ',id_id
9682 CALL wrf_error_fatal(emess)
9683 ENDIF
9684 k_zfac_t = model_config_rec%k_zfac_t(id_id)
9685 RETURN
9686 END SUBROUTINE nl_get_k_zfac_t
9687 SUBROUTINE nl_get_if_zfac_q ( id_id , if_zfac_q )
9688 integer , INTENT(OUT) :: if_zfac_q
9689 INTEGER id_id
9690 CHARACTER*80 emess
9691 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9692 WRITE(emess,*)'nl_get_if_zfac_q: Out of range domain number: ',id_id
9693 CALL wrf_error_fatal(emess)
9694 ENDIF
9695 if_zfac_q = model_config_rec%if_zfac_q(id_id)
9696 RETURN
9697 END SUBROUTINE nl_get_if_zfac_q
9698 SUBROUTINE nl_get_k_zfac_q ( id_id , k_zfac_q )
9699 integer , INTENT(OUT) :: k_zfac_q
9700 INTEGER id_id
9701 CHARACTER*80 emess
9702 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9703 WRITE(emess,*)'nl_get_k_zfac_q: Out of range domain number: ',id_id
9704 CALL wrf_error_fatal(emess)
9705 ENDIF
9706 k_zfac_q = model_config_rec%k_zfac_q(id_id)
9707 RETURN
9708 END SUBROUTINE nl_get_k_zfac_q
9709 SUBROUTINE nl_get_guv ( id_id , guv )
9710 real , INTENT(OUT) :: guv
9711 INTEGER id_id
9712 CHARACTER*80 emess
9713 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9714 WRITE(emess,*)'nl_get_guv: Out of range domain number: ',id_id
9715 CALL wrf_error_fatal(emess)
9716 ENDIF
9717 guv = model_config_rec%guv(id_id)
9718 RETURN
9719 END SUBROUTINE nl_get_guv
9720 SUBROUTINE nl_get_gt ( id_id , gt )
9721 real , INTENT(OUT) :: gt
9722 INTEGER id_id
9723 CHARACTER*80 emess
9724 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9725 WRITE(emess,*)'nl_get_gt: Out of range domain number: ',id_id
9726 CALL wrf_error_fatal(emess)
9727 ENDIF
9728 gt = model_config_rec%gt(id_id)
9729 RETURN
9730 END SUBROUTINE nl_get_gt
9731 SUBROUTINE nl_get_gq ( id_id , gq )
9732 real , INTENT(OUT) :: gq
9733 INTEGER id_id
9734 CHARACTER*80 emess
9735 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9736 WRITE(emess,*)'nl_get_gq: Out of range domain number: ',id_id
9737 CALL wrf_error_fatal(emess)
9738 ENDIF
9739 gq = model_config_rec%gq(id_id)
9740 RETURN
9741 END SUBROUTINE nl_get_gq
9742 SUBROUTINE nl_get_dtramp_min ( id_id , dtramp_min )
9743 real , INTENT(OUT) :: dtramp_min
9744 INTEGER id_id
9745 CHARACTER*80 emess
9746 IF ( id_id .NE. 1 ) THEN
9747 call wrf_debug(1,&
9748 'WARNING in nl_get_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
9749 ENDIF
9750 dtramp_min = model_config_rec%dtramp_min
9751 RETURN
9752 END SUBROUTINE nl_get_dtramp_min
9753 SUBROUTINE nl_get_if_ramping ( id_id , if_ramping )
9754 integer , INTENT(OUT) :: if_ramping
9755 INTEGER id_id
9756 CHARACTER*80 emess
9757 IF ( id_id .NE. 1 ) THEN
9758 call wrf_debug(1,&
9759 'WARNING in nl_get_if_ramping: if_ramping applies to all domains. First arg ignored.')
9760 ENDIF
9761 if_ramping = model_config_rec%if_ramping
9762 RETURN
9763 END SUBROUTINE nl_get_if_ramping
9764 SUBROUTINE nl_get_obs_nudge_opt ( id_id , obs_nudge_opt )
9765 integer , INTENT(OUT) :: obs_nudge_opt
9766 INTEGER id_id
9767 CHARACTER*80 emess
9768 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9769 WRITE(emess,*)'nl_get_obs_nudge_opt: Out of range domain number: ',id_id
9770 CALL wrf_error_fatal(emess)
9771 ENDIF
9772 obs_nudge_opt = model_config_rec%obs_nudge_opt(id_id)
9773 RETURN
9774 END SUBROUTINE nl_get_obs_nudge_opt
9775 SUBROUTINE nl_get_max_obs ( id_id , max_obs )
9776 integer , INTENT(OUT) :: max_obs
9777 INTEGER id_id
9778 CHARACTER*80 emess
9779 IF ( id_id .NE. 1 ) THEN
9780 call wrf_debug(1,&
9781 'WARNING in nl_get_max_obs: max_obs applies to all domains. First arg ignored.')
9782 ENDIF
9783 max_obs = model_config_rec%max_obs
9784 RETURN
9785 END SUBROUTINE nl_get_max_obs
9786 SUBROUTINE nl_get_nobs_ndg_vars ( id_id , nobs_ndg_vars )
9787 integer , INTENT(OUT) :: nobs_ndg_vars
9788 INTEGER id_id
9789 CHARACTER*80 emess
9790 IF ( id_id .NE. 1 ) THEN
9791 call wrf_debug(1,&
9792 'WARNING in nl_get_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
9793 ENDIF
9794 nobs_ndg_vars = model_config_rec%nobs_ndg_vars
9795 RETURN
9796 END SUBROUTINE nl_get_nobs_ndg_vars
9797 SUBROUTINE nl_get_nobs_err_flds ( id_id , nobs_err_flds )
9798 integer , INTENT(OUT) :: nobs_err_flds
9799 INTEGER id_id
9800 CHARACTER*80 emess
9801 IF ( id_id .NE. 1 ) THEN
9802 call wrf_debug(1,&
9803 'WARNING in nl_get_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
9804 ENDIF
9805 nobs_err_flds = model_config_rec%nobs_err_flds
9806 RETURN
9807 END SUBROUTINE nl_get_nobs_err_flds
9808 SUBROUTINE nl_get_fdda_start ( id_id , fdda_start )
9809 real , INTENT(OUT) :: fdda_start
9810 INTEGER id_id
9811 CHARACTER*80 emess
9812 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9813 WRITE(emess,*)'nl_get_fdda_start: Out of range domain number: ',id_id
9814 CALL wrf_error_fatal(emess)
9815 ENDIF
9816 fdda_start = model_config_rec%fdda_start(id_id)
9817 RETURN
9818 END SUBROUTINE nl_get_fdda_start
9819 SUBROUTINE nl_get_fdda_end ( id_id , fdda_end )
9820 real , INTENT(OUT) :: fdda_end
9821 INTEGER id_id
9822 CHARACTER*80 emess
9823 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9824 WRITE(emess,*)'nl_get_fdda_end: Out of range domain number: ',id_id
9825 CALL wrf_error_fatal(emess)
9826 ENDIF
9827 fdda_end = model_config_rec%fdda_end(id_id)
9828 RETURN
9829 END SUBROUTINE nl_get_fdda_end
9830 SUBROUTINE nl_get_obs_nudge_wind ( id_id , obs_nudge_wind )
9831 integer , INTENT(OUT) :: obs_nudge_wind
9832 INTEGER id_id
9833 CHARACTER*80 emess
9834 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9835 WRITE(emess,*)'nl_get_obs_nudge_wind: Out of range domain number: ',id_id
9836 CALL wrf_error_fatal(emess)
9837 ENDIF
9838 obs_nudge_wind = model_config_rec%obs_nudge_wind(id_id)
9839 RETURN
9840 END SUBROUTINE nl_get_obs_nudge_wind
9841 SUBROUTINE nl_get_obs_coef_wind ( id_id , obs_coef_wind )
9842 real , INTENT(OUT) :: obs_coef_wind
9843 INTEGER id_id
9844 CHARACTER*80 emess
9845 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9846 WRITE(emess,*)'nl_get_obs_coef_wind: Out of range domain number: ',id_id
9847 CALL wrf_error_fatal(emess)
9848 ENDIF
9849 obs_coef_wind = model_config_rec%obs_coef_wind(id_id)
9850 RETURN
9851 END SUBROUTINE nl_get_obs_coef_wind
9852 SUBROUTINE nl_get_obs_nudge_temp ( id_id , obs_nudge_temp )
9853 integer , INTENT(OUT) :: obs_nudge_temp
9854 INTEGER id_id
9855 CHARACTER*80 emess
9856 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9857 WRITE(emess,*)'nl_get_obs_nudge_temp: Out of range domain number: ',id_id
9858 CALL wrf_error_fatal(emess)
9859 ENDIF
9860 obs_nudge_temp = model_config_rec%obs_nudge_temp(id_id)
9861 RETURN
9862 END SUBROUTINE nl_get_obs_nudge_temp
9863 SUBROUTINE nl_get_obs_coef_temp ( id_id , obs_coef_temp )
9864 real , INTENT(OUT) :: obs_coef_temp
9865 INTEGER id_id
9866 CHARACTER*80 emess
9867 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9868 WRITE(emess,*)'nl_get_obs_coef_temp: Out of range domain number: ',id_id
9869 CALL wrf_error_fatal(emess)
9870 ENDIF
9871 obs_coef_temp = model_config_rec%obs_coef_temp(id_id)
9872 RETURN
9873 END SUBROUTINE nl_get_obs_coef_temp
9874 SUBROUTINE nl_get_obs_nudge_mois ( id_id , obs_nudge_mois )
9875 integer , INTENT(OUT) :: obs_nudge_mois
9876 INTEGER id_id
9877 CHARACTER*80 emess
9878 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9879 WRITE(emess,*)'nl_get_obs_nudge_mois: Out of range domain number: ',id_id
9880 CALL wrf_error_fatal(emess)
9881 ENDIF
9882 obs_nudge_mois = model_config_rec%obs_nudge_mois(id_id)
9883 RETURN
9884 END SUBROUTINE nl_get_obs_nudge_mois
9885 SUBROUTINE nl_get_obs_coef_mois ( id_id , obs_coef_mois )
9886 real , INTENT(OUT) :: obs_coef_mois
9887 INTEGER id_id
9888 CHARACTER*80 emess
9889 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9890 WRITE(emess,*)'nl_get_obs_coef_mois: Out of range domain number: ',id_id
9891 CALL wrf_error_fatal(emess)
9892 ENDIF
9893 obs_coef_mois = model_config_rec%obs_coef_mois(id_id)
9894 RETURN
9895 END SUBROUTINE nl_get_obs_coef_mois
9896 SUBROUTINE nl_get_obs_nudge_pstr ( id_id , obs_nudge_pstr )
9897 integer , INTENT(OUT) :: obs_nudge_pstr
9898 INTEGER id_id
9899 CHARACTER*80 emess
9900 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9901 WRITE(emess,*)'nl_get_obs_nudge_pstr: Out of range domain number: ',id_id
9902 CALL wrf_error_fatal(emess)
9903 ENDIF
9904 obs_nudge_pstr = model_config_rec%obs_nudge_pstr(id_id)
9905 RETURN
9906 END SUBROUTINE nl_get_obs_nudge_pstr
9907 SUBROUTINE nl_get_obs_coef_pstr ( id_id , obs_coef_pstr )
9908 real , INTENT(OUT) :: obs_coef_pstr
9909 INTEGER id_id
9910 CHARACTER*80 emess
9911 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9912 WRITE(emess,*)'nl_get_obs_coef_pstr: Out of range domain number: ',id_id
9913 CALL wrf_error_fatal(emess)
9914 ENDIF
9915 obs_coef_pstr = model_config_rec%obs_coef_pstr(id_id)
9916 RETURN
9917 END SUBROUTINE nl_get_obs_coef_pstr
9918 SUBROUTINE nl_get_obs_rinxy ( id_id , obs_rinxy )
9919 real , INTENT(OUT) :: obs_rinxy
9920 INTEGER id_id
9921 CHARACTER*80 emess
9922 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
9923 WRITE(emess,*)'nl_get_obs_rinxy: Out of range domain number: ',id_id
9924 CALL wrf_error_fatal(emess)
9925 ENDIF
9926 obs_rinxy = model_config_rec%obs_rinxy(id_id)
9927 RETURN
9928 END SUBROUTINE nl_get_obs_rinxy
9929 SUBROUTINE nl_get_obs_rinsig ( id_id , obs_rinsig )
9930 real , INTENT(OUT) :: obs_rinsig
9931 INTEGER id_id
9932 CHARACTER*80 emess
9933 IF ( id_id .NE. 1 ) THEN
9934 call wrf_debug(1,&
9935 'WARNING in nl_get_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
9936 ENDIF
9937 obs_rinsig = model_config_rec%obs_rinsig
9938 RETURN
9939 END SUBROUTINE nl_get_obs_rinsig
9940 SUBROUTINE nl_get_obs_twindo ( id_id , obs_twindo )
9941 real , INTENT(OUT) :: obs_twindo
9942 INTEGER id_id
9943 CHARACTER*80 emess
9944 IF ( id_id .NE. 1 ) THEN
9945 call wrf_debug(1,&
9946 'WARNING in nl_get_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
9947 ENDIF
9948 obs_twindo = model_config_rec%obs_twindo
9949 RETURN
9950 END SUBROUTINE nl_get_obs_twindo
9951 SUBROUTINE nl_get_obs_npfi ( id_id , obs_npfi )
9952 integer , INTENT(OUT) :: obs_npfi
9953 INTEGER id_id
9954 CHARACTER*80 emess
9955 IF ( id_id .NE. 1 ) THEN
9956 call wrf_debug(1,&
9957 'WARNING in nl_get_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
9958 ENDIF
9959 obs_npfi = model_config_rec%obs_npfi
9960 RETURN
9961 END SUBROUTINE nl_get_obs_npfi
9962 SUBROUTINE nl_get_obs_ionf ( id_id , obs_ionf )
9963 integer , INTENT(OUT) :: obs_ionf
9964 INTEGER id_id
9965 CHARACTER*80 emess
9966 IF ( id_id .NE. 1 ) THEN
9967 call wrf_debug(1,&
9968 'WARNING in nl_get_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
9969 ENDIF
9970 obs_ionf = model_config_rec%obs_ionf
9971 RETURN
9972 END SUBROUTINE nl_get_obs_ionf
9973 SUBROUTINE nl_get_obs_idynin ( id_id , obs_idynin )
9974 integer , INTENT(OUT) :: obs_idynin
9975 INTEGER id_id
9976 CHARACTER*80 emess
9977 IF ( id_id .NE. 1 ) THEN
9978 call wrf_debug(1,&
9979 'WARNING in nl_get_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
9980 ENDIF
9981 obs_idynin = model_config_rec%obs_idynin
9982 RETURN
9983 END SUBROUTINE nl_get_obs_idynin
9984 SUBROUTINE nl_get_obs_dtramp ( id_id , obs_dtramp )
9985 real , INTENT(OUT) :: obs_dtramp
9986 INTEGER id_id
9987 CHARACTER*80 emess
9988 IF ( id_id .NE. 1 ) THEN
9989 call wrf_debug(1,&
9990 'WARNING in nl_get_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
9991 ENDIF
9992 obs_dtramp = model_config_rec%obs_dtramp
9993 RETURN
9994 END SUBROUTINE nl_get_obs_dtramp
9995 SUBROUTINE nl_get_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
9996 logical , INTENT(OUT) :: obs_ipf_in4dob
9997 INTEGER id_id
9998 CHARACTER*80 emess
9999 IF ( id_id .NE. 1 ) THEN
10000 call wrf_debug(1,&
10001 'WARNING in nl_get_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
10002 ENDIF
10003 obs_ipf_in4dob = model_config_rec%obs_ipf_in4dob
10004 RETURN
10005 END SUBROUTINE nl_get_obs_ipf_in4dob
10006 SUBROUTINE nl_get_dyn_opt ( id_id , dyn_opt )
10007 integer , INTENT(OUT) :: dyn_opt
10008 INTEGER id_id
10009 CHARACTER*80 emess
10010 IF ( id_id .NE. 1 ) THEN
10011 call wrf_debug(1,&
10012 'WARNING in nl_get_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
10013 ENDIF
10014 dyn_opt = model_config_rec%dyn_opt
10015 RETURN
10016 END SUBROUTINE nl_get_dyn_opt
10017 SUBROUTINE nl_get_rk_ord ( id_id , rk_ord )
10018 integer , INTENT(OUT) :: rk_ord
10019 INTEGER id_id
10020 CHARACTER*80 emess
10021 IF ( id_id .NE. 1 ) THEN
10022 call wrf_debug(1,&
10023 'WARNING in nl_get_rk_ord: rk_ord applies to all domains. First arg ignored.')
10024 ENDIF
10025 rk_ord = model_config_rec%rk_ord
10026 RETURN
10027 END SUBROUTINE nl_get_rk_ord
10028 SUBROUTINE nl_get_w_damping ( id_id , w_damping )
10029 integer , INTENT(OUT) :: w_damping
10030 INTEGER id_id
10031 CHARACTER*80 emess
10032 IF ( id_id .NE. 1 ) THEN
10033 call wrf_debug(1,&
10034 'WARNING in nl_get_w_damping: w_damping applies to all domains. First arg ignored.')
10035 ENDIF
10036 w_damping = model_config_rec%w_damping
10037 RETURN
10038 END SUBROUTINE nl_get_w_damping
10039 SUBROUTINE nl_get_diff_opt ( id_id , diff_opt )
10040 integer , INTENT(OUT) :: diff_opt
10041 INTEGER id_id
10042 CHARACTER*80 emess
10043 IF ( id_id .NE. 1 ) THEN
10044 call wrf_debug(1,&
10045 'WARNING in nl_get_diff_opt: diff_opt applies to all domains. First arg ignored.')
10046 ENDIF
10047 diff_opt = model_config_rec%diff_opt
10048 RETURN
10049 END SUBROUTINE nl_get_diff_opt
10050 SUBROUTINE nl_get_km_opt ( id_id , km_opt )
10051 integer , INTENT(OUT) :: km_opt
10052 INTEGER id_id
10053 CHARACTER*80 emess
10054 IF ( id_id .NE. 1 ) THEN
10055 call wrf_debug(1,&
10056 'WARNING in nl_get_km_opt: km_opt applies to all domains. First arg ignored.')
10057 ENDIF
10058 km_opt = model_config_rec%km_opt
10059 RETURN
10060 END SUBROUTINE nl_get_km_opt
10061 SUBROUTINE nl_get_damp_opt ( id_id , damp_opt )
10062 integer , INTENT(OUT) :: damp_opt
10063 INTEGER id_id
10064 CHARACTER*80 emess
10065 IF ( id_id .NE. 1 ) THEN
10066 call wrf_debug(1,&
10067 'WARNING in nl_get_damp_opt: damp_opt applies to all domains. First arg ignored.')
10068 ENDIF
10069 damp_opt = model_config_rec%damp_opt
10070 RETURN
10071 END SUBROUTINE nl_get_damp_opt
10072 SUBROUTINE nl_get_zdamp ( id_id , zdamp )
10073 real , INTENT(OUT) :: zdamp
10074 INTEGER id_id
10075 CHARACTER*80 emess
10076 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10077 WRITE(emess,*)'nl_get_zdamp: Out of range domain number: ',id_id
10078 CALL wrf_error_fatal(emess)
10079 ENDIF
10080 zdamp = model_config_rec%zdamp(id_id)
10081 RETURN
10082 END SUBROUTINE nl_get_zdamp
10083 SUBROUTINE nl_get_dampcoef ( id_id , dampcoef )
10084 real , INTENT(OUT) :: dampcoef
10085 INTEGER id_id
10086 CHARACTER*80 emess
10087 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10088 WRITE(emess,*)'nl_get_dampcoef: Out of range domain number: ',id_id
10089 CALL wrf_error_fatal(emess)
10090 ENDIF
10091 dampcoef = model_config_rec%dampcoef(id_id)
10092 RETURN
10093 END SUBROUTINE nl_get_dampcoef
10094 SUBROUTINE nl_get_khdif ( id_id , khdif )
10095 real , INTENT(OUT) :: khdif
10096 INTEGER id_id
10097 CHARACTER*80 emess
10098 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10099 WRITE(emess,*)'nl_get_khdif: Out of range domain number: ',id_id
10100 CALL wrf_error_fatal(emess)
10101 ENDIF
10102 khdif = model_config_rec%khdif(id_id)
10103 RETURN
10104 END SUBROUTINE nl_get_khdif
10105 SUBROUTINE nl_get_kvdif ( id_id , kvdif )
10106 real , INTENT(OUT) :: kvdif
10107 INTEGER id_id
10108 CHARACTER*80 emess
10109 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10110 WRITE(emess,*)'nl_get_kvdif: Out of range domain number: ',id_id
10111 CALL wrf_error_fatal(emess)
10112 ENDIF
10113 kvdif = model_config_rec%kvdif(id_id)
10114 RETURN
10115 END SUBROUTINE nl_get_kvdif
10116 SUBROUTINE nl_get_diff_6th_factor ( id_id , diff_6th_factor )
10117 real , INTENT(OUT) :: diff_6th_factor
10118 INTEGER id_id
10119 CHARACTER*80 emess
10120 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10121 WRITE(emess,*)'nl_get_diff_6th_factor: Out of range domain number: ',id_id
10122 CALL wrf_error_fatal(emess)
10123 ENDIF
10124 diff_6th_factor = model_config_rec%diff_6th_factor(id_id)
10125 RETURN
10126 END SUBROUTINE nl_get_diff_6th_factor
10127 SUBROUTINE nl_get_diff_6th_opt ( id_id , diff_6th_opt )
10128 integer , INTENT(OUT) :: diff_6th_opt
10129 INTEGER id_id
10130 CHARACTER*80 emess
10131 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10132 WRITE(emess,*)'nl_get_diff_6th_opt: Out of range domain number: ',id_id
10133 CALL wrf_error_fatal(emess)
10134 ENDIF
10135 diff_6th_opt = model_config_rec%diff_6th_opt(id_id)
10136 RETURN
10137 END SUBROUTINE nl_get_diff_6th_opt
10138 SUBROUTINE nl_get_smdiv ( id_id , smdiv )
10139 real , INTENT(OUT) :: smdiv
10140 INTEGER id_id
10141 CHARACTER*80 emess
10142 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10143 WRITE(emess,*)'nl_get_smdiv: Out of range domain number: ',id_id
10144 CALL wrf_error_fatal(emess)
10145 ENDIF
10146 smdiv = model_config_rec%smdiv(id_id)
10147 RETURN
10148 END SUBROUTINE nl_get_smdiv
10149 SUBROUTINE nl_get_emdiv ( id_id , emdiv )
10150 real , INTENT(OUT) :: emdiv
10151 INTEGER id_id
10152 CHARACTER*80 emess
10153 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10154 WRITE(emess,*)'nl_get_emdiv: Out of range domain number: ',id_id
10155 CALL wrf_error_fatal(emess)
10156 ENDIF
10157 emdiv = model_config_rec%emdiv(id_id)
10158 RETURN
10159 END SUBROUTINE nl_get_emdiv
10160 SUBROUTINE nl_get_epssm ( id_id , epssm )
10161 real , INTENT(OUT) :: epssm
10162 INTEGER id_id
10163 CHARACTER*80 emess
10164 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10165 WRITE(emess,*)'nl_get_epssm: Out of range domain number: ',id_id
10166 CALL wrf_error_fatal(emess)
10167 ENDIF
10168 epssm = model_config_rec%epssm(id_id)
10169 RETURN
10170 END SUBROUTINE nl_get_epssm
10171 SUBROUTINE nl_get_non_hydrostatic ( id_id , non_hydrostatic )
10172 logical , INTENT(OUT) :: non_hydrostatic
10173 INTEGER id_id
10174 CHARACTER*80 emess
10175 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10176 WRITE(emess,*)'nl_get_non_hydrostatic: Out of range domain number: ',id_id
10177 CALL wrf_error_fatal(emess)
10178 ENDIF
10179 non_hydrostatic = model_config_rec%non_hydrostatic(id_id)
10180 RETURN
10181 END SUBROUTINE nl_get_non_hydrostatic
10182 SUBROUTINE nl_get_time_step_sound ( id_id , time_step_sound )
10183 integer , INTENT(OUT) :: time_step_sound
10184 INTEGER id_id
10185 CHARACTER*80 emess
10186 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10187 WRITE(emess,*)'nl_get_time_step_sound: Out of range domain number: ',id_id
10188 CALL wrf_error_fatal(emess)
10189 ENDIF
10190 time_step_sound = model_config_rec%time_step_sound(id_id)
10191 RETURN
10192 END SUBROUTINE nl_get_time_step_sound
10193 SUBROUTINE nl_get_h_mom_adv_order ( id_id , h_mom_adv_order )
10194 integer , INTENT(OUT) :: h_mom_adv_order
10195 INTEGER id_id
10196 CHARACTER*80 emess
10197 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10198 WRITE(emess,*)'nl_get_h_mom_adv_order: Out of range domain number: ',id_id
10199 CALL wrf_error_fatal(emess)
10200 ENDIF
10201 h_mom_adv_order = model_config_rec%h_mom_adv_order(id_id)
10202 RETURN
10203 END SUBROUTINE nl_get_h_mom_adv_order
10204 SUBROUTINE nl_get_v_mom_adv_order ( id_id , v_mom_adv_order )
10205 integer , INTENT(OUT) :: v_mom_adv_order
10206 INTEGER id_id
10207 CHARACTER*80 emess
10208 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10209 WRITE(emess,*)'nl_get_v_mom_adv_order: Out of range domain number: ',id_id
10210 CALL wrf_error_fatal(emess)
10211 ENDIF
10212 v_mom_adv_order = model_config_rec%v_mom_adv_order(id_id)
10213 RETURN
10214 END SUBROUTINE nl_get_v_mom_adv_order
10215 SUBROUTINE nl_get_h_sca_adv_order ( id_id , h_sca_adv_order )
10216 integer , INTENT(OUT) :: h_sca_adv_order
10217 INTEGER id_id
10218 CHARACTER*80 emess
10219 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10220 WRITE(emess,*)'nl_get_h_sca_adv_order: Out of range domain number: ',id_id
10221 CALL wrf_error_fatal(emess)
10222 ENDIF
10223 h_sca_adv_order = model_config_rec%h_sca_adv_order(id_id)
10224 RETURN
10225 END SUBROUTINE nl_get_h_sca_adv_order
10226 SUBROUTINE nl_get_v_sca_adv_order ( id_id , v_sca_adv_order )
10227 integer , INTENT(OUT) :: v_sca_adv_order
10228 INTEGER id_id
10229 CHARACTER*80 emess
10230 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10231 WRITE(emess,*)'nl_get_v_sca_adv_order: Out of range domain number: ',id_id
10232 CALL wrf_error_fatal(emess)
10233 ENDIF
10234 v_sca_adv_order = model_config_rec%v_sca_adv_order(id_id)
10235 RETURN
10236 END SUBROUTINE nl_get_v_sca_adv_order
10237 SUBROUTINE nl_get_pd_moist ( id_id , pd_moist )
10238 logical , INTENT(OUT) :: pd_moist
10239 INTEGER id_id
10240 CHARACTER*80 emess
10241 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10242 WRITE(emess,*)'nl_get_pd_moist: Out of range domain number: ',id_id
10243 CALL wrf_error_fatal(emess)
10244 ENDIF
10245 pd_moist = model_config_rec%pd_moist(id_id)
10246 RETURN
10247 END SUBROUTINE nl_get_pd_moist
10248 SUBROUTINE nl_get_pd_chem ( id_id , pd_chem )
10249 logical , INTENT(OUT) :: pd_chem
10250 INTEGER id_id
10251 CHARACTER*80 emess
10252 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10253 WRITE(emess,*)'nl_get_pd_chem: Out of range domain number: ',id_id
10254 CALL wrf_error_fatal(emess)
10255 ENDIF
10256 pd_chem = model_config_rec%pd_chem(id_id)
10257 RETURN
10258 END SUBROUTINE nl_get_pd_chem
10259 SUBROUTINE nl_get_pd_scalar ( id_id , pd_scalar )
10260 logical , INTENT(OUT) :: pd_scalar
10261 INTEGER id_id
10262 CHARACTER*80 emess
10263 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10264 WRITE(emess,*)'nl_get_pd_scalar: Out of range domain number: ',id_id
10265 CALL wrf_error_fatal(emess)
10266 ENDIF
10267 pd_scalar = model_config_rec%pd_scalar(id_id)
10268 RETURN
10269 END SUBROUTINE nl_get_pd_scalar
10270 SUBROUTINE nl_get_pd_tke ( id_id , pd_tke )
10271 logical , INTENT(OUT) :: pd_tke
10272 INTEGER id_id
10273 CHARACTER*80 emess
10274 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10275 WRITE(emess,*)'nl_get_pd_tke: Out of range domain number: ',id_id
10276 CALL wrf_error_fatal(emess)
10277 ENDIF
10278 pd_tke = model_config_rec%pd_tke(id_id)
10279 RETURN
10280 END SUBROUTINE nl_get_pd_tke
10281 SUBROUTINE nl_get_top_radiation ( id_id , top_radiation )
10282 logical , INTENT(OUT) :: top_radiation
10283 INTEGER id_id
10284 CHARACTER*80 emess
10285 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10286 WRITE(emess,*)'nl_get_top_radiation: Out of range domain number: ',id_id
10287 CALL wrf_error_fatal(emess)
10288 ENDIF
10289 top_radiation = model_config_rec%top_radiation(id_id)
10290 RETURN
10291 END SUBROUTINE nl_get_top_radiation
10292 SUBROUTINE nl_get_mix_cr_len ( id_id , mix_cr_len )
10293 real , INTENT(OUT) :: mix_cr_len
10294 INTEGER id_id
10295 CHARACTER*80 emess
10296 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10297 WRITE(emess,*)'nl_get_mix_cr_len: Out of range domain number: ',id_id
10298 CALL wrf_error_fatal(emess)
10299 ENDIF
10300 mix_cr_len = model_config_rec%mix_cr_len(id_id)
10301 RETURN
10302 END SUBROUTINE nl_get_mix_cr_len
10303 SUBROUTINE nl_get_tke_upper_bound ( id_id , tke_upper_bound )
10304 real , INTENT(OUT) :: tke_upper_bound
10305 INTEGER id_id
10306 CHARACTER*80 emess
10307 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10308 WRITE(emess,*)'nl_get_tke_upper_bound: Out of range domain number: ',id_id
10309 CALL wrf_error_fatal(emess)
10310 ENDIF
10311 tke_upper_bound = model_config_rec%tke_upper_bound(id_id)
10312 RETURN
10313 END SUBROUTINE nl_get_tke_upper_bound
10314 SUBROUTINE nl_get_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
10315 real , INTENT(OUT) :: kh_tke_upper_bound
10316 INTEGER id_id
10317 CHARACTER*80 emess
10318 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10319 WRITE(emess,*)'nl_get_kh_tke_upper_bound: Out of range domain number: ',id_id
10320 CALL wrf_error_fatal(emess)
10321 ENDIF
10322 kh_tke_upper_bound = model_config_rec%kh_tke_upper_bound(id_id)
10323 RETURN
10324 END SUBROUTINE nl_get_kh_tke_upper_bound
10325 SUBROUTINE nl_get_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
10326 real , INTENT(OUT) :: kv_tke_upper_bound
10327 INTEGER id_id
10328 CHARACTER*80 emess
10329 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10330 WRITE(emess,*)'nl_get_kv_tke_upper_bound: Out of range domain number: ',id_id
10331 CALL wrf_error_fatal(emess)
10332 ENDIF
10333 kv_tke_upper_bound = model_config_rec%kv_tke_upper_bound(id_id)
10334 RETURN
10335 END SUBROUTINE nl_get_kv_tke_upper_bound
10336 SUBROUTINE nl_get_tke_drag_coefficient ( id_id , tke_drag_coefficient )
10337 real , INTENT(OUT) :: tke_drag_coefficient
10338 INTEGER id_id
10339 CHARACTER*80 emess
10340 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10341 WRITE(emess,*)'nl_get_tke_drag_coefficient: Out of range domain number: ',id_id
10342 CALL wrf_error_fatal(emess)
10343 ENDIF
10344 tke_drag_coefficient = model_config_rec%tke_drag_coefficient(id_id)
10345 RETURN
10346 END SUBROUTINE nl_get_tke_drag_coefficient
10347 SUBROUTINE nl_get_tke_heat_flux ( id_id , tke_heat_flux )
10348 real , INTENT(OUT) :: tke_heat_flux
10349 INTEGER id_id
10350 CHARACTER*80 emess
10351 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10352 WRITE(emess,*)'nl_get_tke_heat_flux: Out of range domain number: ',id_id
10353 CALL wrf_error_fatal(emess)
10354 ENDIF
10355 tke_heat_flux = model_config_rec%tke_heat_flux(id_id)
10356 RETURN
10357 END SUBROUTINE nl_get_tke_heat_flux
10358 SUBROUTINE nl_get_pert_coriolis ( id_id , pert_coriolis )
10359 logical , INTENT(OUT) :: pert_coriolis
10360 INTEGER id_id
10361 CHARACTER*80 emess
10362 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10363 WRITE(emess,*)'nl_get_pert_coriolis: Out of range domain number: ',id_id
10364 CALL wrf_error_fatal(emess)
10365 ENDIF
10366 pert_coriolis = model_config_rec%pert_coriolis(id_id)
10367 RETURN
10368 END SUBROUTINE nl_get_pert_coriolis
10369 SUBROUTINE nl_get_mix_full_fields ( id_id , mix_full_fields )
10370 logical , INTENT(OUT) :: mix_full_fields
10371 INTEGER id_id
10372 CHARACTER*80 emess
10373 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10374 WRITE(emess,*)'nl_get_mix_full_fields: Out of range domain number: ',id_id
10375 CALL wrf_error_fatal(emess)
10376 ENDIF
10377 mix_full_fields = model_config_rec%mix_full_fields(id_id)
10378 RETURN
10379 END SUBROUTINE nl_get_mix_full_fields
10380 SUBROUTINE nl_get_base_pres ( id_id , base_pres )
10381 real , INTENT(OUT) :: base_pres
10382 INTEGER id_id
10383 CHARACTER*80 emess
10384 IF ( id_id .NE. 1 ) THEN
10385 call wrf_debug(1,&
10386 'WARNING in nl_get_base_pres: base_pres applies to all domains. First arg ignored.')
10387 ENDIF
10388 base_pres = model_config_rec%base_pres
10389 RETURN
10390 END SUBROUTINE nl_get_base_pres
10391 SUBROUTINE nl_get_base_temp ( id_id , base_temp )
10392 real , INTENT(OUT) :: base_temp
10393 INTEGER id_id
10394 CHARACTER*80 emess
10395 IF ( id_id .NE. 1 ) THEN
10396 call wrf_debug(1,&
10397 'WARNING in nl_get_base_temp: base_temp applies to all domains. First arg ignored.')
10398 ENDIF
10399 base_temp = model_config_rec%base_temp
10400 RETURN
10401 END SUBROUTINE nl_get_base_temp
10402 SUBROUTINE nl_get_base_lapse ( id_id , base_lapse )
10403 real , INTENT(OUT) :: base_lapse
10404 INTEGER id_id
10405 CHARACTER*80 emess
10406 IF ( id_id .NE. 1 ) THEN
10407 call wrf_debug(1,&
10408 'WARNING in nl_get_base_lapse: base_lapse applies to all domains. First arg ignored.')
10409 ENDIF
10410 base_lapse = model_config_rec%base_lapse
10411 RETURN
10412 END SUBROUTINE nl_get_base_lapse
10413 SUBROUTINE nl_get_jcdfi_use ( id_id , jcdfi_use )
10414 logical , INTENT(OUT) :: jcdfi_use
10415 INTEGER id_id
10416 CHARACTER*80 emess
10417 IF ( id_id .NE. 1 ) THEN
10418 call wrf_debug(1,&
10419 'WARNING in nl_get_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
10420 ENDIF
10421 jcdfi_use = model_config_rec%jcdfi_use
10422 RETURN
10423 END SUBROUTINE nl_get_jcdfi_use
10424 SUBROUTINE nl_get_jcdfi_tauc ( id_id , jcdfi_tauc )
10425 real , INTENT(OUT) :: jcdfi_tauc
10426 INTEGER id_id
10427 CHARACTER*80 emess
10428 IF ( id_id .NE. 1 ) THEN
10429 call wrf_debug(1,&
10430 'WARNING in nl_get_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
10431 ENDIF
10432 jcdfi_tauc = model_config_rec%jcdfi_tauc
10433 RETURN
10434 END SUBROUTINE nl_get_jcdfi_tauc
10435 SUBROUTINE nl_get_jcdfi_gama ( id_id , jcdfi_gama )
10436 real , INTENT(OUT) :: jcdfi_gama
10437 INTEGER id_id
10438 CHARACTER*80 emess
10439 IF ( id_id .NE. 1 ) THEN
10440 call wrf_debug(1,&
10441 'WARNING in nl_get_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
10442 ENDIF
10443 jcdfi_gama = model_config_rec%jcdfi_gama
10444 RETURN
10445 END SUBROUTINE nl_get_jcdfi_gama
10446 SUBROUTINE nl_get_jcdfi_error_wind ( id_id , jcdfi_error_wind )
10447 real , INTENT(OUT) :: jcdfi_error_wind
10448 INTEGER id_id
10449 CHARACTER*80 emess
10450 IF ( id_id .NE. 1 ) THEN
10451 call wrf_debug(1,&
10452 'WARNING in nl_get_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
10453 ENDIF
10454 jcdfi_error_wind = model_config_rec%jcdfi_error_wind
10455 RETURN
10456 END SUBROUTINE nl_get_jcdfi_error_wind
10457 SUBROUTINE nl_get_jcdfi_error_t ( id_id , jcdfi_error_t )
10458 real , INTENT(OUT) :: jcdfi_error_t
10459 INTEGER id_id
10460 CHARACTER*80 emess
10461 IF ( id_id .NE. 1 ) THEN
10462 call wrf_debug(1,&
10463 'WARNING in nl_get_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
10464 ENDIF
10465 jcdfi_error_t = model_config_rec%jcdfi_error_t
10466 RETURN
10467 END SUBROUTINE nl_get_jcdfi_error_t
10468 SUBROUTINE nl_get_jcdfi_error_q ( id_id , jcdfi_error_q )
10469 real , INTENT(OUT) :: jcdfi_error_q
10470 INTEGER id_id
10471 CHARACTER*80 emess
10472 IF ( id_id .NE. 1 ) THEN
10473 call wrf_debug(1,&
10474 'WARNING in nl_get_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
10475 ENDIF
10476 jcdfi_error_q = model_config_rec%jcdfi_error_q
10477 RETURN
10478 END SUBROUTINE nl_get_jcdfi_error_q
10479 SUBROUTINE nl_get_jcdfi_error_mu ( id_id , jcdfi_error_mu )
10480 real , INTENT(OUT) :: jcdfi_error_mu
10481 INTEGER id_id
10482 CHARACTER*80 emess
10483 IF ( id_id .NE. 1 ) THEN
10484 call wrf_debug(1,&
10485 'WARNING in nl_get_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
10486 ENDIF
10487 jcdfi_error_mu = model_config_rec%jcdfi_error_mu
10488 RETURN
10489 END SUBROUTINE nl_get_jcdfi_error_mu
10490 SUBROUTINE nl_get_spec_bdy_width ( id_id , spec_bdy_width )
10491 integer , INTENT(OUT) :: spec_bdy_width
10492 INTEGER id_id
10493 CHARACTER*80 emess
10494 IF ( id_id .NE. 1 ) THEN
10495 call wrf_debug(1,&
10496 'WARNING in nl_get_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
10497 ENDIF
10498 spec_bdy_width = model_config_rec%spec_bdy_width
10499 RETURN
10500 END SUBROUTINE nl_get_spec_bdy_width
10501 SUBROUTINE nl_get_spec_zone ( id_id , spec_zone )
10502 integer , INTENT(OUT) :: spec_zone
10503 INTEGER id_id
10504 CHARACTER*80 emess
10505 IF ( id_id .NE. 1 ) THEN
10506 call wrf_debug(1,&
10507 'WARNING in nl_get_spec_zone: spec_zone applies to all domains. First arg ignored.')
10508 ENDIF
10509 spec_zone = model_config_rec%spec_zone
10510 RETURN
10511 END SUBROUTINE nl_get_spec_zone
10512 SUBROUTINE nl_get_relax_zone ( id_id , relax_zone )
10513 integer , INTENT(OUT) :: relax_zone
10514 INTEGER id_id
10515 CHARACTER*80 emess
10516 IF ( id_id .NE. 1 ) THEN
10517 call wrf_debug(1,&
10518 'WARNING in nl_get_relax_zone: relax_zone applies to all domains. First arg ignored.')
10519 ENDIF
10520 relax_zone = model_config_rec%relax_zone
10521 RETURN
10522 END SUBROUTINE nl_get_relax_zone
10523 SUBROUTINE nl_get_specified ( id_id , specified )
10524 logical , INTENT(OUT) :: specified
10525 INTEGER id_id
10526 CHARACTER*80 emess
10527 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10528 WRITE(emess,*)'nl_get_specified: Out of range domain number: ',id_id
10529 CALL wrf_error_fatal(emess)
10530 ENDIF
10531 specified = model_config_rec%specified(id_id)
10532 RETURN
10533 END SUBROUTINE nl_get_specified
10534 SUBROUTINE nl_get_periodic_x ( id_id , periodic_x )
10535 logical , INTENT(OUT) :: periodic_x
10536 INTEGER id_id
10537 CHARACTER*80 emess
10538 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10539 WRITE(emess,*)'nl_get_periodic_x: Out of range domain number: ',id_id
10540 CALL wrf_error_fatal(emess)
10541 ENDIF
10542 periodic_x = model_config_rec%periodic_x(id_id)
10543 RETURN
10544 END SUBROUTINE nl_get_periodic_x
10545 SUBROUTINE nl_get_symmetric_xs ( id_id , symmetric_xs )
10546 logical , INTENT(OUT) :: symmetric_xs
10547 INTEGER id_id
10548 CHARACTER*80 emess
10549 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10550 WRITE(emess,*)'nl_get_symmetric_xs: Out of range domain number: ',id_id
10551 CALL wrf_error_fatal(emess)
10552 ENDIF
10553 symmetric_xs = model_config_rec%symmetric_xs(id_id)
10554 RETURN
10555 END SUBROUTINE nl_get_symmetric_xs
10556 SUBROUTINE nl_get_symmetric_xe ( id_id , symmetric_xe )
10557 logical , INTENT(OUT) :: symmetric_xe
10558 INTEGER id_id
10559 CHARACTER*80 emess
10560 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10561 WRITE(emess,*)'nl_get_symmetric_xe: Out of range domain number: ',id_id
10562 CALL wrf_error_fatal(emess)
10563 ENDIF
10564 symmetric_xe = model_config_rec%symmetric_xe(id_id)
10565 RETURN
10566 END SUBROUTINE nl_get_symmetric_xe
10567 SUBROUTINE nl_get_open_xs ( id_id , open_xs )
10568 logical , INTENT(OUT) :: open_xs
10569 INTEGER id_id
10570 CHARACTER*80 emess
10571 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10572 WRITE(emess,*)'nl_get_open_xs: Out of range domain number: ',id_id
10573 CALL wrf_error_fatal(emess)
10574 ENDIF
10575 open_xs = model_config_rec%open_xs(id_id)
10576 RETURN
10577 END SUBROUTINE nl_get_open_xs
10578 SUBROUTINE nl_get_open_xe ( id_id , open_xe )
10579 logical , INTENT(OUT) :: open_xe
10580 INTEGER id_id
10581 CHARACTER*80 emess
10582 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10583 WRITE(emess,*)'nl_get_open_xe: Out of range domain number: ',id_id
10584 CALL wrf_error_fatal(emess)
10585 ENDIF
10586 open_xe = model_config_rec%open_xe(id_id)
10587 RETURN
10588 END SUBROUTINE nl_get_open_xe
10589 SUBROUTINE nl_get_periodic_y ( id_id , periodic_y )
10590 logical , INTENT(OUT) :: periodic_y
10591 INTEGER id_id
10592 CHARACTER*80 emess
10593 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10594 WRITE(emess,*)'nl_get_periodic_y: Out of range domain number: ',id_id
10595 CALL wrf_error_fatal(emess)
10596 ENDIF
10597 periodic_y = model_config_rec%periodic_y(id_id)
10598 RETURN
10599 END SUBROUTINE nl_get_periodic_y
10600 SUBROUTINE nl_get_symmetric_ys ( id_id , symmetric_ys )
10601 logical , INTENT(OUT) :: symmetric_ys
10602 INTEGER id_id
10603 CHARACTER*80 emess
10604 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10605 WRITE(emess,*)'nl_get_symmetric_ys: Out of range domain number: ',id_id
10606 CALL wrf_error_fatal(emess)
10607 ENDIF
10608 symmetric_ys = model_config_rec%symmetric_ys(id_id)
10609 RETURN
10610 END SUBROUTINE nl_get_symmetric_ys
10611 SUBROUTINE nl_get_symmetric_ye ( id_id , symmetric_ye )
10612 logical , INTENT(OUT) :: symmetric_ye
10613 INTEGER id_id
10614 CHARACTER*80 emess
10615 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10616 WRITE(emess,*)'nl_get_symmetric_ye: Out of range domain number: ',id_id
10617 CALL wrf_error_fatal(emess)
10618 ENDIF
10619 symmetric_ye = model_config_rec%symmetric_ye(id_id)
10620 RETURN
10621 END SUBROUTINE nl_get_symmetric_ye
10622 SUBROUTINE nl_get_open_ys ( id_id , open_ys )
10623 logical , INTENT(OUT) :: open_ys
10624 INTEGER id_id
10625 CHARACTER*80 emess
10626 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10627 WRITE(emess,*)'nl_get_open_ys: Out of range domain number: ',id_id
10628 CALL wrf_error_fatal(emess)
10629 ENDIF
10630 open_ys = model_config_rec%open_ys(id_id)
10631 RETURN
10632 END SUBROUTINE nl_get_open_ys
10633 SUBROUTINE nl_get_open_ye ( id_id , open_ye )
10634 logical , INTENT(OUT) :: open_ye
10635 INTEGER id_id
10636 CHARACTER*80 emess
10637 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10638 WRITE(emess,*)'nl_get_open_ye: Out of range domain number: ',id_id
10639 CALL wrf_error_fatal(emess)
10640 ENDIF
10641 open_ye = model_config_rec%open_ye(id_id)
10642 RETURN
10643 END SUBROUTINE nl_get_open_ye
10644 SUBROUTINE nl_get_nested ( id_id , nested )
10645 logical , INTENT(OUT) :: nested
10646 INTEGER id_id
10647 CHARACTER*80 emess
10648 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10649 WRITE(emess,*)'nl_get_nested: Out of range domain number: ',id_id
10650 CALL wrf_error_fatal(emess)
10651 ENDIF
10652 nested = model_config_rec%nested(id_id)
10653 RETURN
10654 END SUBROUTINE nl_get_nested
10655 SUBROUTINE nl_get_real_data_init_type ( id_id , real_data_init_type )
10656 integer , INTENT(OUT) :: real_data_init_type
10657 INTEGER id_id
10658 CHARACTER*80 emess
10659 IF ( id_id .NE. 1 ) THEN
10660 call wrf_debug(1,&
10661 'WARNING in nl_get_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
10662 ENDIF
10663 real_data_init_type = model_config_rec%real_data_init_type
10664 RETURN
10665 END SUBROUTINE nl_get_real_data_init_type
10666 SUBROUTINE nl_get_background_proc_id ( id_id , background_proc_id )
10667 integer , INTENT(OUT) :: background_proc_id
10668 INTEGER id_id
10669 CHARACTER*80 emess
10670 IF ( id_id .NE. 1 ) THEN
10671 call wrf_debug(1,&
10672 'WARNING in nl_get_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
10673 ENDIF
10674 background_proc_id = model_config_rec%background_proc_id
10675 RETURN
10676 END SUBROUTINE nl_get_background_proc_id
10677 SUBROUTINE nl_get_forecast_proc_id ( id_id , forecast_proc_id )
10678 integer , INTENT(OUT) :: forecast_proc_id
10679 INTEGER id_id
10680 CHARACTER*80 emess
10681 IF ( id_id .NE. 1 ) THEN
10682 call wrf_debug(1,&
10683 'WARNING in nl_get_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
10684 ENDIF
10685 forecast_proc_id = model_config_rec%forecast_proc_id
10686 RETURN
10687 END SUBROUTINE nl_get_forecast_proc_id
10688 SUBROUTINE nl_get_production_status ( id_id , production_status )
10689 integer , INTENT(OUT) :: production_status
10690 INTEGER id_id
10691 CHARACTER*80 emess
10692 IF ( id_id .NE. 1 ) THEN
10693 call wrf_debug(1,&
10694 'WARNING in nl_get_production_status: production_status applies to all domains. First arg ignored.')
10695 ENDIF
10696 production_status = model_config_rec%production_status
10697 RETURN
10698 END SUBROUTINE nl_get_production_status
10699 SUBROUTINE nl_get_compression ( id_id , compression )
10700 integer , INTENT(OUT) :: compression
10701 INTEGER id_id
10702 CHARACTER*80 emess
10703 IF ( id_id .NE. 1 ) THEN
10704 call wrf_debug(1,&
10705 'WARNING in nl_get_compression: compression applies to all domains. First arg ignored.')
10706 ENDIF
10707 compression = model_config_rec%compression
10708 RETURN
10709 END SUBROUTINE nl_get_compression
10710 SUBROUTINE nl_get_cen_lat ( id_id , cen_lat )
10711 real , INTENT(OUT) :: cen_lat
10712 INTEGER id_id
10713 CHARACTER*80 emess
10714 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10715 WRITE(emess,*)'nl_get_cen_lat: Out of range domain number: ',id_id
10716 CALL wrf_error_fatal(emess)
10717 ENDIF
10718 cen_lat = model_config_rec%cen_lat(id_id)
10719 RETURN
10720 END SUBROUTINE nl_get_cen_lat
10721 SUBROUTINE nl_get_cen_lon ( id_id , cen_lon )
10722 real , INTENT(OUT) :: cen_lon
10723 INTEGER id_id
10724 CHARACTER*80 emess
10725 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10726 WRITE(emess,*)'nl_get_cen_lon: Out of range domain number: ',id_id
10727 CALL wrf_error_fatal(emess)
10728 ENDIF
10729 cen_lon = model_config_rec%cen_lon(id_id)
10730 RETURN
10731 END SUBROUTINE nl_get_cen_lon
10732 SUBROUTINE nl_get_truelat1 ( id_id , truelat1 )
10733 real , INTENT(OUT) :: truelat1
10734 INTEGER id_id
10735 CHARACTER*80 emess
10736 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10737 WRITE(emess,*)'nl_get_truelat1: Out of range domain number: ',id_id
10738 CALL wrf_error_fatal(emess)
10739 ENDIF
10740 truelat1 = model_config_rec%truelat1(id_id)
10741 RETURN
10742 END SUBROUTINE nl_get_truelat1
10743 SUBROUTINE nl_get_truelat2 ( id_id , truelat2 )
10744 real , INTENT(OUT) :: truelat2
10745 INTEGER id_id
10746 CHARACTER*80 emess
10747 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10748 WRITE(emess,*)'nl_get_truelat2: Out of range domain number: ',id_id
10749 CALL wrf_error_fatal(emess)
10750 ENDIF
10751 truelat2 = model_config_rec%truelat2(id_id)
10752 RETURN
10753 END SUBROUTINE nl_get_truelat2
10754 SUBROUTINE nl_get_moad_cen_lat ( id_id , moad_cen_lat )
10755 real , INTENT(OUT) :: moad_cen_lat
10756 INTEGER id_id
10757 CHARACTER*80 emess
10758 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10759 WRITE(emess,*)'nl_get_moad_cen_lat: Out of range domain number: ',id_id
10760 CALL wrf_error_fatal(emess)
10761 ENDIF
10762 moad_cen_lat = model_config_rec%moad_cen_lat(id_id)
10763 RETURN
10764 END SUBROUTINE nl_get_moad_cen_lat
10765 SUBROUTINE nl_get_stand_lon ( id_id , stand_lon )
10766 real , INTENT(OUT) :: stand_lon
10767 INTEGER id_id
10768 CHARACTER*80 emess
10769 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10770 WRITE(emess,*)'nl_get_stand_lon: Out of range domain number: ',id_id
10771 CALL wrf_error_fatal(emess)
10772 ENDIF
10773 stand_lon = model_config_rec%stand_lon(id_id)
10774 RETURN
10775 END SUBROUTINE nl_get_stand_lon
10776 SUBROUTINE nl_get_bdyfrq ( id_id , bdyfrq )
10777 real , INTENT(OUT) :: bdyfrq
10778 INTEGER id_id
10779 CHARACTER*80 emess
10780 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10781 WRITE(emess,*)'nl_get_bdyfrq: Out of range domain number: ',id_id
10782 CALL wrf_error_fatal(emess)
10783 ENDIF
10784 bdyfrq = model_config_rec%bdyfrq(id_id)
10785 RETURN
10786 END SUBROUTINE nl_get_bdyfrq
10787 SUBROUTINE nl_get_iswater ( id_id , iswater )
10788 integer , INTENT(OUT) :: iswater
10789 INTEGER id_id
10790 CHARACTER*80 emess
10791 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10792 WRITE(emess,*)'nl_get_iswater: Out of range domain number: ',id_id
10793 CALL wrf_error_fatal(emess)
10794 ENDIF
10795 iswater = model_config_rec%iswater(id_id)
10796 RETURN
10797 END SUBROUTINE nl_get_iswater
10798 SUBROUTINE nl_get_isice ( id_id , isice )
10799 integer , INTENT(OUT) :: isice
10800 INTEGER id_id
10801 CHARACTER*80 emess
10802 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10803 WRITE(emess,*)'nl_get_isice: Out of range domain number: ',id_id
10804 CALL wrf_error_fatal(emess)
10805 ENDIF
10806 isice = model_config_rec%isice(id_id)
10807 RETURN
10808 END SUBROUTINE nl_get_isice
10809 SUBROUTINE nl_get_isurban ( id_id , isurban )
10810 integer , INTENT(OUT) :: isurban
10811 INTEGER id_id
10812 CHARACTER*80 emess
10813 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10814 WRITE(emess,*)'nl_get_isurban: Out of range domain number: ',id_id
10815 CALL wrf_error_fatal(emess)
10816 ENDIF
10817 isurban = model_config_rec%isurban(id_id)
10818 RETURN
10819 END SUBROUTINE nl_get_isurban
10820 SUBROUTINE nl_get_isoilwater ( id_id , isoilwater )
10821 integer , INTENT(OUT) :: isoilwater
10822 INTEGER id_id
10823 CHARACTER*80 emess
10824 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10825 WRITE(emess,*)'nl_get_isoilwater: Out of range domain number: ',id_id
10826 CALL wrf_error_fatal(emess)
10827 ENDIF
10828 isoilwater = model_config_rec%isoilwater(id_id)
10829 RETURN
10830 END SUBROUTINE nl_get_isoilwater
10831 SUBROUTINE nl_get_map_proj ( id_id , map_proj )
10832 integer , INTENT(OUT) :: map_proj
10833 INTEGER id_id
10834 CHARACTER*80 emess
10835 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
10836 WRITE(emess,*)'nl_get_map_proj: Out of range domain number: ',id_id
10837 CALL wrf_error_fatal(emess)
10838 ENDIF
10839 map_proj = model_config_rec%map_proj(id_id)
10840 RETURN
10841 END SUBROUTINE nl_get_map_proj
10842 SUBROUTINE nl_get_simulation_start_year ( id_id , simulation_start_year )
10843 integer , INTENT(OUT) :: simulation_start_year
10844 INTEGER id_id
10845 CHARACTER*80 emess
10846 IF ( id_id .NE. 1 ) THEN
10847 call wrf_debug(1,&
10848 'WARNING in nl_get_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
10849 ENDIF
10850 simulation_start_year = model_config_rec%simulation_start_year
10851 RETURN
10852 END SUBROUTINE nl_get_simulation_start_year
10853 SUBROUTINE nl_get_simulation_start_month ( id_id , simulation_start_month )
10854 integer , INTENT(OUT) :: simulation_start_month
10855 INTEGER id_id
10856 CHARACTER*80 emess
10857 IF ( id_id .NE. 1 ) THEN
10858 call wrf_debug(1,&
10859 'WARNING in nl_get_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
10860 ENDIF
10861 simulation_start_month = model_config_rec%simulation_start_month
10862 RETURN
10863 END SUBROUTINE nl_get_simulation_start_month
10864 SUBROUTINE nl_get_simulation_start_day ( id_id , simulation_start_day )
10865 integer , INTENT(OUT) :: simulation_start_day
10866 INTEGER id_id
10867 CHARACTER*80 emess
10868 IF ( id_id .NE. 1 ) THEN
10869 call wrf_debug(1,&
10870 'WARNING in nl_get_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
10871 ENDIF
10872 simulation_start_day = model_config_rec%simulation_start_day
10873 RETURN
10874 END SUBROUTINE nl_get_simulation_start_day
10875 SUBROUTINE nl_get_simulation_start_hour ( id_id , simulation_start_hour )
10876 integer , INTENT(OUT) :: simulation_start_hour
10877 INTEGER id_id
10878 CHARACTER*80 emess
10879 IF ( id_id .NE. 1 ) THEN
10880 call wrf_debug(1,&
10881 'WARNING in nl_get_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
10882 ENDIF
10883 simulation_start_hour = model_config_rec%simulation_start_hour
10884 RETURN
10885 END SUBROUTINE nl_get_simulation_start_hour
10886 SUBROUTINE nl_get_simulation_start_minute ( id_id , simulation_start_minute )
10887 integer , INTENT(OUT) :: simulation_start_minute
10888 INTEGER id_id
10889 CHARACTER*80 emess
10890 IF ( id_id .NE. 1 ) THEN
10891 call wrf_debug(1,&
10892 'WARNING in nl_get_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
10893 ENDIF
10894 simulation_start_minute = model_config_rec%simulation_start_minute
10895 RETURN
10896 END SUBROUTINE nl_get_simulation_start_minute
10897 SUBROUTINE nl_get_simulation_start_second ( id_id , simulation_start_second )
10898 integer , INTENT(OUT) :: simulation_start_second
10899 INTEGER id_id
10900 CHARACTER*80 emess
10901 IF ( id_id .NE. 1 ) THEN
10902 call wrf_debug(1,&
10903 'WARNING in nl_get_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
10904 ENDIF
10905 simulation_start_second = model_config_rec%simulation_start_second
10906 RETURN
10907 END SUBROUTINE nl_get_simulation_start_second
10908 SUBROUTINE nl_set_write_increments ( id_id , write_increments )
10909 logical , INTENT(IN) :: write_increments
10910 INTEGER id_id
10911 CHARACTER*80 emess
10912 IF ( id_id .NE. 1 ) THEN
10913 call wrf_debug(1,&
10914 'WARNING in nl_set_write_increments: write_increments applies to all domains. First arg ignored.')
10915 ENDIF
10916 model_config_rec%write_increments = write_increments
10917 RETURN
10918 END SUBROUTINE nl_set_write_increments
10919 SUBROUTINE nl_set_var4d ( id_id , var4d )
10920 logical , INTENT(IN) :: var4d
10921 INTEGER id_id
10922 CHARACTER*80 emess
10923 IF ( id_id .NE. 1 ) THEN
10924 call wrf_debug(1,&
10925 'WARNING in nl_set_var4d: var4d applies to all domains. First arg ignored.')
10926 ENDIF
10927 model_config_rec%var4d = var4d
10928 RETURN
10929 END SUBROUTINE nl_set_var4d
10930 SUBROUTINE nl_set_var4d_coupling ( id_id , var4d_coupling )
10931 integer , INTENT(IN) :: var4d_coupling
10932 INTEGER id_id
10933 CHARACTER*80 emess
10934 IF ( id_id .NE. 1 ) THEN
10935 call wrf_debug(1,&
10936 'WARNING in nl_set_var4d_coupling: var4d_coupling applies to all domains. First arg ignored.')
10937 ENDIF
10938 model_config_rec%var4d_coupling = var4d_coupling
10939 RETURN
10940 END SUBROUTINE nl_set_var4d_coupling
10941 SUBROUTINE nl_set_global ( id_id , global )
10942 logical , INTENT(IN) :: global
10943 INTEGER id_id
10944 CHARACTER*80 emess
10945 IF ( id_id .NE. 1 ) THEN
10946 call wrf_debug(1,&
10947 'WARNING in nl_set_global: global applies to all domains. First arg ignored.')
10948 ENDIF
10949 model_config_rec%global = global
10950 RETURN
10951 END SUBROUTINE nl_set_global
10952 SUBROUTINE nl_set_oi_use ( id_id , oi_use )
10953 logical , INTENT(IN) :: oi_use
10954 INTEGER id_id
10955 CHARACTER*80 emess
10956 IF ( id_id .NE. 1 ) THEN
10957 call wrf_debug(1,&
10958 'WARNING in nl_set_oi_use: oi_use applies to all domains. First arg ignored.')
10959 ENDIF
10960 model_config_rec%oi_use = oi_use
10961 RETURN
10962 END SUBROUTINE nl_set_oi_use
10963 SUBROUTINE nl_set_print_detail_airep ( id_id , print_detail_airep )
10964 logical , INTENT(IN) :: print_detail_airep
10965 INTEGER id_id
10966 CHARACTER*80 emess
10967 IF ( id_id .NE. 1 ) THEN
10968 call wrf_debug(1,&
10969 'WARNING in nl_set_print_detail_airep: print_detail_airep applies to all domains. First arg ignored.')
10970 ENDIF
10971 model_config_rec%print_detail_airep = print_detail_airep
10972 RETURN
10973 END SUBROUTINE nl_set_print_detail_airep
10974 SUBROUTINE nl_set_print_detail_radar ( id_id , print_detail_radar )
10975 logical , INTENT(IN) :: print_detail_radar
10976 INTEGER id_id
10977 CHARACTER*80 emess
10978 IF ( id_id .NE. 1 ) THEN
10979 call wrf_debug(1,&
10980 'WARNING in nl_set_print_detail_radar: print_detail_radar applies to all domains. First arg ignored.')
10981 ENDIF
10982 model_config_rec%print_detail_radar = print_detail_radar
10983 RETURN
10984 END SUBROUTINE nl_set_print_detail_radar
10985 SUBROUTINE nl_set_print_detail_rad ( id_id , print_detail_rad )
10986 logical , INTENT(IN) :: print_detail_rad
10987 INTEGER id_id
10988 CHARACTER*80 emess
10989 IF ( id_id .NE. 1 ) THEN
10990 call wrf_debug(1,&
10991 'WARNING in nl_set_print_detail_rad: print_detail_rad applies to all domains. First arg ignored.')
10992 ENDIF
10993 model_config_rec%print_detail_rad = print_detail_rad
10994 RETURN
10995 END SUBROUTINE nl_set_print_detail_rad
10996 SUBROUTINE nl_set_print_detail_xa ( id_id , print_detail_xa )
10997 logical , INTENT(IN) :: print_detail_xa
10998 INTEGER id_id
10999 CHARACTER*80 emess
11000 IF ( id_id .NE. 1 ) THEN
11001 call wrf_debug(1,&
11002 'WARNING in nl_set_print_detail_xa: print_detail_xa applies to all domains. First arg ignored.')
11003 ENDIF
11004 model_config_rec%print_detail_xa = print_detail_xa
11005 RETURN
11006 END SUBROUTINE nl_set_print_detail_xa
11007 SUBROUTINE nl_set_print_detail_xb ( id_id , print_detail_xb )
11008 logical , INTENT(IN) :: print_detail_xb
11009 INTEGER id_id
11010 CHARACTER*80 emess
11011 IF ( id_id .NE. 1 ) THEN
11012 call wrf_debug(1,&
11013 'WARNING in nl_set_print_detail_xb: print_detail_xb applies to all domains. First arg ignored.')
11014 ENDIF
11015 model_config_rec%print_detail_xb = print_detail_xb
11016 RETURN
11017 END SUBROUTINE nl_set_print_detail_xb
11018 SUBROUTINE nl_set_print_detail_obs ( id_id , print_detail_obs )
11019 logical , INTENT(IN) :: print_detail_obs
11020 INTEGER id_id
11021 CHARACTER*80 emess
11022 IF ( id_id .NE. 1 ) THEN
11023 call wrf_debug(1,&
11024 'WARNING in nl_set_print_detail_obs: print_detail_obs applies to all domains. First arg ignored.')
11025 ENDIF
11026 model_config_rec%print_detail_obs = print_detail_obs
11027 RETURN
11028 END SUBROUTINE nl_set_print_detail_obs
11029 SUBROUTINE nl_set_print_detail_f_obs ( id_id , print_detail_f_obs )
11030 logical , INTENT(IN) :: print_detail_f_obs
11031 INTEGER id_id
11032 CHARACTER*80 emess
11033 IF ( id_id .NE. 1 ) THEN
11034 call wrf_debug(1,&
11035 'WARNING in nl_set_print_detail_f_obs: print_detail_f_obs applies to all domains. First arg ignored.')
11036 ENDIF
11037 model_config_rec%print_detail_f_obs = print_detail_f_obs
11038 RETURN
11039 END SUBROUTINE nl_set_print_detail_f_obs
11040 SUBROUTINE nl_set_print_detail_map ( id_id , print_detail_map )
11041 logical , INTENT(IN) :: print_detail_map
11042 INTEGER id_id
11043 CHARACTER*80 emess
11044 IF ( id_id .NE. 1 ) THEN
11045 call wrf_debug(1,&
11046 'WARNING in nl_set_print_detail_map: print_detail_map applies to all domains. First arg ignored.')
11047 ENDIF
11048 model_config_rec%print_detail_map = print_detail_map
11049 RETURN
11050 END SUBROUTINE nl_set_print_detail_map
11051 SUBROUTINE nl_set_print_detail_grad ( id_id , print_detail_grad )
11052 logical , INTENT(IN) :: print_detail_grad
11053 INTEGER id_id
11054 CHARACTER*80 emess
11055 IF ( id_id .NE. 1 ) THEN
11056 call wrf_debug(1,&
11057 'WARNING in nl_set_print_detail_grad: print_detail_grad applies to all domains. First arg ignored.')
11058 ENDIF
11059 model_config_rec%print_detail_grad = print_detail_grad
11060 RETURN
11061 END SUBROUTINE nl_set_print_detail_grad
11062 SUBROUTINE nl_set_print_detail_regression ( id_id , print_detail_regression )
11063 logical , INTENT(IN) :: print_detail_regression
11064 INTEGER id_id
11065 CHARACTER*80 emess
11066 IF ( id_id .NE. 1 ) THEN
11067 call wrf_debug(1,&
11068 'WARNING in nl_set_print_detail_regression: print_detail_regression applies to all domains. First arg ignored.')
11069 ENDIF
11070 model_config_rec%print_detail_regression = print_detail_regression
11071 RETURN
11072 END SUBROUTINE nl_set_print_detail_regression
11073 SUBROUTINE nl_set_print_detail_spectral ( id_id , print_detail_spectral )
11074 logical , INTENT(IN) :: print_detail_spectral
11075 INTEGER id_id
11076 CHARACTER*80 emess
11077 IF ( id_id .NE. 1 ) THEN
11078 call wrf_debug(1,&
11079 'WARNING in nl_set_print_detail_spectral: print_detail_spectral applies to all domains. First arg ignored.')
11080 ENDIF
11081 model_config_rec%print_detail_spectral = print_detail_spectral
11082 RETURN
11083 END SUBROUTINE nl_set_print_detail_spectral
11084 SUBROUTINE nl_set_print_detail_testing ( id_id , print_detail_testing )
11085 logical , INTENT(IN) :: print_detail_testing
11086 INTEGER id_id
11087 CHARACTER*80 emess
11088 IF ( id_id .NE. 1 ) THEN
11089 call wrf_debug(1,&
11090 'WARNING in nl_set_print_detail_testing: print_detail_testing applies to all domains. First arg ignored.')
11091 ENDIF
11092 model_config_rec%print_detail_testing = print_detail_testing
11093 RETURN
11094 END SUBROUTINE nl_set_print_detail_testing
11095 SUBROUTINE nl_set_print_detail_parallel ( id_id , print_detail_parallel )
11096 logical , INTENT(IN) :: print_detail_parallel
11097 INTEGER id_id
11098 CHARACTER*80 emess
11099 IF ( id_id .NE. 1 ) THEN
11100 call wrf_debug(1,&
11101 'WARNING in nl_set_print_detail_parallel: print_detail_parallel applies to all domains. First arg ignored.')
11102 ENDIF
11103 model_config_rec%print_detail_parallel = print_detail_parallel
11104 RETURN
11105 END SUBROUTINE nl_set_print_detail_parallel
11106 SUBROUTINE nl_set_print_detail_be ( id_id , print_detail_be )
11107 logical , INTENT(IN) :: print_detail_be
11108 INTEGER id_id
11109 CHARACTER*80 emess
11110 IF ( id_id .NE. 1 ) THEN
11111 call wrf_debug(1,&
11112 'WARNING in nl_set_print_detail_be: print_detail_be applies to all domains. First arg ignored.')
11113 ENDIF
11114 model_config_rec%print_detail_be = print_detail_be
11115 RETURN
11116 END SUBROUTINE nl_set_print_detail_be
11117 SUBROUTINE nl_set_print_detail_timing ( id_id , print_detail_timing )
11118 logical , INTENT(IN) :: print_detail_timing
11119 INTEGER id_id
11120 CHARACTER*80 emess
11121 IF ( id_id .NE. 1 ) THEN
11122 call wrf_debug(1,&
11123 'WARNING in nl_set_print_detail_timing: print_detail_timing applies to all domains. First arg ignored.')
11124 ENDIF
11125 model_config_rec%print_detail_timing = print_detail_timing
11126 RETURN
11127 END SUBROUTINE nl_set_print_detail_timing
11128 SUBROUTINE nl_set_check_max_iv_print ( id_id , check_max_iv_print )
11129 logical , INTENT(IN) :: check_max_iv_print
11130 INTEGER id_id
11131 CHARACTER*80 emess
11132 IF ( id_id .NE. 1 ) THEN
11133 call wrf_debug(1,&
11134 'WARNING in nl_set_check_max_iv_print: check_max_iv_print applies to all domains. First arg ignored.')
11135 ENDIF
11136 model_config_rec%check_max_iv_print = check_max_iv_print
11137 RETURN
11138 END SUBROUTINE nl_set_check_max_iv_print
11139 SUBROUTINE nl_set_analysis_accu ( id_id , analysis_accu )
11140 integer , INTENT(IN) :: analysis_accu
11141 INTEGER id_id
11142 CHARACTER*80 emess
11143 IF ( id_id .NE. 1 ) THEN
11144 call wrf_debug(1,&
11145 'WARNING in nl_set_analysis_accu: analysis_accu applies to all domains. First arg ignored.')
11146 ENDIF
11147 model_config_rec%analysis_accu = analysis_accu
11148 RETURN
11149 END SUBROUTINE nl_set_analysis_accu
11150 SUBROUTINE nl_set_calc_w_increment ( id_id , calc_w_increment )
11151 logical , INTENT(IN) :: calc_w_increment
11152 INTEGER id_id
11153 CHARACTER*80 emess
11154 IF ( id_id .NE. 1 ) THEN
11155 call wrf_debug(1,&
11156 'WARNING in nl_set_calc_w_increment: calc_w_increment applies to all domains. First arg ignored.')
11157 ENDIF
11158 model_config_rec%calc_w_increment = calc_w_increment
11159 RETURN
11160 END SUBROUTINE nl_set_calc_w_increment
11161 SUBROUTINE nl_set_dt_cloud_model ( id_id , dt_cloud_model )
11162 logical , INTENT(IN) :: dt_cloud_model
11163 INTEGER id_id
11164 CHARACTER*80 emess
11165 IF ( id_id .NE. 1 ) THEN
11166 call wrf_debug(1,&
11167 'WARNING in nl_set_dt_cloud_model: dt_cloud_model applies to all domains. First arg ignored.')
11168 ENDIF
11169 model_config_rec%dt_cloud_model = dt_cloud_model
11170 RETURN
11171 END SUBROUTINE nl_set_dt_cloud_model
11172 SUBROUTINE nl_set_write_qcw ( id_id , write_qcw )
11173 logical , INTENT(IN) :: write_qcw
11174 INTEGER id_id
11175 CHARACTER*80 emess
11176 IF ( id_id .NE. 1 ) THEN
11177 call wrf_debug(1,&
11178 'WARNING in nl_set_write_qcw: write_qcw applies to all domains. First arg ignored.')
11179 ENDIF
11180 model_config_rec%write_qcw = write_qcw
11181 RETURN
11182 END SUBROUTINE nl_set_write_qcw
11183 SUBROUTINE nl_set_write_qrn ( id_id , write_qrn )
11184 logical , INTENT(IN) :: write_qrn
11185 INTEGER id_id
11186 CHARACTER*80 emess
11187 IF ( id_id .NE. 1 ) THEN
11188 call wrf_debug(1,&
11189 'WARNING in nl_set_write_qrn: write_qrn applies to all domains. First arg ignored.')
11190 ENDIF
11191 model_config_rec%write_qrn = write_qrn
11192 RETURN
11193 END SUBROUTINE nl_set_write_qrn
11194 SUBROUTINE nl_set_write_qci ( id_id , write_qci )
11195 logical , INTENT(IN) :: write_qci
11196 INTEGER id_id
11197 CHARACTER*80 emess
11198 IF ( id_id .NE. 1 ) THEN
11199 call wrf_debug(1,&
11200 'WARNING in nl_set_write_qci: write_qci applies to all domains. First arg ignored.')
11201 ENDIF
11202 model_config_rec%write_qci = write_qci
11203 RETURN
11204 END SUBROUTINE nl_set_write_qci
11205 SUBROUTINE nl_set_write_qsn ( id_id , write_qsn )
11206 logical , INTENT(IN) :: write_qsn
11207 INTEGER id_id
11208 CHARACTER*80 emess
11209 IF ( id_id .NE. 1 ) THEN
11210 call wrf_debug(1,&
11211 'WARNING in nl_set_write_qsn: write_qsn applies to all domains. First arg ignored.')
11212 ENDIF
11213 model_config_rec%write_qsn = write_qsn
11214 RETURN
11215 END SUBROUTINE nl_set_write_qsn
11216 SUBROUTINE nl_set_write_qgr ( id_id , write_qgr )
11217 logical , INTENT(IN) :: write_qgr
11218 INTEGER id_id
11219 CHARACTER*80 emess
11220 IF ( id_id .NE. 1 ) THEN
11221 call wrf_debug(1,&
11222 'WARNING in nl_set_write_qgr: write_qgr applies to all domains. First arg ignored.')
11223 ENDIF
11224 model_config_rec%write_qgr = write_qgr
11225 RETURN
11226 END SUBROUTINE nl_set_write_qgr
11227 SUBROUTINE nl_set_write_filtered_obs ( id_id , write_filtered_obs )
11228 logical , INTENT(IN) :: write_filtered_obs
11229 INTEGER id_id
11230 CHARACTER*80 emess
11231 IF ( id_id .NE. 1 ) THEN
11232 call wrf_debug(1,&
11233 'WARNING in nl_set_write_filtered_obs: write_filtered_obs applies to all domains. First arg ignored.')
11234 ENDIF
11235 model_config_rec%write_filtered_obs = write_filtered_obs
11236 RETURN
11237 END SUBROUTINE nl_set_write_filtered_obs
11238 SUBROUTINE nl_set_fg_format ( id_id , fg_format )
11239 integer , INTENT(IN) :: fg_format
11240 INTEGER id_id
11241 CHARACTER*80 emess
11242 IF ( id_id .NE. 1 ) THEN
11243 call wrf_debug(1,&
11244 'WARNING in nl_set_fg_format: fg_format applies to all domains. First arg ignored.')
11245 ENDIF
11246 model_config_rec%fg_format = fg_format
11247 RETURN
11248 END SUBROUTINE nl_set_fg_format
11249 SUBROUTINE nl_set_ob_format ( id_id , ob_format )
11250 integer , INTENT(IN) :: ob_format
11251 INTEGER id_id
11252 CHARACTER*80 emess
11253 IF ( id_id .NE. 1 ) THEN
11254 call wrf_debug(1,&
11255 'WARNING in nl_set_ob_format: ob_format applies to all domains. First arg ignored.')
11256 ENDIF
11257 model_config_rec%ob_format = ob_format
11258 RETURN
11259 END SUBROUTINE nl_set_ob_format
11260 SUBROUTINE nl_set_num_fgat_time ( id_id , num_fgat_time )
11261 integer , INTENT(IN) :: num_fgat_time
11262 INTEGER id_id
11263 CHARACTER*80 emess
11264 IF ( id_id .NE. 1 ) THEN
11265 call wrf_debug(1,&
11266 'WARNING in nl_set_num_fgat_time: num_fgat_time applies to all domains. First arg ignored.')
11267 ENDIF
11268 model_config_rec%num_fgat_time = num_fgat_time
11269 RETURN
11270 END SUBROUTINE nl_set_num_fgat_time
11271 SUBROUTINE nl_set_use_synopobs ( id_id , use_synopobs )
11272 logical , INTENT(IN) :: use_synopobs
11273 INTEGER id_id
11274 CHARACTER*80 emess
11275 IF ( id_id .NE. 1 ) THEN
11276 call wrf_debug(1,&
11277 'WARNING in nl_set_use_synopobs: use_synopobs applies to all domains. First arg ignored.')
11278 ENDIF
11279 model_config_rec%use_synopobs = use_synopobs
11280 RETURN
11281 END SUBROUTINE nl_set_use_synopobs
11282 SUBROUTINE nl_set_use_shipsobs ( id_id , use_shipsobs )
11283 logical , INTENT(IN) :: use_shipsobs
11284 INTEGER id_id
11285 CHARACTER*80 emess
11286 IF ( id_id .NE. 1 ) THEN
11287 call wrf_debug(1,&
11288 'WARNING in nl_set_use_shipsobs: use_shipsobs applies to all domains. First arg ignored.')
11289 ENDIF
11290 model_config_rec%use_shipsobs = use_shipsobs
11291 RETURN
11292 END SUBROUTINE nl_set_use_shipsobs
11293 SUBROUTINE nl_set_use_metarobs ( id_id , use_metarobs )
11294 logical , INTENT(IN) :: use_metarobs
11295 INTEGER id_id
11296 CHARACTER*80 emess
11297 IF ( id_id .NE. 1 ) THEN
11298 call wrf_debug(1,&
11299 'WARNING in nl_set_use_metarobs: use_metarobs applies to all domains. First arg ignored.')
11300 ENDIF
11301 model_config_rec%use_metarobs = use_metarobs
11302 RETURN
11303 END SUBROUTINE nl_set_use_metarobs
11304 SUBROUTINE nl_set_use_soundobs ( id_id , use_soundobs )
11305 logical , INTENT(IN) :: use_soundobs
11306 INTEGER id_id
11307 CHARACTER*80 emess
11308 IF ( id_id .NE. 1 ) THEN
11309 call wrf_debug(1,&
11310 'WARNING in nl_set_use_soundobs: use_soundobs applies to all domains. First arg ignored.')
11311 ENDIF
11312 model_config_rec%use_soundobs = use_soundobs
11313 RETURN
11314 END SUBROUTINE nl_set_use_soundobs
11315 SUBROUTINE nl_set_use_pilotobs ( id_id , use_pilotobs )
11316 logical , INTENT(IN) :: use_pilotobs
11317 INTEGER id_id
11318 CHARACTER*80 emess
11319 IF ( id_id .NE. 1 ) THEN
11320 call wrf_debug(1,&
11321 'WARNING in nl_set_use_pilotobs: use_pilotobs applies to all domains. First arg ignored.')
11322 ENDIF
11323 model_config_rec%use_pilotobs = use_pilotobs
11324 RETURN
11325 END SUBROUTINE nl_set_use_pilotobs
11326 SUBROUTINE nl_set_use_airepobs ( id_id , use_airepobs )
11327 logical , INTENT(IN) :: use_airepobs
11328 INTEGER id_id
11329 CHARACTER*80 emess
11330 IF ( id_id .NE. 1 ) THEN
11331 call wrf_debug(1,&
11332 'WARNING in nl_set_use_airepobs: use_airepobs applies to all domains. First arg ignored.')
11333 ENDIF
11334 model_config_rec%use_airepobs = use_airepobs
11335 RETURN
11336 END SUBROUTINE nl_set_use_airepobs
11337 SUBROUTINE nl_set_use_geoamvobs ( id_id , use_geoamvobs )
11338 logical , INTENT(IN) :: use_geoamvobs
11339 INTEGER id_id
11340 CHARACTER*80 emess
11341 IF ( id_id .NE. 1 ) THEN
11342 call wrf_debug(1,&
11343 'WARNING in nl_set_use_geoamvobs: use_geoamvobs applies to all domains. First arg ignored.')
11344 ENDIF
11345 model_config_rec%use_geoamvobs = use_geoamvobs
11346 RETURN
11347 END SUBROUTINE nl_set_use_geoamvobs
11348 SUBROUTINE nl_set_use_polaramvobs ( id_id , use_polaramvobs )
11349 logical , INTENT(IN) :: use_polaramvobs
11350 INTEGER id_id
11351 CHARACTER*80 emess
11352 IF ( id_id .NE. 1 ) THEN
11353 call wrf_debug(1,&
11354 'WARNING in nl_set_use_polaramvobs: use_polaramvobs applies to all domains. First arg ignored.')
11355 ENDIF
11356 model_config_rec%use_polaramvobs = use_polaramvobs
11357 RETURN
11358 END SUBROUTINE nl_set_use_polaramvobs
11359 SUBROUTINE nl_set_use_bogusobs ( id_id , use_bogusobs )
11360 logical , INTENT(IN) :: use_bogusobs
11361 INTEGER id_id
11362 CHARACTER*80 emess
11363 IF ( id_id .NE. 1 ) THEN
11364 call wrf_debug(1,&
11365 'WARNING in nl_set_use_bogusobs: use_bogusobs applies to all domains. First arg ignored.')
11366 ENDIF
11367 model_config_rec%use_bogusobs = use_bogusobs
11368 RETURN
11369 END SUBROUTINE nl_set_use_bogusobs
11370 SUBROUTINE nl_set_use_buoyobs ( id_id , use_buoyobs )
11371 logical , INTENT(IN) :: use_buoyobs
11372 INTEGER id_id
11373 CHARACTER*80 emess
11374 IF ( id_id .NE. 1 ) THEN
11375 call wrf_debug(1,&
11376 'WARNING in nl_set_use_buoyobs: use_buoyobs applies to all domains. First arg ignored.')
11377 ENDIF
11378 model_config_rec%use_buoyobs = use_buoyobs
11379 RETURN
11380 END SUBROUTINE nl_set_use_buoyobs
11381 SUBROUTINE nl_set_use_profilerobs ( id_id , use_profilerobs )
11382 logical , INTENT(IN) :: use_profilerobs
11383 INTEGER id_id
11384 CHARACTER*80 emess
11385 IF ( id_id .NE. 1 ) THEN
11386 call wrf_debug(1,&
11387 'WARNING in nl_set_use_profilerobs: use_profilerobs applies to all domains. First arg ignored.')
11388 ENDIF
11389 model_config_rec%use_profilerobs = use_profilerobs
11390 RETURN
11391 END SUBROUTINE nl_set_use_profilerobs
11392 SUBROUTINE nl_set_use_satemobs ( id_id , use_satemobs )
11393 logical , INTENT(IN) :: use_satemobs
11394 INTEGER id_id
11395 CHARACTER*80 emess
11396 IF ( id_id .NE. 1 ) THEN
11397 call wrf_debug(1,&
11398 'WARNING in nl_set_use_satemobs: use_satemobs applies to all domains. First arg ignored.')
11399 ENDIF
11400 model_config_rec%use_satemobs = use_satemobs
11401 RETURN
11402 END SUBROUTINE nl_set_use_satemobs
11403 SUBROUTINE nl_set_use_gpspwobs ( id_id , use_gpspwobs )
11404 logical , INTENT(IN) :: use_gpspwobs
11405 INTEGER id_id
11406 CHARACTER*80 emess
11407 IF ( id_id .NE. 1 ) THEN
11408 call wrf_debug(1,&
11409 'WARNING in nl_set_use_gpspwobs: use_gpspwobs applies to all domains. First arg ignored.')
11410 ENDIF
11411 model_config_rec%use_gpspwobs = use_gpspwobs
11412 RETURN
11413 END SUBROUTINE nl_set_use_gpspwobs
11414 SUBROUTINE nl_set_use_gpsrefobs ( id_id , use_gpsrefobs )
11415 logical , INTENT(IN) :: use_gpsrefobs
11416 INTEGER id_id
11417 CHARACTER*80 emess
11418 IF ( id_id .NE. 1 ) THEN
11419 call wrf_debug(1,&
11420 'WARNING in nl_set_use_gpsrefobs: use_gpsrefobs applies to all domains. First arg ignored.')
11421 ENDIF
11422 model_config_rec%use_gpsrefobs = use_gpsrefobs
11423 RETURN
11424 END SUBROUTINE nl_set_use_gpsrefobs
11425 SUBROUTINE nl_set_use_ssmiretrievalobs ( id_id , use_ssmiretrievalobs )
11426 logical , INTENT(IN) :: use_ssmiretrievalobs
11427 INTEGER id_id
11428 CHARACTER*80 emess
11429 IF ( id_id .NE. 1 ) THEN
11430 call wrf_debug(1,&
11431 'WARNING in nl_set_use_ssmiretrievalobs: use_ssmiretrievalobs applies to all domains. First arg ignored.')
11432 ENDIF
11433 model_config_rec%use_ssmiretrievalobs = use_ssmiretrievalobs
11434 RETURN
11435 END SUBROUTINE nl_set_use_ssmiretrievalobs
11436 SUBROUTINE nl_set_use_ssmitbobs ( id_id , use_ssmitbobs )
11437 logical , INTENT(IN) :: use_ssmitbobs
11438 INTEGER id_id
11439 CHARACTER*80 emess
11440 IF ( id_id .NE. 1 ) THEN
11441 call wrf_debug(1,&
11442 'WARNING in nl_set_use_ssmitbobs: use_ssmitbobs applies to all domains. First arg ignored.')
11443 ENDIF
11444 model_config_rec%use_ssmitbobs = use_ssmitbobs
11445 RETURN
11446 END SUBROUTINE nl_set_use_ssmitbobs
11447 SUBROUTINE nl_set_use_ssmt1obs ( id_id , use_ssmt1obs )
11448 logical , INTENT(IN) :: use_ssmt1obs
11449 INTEGER id_id
11450 CHARACTER*80 emess
11451 IF ( id_id .NE. 1 ) THEN
11452 call wrf_debug(1,&
11453 'WARNING in nl_set_use_ssmt1obs: use_ssmt1obs applies to all domains. First arg ignored.')
11454 ENDIF
11455 model_config_rec%use_ssmt1obs = use_ssmt1obs
11456 RETURN
11457 END SUBROUTINE nl_set_use_ssmt1obs
11458 SUBROUTINE nl_set_use_ssmt2obs ( id_id , use_ssmt2obs )
11459 logical , INTENT(IN) :: use_ssmt2obs
11460 INTEGER id_id
11461 CHARACTER*80 emess
11462 IF ( id_id .NE. 1 ) THEN
11463 call wrf_debug(1,&
11464 'WARNING in nl_set_use_ssmt2obs: use_ssmt2obs applies to all domains. First arg ignored.')
11465 ENDIF
11466 model_config_rec%use_ssmt2obs = use_ssmt2obs
11467 RETURN
11468 END SUBROUTINE nl_set_use_ssmt2obs
11469 SUBROUTINE nl_set_use_qscatobs ( id_id , use_qscatobs )
11470 logical , INTENT(IN) :: use_qscatobs
11471 INTEGER id_id
11472 CHARACTER*80 emess
11473 IF ( id_id .NE. 1 ) THEN
11474 call wrf_debug(1,&
11475 'WARNING in nl_set_use_qscatobs: use_qscatobs applies to all domains. First arg ignored.')
11476 ENDIF
11477 model_config_rec%use_qscatobs = use_qscatobs
11478 RETURN
11479 END SUBROUTINE nl_set_use_qscatobs
11480 SUBROUTINE nl_set_use_radarobs ( id_id , use_radarobs )
11481 logical , INTENT(IN) :: use_radarobs
11482 INTEGER id_id
11483 CHARACTER*80 emess
11484 IF ( id_id .NE. 1 ) THEN
11485 call wrf_debug(1,&
11486 'WARNING in nl_set_use_radarobs: use_radarobs applies to all domains. First arg ignored.')
11487 ENDIF
11488 model_config_rec%use_radarobs = use_radarobs
11489 RETURN
11490 END SUBROUTINE nl_set_use_radarobs
11491 SUBROUTINE nl_set_use_radar_rv ( id_id , use_radar_rv )
11492 logical , INTENT(IN) :: use_radar_rv
11493 INTEGER id_id
11494 CHARACTER*80 emess
11495 IF ( id_id .NE. 1 ) THEN
11496 call wrf_debug(1,&
11497 'WARNING in nl_set_use_radar_rv: use_radar_rv applies to all domains. First arg ignored.')
11498 ENDIF
11499 model_config_rec%use_radar_rv = use_radar_rv
11500 RETURN
11501 END SUBROUTINE nl_set_use_radar_rv
11502 SUBROUTINE nl_set_use_radar_rf ( id_id , use_radar_rf )
11503 logical , INTENT(IN) :: use_radar_rf
11504 INTEGER id_id
11505 CHARACTER*80 emess
11506 IF ( id_id .NE. 1 ) THEN
11507 call wrf_debug(1,&
11508 'WARNING in nl_set_use_radar_rf: use_radar_rf applies to all domains. First arg ignored.')
11509 ENDIF
11510 model_config_rec%use_radar_rf = use_radar_rf
11511 RETURN
11512 END SUBROUTINE nl_set_use_radar_rf
11513 SUBROUTINE nl_set_use_hirs2obs ( id_id , use_hirs2obs )
11514 logical , INTENT(IN) :: use_hirs2obs
11515 INTEGER id_id
11516 CHARACTER*80 emess
11517 IF ( id_id .NE. 1 ) THEN
11518 call wrf_debug(1,&
11519 'WARNING in nl_set_use_hirs2obs: use_hirs2obs applies to all domains. First arg ignored.')
11520 ENDIF
11521 model_config_rec%use_hirs2obs = use_hirs2obs
11522 RETURN
11523 END SUBROUTINE nl_set_use_hirs2obs
11524 SUBROUTINE nl_set_use_hirs3obs ( id_id , use_hirs3obs )
11525 logical , INTENT(IN) :: use_hirs3obs
11526 INTEGER id_id
11527 CHARACTER*80 emess
11528 IF ( id_id .NE. 1 ) THEN
11529 call wrf_debug(1,&
11530 'WARNING in nl_set_use_hirs3obs: use_hirs3obs applies to all domains. First arg ignored.')
11531 ENDIF
11532 model_config_rec%use_hirs3obs = use_hirs3obs
11533 RETURN
11534 END SUBROUTINE nl_set_use_hirs3obs
11535 SUBROUTINE nl_set_use_msuobs ( id_id , use_msuobs )
11536 logical , INTENT(IN) :: use_msuobs
11537 INTEGER id_id
11538 CHARACTER*80 emess
11539 IF ( id_id .NE. 1 ) THEN
11540 call wrf_debug(1,&
11541 'WARNING in nl_set_use_msuobs: use_msuobs applies to all domains. First arg ignored.')
11542 ENDIF
11543 model_config_rec%use_msuobs = use_msuobs
11544 RETURN
11545 END SUBROUTINE nl_set_use_msuobs
11546 SUBROUTINE nl_set_use_amsuaobs ( id_id , use_amsuaobs )
11547 logical , INTENT(IN) :: use_amsuaobs
11548 INTEGER id_id
11549 CHARACTER*80 emess
11550 IF ( id_id .NE. 1 ) THEN
11551 call wrf_debug(1,&
11552 'WARNING in nl_set_use_amsuaobs: use_amsuaobs applies to all domains. First arg ignored.')
11553 ENDIF
11554 model_config_rec%use_amsuaobs = use_amsuaobs
11555 RETURN
11556 END SUBROUTINE nl_set_use_amsuaobs
11557 SUBROUTINE nl_set_use_amsubobs ( id_id , use_amsubobs )
11558 logical , INTENT(IN) :: use_amsubobs
11559 INTEGER id_id
11560 CHARACTER*80 emess
11561 IF ( id_id .NE. 1 ) THEN
11562 call wrf_debug(1,&
11563 'WARNING in nl_set_use_amsubobs: use_amsubobs applies to all domains. First arg ignored.')
11564 ENDIF
11565 model_config_rec%use_amsubobs = use_amsubobs
11566 RETURN
11567 END SUBROUTINE nl_set_use_amsubobs
11568 SUBROUTINE nl_set_use_airsobs ( id_id , use_airsobs )
11569 logical , INTENT(IN) :: use_airsobs
11570 INTEGER id_id
11571 CHARACTER*80 emess
11572 IF ( id_id .NE. 1 ) THEN
11573 call wrf_debug(1,&
11574 'WARNING in nl_set_use_airsobs: use_airsobs applies to all domains. First arg ignored.')
11575 ENDIF
11576 model_config_rec%use_airsobs = use_airsobs
11577 RETURN
11578 END SUBROUTINE nl_set_use_airsobs
11579 SUBROUTINE nl_set_use_airsretobs ( id_id , use_airsretobs )
11580 logical , INTENT(IN) :: use_airsretobs
11581 INTEGER id_id
11582 CHARACTER*80 emess
11583 IF ( id_id .NE. 1 ) THEN
11584 call wrf_debug(1,&
11585 'WARNING in nl_set_use_airsretobs: use_airsretobs applies to all domains. First arg ignored.')
11586 ENDIF
11587 model_config_rec%use_airsretobs = use_airsretobs
11588 RETURN
11589 END SUBROUTINE nl_set_use_airsretobs
11590 SUBROUTINE nl_set_use_eos_amsuaobs ( id_id , use_eos_amsuaobs )
11591 logical , INTENT(IN) :: use_eos_amsuaobs
11592 INTEGER id_id
11593 CHARACTER*80 emess
11594 IF ( id_id .NE. 1 ) THEN
11595 call wrf_debug(1,&
11596 'WARNING in nl_set_use_eos_amsuaobs: use_eos_amsuaobs applies to all domains. First arg ignored.')
11597 ENDIF
11598 model_config_rec%use_eos_amsuaobs = use_eos_amsuaobs
11599 RETURN
11600 END SUBROUTINE nl_set_use_eos_amsuaobs
11601 SUBROUTINE nl_set_use_eos_radobs ( id_id , use_eos_radobs )
11602 logical , INTENT(IN) :: use_eos_radobs
11603 INTEGER id_id
11604 CHARACTER*80 emess
11605 IF ( id_id .NE. 1 ) THEN
11606 call wrf_debug(1,&
11607 'WARNING in nl_set_use_eos_radobs: use_eos_radobs applies to all domains. First arg ignored.')
11608 ENDIF
11609 model_config_rec%use_eos_radobs = use_eos_radobs
11610 RETURN
11611 END SUBROUTINE nl_set_use_eos_radobs
11612 SUBROUTINE nl_set_use_hsbobs ( id_id , use_hsbobs )
11613 logical , INTENT(IN) :: use_hsbobs
11614 INTEGER id_id
11615 CHARACTER*80 emess
11616 IF ( id_id .NE. 1 ) THEN
11617 call wrf_debug(1,&
11618 'WARNING in nl_set_use_hsbobs: use_hsbobs applies to all domains. First arg ignored.')
11619 ENDIF
11620 model_config_rec%use_hsbobs = use_hsbobs
11621 RETURN
11622 END SUBROUTINE nl_set_use_hsbobs
11623 SUBROUTINE nl_set_use_ssmisobs ( id_id , use_ssmisobs )
11624 logical , INTENT(IN) :: use_ssmisobs
11625 INTEGER id_id
11626 CHARACTER*80 emess
11627 IF ( id_id .NE. 1 ) THEN
11628 call wrf_debug(1,&
11629 'WARNING in nl_set_use_ssmisobs: use_ssmisobs applies to all domains. First arg ignored.')
11630 ENDIF
11631 model_config_rec%use_ssmisobs = use_ssmisobs
11632 RETURN
11633 END SUBROUTINE nl_set_use_ssmisobs
11634 SUBROUTINE nl_set_use_kma1dvar ( id_id , use_kma1dvar )
11635 logical , INTENT(IN) :: use_kma1dvar
11636 INTEGER id_id
11637 CHARACTER*80 emess
11638 IF ( id_id .NE. 1 ) THEN
11639 call wrf_debug(1,&
11640 'WARNING in nl_set_use_kma1dvar: use_kma1dvar applies to all domains. First arg ignored.')
11641 ENDIF
11642 model_config_rec%use_kma1dvar = use_kma1dvar
11643 RETURN
11644 END SUBROUTINE nl_set_use_kma1dvar
11645 SUBROUTINE nl_set_use_filtered_rad ( id_id , use_filtered_rad )
11646 logical , INTENT(IN) :: use_filtered_rad
11647 INTEGER id_id
11648 CHARACTER*80 emess
11649 IF ( id_id .NE. 1 ) THEN
11650 call wrf_debug(1,&
11651 'WARNING in nl_set_use_filtered_rad: use_filtered_rad applies to all domains. First arg ignored.')
11652 ENDIF
11653 model_config_rec%use_filtered_rad = use_filtered_rad
11654 RETURN
11655 END SUBROUTINE nl_set_use_filtered_rad
11656 SUBROUTINE nl_set_use_rad ( id_id , use_rad )
11657 logical , INTENT(IN) :: use_rad
11658 INTEGER id_id
11659 CHARACTER*80 emess
11660 IF ( id_id .NE. 1 ) THEN
11661 call wrf_debug(1,&
11662 'WARNING in nl_set_use_rad: use_rad applies to all domains. First arg ignored.')
11663 ENDIF
11664 model_config_rec%use_rad = use_rad
11665 RETURN
11666 END SUBROUTINE nl_set_use_rad
11667 SUBROUTINE nl_set_use_obsgts ( id_id , use_obsgts )
11668 logical , INTENT(IN) :: use_obsgts
11669 INTEGER id_id
11670 CHARACTER*80 emess
11671 IF ( id_id .NE. 1 ) THEN
11672 call wrf_debug(1,&
11673 'WARNING in nl_set_use_obsgts: use_obsgts applies to all domains. First arg ignored.')
11674 ENDIF
11675 model_config_rec%use_obsgts = use_obsgts
11676 RETURN
11677 END SUBROUTINE nl_set_use_obsgts
11678 SUBROUTINE nl_set_use_obs_errfac ( id_id , use_obs_errfac )
11679 logical , INTENT(IN) :: use_obs_errfac
11680 INTEGER id_id
11681 CHARACTER*80 emess
11682 IF ( id_id .NE. 1 ) THEN
11683 call wrf_debug(1,&
11684 'WARNING in nl_set_use_obs_errfac: use_obs_errfac applies to all domains. First arg ignored.')
11685 ENDIF
11686 model_config_rec%use_obs_errfac = use_obs_errfac
11687 RETURN
11688 END SUBROUTINE nl_set_use_obs_errfac
11689 SUBROUTINE nl_set_check_max_iv ( id_id , check_max_iv )
11690 logical , INTENT(IN) :: check_max_iv
11691 INTEGER id_id
11692 CHARACTER*80 emess
11693 IF ( id_id .NE. 1 ) THEN
11694 call wrf_debug(1,&
11695 'WARNING in nl_set_check_max_iv: check_max_iv applies to all domains. First arg ignored.')
11696 ENDIF
11697 model_config_rec%check_max_iv = check_max_iv
11698 RETURN
11699 END SUBROUTINE nl_set_check_max_iv
11700 SUBROUTINE nl_set_put_rand_seed ( id_id , put_rand_seed )
11701 logical , INTENT(IN) :: put_rand_seed
11702 INTEGER id_id
11703 CHARACTER*80 emess
11704 IF ( id_id .NE. 1 ) THEN
11705 call wrf_debug(1,&
11706 'WARNING in nl_set_put_rand_seed: put_rand_seed applies to all domains. First arg ignored.')
11707 ENDIF
11708 model_config_rec%put_rand_seed = put_rand_seed
11709 RETURN
11710 END SUBROUTINE nl_set_put_rand_seed
11711 SUBROUTINE nl_set_omb_set_rand ( id_id , omb_set_rand )
11712 logical , INTENT(IN) :: omb_set_rand
11713 INTEGER id_id
11714 CHARACTER*80 emess
11715 IF ( id_id .NE. 1 ) THEN
11716 call wrf_debug(1,&
11717 'WARNING in nl_set_omb_set_rand: omb_set_rand applies to all domains. First arg ignored.')
11718 ENDIF
11719 model_config_rec%omb_set_rand = omb_set_rand
11720 RETURN
11721 END SUBROUTINE nl_set_omb_set_rand
11722 SUBROUTINE nl_set_omb_add_noise ( id_id , omb_add_noise )
11723 logical , INTENT(IN) :: omb_add_noise
11724 INTEGER id_id
11725 CHARACTER*80 emess
11726 IF ( id_id .NE. 1 ) THEN
11727 call wrf_debug(1,&
11728 'WARNING in nl_set_omb_add_noise: omb_add_noise applies to all domains. First arg ignored.')
11729 ENDIF
11730 model_config_rec%omb_add_noise = omb_add_noise
11731 RETURN
11732 END SUBROUTINE nl_set_omb_add_noise
11733 SUBROUTINE nl_set_obs_qc_pointer ( id_id , obs_qc_pointer )
11734 integer , INTENT(IN) :: obs_qc_pointer
11735 INTEGER id_id
11736 CHARACTER*80 emess
11737 IF ( id_id .NE. 1 ) THEN
11738 call wrf_debug(1,&
11739 'WARNING in nl_set_obs_qc_pointer: obs_qc_pointer applies to all domains. First arg ignored.')
11740 ENDIF
11741 model_config_rec%obs_qc_pointer = obs_qc_pointer
11742 RETURN
11743 END SUBROUTINE nl_set_obs_qc_pointer
11744 SUBROUTINE nl_set_max_sound_input ( id_id , max_sound_input )
11745 integer , INTENT(IN) :: max_sound_input
11746 INTEGER id_id
11747 CHARACTER*80 emess
11748 IF ( id_id .NE. 1 ) THEN
11749 call wrf_debug(1,&
11750 'WARNING in nl_set_max_sound_input: max_sound_input applies to all domains. First arg ignored.')
11751 ENDIF
11752 model_config_rec%max_sound_input = max_sound_input
11753 RETURN
11754 END SUBROUTINE nl_set_max_sound_input
11755 SUBROUTINE nl_set_max_synop_input ( id_id , max_synop_input )
11756 integer , INTENT(IN) :: max_synop_input
11757 INTEGER id_id
11758 CHARACTER*80 emess
11759 IF ( id_id .NE. 1 ) THEN
11760 call wrf_debug(1,&
11761 'WARNING in nl_set_max_synop_input: max_synop_input applies to all domains. First arg ignored.')
11762 ENDIF
11763 model_config_rec%max_synop_input = max_synop_input
11764 RETURN
11765 END SUBROUTINE nl_set_max_synop_input
11766 SUBROUTINE nl_set_max_geoamv_input ( id_id , max_geoamv_input )
11767 integer , INTENT(IN) :: max_geoamv_input
11768 INTEGER id_id
11769 CHARACTER*80 emess
11770 IF ( id_id .NE. 1 ) THEN
11771 call wrf_debug(1,&
11772 'WARNING in nl_set_max_geoamv_input: max_geoamv_input applies to all domains. First arg ignored.')
11773 ENDIF
11774 model_config_rec%max_geoamv_input = max_geoamv_input
11775 RETURN
11776 END SUBROUTINE nl_set_max_geoamv_input
11777 SUBROUTINE nl_set_max_polaramv_input ( id_id , max_polaramv_input )
11778 integer , INTENT(IN) :: max_polaramv_input
11779 INTEGER id_id
11780 CHARACTER*80 emess
11781 IF ( id_id .NE. 1 ) THEN
11782 call wrf_debug(1,&
11783 'WARNING in nl_set_max_polaramv_input: max_polaramv_input applies to all domains. First arg ignored.')
11784 ENDIF
11785 model_config_rec%max_polaramv_input = max_polaramv_input
11786 RETURN
11787 END SUBROUTINE nl_set_max_polaramv_input
11788 SUBROUTINE nl_set_max_airep_input ( id_id , max_airep_input )
11789 integer , INTENT(IN) :: max_airep_input
11790 INTEGER id_id
11791 CHARACTER*80 emess
11792 IF ( id_id .NE. 1 ) THEN
11793 call wrf_debug(1,&
11794 'WARNING in nl_set_max_airep_input: max_airep_input applies to all domains. First arg ignored.')
11795 ENDIF
11796 model_config_rec%max_airep_input = max_airep_input
11797 RETURN
11798 END SUBROUTINE nl_set_max_airep_input
11799 SUBROUTINE nl_set_max_satem_input ( id_id , max_satem_input )
11800 integer , INTENT(IN) :: max_satem_input
11801 INTEGER id_id
11802 CHARACTER*80 emess
11803 IF ( id_id .NE. 1 ) THEN
11804 call wrf_debug(1,&
11805 'WARNING in nl_set_max_satem_input: max_satem_input applies to all domains. First arg ignored.')
11806 ENDIF
11807 model_config_rec%max_satem_input = max_satem_input
11808 RETURN
11809 END SUBROUTINE nl_set_max_satem_input
11810 SUBROUTINE nl_set_max_pilot_input ( id_id , max_pilot_input )
11811 integer , INTENT(IN) :: max_pilot_input
11812 INTEGER id_id
11813 CHARACTER*80 emess
11814 IF ( id_id .NE. 1 ) THEN
11815 call wrf_debug(1,&
11816 'WARNING in nl_set_max_pilot_input: max_pilot_input applies to all domains. First arg ignored.')
11817 ENDIF
11818 model_config_rec%max_pilot_input = max_pilot_input
11819 RETURN
11820 END SUBROUTINE nl_set_max_pilot_input
11821 SUBROUTINE nl_set_max_radar_input ( id_id , max_radar_input )
11822 integer , INTENT(IN) :: max_radar_input
11823 INTEGER id_id
11824 CHARACTER*80 emess
11825 IF ( id_id .NE. 1 ) THEN
11826 call wrf_debug(1,&
11827 'WARNING in nl_set_max_radar_input: max_radar_input applies to all domains. First arg ignored.')
11828 ENDIF
11829 model_config_rec%max_radar_input = max_radar_input
11830 RETURN
11831 END SUBROUTINE nl_set_max_radar_input
11832 SUBROUTINE nl_set_max_metar_input ( id_id , max_metar_input )
11833 integer , INTENT(IN) :: max_metar_input
11834 INTEGER id_id
11835 CHARACTER*80 emess
11836 IF ( id_id .NE. 1 ) THEN
11837 call wrf_debug(1,&
11838 'WARNING in nl_set_max_metar_input: max_metar_input applies to all domains. First arg ignored.')
11839 ENDIF
11840 model_config_rec%max_metar_input = max_metar_input
11841 RETURN
11842 END SUBROUTINE nl_set_max_metar_input
11843 SUBROUTINE nl_set_max_gpspw_input ( id_id , max_gpspw_input )
11844 integer , INTENT(IN) :: max_gpspw_input
11845 INTEGER id_id
11846 CHARACTER*80 emess
11847 IF ( id_id .NE. 1 ) THEN
11848 call wrf_debug(1,&
11849 'WARNING in nl_set_max_gpspw_input: max_gpspw_input applies to all domains. First arg ignored.')
11850 ENDIF
11851 model_config_rec%max_gpspw_input = max_gpspw_input
11852 RETURN
11853 END SUBROUTINE nl_set_max_gpspw_input
11854 SUBROUTINE nl_set_max_ships_input ( id_id , max_ships_input )
11855 integer , INTENT(IN) :: max_ships_input
11856 INTEGER id_id
11857 CHARACTER*80 emess
11858 IF ( id_id .NE. 1 ) THEN
11859 call wrf_debug(1,&
11860 'WARNING in nl_set_max_ships_input: max_ships_input applies to all domains. First arg ignored.')
11861 ENDIF
11862 model_config_rec%max_ships_input = max_ships_input
11863 RETURN
11864 END SUBROUTINE nl_set_max_ships_input
11865 SUBROUTINE nl_set_max_profiler_input ( id_id , max_profiler_input )
11866 integer , INTENT(IN) :: max_profiler_input
11867 INTEGER id_id
11868 CHARACTER*80 emess
11869 IF ( id_id .NE. 1 ) THEN
11870 call wrf_debug(1,&
11871 'WARNING in nl_set_max_profiler_input: max_profiler_input applies to all domains. First arg ignored.')
11872 ENDIF
11873 model_config_rec%max_profiler_input = max_profiler_input
11874 RETURN
11875 END SUBROUTINE nl_set_max_profiler_input
11876 SUBROUTINE nl_set_max_bogus_input ( id_id , max_bogus_input )
11877 integer , INTENT(IN) :: max_bogus_input
11878 INTEGER id_id
11879 CHARACTER*80 emess
11880 IF ( id_id .NE. 1 ) THEN
11881 call wrf_debug(1,&
11882 'WARNING in nl_set_max_bogus_input: max_bogus_input applies to all domains. First arg ignored.')
11883 ENDIF
11884 model_config_rec%max_bogus_input = max_bogus_input
11885 RETURN
11886 END SUBROUTINE nl_set_max_bogus_input
11887 SUBROUTINE nl_set_max_buoy_input ( id_id , max_buoy_input )
11888 integer , INTENT(IN) :: max_buoy_input
11889 INTEGER id_id
11890 CHARACTER*80 emess
11891 IF ( id_id .NE. 1 ) THEN
11892 call wrf_debug(1,&
11893 'WARNING in nl_set_max_buoy_input: max_buoy_input applies to all domains. First arg ignored.')
11894 ENDIF
11895 model_config_rec%max_buoy_input = max_buoy_input
11896 RETURN
11897 END SUBROUTINE nl_set_max_buoy_input
11898 SUBROUTINE nl_set_max_ssmi_ret_input ( id_id , max_ssmi_ret_input )
11899 integer , INTENT(IN) :: max_ssmi_ret_input
11900 INTEGER id_id
11901 CHARACTER*80 emess
11902 IF ( id_id .NE. 1 ) THEN
11903 call wrf_debug(1,&
11904 'WARNING in nl_set_max_ssmi_ret_input: max_ssmi_ret_input applies to all domains. First arg ignored.')
11905 ENDIF
11906 model_config_rec%max_ssmi_ret_input = max_ssmi_ret_input
11907 RETURN
11908 END SUBROUTINE nl_set_max_ssmi_ret_input
11909 SUBROUTINE nl_set_max_ssmi_tb_input ( id_id , max_ssmi_tb_input )
11910 integer , INTENT(IN) :: max_ssmi_tb_input
11911 INTEGER id_id
11912 CHARACTER*80 emess
11913 IF ( id_id .NE. 1 ) THEN
11914 call wrf_debug(1,&
11915 'WARNING in nl_set_max_ssmi_tb_input: max_ssmi_tb_input applies to all domains. First arg ignored.')
11916 ENDIF
11917 model_config_rec%max_ssmi_tb_input = max_ssmi_tb_input
11918 RETURN
11919 END SUBROUTINE nl_set_max_ssmi_tb_input
11920 SUBROUTINE nl_set_max_ssmt1_input ( id_id , max_ssmt1_input )
11921 integer , INTENT(IN) :: max_ssmt1_input
11922 INTEGER id_id
11923 CHARACTER*80 emess
11924 IF ( id_id .NE. 1 ) THEN
11925 call wrf_debug(1,&
11926 'WARNING in nl_set_max_ssmt1_input: max_ssmt1_input applies to all domains. First arg ignored.')
11927 ENDIF
11928 model_config_rec%max_ssmt1_input = max_ssmt1_input
11929 RETURN
11930 END SUBROUTINE nl_set_max_ssmt1_input
11931 SUBROUTINE nl_set_max_ssmt2_input ( id_id , max_ssmt2_input )
11932 integer , INTENT(IN) :: max_ssmt2_input
11933 INTEGER id_id
11934 CHARACTER*80 emess
11935 IF ( id_id .NE. 1 ) THEN
11936 call wrf_debug(1,&
11937 'WARNING in nl_set_max_ssmt2_input: max_ssmt2_input applies to all domains. First arg ignored.')
11938 ENDIF
11939 model_config_rec%max_ssmt2_input = max_ssmt2_input
11940 RETURN
11941 END SUBROUTINE nl_set_max_ssmt2_input
11942 SUBROUTINE nl_set_max_qscat_input ( id_id , max_qscat_input )
11943 integer , INTENT(IN) :: max_qscat_input
11944 INTEGER id_id
11945 CHARACTER*80 emess
11946 IF ( id_id .NE. 1 ) THEN
11947 call wrf_debug(1,&
11948 'WARNING in nl_set_max_qscat_input: max_qscat_input applies to all domains. First arg ignored.')
11949 ENDIF
11950 model_config_rec%max_qscat_input = max_qscat_input
11951 RETURN
11952 END SUBROUTINE nl_set_max_qscat_input
11953 SUBROUTINE nl_set_max_gpsref_input ( id_id , max_gpsref_input )
11954 integer , INTENT(IN) :: max_gpsref_input
11955 INTEGER id_id
11956 CHARACTER*80 emess
11957 IF ( id_id .NE. 1 ) THEN
11958 call wrf_debug(1,&
11959 'WARNING in nl_set_max_gpsref_input: max_gpsref_input applies to all domains. First arg ignored.')
11960 ENDIF
11961 model_config_rec%max_gpsref_input = max_gpsref_input
11962 RETURN
11963 END SUBROUTINE nl_set_max_gpsref_input
11964 SUBROUTINE nl_set_max_airsret_input ( id_id , max_airsret_input )
11965 integer , INTENT(IN) :: max_airsret_input
11966 INTEGER id_id
11967 CHARACTER*80 emess
11968 IF ( id_id .NE. 1 ) THEN
11969 call wrf_debug(1,&
11970 'WARNING in nl_set_max_airsret_input: max_airsret_input applies to all domains. First arg ignored.')
11971 ENDIF
11972 model_config_rec%max_airsret_input = max_airsret_input
11973 RETURN
11974 END SUBROUTINE nl_set_max_airsret_input
11975 SUBROUTINE nl_set_max_tovs_input ( id_id , max_tovs_input )
11976 integer , INTENT(IN) :: max_tovs_input
11977 INTEGER id_id
11978 CHARACTER*80 emess
11979 IF ( id_id .NE. 1 ) THEN
11980 call wrf_debug(1,&
11981 'WARNING in nl_set_max_tovs_input: max_tovs_input applies to all domains. First arg ignored.')
11982 ENDIF
11983 model_config_rec%max_tovs_input = max_tovs_input
11984 RETURN
11985 END SUBROUTINE nl_set_max_tovs_input
11986 SUBROUTINE nl_set_max_ssmis_input ( id_id , max_ssmis_input )
11987 integer , INTENT(IN) :: max_ssmis_input
11988 INTEGER id_id
11989 CHARACTER*80 emess
11990 IF ( id_id .NE. 1 ) THEN
11991 call wrf_debug(1,&
11992 'WARNING in nl_set_max_ssmis_input: max_ssmis_input applies to all domains. First arg ignored.')
11993 ENDIF
11994 model_config_rec%max_ssmis_input = max_ssmis_input
11995 RETURN
11996 END SUBROUTINE nl_set_max_ssmis_input
11997 SUBROUTINE nl_set_report_start ( id_id , report_start )
11998 integer , INTENT(IN) :: report_start
11999 INTEGER id_id
12000 CHARACTER*80 emess
12001 IF ( id_id .NE. 1 ) THEN
12002 call wrf_debug(1,&
12003 'WARNING in nl_set_report_start: report_start applies to all domains. First arg ignored.')
12004 ENDIF
12005 model_config_rec%report_start = report_start
12006 RETURN
12007 END SUBROUTINE nl_set_report_start
12008 SUBROUTINE nl_set_report_end ( id_id , report_end )
12009 integer , INTENT(IN) :: report_end
12010 INTEGER id_id
12011 CHARACTER*80 emess
12012 IF ( id_id .NE. 1 ) THEN
12013 call wrf_debug(1,&
12014 'WARNING in nl_set_report_end: report_end applies to all domains. First arg ignored.')
12015 ENDIF
12016 model_config_rec%report_end = report_end
12017 RETURN
12018 END SUBROUTINE nl_set_report_end
12019 SUBROUTINE nl_set_tovs_start ( id_id , tovs_start )
12020 integer , INTENT(IN) :: tovs_start
12021 INTEGER id_id
12022 CHARACTER*80 emess
12023 IF ( id_id .NE. 1 ) THEN
12024 call wrf_debug(1,&
12025 'WARNING in nl_set_tovs_start: tovs_start applies to all domains. First arg ignored.')
12026 ENDIF
12027 model_config_rec%tovs_start = tovs_start
12028 RETURN
12029 END SUBROUTINE nl_set_tovs_start
12030 SUBROUTINE nl_set_tovs_end ( id_id , tovs_end )
12031 integer , INTENT(IN) :: tovs_end
12032 INTEGER id_id
12033 CHARACTER*80 emess
12034 IF ( id_id .NE. 1 ) THEN
12035 call wrf_debug(1,&
12036 'WARNING in nl_set_tovs_end: tovs_end applies to all domains. First arg ignored.')
12037 ENDIF
12038 model_config_rec%tovs_end = tovs_end
12039 RETURN
12040 END SUBROUTINE nl_set_tovs_end
12041 SUBROUTINE nl_set_max_ext_its ( id_id , max_ext_its )
12042 integer , INTENT(IN) :: max_ext_its
12043 INTEGER id_id
12044 CHARACTER*80 emess
12045 IF ( id_id .NE. 1 ) THEN
12046 call wrf_debug(1,&
12047 'WARNING in nl_set_max_ext_its: max_ext_its applies to all domains. First arg ignored.')
12048 ENDIF
12049 model_config_rec%max_ext_its = max_ext_its
12050 RETURN
12051 END SUBROUTINE nl_set_max_ext_its
12052 SUBROUTINE nl_set_ntmax ( id_id , ntmax )
12053 integer , INTENT(IN) :: ntmax
12054 INTEGER id_id
12055 CHARACTER*80 emess
12056 IF ( id_id .NE. 1 ) THEN
12057 call wrf_debug(1,&
12058 'WARNING in nl_set_ntmax: ntmax applies to all domains. First arg ignored.')
12059 ENDIF
12060 model_config_rec%ntmax = ntmax
12061 RETURN
12062 END SUBROUTINE nl_set_ntmax
12063 SUBROUTINE nl_set_nsave ( id_id , nsave )
12064 integer , INTENT(IN) :: nsave
12065 INTEGER id_id
12066 CHARACTER*80 emess
12067 IF ( id_id .NE. 1 ) THEN
12068 call wrf_debug(1,&
12069 'WARNING in nl_set_nsave: nsave applies to all domains. First arg ignored.')
12070 ENDIF
12071 model_config_rec%nsave = nsave
12072 RETURN
12073 END SUBROUTINE nl_set_nsave
12074 SUBROUTINE nl_set_write_interval ( id_id , write_interval )
12075 integer , INTENT(IN) :: write_interval
12076 INTEGER id_id
12077 CHARACTER*80 emess
12078 IF ( id_id .NE. 1 ) THEN
12079 call wrf_debug(1,&
12080 'WARNING in nl_set_write_interval: write_interval applies to all domains. First arg ignored.')
12081 ENDIF
12082 model_config_rec%write_interval = write_interval
12083 RETURN
12084 END SUBROUTINE nl_set_write_interval
12085 SUBROUTINE nl_set_eps ( id_id , eps )
12086 real , INTENT(IN) :: eps
12087 INTEGER id_id
12088 CHARACTER*80 emess
12089 model_config_rec%eps(id_id) = eps
12090 RETURN
12091 END SUBROUTINE nl_set_eps
12092 SUBROUTINE nl_set_rf_passes ( id_id , rf_passes )
12093 integer , INTENT(IN) :: rf_passes
12094 INTEGER id_id
12095 CHARACTER*80 emess
12096 IF ( id_id .NE. 1 ) THEN
12097 call wrf_debug(1,&
12098 'WARNING in nl_set_rf_passes: rf_passes applies to all domains. First arg ignored.')
12099 ENDIF
12100 model_config_rec%rf_passes = rf_passes
12101 RETURN
12102 END SUBROUTINE nl_set_rf_passes
12103 SUBROUTINE nl_set_var_scaling1 ( id_id , var_scaling1 )
12104 real , INTENT(IN) :: var_scaling1
12105 INTEGER id_id
12106 CHARACTER*80 emess
12107 IF ( id_id .NE. 1 ) THEN
12108 call wrf_debug(1,&
12109 'WARNING in nl_set_var_scaling1: var_scaling1 applies to all domains. First arg ignored.')
12110 ENDIF
12111 model_config_rec%var_scaling1 = var_scaling1
12112 RETURN
12113 END SUBROUTINE nl_set_var_scaling1
12114 SUBROUTINE nl_set_var_scaling2 ( id_id , var_scaling2 )
12115 real , INTENT(IN) :: var_scaling2
12116 INTEGER id_id
12117 CHARACTER*80 emess
12118 IF ( id_id .NE. 1 ) THEN
12119 call wrf_debug(1,&
12120 'WARNING in nl_set_var_scaling2: var_scaling2 applies to all domains. First arg ignored.')
12121 ENDIF
12122 model_config_rec%var_scaling2 = var_scaling2
12123 RETURN
12124 END SUBROUTINE nl_set_var_scaling2
12125 SUBROUTINE nl_set_var_scaling3 ( id_id , var_scaling3 )
12126 real , INTENT(IN) :: var_scaling3
12127 INTEGER id_id
12128 CHARACTER*80 emess
12129 IF ( id_id .NE. 1 ) THEN
12130 call wrf_debug(1,&
12131 'WARNING in nl_set_var_scaling3: var_scaling3 applies to all domains. First arg ignored.')
12132 ENDIF
12133 model_config_rec%var_scaling3 = var_scaling3
12134 RETURN
12135 END SUBROUTINE nl_set_var_scaling3
12136 SUBROUTINE nl_set_var_scaling4 ( id_id , var_scaling4 )
12137 real , INTENT(IN) :: var_scaling4
12138 INTEGER id_id
12139 CHARACTER*80 emess
12140 IF ( id_id .NE. 1 ) THEN
12141 call wrf_debug(1,&
12142 'WARNING in nl_set_var_scaling4: var_scaling4 applies to all domains. First arg ignored.')
12143 ENDIF
12144 model_config_rec%var_scaling4 = var_scaling4
12145 RETURN
12146 END SUBROUTINE nl_set_var_scaling4
12147 SUBROUTINE nl_set_var_scaling5 ( id_id , var_scaling5 )
12148 real , INTENT(IN) :: var_scaling5
12149 INTEGER id_id
12150 CHARACTER*80 emess
12151 IF ( id_id .NE. 1 ) THEN
12152 call wrf_debug(1,&
12153 'WARNING in nl_set_var_scaling5: var_scaling5 applies to all domains. First arg ignored.')
12154 ENDIF
12155 model_config_rec%var_scaling5 = var_scaling5
12156 RETURN
12157 END SUBROUTINE nl_set_var_scaling5
12158 SUBROUTINE nl_set_len_scaling1 ( id_id , len_scaling1 )
12159 real , INTENT(IN) :: len_scaling1
12160 INTEGER id_id
12161 CHARACTER*80 emess
12162 IF ( id_id .NE. 1 ) THEN
12163 call wrf_debug(1,&
12164 'WARNING in nl_set_len_scaling1: len_scaling1 applies to all domains. First arg ignored.')
12165 ENDIF
12166 model_config_rec%len_scaling1 = len_scaling1
12167 RETURN
12168 END SUBROUTINE nl_set_len_scaling1
12169 SUBROUTINE nl_set_len_scaling2 ( id_id , len_scaling2 )
12170 real , INTENT(IN) :: len_scaling2
12171 INTEGER id_id
12172 CHARACTER*80 emess
12173 IF ( id_id .NE. 1 ) THEN
12174 call wrf_debug(1,&
12175 'WARNING in nl_set_len_scaling2: len_scaling2 applies to all domains. First arg ignored.')
12176 ENDIF
12177 model_config_rec%len_scaling2 = len_scaling2
12178 RETURN
12179 END SUBROUTINE nl_set_len_scaling2
12180 SUBROUTINE nl_set_len_scaling3 ( id_id , len_scaling3 )
12181 real , INTENT(IN) :: len_scaling3
12182 INTEGER id_id
12183 CHARACTER*80 emess
12184 IF ( id_id .NE. 1 ) THEN
12185 call wrf_debug(1,&
12186 'WARNING in nl_set_len_scaling3: len_scaling3 applies to all domains. First arg ignored.')
12187 ENDIF
12188 model_config_rec%len_scaling3 = len_scaling3
12189 RETURN
12190 END SUBROUTINE nl_set_len_scaling3
12191 SUBROUTINE nl_set_len_scaling4 ( id_id , len_scaling4 )
12192 real , INTENT(IN) :: len_scaling4
12193 INTEGER id_id
12194 CHARACTER*80 emess
12195 IF ( id_id .NE. 1 ) THEN
12196 call wrf_debug(1,&
12197 'WARNING in nl_set_len_scaling4: len_scaling4 applies to all domains. First arg ignored.')
12198 ENDIF
12199 model_config_rec%len_scaling4 = len_scaling4
12200 RETURN
12201 END SUBROUTINE nl_set_len_scaling4
12202 SUBROUTINE nl_set_len_scaling5 ( id_id , len_scaling5 )
12203 real , INTENT(IN) :: len_scaling5
12204 INTEGER id_id
12205 CHARACTER*80 emess
12206 IF ( id_id .NE. 1 ) THEN
12207 call wrf_debug(1,&
12208 'WARNING in nl_set_len_scaling5: len_scaling5 applies to all domains. First arg ignored.')
12209 ENDIF
12210 model_config_rec%len_scaling5 = len_scaling5
12211 RETURN
12212 END SUBROUTINE nl_set_len_scaling5
12213 SUBROUTINE nl_set_jb_factor ( id_id , jb_factor )
12214 real , INTENT(IN) :: jb_factor
12215 INTEGER id_id
12216 CHARACTER*80 emess
12217 IF ( id_id .NE. 1 ) THEN
12218 call wrf_debug(1,&
12219 'WARNING in nl_set_jb_factor: jb_factor applies to all domains. First arg ignored.')
12220 ENDIF
12221 model_config_rec%jb_factor = jb_factor
12222 RETURN
12223 END SUBROUTINE nl_set_jb_factor
12224 SUBROUTINE nl_set_je_factor ( id_id , je_factor )
12225 real , INTENT(IN) :: je_factor
12226 INTEGER id_id
12227 CHARACTER*80 emess
12228 IF ( id_id .NE. 1 ) THEN
12229 call wrf_debug(1,&
12230 'WARNING in nl_set_je_factor: je_factor applies to all domains. First arg ignored.')
12231 ENDIF
12232 model_config_rec%je_factor = je_factor
12233 RETURN
12234 END SUBROUTINE nl_set_je_factor
12235 SUBROUTINE nl_set_power_truncation ( id_id , power_truncation )
12236 real , INTENT(IN) :: power_truncation
12237 INTEGER id_id
12238 CHARACTER*80 emess
12239 IF ( id_id .NE. 1 ) THEN
12240 call wrf_debug(1,&
12241 'WARNING in nl_set_power_truncation: power_truncation applies to all domains. First arg ignored.')
12242 ENDIF
12243 model_config_rec%power_truncation = power_truncation
12244 RETURN
12245 END SUBROUTINE nl_set_power_truncation
12246 SUBROUTINE nl_set_def_sub_domain ( id_id , def_sub_domain )
12247 logical , INTENT(IN) :: def_sub_domain
12248 INTEGER id_id
12249 CHARACTER*80 emess
12250 IF ( id_id .NE. 1 ) THEN
12251 call wrf_debug(1,&
12252 'WARNING in nl_set_def_sub_domain: def_sub_domain applies to all domains. First arg ignored.')
12253 ENDIF
12254 model_config_rec%def_sub_domain = def_sub_domain
12255 RETURN
12256 END SUBROUTINE nl_set_def_sub_domain
12257 SUBROUTINE nl_set_x_start_sub_domain ( id_id , x_start_sub_domain )
12258 real , INTENT(IN) :: x_start_sub_domain
12259 INTEGER id_id
12260 CHARACTER*80 emess
12261 IF ( id_id .NE. 1 ) THEN
12262 call wrf_debug(1,&
12263 'WARNING in nl_set_x_start_sub_domain: x_start_sub_domain applies to all domains. First arg ignored.')
12264 ENDIF
12265 model_config_rec%x_start_sub_domain = x_start_sub_domain
12266 RETURN
12267 END SUBROUTINE nl_set_x_start_sub_domain
12268 SUBROUTINE nl_set_y_start_sub_domain ( id_id , y_start_sub_domain )
12269 real , INTENT(IN) :: y_start_sub_domain
12270 INTEGER id_id
12271 CHARACTER*80 emess
12272 IF ( id_id .NE. 1 ) THEN
12273 call wrf_debug(1,&
12274 'WARNING in nl_set_y_start_sub_domain: y_start_sub_domain applies to all domains. First arg ignored.')
12275 ENDIF
12276 model_config_rec%y_start_sub_domain = y_start_sub_domain
12277 RETURN
12278 END SUBROUTINE nl_set_y_start_sub_domain
12279 SUBROUTINE nl_set_x_end_sub_domain ( id_id , x_end_sub_domain )
12280 real , INTENT(IN) :: x_end_sub_domain
12281 INTEGER id_id
12282 CHARACTER*80 emess
12283 IF ( id_id .NE. 1 ) THEN
12284 call wrf_debug(1,&
12285 'WARNING in nl_set_x_end_sub_domain: x_end_sub_domain applies to all domains. First arg ignored.')
12286 ENDIF
12287 model_config_rec%x_end_sub_domain = x_end_sub_domain
12288 RETURN
12289 END SUBROUTINE nl_set_x_end_sub_domain
12290 SUBROUTINE nl_set_y_end_sub_domain ( id_id , y_end_sub_domain )
12291 real , INTENT(IN) :: y_end_sub_domain
12292 INTEGER id_id
12293 CHARACTER*80 emess
12294 IF ( id_id .NE. 1 ) THEN
12295 call wrf_debug(1,&
12296 'WARNING in nl_set_y_end_sub_domain: y_end_sub_domain applies to all domains. First arg ignored.')
12297 ENDIF
12298 model_config_rec%y_end_sub_domain = y_end_sub_domain
12299 RETURN
12300 END SUBROUTINE nl_set_y_end_sub_domain
12301 SUBROUTINE nl_set_stdout ( id_id , stdout )
12302 integer , INTENT(IN) :: stdout
12303 INTEGER id_id
12304 CHARACTER*80 emess
12305 IF ( id_id .NE. 1 ) THEN
12306 call wrf_debug(1,&
12307 'WARNING in nl_set_stdout: stdout applies to all domains. First arg ignored.')
12308 ENDIF
12309 model_config_rec%stdout = stdout
12310 RETURN
12311 END SUBROUTINE nl_set_stdout
12312 SUBROUTINE nl_set_stderr ( id_id , stderr )
12313 integer , INTENT(IN) :: stderr
12314 INTEGER id_id
12315 CHARACTER*80 emess
12316 IF ( id_id .NE. 1 ) THEN
12317 call wrf_debug(1,&
12318 'WARNING in nl_set_stderr: stderr applies to all domains. First arg ignored.')
12319 ENDIF
12320 model_config_rec%stderr = stderr
12321 RETURN
12322 END SUBROUTINE nl_set_stderr
12323 SUBROUTINE nl_set_trace_unit ( id_id , trace_unit )
12324 integer , INTENT(IN) :: trace_unit
12325 INTEGER id_id
12326 CHARACTER*80 emess
12327 IF ( id_id .NE. 1 ) THEN
12328 call wrf_debug(1,&
12329 'WARNING in nl_set_trace_unit: trace_unit applies to all domains. First arg ignored.')
12330 ENDIF
12331 model_config_rec%trace_unit = trace_unit
12332 RETURN
12333 END SUBROUTINE nl_set_trace_unit
12334 SUBROUTINE nl_set_trace_pe ( id_id , trace_pe )
12335 integer , INTENT(IN) :: trace_pe
12336 INTEGER id_id
12337 CHARACTER*80 emess
12338 IF ( id_id .NE. 1 ) THEN
12339 call wrf_debug(1,&
12340 'WARNING in nl_set_trace_pe: trace_pe applies to all domains. First arg ignored.')
12341 ENDIF
12342 model_config_rec%trace_pe = trace_pe
12343 RETURN
12344 END SUBROUTINE nl_set_trace_pe
12345 SUBROUTINE nl_set_trace_repeat_head ( id_id , trace_repeat_head )
12346 integer , INTENT(IN) :: trace_repeat_head
12347 INTEGER id_id
12348 CHARACTER*80 emess
12349 IF ( id_id .NE. 1 ) THEN
12350 call wrf_debug(1,&
12351 'WARNING in nl_set_trace_repeat_head: trace_repeat_head applies to all domains. First arg ignored.')
12352 ENDIF
12353 model_config_rec%trace_repeat_head = trace_repeat_head
12354 RETURN
12355 END SUBROUTINE nl_set_trace_repeat_head
12356 SUBROUTINE nl_set_trace_repeat_body ( id_id , trace_repeat_body )
12357 integer , INTENT(IN) :: trace_repeat_body
12358 INTEGER id_id
12359 CHARACTER*80 emess
12360 IF ( id_id .NE. 1 ) THEN
12361 call wrf_debug(1,&
12362 'WARNING in nl_set_trace_repeat_body: trace_repeat_body applies to all domains. First arg ignored.')
12363 ENDIF
12364 model_config_rec%trace_repeat_body = trace_repeat_body
12365 RETURN
12366 END SUBROUTINE nl_set_trace_repeat_body
12367 SUBROUTINE nl_set_trace_max_depth ( id_id , trace_max_depth )
12368 integer , INTENT(IN) :: trace_max_depth
12369 INTEGER id_id
12370 CHARACTER*80 emess
12371 IF ( id_id .NE. 1 ) THEN
12372 call wrf_debug(1,&
12373 'WARNING in nl_set_trace_max_depth: trace_max_depth applies to all domains. First arg ignored.')
12374 ENDIF
12375 model_config_rec%trace_max_depth = trace_max_depth
12376 RETURN
12377 END SUBROUTINE nl_set_trace_max_depth
12378 SUBROUTINE nl_set_trace_use ( id_id , trace_use )
12379 logical , INTENT(IN) :: trace_use
12380 INTEGER id_id
12381 CHARACTER*80 emess
12382 IF ( id_id .NE. 1 ) THEN
12383 call wrf_debug(1,&
12384 'WARNING in nl_set_trace_use: trace_use applies to all domains. First arg ignored.')
12385 ENDIF
12386 model_config_rec%trace_use = trace_use
12387 RETURN
12388 END SUBROUTINE nl_set_trace_use
12389 SUBROUTINE nl_set_trace_use_frequent ( id_id , trace_use_frequent )
12390 logical , INTENT(IN) :: trace_use_frequent
12391 INTEGER id_id
12392 CHARACTER*80 emess
12393 IF ( id_id .NE. 1 ) THEN
12394 call wrf_debug(1,&
12395 'WARNING in nl_set_trace_use_frequent: trace_use_frequent applies to all domains. First arg ignored.')
12396 ENDIF
12397 model_config_rec%trace_use_frequent = trace_use_frequent
12398 RETURN
12399 END SUBROUTINE nl_set_trace_use_frequent
12400 SUBROUTINE nl_set_trace_memory ( id_id , trace_memory )
12401 logical , INTENT(IN) :: trace_memory
12402 INTEGER id_id
12403 CHARACTER*80 emess
12404 IF ( id_id .NE. 1 ) THEN
12405 call wrf_debug(1,&
12406 'WARNING in nl_set_trace_memory: trace_memory applies to all domains. First arg ignored.')
12407 ENDIF
12408 model_config_rec%trace_memory = trace_memory
12409 RETURN
12410 END SUBROUTINE nl_set_trace_memory
12411 SUBROUTINE nl_set_trace_all_pes ( id_id , trace_all_pes )
12412 logical , INTENT(IN) :: trace_all_pes
12413 INTEGER id_id
12414 CHARACTER*80 emess
12415 IF ( id_id .NE. 1 ) THEN
12416 call wrf_debug(1,&
12417 'WARNING in nl_set_trace_all_pes: trace_all_pes applies to all domains. First arg ignored.')
12418 ENDIF
12419 model_config_rec%trace_all_pes = trace_all_pes
12420 RETURN
12421 END SUBROUTINE nl_set_trace_all_pes
12422 SUBROUTINE nl_set_trace_csv ( id_id , trace_csv )
12423 logical , INTENT(IN) :: trace_csv
12424 INTEGER id_id
12425 CHARACTER*80 emess
12426 IF ( id_id .NE. 1 ) THEN
12427 call wrf_debug(1,&
12428 'WARNING in nl_set_trace_csv: trace_csv applies to all domains. First arg ignored.')
12429 ENDIF
12430 model_config_rec%trace_csv = trace_csv
12431 RETURN
12432 END SUBROUTINE nl_set_trace_csv
12433 SUBROUTINE nl_set_use_html ( id_id , use_html )
12434 logical , INTENT(IN) :: use_html
12435 INTEGER id_id
12436 CHARACTER*80 emess
12437 IF ( id_id .NE. 1 ) THEN
12438 call wrf_debug(1,&
12439 'WARNING in nl_set_use_html: use_html applies to all domains. First arg ignored.')
12440 ENDIF
12441 model_config_rec%use_html = use_html
12442 RETURN
12443 END SUBROUTINE nl_set_use_html
12444 SUBROUTINE nl_set_warnings_are_fatal ( id_id , warnings_are_fatal )
12445 logical , INTENT(IN) :: warnings_are_fatal
12446 INTEGER id_id
12447 CHARACTER*80 emess
12448 IF ( id_id .NE. 1 ) THEN
12449 call wrf_debug(1,&
12450 'WARNING in nl_set_warnings_are_fatal: warnings_are_fatal applies to all domains. First arg ignored.')
12451 ENDIF
12452 model_config_rec%warnings_are_fatal = warnings_are_fatal
12453 RETURN
12454 END SUBROUTINE nl_set_warnings_are_fatal
12455 SUBROUTINE nl_set_testing_wrfvar ( id_id , testing_wrfvar )
12456 logical , INTENT(IN) :: testing_wrfvar
12457 INTEGER id_id
12458 CHARACTER*80 emess
12459 IF ( id_id .NE. 1 ) THEN
12460 call wrf_debug(1,&
12461 'WARNING in nl_set_testing_wrfvar: testing_wrfvar applies to all domains. First arg ignored.')
12462 ENDIF
12463 model_config_rec%testing_wrfvar = testing_wrfvar
12464 RETURN
12465 END SUBROUTINE nl_set_testing_wrfvar
12466 SUBROUTINE nl_set_test_transforms ( id_id , test_transforms )
12467 logical , INTENT(IN) :: test_transforms
12468 INTEGER id_id
12469 CHARACTER*80 emess
12470 IF ( id_id .NE. 1 ) THEN
12471 call wrf_debug(1,&
12472 'WARNING in nl_set_test_transforms: test_transforms applies to all domains. First arg ignored.')
12473 ENDIF
12474 model_config_rec%test_transforms = test_transforms
12475 RETURN
12476 END SUBROUTINE nl_set_test_transforms
12477 SUBROUTINE nl_set_test_statistics ( id_id , test_statistics )
12478 logical , INTENT(IN) :: test_statistics
12479 INTEGER id_id
12480 CHARACTER*80 emess
12481 IF ( id_id .NE. 1 ) THEN
12482 call wrf_debug(1,&
12483 'WARNING in nl_set_test_statistics: test_statistics applies to all domains. First arg ignored.')
12484 ENDIF
12485 model_config_rec%test_statistics = test_statistics
12486 RETURN
12487 END SUBROUTINE nl_set_test_statistics
12488 SUBROUTINE nl_set_interpolate_stats ( id_id , interpolate_stats )
12489 logical , INTENT(IN) :: interpolate_stats
12490 INTEGER id_id
12491 CHARACTER*80 emess
12492 IF ( id_id .NE. 1 ) THEN
12493 call wrf_debug(1,&
12494 'WARNING in nl_set_interpolate_stats: interpolate_stats applies to all domains. First arg ignored.')
12495 ENDIF
12496 model_config_rec%interpolate_stats = interpolate_stats
12497 RETURN
12498 END SUBROUTINE nl_set_interpolate_stats
12499 SUBROUTINE nl_set_testing_dm_exact ( id_id , testing_dm_exact )
12500 logical , INTENT(IN) :: testing_dm_exact
12501 INTEGER id_id
12502 CHARACTER*80 emess
12503 IF ( id_id .NE. 1 ) THEN
12504 call wrf_debug(1,&
12505 'WARNING in nl_set_testing_dm_exact: testing_dm_exact applies to all domains. First arg ignored.')
12506 ENDIF
12507 model_config_rec%testing_dm_exact = testing_dm_exact
12508 RETURN
12509 END SUBROUTINE nl_set_testing_dm_exact
12510 SUBROUTINE nl_set_cv_options_hum ( id_id , cv_options_hum )
12511 integer , INTENT(IN) :: cv_options_hum
12512 INTEGER id_id
12513 CHARACTER*80 emess
12514 IF ( id_id .NE. 1 ) THEN
12515 call wrf_debug(1,&
12516 'WARNING in nl_set_cv_options_hum: cv_options_hum applies to all domains. First arg ignored.')
12517 ENDIF
12518 model_config_rec%cv_options_hum = cv_options_hum
12519 RETURN
12520 END SUBROUTINE nl_set_cv_options_hum
12521 SUBROUTINE nl_set_check_rh ( id_id , check_rh )
12522 integer , INTENT(IN) :: check_rh
12523 INTEGER id_id
12524 CHARACTER*80 emess
12525 IF ( id_id .NE. 1 ) THEN
12526 call wrf_debug(1,&
12527 'WARNING in nl_set_check_rh: check_rh applies to all domains. First arg ignored.')
12528 ENDIF
12529 model_config_rec%check_rh = check_rh
12530 RETURN
12531 END SUBROUTINE nl_set_check_rh
12532 SUBROUTINE nl_set_set_omb_rand_fac ( id_id , set_omb_rand_fac )
12533 integer , INTENT(IN) :: set_omb_rand_fac
12534 INTEGER id_id
12535 CHARACTER*80 emess
12536 IF ( id_id .NE. 1 ) THEN
12537 call wrf_debug(1,&
12538 'WARNING in nl_set_set_omb_rand_fac: set_omb_rand_fac applies to all domains. First arg ignored.')
12539 ENDIF
12540 model_config_rec%set_omb_rand_fac = set_omb_rand_fac
12541 RETURN
12542 END SUBROUTINE nl_set_set_omb_rand_fac
12543 SUBROUTINE nl_set_seed_array1 ( id_id , seed_array1 )
12544 integer , INTENT(IN) :: seed_array1
12545 INTEGER id_id
12546 CHARACTER*80 emess
12547 IF ( id_id .NE. 1 ) THEN
12548 call wrf_debug(1,&
12549 'WARNING in nl_set_seed_array1: seed_array1 applies to all domains. First arg ignored.')
12550 ENDIF
12551 model_config_rec%seed_array1 = seed_array1
12552 RETURN
12553 END SUBROUTINE nl_set_seed_array1
12554 SUBROUTINE nl_set_seed_array2 ( id_id , seed_array2 )
12555 integer , INTENT(IN) :: seed_array2
12556 INTEGER id_id
12557 CHARACTER*80 emess
12558 IF ( id_id .NE. 1 ) THEN
12559 call wrf_debug(1,&
12560 'WARNING in nl_set_seed_array2: seed_array2 applies to all domains. First arg ignored.')
12561 ENDIF
12562 model_config_rec%seed_array2 = seed_array2
12563 RETURN
12564 END SUBROUTINE nl_set_seed_array2
12565 SUBROUTINE nl_set_sfc_assi_options ( id_id , sfc_assi_options )
12566 integer , INTENT(IN) :: sfc_assi_options
12567 INTEGER id_id
12568 CHARACTER*80 emess
12569 IF ( id_id .NE. 1 ) THEN
12570 call wrf_debug(1,&
12571 'WARNING in nl_set_sfc_assi_options: sfc_assi_options applies to all domains. First arg ignored.')
12572 ENDIF
12573 model_config_rec%sfc_assi_options = sfc_assi_options
12574 RETURN
12575 END SUBROUTINE nl_set_sfc_assi_options
12576 SUBROUTINE nl_set_calculate_cg_cost_fn ( id_id , calculate_cg_cost_fn )
12577 logical , INTENT(IN) :: calculate_cg_cost_fn
12578 INTEGER id_id
12579 CHARACTER*80 emess
12580 IF ( id_id .NE. 1 ) THEN
12581 call wrf_debug(1,&
12582 'WARNING in nl_set_calculate_cg_cost_fn: calculate_cg_cost_fn applies to all domains. First arg ignored.')
12583 ENDIF
12584 model_config_rec%calculate_cg_cost_fn = calculate_cg_cost_fn
12585 RETURN
12586 END SUBROUTINE nl_set_calculate_cg_cost_fn
12587 SUBROUTINE nl_set_lat_stats_option ( id_id , lat_stats_option )
12588 logical , INTENT(IN) :: lat_stats_option
12589 INTEGER id_id
12590 CHARACTER*80 emess
12591 IF ( id_id .NE. 1 ) THEN
12592 call wrf_debug(1,&
12593 'WARNING in nl_set_lat_stats_option: lat_stats_option applies to all domains. First arg ignored.')
12594 ENDIF
12595 model_config_rec%lat_stats_option = lat_stats_option
12596 RETURN
12597 END SUBROUTINE nl_set_lat_stats_option
12598 SUBROUTINE nl_set_as1 ( id_id , as1 )
12599 real , INTENT(IN) :: as1
12600 INTEGER id_id
12601 CHARACTER*80 emess
12602 model_config_rec%as1(id_id) = as1
12603 RETURN
12604 END SUBROUTINE nl_set_as1
12605 SUBROUTINE nl_set_as2 ( id_id , as2 )
12606 real , INTENT(IN) :: as2
12607 INTEGER id_id
12608 CHARACTER*80 emess
12609 model_config_rec%as2(id_id) = as2
12610 RETURN
12611 END SUBROUTINE nl_set_as2
12612 SUBROUTINE nl_set_as3 ( id_id , as3 )
12613 real , INTENT(IN) :: as3
12614 INTEGER id_id
12615 CHARACTER*80 emess
12616 model_config_rec%as3(id_id) = as3
12617 RETURN
12618 END SUBROUTINE nl_set_as3
12619 SUBROUTINE nl_set_as4 ( id_id , as4 )
12620 real , INTENT(IN) :: as4
12621 INTEGER id_id
12622 CHARACTER*80 emess
12623 model_config_rec%as4(id_id) = as4
12624 RETURN
12625 END SUBROUTINE nl_set_as4
12626 SUBROUTINE nl_set_as5 ( id_id , as5 )
12627 real , INTENT(IN) :: as5
12628 INTEGER id_id
12629 CHARACTER*80 emess
12630 model_config_rec%as5(id_id) = as5
12631 RETURN
12632 END SUBROUTINE nl_set_as5
12633 SUBROUTINE nl_set_balance_type ( id_id , balance_type )
12634 integer , INTENT(IN) :: balance_type
12635 INTEGER id_id
12636 CHARACTER*80 emess
12637 IF ( id_id .NE. 1 ) THEN
12638 call wrf_debug(1,&
12639 'WARNING in nl_set_balance_type: balance_type applies to all domains. First arg ignored.')
12640 ENDIF
12641 model_config_rec%balance_type = balance_type
12642 RETURN
12643 END SUBROUTINE nl_set_balance_type
12644 SUBROUTINE nl_set_vert_corr ( id_id , vert_corr )
12645 integer , INTENT(IN) :: vert_corr
12646 INTEGER id_id
12647 CHARACTER*80 emess
12648 IF ( id_id .NE. 1 ) THEN
12649 call wrf_debug(1,&
12650 'WARNING in nl_set_vert_corr: vert_corr applies to all domains. First arg ignored.')
12651 ENDIF
12652 model_config_rec%vert_corr = vert_corr
12653 RETURN
12654 END SUBROUTINE nl_set_vert_corr
12655 SUBROUTINE nl_set_vertical_ip ( id_id , vertical_ip )
12656 integer , INTENT(IN) :: vertical_ip
12657 INTEGER id_id
12658 CHARACTER*80 emess
12659 IF ( id_id .NE. 1 ) THEN
12660 call wrf_debug(1,&
12661 'WARNING in nl_set_vertical_ip: vertical_ip applies to all domains. First arg ignored.')
12662 ENDIF
12663 model_config_rec%vertical_ip = vertical_ip
12664 RETURN
12665 END SUBROUTINE nl_set_vertical_ip
12666 SUBROUTINE nl_set_vert_evalue ( id_id , vert_evalue )
12667 integer , INTENT(IN) :: vert_evalue
12668 INTEGER id_id
12669 CHARACTER*80 emess
12670 IF ( id_id .NE. 1 ) THEN
12671 call wrf_debug(1,&
12672 'WARNING in nl_set_vert_evalue: vert_evalue applies to all domains. First arg ignored.')
12673 ENDIF
12674 model_config_rec%vert_evalue = vert_evalue
12675 RETURN
12676 END SUBROUTINE nl_set_vert_evalue
12677 SUBROUTINE nl_set_max_vert_var1 ( id_id , max_vert_var1 )
12678 real , INTENT(IN) :: max_vert_var1
12679 INTEGER id_id
12680 CHARACTER*80 emess
12681 IF ( id_id .NE. 1 ) THEN
12682 call wrf_debug(1,&
12683 'WARNING in nl_set_max_vert_var1: max_vert_var1 applies to all domains. First arg ignored.')
12684 ENDIF
12685 model_config_rec%max_vert_var1 = max_vert_var1
12686 RETURN
12687 END SUBROUTINE nl_set_max_vert_var1
12688 SUBROUTINE nl_set_max_vert_var2 ( id_id , max_vert_var2 )
12689 real , INTENT(IN) :: max_vert_var2
12690 INTEGER id_id
12691 CHARACTER*80 emess
12692 IF ( id_id .NE. 1 ) THEN
12693 call wrf_debug(1,&
12694 'WARNING in nl_set_max_vert_var2: max_vert_var2 applies to all domains. First arg ignored.')
12695 ENDIF
12696 model_config_rec%max_vert_var2 = max_vert_var2
12697 RETURN
12698 END SUBROUTINE nl_set_max_vert_var2
12699 SUBROUTINE nl_set_max_vert_var3 ( id_id , max_vert_var3 )
12700 real , INTENT(IN) :: max_vert_var3
12701 INTEGER id_id
12702 CHARACTER*80 emess
12703 IF ( id_id .NE. 1 ) THEN
12704 call wrf_debug(1,&
12705 'WARNING in nl_set_max_vert_var3: max_vert_var3 applies to all domains. First arg ignored.')
12706 ENDIF
12707 model_config_rec%max_vert_var3 = max_vert_var3
12708 RETURN
12709 END SUBROUTINE nl_set_max_vert_var3
12710 SUBROUTINE nl_set_max_vert_var4 ( id_id , max_vert_var4 )
12711 real , INTENT(IN) :: max_vert_var4
12712 INTEGER id_id
12713 CHARACTER*80 emess
12714 IF ( id_id .NE. 1 ) THEN
12715 call wrf_debug(1,&
12716 'WARNING in nl_set_max_vert_var4: max_vert_var4 applies to all domains. First arg ignored.')
12717 ENDIF
12718 model_config_rec%max_vert_var4 = max_vert_var4
12719 RETURN
12720 END SUBROUTINE nl_set_max_vert_var4
12721 SUBROUTINE nl_set_max_vert_var5 ( id_id , max_vert_var5 )
12722 real , INTENT(IN) :: max_vert_var5
12723 INTEGER id_id
12724 CHARACTER*80 emess
12725 IF ( id_id .NE. 1 ) THEN
12726 call wrf_debug(1,&
12727 'WARNING in nl_set_max_vert_var5: max_vert_var5 applies to all domains. First arg ignored.')
12728 ENDIF
12729 model_config_rec%max_vert_var5 = max_vert_var5
12730 RETURN
12731 END SUBROUTINE nl_set_max_vert_var5
12732 SUBROUTINE nl_set_rtminit_print ( id_id , rtminit_print )
12733 integer , INTENT(IN) :: rtminit_print
12734 INTEGER id_id
12735 CHARACTER*80 emess
12736 IF ( id_id .NE. 1 ) THEN
12737 call wrf_debug(1,&
12738 'WARNING in nl_set_rtminit_print: rtminit_print applies to all domains. First arg ignored.')
12739 ENDIF
12740 model_config_rec%rtminit_print = rtminit_print
12741 RETURN
12742 END SUBROUTINE nl_set_rtminit_print
12743 SUBROUTINE nl_set_rtminit_nsensor ( id_id , rtminit_nsensor )
12744 integer , INTENT(IN) :: rtminit_nsensor
12745 INTEGER id_id
12746 CHARACTER*80 emess
12747 IF ( id_id .NE. 1 ) THEN
12748 call wrf_debug(1,&
12749 'WARNING in nl_set_rtminit_nsensor: rtminit_nsensor applies to all domains. First arg ignored.')
12750 ENDIF
12751 model_config_rec%rtminit_nsensor = rtminit_nsensor
12752 RETURN
12753 END SUBROUTINE nl_set_rtminit_nsensor
12754 SUBROUTINE nl_set_rtminit_platform ( id_id , rtminit_platform )
12755 integer , INTENT(IN) :: rtminit_platform
12756 INTEGER id_id
12757 CHARACTER*80 emess
12758 model_config_rec%rtminit_platform(id_id) = rtminit_platform
12759 RETURN
12760 END SUBROUTINE nl_set_rtminit_platform
12761 SUBROUTINE nl_set_rtminit_satid ( id_id , rtminit_satid )
12762 integer , INTENT(IN) :: rtminit_satid
12763 INTEGER id_id
12764 CHARACTER*80 emess
12765 model_config_rec%rtminit_satid(id_id) = rtminit_satid
12766 RETURN
12767 END SUBROUTINE nl_set_rtminit_satid
12768 SUBROUTINE nl_set_rtminit_sensor ( id_id , rtminit_sensor )
12769 integer , INTENT(IN) :: rtminit_sensor
12770 INTEGER id_id
12771 CHARACTER*80 emess
12772 model_config_rec%rtminit_sensor(id_id) = rtminit_sensor
12773 RETURN
12774 END SUBROUTINE nl_set_rtminit_sensor
12775 SUBROUTINE nl_set_rad_monitoring ( id_id , rad_monitoring )
12776 integer , INTENT(IN) :: rad_monitoring
12777 INTEGER id_id
12778 CHARACTER*80 emess
12779 model_config_rec%rad_monitoring(id_id) = rad_monitoring
12780 RETURN
12781 END SUBROUTINE nl_set_rad_monitoring
12782 SUBROUTINE nl_set_thinning_mesh ( id_id , thinning_mesh )
12783 real , INTENT(IN) :: thinning_mesh
12784 INTEGER id_id
12785 CHARACTER*80 emess
12786 model_config_rec%thinning_mesh(id_id) = thinning_mesh
12787 RETURN
12788 END SUBROUTINE nl_set_thinning_mesh
12789 SUBROUTINE nl_set_thinning ( id_id , thinning )
12790 logical , INTENT(IN) :: thinning
12791 INTEGER id_id
12792 CHARACTER*80 emess
12793 IF ( id_id .NE. 1 ) THEN
12794 call wrf_debug(1,&
12795 'WARNING in nl_set_thinning: thinning applies to all domains. First arg ignored.')
12796 ENDIF
12797 model_config_rec%thinning = thinning
12798 RETURN
12799 END SUBROUTINE nl_set_thinning
12800 SUBROUTINE nl_set_read_biascoef ( id_id , read_biascoef )
12801 logical , INTENT(IN) :: read_biascoef
12802 INTEGER id_id
12803 CHARACTER*80 emess
12804 IF ( id_id .NE. 1 ) THEN
12805 call wrf_debug(1,&
12806 'WARNING in nl_set_read_biascoef: read_biascoef applies to all domains. First arg ignored.')
12807 ENDIF
12808 model_config_rec%read_biascoef = read_biascoef
12809 RETURN
12810 END SUBROUTINE nl_set_read_biascoef
12811 SUBROUTINE nl_set_biascorr ( id_id , biascorr )
12812 logical , INTENT(IN) :: biascorr
12813 INTEGER id_id
12814 CHARACTER*80 emess
12815 IF ( id_id .NE. 1 ) THEN
12816 call wrf_debug(1,&
12817 'WARNING in nl_set_biascorr: biascorr applies to all domains. First arg ignored.')
12818 ENDIF
12819 model_config_rec%biascorr = biascorr
12820 RETURN
12821 END SUBROUTINE nl_set_biascorr
12822 SUBROUTINE nl_set_biasprep ( id_id , biasprep )
12823 logical , INTENT(IN) :: biasprep
12824 INTEGER id_id
12825 CHARACTER*80 emess
12826 IF ( id_id .NE. 1 ) THEN
12827 call wrf_debug(1,&
12828 'WARNING in nl_set_biasprep: biasprep applies to all domains. First arg ignored.')
12829 ENDIF
12830 model_config_rec%biasprep = biasprep
12831 RETURN
12832 END SUBROUTINE nl_set_biasprep
12833 SUBROUTINE nl_set_rttov_scatt ( id_id , rttov_scatt )
12834 logical , INTENT(IN) :: rttov_scatt
12835 INTEGER id_id
12836 CHARACTER*80 emess
12837 IF ( id_id .NE. 1 ) THEN
12838 call wrf_debug(1,&
12839 'WARNING in nl_set_rttov_scatt: rttov_scatt applies to all domains. First arg ignored.')
12840 ENDIF
12841 model_config_rec%rttov_scatt = rttov_scatt
12842 RETURN
12843 END SUBROUTINE nl_set_rttov_scatt
12844 SUBROUTINE nl_set_write_profile ( id_id , write_profile )
12845 logical , INTENT(IN) :: write_profile
12846 INTEGER id_id
12847 CHARACTER*80 emess
12848 IF ( id_id .NE. 1 ) THEN
12849 call wrf_debug(1,&
12850 'WARNING in nl_set_write_profile: write_profile applies to all domains. First arg ignored.')
12851 ENDIF
12852 model_config_rec%write_profile = write_profile
12853 RETURN
12854 END SUBROUTINE nl_set_write_profile
12855 SUBROUTINE nl_set_qc_rad ( id_id , qc_rad )
12856 logical , INTENT(IN) :: qc_rad
12857 INTEGER id_id
12858 CHARACTER*80 emess
12859 IF ( id_id .NE. 1 ) THEN
12860 call wrf_debug(1,&
12861 'WARNING in nl_set_qc_rad: qc_rad applies to all domains. First arg ignored.')
12862 ENDIF
12863 model_config_rec%qc_rad = qc_rad
12864 RETURN
12865 END SUBROUTINE nl_set_qc_rad
12866 SUBROUTINE nl_set_write_iv_rad_ascii ( id_id , write_iv_rad_ascii )
12867 logical , INTENT(IN) :: write_iv_rad_ascii
12868 INTEGER id_id
12869 CHARACTER*80 emess
12870 IF ( id_id .NE. 1 ) THEN
12871 call wrf_debug(1,&
12872 'WARNING in nl_set_write_iv_rad_ascii: write_iv_rad_ascii applies to all domains. First arg ignored.')
12873 ENDIF
12874 model_config_rec%write_iv_rad_ascii = write_iv_rad_ascii
12875 RETURN
12876 END SUBROUTINE nl_set_write_iv_rad_ascii
12877 SUBROUTINE nl_set_write_oa_rad_ascii ( id_id , write_oa_rad_ascii )
12878 logical , INTENT(IN) :: write_oa_rad_ascii
12879 INTEGER id_id
12880 CHARACTER*80 emess
12881 IF ( id_id .NE. 1 ) THEN
12882 call wrf_debug(1,&
12883 'WARNING in nl_set_write_oa_rad_ascii: write_oa_rad_ascii applies to all domains. First arg ignored.')
12884 ENDIF
12885 model_config_rec%write_oa_rad_ascii = write_oa_rad_ascii
12886 RETURN
12887 END SUBROUTINE nl_set_write_oa_rad_ascii
12888 SUBROUTINE nl_set_write_filtered_rad ( id_id , write_filtered_rad )
12889 logical , INTENT(IN) :: write_filtered_rad
12890 INTEGER id_id
12891 CHARACTER*80 emess
12892 IF ( id_id .NE. 1 ) THEN
12893 call wrf_debug(1,&
12894 'WARNING in nl_set_write_filtered_rad: write_filtered_rad applies to all domains. First arg ignored.')
12895 ENDIF
12896 model_config_rec%write_filtered_rad = write_filtered_rad
12897 RETURN
12898 END SUBROUTINE nl_set_write_filtered_rad
12899 SUBROUTINE nl_set_use_error_factor_rad ( id_id , use_error_factor_rad )
12900 logical , INTENT(IN) :: use_error_factor_rad
12901 INTEGER id_id
12902 CHARACTER*80 emess
12903 IF ( id_id .NE. 1 ) THEN
12904 call wrf_debug(1,&
12905 'WARNING in nl_set_use_error_factor_rad: use_error_factor_rad applies to all domains. First arg ignored.')
12906 ENDIF
12907 model_config_rec%use_error_factor_rad = use_error_factor_rad
12908 RETURN
12909 END SUBROUTINE nl_set_use_error_factor_rad
12910 SUBROUTINE nl_set_use_landem ( id_id , use_landem )
12911 logical , INTENT(IN) :: use_landem
12912 INTEGER id_id
12913 CHARACTER*80 emess
12914 IF ( id_id .NE. 1 ) THEN
12915 call wrf_debug(1,&
12916 'WARNING in nl_set_use_landem: use_landem applies to all domains. First arg ignored.')
12917 ENDIF
12918 model_config_rec%use_landem = use_landem
12919 RETURN
12920 END SUBROUTINE nl_set_use_landem
12921 SUBROUTINE nl_set_mw_emis_sea ( id_id , mw_emis_sea )
12922 integer , INTENT(IN) :: mw_emis_sea
12923 INTEGER id_id
12924 CHARACTER*80 emess
12925 IF ( id_id .NE. 1 ) THEN
12926 call wrf_debug(1,&
12927 'WARNING in nl_set_mw_emis_sea: mw_emis_sea applies to all domains. First arg ignored.')
12928 ENDIF
12929 model_config_rec%mw_emis_sea = mw_emis_sea
12930 RETURN
12931 END SUBROUTINE nl_set_mw_emis_sea
12932 SUBROUTINE nl_set_tovs_min_transfer ( id_id , tovs_min_transfer )
12933 integer , INTENT(IN) :: tovs_min_transfer
12934 INTEGER id_id
12935 CHARACTER*80 emess
12936 IF ( id_id .NE. 1 ) THEN
12937 call wrf_debug(1,&
12938 'WARNING in nl_set_tovs_min_transfer: tovs_min_transfer applies to all domains. First arg ignored.')
12939 ENDIF
12940 model_config_rec%tovs_min_transfer = tovs_min_transfer
12941 RETURN
12942 END SUBROUTINE nl_set_tovs_min_transfer
12943 SUBROUTINE nl_set_tovs_batch ( id_id , tovs_batch )
12944 logical , INTENT(IN) :: tovs_batch
12945 INTEGER id_id
12946 CHARACTER*80 emess
12947 IF ( id_id .NE. 1 ) THEN
12948 call wrf_debug(1,&
12949 'WARNING in nl_set_tovs_batch: tovs_batch applies to all domains. First arg ignored.')
12950 ENDIF
12951 model_config_rec%tovs_batch = tovs_batch
12952 RETURN
12953 END SUBROUTINE nl_set_tovs_batch
12954 SUBROUTINE nl_set_rtm_option ( id_id , rtm_option )
12955 integer , INTENT(IN) :: rtm_option
12956 INTEGER id_id
12957 CHARACTER*80 emess
12958 IF ( id_id .NE. 1 ) THEN
12959 call wrf_debug(1,&
12960 'WARNING in nl_set_rtm_option: rtm_option applies to all domains. First arg ignored.')
12961 ENDIF
12962 model_config_rec%rtm_option = rtm_option
12963 RETURN
12964 END SUBROUTINE nl_set_rtm_option
12965 SUBROUTINE nl_set_use_crtm_kmatrix ( id_id , use_crtm_kmatrix )
12966 logical , INTENT(IN) :: use_crtm_kmatrix
12967 INTEGER id_id
12968 CHARACTER*80 emess
12969 IF ( id_id .NE. 1 ) THEN
12970 call wrf_debug(1,&
12971 'WARNING in nl_set_use_crtm_kmatrix: use_crtm_kmatrix applies to all domains. First arg ignored.')
12972 ENDIF
12973 model_config_rec%use_crtm_kmatrix = use_crtm_kmatrix
12974 RETURN
12975 END SUBROUTINE nl_set_use_crtm_kmatrix
12976 SUBROUTINE nl_set_use_crtm_kmatrix_fast ( id_id , use_crtm_kmatrix_fast )
12977 logical , INTENT(IN) :: use_crtm_kmatrix_fast
12978 INTEGER id_id
12979 CHARACTER*80 emess
12980 IF ( id_id .NE. 1 ) THEN
12981 call wrf_debug(1,&
12982 'WARNING in nl_set_use_crtm_kmatrix_fast: use_crtm_kmatrix_fast applies to all domains. First arg ignored.')
12983 ENDIF
12984 model_config_rec%use_crtm_kmatrix_fast = use_crtm_kmatrix_fast
12985 RETURN
12986 END SUBROUTINE nl_set_use_crtm_kmatrix_fast
12987 SUBROUTINE nl_set_crtm_cloud ( id_id , crtm_cloud )
12988 logical , INTENT(IN) :: crtm_cloud
12989 INTEGER id_id
12990 CHARACTER*80 emess
12991 IF ( id_id .NE. 1 ) THEN
12992 call wrf_debug(1,&
12993 'WARNING in nl_set_crtm_cloud: crtm_cloud applies to all domains. First arg ignored.')
12994 ENDIF
12995 model_config_rec%crtm_cloud = crtm_cloud
12996 RETURN
12997 END SUBROUTINE nl_set_crtm_cloud
12998 SUBROUTINE nl_set_only_sea_rad ( id_id , only_sea_rad )
12999 logical , INTENT(IN) :: only_sea_rad
13000 INTEGER id_id
13001 CHARACTER*80 emess
13002 IF ( id_id .NE. 1 ) THEN
13003 call wrf_debug(1,&
13004 'WARNING in nl_set_only_sea_rad: only_sea_rad applies to all domains. First arg ignored.')
13005 ENDIF
13006 model_config_rec%only_sea_rad = only_sea_rad
13007 RETURN
13008 END SUBROUTINE nl_set_only_sea_rad
13009 SUBROUTINE nl_set_spccoeff_file ( id_id , spccoeff_file )
13010 character*256 , INTENT(IN) :: spccoeff_file
13011 INTEGER id_id
13012 CHARACTER*80 emess
13013 IF ( id_id .NE. 1 ) THEN
13014 call wrf_debug(1,&
13015 'WARNING in nl_set_spccoeff_file: spccoeff_file applies to all domains. First arg ignored.')
13016 ENDIF
13017 model_config_rec%spccoeff_file = trim(spccoeff_file)
13018 RETURN
13019 END SUBROUTINE nl_set_spccoeff_file
13020 SUBROUTINE nl_set_taucoeff_file ( id_id , taucoeff_file )
13021 character*256 , INTENT(IN) :: taucoeff_file
13022 INTEGER id_id
13023 CHARACTER*80 emess
13024 IF ( id_id .NE. 1 ) THEN
13025 call wrf_debug(1,&
13026 'WARNING in nl_set_taucoeff_file: taucoeff_file applies to all domains. First arg ignored.')
13027 ENDIF
13028 model_config_rec%taucoeff_file = trim(taucoeff_file)
13029 RETURN
13030 END SUBROUTINE nl_set_taucoeff_file
13031 SUBROUTINE nl_set_aerosolcoeff_file ( id_id , aerosolcoeff_file )
13032 character*256 , INTENT(IN) :: aerosolcoeff_file
13033 INTEGER id_id
13034 CHARACTER*80 emess
13035 IF ( id_id .NE. 1 ) THEN
13036 call wrf_debug(1,&
13037 'WARNING in nl_set_aerosolcoeff_file: aerosolcoeff_file applies to all domains. First arg ignored.')
13038 ENDIF
13039 model_config_rec%aerosolcoeff_file = trim(aerosolcoeff_file)
13040 RETURN
13041 END SUBROUTINE nl_set_aerosolcoeff_file
13042 SUBROUTINE nl_set_cloudcoeff_file ( id_id , cloudcoeff_file )
13043 character*256 , INTENT(IN) :: cloudcoeff_file
13044 INTEGER id_id
13045 CHARACTER*80 emess
13046 IF ( id_id .NE. 1 ) THEN
13047 call wrf_debug(1,&
13048 'WARNING in nl_set_cloudcoeff_file: cloudcoeff_file applies to all domains. First arg ignored.')
13049 ENDIF
13050 model_config_rec%cloudcoeff_file = trim(cloudcoeff_file)
13051 RETURN
13052 END SUBROUTINE nl_set_cloudcoeff_file
13053 SUBROUTINE nl_set_emiscoeff_file ( id_id , emiscoeff_file )
13054 character*256 , INTENT(IN) :: emiscoeff_file
13055 INTEGER id_id
13056 CHARACTER*80 emess
13057 IF ( id_id .NE. 1 ) THEN
13058 call wrf_debug(1,&
13059 'WARNING in nl_set_emiscoeff_file: emiscoeff_file applies to all domains. First arg ignored.')
13060 ENDIF
13061 model_config_rec%emiscoeff_file = trim(emiscoeff_file)
13062 RETURN
13063 END SUBROUTINE nl_set_emiscoeff_file
13064 SUBROUTINE nl_set_num_pseudo ( id_id , num_pseudo )
13065 integer , INTENT(IN) :: num_pseudo
13066 INTEGER id_id
13067 CHARACTER*80 emess
13068 IF ( id_id .NE. 1 ) THEN
13069 call wrf_debug(1,&
13070 'WARNING in nl_set_num_pseudo: num_pseudo applies to all domains. First arg ignored.')
13071 ENDIF
13072 model_config_rec%num_pseudo = num_pseudo
13073 RETURN
13074 END SUBROUTINE nl_set_num_pseudo
13075 SUBROUTINE nl_set_pseudo_x ( id_id , pseudo_x )
13076 real , INTENT(IN) :: pseudo_x
13077 INTEGER id_id
13078 CHARACTER*80 emess
13079 IF ( id_id .NE. 1 ) THEN
13080 call wrf_debug(1,&
13081 'WARNING in nl_set_pseudo_x: pseudo_x applies to all domains. First arg ignored.')
13082 ENDIF
13083 model_config_rec%pseudo_x = pseudo_x
13084 RETURN
13085 END SUBROUTINE nl_set_pseudo_x
13086 SUBROUTINE nl_set_pseudo_y ( id_id , pseudo_y )
13087 real , INTENT(IN) :: pseudo_y
13088 INTEGER id_id
13089 CHARACTER*80 emess
13090 IF ( id_id .NE. 1 ) THEN
13091 call wrf_debug(1,&
13092 'WARNING in nl_set_pseudo_y: pseudo_y applies to all domains. First arg ignored.')
13093 ENDIF
13094 model_config_rec%pseudo_y = pseudo_y
13095 RETURN
13096 END SUBROUTINE nl_set_pseudo_y
13097 SUBROUTINE nl_set_pseudo_z ( id_id , pseudo_z )
13098 real , INTENT(IN) :: pseudo_z
13099 INTEGER id_id
13100 CHARACTER*80 emess
13101 IF ( id_id .NE. 1 ) THEN
13102 call wrf_debug(1,&
13103 'WARNING in nl_set_pseudo_z: pseudo_z applies to all domains. First arg ignored.')
13104 ENDIF
13105 model_config_rec%pseudo_z = pseudo_z
13106 RETURN
13107 END SUBROUTINE nl_set_pseudo_z
13108 SUBROUTINE nl_set_pseudo_val ( id_id , pseudo_val )
13109 real , INTENT(IN) :: pseudo_val
13110 INTEGER id_id
13111 CHARACTER*80 emess
13112 IF ( id_id .NE. 1 ) THEN
13113 call wrf_debug(1,&
13114 'WARNING in nl_set_pseudo_val: pseudo_val applies to all domains. First arg ignored.')
13115 ENDIF
13116 model_config_rec%pseudo_val = pseudo_val
13117 RETURN
13118 END SUBROUTINE nl_set_pseudo_val
13119 SUBROUTINE nl_set_pseudo_err ( id_id , pseudo_err )
13120 real , INTENT(IN) :: pseudo_err
13121 INTEGER id_id
13122 CHARACTER*80 emess
13123 IF ( id_id .NE. 1 ) THEN
13124 call wrf_debug(1,&
13125 'WARNING in nl_set_pseudo_err: pseudo_err applies to all domains. First arg ignored.')
13126 ENDIF
13127 model_config_rec%pseudo_err = pseudo_err
13128 RETURN
13129 END SUBROUTINE nl_set_pseudo_err
13130 SUBROUTINE nl_set_alphacv_method ( id_id , alphacv_method )
13131 integer , INTENT(IN) :: alphacv_method
13132 INTEGER id_id
13133 CHARACTER*80 emess
13134 IF ( id_id .NE. 1 ) THEN
13135 call wrf_debug(1,&
13136 'WARNING in nl_set_alphacv_method: alphacv_method applies to all domains. First arg ignored.')
13137 ENDIF
13138 model_config_rec%alphacv_method = alphacv_method
13139 RETURN
13140 END SUBROUTINE nl_set_alphacv_method
13141 SUBROUTINE nl_set_ensdim_alpha ( id_id , ensdim_alpha )
13142 integer , INTENT(IN) :: ensdim_alpha
13143 INTEGER id_id
13144 CHARACTER*80 emess
13145 IF ( id_id .NE. 1 ) THEN
13146 call wrf_debug(1,&
13147 'WARNING in nl_set_ensdim_alpha: ensdim_alpha applies to all domains. First arg ignored.')
13148 ENDIF
13149 model_config_rec%ensdim_alpha = ensdim_alpha
13150 RETURN
13151 END SUBROUTINE nl_set_ensdim_alpha
13152 SUBROUTINE nl_set_alpha_truncation ( id_id , alpha_truncation )
13153 integer , INTENT(IN) :: alpha_truncation
13154 INTEGER id_id
13155 CHARACTER*80 emess
13156 IF ( id_id .NE. 1 ) THEN
13157 call wrf_debug(1,&
13158 'WARNING in nl_set_alpha_truncation: alpha_truncation applies to all domains. First arg ignored.')
13159 ENDIF
13160 model_config_rec%alpha_truncation = alpha_truncation
13161 RETURN
13162 END SUBROUTINE nl_set_alpha_truncation
13163 SUBROUTINE nl_set_alpha_corr_type ( id_id , alpha_corr_type )
13164 integer , INTENT(IN) :: alpha_corr_type
13165 INTEGER id_id
13166 CHARACTER*80 emess
13167 IF ( id_id .NE. 1 ) THEN
13168 call wrf_debug(1,&
13169 'WARNING in nl_set_alpha_corr_type: alpha_corr_type applies to all domains. First arg ignored.')
13170 ENDIF
13171 model_config_rec%alpha_corr_type = alpha_corr_type
13172 RETURN
13173 END SUBROUTINE nl_set_alpha_corr_type
13174 SUBROUTINE nl_set_alpha_corr_scale ( id_id , alpha_corr_scale )
13175 real , INTENT(IN) :: alpha_corr_scale
13176 INTEGER id_id
13177 CHARACTER*80 emess
13178 IF ( id_id .NE. 1 ) THEN
13179 call wrf_debug(1,&
13180 'WARNING in nl_set_alpha_corr_scale: alpha_corr_scale applies to all domains. First arg ignored.')
13181 ENDIF
13182 model_config_rec%alpha_corr_scale = alpha_corr_scale
13183 RETURN
13184 END SUBROUTINE nl_set_alpha_corr_scale
13185 SUBROUTINE nl_set_alpha_std_dev ( id_id , alpha_std_dev )
13186 real , INTENT(IN) :: alpha_std_dev
13187 INTEGER id_id
13188 CHARACTER*80 emess
13189 IF ( id_id .NE. 1 ) THEN
13190 call wrf_debug(1,&
13191 'WARNING in nl_set_alpha_std_dev: alpha_std_dev applies to all domains. First arg ignored.')
13192 ENDIF
13193 model_config_rec%alpha_std_dev = alpha_std_dev
13194 RETURN
13195 END SUBROUTINE nl_set_alpha_std_dev
13196 SUBROUTINE nl_set_analysis_type ( id_id , analysis_type )
13197 character*256 , INTENT(IN) :: analysis_type
13198 INTEGER id_id
13199 CHARACTER*80 emess
13200 IF ( id_id .NE. 1 ) THEN
13201 call wrf_debug(1,&
13202 'WARNING in nl_set_analysis_type: analysis_type applies to all domains. First arg ignored.')
13203 ENDIF
13204 model_config_rec%analysis_type = trim(analysis_type)
13205 RETURN
13206 END SUBROUTINE nl_set_analysis_type
13207 SUBROUTINE nl_set_analysis_date ( id_id , analysis_date )
13208 character*256 , INTENT(IN) :: analysis_date
13209 INTEGER id_id
13210 CHARACTER*80 emess
13211 IF ( id_id .NE. 1 ) THEN
13212 call wrf_debug(1,&
13213 'WARNING in nl_set_analysis_date: analysis_date applies to all domains. First arg ignored.')
13214 ENDIF
13215 model_config_rec%analysis_date = trim(analysis_date)
13216 RETURN
13217 END SUBROUTINE nl_set_analysis_date
13218 SUBROUTINE nl_set_pseudo_var ( id_id , pseudo_var )
13219 character*256 , INTENT(IN) :: pseudo_var
13220 INTEGER id_id
13221 CHARACTER*80 emess
13222 IF ( id_id .NE. 1 ) THEN
13223 call wrf_debug(1,&
13224 'WARNING in nl_set_pseudo_var: pseudo_var applies to all domains. First arg ignored.')
13225 ENDIF
13226 model_config_rec%pseudo_var = trim(pseudo_var)
13227 RETURN
13228 END SUBROUTINE nl_set_pseudo_var
13229 SUBROUTINE nl_set_documentation_url ( id_id , documentation_url )
13230 character*256 , INTENT(IN) :: documentation_url
13231 INTEGER id_id
13232 CHARACTER*80 emess
13233 IF ( id_id .NE. 1 ) THEN
13234 call wrf_debug(1,&
13235 'WARNING in nl_set_documentation_url: documentation_url applies to all domains. First arg ignored.')
13236 ENDIF
13237 model_config_rec%documentation_url = trim(documentation_url)
13238 RETURN
13239 END SUBROUTINE nl_set_documentation_url
13240 SUBROUTINE nl_set_time_window_min ( id_id , time_window_min )
13241 character*256 , INTENT(IN) :: time_window_min
13242 INTEGER id_id
13243 CHARACTER*80 emess
13244 IF ( id_id .NE. 1 ) THEN
13245 call wrf_debug(1,&
13246 'WARNING in nl_set_time_window_min: time_window_min applies to all domains. First arg ignored.')
13247 ENDIF
13248 model_config_rec%time_window_min = trim(time_window_min)
13249 RETURN
13250 END SUBROUTINE nl_set_time_window_min
13251 SUBROUTINE nl_set_time_window_max ( id_id , time_window_max )
13252 character*256 , INTENT(IN) :: time_window_max
13253 INTEGER id_id
13254 CHARACTER*80 emess
13255 IF ( id_id .NE. 1 ) THEN
13256 call wrf_debug(1,&
13257 'WARNING in nl_set_time_window_max: time_window_max applies to all domains. First arg ignored.')
13258 ENDIF
13259 model_config_rec%time_window_max = trim(time_window_max)
13260 RETURN
13261 END SUBROUTINE nl_set_time_window_max
13262 SUBROUTINE nl_set_run_days ( id_id , run_days )
13263 integer , INTENT(IN) :: run_days
13264 INTEGER id_id
13265 CHARACTER*80 emess
13266 IF ( id_id .NE. 1 ) THEN
13267 call wrf_debug(1,&
13268 'WARNING in nl_set_run_days: run_days applies to all domains. First arg ignored.')
13269 ENDIF
13270 model_config_rec%run_days = run_days
13271 RETURN
13272 END SUBROUTINE nl_set_run_days
13273 SUBROUTINE nl_set_run_hours ( id_id , run_hours )
13274 integer , INTENT(IN) :: run_hours
13275 INTEGER id_id
13276 CHARACTER*80 emess
13277 IF ( id_id .NE. 1 ) THEN
13278 call wrf_debug(1,&
13279 'WARNING in nl_set_run_hours: run_hours applies to all domains. First arg ignored.')
13280 ENDIF
13281 model_config_rec%run_hours = run_hours
13282 RETURN
13283 END SUBROUTINE nl_set_run_hours
13284 SUBROUTINE nl_set_run_minutes ( id_id , run_minutes )
13285 integer , INTENT(IN) :: run_minutes
13286 INTEGER id_id
13287 CHARACTER*80 emess
13288 IF ( id_id .NE. 1 ) THEN
13289 call wrf_debug(1,&
13290 'WARNING in nl_set_run_minutes: run_minutes applies to all domains. First arg ignored.')
13291 ENDIF
13292 model_config_rec%run_minutes = run_minutes
13293 RETURN
13294 END SUBROUTINE nl_set_run_minutes
13295 SUBROUTINE nl_set_run_seconds ( id_id , run_seconds )
13296 integer , INTENT(IN) :: run_seconds
13297 INTEGER id_id
13298 CHARACTER*80 emess
13299 IF ( id_id .NE. 1 ) THEN
13300 call wrf_debug(1,&
13301 'WARNING in nl_set_run_seconds: run_seconds applies to all domains. First arg ignored.')
13302 ENDIF
13303 model_config_rec%run_seconds = run_seconds
13304 RETURN
13305 END SUBROUTINE nl_set_run_seconds
13306 SUBROUTINE nl_set_start_year ( id_id , start_year )
13307 integer , INTENT(IN) :: start_year
13308 INTEGER id_id
13309 CHARACTER*80 emess
13310 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13311 WRITE(emess,*)'nl_set_start_year: Out of range domain number: ',id_id
13312 CALL wrf_error_fatal(emess)
13313 ENDIF
13314 model_config_rec%start_year(id_id) = start_year
13315 RETURN
13316 END SUBROUTINE nl_set_start_year
13317 SUBROUTINE nl_set_start_month ( id_id , start_month )
13318 integer , INTENT(IN) :: start_month
13319 INTEGER id_id
13320 CHARACTER*80 emess
13321 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13322 WRITE(emess,*)'nl_set_start_month: Out of range domain number: ',id_id
13323 CALL wrf_error_fatal(emess)
13324 ENDIF
13325 model_config_rec%start_month(id_id) = start_month
13326 RETURN
13327 END SUBROUTINE nl_set_start_month
13328 SUBROUTINE nl_set_start_day ( id_id , start_day )
13329 integer , INTENT(IN) :: start_day
13330 INTEGER id_id
13331 CHARACTER*80 emess
13332 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13333 WRITE(emess,*)'nl_set_start_day: Out of range domain number: ',id_id
13334 CALL wrf_error_fatal(emess)
13335 ENDIF
13336 model_config_rec%start_day(id_id) = start_day
13337 RETURN
13338 END SUBROUTINE nl_set_start_day
13339 SUBROUTINE nl_set_start_hour ( id_id , start_hour )
13340 integer , INTENT(IN) :: start_hour
13341 INTEGER id_id
13342 CHARACTER*80 emess
13343 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13344 WRITE(emess,*)'nl_set_start_hour: Out of range domain number: ',id_id
13345 CALL wrf_error_fatal(emess)
13346 ENDIF
13347 model_config_rec%start_hour(id_id) = start_hour
13348 RETURN
13349 END SUBROUTINE nl_set_start_hour
13350 SUBROUTINE nl_set_start_minute ( id_id , start_minute )
13351 integer , INTENT(IN) :: start_minute
13352 INTEGER id_id
13353 CHARACTER*80 emess
13354 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13355 WRITE(emess,*)'nl_set_start_minute: Out of range domain number: ',id_id
13356 CALL wrf_error_fatal(emess)
13357 ENDIF
13358 model_config_rec%start_minute(id_id) = start_minute
13359 RETURN
13360 END SUBROUTINE nl_set_start_minute
13361 SUBROUTINE nl_set_start_second ( id_id , start_second )
13362 integer , INTENT(IN) :: start_second
13363 INTEGER id_id
13364 CHARACTER*80 emess
13365 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13366 WRITE(emess,*)'nl_set_start_second: Out of range domain number: ',id_id
13367 CALL wrf_error_fatal(emess)
13368 ENDIF
13369 model_config_rec%start_second(id_id) = start_second
13370 RETURN
13371 END SUBROUTINE nl_set_start_second
13372 SUBROUTINE nl_set_end_year ( id_id , end_year )
13373 integer , INTENT(IN) :: end_year
13374 INTEGER id_id
13375 CHARACTER*80 emess
13376 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13377 WRITE(emess,*)'nl_set_end_year: Out of range domain number: ',id_id
13378 CALL wrf_error_fatal(emess)
13379 ENDIF
13380 model_config_rec%end_year(id_id) = end_year
13381 RETURN
13382 END SUBROUTINE nl_set_end_year
13383 SUBROUTINE nl_set_end_month ( id_id , end_month )
13384 integer , INTENT(IN) :: end_month
13385 INTEGER id_id
13386 CHARACTER*80 emess
13387 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13388 WRITE(emess,*)'nl_set_end_month: Out of range domain number: ',id_id
13389 CALL wrf_error_fatal(emess)
13390 ENDIF
13391 model_config_rec%end_month(id_id) = end_month
13392 RETURN
13393 END SUBROUTINE nl_set_end_month
13394 SUBROUTINE nl_set_end_day ( id_id , end_day )
13395 integer , INTENT(IN) :: end_day
13396 INTEGER id_id
13397 CHARACTER*80 emess
13398 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13399 WRITE(emess,*)'nl_set_end_day: Out of range domain number: ',id_id
13400 CALL wrf_error_fatal(emess)
13401 ENDIF
13402 model_config_rec%end_day(id_id) = end_day
13403 RETURN
13404 END SUBROUTINE nl_set_end_day
13405 SUBROUTINE nl_set_end_hour ( id_id , end_hour )
13406 integer , INTENT(IN) :: end_hour
13407 INTEGER id_id
13408 CHARACTER*80 emess
13409 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13410 WRITE(emess,*)'nl_set_end_hour: Out of range domain number: ',id_id
13411 CALL wrf_error_fatal(emess)
13412 ENDIF
13413 model_config_rec%end_hour(id_id) = end_hour
13414 RETURN
13415 END SUBROUTINE nl_set_end_hour
13416 SUBROUTINE nl_set_end_minute ( id_id , end_minute )
13417 integer , INTENT(IN) :: end_minute
13418 INTEGER id_id
13419 CHARACTER*80 emess
13420 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13421 WRITE(emess,*)'nl_set_end_minute: Out of range domain number: ',id_id
13422 CALL wrf_error_fatal(emess)
13423 ENDIF
13424 model_config_rec%end_minute(id_id) = end_minute
13425 RETURN
13426 END SUBROUTINE nl_set_end_minute
13427 SUBROUTINE nl_set_end_second ( id_id , end_second )
13428 integer , INTENT(IN) :: end_second
13429 INTEGER id_id
13430 CHARACTER*80 emess
13431 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13432 WRITE(emess,*)'nl_set_end_second: Out of range domain number: ',id_id
13433 CALL wrf_error_fatal(emess)
13434 ENDIF
13435 model_config_rec%end_second(id_id) = end_second
13436 RETURN
13437 END SUBROUTINE nl_set_end_second
13438 SUBROUTINE nl_set_interval_seconds ( id_id , interval_seconds )
13439 integer , INTENT(IN) :: interval_seconds
13440 INTEGER id_id
13441 CHARACTER*80 emess
13442 IF ( id_id .NE. 1 ) THEN
13443 call wrf_debug(1,&
13444 'WARNING in nl_set_interval_seconds: interval_seconds applies to all domains. First arg ignored.')
13445 ENDIF
13446 model_config_rec%interval_seconds = interval_seconds
13447 RETURN
13448 END SUBROUTINE nl_set_interval_seconds
13449 SUBROUTINE nl_set_input_from_file ( id_id , input_from_file )
13450 logical , INTENT(IN) :: input_from_file
13451 INTEGER id_id
13452 CHARACTER*80 emess
13453 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13454 WRITE(emess,*)'nl_set_input_from_file: Out of range domain number: ',id_id
13455 CALL wrf_error_fatal(emess)
13456 ENDIF
13457 model_config_rec%input_from_file(id_id) = input_from_file
13458 RETURN
13459 END SUBROUTINE nl_set_input_from_file
13460 SUBROUTINE nl_set_fine_input_stream ( id_id , fine_input_stream )
13461 integer , INTENT(IN) :: fine_input_stream
13462 INTEGER id_id
13463 CHARACTER*80 emess
13464 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13465 WRITE(emess,*)'nl_set_fine_input_stream: Out of range domain number: ',id_id
13466 CALL wrf_error_fatal(emess)
13467 ENDIF
13468 model_config_rec%fine_input_stream(id_id) = fine_input_stream
13469 RETURN
13470 END SUBROUTINE nl_set_fine_input_stream
13471 SUBROUTINE nl_set_input_from_hires ( id_id , input_from_hires )
13472 logical , INTENT(IN) :: input_from_hires
13473 INTEGER id_id
13474 CHARACTER*80 emess
13475 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13476 WRITE(emess,*)'nl_set_input_from_hires: Out of range domain number: ',id_id
13477 CALL wrf_error_fatal(emess)
13478 ENDIF
13479 model_config_rec%input_from_hires(id_id) = input_from_hires
13480 RETURN
13481 END SUBROUTINE nl_set_input_from_hires
13482 SUBROUTINE nl_set_rsmas_data_path ( id_id , rsmas_data_path )
13483 character*256 , INTENT(IN) :: rsmas_data_path
13484 INTEGER id_id
13485 CHARACTER*80 emess
13486 IF ( id_id .NE. 1 ) THEN
13487 call wrf_debug(1,&
13488 'WARNING in nl_set_rsmas_data_path: rsmas_data_path applies to all domains. First arg ignored.')
13489 ENDIF
13490 model_config_rec%rsmas_data_path = trim(rsmas_data_path)
13491 RETURN
13492 END SUBROUTINE nl_set_rsmas_data_path
13493 SUBROUTINE nl_set_history_interval ( id_id , history_interval )
13494 integer , INTENT(IN) :: history_interval
13495 INTEGER id_id
13496 CHARACTER*80 emess
13497 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13498 WRITE(emess,*)'nl_set_history_interval: Out of range domain number: ',id_id
13499 CALL wrf_error_fatal(emess)
13500 ENDIF
13501 model_config_rec%history_interval(id_id) = history_interval
13502 RETURN
13503 END SUBROUTINE nl_set_history_interval
13504 SUBROUTINE nl_set_frames_per_outfile ( id_id , frames_per_outfile )
13505 integer , INTENT(IN) :: frames_per_outfile
13506 INTEGER id_id
13507 CHARACTER*80 emess
13508 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13509 WRITE(emess,*)'nl_set_frames_per_outfile: Out of range domain number: ',id_id
13510 CALL wrf_error_fatal(emess)
13511 ENDIF
13512 model_config_rec%frames_per_outfile(id_id) = frames_per_outfile
13513 RETURN
13514 END SUBROUTINE nl_set_frames_per_outfile
13515 SUBROUTINE nl_set_frames_per_auxhist1 ( id_id , frames_per_auxhist1 )
13516 integer , INTENT(IN) :: frames_per_auxhist1
13517 INTEGER id_id
13518 CHARACTER*80 emess
13519 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13520 WRITE(emess,*)'nl_set_frames_per_auxhist1: Out of range domain number: ',id_id
13521 CALL wrf_error_fatal(emess)
13522 ENDIF
13523 model_config_rec%frames_per_auxhist1(id_id) = frames_per_auxhist1
13524 RETURN
13525 END SUBROUTINE nl_set_frames_per_auxhist1
13526 SUBROUTINE nl_set_frames_per_auxhist2 ( id_id , frames_per_auxhist2 )
13527 integer , INTENT(IN) :: frames_per_auxhist2
13528 INTEGER id_id
13529 CHARACTER*80 emess
13530 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13531 WRITE(emess,*)'nl_set_frames_per_auxhist2: Out of range domain number: ',id_id
13532 CALL wrf_error_fatal(emess)
13533 ENDIF
13534 model_config_rec%frames_per_auxhist2(id_id) = frames_per_auxhist2
13535 RETURN
13536 END SUBROUTINE nl_set_frames_per_auxhist2
13537 SUBROUTINE nl_set_frames_per_auxhist3 ( id_id , frames_per_auxhist3 )
13538 integer , INTENT(IN) :: frames_per_auxhist3
13539 INTEGER id_id
13540 CHARACTER*80 emess
13541 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13542 WRITE(emess,*)'nl_set_frames_per_auxhist3: Out of range domain number: ',id_id
13543 CALL wrf_error_fatal(emess)
13544 ENDIF
13545 model_config_rec%frames_per_auxhist3(id_id) = frames_per_auxhist3
13546 RETURN
13547 END SUBROUTINE nl_set_frames_per_auxhist3
13548 SUBROUTINE nl_set_frames_per_auxhist4 ( id_id , frames_per_auxhist4 )
13549 integer , INTENT(IN) :: frames_per_auxhist4
13550 INTEGER id_id
13551 CHARACTER*80 emess
13552 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13553 WRITE(emess,*)'nl_set_frames_per_auxhist4: Out of range domain number: ',id_id
13554 CALL wrf_error_fatal(emess)
13555 ENDIF
13556 model_config_rec%frames_per_auxhist4(id_id) = frames_per_auxhist4
13557 RETURN
13558 END SUBROUTINE nl_set_frames_per_auxhist4
13559 SUBROUTINE nl_set_frames_per_auxhist5 ( id_id , frames_per_auxhist5 )
13560 integer , INTENT(IN) :: frames_per_auxhist5
13561 INTEGER id_id
13562 CHARACTER*80 emess
13563 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13564 WRITE(emess,*)'nl_set_frames_per_auxhist5: Out of range domain number: ',id_id
13565 CALL wrf_error_fatal(emess)
13566 ENDIF
13567 model_config_rec%frames_per_auxhist5(id_id) = frames_per_auxhist5
13568 RETURN
13569 END SUBROUTINE nl_set_frames_per_auxhist5
13570 SUBROUTINE nl_set_frames_per_auxhist6 ( id_id , frames_per_auxhist6 )
13571 integer , INTENT(IN) :: frames_per_auxhist6
13572 INTEGER id_id
13573 CHARACTER*80 emess
13574 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13575 WRITE(emess,*)'nl_set_frames_per_auxhist6: Out of range domain number: ',id_id
13576 CALL wrf_error_fatal(emess)
13577 ENDIF
13578 model_config_rec%frames_per_auxhist6(id_id) = frames_per_auxhist6
13579 RETURN
13580 END SUBROUTINE nl_set_frames_per_auxhist6
13581 SUBROUTINE nl_set_frames_per_auxhist7 ( id_id , frames_per_auxhist7 )
13582 integer , INTENT(IN) :: frames_per_auxhist7
13583 INTEGER id_id
13584 CHARACTER*80 emess
13585 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13586 WRITE(emess,*)'nl_set_frames_per_auxhist7: Out of range domain number: ',id_id
13587 CALL wrf_error_fatal(emess)
13588 ENDIF
13589 model_config_rec%frames_per_auxhist7(id_id) = frames_per_auxhist7
13590 RETURN
13591 END SUBROUTINE nl_set_frames_per_auxhist7
13592 SUBROUTINE nl_set_frames_per_auxhist8 ( id_id , frames_per_auxhist8 )
13593 integer , INTENT(IN) :: frames_per_auxhist8
13594 INTEGER id_id
13595 CHARACTER*80 emess
13596 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13597 WRITE(emess,*)'nl_set_frames_per_auxhist8: Out of range domain number: ',id_id
13598 CALL wrf_error_fatal(emess)
13599 ENDIF
13600 model_config_rec%frames_per_auxhist8(id_id) = frames_per_auxhist8
13601 RETURN
13602 END SUBROUTINE nl_set_frames_per_auxhist8
13603 SUBROUTINE nl_set_frames_per_auxhist9 ( id_id , frames_per_auxhist9 )
13604 integer , INTENT(IN) :: frames_per_auxhist9
13605 INTEGER id_id
13606 CHARACTER*80 emess
13607 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13608 WRITE(emess,*)'nl_set_frames_per_auxhist9: Out of range domain number: ',id_id
13609 CALL wrf_error_fatal(emess)
13610 ENDIF
13611 model_config_rec%frames_per_auxhist9(id_id) = frames_per_auxhist9
13612 RETURN
13613 END SUBROUTINE nl_set_frames_per_auxhist9
13614 SUBROUTINE nl_set_frames_per_auxhist10 ( id_id , frames_per_auxhist10 )
13615 integer , INTENT(IN) :: frames_per_auxhist10
13616 INTEGER id_id
13617 CHARACTER*80 emess
13618 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13619 WRITE(emess,*)'nl_set_frames_per_auxhist10: Out of range domain number: ',id_id
13620 CALL wrf_error_fatal(emess)
13621 ENDIF
13622 model_config_rec%frames_per_auxhist10(id_id) = frames_per_auxhist10
13623 RETURN
13624 END SUBROUTINE nl_set_frames_per_auxhist10
13625 SUBROUTINE nl_set_frames_per_auxhist11 ( id_id , frames_per_auxhist11 )
13626 integer , INTENT(IN) :: frames_per_auxhist11
13627 INTEGER id_id
13628 CHARACTER*80 emess
13629 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
13630 WRITE(emess,*)'nl_set_frames_per_auxhist11: Out of range domain number: ',id_id
13631 CALL wrf_error_fatal(emess)
13632 ENDIF
13633 model_config_rec%frames_per_auxhist11(id_id) = frames_per_auxhist11
13634 RETURN
13635 END SUBROUTINE nl_set_frames_per_auxhist11
13636 SUBROUTINE nl_set_restart ( id_id , restart )
13637 logical , INTENT(IN) :: restart
13638 INTEGER id_id
13639 CHARACTER*80 emess
13640 IF ( id_id .NE. 1 ) THEN
13641 call wrf_debug(1,&
13642 'WARNING in nl_set_restart: restart applies to all domains. First arg ignored.')
13643 ENDIF
13644 model_config_rec%restart = restart
13645 RETURN
13646 END SUBROUTINE nl_set_restart
13647 SUBROUTINE nl_set_restart_interval ( id_id , restart_interval )
13648 integer , INTENT(IN) :: restart_interval
13649 INTEGER id_id
13650 CHARACTER*80 emess
13651 IF ( id_id .NE. 1 ) THEN
13652 call wrf_debug(1,&
13653 'WARNING in nl_set_restart_interval: restart_interval applies to all domains. First arg ignored.')
13654 ENDIF
13655 model_config_rec%restart_interval = restart_interval
13656 RETURN
13657 END SUBROUTINE nl_set_restart_interval
13658 SUBROUTINE nl_set_io_form_input ( id_id , io_form_input )
13659 integer , INTENT(IN) :: io_form_input
13660 INTEGER id_id
13661 CHARACTER*80 emess
13662 IF ( id_id .NE. 1 ) THEN
13663 call wrf_debug(1,&
13664 'WARNING in nl_set_io_form_input: io_form_input applies to all domains. First arg ignored.')
13665 ENDIF
13666 model_config_rec%io_form_input = io_form_input
13667 RETURN
13668 END SUBROUTINE nl_set_io_form_input
13669 SUBROUTINE nl_set_io_form_history ( id_id , io_form_history )
13670 integer , INTENT(IN) :: io_form_history
13671 INTEGER id_id
13672 CHARACTER*80 emess
13673 IF ( id_id .NE. 1 ) THEN
13674 call wrf_debug(1,&
13675 'WARNING in nl_set_io_form_history: io_form_history applies to all domains. First arg ignored.')
13676 ENDIF
13677 model_config_rec%io_form_history = io_form_history
13678 RETURN
13679 END SUBROUTINE nl_set_io_form_history
13680 SUBROUTINE nl_set_io_form_restart ( id_id , io_form_restart )
13681 integer , INTENT(IN) :: io_form_restart
13682 INTEGER id_id
13683 CHARACTER*80 emess
13684 IF ( id_id .NE. 1 ) THEN
13685 call wrf_debug(1,&
13686 'WARNING in nl_set_io_form_restart: io_form_restart applies to all domains. First arg ignored.')
13687 ENDIF
13688 model_config_rec%io_form_restart = io_form_restart
13689 RETURN
13690 END SUBROUTINE nl_set_io_form_restart
13691 SUBROUTINE nl_set_io_form_boundary ( id_id , io_form_boundary )
13692 integer , INTENT(IN) :: io_form_boundary
13693 INTEGER id_id
13694 CHARACTER*80 emess
13695 IF ( id_id .NE. 1 ) THEN
13696 call wrf_debug(1,&
13697 'WARNING in nl_set_io_form_boundary: io_form_boundary applies to all domains. First arg ignored.')
13698 ENDIF
13699 model_config_rec%io_form_boundary = io_form_boundary
13700 RETURN
13701 END SUBROUTINE nl_set_io_form_boundary
13702 SUBROUTINE nl_set_debug_level ( id_id , debug_level )
13703 integer , INTENT(IN) :: debug_level
13704 INTEGER id_id
13705 CHARACTER*80 emess
13706 IF ( id_id .NE. 1 ) THEN
13707 call wrf_debug(1,&
13708 'WARNING in nl_set_debug_level: debug_level applies to all domains. First arg ignored.')
13709 ENDIF
13710 model_config_rec%debug_level = debug_level
13711 RETURN
13712 END SUBROUTINE nl_set_debug_level
13713 SUBROUTINE nl_set_self_test_domain ( id_id , self_test_domain )
13714 logical , INTENT(IN) :: self_test_domain
13715 INTEGER id_id
13716 CHARACTER*80 emess
13717 IF ( id_id .NE. 1 ) THEN
13718 call wrf_debug(1,&
13719 'WARNING in nl_set_self_test_domain: self_test_domain applies to all domains. First arg ignored.')
13720 ENDIF
13721 model_config_rec%self_test_domain = self_test_domain
13722 RETURN
13723 END SUBROUTINE nl_set_self_test_domain
13724 SUBROUTINE nl_set_history_outname ( id_id , history_outname )
13725 character*256 , INTENT(IN) :: history_outname
13726 INTEGER id_id
13727 CHARACTER*80 emess
13728 IF ( id_id .NE. 1 ) THEN
13729 call wrf_debug(1,&
13730 'WARNING in nl_set_history_outname: history_outname applies to all domains. First arg ignored.')
13731 ENDIF
13732 model_config_rec%history_outname = trim(history_outname)
13733 RETURN
13734 END SUBROUTINE nl_set_history_outname
13735 SUBROUTINE nl_set_auxhist1_outname ( id_id , auxhist1_outname )
13736 character*256 , INTENT(IN) :: auxhist1_outname
13737 INTEGER id_id
13738 CHARACTER*80 emess
13739 IF ( id_id .NE. 1 ) THEN
13740 call wrf_debug(1,&
13741 'WARNING in nl_set_auxhist1_outname: auxhist1_outname applies to all domains. First arg ignored.')
13742 ENDIF
13743 model_config_rec%auxhist1_outname = trim(auxhist1_outname)
13744 RETURN
13745 END SUBROUTINE nl_set_auxhist1_outname
13746 SUBROUTINE nl_set_auxhist2_outname ( id_id , auxhist2_outname )
13747 character*256 , INTENT(IN) :: auxhist2_outname
13748 INTEGER id_id
13749 CHARACTER*80 emess
13750 IF ( id_id .NE. 1 ) THEN
13751 call wrf_debug(1,&
13752 'WARNING in nl_set_auxhist2_outname: auxhist2_outname applies to all domains. First arg ignored.')
13753 ENDIF
13754 model_config_rec%auxhist2_outname = trim(auxhist2_outname)
13755 RETURN
13756 END SUBROUTINE nl_set_auxhist2_outname
13757 SUBROUTINE nl_set_auxhist3_outname ( id_id , auxhist3_outname )
13758 character*256 , INTENT(IN) :: auxhist3_outname
13759 INTEGER id_id
13760 CHARACTER*80 emess
13761 IF ( id_id .NE. 1 ) THEN
13762 call wrf_debug(1,&
13763 'WARNING in nl_set_auxhist3_outname: auxhist3_outname applies to all domains. First arg ignored.')
13764 ENDIF
13765 model_config_rec%auxhist3_outname = trim(auxhist3_outname)
13766 RETURN
13767 END SUBROUTINE nl_set_auxhist3_outname
13768 SUBROUTINE nl_set_auxhist4_outname ( id_id , auxhist4_outname )
13769 character*256 , INTENT(IN) :: auxhist4_outname
13770 INTEGER id_id
13771 CHARACTER*80 emess
13772 IF ( id_id .NE. 1 ) THEN
13773 call wrf_debug(1,&
13774 'WARNING in nl_set_auxhist4_outname: auxhist4_outname applies to all domains. First arg ignored.')
13775 ENDIF
13776 model_config_rec%auxhist4_outname = trim(auxhist4_outname)
13777 RETURN
13778 END SUBROUTINE nl_set_auxhist4_outname
13779 SUBROUTINE nl_set_auxhist5_outname ( id_id , auxhist5_outname )
13780 character*256 , INTENT(IN) :: auxhist5_outname
13781 INTEGER id_id
13782 CHARACTER*80 emess
13783 IF ( id_id .NE. 1 ) THEN
13784 call wrf_debug(1,&
13785 'WARNING in nl_set_auxhist5_outname: auxhist5_outname applies to all domains. First arg ignored.')
13786 ENDIF
13787 model_config_rec%auxhist5_outname = trim(auxhist5_outname)
13788 RETURN
13789 END SUBROUTINE nl_set_auxhist5_outname
13790 SUBROUTINE nl_set_auxhist6_outname ( id_id , auxhist6_outname )
13791 character*256 , INTENT(IN) :: auxhist6_outname
13792 INTEGER id_id
13793 CHARACTER*80 emess
13794 IF ( id_id .NE. 1 ) THEN
13795 call wrf_debug(1,&
13796 'WARNING in nl_set_auxhist6_outname: auxhist6_outname applies to all domains. First arg ignored.')
13797 ENDIF
13798 model_config_rec%auxhist6_outname = trim(auxhist6_outname)
13799 RETURN
13800 END SUBROUTINE nl_set_auxhist6_outname
13801 SUBROUTINE nl_set_auxhist7_outname ( id_id , auxhist7_outname )
13802 character*256 , INTENT(IN) :: auxhist7_outname
13803 INTEGER id_id
13804 CHARACTER*80 emess
13805 IF ( id_id .NE. 1 ) THEN
13806 call wrf_debug(1,&
13807 'WARNING in nl_set_auxhist7_outname: auxhist7_outname applies to all domains. First arg ignored.')
13808 ENDIF
13809 model_config_rec%auxhist7_outname = trim(auxhist7_outname)
13810 RETURN
13811 END SUBROUTINE nl_set_auxhist7_outname
13812 SUBROUTINE nl_set_auxhist8_outname ( id_id , auxhist8_outname )
13813 character*256 , INTENT(IN) :: auxhist8_outname
13814 INTEGER id_id
13815 CHARACTER*80 emess
13816 IF ( id_id .NE. 1 ) THEN
13817 call wrf_debug(1,&
13818 'WARNING in nl_set_auxhist8_outname: auxhist8_outname applies to all domains. First arg ignored.')
13819 ENDIF
13820 model_config_rec%auxhist8_outname = trim(auxhist8_outname)
13821 RETURN
13822 END SUBROUTINE nl_set_auxhist8_outname
13823 SUBROUTINE nl_set_auxhist9_outname ( id_id , auxhist9_outname )
13824 character*256 , INTENT(IN) :: auxhist9_outname
13825 INTEGER id_id
13826 CHARACTER*80 emess
13827 IF ( id_id .NE. 1 ) THEN
13828 call wrf_debug(1,&
13829 'WARNING in nl_set_auxhist9_outname: auxhist9_outname applies to all domains. First arg ignored.')
13830 ENDIF
13831 model_config_rec%auxhist9_outname = trim(auxhist9_outname)
13832 RETURN
13833 END SUBROUTINE nl_set_auxhist9_outname
13834 SUBROUTINE nl_set_auxhist10_outname ( id_id , auxhist10_outname )
13835 character*256 , INTENT(IN) :: auxhist10_outname
13836 INTEGER id_id
13837 CHARACTER*80 emess
13838 IF ( id_id .NE. 1 ) THEN
13839 call wrf_debug(1,&
13840 'WARNING in nl_set_auxhist10_outname: auxhist10_outname applies to all domains. First arg ignored.')
13841 ENDIF
13842 model_config_rec%auxhist10_outname = trim(auxhist10_outname)
13843 RETURN
13844 END SUBROUTINE nl_set_auxhist10_outname
13845 SUBROUTINE nl_set_auxhist11_outname ( id_id , auxhist11_outname )
13846 character*256 , INTENT(IN) :: auxhist11_outname
13847 INTEGER id_id
13848 CHARACTER*80 emess
13849 IF ( id_id .NE. 1 ) THEN
13850 call wrf_debug(1,&
13851 'WARNING in nl_set_auxhist11_outname: auxhist11_outname applies to all domains. First arg ignored.')
13852 ENDIF
13853 model_config_rec%auxhist11_outname = trim(auxhist11_outname)
13854 RETURN
13855 END SUBROUTINE nl_set_auxhist11_outname
13856 SUBROUTINE nl_set_history_inname ( id_id , history_inname )
13857 character*256 , INTENT(IN) :: history_inname
13858 INTEGER id_id
13859 CHARACTER*80 emess
13860 IF ( id_id .NE. 1 ) THEN
13861 call wrf_debug(1,&
13862 'WARNING in nl_set_history_inname: history_inname applies to all domains. First arg ignored.')
13863 ENDIF
13864 model_config_rec%history_inname = trim(history_inname)
13865 RETURN
13866 END SUBROUTINE nl_set_history_inname
13867 SUBROUTINE nl_set_auxhist1_inname ( id_id , auxhist1_inname )
13868 character*256 , INTENT(IN) :: auxhist1_inname
13869 INTEGER id_id
13870 CHARACTER*80 emess
13871 IF ( id_id .NE. 1 ) THEN
13872 call wrf_debug(1,&
13873 'WARNING in nl_set_auxhist1_inname: auxhist1_inname applies to all domains. First arg ignored.')
13874 ENDIF
13875 model_config_rec%auxhist1_inname = trim(auxhist1_inname)
13876 RETURN
13877 END SUBROUTINE nl_set_auxhist1_inname
13878 SUBROUTINE nl_set_auxhist2_inname ( id_id , auxhist2_inname )
13879 character*256 , INTENT(IN) :: auxhist2_inname
13880 INTEGER id_id
13881 CHARACTER*80 emess
13882 IF ( id_id .NE. 1 ) THEN
13883 call wrf_debug(1,&
13884 'WARNING in nl_set_auxhist2_inname: auxhist2_inname applies to all domains. First arg ignored.')
13885 ENDIF
13886 model_config_rec%auxhist2_inname = trim(auxhist2_inname)
13887 RETURN
13888 END SUBROUTINE nl_set_auxhist2_inname
13889 SUBROUTINE nl_set_auxhist3_inname ( id_id , auxhist3_inname )
13890 character*256 , INTENT(IN) :: auxhist3_inname
13891 INTEGER id_id
13892 CHARACTER*80 emess
13893 IF ( id_id .NE. 1 ) THEN
13894 call wrf_debug(1,&
13895 'WARNING in nl_set_auxhist3_inname: auxhist3_inname applies to all domains. First arg ignored.')
13896 ENDIF
13897 model_config_rec%auxhist3_inname = trim(auxhist3_inname)
13898 RETURN
13899 END SUBROUTINE nl_set_auxhist3_inname
13900 SUBROUTINE nl_set_auxhist4_inname ( id_id , auxhist4_inname )
13901 character*256 , INTENT(IN) :: auxhist4_inname
13902 INTEGER id_id
13903 CHARACTER*80 emess
13904 IF ( id_id .NE. 1 ) THEN
13905 call wrf_debug(1,&
13906 'WARNING in nl_set_auxhist4_inname: auxhist4_inname applies to all domains. First arg ignored.')
13907 ENDIF
13908 model_config_rec%auxhist4_inname = trim(auxhist4_inname)
13909 RETURN
13910 END SUBROUTINE nl_set_auxhist4_inname
13911 SUBROUTINE nl_set_auxhist5_inname ( id_id , auxhist5_inname )
13912 character*256 , INTENT(IN) :: auxhist5_inname
13913 INTEGER id_id
13914 CHARACTER*80 emess
13915 IF ( id_id .NE. 1 ) THEN
13916 call wrf_debug(1,&
13917 'WARNING in nl_set_auxhist5_inname: auxhist5_inname applies to all domains. First arg ignored.')
13918 ENDIF
13919 model_config_rec%auxhist5_inname = trim(auxhist5_inname)
13920 RETURN
13921 END SUBROUTINE nl_set_auxhist5_inname
13922 SUBROUTINE nl_set_auxhist6_inname ( id_id , auxhist6_inname )
13923 character*256 , INTENT(IN) :: auxhist6_inname
13924 INTEGER id_id
13925 CHARACTER*80 emess
13926 IF ( id_id .NE. 1 ) THEN
13927 call wrf_debug(1,&
13928 'WARNING in nl_set_auxhist6_inname: auxhist6_inname applies to all domains. First arg ignored.')
13929 ENDIF
13930 model_config_rec%auxhist6_inname = trim(auxhist6_inname)
13931 RETURN
13932 END SUBROUTINE nl_set_auxhist6_inname
13933 SUBROUTINE nl_set_auxhist7_inname ( id_id , auxhist7_inname )
13934 character*256 , INTENT(IN) :: auxhist7_inname
13935 INTEGER id_id
13936 CHARACTER*80 emess
13937 IF ( id_id .NE. 1 ) THEN
13938 call wrf_debug(1,&
13939 'WARNING in nl_set_auxhist7_inname: auxhist7_inname applies to all domains. First arg ignored.')
13940 ENDIF
13941 model_config_rec%auxhist7_inname = trim(auxhist7_inname)
13942 RETURN
13943 END SUBROUTINE nl_set_auxhist7_inname
13944 SUBROUTINE nl_set_auxhist8_inname ( id_id , auxhist8_inname )
13945 character*256 , INTENT(IN) :: auxhist8_inname
13946 INTEGER id_id
13947 CHARACTER*80 emess
13948 IF ( id_id .NE. 1 ) THEN
13949 call wrf_debug(1,&
13950 'WARNING in nl_set_auxhist8_inname: auxhist8_inname applies to all domains. First arg ignored.')
13951 ENDIF
13952 model_config_rec%auxhist8_inname = trim(auxhist8_inname)
13953 RETURN
13954 END SUBROUTINE nl_set_auxhist8_inname
13955 SUBROUTINE nl_set_auxhist9_inname ( id_id , auxhist9_inname )
13956 character*256 , INTENT(IN) :: auxhist9_inname
13957 INTEGER id_id
13958 CHARACTER*80 emess
13959 IF ( id_id .NE. 1 ) THEN
13960 call wrf_debug(1,&
13961 'WARNING in nl_set_auxhist9_inname: auxhist9_inname applies to all domains. First arg ignored.')
13962 ENDIF
13963 model_config_rec%auxhist9_inname = trim(auxhist9_inname)
13964 RETURN
13965 END SUBROUTINE nl_set_auxhist9_inname
13966 SUBROUTINE nl_set_auxhist10_inname ( id_id , auxhist10_inname )
13967 character*256 , INTENT(IN) :: auxhist10_inname
13968 INTEGER id_id
13969 CHARACTER*80 emess
13970 IF ( id_id .NE. 1 ) THEN
13971 call wrf_debug(1,&
13972 'WARNING in nl_set_auxhist10_inname: auxhist10_inname applies to all domains. First arg ignored.')
13973 ENDIF
13974 model_config_rec%auxhist10_inname = trim(auxhist10_inname)
13975 RETURN
13976 END SUBROUTINE nl_set_auxhist10_inname
13977 SUBROUTINE nl_set_auxhist11_inname ( id_id , auxhist11_inname )
13978 character*256 , INTENT(IN) :: auxhist11_inname
13979 INTEGER id_id
13980 CHARACTER*80 emess
13981 IF ( id_id .NE. 1 ) THEN
13982 call wrf_debug(1,&
13983 'WARNING in nl_set_auxhist11_inname: auxhist11_inname applies to all domains. First arg ignored.')
13984 ENDIF
13985 model_config_rec%auxhist11_inname = trim(auxhist11_inname)
13986 RETURN
13987 END SUBROUTINE nl_set_auxhist11_inname
13988 SUBROUTINE nl_set_auxinput1_outname ( id_id , auxinput1_outname )
13989 character*256 , INTENT(IN) :: auxinput1_outname
13990 INTEGER id_id
13991 CHARACTER*80 emess
13992 IF ( id_id .NE. 1 ) THEN
13993 call wrf_debug(1,&
13994 'WARNING in nl_set_auxinput1_outname: auxinput1_outname applies to all domains. First arg ignored.')
13995 ENDIF
13996 model_config_rec%auxinput1_outname = trim(auxinput1_outname)
13997 RETURN
13998 END SUBROUTINE nl_set_auxinput1_outname
13999 SUBROUTINE nl_set_auxinput2_outname ( id_id , auxinput2_outname )
14000 character*256 , INTENT(IN) :: auxinput2_outname
14001 INTEGER id_id
14002 CHARACTER*80 emess
14003 IF ( id_id .NE. 1 ) THEN
14004 call wrf_debug(1,&
14005 'WARNING in nl_set_auxinput2_outname: auxinput2_outname applies to all domains. First arg ignored.')
14006 ENDIF
14007 model_config_rec%auxinput2_outname = trim(auxinput2_outname)
14008 RETURN
14009 END SUBROUTINE nl_set_auxinput2_outname
14010 SUBROUTINE nl_set_auxinput3_outname ( id_id , auxinput3_outname )
14011 character*256 , INTENT(IN) :: auxinput3_outname
14012 INTEGER id_id
14013 CHARACTER*80 emess
14014 IF ( id_id .NE. 1 ) THEN
14015 call wrf_debug(1,&
14016 'WARNING in nl_set_auxinput3_outname: auxinput3_outname applies to all domains. First arg ignored.')
14017 ENDIF
14018 model_config_rec%auxinput3_outname = trim(auxinput3_outname)
14019 RETURN
14020 END SUBROUTINE nl_set_auxinput3_outname
14021 SUBROUTINE nl_set_auxinput4_outname ( id_id , auxinput4_outname )
14022 character*256 , INTENT(IN) :: auxinput4_outname
14023 INTEGER id_id
14024 CHARACTER*80 emess
14025 IF ( id_id .NE. 1 ) THEN
14026 call wrf_debug(1,&
14027 'WARNING in nl_set_auxinput4_outname: auxinput4_outname applies to all domains. First arg ignored.')
14028 ENDIF
14029 model_config_rec%auxinput4_outname = trim(auxinput4_outname)
14030 RETURN
14031 END SUBROUTINE nl_set_auxinput4_outname
14032 SUBROUTINE nl_set_auxinput5_outname ( id_id , auxinput5_outname )
14033 character*256 , INTENT(IN) :: auxinput5_outname
14034 INTEGER id_id
14035 CHARACTER*80 emess
14036 IF ( id_id .NE. 1 ) THEN
14037 call wrf_debug(1,&
14038 'WARNING in nl_set_auxinput5_outname: auxinput5_outname applies to all domains. First arg ignored.')
14039 ENDIF
14040 model_config_rec%auxinput5_outname = trim(auxinput5_outname)
14041 RETURN
14042 END SUBROUTINE nl_set_auxinput5_outname
14043 SUBROUTINE nl_set_auxinput6_outname ( id_id , auxinput6_outname )
14044 character*256 , INTENT(IN) :: auxinput6_outname
14045 INTEGER id_id
14046 CHARACTER*80 emess
14047 IF ( id_id .NE. 1 ) THEN
14048 call wrf_debug(1,&
14049 'WARNING in nl_set_auxinput6_outname: auxinput6_outname applies to all domains. First arg ignored.')
14050 ENDIF
14051 model_config_rec%auxinput6_outname = trim(auxinput6_outname)
14052 RETURN
14053 END SUBROUTINE nl_set_auxinput6_outname
14054 SUBROUTINE nl_set_auxinput7_outname ( id_id , auxinput7_outname )
14055 character*256 , INTENT(IN) :: auxinput7_outname
14056 INTEGER id_id
14057 CHARACTER*80 emess
14058 IF ( id_id .NE. 1 ) THEN
14059 call wrf_debug(1,&
14060 'WARNING in nl_set_auxinput7_outname: auxinput7_outname applies to all domains. First arg ignored.')
14061 ENDIF
14062 model_config_rec%auxinput7_outname = trim(auxinput7_outname)
14063 RETURN
14064 END SUBROUTINE nl_set_auxinput7_outname
14065 SUBROUTINE nl_set_auxinput8_outname ( id_id , auxinput8_outname )
14066 character*256 , INTENT(IN) :: auxinput8_outname
14067 INTEGER id_id
14068 CHARACTER*80 emess
14069 IF ( id_id .NE. 1 ) THEN
14070 call wrf_debug(1,&
14071 'WARNING in nl_set_auxinput8_outname: auxinput8_outname applies to all domains. First arg ignored.')
14072 ENDIF
14073 model_config_rec%auxinput8_outname = trim(auxinput8_outname)
14074 RETURN
14075 END SUBROUTINE nl_set_auxinput8_outname
14076 SUBROUTINE nl_set_auxinput9_outname ( id_id , auxinput9_outname )
14077 character*256 , INTENT(IN) :: auxinput9_outname
14078 INTEGER id_id
14079 CHARACTER*80 emess
14080 IF ( id_id .NE. 1 ) THEN
14081 call wrf_debug(1,&
14082 'WARNING in nl_set_auxinput9_outname: auxinput9_outname applies to all domains. First arg ignored.')
14083 ENDIF
14084 model_config_rec%auxinput9_outname = trim(auxinput9_outname)
14085 RETURN
14086 END SUBROUTINE nl_set_auxinput9_outname
14087 SUBROUTINE nl_set_auxinput10_outname ( id_id , auxinput10_outname )
14088 character*256 , INTENT(IN) :: auxinput10_outname
14089 INTEGER id_id
14090 CHARACTER*80 emess
14091 IF ( id_id .NE. 1 ) THEN
14092 call wrf_debug(1,&
14093 'WARNING in nl_set_auxinput10_outname: auxinput10_outname applies to all domains. First arg ignored.')
14094 ENDIF
14095 model_config_rec%auxinput10_outname = trim(auxinput10_outname)
14096 RETURN
14097 END SUBROUTINE nl_set_auxinput10_outname
14098 SUBROUTINE nl_set_auxinput11_outname ( id_id , auxinput11_outname )
14099 character*256 , INTENT(IN) :: auxinput11_outname
14100 INTEGER id_id
14101 CHARACTER*80 emess
14102 IF ( id_id .NE. 1 ) THEN
14103 call wrf_debug(1,&
14104 'WARNING in nl_set_auxinput11_outname: auxinput11_outname applies to all domains. First arg ignored.')
14105 ENDIF
14106 model_config_rec%auxinput11_outname = trim(auxinput11_outname)
14107 RETURN
14108 END SUBROUTINE nl_set_auxinput11_outname
14109 SUBROUTINE nl_set_auxinput1_inname ( id_id , auxinput1_inname )
14110 character*256 , INTENT(IN) :: auxinput1_inname
14111 INTEGER id_id
14112 CHARACTER*80 emess
14113 IF ( id_id .NE. 1 ) THEN
14114 call wrf_debug(1,&
14115 'WARNING in nl_set_auxinput1_inname: auxinput1_inname applies to all domains. First arg ignored.')
14116 ENDIF
14117 model_config_rec%auxinput1_inname = trim(auxinput1_inname)
14118 RETURN
14119 END SUBROUTINE nl_set_auxinput1_inname
14120 SUBROUTINE nl_set_auxinput2_inname ( id_id , auxinput2_inname )
14121 character*256 , INTENT(IN) :: auxinput2_inname
14122 INTEGER id_id
14123 CHARACTER*80 emess
14124 IF ( id_id .NE. 1 ) THEN
14125 call wrf_debug(1,&
14126 'WARNING in nl_set_auxinput2_inname: auxinput2_inname applies to all domains. First arg ignored.')
14127 ENDIF
14128 model_config_rec%auxinput2_inname = trim(auxinput2_inname)
14129 RETURN
14130 END SUBROUTINE nl_set_auxinput2_inname
14131 SUBROUTINE nl_set_auxinput3_inname ( id_id , auxinput3_inname )
14132 character*256 , INTENT(IN) :: auxinput3_inname
14133 INTEGER id_id
14134 CHARACTER*80 emess
14135 IF ( id_id .NE. 1 ) THEN
14136 call wrf_debug(1,&
14137 'WARNING in nl_set_auxinput3_inname: auxinput3_inname applies to all domains. First arg ignored.')
14138 ENDIF
14139 model_config_rec%auxinput3_inname = trim(auxinput3_inname)
14140 RETURN
14141 END SUBROUTINE nl_set_auxinput3_inname
14142 SUBROUTINE nl_set_auxinput4_inname ( id_id , auxinput4_inname )
14143 character*256 , INTENT(IN) :: auxinput4_inname
14144 INTEGER id_id
14145 CHARACTER*80 emess
14146 IF ( id_id .NE. 1 ) THEN
14147 call wrf_debug(1,&
14148 'WARNING in nl_set_auxinput4_inname: auxinput4_inname applies to all domains. First arg ignored.')
14149 ENDIF
14150 model_config_rec%auxinput4_inname = trim(auxinput4_inname)
14151 RETURN
14152 END SUBROUTINE nl_set_auxinput4_inname
14153 SUBROUTINE nl_set_auxinput5_inname ( id_id , auxinput5_inname )
14154 character*256 , INTENT(IN) :: auxinput5_inname
14155 INTEGER id_id
14156 CHARACTER*80 emess
14157 IF ( id_id .NE. 1 ) THEN
14158 call wrf_debug(1,&
14159 'WARNING in nl_set_auxinput5_inname: auxinput5_inname applies to all domains. First arg ignored.')
14160 ENDIF
14161 model_config_rec%auxinput5_inname = trim(auxinput5_inname)
14162 RETURN
14163 END SUBROUTINE nl_set_auxinput5_inname
14164 SUBROUTINE nl_set_auxinput6_inname ( id_id , auxinput6_inname )
14165 character*256 , INTENT(IN) :: auxinput6_inname
14166 INTEGER id_id
14167 CHARACTER*80 emess
14168 IF ( id_id .NE. 1 ) THEN
14169 call wrf_debug(1,&
14170 'WARNING in nl_set_auxinput6_inname: auxinput6_inname applies to all domains. First arg ignored.')
14171 ENDIF
14172 model_config_rec%auxinput6_inname = trim(auxinput6_inname)
14173 RETURN
14174 END SUBROUTINE nl_set_auxinput6_inname
14175 SUBROUTINE nl_set_auxinput7_inname ( id_id , auxinput7_inname )
14176 character*256 , INTENT(IN) :: auxinput7_inname
14177 INTEGER id_id
14178 CHARACTER*80 emess
14179 IF ( id_id .NE. 1 ) THEN
14180 call wrf_debug(1,&
14181 'WARNING in nl_set_auxinput7_inname: auxinput7_inname applies to all domains. First arg ignored.')
14182 ENDIF
14183 model_config_rec%auxinput7_inname = trim(auxinput7_inname)
14184 RETURN
14185 END SUBROUTINE nl_set_auxinput7_inname
14186 SUBROUTINE nl_set_auxinput8_inname ( id_id , auxinput8_inname )
14187 character*256 , INTENT(IN) :: auxinput8_inname
14188 INTEGER id_id
14189 CHARACTER*80 emess
14190 IF ( id_id .NE. 1 ) THEN
14191 call wrf_debug(1,&
14192 'WARNING in nl_set_auxinput8_inname: auxinput8_inname applies to all domains. First arg ignored.')
14193 ENDIF
14194 model_config_rec%auxinput8_inname = trim(auxinput8_inname)
14195 RETURN
14196 END SUBROUTINE nl_set_auxinput8_inname
14197 SUBROUTINE nl_set_auxinput9_inname ( id_id , auxinput9_inname )
14198 character*256 , INTENT(IN) :: auxinput9_inname
14199 INTEGER id_id
14200 CHARACTER*80 emess
14201 IF ( id_id .NE. 1 ) THEN
14202 call wrf_debug(1,&
14203 'WARNING in nl_set_auxinput9_inname: auxinput9_inname applies to all domains. First arg ignored.')
14204 ENDIF
14205 model_config_rec%auxinput9_inname = trim(auxinput9_inname)
14206 RETURN
14207 END SUBROUTINE nl_set_auxinput9_inname
14208 SUBROUTINE nl_set_gfdda_inname ( id_id , gfdda_inname )
14209 character*256 , INTENT(IN) :: gfdda_inname
14210 INTEGER id_id
14211 CHARACTER*80 emess
14212 IF ( id_id .NE. 1 ) THEN
14213 call wrf_debug(1,&
14214 'WARNING in nl_set_gfdda_inname: gfdda_inname applies to all domains. First arg ignored.')
14215 ENDIF
14216 model_config_rec%gfdda_inname = trim(gfdda_inname)
14217 RETURN
14218 END SUBROUTINE nl_set_gfdda_inname
14219 SUBROUTINE nl_set_auxinput11_inname ( id_id , auxinput11_inname )
14220 character*256 , INTENT(IN) :: auxinput11_inname
14221 INTEGER id_id
14222 CHARACTER*80 emess
14223 IF ( id_id .NE. 1 ) THEN
14224 call wrf_debug(1,&
14225 'WARNING in nl_set_auxinput11_inname: auxinput11_inname applies to all domains. First arg ignored.')
14226 ENDIF
14227 model_config_rec%auxinput11_inname = trim(auxinput11_inname)
14228 RETURN
14229 END SUBROUTINE nl_set_auxinput11_inname
14230 SUBROUTINE nl_set_history_interval_mo ( id_id , history_interval_mo )
14231 integer , INTENT(IN) :: history_interval_mo
14232 INTEGER id_id
14233 CHARACTER*80 emess
14234 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14235 WRITE(emess,*)'nl_set_history_interval_mo: Out of range domain number: ',id_id
14236 CALL wrf_error_fatal(emess)
14237 ENDIF
14238 model_config_rec%history_interval_mo(id_id) = history_interval_mo
14239 RETURN
14240 END SUBROUTINE nl_set_history_interval_mo
14241 SUBROUTINE nl_set_history_interval_d ( id_id , history_interval_d )
14242 integer , INTENT(IN) :: history_interval_d
14243 INTEGER id_id
14244 CHARACTER*80 emess
14245 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14246 WRITE(emess,*)'nl_set_history_interval_d: Out of range domain number: ',id_id
14247 CALL wrf_error_fatal(emess)
14248 ENDIF
14249 model_config_rec%history_interval_d(id_id) = history_interval_d
14250 RETURN
14251 END SUBROUTINE nl_set_history_interval_d
14252 SUBROUTINE nl_set_history_interval_h ( id_id , history_interval_h )
14253 integer , INTENT(IN) :: history_interval_h
14254 INTEGER id_id
14255 CHARACTER*80 emess
14256 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14257 WRITE(emess,*)'nl_set_history_interval_h: Out of range domain number: ',id_id
14258 CALL wrf_error_fatal(emess)
14259 ENDIF
14260 model_config_rec%history_interval_h(id_id) = history_interval_h
14261 RETURN
14262 END SUBROUTINE nl_set_history_interval_h
14263 SUBROUTINE nl_set_history_interval_m ( id_id , history_interval_m )
14264 integer , INTENT(IN) :: history_interval_m
14265 INTEGER id_id
14266 CHARACTER*80 emess
14267 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14268 WRITE(emess,*)'nl_set_history_interval_m: Out of range domain number: ',id_id
14269 CALL wrf_error_fatal(emess)
14270 ENDIF
14271 model_config_rec%history_interval_m(id_id) = history_interval_m
14272 RETURN
14273 END SUBROUTINE nl_set_history_interval_m
14274 SUBROUTINE nl_set_history_interval_s ( id_id , history_interval_s )
14275 integer , INTENT(IN) :: history_interval_s
14276 INTEGER id_id
14277 CHARACTER*80 emess
14278 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14279 WRITE(emess,*)'nl_set_history_interval_s: Out of range domain number: ',id_id
14280 CALL wrf_error_fatal(emess)
14281 ENDIF
14282 model_config_rec%history_interval_s(id_id) = history_interval_s
14283 RETURN
14284 END SUBROUTINE nl_set_history_interval_s
14285 SUBROUTINE nl_set_inputout_interval_mo ( id_id , inputout_interval_mo )
14286 integer , INTENT(IN) :: inputout_interval_mo
14287 INTEGER id_id
14288 CHARACTER*80 emess
14289 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14290 WRITE(emess,*)'nl_set_inputout_interval_mo: Out of range domain number: ',id_id
14291 CALL wrf_error_fatal(emess)
14292 ENDIF
14293 model_config_rec%inputout_interval_mo(id_id) = inputout_interval_mo
14294 RETURN
14295 END SUBROUTINE nl_set_inputout_interval_mo
14296 SUBROUTINE nl_set_inputout_interval_d ( id_id , inputout_interval_d )
14297 integer , INTENT(IN) :: inputout_interval_d
14298 INTEGER id_id
14299 CHARACTER*80 emess
14300 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14301 WRITE(emess,*)'nl_set_inputout_interval_d: Out of range domain number: ',id_id
14302 CALL wrf_error_fatal(emess)
14303 ENDIF
14304 model_config_rec%inputout_interval_d(id_id) = inputout_interval_d
14305 RETURN
14306 END SUBROUTINE nl_set_inputout_interval_d
14307 SUBROUTINE nl_set_inputout_interval_h ( id_id , inputout_interval_h )
14308 integer , INTENT(IN) :: inputout_interval_h
14309 INTEGER id_id
14310 CHARACTER*80 emess
14311 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14312 WRITE(emess,*)'nl_set_inputout_interval_h: Out of range domain number: ',id_id
14313 CALL wrf_error_fatal(emess)
14314 ENDIF
14315 model_config_rec%inputout_interval_h(id_id) = inputout_interval_h
14316 RETURN
14317 END SUBROUTINE nl_set_inputout_interval_h
14318 SUBROUTINE nl_set_inputout_interval_m ( id_id , inputout_interval_m )
14319 integer , INTENT(IN) :: inputout_interval_m
14320 INTEGER id_id
14321 CHARACTER*80 emess
14322 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14323 WRITE(emess,*)'nl_set_inputout_interval_m: Out of range domain number: ',id_id
14324 CALL wrf_error_fatal(emess)
14325 ENDIF
14326 model_config_rec%inputout_interval_m(id_id) = inputout_interval_m
14327 RETURN
14328 END SUBROUTINE nl_set_inputout_interval_m
14329 SUBROUTINE nl_set_inputout_interval_s ( id_id , inputout_interval_s )
14330 integer , INTENT(IN) :: inputout_interval_s
14331 INTEGER id_id
14332 CHARACTER*80 emess
14333 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14334 WRITE(emess,*)'nl_set_inputout_interval_s: Out of range domain number: ',id_id
14335 CALL wrf_error_fatal(emess)
14336 ENDIF
14337 model_config_rec%inputout_interval_s(id_id) = inputout_interval_s
14338 RETURN
14339 END SUBROUTINE nl_set_inputout_interval_s
14340 SUBROUTINE nl_set_inputout_interval ( id_id , inputout_interval )
14341 integer , INTENT(IN) :: inputout_interval
14342 INTEGER id_id
14343 CHARACTER*80 emess
14344 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14345 WRITE(emess,*)'nl_set_inputout_interval: Out of range domain number: ',id_id
14346 CALL wrf_error_fatal(emess)
14347 ENDIF
14348 model_config_rec%inputout_interval(id_id) = inputout_interval
14349 RETURN
14350 END SUBROUTINE nl_set_inputout_interval
14351 SUBROUTINE nl_set_auxhist1_interval_mo ( id_id , auxhist1_interval_mo )
14352 integer , INTENT(IN) :: auxhist1_interval_mo
14353 INTEGER id_id
14354 CHARACTER*80 emess
14355 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14356 WRITE(emess,*)'nl_set_auxhist1_interval_mo: Out of range domain number: ',id_id
14357 CALL wrf_error_fatal(emess)
14358 ENDIF
14359 model_config_rec%auxhist1_interval_mo(id_id) = auxhist1_interval_mo
14360 RETURN
14361 END SUBROUTINE nl_set_auxhist1_interval_mo
14362 SUBROUTINE nl_set_auxhist1_interval_d ( id_id , auxhist1_interval_d )
14363 integer , INTENT(IN) :: auxhist1_interval_d
14364 INTEGER id_id
14365 CHARACTER*80 emess
14366 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14367 WRITE(emess,*)'nl_set_auxhist1_interval_d: Out of range domain number: ',id_id
14368 CALL wrf_error_fatal(emess)
14369 ENDIF
14370 model_config_rec%auxhist1_interval_d(id_id) = auxhist1_interval_d
14371 RETURN
14372 END SUBROUTINE nl_set_auxhist1_interval_d
14373 SUBROUTINE nl_set_auxhist1_interval_h ( id_id , auxhist1_interval_h )
14374 integer , INTENT(IN) :: auxhist1_interval_h
14375 INTEGER id_id
14376 CHARACTER*80 emess
14377 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14378 WRITE(emess,*)'nl_set_auxhist1_interval_h: Out of range domain number: ',id_id
14379 CALL wrf_error_fatal(emess)
14380 ENDIF
14381 model_config_rec%auxhist1_interval_h(id_id) = auxhist1_interval_h
14382 RETURN
14383 END SUBROUTINE nl_set_auxhist1_interval_h
14384 SUBROUTINE nl_set_auxhist1_interval_m ( id_id , auxhist1_interval_m )
14385 integer , INTENT(IN) :: auxhist1_interval_m
14386 INTEGER id_id
14387 CHARACTER*80 emess
14388 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14389 WRITE(emess,*)'nl_set_auxhist1_interval_m: Out of range domain number: ',id_id
14390 CALL wrf_error_fatal(emess)
14391 ENDIF
14392 model_config_rec%auxhist1_interval_m(id_id) = auxhist1_interval_m
14393 RETURN
14394 END SUBROUTINE nl_set_auxhist1_interval_m
14395 SUBROUTINE nl_set_auxhist1_interval_s ( id_id , auxhist1_interval_s )
14396 integer , INTENT(IN) :: auxhist1_interval_s
14397 INTEGER id_id
14398 CHARACTER*80 emess
14399 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14400 WRITE(emess,*)'nl_set_auxhist1_interval_s: Out of range domain number: ',id_id
14401 CALL wrf_error_fatal(emess)
14402 ENDIF
14403 model_config_rec%auxhist1_interval_s(id_id) = auxhist1_interval_s
14404 RETURN
14405 END SUBROUTINE nl_set_auxhist1_interval_s
14406 SUBROUTINE nl_set_auxhist1_interval ( id_id , auxhist1_interval )
14407 integer , INTENT(IN) :: auxhist1_interval
14408 INTEGER id_id
14409 CHARACTER*80 emess
14410 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14411 WRITE(emess,*)'nl_set_auxhist1_interval: Out of range domain number: ',id_id
14412 CALL wrf_error_fatal(emess)
14413 ENDIF
14414 model_config_rec%auxhist1_interval(id_id) = auxhist1_interval
14415 RETURN
14416 END SUBROUTINE nl_set_auxhist1_interval
14417 SUBROUTINE nl_set_auxhist2_interval_mo ( id_id , auxhist2_interval_mo )
14418 integer , INTENT(IN) :: auxhist2_interval_mo
14419 INTEGER id_id
14420 CHARACTER*80 emess
14421 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14422 WRITE(emess,*)'nl_set_auxhist2_interval_mo: Out of range domain number: ',id_id
14423 CALL wrf_error_fatal(emess)
14424 ENDIF
14425 model_config_rec%auxhist2_interval_mo(id_id) = auxhist2_interval_mo
14426 RETURN
14427 END SUBROUTINE nl_set_auxhist2_interval_mo
14428 SUBROUTINE nl_set_auxhist2_interval_d ( id_id , auxhist2_interval_d )
14429 integer , INTENT(IN) :: auxhist2_interval_d
14430 INTEGER id_id
14431 CHARACTER*80 emess
14432 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14433 WRITE(emess,*)'nl_set_auxhist2_interval_d: Out of range domain number: ',id_id
14434 CALL wrf_error_fatal(emess)
14435 ENDIF
14436 model_config_rec%auxhist2_interval_d(id_id) = auxhist2_interval_d
14437 RETURN
14438 END SUBROUTINE nl_set_auxhist2_interval_d
14439 SUBROUTINE nl_set_auxhist2_interval_h ( id_id , auxhist2_interval_h )
14440 integer , INTENT(IN) :: auxhist2_interval_h
14441 INTEGER id_id
14442 CHARACTER*80 emess
14443 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14444 WRITE(emess,*)'nl_set_auxhist2_interval_h: Out of range domain number: ',id_id
14445 CALL wrf_error_fatal(emess)
14446 ENDIF
14447 model_config_rec%auxhist2_interval_h(id_id) = auxhist2_interval_h
14448 RETURN
14449 END SUBROUTINE nl_set_auxhist2_interval_h
14450 SUBROUTINE nl_set_auxhist2_interval_m ( id_id , auxhist2_interval_m )
14451 integer , INTENT(IN) :: auxhist2_interval_m
14452 INTEGER id_id
14453 CHARACTER*80 emess
14454 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14455 WRITE(emess,*)'nl_set_auxhist2_interval_m: Out of range domain number: ',id_id
14456 CALL wrf_error_fatal(emess)
14457 ENDIF
14458 model_config_rec%auxhist2_interval_m(id_id) = auxhist2_interval_m
14459 RETURN
14460 END SUBROUTINE nl_set_auxhist2_interval_m
14461 SUBROUTINE nl_set_auxhist2_interval_s ( id_id , auxhist2_interval_s )
14462 integer , INTENT(IN) :: auxhist2_interval_s
14463 INTEGER id_id
14464 CHARACTER*80 emess
14465 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14466 WRITE(emess,*)'nl_set_auxhist2_interval_s: Out of range domain number: ',id_id
14467 CALL wrf_error_fatal(emess)
14468 ENDIF
14469 model_config_rec%auxhist2_interval_s(id_id) = auxhist2_interval_s
14470 RETURN
14471 END SUBROUTINE nl_set_auxhist2_interval_s
14472 SUBROUTINE nl_set_auxhist2_interval ( id_id , auxhist2_interval )
14473 integer , INTENT(IN) :: auxhist2_interval
14474 INTEGER id_id
14475 CHARACTER*80 emess
14476 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14477 WRITE(emess,*)'nl_set_auxhist2_interval: Out of range domain number: ',id_id
14478 CALL wrf_error_fatal(emess)
14479 ENDIF
14480 model_config_rec%auxhist2_interval(id_id) = auxhist2_interval
14481 RETURN
14482 END SUBROUTINE nl_set_auxhist2_interval
14483 SUBROUTINE nl_set_auxhist3_interval_mo ( id_id , auxhist3_interval_mo )
14484 integer , INTENT(IN) :: auxhist3_interval_mo
14485 INTEGER id_id
14486 CHARACTER*80 emess
14487 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14488 WRITE(emess,*)'nl_set_auxhist3_interval_mo: Out of range domain number: ',id_id
14489 CALL wrf_error_fatal(emess)
14490 ENDIF
14491 model_config_rec%auxhist3_interval_mo(id_id) = auxhist3_interval_mo
14492 RETURN
14493 END SUBROUTINE nl_set_auxhist3_interval_mo
14494 SUBROUTINE nl_set_auxhist3_interval_d ( id_id , auxhist3_interval_d )
14495 integer , INTENT(IN) :: auxhist3_interval_d
14496 INTEGER id_id
14497 CHARACTER*80 emess
14498 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14499 WRITE(emess,*)'nl_set_auxhist3_interval_d: Out of range domain number: ',id_id
14500 CALL wrf_error_fatal(emess)
14501 ENDIF
14502 model_config_rec%auxhist3_interval_d(id_id) = auxhist3_interval_d
14503 RETURN
14504 END SUBROUTINE nl_set_auxhist3_interval_d
14505 SUBROUTINE nl_set_auxhist3_interval_h ( id_id , auxhist3_interval_h )
14506 integer , INTENT(IN) :: auxhist3_interval_h
14507 INTEGER id_id
14508 CHARACTER*80 emess
14509 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14510 WRITE(emess,*)'nl_set_auxhist3_interval_h: Out of range domain number: ',id_id
14511 CALL wrf_error_fatal(emess)
14512 ENDIF
14513 model_config_rec%auxhist3_interval_h(id_id) = auxhist3_interval_h
14514 RETURN
14515 END SUBROUTINE nl_set_auxhist3_interval_h
14516 SUBROUTINE nl_set_auxhist3_interval_m ( id_id , auxhist3_interval_m )
14517 integer , INTENT(IN) :: auxhist3_interval_m
14518 INTEGER id_id
14519 CHARACTER*80 emess
14520 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14521 WRITE(emess,*)'nl_set_auxhist3_interval_m: Out of range domain number: ',id_id
14522 CALL wrf_error_fatal(emess)
14523 ENDIF
14524 model_config_rec%auxhist3_interval_m(id_id) = auxhist3_interval_m
14525 RETURN
14526 END SUBROUTINE nl_set_auxhist3_interval_m
14527 SUBROUTINE nl_set_auxhist3_interval_s ( id_id , auxhist3_interval_s )
14528 integer , INTENT(IN) :: auxhist3_interval_s
14529 INTEGER id_id
14530 CHARACTER*80 emess
14531 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14532 WRITE(emess,*)'nl_set_auxhist3_interval_s: Out of range domain number: ',id_id
14533 CALL wrf_error_fatal(emess)
14534 ENDIF
14535 model_config_rec%auxhist3_interval_s(id_id) = auxhist3_interval_s
14536 RETURN
14537 END SUBROUTINE nl_set_auxhist3_interval_s
14538 SUBROUTINE nl_set_auxhist3_interval ( id_id , auxhist3_interval )
14539 integer , INTENT(IN) :: auxhist3_interval
14540 INTEGER id_id
14541 CHARACTER*80 emess
14542 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14543 WRITE(emess,*)'nl_set_auxhist3_interval: Out of range domain number: ',id_id
14544 CALL wrf_error_fatal(emess)
14545 ENDIF
14546 model_config_rec%auxhist3_interval(id_id) = auxhist3_interval
14547 RETURN
14548 END SUBROUTINE nl_set_auxhist3_interval
14549 SUBROUTINE nl_set_auxhist4_interval_mo ( id_id , auxhist4_interval_mo )
14550 integer , INTENT(IN) :: auxhist4_interval_mo
14551 INTEGER id_id
14552 CHARACTER*80 emess
14553 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14554 WRITE(emess,*)'nl_set_auxhist4_interval_mo: Out of range domain number: ',id_id
14555 CALL wrf_error_fatal(emess)
14556 ENDIF
14557 model_config_rec%auxhist4_interval_mo(id_id) = auxhist4_interval_mo
14558 RETURN
14559 END SUBROUTINE nl_set_auxhist4_interval_mo
14560 SUBROUTINE nl_set_auxhist4_interval_d ( id_id , auxhist4_interval_d )
14561 integer , INTENT(IN) :: auxhist4_interval_d
14562 INTEGER id_id
14563 CHARACTER*80 emess
14564 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14565 WRITE(emess,*)'nl_set_auxhist4_interval_d: Out of range domain number: ',id_id
14566 CALL wrf_error_fatal(emess)
14567 ENDIF
14568 model_config_rec%auxhist4_interval_d(id_id) = auxhist4_interval_d
14569 RETURN
14570 END SUBROUTINE nl_set_auxhist4_interval_d
14571 SUBROUTINE nl_set_auxhist4_interval_h ( id_id , auxhist4_interval_h )
14572 integer , INTENT(IN) :: auxhist4_interval_h
14573 INTEGER id_id
14574 CHARACTER*80 emess
14575 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14576 WRITE(emess,*)'nl_set_auxhist4_interval_h: Out of range domain number: ',id_id
14577 CALL wrf_error_fatal(emess)
14578 ENDIF
14579 model_config_rec%auxhist4_interval_h(id_id) = auxhist4_interval_h
14580 RETURN
14581 END SUBROUTINE nl_set_auxhist4_interval_h
14582 SUBROUTINE nl_set_auxhist4_interval_m ( id_id , auxhist4_interval_m )
14583 integer , INTENT(IN) :: auxhist4_interval_m
14584 INTEGER id_id
14585 CHARACTER*80 emess
14586 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14587 WRITE(emess,*)'nl_set_auxhist4_interval_m: Out of range domain number: ',id_id
14588 CALL wrf_error_fatal(emess)
14589 ENDIF
14590 model_config_rec%auxhist4_interval_m(id_id) = auxhist4_interval_m
14591 RETURN
14592 END SUBROUTINE nl_set_auxhist4_interval_m
14593 SUBROUTINE nl_set_auxhist4_interval_s ( id_id , auxhist4_interval_s )
14594 integer , INTENT(IN) :: auxhist4_interval_s
14595 INTEGER id_id
14596 CHARACTER*80 emess
14597 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14598 WRITE(emess,*)'nl_set_auxhist4_interval_s: Out of range domain number: ',id_id
14599 CALL wrf_error_fatal(emess)
14600 ENDIF
14601 model_config_rec%auxhist4_interval_s(id_id) = auxhist4_interval_s
14602 RETURN
14603 END SUBROUTINE nl_set_auxhist4_interval_s
14604 SUBROUTINE nl_set_auxhist4_interval ( id_id , auxhist4_interval )
14605 integer , INTENT(IN) :: auxhist4_interval
14606 INTEGER id_id
14607 CHARACTER*80 emess
14608 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14609 WRITE(emess,*)'nl_set_auxhist4_interval: Out of range domain number: ',id_id
14610 CALL wrf_error_fatal(emess)
14611 ENDIF
14612 model_config_rec%auxhist4_interval(id_id) = auxhist4_interval
14613 RETURN
14614 END SUBROUTINE nl_set_auxhist4_interval
14615 SUBROUTINE nl_set_auxhist5_interval_mo ( id_id , auxhist5_interval_mo )
14616 integer , INTENT(IN) :: auxhist5_interval_mo
14617 INTEGER id_id
14618 CHARACTER*80 emess
14619 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14620 WRITE(emess,*)'nl_set_auxhist5_interval_mo: Out of range domain number: ',id_id
14621 CALL wrf_error_fatal(emess)
14622 ENDIF
14623 model_config_rec%auxhist5_interval_mo(id_id) = auxhist5_interval_mo
14624 RETURN
14625 END SUBROUTINE nl_set_auxhist5_interval_mo
14626 SUBROUTINE nl_set_auxhist5_interval_d ( id_id , auxhist5_interval_d )
14627 integer , INTENT(IN) :: auxhist5_interval_d
14628 INTEGER id_id
14629 CHARACTER*80 emess
14630 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14631 WRITE(emess,*)'nl_set_auxhist5_interval_d: Out of range domain number: ',id_id
14632 CALL wrf_error_fatal(emess)
14633 ENDIF
14634 model_config_rec%auxhist5_interval_d(id_id) = auxhist5_interval_d
14635 RETURN
14636 END SUBROUTINE nl_set_auxhist5_interval_d
14637 SUBROUTINE nl_set_auxhist5_interval_h ( id_id , auxhist5_interval_h )
14638 integer , INTENT(IN) :: auxhist5_interval_h
14639 INTEGER id_id
14640 CHARACTER*80 emess
14641 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14642 WRITE(emess,*)'nl_set_auxhist5_interval_h: Out of range domain number: ',id_id
14643 CALL wrf_error_fatal(emess)
14644 ENDIF
14645 model_config_rec%auxhist5_interval_h(id_id) = auxhist5_interval_h
14646 RETURN
14647 END SUBROUTINE nl_set_auxhist5_interval_h
14648 SUBROUTINE nl_set_auxhist5_interval_m ( id_id , auxhist5_interval_m )
14649 integer , INTENT(IN) :: auxhist5_interval_m
14650 INTEGER id_id
14651 CHARACTER*80 emess
14652 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14653 WRITE(emess,*)'nl_set_auxhist5_interval_m: Out of range domain number: ',id_id
14654 CALL wrf_error_fatal(emess)
14655 ENDIF
14656 model_config_rec%auxhist5_interval_m(id_id) = auxhist5_interval_m
14657 RETURN
14658 END SUBROUTINE nl_set_auxhist5_interval_m
14659 SUBROUTINE nl_set_auxhist5_interval_s ( id_id , auxhist5_interval_s )
14660 integer , INTENT(IN) :: auxhist5_interval_s
14661 INTEGER id_id
14662 CHARACTER*80 emess
14663 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14664 WRITE(emess,*)'nl_set_auxhist5_interval_s: Out of range domain number: ',id_id
14665 CALL wrf_error_fatal(emess)
14666 ENDIF
14667 model_config_rec%auxhist5_interval_s(id_id) = auxhist5_interval_s
14668 RETURN
14669 END SUBROUTINE nl_set_auxhist5_interval_s
14670 SUBROUTINE nl_set_auxhist5_interval ( id_id , auxhist5_interval )
14671 integer , INTENT(IN) :: auxhist5_interval
14672 INTEGER id_id
14673 CHARACTER*80 emess
14674 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14675 WRITE(emess,*)'nl_set_auxhist5_interval: Out of range domain number: ',id_id
14676 CALL wrf_error_fatal(emess)
14677 ENDIF
14678 model_config_rec%auxhist5_interval(id_id) = auxhist5_interval
14679 RETURN
14680 END SUBROUTINE nl_set_auxhist5_interval
14681 SUBROUTINE nl_set_auxhist6_interval_mo ( id_id , auxhist6_interval_mo )
14682 integer , INTENT(IN) :: auxhist6_interval_mo
14683 INTEGER id_id
14684 CHARACTER*80 emess
14685 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14686 WRITE(emess,*)'nl_set_auxhist6_interval_mo: Out of range domain number: ',id_id
14687 CALL wrf_error_fatal(emess)
14688 ENDIF
14689 model_config_rec%auxhist6_interval_mo(id_id) = auxhist6_interval_mo
14690 RETURN
14691 END SUBROUTINE nl_set_auxhist6_interval_mo
14692 SUBROUTINE nl_set_auxhist6_interval_d ( id_id , auxhist6_interval_d )
14693 integer , INTENT(IN) :: auxhist6_interval_d
14694 INTEGER id_id
14695 CHARACTER*80 emess
14696 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14697 WRITE(emess,*)'nl_set_auxhist6_interval_d: Out of range domain number: ',id_id
14698 CALL wrf_error_fatal(emess)
14699 ENDIF
14700 model_config_rec%auxhist6_interval_d(id_id) = auxhist6_interval_d
14701 RETURN
14702 END SUBROUTINE nl_set_auxhist6_interval_d
14703 SUBROUTINE nl_set_auxhist6_interval_h ( id_id , auxhist6_interval_h )
14704 integer , INTENT(IN) :: auxhist6_interval_h
14705 INTEGER id_id
14706 CHARACTER*80 emess
14707 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14708 WRITE(emess,*)'nl_set_auxhist6_interval_h: Out of range domain number: ',id_id
14709 CALL wrf_error_fatal(emess)
14710 ENDIF
14711 model_config_rec%auxhist6_interval_h(id_id) = auxhist6_interval_h
14712 RETURN
14713 END SUBROUTINE nl_set_auxhist6_interval_h
14714 SUBROUTINE nl_set_auxhist6_interval_m ( id_id , auxhist6_interval_m )
14715 integer , INTENT(IN) :: auxhist6_interval_m
14716 INTEGER id_id
14717 CHARACTER*80 emess
14718 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14719 WRITE(emess,*)'nl_set_auxhist6_interval_m: Out of range domain number: ',id_id
14720 CALL wrf_error_fatal(emess)
14721 ENDIF
14722 model_config_rec%auxhist6_interval_m(id_id) = auxhist6_interval_m
14723 RETURN
14724 END SUBROUTINE nl_set_auxhist6_interval_m
14725 SUBROUTINE nl_set_auxhist6_interval_s ( id_id , auxhist6_interval_s )
14726 integer , INTENT(IN) :: auxhist6_interval_s
14727 INTEGER id_id
14728 CHARACTER*80 emess
14729 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14730 WRITE(emess,*)'nl_set_auxhist6_interval_s: Out of range domain number: ',id_id
14731 CALL wrf_error_fatal(emess)
14732 ENDIF
14733 model_config_rec%auxhist6_interval_s(id_id) = auxhist6_interval_s
14734 RETURN
14735 END SUBROUTINE nl_set_auxhist6_interval_s
14736 SUBROUTINE nl_set_auxhist6_interval ( id_id , auxhist6_interval )
14737 integer , INTENT(IN) :: auxhist6_interval
14738 INTEGER id_id
14739 CHARACTER*80 emess
14740 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14741 WRITE(emess,*)'nl_set_auxhist6_interval: Out of range domain number: ',id_id
14742 CALL wrf_error_fatal(emess)
14743 ENDIF
14744 model_config_rec%auxhist6_interval(id_id) = auxhist6_interval
14745 RETURN
14746 END SUBROUTINE nl_set_auxhist6_interval
14747 SUBROUTINE nl_set_auxhist7_interval_mo ( id_id , auxhist7_interval_mo )
14748 integer , INTENT(IN) :: auxhist7_interval_mo
14749 INTEGER id_id
14750 CHARACTER*80 emess
14751 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14752 WRITE(emess,*)'nl_set_auxhist7_interval_mo: Out of range domain number: ',id_id
14753 CALL wrf_error_fatal(emess)
14754 ENDIF
14755 model_config_rec%auxhist7_interval_mo(id_id) = auxhist7_interval_mo
14756 RETURN
14757 END SUBROUTINE nl_set_auxhist7_interval_mo
14758 SUBROUTINE nl_set_auxhist7_interval_d ( id_id , auxhist7_interval_d )
14759 integer , INTENT(IN) :: auxhist7_interval_d
14760 INTEGER id_id
14761 CHARACTER*80 emess
14762 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14763 WRITE(emess,*)'nl_set_auxhist7_interval_d: Out of range domain number: ',id_id
14764 CALL wrf_error_fatal(emess)
14765 ENDIF
14766 model_config_rec%auxhist7_interval_d(id_id) = auxhist7_interval_d
14767 RETURN
14768 END SUBROUTINE nl_set_auxhist7_interval_d
14769 SUBROUTINE nl_set_auxhist7_interval_h ( id_id , auxhist7_interval_h )
14770 integer , INTENT(IN) :: auxhist7_interval_h
14771 INTEGER id_id
14772 CHARACTER*80 emess
14773 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14774 WRITE(emess,*)'nl_set_auxhist7_interval_h: Out of range domain number: ',id_id
14775 CALL wrf_error_fatal(emess)
14776 ENDIF
14777 model_config_rec%auxhist7_interval_h(id_id) = auxhist7_interval_h
14778 RETURN
14779 END SUBROUTINE nl_set_auxhist7_interval_h
14780 SUBROUTINE nl_set_auxhist7_interval_m ( id_id , auxhist7_interval_m )
14781 integer , INTENT(IN) :: auxhist7_interval_m
14782 INTEGER id_id
14783 CHARACTER*80 emess
14784 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14785 WRITE(emess,*)'nl_set_auxhist7_interval_m: Out of range domain number: ',id_id
14786 CALL wrf_error_fatal(emess)
14787 ENDIF
14788 model_config_rec%auxhist7_interval_m(id_id) = auxhist7_interval_m
14789 RETURN
14790 END SUBROUTINE nl_set_auxhist7_interval_m
14791 SUBROUTINE nl_set_auxhist7_interval_s ( id_id , auxhist7_interval_s )
14792 integer , INTENT(IN) :: auxhist7_interval_s
14793 INTEGER id_id
14794 CHARACTER*80 emess
14795 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14796 WRITE(emess,*)'nl_set_auxhist7_interval_s: Out of range domain number: ',id_id
14797 CALL wrf_error_fatal(emess)
14798 ENDIF
14799 model_config_rec%auxhist7_interval_s(id_id) = auxhist7_interval_s
14800 RETURN
14801 END SUBROUTINE nl_set_auxhist7_interval_s
14802 SUBROUTINE nl_set_auxhist7_interval ( id_id , auxhist7_interval )
14803 integer , INTENT(IN) :: auxhist7_interval
14804 INTEGER id_id
14805 CHARACTER*80 emess
14806 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14807 WRITE(emess,*)'nl_set_auxhist7_interval: Out of range domain number: ',id_id
14808 CALL wrf_error_fatal(emess)
14809 ENDIF
14810 model_config_rec%auxhist7_interval(id_id) = auxhist7_interval
14811 RETURN
14812 END SUBROUTINE nl_set_auxhist7_interval
14813 SUBROUTINE nl_set_auxhist8_interval_mo ( id_id , auxhist8_interval_mo )
14814 integer , INTENT(IN) :: auxhist8_interval_mo
14815 INTEGER id_id
14816 CHARACTER*80 emess
14817 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14818 WRITE(emess,*)'nl_set_auxhist8_interval_mo: Out of range domain number: ',id_id
14819 CALL wrf_error_fatal(emess)
14820 ENDIF
14821 model_config_rec%auxhist8_interval_mo(id_id) = auxhist8_interval_mo
14822 RETURN
14823 END SUBROUTINE nl_set_auxhist8_interval_mo
14824 SUBROUTINE nl_set_auxhist8_interval_d ( id_id , auxhist8_interval_d )
14825 integer , INTENT(IN) :: auxhist8_interval_d
14826 INTEGER id_id
14827 CHARACTER*80 emess
14828 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14829 WRITE(emess,*)'nl_set_auxhist8_interval_d: Out of range domain number: ',id_id
14830 CALL wrf_error_fatal(emess)
14831 ENDIF
14832 model_config_rec%auxhist8_interval_d(id_id) = auxhist8_interval_d
14833 RETURN
14834 END SUBROUTINE nl_set_auxhist8_interval_d
14835 SUBROUTINE nl_set_auxhist8_interval_h ( id_id , auxhist8_interval_h )
14836 integer , INTENT(IN) :: auxhist8_interval_h
14837 INTEGER id_id
14838 CHARACTER*80 emess
14839 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14840 WRITE(emess,*)'nl_set_auxhist8_interval_h: Out of range domain number: ',id_id
14841 CALL wrf_error_fatal(emess)
14842 ENDIF
14843 model_config_rec%auxhist8_interval_h(id_id) = auxhist8_interval_h
14844 RETURN
14845 END SUBROUTINE nl_set_auxhist8_interval_h
14846 SUBROUTINE nl_set_auxhist8_interval_m ( id_id , auxhist8_interval_m )
14847 integer , INTENT(IN) :: auxhist8_interval_m
14848 INTEGER id_id
14849 CHARACTER*80 emess
14850 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14851 WRITE(emess,*)'nl_set_auxhist8_interval_m: Out of range domain number: ',id_id
14852 CALL wrf_error_fatal(emess)
14853 ENDIF
14854 model_config_rec%auxhist8_interval_m(id_id) = auxhist8_interval_m
14855 RETURN
14856 END SUBROUTINE nl_set_auxhist8_interval_m
14857 SUBROUTINE nl_set_auxhist8_interval_s ( id_id , auxhist8_interval_s )
14858 integer , INTENT(IN) :: auxhist8_interval_s
14859 INTEGER id_id
14860 CHARACTER*80 emess
14861 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14862 WRITE(emess,*)'nl_set_auxhist8_interval_s: Out of range domain number: ',id_id
14863 CALL wrf_error_fatal(emess)
14864 ENDIF
14865 model_config_rec%auxhist8_interval_s(id_id) = auxhist8_interval_s
14866 RETURN
14867 END SUBROUTINE nl_set_auxhist8_interval_s
14868 SUBROUTINE nl_set_auxhist8_interval ( id_id , auxhist8_interval )
14869 integer , INTENT(IN) :: auxhist8_interval
14870 INTEGER id_id
14871 CHARACTER*80 emess
14872 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14873 WRITE(emess,*)'nl_set_auxhist8_interval: Out of range domain number: ',id_id
14874 CALL wrf_error_fatal(emess)
14875 ENDIF
14876 model_config_rec%auxhist8_interval(id_id) = auxhist8_interval
14877 RETURN
14878 END SUBROUTINE nl_set_auxhist8_interval
14879 SUBROUTINE nl_set_auxhist9_interval_mo ( id_id , auxhist9_interval_mo )
14880 integer , INTENT(IN) :: auxhist9_interval_mo
14881 INTEGER id_id
14882 CHARACTER*80 emess
14883 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14884 WRITE(emess,*)'nl_set_auxhist9_interval_mo: Out of range domain number: ',id_id
14885 CALL wrf_error_fatal(emess)
14886 ENDIF
14887 model_config_rec%auxhist9_interval_mo(id_id) = auxhist9_interval_mo
14888 RETURN
14889 END SUBROUTINE nl_set_auxhist9_interval_mo
14890 SUBROUTINE nl_set_auxhist9_interval_d ( id_id , auxhist9_interval_d )
14891 integer , INTENT(IN) :: auxhist9_interval_d
14892 INTEGER id_id
14893 CHARACTER*80 emess
14894 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14895 WRITE(emess,*)'nl_set_auxhist9_interval_d: Out of range domain number: ',id_id
14896 CALL wrf_error_fatal(emess)
14897 ENDIF
14898 model_config_rec%auxhist9_interval_d(id_id) = auxhist9_interval_d
14899 RETURN
14900 END SUBROUTINE nl_set_auxhist9_interval_d
14901 SUBROUTINE nl_set_auxhist9_interval_h ( id_id , auxhist9_interval_h )
14902 integer , INTENT(IN) :: auxhist9_interval_h
14903 INTEGER id_id
14904 CHARACTER*80 emess
14905 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14906 WRITE(emess,*)'nl_set_auxhist9_interval_h: Out of range domain number: ',id_id
14907 CALL wrf_error_fatal(emess)
14908 ENDIF
14909 model_config_rec%auxhist9_interval_h(id_id) = auxhist9_interval_h
14910 RETURN
14911 END SUBROUTINE nl_set_auxhist9_interval_h
14912 SUBROUTINE nl_set_auxhist9_interval_m ( id_id , auxhist9_interval_m )
14913 integer , INTENT(IN) :: auxhist9_interval_m
14914 INTEGER id_id
14915 CHARACTER*80 emess
14916 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14917 WRITE(emess,*)'nl_set_auxhist9_interval_m: Out of range domain number: ',id_id
14918 CALL wrf_error_fatal(emess)
14919 ENDIF
14920 model_config_rec%auxhist9_interval_m(id_id) = auxhist9_interval_m
14921 RETURN
14922 END SUBROUTINE nl_set_auxhist9_interval_m
14923 SUBROUTINE nl_set_auxhist9_interval_s ( id_id , auxhist9_interval_s )
14924 integer , INTENT(IN) :: auxhist9_interval_s
14925 INTEGER id_id
14926 CHARACTER*80 emess
14927 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14928 WRITE(emess,*)'nl_set_auxhist9_interval_s: Out of range domain number: ',id_id
14929 CALL wrf_error_fatal(emess)
14930 ENDIF
14931 model_config_rec%auxhist9_interval_s(id_id) = auxhist9_interval_s
14932 RETURN
14933 END SUBROUTINE nl_set_auxhist9_interval_s
14934 SUBROUTINE nl_set_auxhist9_interval ( id_id , auxhist9_interval )
14935 integer , INTENT(IN) :: auxhist9_interval
14936 INTEGER id_id
14937 CHARACTER*80 emess
14938 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14939 WRITE(emess,*)'nl_set_auxhist9_interval: Out of range domain number: ',id_id
14940 CALL wrf_error_fatal(emess)
14941 ENDIF
14942 model_config_rec%auxhist9_interval(id_id) = auxhist9_interval
14943 RETURN
14944 END SUBROUTINE nl_set_auxhist9_interval
14945 SUBROUTINE nl_set_auxhist10_interval_mo ( id_id , auxhist10_interval_mo )
14946 integer , INTENT(IN) :: auxhist10_interval_mo
14947 INTEGER id_id
14948 CHARACTER*80 emess
14949 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14950 WRITE(emess,*)'nl_set_auxhist10_interval_mo: Out of range domain number: ',id_id
14951 CALL wrf_error_fatal(emess)
14952 ENDIF
14953 model_config_rec%auxhist10_interval_mo(id_id) = auxhist10_interval_mo
14954 RETURN
14955 END SUBROUTINE nl_set_auxhist10_interval_mo
14956 SUBROUTINE nl_set_auxhist10_interval_d ( id_id , auxhist10_interval_d )
14957 integer , INTENT(IN) :: auxhist10_interval_d
14958 INTEGER id_id
14959 CHARACTER*80 emess
14960 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14961 WRITE(emess,*)'nl_set_auxhist10_interval_d: Out of range domain number: ',id_id
14962 CALL wrf_error_fatal(emess)
14963 ENDIF
14964 model_config_rec%auxhist10_interval_d(id_id) = auxhist10_interval_d
14965 RETURN
14966 END SUBROUTINE nl_set_auxhist10_interval_d
14967 SUBROUTINE nl_set_auxhist10_interval_h ( id_id , auxhist10_interval_h )
14968 integer , INTENT(IN) :: auxhist10_interval_h
14969 INTEGER id_id
14970 CHARACTER*80 emess
14971 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14972 WRITE(emess,*)'nl_set_auxhist10_interval_h: Out of range domain number: ',id_id
14973 CALL wrf_error_fatal(emess)
14974 ENDIF
14975 model_config_rec%auxhist10_interval_h(id_id) = auxhist10_interval_h
14976 RETURN
14977 END SUBROUTINE nl_set_auxhist10_interval_h
14978 SUBROUTINE nl_set_auxhist10_interval_m ( id_id , auxhist10_interval_m )
14979 integer , INTENT(IN) :: auxhist10_interval_m
14980 INTEGER id_id
14981 CHARACTER*80 emess
14982 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14983 WRITE(emess,*)'nl_set_auxhist10_interval_m: Out of range domain number: ',id_id
14984 CALL wrf_error_fatal(emess)
14985 ENDIF
14986 model_config_rec%auxhist10_interval_m(id_id) = auxhist10_interval_m
14987 RETURN
14988 END SUBROUTINE nl_set_auxhist10_interval_m
14989 SUBROUTINE nl_set_auxhist10_interval_s ( id_id , auxhist10_interval_s )
14990 integer , INTENT(IN) :: auxhist10_interval_s
14991 INTEGER id_id
14992 CHARACTER*80 emess
14993 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
14994 WRITE(emess,*)'nl_set_auxhist10_interval_s: Out of range domain number: ',id_id
14995 CALL wrf_error_fatal(emess)
14996 ENDIF
14997 model_config_rec%auxhist10_interval_s(id_id) = auxhist10_interval_s
14998 RETURN
14999 END SUBROUTINE nl_set_auxhist10_interval_s
15000 SUBROUTINE nl_set_auxhist10_interval ( id_id , auxhist10_interval )
15001 integer , INTENT(IN) :: auxhist10_interval
15002 INTEGER id_id
15003 CHARACTER*80 emess
15004 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15005 WRITE(emess,*)'nl_set_auxhist10_interval: Out of range domain number: ',id_id
15006 CALL wrf_error_fatal(emess)
15007 ENDIF
15008 model_config_rec%auxhist10_interval(id_id) = auxhist10_interval
15009 RETURN
15010 END SUBROUTINE nl_set_auxhist10_interval
15011 SUBROUTINE nl_set_auxhist11_interval_mo ( id_id , auxhist11_interval_mo )
15012 integer , INTENT(IN) :: auxhist11_interval_mo
15013 INTEGER id_id
15014 CHARACTER*80 emess
15015 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15016 WRITE(emess,*)'nl_set_auxhist11_interval_mo: Out of range domain number: ',id_id
15017 CALL wrf_error_fatal(emess)
15018 ENDIF
15019 model_config_rec%auxhist11_interval_mo(id_id) = auxhist11_interval_mo
15020 RETURN
15021 END SUBROUTINE nl_set_auxhist11_interval_mo
15022 SUBROUTINE nl_set_auxhist11_interval_d ( id_id , auxhist11_interval_d )
15023 integer , INTENT(IN) :: auxhist11_interval_d
15024 INTEGER id_id
15025 CHARACTER*80 emess
15026 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15027 WRITE(emess,*)'nl_set_auxhist11_interval_d: Out of range domain number: ',id_id
15028 CALL wrf_error_fatal(emess)
15029 ENDIF
15030 model_config_rec%auxhist11_interval_d(id_id) = auxhist11_interval_d
15031 RETURN
15032 END SUBROUTINE nl_set_auxhist11_interval_d
15033 SUBROUTINE nl_set_auxhist11_interval_h ( id_id , auxhist11_interval_h )
15034 integer , INTENT(IN) :: auxhist11_interval_h
15035 INTEGER id_id
15036 CHARACTER*80 emess
15037 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15038 WRITE(emess,*)'nl_set_auxhist11_interval_h: Out of range domain number: ',id_id
15039 CALL wrf_error_fatal(emess)
15040 ENDIF
15041 model_config_rec%auxhist11_interval_h(id_id) = auxhist11_interval_h
15042 RETURN
15043 END SUBROUTINE nl_set_auxhist11_interval_h
15044 SUBROUTINE nl_set_auxhist11_interval_m ( id_id , auxhist11_interval_m )
15045 integer , INTENT(IN) :: auxhist11_interval_m
15046 INTEGER id_id
15047 CHARACTER*80 emess
15048 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15049 WRITE(emess,*)'nl_set_auxhist11_interval_m: Out of range domain number: ',id_id
15050 CALL wrf_error_fatal(emess)
15051 ENDIF
15052 model_config_rec%auxhist11_interval_m(id_id) = auxhist11_interval_m
15053 RETURN
15054 END SUBROUTINE nl_set_auxhist11_interval_m
15055 SUBROUTINE nl_set_auxhist11_interval_s ( id_id , auxhist11_interval_s )
15056 integer , INTENT(IN) :: auxhist11_interval_s
15057 INTEGER id_id
15058 CHARACTER*80 emess
15059 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15060 WRITE(emess,*)'nl_set_auxhist11_interval_s: Out of range domain number: ',id_id
15061 CALL wrf_error_fatal(emess)
15062 ENDIF
15063 model_config_rec%auxhist11_interval_s(id_id) = auxhist11_interval_s
15064 RETURN
15065 END SUBROUTINE nl_set_auxhist11_interval_s
15066 SUBROUTINE nl_set_auxhist11_interval ( id_id , auxhist11_interval )
15067 integer , INTENT(IN) :: auxhist11_interval
15068 INTEGER id_id
15069 CHARACTER*80 emess
15070 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15071 WRITE(emess,*)'nl_set_auxhist11_interval: Out of range domain number: ',id_id
15072 CALL wrf_error_fatal(emess)
15073 ENDIF
15074 model_config_rec%auxhist11_interval(id_id) = auxhist11_interval
15075 RETURN
15076 END SUBROUTINE nl_set_auxhist11_interval
15077 SUBROUTINE nl_set_auxinput1_interval_mo ( id_id , auxinput1_interval_mo )
15078 integer , INTENT(IN) :: auxinput1_interval_mo
15079 INTEGER id_id
15080 CHARACTER*80 emess
15081 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15082 WRITE(emess,*)'nl_set_auxinput1_interval_mo: Out of range domain number: ',id_id
15083 CALL wrf_error_fatal(emess)
15084 ENDIF
15085 model_config_rec%auxinput1_interval_mo(id_id) = auxinput1_interval_mo
15086 RETURN
15087 END SUBROUTINE nl_set_auxinput1_interval_mo
15088 SUBROUTINE nl_set_auxinput1_interval_d ( id_id , auxinput1_interval_d )
15089 integer , INTENT(IN) :: auxinput1_interval_d
15090 INTEGER id_id
15091 CHARACTER*80 emess
15092 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15093 WRITE(emess,*)'nl_set_auxinput1_interval_d: Out of range domain number: ',id_id
15094 CALL wrf_error_fatal(emess)
15095 ENDIF
15096 model_config_rec%auxinput1_interval_d(id_id) = auxinput1_interval_d
15097 RETURN
15098 END SUBROUTINE nl_set_auxinput1_interval_d
15099 SUBROUTINE nl_set_auxinput1_interval_h ( id_id , auxinput1_interval_h )
15100 integer , INTENT(IN) :: auxinput1_interval_h
15101 INTEGER id_id
15102 CHARACTER*80 emess
15103 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15104 WRITE(emess,*)'nl_set_auxinput1_interval_h: Out of range domain number: ',id_id
15105 CALL wrf_error_fatal(emess)
15106 ENDIF
15107 model_config_rec%auxinput1_interval_h(id_id) = auxinput1_interval_h
15108 RETURN
15109 END SUBROUTINE nl_set_auxinput1_interval_h
15110 SUBROUTINE nl_set_auxinput1_interval_m ( id_id , auxinput1_interval_m )
15111 integer , INTENT(IN) :: auxinput1_interval_m
15112 INTEGER id_id
15113 CHARACTER*80 emess
15114 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15115 WRITE(emess,*)'nl_set_auxinput1_interval_m: Out of range domain number: ',id_id
15116 CALL wrf_error_fatal(emess)
15117 ENDIF
15118 model_config_rec%auxinput1_interval_m(id_id) = auxinput1_interval_m
15119 RETURN
15120 END SUBROUTINE nl_set_auxinput1_interval_m
15121 SUBROUTINE nl_set_auxinput1_interval_s ( id_id , auxinput1_interval_s )
15122 integer , INTENT(IN) :: auxinput1_interval_s
15123 INTEGER id_id
15124 CHARACTER*80 emess
15125 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15126 WRITE(emess,*)'nl_set_auxinput1_interval_s: Out of range domain number: ',id_id
15127 CALL wrf_error_fatal(emess)
15128 ENDIF
15129 model_config_rec%auxinput1_interval_s(id_id) = auxinput1_interval_s
15130 RETURN
15131 END SUBROUTINE nl_set_auxinput1_interval_s
15132 SUBROUTINE nl_set_auxinput1_interval ( id_id , auxinput1_interval )
15133 integer , INTENT(IN) :: auxinput1_interval
15134 INTEGER id_id
15135 CHARACTER*80 emess
15136 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15137 WRITE(emess,*)'nl_set_auxinput1_interval: Out of range domain number: ',id_id
15138 CALL wrf_error_fatal(emess)
15139 ENDIF
15140 model_config_rec%auxinput1_interval(id_id) = auxinput1_interval
15141 RETURN
15142 END SUBROUTINE nl_set_auxinput1_interval
15143 SUBROUTINE nl_set_auxinput2_interval_mo ( id_id , auxinput2_interval_mo )
15144 integer , INTENT(IN) :: auxinput2_interval_mo
15145 INTEGER id_id
15146 CHARACTER*80 emess
15147 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15148 WRITE(emess,*)'nl_set_auxinput2_interval_mo: Out of range domain number: ',id_id
15149 CALL wrf_error_fatal(emess)
15150 ENDIF
15151 model_config_rec%auxinput2_interval_mo(id_id) = auxinput2_interval_mo
15152 RETURN
15153 END SUBROUTINE nl_set_auxinput2_interval_mo
15154 SUBROUTINE nl_set_auxinput2_interval_d ( id_id , auxinput2_interval_d )
15155 integer , INTENT(IN) :: auxinput2_interval_d
15156 INTEGER id_id
15157 CHARACTER*80 emess
15158 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15159 WRITE(emess,*)'nl_set_auxinput2_interval_d: Out of range domain number: ',id_id
15160 CALL wrf_error_fatal(emess)
15161 ENDIF
15162 model_config_rec%auxinput2_interval_d(id_id) = auxinput2_interval_d
15163 RETURN
15164 END SUBROUTINE nl_set_auxinput2_interval_d
15165 SUBROUTINE nl_set_auxinput2_interval_h ( id_id , auxinput2_interval_h )
15166 integer , INTENT(IN) :: auxinput2_interval_h
15167 INTEGER id_id
15168 CHARACTER*80 emess
15169 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15170 WRITE(emess,*)'nl_set_auxinput2_interval_h: Out of range domain number: ',id_id
15171 CALL wrf_error_fatal(emess)
15172 ENDIF
15173 model_config_rec%auxinput2_interval_h(id_id) = auxinput2_interval_h
15174 RETURN
15175 END SUBROUTINE nl_set_auxinput2_interval_h
15176 SUBROUTINE nl_set_auxinput2_interval_m ( id_id , auxinput2_interval_m )
15177 integer , INTENT(IN) :: auxinput2_interval_m
15178 INTEGER id_id
15179 CHARACTER*80 emess
15180 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15181 WRITE(emess,*)'nl_set_auxinput2_interval_m: Out of range domain number: ',id_id
15182 CALL wrf_error_fatal(emess)
15183 ENDIF
15184 model_config_rec%auxinput2_interval_m(id_id) = auxinput2_interval_m
15185 RETURN
15186 END SUBROUTINE nl_set_auxinput2_interval_m
15187 SUBROUTINE nl_set_auxinput2_interval_s ( id_id , auxinput2_interval_s )
15188 integer , INTENT(IN) :: auxinput2_interval_s
15189 INTEGER id_id
15190 CHARACTER*80 emess
15191 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15192 WRITE(emess,*)'nl_set_auxinput2_interval_s: Out of range domain number: ',id_id
15193 CALL wrf_error_fatal(emess)
15194 ENDIF
15195 model_config_rec%auxinput2_interval_s(id_id) = auxinput2_interval_s
15196 RETURN
15197 END SUBROUTINE nl_set_auxinput2_interval_s
15198 SUBROUTINE nl_set_auxinput2_interval ( id_id , auxinput2_interval )
15199 integer , INTENT(IN) :: auxinput2_interval
15200 INTEGER id_id
15201 CHARACTER*80 emess
15202 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15203 WRITE(emess,*)'nl_set_auxinput2_interval: Out of range domain number: ',id_id
15204 CALL wrf_error_fatal(emess)
15205 ENDIF
15206 model_config_rec%auxinput2_interval(id_id) = auxinput2_interval
15207 RETURN
15208 END SUBROUTINE nl_set_auxinput2_interval
15209 SUBROUTINE nl_set_auxinput3_interval_mo ( id_id , auxinput3_interval_mo )
15210 integer , INTENT(IN) :: auxinput3_interval_mo
15211 INTEGER id_id
15212 CHARACTER*80 emess
15213 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15214 WRITE(emess,*)'nl_set_auxinput3_interval_mo: Out of range domain number: ',id_id
15215 CALL wrf_error_fatal(emess)
15216 ENDIF
15217 model_config_rec%auxinput3_interval_mo(id_id) = auxinput3_interval_mo
15218 RETURN
15219 END SUBROUTINE nl_set_auxinput3_interval_mo
15220 SUBROUTINE nl_set_auxinput3_interval_d ( id_id , auxinput3_interval_d )
15221 integer , INTENT(IN) :: auxinput3_interval_d
15222 INTEGER id_id
15223 CHARACTER*80 emess
15224 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15225 WRITE(emess,*)'nl_set_auxinput3_interval_d: Out of range domain number: ',id_id
15226 CALL wrf_error_fatal(emess)
15227 ENDIF
15228 model_config_rec%auxinput3_interval_d(id_id) = auxinput3_interval_d
15229 RETURN
15230 END SUBROUTINE nl_set_auxinput3_interval_d
15231 SUBROUTINE nl_set_auxinput3_interval_h ( id_id , auxinput3_interval_h )
15232 integer , INTENT(IN) :: auxinput3_interval_h
15233 INTEGER id_id
15234 CHARACTER*80 emess
15235 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15236 WRITE(emess,*)'nl_set_auxinput3_interval_h: Out of range domain number: ',id_id
15237 CALL wrf_error_fatal(emess)
15238 ENDIF
15239 model_config_rec%auxinput3_interval_h(id_id) = auxinput3_interval_h
15240 RETURN
15241 END SUBROUTINE nl_set_auxinput3_interval_h
15242 SUBROUTINE nl_set_auxinput3_interval_m ( id_id , auxinput3_interval_m )
15243 integer , INTENT(IN) :: auxinput3_interval_m
15244 INTEGER id_id
15245 CHARACTER*80 emess
15246 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15247 WRITE(emess,*)'nl_set_auxinput3_interval_m: Out of range domain number: ',id_id
15248 CALL wrf_error_fatal(emess)
15249 ENDIF
15250 model_config_rec%auxinput3_interval_m(id_id) = auxinput3_interval_m
15251 RETURN
15252 END SUBROUTINE nl_set_auxinput3_interval_m
15253 SUBROUTINE nl_set_auxinput3_interval_s ( id_id , auxinput3_interval_s )
15254 integer , INTENT(IN) :: auxinput3_interval_s
15255 INTEGER id_id
15256 CHARACTER*80 emess
15257 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15258 WRITE(emess,*)'nl_set_auxinput3_interval_s: Out of range domain number: ',id_id
15259 CALL wrf_error_fatal(emess)
15260 ENDIF
15261 model_config_rec%auxinput3_interval_s(id_id) = auxinput3_interval_s
15262 RETURN
15263 END SUBROUTINE nl_set_auxinput3_interval_s
15264 SUBROUTINE nl_set_auxinput3_interval ( id_id , auxinput3_interval )
15265 integer , INTENT(IN) :: auxinput3_interval
15266 INTEGER id_id
15267 CHARACTER*80 emess
15268 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15269 WRITE(emess,*)'nl_set_auxinput3_interval: Out of range domain number: ',id_id
15270 CALL wrf_error_fatal(emess)
15271 ENDIF
15272 model_config_rec%auxinput3_interval(id_id) = auxinput3_interval
15273 RETURN
15274 END SUBROUTINE nl_set_auxinput3_interval
15275 SUBROUTINE nl_set_auxinput4_interval_mo ( id_id , auxinput4_interval_mo )
15276 integer , INTENT(IN) :: auxinput4_interval_mo
15277 INTEGER id_id
15278 CHARACTER*80 emess
15279 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15280 WRITE(emess,*)'nl_set_auxinput4_interval_mo: Out of range domain number: ',id_id
15281 CALL wrf_error_fatal(emess)
15282 ENDIF
15283 model_config_rec%auxinput4_interval_mo(id_id) = auxinput4_interval_mo
15284 RETURN
15285 END SUBROUTINE nl_set_auxinput4_interval_mo
15286 SUBROUTINE nl_set_auxinput4_interval_d ( id_id , auxinput4_interval_d )
15287 integer , INTENT(IN) :: auxinput4_interval_d
15288 INTEGER id_id
15289 CHARACTER*80 emess
15290 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15291 WRITE(emess,*)'nl_set_auxinput4_interval_d: Out of range domain number: ',id_id
15292 CALL wrf_error_fatal(emess)
15293 ENDIF
15294 model_config_rec%auxinput4_interval_d(id_id) = auxinput4_interval_d
15295 RETURN
15296 END SUBROUTINE nl_set_auxinput4_interval_d
15297 SUBROUTINE nl_set_auxinput4_interval_h ( id_id , auxinput4_interval_h )
15298 integer , INTENT(IN) :: auxinput4_interval_h
15299 INTEGER id_id
15300 CHARACTER*80 emess
15301 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15302 WRITE(emess,*)'nl_set_auxinput4_interval_h: Out of range domain number: ',id_id
15303 CALL wrf_error_fatal(emess)
15304 ENDIF
15305 model_config_rec%auxinput4_interval_h(id_id) = auxinput4_interval_h
15306 RETURN
15307 END SUBROUTINE nl_set_auxinput4_interval_h
15308 SUBROUTINE nl_set_auxinput4_interval_m ( id_id , auxinput4_interval_m )
15309 integer , INTENT(IN) :: auxinput4_interval_m
15310 INTEGER id_id
15311 CHARACTER*80 emess
15312 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15313 WRITE(emess,*)'nl_set_auxinput4_interval_m: Out of range domain number: ',id_id
15314 CALL wrf_error_fatal(emess)
15315 ENDIF
15316 model_config_rec%auxinput4_interval_m(id_id) = auxinput4_interval_m
15317 RETURN
15318 END SUBROUTINE nl_set_auxinput4_interval_m
15319 SUBROUTINE nl_set_auxinput4_interval_s ( id_id , auxinput4_interval_s )
15320 integer , INTENT(IN) :: auxinput4_interval_s
15321 INTEGER id_id
15322 CHARACTER*80 emess
15323 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15324 WRITE(emess,*)'nl_set_auxinput4_interval_s: Out of range domain number: ',id_id
15325 CALL wrf_error_fatal(emess)
15326 ENDIF
15327 model_config_rec%auxinput4_interval_s(id_id) = auxinput4_interval_s
15328 RETURN
15329 END SUBROUTINE nl_set_auxinput4_interval_s
15330 SUBROUTINE nl_set_auxinput4_interval ( id_id , auxinput4_interval )
15331 integer , INTENT(IN) :: auxinput4_interval
15332 INTEGER id_id
15333 CHARACTER*80 emess
15334 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15335 WRITE(emess,*)'nl_set_auxinput4_interval: Out of range domain number: ',id_id
15336 CALL wrf_error_fatal(emess)
15337 ENDIF
15338 model_config_rec%auxinput4_interval(id_id) = auxinput4_interval
15339 RETURN
15340 END SUBROUTINE nl_set_auxinput4_interval
15341 SUBROUTINE nl_set_auxinput5_interval_mo ( id_id , auxinput5_interval_mo )
15342 integer , INTENT(IN) :: auxinput5_interval_mo
15343 INTEGER id_id
15344 CHARACTER*80 emess
15345 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15346 WRITE(emess,*)'nl_set_auxinput5_interval_mo: Out of range domain number: ',id_id
15347 CALL wrf_error_fatal(emess)
15348 ENDIF
15349 model_config_rec%auxinput5_interval_mo(id_id) = auxinput5_interval_mo
15350 RETURN
15351 END SUBROUTINE nl_set_auxinput5_interval_mo
15352 SUBROUTINE nl_set_auxinput5_interval_d ( id_id , auxinput5_interval_d )
15353 integer , INTENT(IN) :: auxinput5_interval_d
15354 INTEGER id_id
15355 CHARACTER*80 emess
15356 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15357 WRITE(emess,*)'nl_set_auxinput5_interval_d: Out of range domain number: ',id_id
15358 CALL wrf_error_fatal(emess)
15359 ENDIF
15360 model_config_rec%auxinput5_interval_d(id_id) = auxinput5_interval_d
15361 RETURN
15362 END SUBROUTINE nl_set_auxinput5_interval_d
15363 SUBROUTINE nl_set_auxinput5_interval_h ( id_id , auxinput5_interval_h )
15364 integer , INTENT(IN) :: auxinput5_interval_h
15365 INTEGER id_id
15366 CHARACTER*80 emess
15367 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15368 WRITE(emess,*)'nl_set_auxinput5_interval_h: Out of range domain number: ',id_id
15369 CALL wrf_error_fatal(emess)
15370 ENDIF
15371 model_config_rec%auxinput5_interval_h(id_id) = auxinput5_interval_h
15372 RETURN
15373 END SUBROUTINE nl_set_auxinput5_interval_h
15374 SUBROUTINE nl_set_auxinput5_interval_m ( id_id , auxinput5_interval_m )
15375 integer , INTENT(IN) :: auxinput5_interval_m
15376 INTEGER id_id
15377 CHARACTER*80 emess
15378 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15379 WRITE(emess,*)'nl_set_auxinput5_interval_m: Out of range domain number: ',id_id
15380 CALL wrf_error_fatal(emess)
15381 ENDIF
15382 model_config_rec%auxinput5_interval_m(id_id) = auxinput5_interval_m
15383 RETURN
15384 END SUBROUTINE nl_set_auxinput5_interval_m
15385 SUBROUTINE nl_set_auxinput5_interval_s ( id_id , auxinput5_interval_s )
15386 integer , INTENT(IN) :: auxinput5_interval_s
15387 INTEGER id_id
15388 CHARACTER*80 emess
15389 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15390 WRITE(emess,*)'nl_set_auxinput5_interval_s: Out of range domain number: ',id_id
15391 CALL wrf_error_fatal(emess)
15392 ENDIF
15393 model_config_rec%auxinput5_interval_s(id_id) = auxinput5_interval_s
15394 RETURN
15395 END SUBROUTINE nl_set_auxinput5_interval_s
15396 SUBROUTINE nl_set_auxinput5_interval ( id_id , auxinput5_interval )
15397 integer , INTENT(IN) :: auxinput5_interval
15398 INTEGER id_id
15399 CHARACTER*80 emess
15400 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15401 WRITE(emess,*)'nl_set_auxinput5_interval: Out of range domain number: ',id_id
15402 CALL wrf_error_fatal(emess)
15403 ENDIF
15404 model_config_rec%auxinput5_interval(id_id) = auxinput5_interval
15405 RETURN
15406 END SUBROUTINE nl_set_auxinput5_interval
15407 SUBROUTINE nl_set_auxinput6_interval_mo ( id_id , auxinput6_interval_mo )
15408 integer , INTENT(IN) :: auxinput6_interval_mo
15409 INTEGER id_id
15410 CHARACTER*80 emess
15411 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15412 WRITE(emess,*)'nl_set_auxinput6_interval_mo: Out of range domain number: ',id_id
15413 CALL wrf_error_fatal(emess)
15414 ENDIF
15415 model_config_rec%auxinput6_interval_mo(id_id) = auxinput6_interval_mo
15416 RETURN
15417 END SUBROUTINE nl_set_auxinput6_interval_mo
15418 SUBROUTINE nl_set_auxinput6_interval_d ( id_id , auxinput6_interval_d )
15419 integer , INTENT(IN) :: auxinput6_interval_d
15420 INTEGER id_id
15421 CHARACTER*80 emess
15422 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15423 WRITE(emess,*)'nl_set_auxinput6_interval_d: Out of range domain number: ',id_id
15424 CALL wrf_error_fatal(emess)
15425 ENDIF
15426 model_config_rec%auxinput6_interval_d(id_id) = auxinput6_interval_d
15427 RETURN
15428 END SUBROUTINE nl_set_auxinput6_interval_d
15429 SUBROUTINE nl_set_auxinput6_interval_h ( id_id , auxinput6_interval_h )
15430 integer , INTENT(IN) :: auxinput6_interval_h
15431 INTEGER id_id
15432 CHARACTER*80 emess
15433 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15434 WRITE(emess,*)'nl_set_auxinput6_interval_h: Out of range domain number: ',id_id
15435 CALL wrf_error_fatal(emess)
15436 ENDIF
15437 model_config_rec%auxinput6_interval_h(id_id) = auxinput6_interval_h
15438 RETURN
15439 END SUBROUTINE nl_set_auxinput6_interval_h
15440 SUBROUTINE nl_set_auxinput6_interval_m ( id_id , auxinput6_interval_m )
15441 integer , INTENT(IN) :: auxinput6_interval_m
15442 INTEGER id_id
15443 CHARACTER*80 emess
15444 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15445 WRITE(emess,*)'nl_set_auxinput6_interval_m: Out of range domain number: ',id_id
15446 CALL wrf_error_fatal(emess)
15447 ENDIF
15448 model_config_rec%auxinput6_interval_m(id_id) = auxinput6_interval_m
15449 RETURN
15450 END SUBROUTINE nl_set_auxinput6_interval_m
15451 SUBROUTINE nl_set_auxinput6_interval_s ( id_id , auxinput6_interval_s )
15452 integer , INTENT(IN) :: auxinput6_interval_s
15453 INTEGER id_id
15454 CHARACTER*80 emess
15455 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15456 WRITE(emess,*)'nl_set_auxinput6_interval_s: Out of range domain number: ',id_id
15457 CALL wrf_error_fatal(emess)
15458 ENDIF
15459 model_config_rec%auxinput6_interval_s(id_id) = auxinput6_interval_s
15460 RETURN
15461 END SUBROUTINE nl_set_auxinput6_interval_s
15462 SUBROUTINE nl_set_auxinput6_interval ( id_id , auxinput6_interval )
15463 integer , INTENT(IN) :: auxinput6_interval
15464 INTEGER id_id
15465 CHARACTER*80 emess
15466 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15467 WRITE(emess,*)'nl_set_auxinput6_interval: Out of range domain number: ',id_id
15468 CALL wrf_error_fatal(emess)
15469 ENDIF
15470 model_config_rec%auxinput6_interval(id_id) = auxinput6_interval
15471 RETURN
15472 END SUBROUTINE nl_set_auxinput6_interval
15473 SUBROUTINE nl_set_auxinput7_interval_mo ( id_id , auxinput7_interval_mo )
15474 integer , INTENT(IN) :: auxinput7_interval_mo
15475 INTEGER id_id
15476 CHARACTER*80 emess
15477 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15478 WRITE(emess,*)'nl_set_auxinput7_interval_mo: Out of range domain number: ',id_id
15479 CALL wrf_error_fatal(emess)
15480 ENDIF
15481 model_config_rec%auxinput7_interval_mo(id_id) = auxinput7_interval_mo
15482 RETURN
15483 END SUBROUTINE nl_set_auxinput7_interval_mo
15484 SUBROUTINE nl_set_auxinput7_interval_d ( id_id , auxinput7_interval_d )
15485 integer , INTENT(IN) :: auxinput7_interval_d
15486 INTEGER id_id
15487 CHARACTER*80 emess
15488 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15489 WRITE(emess,*)'nl_set_auxinput7_interval_d: Out of range domain number: ',id_id
15490 CALL wrf_error_fatal(emess)
15491 ENDIF
15492 model_config_rec%auxinput7_interval_d(id_id) = auxinput7_interval_d
15493 RETURN
15494 END SUBROUTINE nl_set_auxinput7_interval_d
15495 SUBROUTINE nl_set_auxinput7_interval_h ( id_id , auxinput7_interval_h )
15496 integer , INTENT(IN) :: auxinput7_interval_h
15497 INTEGER id_id
15498 CHARACTER*80 emess
15499 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15500 WRITE(emess,*)'nl_set_auxinput7_interval_h: Out of range domain number: ',id_id
15501 CALL wrf_error_fatal(emess)
15502 ENDIF
15503 model_config_rec%auxinput7_interval_h(id_id) = auxinput7_interval_h
15504 RETURN
15505 END SUBROUTINE nl_set_auxinput7_interval_h
15506 SUBROUTINE nl_set_auxinput7_interval_m ( id_id , auxinput7_interval_m )
15507 integer , INTENT(IN) :: auxinput7_interval_m
15508 INTEGER id_id
15509 CHARACTER*80 emess
15510 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15511 WRITE(emess,*)'nl_set_auxinput7_interval_m: Out of range domain number: ',id_id
15512 CALL wrf_error_fatal(emess)
15513 ENDIF
15514 model_config_rec%auxinput7_interval_m(id_id) = auxinput7_interval_m
15515 RETURN
15516 END SUBROUTINE nl_set_auxinput7_interval_m
15517 SUBROUTINE nl_set_auxinput7_interval_s ( id_id , auxinput7_interval_s )
15518 integer , INTENT(IN) :: auxinput7_interval_s
15519 INTEGER id_id
15520 CHARACTER*80 emess
15521 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15522 WRITE(emess,*)'nl_set_auxinput7_interval_s: Out of range domain number: ',id_id
15523 CALL wrf_error_fatal(emess)
15524 ENDIF
15525 model_config_rec%auxinput7_interval_s(id_id) = auxinput7_interval_s
15526 RETURN
15527 END SUBROUTINE nl_set_auxinput7_interval_s
15528 SUBROUTINE nl_set_auxinput7_interval ( id_id , auxinput7_interval )
15529 integer , INTENT(IN) :: auxinput7_interval
15530 INTEGER id_id
15531 CHARACTER*80 emess
15532 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15533 WRITE(emess,*)'nl_set_auxinput7_interval: Out of range domain number: ',id_id
15534 CALL wrf_error_fatal(emess)
15535 ENDIF
15536 model_config_rec%auxinput7_interval(id_id) = auxinput7_interval
15537 RETURN
15538 END SUBROUTINE nl_set_auxinput7_interval
15539 SUBROUTINE nl_set_auxinput8_interval_mo ( id_id , auxinput8_interval_mo )
15540 integer , INTENT(IN) :: auxinput8_interval_mo
15541 INTEGER id_id
15542 CHARACTER*80 emess
15543 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15544 WRITE(emess,*)'nl_set_auxinput8_interval_mo: Out of range domain number: ',id_id
15545 CALL wrf_error_fatal(emess)
15546 ENDIF
15547 model_config_rec%auxinput8_interval_mo(id_id) = auxinput8_interval_mo
15548 RETURN
15549 END SUBROUTINE nl_set_auxinput8_interval_mo
15550 SUBROUTINE nl_set_auxinput8_interval_d ( id_id , auxinput8_interval_d )
15551 integer , INTENT(IN) :: auxinput8_interval_d
15552 INTEGER id_id
15553 CHARACTER*80 emess
15554 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15555 WRITE(emess,*)'nl_set_auxinput8_interval_d: Out of range domain number: ',id_id
15556 CALL wrf_error_fatal(emess)
15557 ENDIF
15558 model_config_rec%auxinput8_interval_d(id_id) = auxinput8_interval_d
15559 RETURN
15560 END SUBROUTINE nl_set_auxinput8_interval_d
15561 SUBROUTINE nl_set_auxinput8_interval_h ( id_id , auxinput8_interval_h )
15562 integer , INTENT(IN) :: auxinput8_interval_h
15563 INTEGER id_id
15564 CHARACTER*80 emess
15565 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15566 WRITE(emess,*)'nl_set_auxinput8_interval_h: Out of range domain number: ',id_id
15567 CALL wrf_error_fatal(emess)
15568 ENDIF
15569 model_config_rec%auxinput8_interval_h(id_id) = auxinput8_interval_h
15570 RETURN
15571 END SUBROUTINE nl_set_auxinput8_interval_h
15572 SUBROUTINE nl_set_auxinput8_interval_m ( id_id , auxinput8_interval_m )
15573 integer , INTENT(IN) :: auxinput8_interval_m
15574 INTEGER id_id
15575 CHARACTER*80 emess
15576 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15577 WRITE(emess,*)'nl_set_auxinput8_interval_m: Out of range domain number: ',id_id
15578 CALL wrf_error_fatal(emess)
15579 ENDIF
15580 model_config_rec%auxinput8_interval_m(id_id) = auxinput8_interval_m
15581 RETURN
15582 END SUBROUTINE nl_set_auxinput8_interval_m
15583 SUBROUTINE nl_set_auxinput8_interval_s ( id_id , auxinput8_interval_s )
15584 integer , INTENT(IN) :: auxinput8_interval_s
15585 INTEGER id_id
15586 CHARACTER*80 emess
15587 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15588 WRITE(emess,*)'nl_set_auxinput8_interval_s: Out of range domain number: ',id_id
15589 CALL wrf_error_fatal(emess)
15590 ENDIF
15591 model_config_rec%auxinput8_interval_s(id_id) = auxinput8_interval_s
15592 RETURN
15593 END SUBROUTINE nl_set_auxinput8_interval_s
15594 SUBROUTINE nl_set_auxinput8_interval ( id_id , auxinput8_interval )
15595 integer , INTENT(IN) :: auxinput8_interval
15596 INTEGER id_id
15597 CHARACTER*80 emess
15598 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15599 WRITE(emess,*)'nl_set_auxinput8_interval: Out of range domain number: ',id_id
15600 CALL wrf_error_fatal(emess)
15601 ENDIF
15602 model_config_rec%auxinput8_interval(id_id) = auxinput8_interval
15603 RETURN
15604 END SUBROUTINE nl_set_auxinput8_interval
15605 SUBROUTINE nl_set_auxinput9_interval_mo ( id_id , auxinput9_interval_mo )
15606 integer , INTENT(IN) :: auxinput9_interval_mo
15607 INTEGER id_id
15608 CHARACTER*80 emess
15609 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15610 WRITE(emess,*)'nl_set_auxinput9_interval_mo: Out of range domain number: ',id_id
15611 CALL wrf_error_fatal(emess)
15612 ENDIF
15613 model_config_rec%auxinput9_interval_mo(id_id) = auxinput9_interval_mo
15614 RETURN
15615 END SUBROUTINE nl_set_auxinput9_interval_mo
15616 SUBROUTINE nl_set_auxinput9_interval_d ( id_id , auxinput9_interval_d )
15617 integer , INTENT(IN) :: auxinput9_interval_d
15618 INTEGER id_id
15619 CHARACTER*80 emess
15620 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15621 WRITE(emess,*)'nl_set_auxinput9_interval_d: Out of range domain number: ',id_id
15622 CALL wrf_error_fatal(emess)
15623 ENDIF
15624 model_config_rec%auxinput9_interval_d(id_id) = auxinput9_interval_d
15625 RETURN
15626 END SUBROUTINE nl_set_auxinput9_interval_d
15627 SUBROUTINE nl_set_auxinput9_interval_h ( id_id , auxinput9_interval_h )
15628 integer , INTENT(IN) :: auxinput9_interval_h
15629 INTEGER id_id
15630 CHARACTER*80 emess
15631 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15632 WRITE(emess,*)'nl_set_auxinput9_interval_h: Out of range domain number: ',id_id
15633 CALL wrf_error_fatal(emess)
15634 ENDIF
15635 model_config_rec%auxinput9_interval_h(id_id) = auxinput9_interval_h
15636 RETURN
15637 END SUBROUTINE nl_set_auxinput9_interval_h
15638 SUBROUTINE nl_set_auxinput9_interval_m ( id_id , auxinput9_interval_m )
15639 integer , INTENT(IN) :: auxinput9_interval_m
15640 INTEGER id_id
15641 CHARACTER*80 emess
15642 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15643 WRITE(emess,*)'nl_set_auxinput9_interval_m: Out of range domain number: ',id_id
15644 CALL wrf_error_fatal(emess)
15645 ENDIF
15646 model_config_rec%auxinput9_interval_m(id_id) = auxinput9_interval_m
15647 RETURN
15648 END SUBROUTINE nl_set_auxinput9_interval_m
15649 SUBROUTINE nl_set_auxinput9_interval_s ( id_id , auxinput9_interval_s )
15650 integer , INTENT(IN) :: auxinput9_interval_s
15651 INTEGER id_id
15652 CHARACTER*80 emess
15653 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15654 WRITE(emess,*)'nl_set_auxinput9_interval_s: Out of range domain number: ',id_id
15655 CALL wrf_error_fatal(emess)
15656 ENDIF
15657 model_config_rec%auxinput9_interval_s(id_id) = auxinput9_interval_s
15658 RETURN
15659 END SUBROUTINE nl_set_auxinput9_interval_s
15660 SUBROUTINE nl_set_auxinput9_interval ( id_id , auxinput9_interval )
15661 integer , INTENT(IN) :: auxinput9_interval
15662 INTEGER id_id
15663 CHARACTER*80 emess
15664 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15665 WRITE(emess,*)'nl_set_auxinput9_interval: Out of range domain number: ',id_id
15666 CALL wrf_error_fatal(emess)
15667 ENDIF
15668 model_config_rec%auxinput9_interval(id_id) = auxinput9_interval
15669 RETURN
15670 END SUBROUTINE nl_set_auxinput9_interval
15671 SUBROUTINE nl_set_gfdda_interval_mo ( id_id , gfdda_interval_mo )
15672 integer , INTENT(IN) :: gfdda_interval_mo
15673 INTEGER id_id
15674 CHARACTER*80 emess
15675 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15676 WRITE(emess,*)'nl_set_gfdda_interval_mo: Out of range domain number: ',id_id
15677 CALL wrf_error_fatal(emess)
15678 ENDIF
15679 model_config_rec%gfdda_interval_mo(id_id) = gfdda_interval_mo
15680 RETURN
15681 END SUBROUTINE nl_set_gfdda_interval_mo
15682 SUBROUTINE nl_set_gfdda_interval_d ( id_id , gfdda_interval_d )
15683 integer , INTENT(IN) :: gfdda_interval_d
15684 INTEGER id_id
15685 CHARACTER*80 emess
15686 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15687 WRITE(emess,*)'nl_set_gfdda_interval_d: Out of range domain number: ',id_id
15688 CALL wrf_error_fatal(emess)
15689 ENDIF
15690 model_config_rec%gfdda_interval_d(id_id) = gfdda_interval_d
15691 RETURN
15692 END SUBROUTINE nl_set_gfdda_interval_d
15693 SUBROUTINE nl_set_gfdda_interval_h ( id_id , gfdda_interval_h )
15694 integer , INTENT(IN) :: gfdda_interval_h
15695 INTEGER id_id
15696 CHARACTER*80 emess
15697 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15698 WRITE(emess,*)'nl_set_gfdda_interval_h: Out of range domain number: ',id_id
15699 CALL wrf_error_fatal(emess)
15700 ENDIF
15701 model_config_rec%gfdda_interval_h(id_id) = gfdda_interval_h
15702 RETURN
15703 END SUBROUTINE nl_set_gfdda_interval_h
15704 SUBROUTINE nl_set_gfdda_interval_m ( id_id , gfdda_interval_m )
15705 integer , INTENT(IN) :: gfdda_interval_m
15706 INTEGER id_id
15707 CHARACTER*80 emess
15708 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15709 WRITE(emess,*)'nl_set_gfdda_interval_m: Out of range domain number: ',id_id
15710 CALL wrf_error_fatal(emess)
15711 ENDIF
15712 model_config_rec%gfdda_interval_m(id_id) = gfdda_interval_m
15713 RETURN
15714 END SUBROUTINE nl_set_gfdda_interval_m
15715 SUBROUTINE nl_set_gfdda_interval_s ( id_id , gfdda_interval_s )
15716 integer , INTENT(IN) :: gfdda_interval_s
15717 INTEGER id_id
15718 CHARACTER*80 emess
15719 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15720 WRITE(emess,*)'nl_set_gfdda_interval_s: Out of range domain number: ',id_id
15721 CALL wrf_error_fatal(emess)
15722 ENDIF
15723 model_config_rec%gfdda_interval_s(id_id) = gfdda_interval_s
15724 RETURN
15725 END SUBROUTINE nl_set_gfdda_interval_s
15726 SUBROUTINE nl_set_gfdda_interval ( id_id , gfdda_interval )
15727 integer , INTENT(IN) :: gfdda_interval
15728 INTEGER id_id
15729 CHARACTER*80 emess
15730 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15731 WRITE(emess,*)'nl_set_gfdda_interval: Out of range domain number: ',id_id
15732 CALL wrf_error_fatal(emess)
15733 ENDIF
15734 model_config_rec%gfdda_interval(id_id) = gfdda_interval
15735 RETURN
15736 END SUBROUTINE nl_set_gfdda_interval
15737 SUBROUTINE nl_set_auxinput11_interval_mo ( id_id , auxinput11_interval_mo )
15738 integer , INTENT(IN) :: auxinput11_interval_mo
15739 INTEGER id_id
15740 CHARACTER*80 emess
15741 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15742 WRITE(emess,*)'nl_set_auxinput11_interval_mo: Out of range domain number: ',id_id
15743 CALL wrf_error_fatal(emess)
15744 ENDIF
15745 model_config_rec%auxinput11_interval_mo(id_id) = auxinput11_interval_mo
15746 RETURN
15747 END SUBROUTINE nl_set_auxinput11_interval_mo
15748 SUBROUTINE nl_set_auxinput11_interval_d ( id_id , auxinput11_interval_d )
15749 integer , INTENT(IN) :: auxinput11_interval_d
15750 INTEGER id_id
15751 CHARACTER*80 emess
15752 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15753 WRITE(emess,*)'nl_set_auxinput11_interval_d: Out of range domain number: ',id_id
15754 CALL wrf_error_fatal(emess)
15755 ENDIF
15756 model_config_rec%auxinput11_interval_d(id_id) = auxinput11_interval_d
15757 RETURN
15758 END SUBROUTINE nl_set_auxinput11_interval_d
15759 SUBROUTINE nl_set_auxinput11_interval_h ( id_id , auxinput11_interval_h )
15760 integer , INTENT(IN) :: auxinput11_interval_h
15761 INTEGER id_id
15762 CHARACTER*80 emess
15763 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15764 WRITE(emess,*)'nl_set_auxinput11_interval_h: Out of range domain number: ',id_id
15765 CALL wrf_error_fatal(emess)
15766 ENDIF
15767 model_config_rec%auxinput11_interval_h(id_id) = auxinput11_interval_h
15768 RETURN
15769 END SUBROUTINE nl_set_auxinput11_interval_h
15770 SUBROUTINE nl_set_auxinput11_interval_m ( id_id , auxinput11_interval_m )
15771 integer , INTENT(IN) :: auxinput11_interval_m
15772 INTEGER id_id
15773 CHARACTER*80 emess
15774 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15775 WRITE(emess,*)'nl_set_auxinput11_interval_m: Out of range domain number: ',id_id
15776 CALL wrf_error_fatal(emess)
15777 ENDIF
15778 model_config_rec%auxinput11_interval_m(id_id) = auxinput11_interval_m
15779 RETURN
15780 END SUBROUTINE nl_set_auxinput11_interval_m
15781 SUBROUTINE nl_set_auxinput11_interval_s ( id_id , auxinput11_interval_s )
15782 integer , INTENT(IN) :: auxinput11_interval_s
15783 INTEGER id_id
15784 CHARACTER*80 emess
15785 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15786 WRITE(emess,*)'nl_set_auxinput11_interval_s: Out of range domain number: ',id_id
15787 CALL wrf_error_fatal(emess)
15788 ENDIF
15789 model_config_rec%auxinput11_interval_s(id_id) = auxinput11_interval_s
15790 RETURN
15791 END SUBROUTINE nl_set_auxinput11_interval_s
15792 SUBROUTINE nl_set_auxinput11_interval ( id_id , auxinput11_interval )
15793 integer , INTENT(IN) :: auxinput11_interval
15794 INTEGER id_id
15795 CHARACTER*80 emess
15796 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15797 WRITE(emess,*)'nl_set_auxinput11_interval: Out of range domain number: ',id_id
15798 CALL wrf_error_fatal(emess)
15799 ENDIF
15800 model_config_rec%auxinput11_interval(id_id) = auxinput11_interval
15801 RETURN
15802 END SUBROUTINE nl_set_auxinput11_interval
15803 SUBROUTINE nl_set_restart_interval_mo ( id_id , restart_interval_mo )
15804 integer , INTENT(IN) :: restart_interval_mo
15805 INTEGER id_id
15806 CHARACTER*80 emess
15807 IF ( id_id .NE. 1 ) THEN
15808 call wrf_debug(1,&
15809 'WARNING in nl_set_restart_interval_mo: restart_interval_mo applies to all domains. First arg ignored.')
15810 ENDIF
15811 model_config_rec%restart_interval_mo = restart_interval_mo
15812 RETURN
15813 END SUBROUTINE nl_set_restart_interval_mo
15814 SUBROUTINE nl_set_restart_interval_d ( id_id , restart_interval_d )
15815 integer , INTENT(IN) :: restart_interval_d
15816 INTEGER id_id
15817 CHARACTER*80 emess
15818 IF ( id_id .NE. 1 ) THEN
15819 call wrf_debug(1,&
15820 'WARNING in nl_set_restart_interval_d: restart_interval_d applies to all domains. First arg ignored.')
15821 ENDIF
15822 model_config_rec%restart_interval_d = restart_interval_d
15823 RETURN
15824 END SUBROUTINE nl_set_restart_interval_d
15825 SUBROUTINE nl_set_restart_interval_h ( id_id , restart_interval_h )
15826 integer , INTENT(IN) :: restart_interval_h
15827 INTEGER id_id
15828 CHARACTER*80 emess
15829 IF ( id_id .NE. 1 ) THEN
15830 call wrf_debug(1,&
15831 'WARNING in nl_set_restart_interval_h: restart_interval_h applies to all domains. First arg ignored.')
15832 ENDIF
15833 model_config_rec%restart_interval_h = restart_interval_h
15834 RETURN
15835 END SUBROUTINE nl_set_restart_interval_h
15836 SUBROUTINE nl_set_restart_interval_m ( id_id , restart_interval_m )
15837 integer , INTENT(IN) :: restart_interval_m
15838 INTEGER id_id
15839 CHARACTER*80 emess
15840 IF ( id_id .NE. 1 ) THEN
15841 call wrf_debug(1,&
15842 'WARNING in nl_set_restart_interval_m: restart_interval_m applies to all domains. First arg ignored.')
15843 ENDIF
15844 model_config_rec%restart_interval_m = restart_interval_m
15845 RETURN
15846 END SUBROUTINE nl_set_restart_interval_m
15847 SUBROUTINE nl_set_restart_interval_s ( id_id , restart_interval_s )
15848 integer , INTENT(IN) :: restart_interval_s
15849 INTEGER id_id
15850 CHARACTER*80 emess
15851 IF ( id_id .NE. 1 ) THEN
15852 call wrf_debug(1,&
15853 'WARNING in nl_set_restart_interval_s: restart_interval_s applies to all domains. First arg ignored.')
15854 ENDIF
15855 model_config_rec%restart_interval_s = restart_interval_s
15856 RETURN
15857 END SUBROUTINE nl_set_restart_interval_s
15858 SUBROUTINE nl_set_history_begin_y ( id_id , history_begin_y )
15859 integer , INTENT(IN) :: history_begin_y
15860 INTEGER id_id
15861 CHARACTER*80 emess
15862 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15863 WRITE(emess,*)'nl_set_history_begin_y: Out of range domain number: ',id_id
15864 CALL wrf_error_fatal(emess)
15865 ENDIF
15866 model_config_rec%history_begin_y(id_id) = history_begin_y
15867 RETURN
15868 END SUBROUTINE nl_set_history_begin_y
15869 SUBROUTINE nl_set_history_begin_mo ( id_id , history_begin_mo )
15870 integer , INTENT(IN) :: history_begin_mo
15871 INTEGER id_id
15872 CHARACTER*80 emess
15873 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15874 WRITE(emess,*)'nl_set_history_begin_mo: Out of range domain number: ',id_id
15875 CALL wrf_error_fatal(emess)
15876 ENDIF
15877 model_config_rec%history_begin_mo(id_id) = history_begin_mo
15878 RETURN
15879 END SUBROUTINE nl_set_history_begin_mo
15880 SUBROUTINE nl_set_history_begin_d ( id_id , history_begin_d )
15881 integer , INTENT(IN) :: history_begin_d
15882 INTEGER id_id
15883 CHARACTER*80 emess
15884 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15885 WRITE(emess,*)'nl_set_history_begin_d: Out of range domain number: ',id_id
15886 CALL wrf_error_fatal(emess)
15887 ENDIF
15888 model_config_rec%history_begin_d(id_id) = history_begin_d
15889 RETURN
15890 END SUBROUTINE nl_set_history_begin_d
15891 SUBROUTINE nl_set_history_begin_h ( id_id , history_begin_h )
15892 integer , INTENT(IN) :: history_begin_h
15893 INTEGER id_id
15894 CHARACTER*80 emess
15895 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15896 WRITE(emess,*)'nl_set_history_begin_h: Out of range domain number: ',id_id
15897 CALL wrf_error_fatal(emess)
15898 ENDIF
15899 model_config_rec%history_begin_h(id_id) = history_begin_h
15900 RETURN
15901 END SUBROUTINE nl_set_history_begin_h
15902 SUBROUTINE nl_set_history_begin_m ( id_id , history_begin_m )
15903 integer , INTENT(IN) :: history_begin_m
15904 INTEGER id_id
15905 CHARACTER*80 emess
15906 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15907 WRITE(emess,*)'nl_set_history_begin_m: Out of range domain number: ',id_id
15908 CALL wrf_error_fatal(emess)
15909 ENDIF
15910 model_config_rec%history_begin_m(id_id) = history_begin_m
15911 RETURN
15912 END SUBROUTINE nl_set_history_begin_m
15913 SUBROUTINE nl_set_history_begin_s ( id_id , history_begin_s )
15914 integer , INTENT(IN) :: history_begin_s
15915 INTEGER id_id
15916 CHARACTER*80 emess
15917 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15918 WRITE(emess,*)'nl_set_history_begin_s: Out of range domain number: ',id_id
15919 CALL wrf_error_fatal(emess)
15920 ENDIF
15921 model_config_rec%history_begin_s(id_id) = history_begin_s
15922 RETURN
15923 END SUBROUTINE nl_set_history_begin_s
15924 SUBROUTINE nl_set_inputout_begin_y ( id_id , inputout_begin_y )
15925 integer , INTENT(IN) :: inputout_begin_y
15926 INTEGER id_id
15927 CHARACTER*80 emess
15928 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15929 WRITE(emess,*)'nl_set_inputout_begin_y: Out of range domain number: ',id_id
15930 CALL wrf_error_fatal(emess)
15931 ENDIF
15932 model_config_rec%inputout_begin_y(id_id) = inputout_begin_y
15933 RETURN
15934 END SUBROUTINE nl_set_inputout_begin_y
15935 SUBROUTINE nl_set_inputout_begin_mo ( id_id , inputout_begin_mo )
15936 integer , INTENT(IN) :: inputout_begin_mo
15937 INTEGER id_id
15938 CHARACTER*80 emess
15939 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15940 WRITE(emess,*)'nl_set_inputout_begin_mo: Out of range domain number: ',id_id
15941 CALL wrf_error_fatal(emess)
15942 ENDIF
15943 model_config_rec%inputout_begin_mo(id_id) = inputout_begin_mo
15944 RETURN
15945 END SUBROUTINE nl_set_inputout_begin_mo
15946 SUBROUTINE nl_set_inputout_begin_d ( id_id , inputout_begin_d )
15947 integer , INTENT(IN) :: inputout_begin_d
15948 INTEGER id_id
15949 CHARACTER*80 emess
15950 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15951 WRITE(emess,*)'nl_set_inputout_begin_d: Out of range domain number: ',id_id
15952 CALL wrf_error_fatal(emess)
15953 ENDIF
15954 model_config_rec%inputout_begin_d(id_id) = inputout_begin_d
15955 RETURN
15956 END SUBROUTINE nl_set_inputout_begin_d
15957 SUBROUTINE nl_set_inputout_begin_h ( id_id , inputout_begin_h )
15958 integer , INTENT(IN) :: inputout_begin_h
15959 INTEGER id_id
15960 CHARACTER*80 emess
15961 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15962 WRITE(emess,*)'nl_set_inputout_begin_h: Out of range domain number: ',id_id
15963 CALL wrf_error_fatal(emess)
15964 ENDIF
15965 model_config_rec%inputout_begin_h(id_id) = inputout_begin_h
15966 RETURN
15967 END SUBROUTINE nl_set_inputout_begin_h
15968 SUBROUTINE nl_set_inputout_begin_m ( id_id , inputout_begin_m )
15969 integer , INTENT(IN) :: inputout_begin_m
15970 INTEGER id_id
15971 CHARACTER*80 emess
15972 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15973 WRITE(emess,*)'nl_set_inputout_begin_m: Out of range domain number: ',id_id
15974 CALL wrf_error_fatal(emess)
15975 ENDIF
15976 model_config_rec%inputout_begin_m(id_id) = inputout_begin_m
15977 RETURN
15978 END SUBROUTINE nl_set_inputout_begin_m
15979 SUBROUTINE nl_set_inputout_begin_s ( id_id , inputout_begin_s )
15980 integer , INTENT(IN) :: inputout_begin_s
15981 INTEGER id_id
15982 CHARACTER*80 emess
15983 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15984 WRITE(emess,*)'nl_set_inputout_begin_s: Out of range domain number: ',id_id
15985 CALL wrf_error_fatal(emess)
15986 ENDIF
15987 model_config_rec%inputout_begin_s(id_id) = inputout_begin_s
15988 RETURN
15989 END SUBROUTINE nl_set_inputout_begin_s
15990 SUBROUTINE nl_set_auxhist1_begin_y ( id_id , auxhist1_begin_y )
15991 integer , INTENT(IN) :: auxhist1_begin_y
15992 INTEGER id_id
15993 CHARACTER*80 emess
15994 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
15995 WRITE(emess,*)'nl_set_auxhist1_begin_y: Out of range domain number: ',id_id
15996 CALL wrf_error_fatal(emess)
15997 ENDIF
15998 model_config_rec%auxhist1_begin_y(id_id) = auxhist1_begin_y
15999 RETURN
16000 END SUBROUTINE nl_set_auxhist1_begin_y
16001 SUBROUTINE nl_set_auxhist1_begin_mo ( id_id , auxhist1_begin_mo )
16002 integer , INTENT(IN) :: auxhist1_begin_mo
16003 INTEGER id_id
16004 CHARACTER*80 emess
16005 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16006 WRITE(emess,*)'nl_set_auxhist1_begin_mo: Out of range domain number: ',id_id
16007 CALL wrf_error_fatal(emess)
16008 ENDIF
16009 model_config_rec%auxhist1_begin_mo(id_id) = auxhist1_begin_mo
16010 RETURN
16011 END SUBROUTINE nl_set_auxhist1_begin_mo
16012 SUBROUTINE nl_set_auxhist1_begin_d ( id_id , auxhist1_begin_d )
16013 integer , INTENT(IN) :: auxhist1_begin_d
16014 INTEGER id_id
16015 CHARACTER*80 emess
16016 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16017 WRITE(emess,*)'nl_set_auxhist1_begin_d: Out of range domain number: ',id_id
16018 CALL wrf_error_fatal(emess)
16019 ENDIF
16020 model_config_rec%auxhist1_begin_d(id_id) = auxhist1_begin_d
16021 RETURN
16022 END SUBROUTINE nl_set_auxhist1_begin_d
16023 SUBROUTINE nl_set_auxhist1_begin_h ( id_id , auxhist1_begin_h )
16024 integer , INTENT(IN) :: auxhist1_begin_h
16025 INTEGER id_id
16026 CHARACTER*80 emess
16027 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16028 WRITE(emess,*)'nl_set_auxhist1_begin_h: Out of range domain number: ',id_id
16029 CALL wrf_error_fatal(emess)
16030 ENDIF
16031 model_config_rec%auxhist1_begin_h(id_id) = auxhist1_begin_h
16032 RETURN
16033 END SUBROUTINE nl_set_auxhist1_begin_h
16034 SUBROUTINE nl_set_auxhist1_begin_m ( id_id , auxhist1_begin_m )
16035 integer , INTENT(IN) :: auxhist1_begin_m
16036 INTEGER id_id
16037 CHARACTER*80 emess
16038 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16039 WRITE(emess,*)'nl_set_auxhist1_begin_m: Out of range domain number: ',id_id
16040 CALL wrf_error_fatal(emess)
16041 ENDIF
16042 model_config_rec%auxhist1_begin_m(id_id) = auxhist1_begin_m
16043 RETURN
16044 END SUBROUTINE nl_set_auxhist1_begin_m
16045 SUBROUTINE nl_set_auxhist1_begin_s ( id_id , auxhist1_begin_s )
16046 integer , INTENT(IN) :: auxhist1_begin_s
16047 INTEGER id_id
16048 CHARACTER*80 emess
16049 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16050 WRITE(emess,*)'nl_set_auxhist1_begin_s: Out of range domain number: ',id_id
16051 CALL wrf_error_fatal(emess)
16052 ENDIF
16053 model_config_rec%auxhist1_begin_s(id_id) = auxhist1_begin_s
16054 RETURN
16055 END SUBROUTINE nl_set_auxhist1_begin_s
16056 SUBROUTINE nl_set_auxhist2_begin_y ( id_id , auxhist2_begin_y )
16057 integer , INTENT(IN) :: auxhist2_begin_y
16058 INTEGER id_id
16059 CHARACTER*80 emess
16060 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16061 WRITE(emess,*)'nl_set_auxhist2_begin_y: Out of range domain number: ',id_id
16062 CALL wrf_error_fatal(emess)
16063 ENDIF
16064 model_config_rec%auxhist2_begin_y(id_id) = auxhist2_begin_y
16065 RETURN
16066 END SUBROUTINE nl_set_auxhist2_begin_y
16067 SUBROUTINE nl_set_auxhist2_begin_mo ( id_id , auxhist2_begin_mo )
16068 integer , INTENT(IN) :: auxhist2_begin_mo
16069 INTEGER id_id
16070 CHARACTER*80 emess
16071 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16072 WRITE(emess,*)'nl_set_auxhist2_begin_mo: Out of range domain number: ',id_id
16073 CALL wrf_error_fatal(emess)
16074 ENDIF
16075 model_config_rec%auxhist2_begin_mo(id_id) = auxhist2_begin_mo
16076 RETURN
16077 END SUBROUTINE nl_set_auxhist2_begin_mo
16078 SUBROUTINE nl_set_auxhist2_begin_d ( id_id , auxhist2_begin_d )
16079 integer , INTENT(IN) :: auxhist2_begin_d
16080 INTEGER id_id
16081 CHARACTER*80 emess
16082 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16083 WRITE(emess,*)'nl_set_auxhist2_begin_d: Out of range domain number: ',id_id
16084 CALL wrf_error_fatal(emess)
16085 ENDIF
16086 model_config_rec%auxhist2_begin_d(id_id) = auxhist2_begin_d
16087 RETURN
16088 END SUBROUTINE nl_set_auxhist2_begin_d
16089 SUBROUTINE nl_set_auxhist2_begin_h ( id_id , auxhist2_begin_h )
16090 integer , INTENT(IN) :: auxhist2_begin_h
16091 INTEGER id_id
16092 CHARACTER*80 emess
16093 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16094 WRITE(emess,*)'nl_set_auxhist2_begin_h: Out of range domain number: ',id_id
16095 CALL wrf_error_fatal(emess)
16096 ENDIF
16097 model_config_rec%auxhist2_begin_h(id_id) = auxhist2_begin_h
16098 RETURN
16099 END SUBROUTINE nl_set_auxhist2_begin_h
16100 SUBROUTINE nl_set_auxhist2_begin_m ( id_id , auxhist2_begin_m )
16101 integer , INTENT(IN) :: auxhist2_begin_m
16102 INTEGER id_id
16103 CHARACTER*80 emess
16104 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16105 WRITE(emess,*)'nl_set_auxhist2_begin_m: Out of range domain number: ',id_id
16106 CALL wrf_error_fatal(emess)
16107 ENDIF
16108 model_config_rec%auxhist2_begin_m(id_id) = auxhist2_begin_m
16109 RETURN
16110 END SUBROUTINE nl_set_auxhist2_begin_m
16111 SUBROUTINE nl_set_auxhist2_begin_s ( id_id , auxhist2_begin_s )
16112 integer , INTENT(IN) :: auxhist2_begin_s
16113 INTEGER id_id
16114 CHARACTER*80 emess
16115 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16116 WRITE(emess,*)'nl_set_auxhist2_begin_s: Out of range domain number: ',id_id
16117 CALL wrf_error_fatal(emess)
16118 ENDIF
16119 model_config_rec%auxhist2_begin_s(id_id) = auxhist2_begin_s
16120 RETURN
16121 END SUBROUTINE nl_set_auxhist2_begin_s
16122 SUBROUTINE nl_set_auxhist3_begin_y ( id_id , auxhist3_begin_y )
16123 integer , INTENT(IN) :: auxhist3_begin_y
16124 INTEGER id_id
16125 CHARACTER*80 emess
16126 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16127 WRITE(emess,*)'nl_set_auxhist3_begin_y: Out of range domain number: ',id_id
16128 CALL wrf_error_fatal(emess)
16129 ENDIF
16130 model_config_rec%auxhist3_begin_y(id_id) = auxhist3_begin_y
16131 RETURN
16132 END SUBROUTINE nl_set_auxhist3_begin_y
16133 SUBROUTINE nl_set_auxhist3_begin_mo ( id_id , auxhist3_begin_mo )
16134 integer , INTENT(IN) :: auxhist3_begin_mo
16135 INTEGER id_id
16136 CHARACTER*80 emess
16137 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16138 WRITE(emess,*)'nl_set_auxhist3_begin_mo: Out of range domain number: ',id_id
16139 CALL wrf_error_fatal(emess)
16140 ENDIF
16141 model_config_rec%auxhist3_begin_mo(id_id) = auxhist3_begin_mo
16142 RETURN
16143 END SUBROUTINE nl_set_auxhist3_begin_mo
16144 SUBROUTINE nl_set_auxhist3_begin_d ( id_id , auxhist3_begin_d )
16145 integer , INTENT(IN) :: auxhist3_begin_d
16146 INTEGER id_id
16147 CHARACTER*80 emess
16148 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16149 WRITE(emess,*)'nl_set_auxhist3_begin_d: Out of range domain number: ',id_id
16150 CALL wrf_error_fatal(emess)
16151 ENDIF
16152 model_config_rec%auxhist3_begin_d(id_id) = auxhist3_begin_d
16153 RETURN
16154 END SUBROUTINE nl_set_auxhist3_begin_d
16155 SUBROUTINE nl_set_auxhist3_begin_h ( id_id , auxhist3_begin_h )
16156 integer , INTENT(IN) :: auxhist3_begin_h
16157 INTEGER id_id
16158 CHARACTER*80 emess
16159 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16160 WRITE(emess,*)'nl_set_auxhist3_begin_h: Out of range domain number: ',id_id
16161 CALL wrf_error_fatal(emess)
16162 ENDIF
16163 model_config_rec%auxhist3_begin_h(id_id) = auxhist3_begin_h
16164 RETURN
16165 END SUBROUTINE nl_set_auxhist3_begin_h
16166 SUBROUTINE nl_set_auxhist3_begin_m ( id_id , auxhist3_begin_m )
16167 integer , INTENT(IN) :: auxhist3_begin_m
16168 INTEGER id_id
16169 CHARACTER*80 emess
16170 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16171 WRITE(emess,*)'nl_set_auxhist3_begin_m: Out of range domain number: ',id_id
16172 CALL wrf_error_fatal(emess)
16173 ENDIF
16174 model_config_rec%auxhist3_begin_m(id_id) = auxhist3_begin_m
16175 RETURN
16176 END SUBROUTINE nl_set_auxhist3_begin_m
16177 SUBROUTINE nl_set_auxhist3_begin_s ( id_id , auxhist3_begin_s )
16178 integer , INTENT(IN) :: auxhist3_begin_s
16179 INTEGER id_id
16180 CHARACTER*80 emess
16181 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16182 WRITE(emess,*)'nl_set_auxhist3_begin_s: Out of range domain number: ',id_id
16183 CALL wrf_error_fatal(emess)
16184 ENDIF
16185 model_config_rec%auxhist3_begin_s(id_id) = auxhist3_begin_s
16186 RETURN
16187 END SUBROUTINE nl_set_auxhist3_begin_s
16188 SUBROUTINE nl_set_auxhist4_begin_y ( id_id , auxhist4_begin_y )
16189 integer , INTENT(IN) :: auxhist4_begin_y
16190 INTEGER id_id
16191 CHARACTER*80 emess
16192 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16193 WRITE(emess,*)'nl_set_auxhist4_begin_y: Out of range domain number: ',id_id
16194 CALL wrf_error_fatal(emess)
16195 ENDIF
16196 model_config_rec%auxhist4_begin_y(id_id) = auxhist4_begin_y
16197 RETURN
16198 END SUBROUTINE nl_set_auxhist4_begin_y
16199 SUBROUTINE nl_set_auxhist4_begin_mo ( id_id , auxhist4_begin_mo )
16200 integer , INTENT(IN) :: auxhist4_begin_mo
16201 INTEGER id_id
16202 CHARACTER*80 emess
16203 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16204 WRITE(emess,*)'nl_set_auxhist4_begin_mo: Out of range domain number: ',id_id
16205 CALL wrf_error_fatal(emess)
16206 ENDIF
16207 model_config_rec%auxhist4_begin_mo(id_id) = auxhist4_begin_mo
16208 RETURN
16209 END SUBROUTINE nl_set_auxhist4_begin_mo
16210 SUBROUTINE nl_set_auxhist4_begin_d ( id_id , auxhist4_begin_d )
16211 integer , INTENT(IN) :: auxhist4_begin_d
16212 INTEGER id_id
16213 CHARACTER*80 emess
16214 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16215 WRITE(emess,*)'nl_set_auxhist4_begin_d: Out of range domain number: ',id_id
16216 CALL wrf_error_fatal(emess)
16217 ENDIF
16218 model_config_rec%auxhist4_begin_d(id_id) = auxhist4_begin_d
16219 RETURN
16220 END SUBROUTINE nl_set_auxhist4_begin_d
16221 SUBROUTINE nl_set_auxhist4_begin_h ( id_id , auxhist4_begin_h )
16222 integer , INTENT(IN) :: auxhist4_begin_h
16223 INTEGER id_id
16224 CHARACTER*80 emess
16225 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16226 WRITE(emess,*)'nl_set_auxhist4_begin_h: Out of range domain number: ',id_id
16227 CALL wrf_error_fatal(emess)
16228 ENDIF
16229 model_config_rec%auxhist4_begin_h(id_id) = auxhist4_begin_h
16230 RETURN
16231 END SUBROUTINE nl_set_auxhist4_begin_h
16232 SUBROUTINE nl_set_auxhist4_begin_m ( id_id , auxhist4_begin_m )
16233 integer , INTENT(IN) :: auxhist4_begin_m
16234 INTEGER id_id
16235 CHARACTER*80 emess
16236 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16237 WRITE(emess,*)'nl_set_auxhist4_begin_m: Out of range domain number: ',id_id
16238 CALL wrf_error_fatal(emess)
16239 ENDIF
16240 model_config_rec%auxhist4_begin_m(id_id) = auxhist4_begin_m
16241 RETURN
16242 END SUBROUTINE nl_set_auxhist4_begin_m
16243 SUBROUTINE nl_set_auxhist4_begin_s ( id_id , auxhist4_begin_s )
16244 integer , INTENT(IN) :: auxhist4_begin_s
16245 INTEGER id_id
16246 CHARACTER*80 emess
16247 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16248 WRITE(emess,*)'nl_set_auxhist4_begin_s: Out of range domain number: ',id_id
16249 CALL wrf_error_fatal(emess)
16250 ENDIF
16251 model_config_rec%auxhist4_begin_s(id_id) = auxhist4_begin_s
16252 RETURN
16253 END SUBROUTINE nl_set_auxhist4_begin_s
16254 SUBROUTINE nl_set_auxhist5_begin_y ( id_id , auxhist5_begin_y )
16255 integer , INTENT(IN) :: auxhist5_begin_y
16256 INTEGER id_id
16257 CHARACTER*80 emess
16258 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16259 WRITE(emess,*)'nl_set_auxhist5_begin_y: Out of range domain number: ',id_id
16260 CALL wrf_error_fatal(emess)
16261 ENDIF
16262 model_config_rec%auxhist5_begin_y(id_id) = auxhist5_begin_y
16263 RETURN
16264 END SUBROUTINE nl_set_auxhist5_begin_y
16265 SUBROUTINE nl_set_auxhist5_begin_mo ( id_id , auxhist5_begin_mo )
16266 integer , INTENT(IN) :: auxhist5_begin_mo
16267 INTEGER id_id
16268 CHARACTER*80 emess
16269 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16270 WRITE(emess,*)'nl_set_auxhist5_begin_mo: Out of range domain number: ',id_id
16271 CALL wrf_error_fatal(emess)
16272 ENDIF
16273 model_config_rec%auxhist5_begin_mo(id_id) = auxhist5_begin_mo
16274 RETURN
16275 END SUBROUTINE nl_set_auxhist5_begin_mo
16276 SUBROUTINE nl_set_auxhist5_begin_d ( id_id , auxhist5_begin_d )
16277 integer , INTENT(IN) :: auxhist5_begin_d
16278 INTEGER id_id
16279 CHARACTER*80 emess
16280 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16281 WRITE(emess,*)'nl_set_auxhist5_begin_d: Out of range domain number: ',id_id
16282 CALL wrf_error_fatal(emess)
16283 ENDIF
16284 model_config_rec%auxhist5_begin_d(id_id) = auxhist5_begin_d
16285 RETURN
16286 END SUBROUTINE nl_set_auxhist5_begin_d
16287 SUBROUTINE nl_set_auxhist5_begin_h ( id_id , auxhist5_begin_h )
16288 integer , INTENT(IN) :: auxhist5_begin_h
16289 INTEGER id_id
16290 CHARACTER*80 emess
16291 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16292 WRITE(emess,*)'nl_set_auxhist5_begin_h: Out of range domain number: ',id_id
16293 CALL wrf_error_fatal(emess)
16294 ENDIF
16295 model_config_rec%auxhist5_begin_h(id_id) = auxhist5_begin_h
16296 RETURN
16297 END SUBROUTINE nl_set_auxhist5_begin_h
16298 SUBROUTINE nl_set_auxhist5_begin_m ( id_id , auxhist5_begin_m )
16299 integer , INTENT(IN) :: auxhist5_begin_m
16300 INTEGER id_id
16301 CHARACTER*80 emess
16302 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16303 WRITE(emess,*)'nl_set_auxhist5_begin_m: Out of range domain number: ',id_id
16304 CALL wrf_error_fatal(emess)
16305 ENDIF
16306 model_config_rec%auxhist5_begin_m(id_id) = auxhist5_begin_m
16307 RETURN
16308 END SUBROUTINE nl_set_auxhist5_begin_m
16309 SUBROUTINE nl_set_auxhist5_begin_s ( id_id , auxhist5_begin_s )
16310 integer , INTENT(IN) :: auxhist5_begin_s
16311 INTEGER id_id
16312 CHARACTER*80 emess
16313 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16314 WRITE(emess,*)'nl_set_auxhist5_begin_s: Out of range domain number: ',id_id
16315 CALL wrf_error_fatal(emess)
16316 ENDIF
16317 model_config_rec%auxhist5_begin_s(id_id) = auxhist5_begin_s
16318 RETURN
16319 END SUBROUTINE nl_set_auxhist5_begin_s
16320 SUBROUTINE nl_set_auxhist6_begin_y ( id_id , auxhist6_begin_y )
16321 integer , INTENT(IN) :: auxhist6_begin_y
16322 INTEGER id_id
16323 CHARACTER*80 emess
16324 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16325 WRITE(emess,*)'nl_set_auxhist6_begin_y: Out of range domain number: ',id_id
16326 CALL wrf_error_fatal(emess)
16327 ENDIF
16328 model_config_rec%auxhist6_begin_y(id_id) = auxhist6_begin_y
16329 RETURN
16330 END SUBROUTINE nl_set_auxhist6_begin_y
16331 SUBROUTINE nl_set_auxhist6_begin_mo ( id_id , auxhist6_begin_mo )
16332 integer , INTENT(IN) :: auxhist6_begin_mo
16333 INTEGER id_id
16334 CHARACTER*80 emess
16335 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16336 WRITE(emess,*)'nl_set_auxhist6_begin_mo: Out of range domain number: ',id_id
16337 CALL wrf_error_fatal(emess)
16338 ENDIF
16339 model_config_rec%auxhist6_begin_mo(id_id) = auxhist6_begin_mo
16340 RETURN
16341 END SUBROUTINE nl_set_auxhist6_begin_mo
16342 SUBROUTINE nl_set_auxhist6_begin_d ( id_id , auxhist6_begin_d )
16343 integer , INTENT(IN) :: auxhist6_begin_d
16344 INTEGER id_id
16345 CHARACTER*80 emess
16346 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16347 WRITE(emess,*)'nl_set_auxhist6_begin_d: Out of range domain number: ',id_id
16348 CALL wrf_error_fatal(emess)
16349 ENDIF
16350 model_config_rec%auxhist6_begin_d(id_id) = auxhist6_begin_d
16351 RETURN
16352 END SUBROUTINE nl_set_auxhist6_begin_d
16353 SUBROUTINE nl_set_auxhist6_begin_h ( id_id , auxhist6_begin_h )
16354 integer , INTENT(IN) :: auxhist6_begin_h
16355 INTEGER id_id
16356 CHARACTER*80 emess
16357 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16358 WRITE(emess,*)'nl_set_auxhist6_begin_h: Out of range domain number: ',id_id
16359 CALL wrf_error_fatal(emess)
16360 ENDIF
16361 model_config_rec%auxhist6_begin_h(id_id) = auxhist6_begin_h
16362 RETURN
16363 END SUBROUTINE nl_set_auxhist6_begin_h
16364 SUBROUTINE nl_set_auxhist6_begin_m ( id_id , auxhist6_begin_m )
16365 integer , INTENT(IN) :: auxhist6_begin_m
16366 INTEGER id_id
16367 CHARACTER*80 emess
16368 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16369 WRITE(emess,*)'nl_set_auxhist6_begin_m: Out of range domain number: ',id_id
16370 CALL wrf_error_fatal(emess)
16371 ENDIF
16372 model_config_rec%auxhist6_begin_m(id_id) = auxhist6_begin_m
16373 RETURN
16374 END SUBROUTINE nl_set_auxhist6_begin_m
16375 SUBROUTINE nl_set_auxhist6_begin_s ( id_id , auxhist6_begin_s )
16376 integer , INTENT(IN) :: auxhist6_begin_s
16377 INTEGER id_id
16378 CHARACTER*80 emess
16379 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16380 WRITE(emess,*)'nl_set_auxhist6_begin_s: Out of range domain number: ',id_id
16381 CALL wrf_error_fatal(emess)
16382 ENDIF
16383 model_config_rec%auxhist6_begin_s(id_id) = auxhist6_begin_s
16384 RETURN
16385 END SUBROUTINE nl_set_auxhist6_begin_s
16386 SUBROUTINE nl_set_auxhist7_begin_y ( id_id , auxhist7_begin_y )
16387 integer , INTENT(IN) :: auxhist7_begin_y
16388 INTEGER id_id
16389 CHARACTER*80 emess
16390 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16391 WRITE(emess,*)'nl_set_auxhist7_begin_y: Out of range domain number: ',id_id
16392 CALL wrf_error_fatal(emess)
16393 ENDIF
16394 model_config_rec%auxhist7_begin_y(id_id) = auxhist7_begin_y
16395 RETURN
16396 END SUBROUTINE nl_set_auxhist7_begin_y
16397 SUBROUTINE nl_set_auxhist7_begin_mo ( id_id , auxhist7_begin_mo )
16398 integer , INTENT(IN) :: auxhist7_begin_mo
16399 INTEGER id_id
16400 CHARACTER*80 emess
16401 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16402 WRITE(emess,*)'nl_set_auxhist7_begin_mo: Out of range domain number: ',id_id
16403 CALL wrf_error_fatal(emess)
16404 ENDIF
16405 model_config_rec%auxhist7_begin_mo(id_id) = auxhist7_begin_mo
16406 RETURN
16407 END SUBROUTINE nl_set_auxhist7_begin_mo
16408 SUBROUTINE nl_set_auxhist7_begin_d ( id_id , auxhist7_begin_d )
16409 integer , INTENT(IN) :: auxhist7_begin_d
16410 INTEGER id_id
16411 CHARACTER*80 emess
16412 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16413 WRITE(emess,*)'nl_set_auxhist7_begin_d: Out of range domain number: ',id_id
16414 CALL wrf_error_fatal(emess)
16415 ENDIF
16416 model_config_rec%auxhist7_begin_d(id_id) = auxhist7_begin_d
16417 RETURN
16418 END SUBROUTINE nl_set_auxhist7_begin_d
16419 SUBROUTINE nl_set_auxhist7_begin_h ( id_id , auxhist7_begin_h )
16420 integer , INTENT(IN) :: auxhist7_begin_h
16421 INTEGER id_id
16422 CHARACTER*80 emess
16423 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16424 WRITE(emess,*)'nl_set_auxhist7_begin_h: Out of range domain number: ',id_id
16425 CALL wrf_error_fatal(emess)
16426 ENDIF
16427 model_config_rec%auxhist7_begin_h(id_id) = auxhist7_begin_h
16428 RETURN
16429 END SUBROUTINE nl_set_auxhist7_begin_h
16430 SUBROUTINE nl_set_auxhist7_begin_m ( id_id , auxhist7_begin_m )
16431 integer , INTENT(IN) :: auxhist7_begin_m
16432 INTEGER id_id
16433 CHARACTER*80 emess
16434 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16435 WRITE(emess,*)'nl_set_auxhist7_begin_m: Out of range domain number: ',id_id
16436 CALL wrf_error_fatal(emess)
16437 ENDIF
16438 model_config_rec%auxhist7_begin_m(id_id) = auxhist7_begin_m
16439 RETURN
16440 END SUBROUTINE nl_set_auxhist7_begin_m
16441 SUBROUTINE nl_set_auxhist7_begin_s ( id_id , auxhist7_begin_s )
16442 integer , INTENT(IN) :: auxhist7_begin_s
16443 INTEGER id_id
16444 CHARACTER*80 emess
16445 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16446 WRITE(emess,*)'nl_set_auxhist7_begin_s: Out of range domain number: ',id_id
16447 CALL wrf_error_fatal(emess)
16448 ENDIF
16449 model_config_rec%auxhist7_begin_s(id_id) = auxhist7_begin_s
16450 RETURN
16451 END SUBROUTINE nl_set_auxhist7_begin_s
16452 SUBROUTINE nl_set_auxhist8_begin_y ( id_id , auxhist8_begin_y )
16453 integer , INTENT(IN) :: auxhist8_begin_y
16454 INTEGER id_id
16455 CHARACTER*80 emess
16456 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16457 WRITE(emess,*)'nl_set_auxhist8_begin_y: Out of range domain number: ',id_id
16458 CALL wrf_error_fatal(emess)
16459 ENDIF
16460 model_config_rec%auxhist8_begin_y(id_id) = auxhist8_begin_y
16461 RETURN
16462 END SUBROUTINE nl_set_auxhist8_begin_y
16463 SUBROUTINE nl_set_auxhist8_begin_mo ( id_id , auxhist8_begin_mo )
16464 integer , INTENT(IN) :: auxhist8_begin_mo
16465 INTEGER id_id
16466 CHARACTER*80 emess
16467 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16468 WRITE(emess,*)'nl_set_auxhist8_begin_mo: Out of range domain number: ',id_id
16469 CALL wrf_error_fatal(emess)
16470 ENDIF
16471 model_config_rec%auxhist8_begin_mo(id_id) = auxhist8_begin_mo
16472 RETURN
16473 END SUBROUTINE nl_set_auxhist8_begin_mo
16474 SUBROUTINE nl_set_auxhist8_begin_d ( id_id , auxhist8_begin_d )
16475 integer , INTENT(IN) :: auxhist8_begin_d
16476 INTEGER id_id
16477 CHARACTER*80 emess
16478 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16479 WRITE(emess,*)'nl_set_auxhist8_begin_d: Out of range domain number: ',id_id
16480 CALL wrf_error_fatal(emess)
16481 ENDIF
16482 model_config_rec%auxhist8_begin_d(id_id) = auxhist8_begin_d
16483 RETURN
16484 END SUBROUTINE nl_set_auxhist8_begin_d
16485 SUBROUTINE nl_set_auxhist8_begin_h ( id_id , auxhist8_begin_h )
16486 integer , INTENT(IN) :: auxhist8_begin_h
16487 INTEGER id_id
16488 CHARACTER*80 emess
16489 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16490 WRITE(emess,*)'nl_set_auxhist8_begin_h: Out of range domain number: ',id_id
16491 CALL wrf_error_fatal(emess)
16492 ENDIF
16493 model_config_rec%auxhist8_begin_h(id_id) = auxhist8_begin_h
16494 RETURN
16495 END SUBROUTINE nl_set_auxhist8_begin_h
16496 SUBROUTINE nl_set_auxhist8_begin_m ( id_id , auxhist8_begin_m )
16497 integer , INTENT(IN) :: auxhist8_begin_m
16498 INTEGER id_id
16499 CHARACTER*80 emess
16500 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16501 WRITE(emess,*)'nl_set_auxhist8_begin_m: Out of range domain number: ',id_id
16502 CALL wrf_error_fatal(emess)
16503 ENDIF
16504 model_config_rec%auxhist8_begin_m(id_id) = auxhist8_begin_m
16505 RETURN
16506 END SUBROUTINE nl_set_auxhist8_begin_m
16507 SUBROUTINE nl_set_auxhist8_begin_s ( id_id , auxhist8_begin_s )
16508 integer , INTENT(IN) :: auxhist8_begin_s
16509 INTEGER id_id
16510 CHARACTER*80 emess
16511 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16512 WRITE(emess,*)'nl_set_auxhist8_begin_s: Out of range domain number: ',id_id
16513 CALL wrf_error_fatal(emess)
16514 ENDIF
16515 model_config_rec%auxhist8_begin_s(id_id) = auxhist8_begin_s
16516 RETURN
16517 END SUBROUTINE nl_set_auxhist8_begin_s
16518 SUBROUTINE nl_set_auxhist9_begin_y ( id_id , auxhist9_begin_y )
16519 integer , INTENT(IN) :: auxhist9_begin_y
16520 INTEGER id_id
16521 CHARACTER*80 emess
16522 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16523 WRITE(emess,*)'nl_set_auxhist9_begin_y: Out of range domain number: ',id_id
16524 CALL wrf_error_fatal(emess)
16525 ENDIF
16526 model_config_rec%auxhist9_begin_y(id_id) = auxhist9_begin_y
16527 RETURN
16528 END SUBROUTINE nl_set_auxhist9_begin_y
16529 SUBROUTINE nl_set_auxhist9_begin_mo ( id_id , auxhist9_begin_mo )
16530 integer , INTENT(IN) :: auxhist9_begin_mo
16531 INTEGER id_id
16532 CHARACTER*80 emess
16533 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16534 WRITE(emess,*)'nl_set_auxhist9_begin_mo: Out of range domain number: ',id_id
16535 CALL wrf_error_fatal(emess)
16536 ENDIF
16537 model_config_rec%auxhist9_begin_mo(id_id) = auxhist9_begin_mo
16538 RETURN
16539 END SUBROUTINE nl_set_auxhist9_begin_mo
16540 SUBROUTINE nl_set_auxhist9_begin_d ( id_id , auxhist9_begin_d )
16541 integer , INTENT(IN) :: auxhist9_begin_d
16542 INTEGER id_id
16543 CHARACTER*80 emess
16544 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16545 WRITE(emess,*)'nl_set_auxhist9_begin_d: Out of range domain number: ',id_id
16546 CALL wrf_error_fatal(emess)
16547 ENDIF
16548 model_config_rec%auxhist9_begin_d(id_id) = auxhist9_begin_d
16549 RETURN
16550 END SUBROUTINE nl_set_auxhist9_begin_d
16551 SUBROUTINE nl_set_auxhist9_begin_h ( id_id , auxhist9_begin_h )
16552 integer , INTENT(IN) :: auxhist9_begin_h
16553 INTEGER id_id
16554 CHARACTER*80 emess
16555 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16556 WRITE(emess,*)'nl_set_auxhist9_begin_h: Out of range domain number: ',id_id
16557 CALL wrf_error_fatal(emess)
16558 ENDIF
16559 model_config_rec%auxhist9_begin_h(id_id) = auxhist9_begin_h
16560 RETURN
16561 END SUBROUTINE nl_set_auxhist9_begin_h
16562 SUBROUTINE nl_set_auxhist9_begin_m ( id_id , auxhist9_begin_m )
16563 integer , INTENT(IN) :: auxhist9_begin_m
16564 INTEGER id_id
16565 CHARACTER*80 emess
16566 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16567 WRITE(emess,*)'nl_set_auxhist9_begin_m: Out of range domain number: ',id_id
16568 CALL wrf_error_fatal(emess)
16569 ENDIF
16570 model_config_rec%auxhist9_begin_m(id_id) = auxhist9_begin_m
16571 RETURN
16572 END SUBROUTINE nl_set_auxhist9_begin_m
16573 SUBROUTINE nl_set_auxhist9_begin_s ( id_id , auxhist9_begin_s )
16574 integer , INTENT(IN) :: auxhist9_begin_s
16575 INTEGER id_id
16576 CHARACTER*80 emess
16577 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16578 WRITE(emess,*)'nl_set_auxhist9_begin_s: Out of range domain number: ',id_id
16579 CALL wrf_error_fatal(emess)
16580 ENDIF
16581 model_config_rec%auxhist9_begin_s(id_id) = auxhist9_begin_s
16582 RETURN
16583 END SUBROUTINE nl_set_auxhist9_begin_s
16584 SUBROUTINE nl_set_auxhist10_begin_y ( id_id , auxhist10_begin_y )
16585 integer , INTENT(IN) :: auxhist10_begin_y
16586 INTEGER id_id
16587 CHARACTER*80 emess
16588 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16589 WRITE(emess,*)'nl_set_auxhist10_begin_y: Out of range domain number: ',id_id
16590 CALL wrf_error_fatal(emess)
16591 ENDIF
16592 model_config_rec%auxhist10_begin_y(id_id) = auxhist10_begin_y
16593 RETURN
16594 END SUBROUTINE nl_set_auxhist10_begin_y
16595 SUBROUTINE nl_set_auxhist10_begin_mo ( id_id , auxhist10_begin_mo )
16596 integer , INTENT(IN) :: auxhist10_begin_mo
16597 INTEGER id_id
16598 CHARACTER*80 emess
16599 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16600 WRITE(emess,*)'nl_set_auxhist10_begin_mo: Out of range domain number: ',id_id
16601 CALL wrf_error_fatal(emess)
16602 ENDIF
16603 model_config_rec%auxhist10_begin_mo(id_id) = auxhist10_begin_mo
16604 RETURN
16605 END SUBROUTINE nl_set_auxhist10_begin_mo
16606 SUBROUTINE nl_set_auxhist10_begin_d ( id_id , auxhist10_begin_d )
16607 integer , INTENT(IN) :: auxhist10_begin_d
16608 INTEGER id_id
16609 CHARACTER*80 emess
16610 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16611 WRITE(emess,*)'nl_set_auxhist10_begin_d: Out of range domain number: ',id_id
16612 CALL wrf_error_fatal(emess)
16613 ENDIF
16614 model_config_rec%auxhist10_begin_d(id_id) = auxhist10_begin_d
16615 RETURN
16616 END SUBROUTINE nl_set_auxhist10_begin_d
16617 SUBROUTINE nl_set_auxhist10_begin_h ( id_id , auxhist10_begin_h )
16618 integer , INTENT(IN) :: auxhist10_begin_h
16619 INTEGER id_id
16620 CHARACTER*80 emess
16621 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16622 WRITE(emess,*)'nl_set_auxhist10_begin_h: Out of range domain number: ',id_id
16623 CALL wrf_error_fatal(emess)
16624 ENDIF
16625 model_config_rec%auxhist10_begin_h(id_id) = auxhist10_begin_h
16626 RETURN
16627 END SUBROUTINE nl_set_auxhist10_begin_h
16628 SUBROUTINE nl_set_auxhist10_begin_m ( id_id , auxhist10_begin_m )
16629 integer , INTENT(IN) :: auxhist10_begin_m
16630 INTEGER id_id
16631 CHARACTER*80 emess
16632 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16633 WRITE(emess,*)'nl_set_auxhist10_begin_m: Out of range domain number: ',id_id
16634 CALL wrf_error_fatal(emess)
16635 ENDIF
16636 model_config_rec%auxhist10_begin_m(id_id) = auxhist10_begin_m
16637 RETURN
16638 END SUBROUTINE nl_set_auxhist10_begin_m
16639 SUBROUTINE nl_set_auxhist10_begin_s ( id_id , auxhist10_begin_s )
16640 integer , INTENT(IN) :: auxhist10_begin_s
16641 INTEGER id_id
16642 CHARACTER*80 emess
16643 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16644 WRITE(emess,*)'nl_set_auxhist10_begin_s: Out of range domain number: ',id_id
16645 CALL wrf_error_fatal(emess)
16646 ENDIF
16647 model_config_rec%auxhist10_begin_s(id_id) = auxhist10_begin_s
16648 RETURN
16649 END SUBROUTINE nl_set_auxhist10_begin_s
16650 SUBROUTINE nl_set_auxhist11_begin_y ( id_id , auxhist11_begin_y )
16651 integer , INTENT(IN) :: auxhist11_begin_y
16652 INTEGER id_id
16653 CHARACTER*80 emess
16654 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16655 WRITE(emess,*)'nl_set_auxhist11_begin_y: Out of range domain number: ',id_id
16656 CALL wrf_error_fatal(emess)
16657 ENDIF
16658 model_config_rec%auxhist11_begin_y(id_id) = auxhist11_begin_y
16659 RETURN
16660 END SUBROUTINE nl_set_auxhist11_begin_y
16661 SUBROUTINE nl_set_auxhist11_begin_mo ( id_id , auxhist11_begin_mo )
16662 integer , INTENT(IN) :: auxhist11_begin_mo
16663 INTEGER id_id
16664 CHARACTER*80 emess
16665 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16666 WRITE(emess,*)'nl_set_auxhist11_begin_mo: Out of range domain number: ',id_id
16667 CALL wrf_error_fatal(emess)
16668 ENDIF
16669 model_config_rec%auxhist11_begin_mo(id_id) = auxhist11_begin_mo
16670 RETURN
16671 END SUBROUTINE nl_set_auxhist11_begin_mo
16672 SUBROUTINE nl_set_auxhist11_begin_d ( id_id , auxhist11_begin_d )
16673 integer , INTENT(IN) :: auxhist11_begin_d
16674 INTEGER id_id
16675 CHARACTER*80 emess
16676 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16677 WRITE(emess,*)'nl_set_auxhist11_begin_d: Out of range domain number: ',id_id
16678 CALL wrf_error_fatal(emess)
16679 ENDIF
16680 model_config_rec%auxhist11_begin_d(id_id) = auxhist11_begin_d
16681 RETURN
16682 END SUBROUTINE nl_set_auxhist11_begin_d
16683 SUBROUTINE nl_set_auxhist11_begin_h ( id_id , auxhist11_begin_h )
16684 integer , INTENT(IN) :: auxhist11_begin_h
16685 INTEGER id_id
16686 CHARACTER*80 emess
16687 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16688 WRITE(emess,*)'nl_set_auxhist11_begin_h: Out of range domain number: ',id_id
16689 CALL wrf_error_fatal(emess)
16690 ENDIF
16691 model_config_rec%auxhist11_begin_h(id_id) = auxhist11_begin_h
16692 RETURN
16693 END SUBROUTINE nl_set_auxhist11_begin_h
16694 SUBROUTINE nl_set_auxhist11_begin_m ( id_id , auxhist11_begin_m )
16695 integer , INTENT(IN) :: auxhist11_begin_m
16696 INTEGER id_id
16697 CHARACTER*80 emess
16698 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16699 WRITE(emess,*)'nl_set_auxhist11_begin_m: Out of range domain number: ',id_id
16700 CALL wrf_error_fatal(emess)
16701 ENDIF
16702 model_config_rec%auxhist11_begin_m(id_id) = auxhist11_begin_m
16703 RETURN
16704 END SUBROUTINE nl_set_auxhist11_begin_m
16705 SUBROUTINE nl_set_auxhist11_begin_s ( id_id , auxhist11_begin_s )
16706 integer , INTENT(IN) :: auxhist11_begin_s
16707 INTEGER id_id
16708 CHARACTER*80 emess
16709 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16710 WRITE(emess,*)'nl_set_auxhist11_begin_s: Out of range domain number: ',id_id
16711 CALL wrf_error_fatal(emess)
16712 ENDIF
16713 model_config_rec%auxhist11_begin_s(id_id) = auxhist11_begin_s
16714 RETURN
16715 END SUBROUTINE nl_set_auxhist11_begin_s
16716 SUBROUTINE nl_set_auxinput1_begin_y ( id_id , auxinput1_begin_y )
16717 integer , INTENT(IN) :: auxinput1_begin_y
16718 INTEGER id_id
16719 CHARACTER*80 emess
16720 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16721 WRITE(emess,*)'nl_set_auxinput1_begin_y: Out of range domain number: ',id_id
16722 CALL wrf_error_fatal(emess)
16723 ENDIF
16724 model_config_rec%auxinput1_begin_y(id_id) = auxinput1_begin_y
16725 RETURN
16726 END SUBROUTINE nl_set_auxinput1_begin_y
16727 SUBROUTINE nl_set_auxinput1_begin_mo ( id_id , auxinput1_begin_mo )
16728 integer , INTENT(IN) :: auxinput1_begin_mo
16729 INTEGER id_id
16730 CHARACTER*80 emess
16731 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16732 WRITE(emess,*)'nl_set_auxinput1_begin_mo: Out of range domain number: ',id_id
16733 CALL wrf_error_fatal(emess)
16734 ENDIF
16735 model_config_rec%auxinput1_begin_mo(id_id) = auxinput1_begin_mo
16736 RETURN
16737 END SUBROUTINE nl_set_auxinput1_begin_mo
16738 SUBROUTINE nl_set_auxinput1_begin_d ( id_id , auxinput1_begin_d )
16739 integer , INTENT(IN) :: auxinput1_begin_d
16740 INTEGER id_id
16741 CHARACTER*80 emess
16742 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16743 WRITE(emess,*)'nl_set_auxinput1_begin_d: Out of range domain number: ',id_id
16744 CALL wrf_error_fatal(emess)
16745 ENDIF
16746 model_config_rec%auxinput1_begin_d(id_id) = auxinput1_begin_d
16747 RETURN
16748 END SUBROUTINE nl_set_auxinput1_begin_d
16749 SUBROUTINE nl_set_auxinput1_begin_h ( id_id , auxinput1_begin_h )
16750 integer , INTENT(IN) :: auxinput1_begin_h
16751 INTEGER id_id
16752 CHARACTER*80 emess
16753 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16754 WRITE(emess,*)'nl_set_auxinput1_begin_h: Out of range domain number: ',id_id
16755 CALL wrf_error_fatal(emess)
16756 ENDIF
16757 model_config_rec%auxinput1_begin_h(id_id) = auxinput1_begin_h
16758 RETURN
16759 END SUBROUTINE nl_set_auxinput1_begin_h
16760 SUBROUTINE nl_set_auxinput1_begin_m ( id_id , auxinput1_begin_m )
16761 integer , INTENT(IN) :: auxinput1_begin_m
16762 INTEGER id_id
16763 CHARACTER*80 emess
16764 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16765 WRITE(emess,*)'nl_set_auxinput1_begin_m: Out of range domain number: ',id_id
16766 CALL wrf_error_fatal(emess)
16767 ENDIF
16768 model_config_rec%auxinput1_begin_m(id_id) = auxinput1_begin_m
16769 RETURN
16770 END SUBROUTINE nl_set_auxinput1_begin_m
16771 SUBROUTINE nl_set_auxinput1_begin_s ( id_id , auxinput1_begin_s )
16772 integer , INTENT(IN) :: auxinput1_begin_s
16773 INTEGER id_id
16774 CHARACTER*80 emess
16775 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16776 WRITE(emess,*)'nl_set_auxinput1_begin_s: Out of range domain number: ',id_id
16777 CALL wrf_error_fatal(emess)
16778 ENDIF
16779 model_config_rec%auxinput1_begin_s(id_id) = auxinput1_begin_s
16780 RETURN
16781 END SUBROUTINE nl_set_auxinput1_begin_s
16782 SUBROUTINE nl_set_auxinput2_begin_y ( id_id , auxinput2_begin_y )
16783 integer , INTENT(IN) :: auxinput2_begin_y
16784 INTEGER id_id
16785 CHARACTER*80 emess
16786 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16787 WRITE(emess,*)'nl_set_auxinput2_begin_y: Out of range domain number: ',id_id
16788 CALL wrf_error_fatal(emess)
16789 ENDIF
16790 model_config_rec%auxinput2_begin_y(id_id) = auxinput2_begin_y
16791 RETURN
16792 END SUBROUTINE nl_set_auxinput2_begin_y
16793 SUBROUTINE nl_set_auxinput2_begin_mo ( id_id , auxinput2_begin_mo )
16794 integer , INTENT(IN) :: auxinput2_begin_mo
16795 INTEGER id_id
16796 CHARACTER*80 emess
16797 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16798 WRITE(emess,*)'nl_set_auxinput2_begin_mo: Out of range domain number: ',id_id
16799 CALL wrf_error_fatal(emess)
16800 ENDIF
16801 model_config_rec%auxinput2_begin_mo(id_id) = auxinput2_begin_mo
16802 RETURN
16803 END SUBROUTINE nl_set_auxinput2_begin_mo
16804 SUBROUTINE nl_set_auxinput2_begin_d ( id_id , auxinput2_begin_d )
16805 integer , INTENT(IN) :: auxinput2_begin_d
16806 INTEGER id_id
16807 CHARACTER*80 emess
16808 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16809 WRITE(emess,*)'nl_set_auxinput2_begin_d: Out of range domain number: ',id_id
16810 CALL wrf_error_fatal(emess)
16811 ENDIF
16812 model_config_rec%auxinput2_begin_d(id_id) = auxinput2_begin_d
16813 RETURN
16814 END SUBROUTINE nl_set_auxinput2_begin_d
16815 SUBROUTINE nl_set_auxinput2_begin_h ( id_id , auxinput2_begin_h )
16816 integer , INTENT(IN) :: auxinput2_begin_h
16817 INTEGER id_id
16818 CHARACTER*80 emess
16819 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16820 WRITE(emess,*)'nl_set_auxinput2_begin_h: Out of range domain number: ',id_id
16821 CALL wrf_error_fatal(emess)
16822 ENDIF
16823 model_config_rec%auxinput2_begin_h(id_id) = auxinput2_begin_h
16824 RETURN
16825 END SUBROUTINE nl_set_auxinput2_begin_h
16826 SUBROUTINE nl_set_auxinput2_begin_m ( id_id , auxinput2_begin_m )
16827 integer , INTENT(IN) :: auxinput2_begin_m
16828 INTEGER id_id
16829 CHARACTER*80 emess
16830 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16831 WRITE(emess,*)'nl_set_auxinput2_begin_m: Out of range domain number: ',id_id
16832 CALL wrf_error_fatal(emess)
16833 ENDIF
16834 model_config_rec%auxinput2_begin_m(id_id) = auxinput2_begin_m
16835 RETURN
16836 END SUBROUTINE nl_set_auxinput2_begin_m
16837 SUBROUTINE nl_set_auxinput2_begin_s ( id_id , auxinput2_begin_s )
16838 integer , INTENT(IN) :: auxinput2_begin_s
16839 INTEGER id_id
16840 CHARACTER*80 emess
16841 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16842 WRITE(emess,*)'nl_set_auxinput2_begin_s: Out of range domain number: ',id_id
16843 CALL wrf_error_fatal(emess)
16844 ENDIF
16845 model_config_rec%auxinput2_begin_s(id_id) = auxinput2_begin_s
16846 RETURN
16847 END SUBROUTINE nl_set_auxinput2_begin_s
16848 SUBROUTINE nl_set_auxinput3_begin_y ( id_id , auxinput3_begin_y )
16849 integer , INTENT(IN) :: auxinput3_begin_y
16850 INTEGER id_id
16851 CHARACTER*80 emess
16852 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16853 WRITE(emess,*)'nl_set_auxinput3_begin_y: Out of range domain number: ',id_id
16854 CALL wrf_error_fatal(emess)
16855 ENDIF
16856 model_config_rec%auxinput3_begin_y(id_id) = auxinput3_begin_y
16857 RETURN
16858 END SUBROUTINE nl_set_auxinput3_begin_y
16859 SUBROUTINE nl_set_auxinput3_begin_mo ( id_id , auxinput3_begin_mo )
16860 integer , INTENT(IN) :: auxinput3_begin_mo
16861 INTEGER id_id
16862 CHARACTER*80 emess
16863 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16864 WRITE(emess,*)'nl_set_auxinput3_begin_mo: Out of range domain number: ',id_id
16865 CALL wrf_error_fatal(emess)
16866 ENDIF
16867 model_config_rec%auxinput3_begin_mo(id_id) = auxinput3_begin_mo
16868 RETURN
16869 END SUBROUTINE nl_set_auxinput3_begin_mo
16870 SUBROUTINE nl_set_auxinput3_begin_d ( id_id , auxinput3_begin_d )
16871 integer , INTENT(IN) :: auxinput3_begin_d
16872 INTEGER id_id
16873 CHARACTER*80 emess
16874 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16875 WRITE(emess,*)'nl_set_auxinput3_begin_d: Out of range domain number: ',id_id
16876 CALL wrf_error_fatal(emess)
16877 ENDIF
16878 model_config_rec%auxinput3_begin_d(id_id) = auxinput3_begin_d
16879 RETURN
16880 END SUBROUTINE nl_set_auxinput3_begin_d
16881 SUBROUTINE nl_set_auxinput3_begin_h ( id_id , auxinput3_begin_h )
16882 integer , INTENT(IN) :: auxinput3_begin_h
16883 INTEGER id_id
16884 CHARACTER*80 emess
16885 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16886 WRITE(emess,*)'nl_set_auxinput3_begin_h: Out of range domain number: ',id_id
16887 CALL wrf_error_fatal(emess)
16888 ENDIF
16889 model_config_rec%auxinput3_begin_h(id_id) = auxinput3_begin_h
16890 RETURN
16891 END SUBROUTINE nl_set_auxinput3_begin_h
16892 SUBROUTINE nl_set_auxinput3_begin_m ( id_id , auxinput3_begin_m )
16893 integer , INTENT(IN) :: auxinput3_begin_m
16894 INTEGER id_id
16895 CHARACTER*80 emess
16896 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16897 WRITE(emess,*)'nl_set_auxinput3_begin_m: Out of range domain number: ',id_id
16898 CALL wrf_error_fatal(emess)
16899 ENDIF
16900 model_config_rec%auxinput3_begin_m(id_id) = auxinput3_begin_m
16901 RETURN
16902 END SUBROUTINE nl_set_auxinput3_begin_m
16903 SUBROUTINE nl_set_auxinput3_begin_s ( id_id , auxinput3_begin_s )
16904 integer , INTENT(IN) :: auxinput3_begin_s
16905 INTEGER id_id
16906 CHARACTER*80 emess
16907 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16908 WRITE(emess,*)'nl_set_auxinput3_begin_s: Out of range domain number: ',id_id
16909 CALL wrf_error_fatal(emess)
16910 ENDIF
16911 model_config_rec%auxinput3_begin_s(id_id) = auxinput3_begin_s
16912 RETURN
16913 END SUBROUTINE nl_set_auxinput3_begin_s
16914 SUBROUTINE nl_set_auxinput4_begin_y ( id_id , auxinput4_begin_y )
16915 integer , INTENT(IN) :: auxinput4_begin_y
16916 INTEGER id_id
16917 CHARACTER*80 emess
16918 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16919 WRITE(emess,*)'nl_set_auxinput4_begin_y: Out of range domain number: ',id_id
16920 CALL wrf_error_fatal(emess)
16921 ENDIF
16922 model_config_rec%auxinput4_begin_y(id_id) = auxinput4_begin_y
16923 RETURN
16924 END SUBROUTINE nl_set_auxinput4_begin_y
16925 SUBROUTINE nl_set_auxinput4_begin_mo ( id_id , auxinput4_begin_mo )
16926 integer , INTENT(IN) :: auxinput4_begin_mo
16927 INTEGER id_id
16928 CHARACTER*80 emess
16929 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16930 WRITE(emess,*)'nl_set_auxinput4_begin_mo: Out of range domain number: ',id_id
16931 CALL wrf_error_fatal(emess)
16932 ENDIF
16933 model_config_rec%auxinput4_begin_mo(id_id) = auxinput4_begin_mo
16934 RETURN
16935 END SUBROUTINE nl_set_auxinput4_begin_mo
16936 SUBROUTINE nl_set_auxinput4_begin_d ( id_id , auxinput4_begin_d )
16937 integer , INTENT(IN) :: auxinput4_begin_d
16938 INTEGER id_id
16939 CHARACTER*80 emess
16940 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16941 WRITE(emess,*)'nl_set_auxinput4_begin_d: Out of range domain number: ',id_id
16942 CALL wrf_error_fatal(emess)
16943 ENDIF
16944 model_config_rec%auxinput4_begin_d(id_id) = auxinput4_begin_d
16945 RETURN
16946 END SUBROUTINE nl_set_auxinput4_begin_d
16947 SUBROUTINE nl_set_auxinput4_begin_h ( id_id , auxinput4_begin_h )
16948 integer , INTENT(IN) :: auxinput4_begin_h
16949 INTEGER id_id
16950 CHARACTER*80 emess
16951 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16952 WRITE(emess,*)'nl_set_auxinput4_begin_h: Out of range domain number: ',id_id
16953 CALL wrf_error_fatal(emess)
16954 ENDIF
16955 model_config_rec%auxinput4_begin_h(id_id) = auxinput4_begin_h
16956 RETURN
16957 END SUBROUTINE nl_set_auxinput4_begin_h
16958 SUBROUTINE nl_set_auxinput4_begin_m ( id_id , auxinput4_begin_m )
16959 integer , INTENT(IN) :: auxinput4_begin_m
16960 INTEGER id_id
16961 CHARACTER*80 emess
16962 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16963 WRITE(emess,*)'nl_set_auxinput4_begin_m: Out of range domain number: ',id_id
16964 CALL wrf_error_fatal(emess)
16965 ENDIF
16966 model_config_rec%auxinput4_begin_m(id_id) = auxinput4_begin_m
16967 RETURN
16968 END SUBROUTINE nl_set_auxinput4_begin_m
16969 SUBROUTINE nl_set_auxinput4_begin_s ( id_id , auxinput4_begin_s )
16970 integer , INTENT(IN) :: auxinput4_begin_s
16971 INTEGER id_id
16972 CHARACTER*80 emess
16973 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16974 WRITE(emess,*)'nl_set_auxinput4_begin_s: Out of range domain number: ',id_id
16975 CALL wrf_error_fatal(emess)
16976 ENDIF
16977 model_config_rec%auxinput4_begin_s(id_id) = auxinput4_begin_s
16978 RETURN
16979 END SUBROUTINE nl_set_auxinput4_begin_s
16980 SUBROUTINE nl_set_auxinput5_begin_y ( id_id , auxinput5_begin_y )
16981 integer , INTENT(IN) :: auxinput5_begin_y
16982 INTEGER id_id
16983 CHARACTER*80 emess
16984 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16985 WRITE(emess,*)'nl_set_auxinput5_begin_y: Out of range domain number: ',id_id
16986 CALL wrf_error_fatal(emess)
16987 ENDIF
16988 model_config_rec%auxinput5_begin_y(id_id) = auxinput5_begin_y
16989 RETURN
16990 END SUBROUTINE nl_set_auxinput5_begin_y
16991 SUBROUTINE nl_set_auxinput5_begin_mo ( id_id , auxinput5_begin_mo )
16992 integer , INTENT(IN) :: auxinput5_begin_mo
16993 INTEGER id_id
16994 CHARACTER*80 emess
16995 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
16996 WRITE(emess,*)'nl_set_auxinput5_begin_mo: Out of range domain number: ',id_id
16997 CALL wrf_error_fatal(emess)
16998 ENDIF
16999 model_config_rec%auxinput5_begin_mo(id_id) = auxinput5_begin_mo
17000 RETURN
17001 END SUBROUTINE nl_set_auxinput5_begin_mo
17002 SUBROUTINE nl_set_auxinput5_begin_d ( id_id , auxinput5_begin_d )
17003 integer , INTENT(IN) :: auxinput5_begin_d
17004 INTEGER id_id
17005 CHARACTER*80 emess
17006 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17007 WRITE(emess,*)'nl_set_auxinput5_begin_d: Out of range domain number: ',id_id
17008 CALL wrf_error_fatal(emess)
17009 ENDIF
17010 model_config_rec%auxinput5_begin_d(id_id) = auxinput5_begin_d
17011 RETURN
17012 END SUBROUTINE nl_set_auxinput5_begin_d
17013 SUBROUTINE nl_set_auxinput5_begin_h ( id_id , auxinput5_begin_h )
17014 integer , INTENT(IN) :: auxinput5_begin_h
17015 INTEGER id_id
17016 CHARACTER*80 emess
17017 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17018 WRITE(emess,*)'nl_set_auxinput5_begin_h: Out of range domain number: ',id_id
17019 CALL wrf_error_fatal(emess)
17020 ENDIF
17021 model_config_rec%auxinput5_begin_h(id_id) = auxinput5_begin_h
17022 RETURN
17023 END SUBROUTINE nl_set_auxinput5_begin_h
17024 SUBROUTINE nl_set_auxinput5_begin_m ( id_id , auxinput5_begin_m )
17025 integer , INTENT(IN) :: auxinput5_begin_m
17026 INTEGER id_id
17027 CHARACTER*80 emess
17028 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17029 WRITE(emess,*)'nl_set_auxinput5_begin_m: Out of range domain number: ',id_id
17030 CALL wrf_error_fatal(emess)
17031 ENDIF
17032 model_config_rec%auxinput5_begin_m(id_id) = auxinput5_begin_m
17033 RETURN
17034 END SUBROUTINE nl_set_auxinput5_begin_m
17035 SUBROUTINE nl_set_auxinput5_begin_s ( id_id , auxinput5_begin_s )
17036 integer , INTENT(IN) :: auxinput5_begin_s
17037 INTEGER id_id
17038 CHARACTER*80 emess
17039 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17040 WRITE(emess,*)'nl_set_auxinput5_begin_s: Out of range domain number: ',id_id
17041 CALL wrf_error_fatal(emess)
17042 ENDIF
17043 model_config_rec%auxinput5_begin_s(id_id) = auxinput5_begin_s
17044 RETURN
17045 END SUBROUTINE nl_set_auxinput5_begin_s
17046 SUBROUTINE nl_set_auxinput6_begin_y ( id_id , auxinput6_begin_y )
17047 integer , INTENT(IN) :: auxinput6_begin_y
17048 INTEGER id_id
17049 CHARACTER*80 emess
17050 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17051 WRITE(emess,*)'nl_set_auxinput6_begin_y: Out of range domain number: ',id_id
17052 CALL wrf_error_fatal(emess)
17053 ENDIF
17054 model_config_rec%auxinput6_begin_y(id_id) = auxinput6_begin_y
17055 RETURN
17056 END SUBROUTINE nl_set_auxinput6_begin_y
17057 SUBROUTINE nl_set_auxinput6_begin_mo ( id_id , auxinput6_begin_mo )
17058 integer , INTENT(IN) :: auxinput6_begin_mo
17059 INTEGER id_id
17060 CHARACTER*80 emess
17061 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17062 WRITE(emess,*)'nl_set_auxinput6_begin_mo: Out of range domain number: ',id_id
17063 CALL wrf_error_fatal(emess)
17064 ENDIF
17065 model_config_rec%auxinput6_begin_mo(id_id) = auxinput6_begin_mo
17066 RETURN
17067 END SUBROUTINE nl_set_auxinput6_begin_mo
17068 SUBROUTINE nl_set_auxinput6_begin_d ( id_id , auxinput6_begin_d )
17069 integer , INTENT(IN) :: auxinput6_begin_d
17070 INTEGER id_id
17071 CHARACTER*80 emess
17072 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17073 WRITE(emess,*)'nl_set_auxinput6_begin_d: Out of range domain number: ',id_id
17074 CALL wrf_error_fatal(emess)
17075 ENDIF
17076 model_config_rec%auxinput6_begin_d(id_id) = auxinput6_begin_d
17077 RETURN
17078 END SUBROUTINE nl_set_auxinput6_begin_d
17079 SUBROUTINE nl_set_auxinput6_begin_h ( id_id , auxinput6_begin_h )
17080 integer , INTENT(IN) :: auxinput6_begin_h
17081 INTEGER id_id
17082 CHARACTER*80 emess
17083 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17084 WRITE(emess,*)'nl_set_auxinput6_begin_h: Out of range domain number: ',id_id
17085 CALL wrf_error_fatal(emess)
17086 ENDIF
17087 model_config_rec%auxinput6_begin_h(id_id) = auxinput6_begin_h
17088 RETURN
17089 END SUBROUTINE nl_set_auxinput6_begin_h
17090 SUBROUTINE nl_set_auxinput6_begin_m ( id_id , auxinput6_begin_m )
17091 integer , INTENT(IN) :: auxinput6_begin_m
17092 INTEGER id_id
17093 CHARACTER*80 emess
17094 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17095 WRITE(emess,*)'nl_set_auxinput6_begin_m: Out of range domain number: ',id_id
17096 CALL wrf_error_fatal(emess)
17097 ENDIF
17098 model_config_rec%auxinput6_begin_m(id_id) = auxinput6_begin_m
17099 RETURN
17100 END SUBROUTINE nl_set_auxinput6_begin_m
17101 SUBROUTINE nl_set_auxinput6_begin_s ( id_id , auxinput6_begin_s )
17102 integer , INTENT(IN) :: auxinput6_begin_s
17103 INTEGER id_id
17104 CHARACTER*80 emess
17105 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17106 WRITE(emess,*)'nl_set_auxinput6_begin_s: Out of range domain number: ',id_id
17107 CALL wrf_error_fatal(emess)
17108 ENDIF
17109 model_config_rec%auxinput6_begin_s(id_id) = auxinput6_begin_s
17110 RETURN
17111 END SUBROUTINE nl_set_auxinput6_begin_s
17112 SUBROUTINE nl_set_auxinput7_begin_y ( id_id , auxinput7_begin_y )
17113 integer , INTENT(IN) :: auxinput7_begin_y
17114 INTEGER id_id
17115 CHARACTER*80 emess
17116 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17117 WRITE(emess,*)'nl_set_auxinput7_begin_y: Out of range domain number: ',id_id
17118 CALL wrf_error_fatal(emess)
17119 ENDIF
17120 model_config_rec%auxinput7_begin_y(id_id) = auxinput7_begin_y
17121 RETURN
17122 END SUBROUTINE nl_set_auxinput7_begin_y
17123 SUBROUTINE nl_set_auxinput7_begin_mo ( id_id , auxinput7_begin_mo )
17124 integer , INTENT(IN) :: auxinput7_begin_mo
17125 INTEGER id_id
17126 CHARACTER*80 emess
17127 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17128 WRITE(emess,*)'nl_set_auxinput7_begin_mo: Out of range domain number: ',id_id
17129 CALL wrf_error_fatal(emess)
17130 ENDIF
17131 model_config_rec%auxinput7_begin_mo(id_id) = auxinput7_begin_mo
17132 RETURN
17133 END SUBROUTINE nl_set_auxinput7_begin_mo
17134 SUBROUTINE nl_set_auxinput7_begin_d ( id_id , auxinput7_begin_d )
17135 integer , INTENT(IN) :: auxinput7_begin_d
17136 INTEGER id_id
17137 CHARACTER*80 emess
17138 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17139 WRITE(emess,*)'nl_set_auxinput7_begin_d: Out of range domain number: ',id_id
17140 CALL wrf_error_fatal(emess)
17141 ENDIF
17142 model_config_rec%auxinput7_begin_d(id_id) = auxinput7_begin_d
17143 RETURN
17144 END SUBROUTINE nl_set_auxinput7_begin_d
17145 SUBROUTINE nl_set_auxinput7_begin_h ( id_id , auxinput7_begin_h )
17146 integer , INTENT(IN) :: auxinput7_begin_h
17147 INTEGER id_id
17148 CHARACTER*80 emess
17149 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17150 WRITE(emess,*)'nl_set_auxinput7_begin_h: Out of range domain number: ',id_id
17151 CALL wrf_error_fatal(emess)
17152 ENDIF
17153 model_config_rec%auxinput7_begin_h(id_id) = auxinput7_begin_h
17154 RETURN
17155 END SUBROUTINE nl_set_auxinput7_begin_h
17156 SUBROUTINE nl_set_auxinput7_begin_m ( id_id , auxinput7_begin_m )
17157 integer , INTENT(IN) :: auxinput7_begin_m
17158 INTEGER id_id
17159 CHARACTER*80 emess
17160 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17161 WRITE(emess,*)'nl_set_auxinput7_begin_m: Out of range domain number: ',id_id
17162 CALL wrf_error_fatal(emess)
17163 ENDIF
17164 model_config_rec%auxinput7_begin_m(id_id) = auxinput7_begin_m
17165 RETURN
17166 END SUBROUTINE nl_set_auxinput7_begin_m
17167 SUBROUTINE nl_set_auxinput7_begin_s ( id_id , auxinput7_begin_s )
17168 integer , INTENT(IN) :: auxinput7_begin_s
17169 INTEGER id_id
17170 CHARACTER*80 emess
17171 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17172 WRITE(emess,*)'nl_set_auxinput7_begin_s: Out of range domain number: ',id_id
17173 CALL wrf_error_fatal(emess)
17174 ENDIF
17175 model_config_rec%auxinput7_begin_s(id_id) = auxinput7_begin_s
17176 RETURN
17177 END SUBROUTINE nl_set_auxinput7_begin_s
17178 SUBROUTINE nl_set_auxinput8_begin_y ( id_id , auxinput8_begin_y )
17179 integer , INTENT(IN) :: auxinput8_begin_y
17180 INTEGER id_id
17181 CHARACTER*80 emess
17182 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17183 WRITE(emess,*)'nl_set_auxinput8_begin_y: Out of range domain number: ',id_id
17184 CALL wrf_error_fatal(emess)
17185 ENDIF
17186 model_config_rec%auxinput8_begin_y(id_id) = auxinput8_begin_y
17187 RETURN
17188 END SUBROUTINE nl_set_auxinput8_begin_y
17189 SUBROUTINE nl_set_auxinput8_begin_mo ( id_id , auxinput8_begin_mo )
17190 integer , INTENT(IN) :: auxinput8_begin_mo
17191 INTEGER id_id
17192 CHARACTER*80 emess
17193 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17194 WRITE(emess,*)'nl_set_auxinput8_begin_mo: Out of range domain number: ',id_id
17195 CALL wrf_error_fatal(emess)
17196 ENDIF
17197 model_config_rec%auxinput8_begin_mo(id_id) = auxinput8_begin_mo
17198 RETURN
17199 END SUBROUTINE nl_set_auxinput8_begin_mo
17200 SUBROUTINE nl_set_auxinput8_begin_d ( id_id , auxinput8_begin_d )
17201 integer , INTENT(IN) :: auxinput8_begin_d
17202 INTEGER id_id
17203 CHARACTER*80 emess
17204 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17205 WRITE(emess,*)'nl_set_auxinput8_begin_d: Out of range domain number: ',id_id
17206 CALL wrf_error_fatal(emess)
17207 ENDIF
17208 model_config_rec%auxinput8_begin_d(id_id) = auxinput8_begin_d
17209 RETURN
17210 END SUBROUTINE nl_set_auxinput8_begin_d
17211 SUBROUTINE nl_set_auxinput8_begin_h ( id_id , auxinput8_begin_h )
17212 integer , INTENT(IN) :: auxinput8_begin_h
17213 INTEGER id_id
17214 CHARACTER*80 emess
17215 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17216 WRITE(emess,*)'nl_set_auxinput8_begin_h: Out of range domain number: ',id_id
17217 CALL wrf_error_fatal(emess)
17218 ENDIF
17219 model_config_rec%auxinput8_begin_h(id_id) = auxinput8_begin_h
17220 RETURN
17221 END SUBROUTINE nl_set_auxinput8_begin_h
17222 SUBROUTINE nl_set_auxinput8_begin_m ( id_id , auxinput8_begin_m )
17223 integer , INTENT(IN) :: auxinput8_begin_m
17224 INTEGER id_id
17225 CHARACTER*80 emess
17226 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17227 WRITE(emess,*)'nl_set_auxinput8_begin_m: Out of range domain number: ',id_id
17228 CALL wrf_error_fatal(emess)
17229 ENDIF
17230 model_config_rec%auxinput8_begin_m(id_id) = auxinput8_begin_m
17231 RETURN
17232 END SUBROUTINE nl_set_auxinput8_begin_m
17233 SUBROUTINE nl_set_auxinput8_begin_s ( id_id , auxinput8_begin_s )
17234 integer , INTENT(IN) :: auxinput8_begin_s
17235 INTEGER id_id
17236 CHARACTER*80 emess
17237 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17238 WRITE(emess,*)'nl_set_auxinput8_begin_s: Out of range domain number: ',id_id
17239 CALL wrf_error_fatal(emess)
17240 ENDIF
17241 model_config_rec%auxinput8_begin_s(id_id) = auxinput8_begin_s
17242 RETURN
17243 END SUBROUTINE nl_set_auxinput8_begin_s
17244 SUBROUTINE nl_set_auxinput9_begin_y ( id_id , auxinput9_begin_y )
17245 integer , INTENT(IN) :: auxinput9_begin_y
17246 INTEGER id_id
17247 CHARACTER*80 emess
17248 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17249 WRITE(emess,*)'nl_set_auxinput9_begin_y: Out of range domain number: ',id_id
17250 CALL wrf_error_fatal(emess)
17251 ENDIF
17252 model_config_rec%auxinput9_begin_y(id_id) = auxinput9_begin_y
17253 RETURN
17254 END SUBROUTINE nl_set_auxinput9_begin_y
17255 SUBROUTINE nl_set_auxinput9_begin_mo ( id_id , auxinput9_begin_mo )
17256 integer , INTENT(IN) :: auxinput9_begin_mo
17257 INTEGER id_id
17258 CHARACTER*80 emess
17259 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17260 WRITE(emess,*)'nl_set_auxinput9_begin_mo: Out of range domain number: ',id_id
17261 CALL wrf_error_fatal(emess)
17262 ENDIF
17263 model_config_rec%auxinput9_begin_mo(id_id) = auxinput9_begin_mo
17264 RETURN
17265 END SUBROUTINE nl_set_auxinput9_begin_mo
17266 SUBROUTINE nl_set_auxinput9_begin_d ( id_id , auxinput9_begin_d )
17267 integer , INTENT(IN) :: auxinput9_begin_d
17268 INTEGER id_id
17269 CHARACTER*80 emess
17270 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17271 WRITE(emess,*)'nl_set_auxinput9_begin_d: Out of range domain number: ',id_id
17272 CALL wrf_error_fatal(emess)
17273 ENDIF
17274 model_config_rec%auxinput9_begin_d(id_id) = auxinput9_begin_d
17275 RETURN
17276 END SUBROUTINE nl_set_auxinput9_begin_d
17277 SUBROUTINE nl_set_auxinput9_begin_h ( id_id , auxinput9_begin_h )
17278 integer , INTENT(IN) :: auxinput9_begin_h
17279 INTEGER id_id
17280 CHARACTER*80 emess
17281 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17282 WRITE(emess,*)'nl_set_auxinput9_begin_h: Out of range domain number: ',id_id
17283 CALL wrf_error_fatal(emess)
17284 ENDIF
17285 model_config_rec%auxinput9_begin_h(id_id) = auxinput9_begin_h
17286 RETURN
17287 END SUBROUTINE nl_set_auxinput9_begin_h
17288 SUBROUTINE nl_set_auxinput9_begin_m ( id_id , auxinput9_begin_m )
17289 integer , INTENT(IN) :: auxinput9_begin_m
17290 INTEGER id_id
17291 CHARACTER*80 emess
17292 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17293 WRITE(emess,*)'nl_set_auxinput9_begin_m: Out of range domain number: ',id_id
17294 CALL wrf_error_fatal(emess)
17295 ENDIF
17296 model_config_rec%auxinput9_begin_m(id_id) = auxinput9_begin_m
17297 RETURN
17298 END SUBROUTINE nl_set_auxinput9_begin_m
17299 SUBROUTINE nl_set_auxinput9_begin_s ( id_id , auxinput9_begin_s )
17300 integer , INTENT(IN) :: auxinput9_begin_s
17301 INTEGER id_id
17302 CHARACTER*80 emess
17303 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17304 WRITE(emess,*)'nl_set_auxinput9_begin_s: Out of range domain number: ',id_id
17305 CALL wrf_error_fatal(emess)
17306 ENDIF
17307 model_config_rec%auxinput9_begin_s(id_id) = auxinput9_begin_s
17308 RETURN
17309 END SUBROUTINE nl_set_auxinput9_begin_s
17310 SUBROUTINE nl_set_gfdda_begin_y ( id_id , gfdda_begin_y )
17311 integer , INTENT(IN) :: gfdda_begin_y
17312 INTEGER id_id
17313 CHARACTER*80 emess
17314 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17315 WRITE(emess,*)'nl_set_gfdda_begin_y: Out of range domain number: ',id_id
17316 CALL wrf_error_fatal(emess)
17317 ENDIF
17318 model_config_rec%gfdda_begin_y(id_id) = gfdda_begin_y
17319 RETURN
17320 END SUBROUTINE nl_set_gfdda_begin_y
17321 SUBROUTINE nl_set_gfdda_begin_mo ( id_id , gfdda_begin_mo )
17322 integer , INTENT(IN) :: gfdda_begin_mo
17323 INTEGER id_id
17324 CHARACTER*80 emess
17325 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17326 WRITE(emess,*)'nl_set_gfdda_begin_mo: Out of range domain number: ',id_id
17327 CALL wrf_error_fatal(emess)
17328 ENDIF
17329 model_config_rec%gfdda_begin_mo(id_id) = gfdda_begin_mo
17330 RETURN
17331 END SUBROUTINE nl_set_gfdda_begin_mo
17332 SUBROUTINE nl_set_gfdda_begin_d ( id_id , gfdda_begin_d )
17333 integer , INTENT(IN) :: gfdda_begin_d
17334 INTEGER id_id
17335 CHARACTER*80 emess
17336 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17337 WRITE(emess,*)'nl_set_gfdda_begin_d: Out of range domain number: ',id_id
17338 CALL wrf_error_fatal(emess)
17339 ENDIF
17340 model_config_rec%gfdda_begin_d(id_id) = gfdda_begin_d
17341 RETURN
17342 END SUBROUTINE nl_set_gfdda_begin_d
17343 SUBROUTINE nl_set_gfdda_begin_h ( id_id , gfdda_begin_h )
17344 integer , INTENT(IN) :: gfdda_begin_h
17345 INTEGER id_id
17346 CHARACTER*80 emess
17347 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17348 WRITE(emess,*)'nl_set_gfdda_begin_h: Out of range domain number: ',id_id
17349 CALL wrf_error_fatal(emess)
17350 ENDIF
17351 model_config_rec%gfdda_begin_h(id_id) = gfdda_begin_h
17352 RETURN
17353 END SUBROUTINE nl_set_gfdda_begin_h
17354 SUBROUTINE nl_set_gfdda_begin_m ( id_id , gfdda_begin_m )
17355 integer , INTENT(IN) :: gfdda_begin_m
17356 INTEGER id_id
17357 CHARACTER*80 emess
17358 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17359 WRITE(emess,*)'nl_set_gfdda_begin_m: Out of range domain number: ',id_id
17360 CALL wrf_error_fatal(emess)
17361 ENDIF
17362 model_config_rec%gfdda_begin_m(id_id) = gfdda_begin_m
17363 RETURN
17364 END SUBROUTINE nl_set_gfdda_begin_m
17365 SUBROUTINE nl_set_gfdda_begin_s ( id_id , gfdda_begin_s )
17366 integer , INTENT(IN) :: gfdda_begin_s
17367 INTEGER id_id
17368 CHARACTER*80 emess
17369 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17370 WRITE(emess,*)'nl_set_gfdda_begin_s: Out of range domain number: ',id_id
17371 CALL wrf_error_fatal(emess)
17372 ENDIF
17373 model_config_rec%gfdda_begin_s(id_id) = gfdda_begin_s
17374 RETURN
17375 END SUBROUTINE nl_set_gfdda_begin_s
17376 SUBROUTINE nl_set_auxinput11_begin_y ( id_id , auxinput11_begin_y )
17377 integer , INTENT(IN) :: auxinput11_begin_y
17378 INTEGER id_id
17379 CHARACTER*80 emess
17380 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17381 WRITE(emess,*)'nl_set_auxinput11_begin_y: Out of range domain number: ',id_id
17382 CALL wrf_error_fatal(emess)
17383 ENDIF
17384 model_config_rec%auxinput11_begin_y(id_id) = auxinput11_begin_y
17385 RETURN
17386 END SUBROUTINE nl_set_auxinput11_begin_y
17387 SUBROUTINE nl_set_auxinput11_begin_mo ( id_id , auxinput11_begin_mo )
17388 integer , INTENT(IN) :: auxinput11_begin_mo
17389 INTEGER id_id
17390 CHARACTER*80 emess
17391 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17392 WRITE(emess,*)'nl_set_auxinput11_begin_mo: Out of range domain number: ',id_id
17393 CALL wrf_error_fatal(emess)
17394 ENDIF
17395 model_config_rec%auxinput11_begin_mo(id_id) = auxinput11_begin_mo
17396 RETURN
17397 END SUBROUTINE nl_set_auxinput11_begin_mo
17398 SUBROUTINE nl_set_auxinput11_begin_d ( id_id , auxinput11_begin_d )
17399 integer , INTENT(IN) :: auxinput11_begin_d
17400 INTEGER id_id
17401 CHARACTER*80 emess
17402 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17403 WRITE(emess,*)'nl_set_auxinput11_begin_d: Out of range domain number: ',id_id
17404 CALL wrf_error_fatal(emess)
17405 ENDIF
17406 model_config_rec%auxinput11_begin_d(id_id) = auxinput11_begin_d
17407 RETURN
17408 END SUBROUTINE nl_set_auxinput11_begin_d
17409 SUBROUTINE nl_set_auxinput11_begin_h ( id_id , auxinput11_begin_h )
17410 integer , INTENT(IN) :: auxinput11_begin_h
17411 INTEGER id_id
17412 CHARACTER*80 emess
17413 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17414 WRITE(emess,*)'nl_set_auxinput11_begin_h: Out of range domain number: ',id_id
17415 CALL wrf_error_fatal(emess)
17416 ENDIF
17417 model_config_rec%auxinput11_begin_h(id_id) = auxinput11_begin_h
17418 RETURN
17419 END SUBROUTINE nl_set_auxinput11_begin_h
17420 SUBROUTINE nl_set_auxinput11_begin_m ( id_id , auxinput11_begin_m )
17421 integer , INTENT(IN) :: auxinput11_begin_m
17422 INTEGER id_id
17423 CHARACTER*80 emess
17424 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17425 WRITE(emess,*)'nl_set_auxinput11_begin_m: Out of range domain number: ',id_id
17426 CALL wrf_error_fatal(emess)
17427 ENDIF
17428 model_config_rec%auxinput11_begin_m(id_id) = auxinput11_begin_m
17429 RETURN
17430 END SUBROUTINE nl_set_auxinput11_begin_m
17431 SUBROUTINE nl_set_auxinput11_begin_s ( id_id , auxinput11_begin_s )
17432 integer , INTENT(IN) :: auxinput11_begin_s
17433 INTEGER id_id
17434 CHARACTER*80 emess
17435 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17436 WRITE(emess,*)'nl_set_auxinput11_begin_s: Out of range domain number: ',id_id
17437 CALL wrf_error_fatal(emess)
17438 ENDIF
17439 model_config_rec%auxinput11_begin_s(id_id) = auxinput11_begin_s
17440 RETURN
17441 END SUBROUTINE nl_set_auxinput11_begin_s
17442 SUBROUTINE nl_set_restart_begin_y ( id_id , restart_begin_y )
17443 integer , INTENT(IN) :: restart_begin_y
17444 INTEGER id_id
17445 CHARACTER*80 emess
17446 IF ( id_id .NE. 1 ) THEN
17447 call wrf_debug(1,&
17448 'WARNING in nl_set_restart_begin_y: restart_begin_y applies to all domains. First arg ignored.')
17449 ENDIF
17450 model_config_rec%restart_begin_y = restart_begin_y
17451 RETURN
17452 END SUBROUTINE nl_set_restart_begin_y
17453 SUBROUTINE nl_set_restart_begin_mo ( id_id , restart_begin_mo )
17454 integer , INTENT(IN) :: restart_begin_mo
17455 INTEGER id_id
17456 CHARACTER*80 emess
17457 IF ( id_id .NE. 1 ) THEN
17458 call wrf_debug(1,&
17459 'WARNING in nl_set_restart_begin_mo: restart_begin_mo applies to all domains. First arg ignored.')
17460 ENDIF
17461 model_config_rec%restart_begin_mo = restart_begin_mo
17462 RETURN
17463 END SUBROUTINE nl_set_restart_begin_mo
17464 SUBROUTINE nl_set_restart_begin_d ( id_id , restart_begin_d )
17465 integer , INTENT(IN) :: restart_begin_d
17466 INTEGER id_id
17467 CHARACTER*80 emess
17468 IF ( id_id .NE. 1 ) THEN
17469 call wrf_debug(1,&
17470 'WARNING in nl_set_restart_begin_d: restart_begin_d applies to all domains. First arg ignored.')
17471 ENDIF
17472 model_config_rec%restart_begin_d = restart_begin_d
17473 RETURN
17474 END SUBROUTINE nl_set_restart_begin_d
17475 SUBROUTINE nl_set_restart_begin_h ( id_id , restart_begin_h )
17476 integer , INTENT(IN) :: restart_begin_h
17477 INTEGER id_id
17478 CHARACTER*80 emess
17479 IF ( id_id .NE. 1 ) THEN
17480 call wrf_debug(1,&
17481 'WARNING in nl_set_restart_begin_h: restart_begin_h applies to all domains. First arg ignored.')
17482 ENDIF
17483 model_config_rec%restart_begin_h = restart_begin_h
17484 RETURN
17485 END SUBROUTINE nl_set_restart_begin_h
17486 SUBROUTINE nl_set_restart_begin_m ( id_id , restart_begin_m )
17487 integer , INTENT(IN) :: restart_begin_m
17488 INTEGER id_id
17489 CHARACTER*80 emess
17490 IF ( id_id .NE. 1 ) THEN
17491 call wrf_debug(1,&
17492 'WARNING in nl_set_restart_begin_m: restart_begin_m applies to all domains. First arg ignored.')
17493 ENDIF
17494 model_config_rec%restart_begin_m = restart_begin_m
17495 RETURN
17496 END SUBROUTINE nl_set_restart_begin_m
17497 SUBROUTINE nl_set_restart_begin_s ( id_id , restart_begin_s )
17498 integer , INTENT(IN) :: restart_begin_s
17499 INTEGER id_id
17500 CHARACTER*80 emess
17501 IF ( id_id .NE. 1 ) THEN
17502 call wrf_debug(1,&
17503 'WARNING in nl_set_restart_begin_s: restart_begin_s applies to all domains. First arg ignored.')
17504 ENDIF
17505 model_config_rec%restart_begin_s = restart_begin_s
17506 RETURN
17507 END SUBROUTINE nl_set_restart_begin_s
17508 SUBROUTINE nl_set_history_end_y ( id_id , history_end_y )
17509 integer , INTENT(IN) :: history_end_y
17510 INTEGER id_id
17511 CHARACTER*80 emess
17512 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17513 WRITE(emess,*)'nl_set_history_end_y: Out of range domain number: ',id_id
17514 CALL wrf_error_fatal(emess)
17515 ENDIF
17516 model_config_rec%history_end_y(id_id) = history_end_y
17517 RETURN
17518 END SUBROUTINE nl_set_history_end_y
17519 SUBROUTINE nl_set_history_end_mo ( id_id , history_end_mo )
17520 integer , INTENT(IN) :: history_end_mo
17521 INTEGER id_id
17522 CHARACTER*80 emess
17523 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17524 WRITE(emess,*)'nl_set_history_end_mo: Out of range domain number: ',id_id
17525 CALL wrf_error_fatal(emess)
17526 ENDIF
17527 model_config_rec%history_end_mo(id_id) = history_end_mo
17528 RETURN
17529 END SUBROUTINE nl_set_history_end_mo
17530 SUBROUTINE nl_set_history_end_d ( id_id , history_end_d )
17531 integer , INTENT(IN) :: history_end_d
17532 INTEGER id_id
17533 CHARACTER*80 emess
17534 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17535 WRITE(emess,*)'nl_set_history_end_d: Out of range domain number: ',id_id
17536 CALL wrf_error_fatal(emess)
17537 ENDIF
17538 model_config_rec%history_end_d(id_id) = history_end_d
17539 RETURN
17540 END SUBROUTINE nl_set_history_end_d
17541 SUBROUTINE nl_set_history_end_h ( id_id , history_end_h )
17542 integer , INTENT(IN) :: history_end_h
17543 INTEGER id_id
17544 CHARACTER*80 emess
17545 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17546 WRITE(emess,*)'nl_set_history_end_h: Out of range domain number: ',id_id
17547 CALL wrf_error_fatal(emess)
17548 ENDIF
17549 model_config_rec%history_end_h(id_id) = history_end_h
17550 RETURN
17551 END SUBROUTINE nl_set_history_end_h
17552 SUBROUTINE nl_set_history_end_m ( id_id , history_end_m )
17553 integer , INTENT(IN) :: history_end_m
17554 INTEGER id_id
17555 CHARACTER*80 emess
17556 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17557 WRITE(emess,*)'nl_set_history_end_m: Out of range domain number: ',id_id
17558 CALL wrf_error_fatal(emess)
17559 ENDIF
17560 model_config_rec%history_end_m(id_id) = history_end_m
17561 RETURN
17562 END SUBROUTINE nl_set_history_end_m
17563 SUBROUTINE nl_set_history_end_s ( id_id , history_end_s )
17564 integer , INTENT(IN) :: history_end_s
17565 INTEGER id_id
17566 CHARACTER*80 emess
17567 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17568 WRITE(emess,*)'nl_set_history_end_s: Out of range domain number: ',id_id
17569 CALL wrf_error_fatal(emess)
17570 ENDIF
17571 model_config_rec%history_end_s(id_id) = history_end_s
17572 RETURN
17573 END SUBROUTINE nl_set_history_end_s
17574 SUBROUTINE nl_set_inputout_end_y ( id_id , inputout_end_y )
17575 integer , INTENT(IN) :: inputout_end_y
17576 INTEGER id_id
17577 CHARACTER*80 emess
17578 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17579 WRITE(emess,*)'nl_set_inputout_end_y: Out of range domain number: ',id_id
17580 CALL wrf_error_fatal(emess)
17581 ENDIF
17582 model_config_rec%inputout_end_y(id_id) = inputout_end_y
17583 RETURN
17584 END SUBROUTINE nl_set_inputout_end_y
17585 SUBROUTINE nl_set_inputout_end_mo ( id_id , inputout_end_mo )
17586 integer , INTENT(IN) :: inputout_end_mo
17587 INTEGER id_id
17588 CHARACTER*80 emess
17589 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17590 WRITE(emess,*)'nl_set_inputout_end_mo: Out of range domain number: ',id_id
17591 CALL wrf_error_fatal(emess)
17592 ENDIF
17593 model_config_rec%inputout_end_mo(id_id) = inputout_end_mo
17594 RETURN
17595 END SUBROUTINE nl_set_inputout_end_mo
17596 SUBROUTINE nl_set_inputout_end_d ( id_id , inputout_end_d )
17597 integer , INTENT(IN) :: inputout_end_d
17598 INTEGER id_id
17599 CHARACTER*80 emess
17600 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17601 WRITE(emess,*)'nl_set_inputout_end_d: Out of range domain number: ',id_id
17602 CALL wrf_error_fatal(emess)
17603 ENDIF
17604 model_config_rec%inputout_end_d(id_id) = inputout_end_d
17605 RETURN
17606 END SUBROUTINE nl_set_inputout_end_d
17607 SUBROUTINE nl_set_inputout_end_h ( id_id , inputout_end_h )
17608 integer , INTENT(IN) :: inputout_end_h
17609 INTEGER id_id
17610 CHARACTER*80 emess
17611 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17612 WRITE(emess,*)'nl_set_inputout_end_h: Out of range domain number: ',id_id
17613 CALL wrf_error_fatal(emess)
17614 ENDIF
17615 model_config_rec%inputout_end_h(id_id) = inputout_end_h
17616 RETURN
17617 END SUBROUTINE nl_set_inputout_end_h
17618 SUBROUTINE nl_set_inputout_end_m ( id_id , inputout_end_m )
17619 integer , INTENT(IN) :: inputout_end_m
17620 INTEGER id_id
17621 CHARACTER*80 emess
17622 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17623 WRITE(emess,*)'nl_set_inputout_end_m: Out of range domain number: ',id_id
17624 CALL wrf_error_fatal(emess)
17625 ENDIF
17626 model_config_rec%inputout_end_m(id_id) = inputout_end_m
17627 RETURN
17628 END SUBROUTINE nl_set_inputout_end_m
17629 SUBROUTINE nl_set_inputout_end_s ( id_id , inputout_end_s )
17630 integer , INTENT(IN) :: inputout_end_s
17631 INTEGER id_id
17632 CHARACTER*80 emess
17633 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17634 WRITE(emess,*)'nl_set_inputout_end_s: Out of range domain number: ',id_id
17635 CALL wrf_error_fatal(emess)
17636 ENDIF
17637 model_config_rec%inputout_end_s(id_id) = inputout_end_s
17638 RETURN
17639 END SUBROUTINE nl_set_inputout_end_s
17640 SUBROUTINE nl_set_auxhist1_end_y ( id_id , auxhist1_end_y )
17641 integer , INTENT(IN) :: auxhist1_end_y
17642 INTEGER id_id
17643 CHARACTER*80 emess
17644 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17645 WRITE(emess,*)'nl_set_auxhist1_end_y: Out of range domain number: ',id_id
17646 CALL wrf_error_fatal(emess)
17647 ENDIF
17648 model_config_rec%auxhist1_end_y(id_id) = auxhist1_end_y
17649 RETURN
17650 END SUBROUTINE nl_set_auxhist1_end_y
17651 SUBROUTINE nl_set_auxhist1_end_mo ( id_id , auxhist1_end_mo )
17652 integer , INTENT(IN) :: auxhist1_end_mo
17653 INTEGER id_id
17654 CHARACTER*80 emess
17655 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17656 WRITE(emess,*)'nl_set_auxhist1_end_mo: Out of range domain number: ',id_id
17657 CALL wrf_error_fatal(emess)
17658 ENDIF
17659 model_config_rec%auxhist1_end_mo(id_id) = auxhist1_end_mo
17660 RETURN
17661 END SUBROUTINE nl_set_auxhist1_end_mo
17662 SUBROUTINE nl_set_auxhist1_end_d ( id_id , auxhist1_end_d )
17663 integer , INTENT(IN) :: auxhist1_end_d
17664 INTEGER id_id
17665 CHARACTER*80 emess
17666 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17667 WRITE(emess,*)'nl_set_auxhist1_end_d: Out of range domain number: ',id_id
17668 CALL wrf_error_fatal(emess)
17669 ENDIF
17670 model_config_rec%auxhist1_end_d(id_id) = auxhist1_end_d
17671 RETURN
17672 END SUBROUTINE nl_set_auxhist1_end_d
17673 SUBROUTINE nl_set_auxhist1_end_h ( id_id , auxhist1_end_h )
17674 integer , INTENT(IN) :: auxhist1_end_h
17675 INTEGER id_id
17676 CHARACTER*80 emess
17677 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17678 WRITE(emess,*)'nl_set_auxhist1_end_h: Out of range domain number: ',id_id
17679 CALL wrf_error_fatal(emess)
17680 ENDIF
17681 model_config_rec%auxhist1_end_h(id_id) = auxhist1_end_h
17682 RETURN
17683 END SUBROUTINE nl_set_auxhist1_end_h
17684 SUBROUTINE nl_set_auxhist1_end_m ( id_id , auxhist1_end_m )
17685 integer , INTENT(IN) :: auxhist1_end_m
17686 INTEGER id_id
17687 CHARACTER*80 emess
17688 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17689 WRITE(emess,*)'nl_set_auxhist1_end_m: Out of range domain number: ',id_id
17690 CALL wrf_error_fatal(emess)
17691 ENDIF
17692 model_config_rec%auxhist1_end_m(id_id) = auxhist1_end_m
17693 RETURN
17694 END SUBROUTINE nl_set_auxhist1_end_m
17695 SUBROUTINE nl_set_auxhist1_end_s ( id_id , auxhist1_end_s )
17696 integer , INTENT(IN) :: auxhist1_end_s
17697 INTEGER id_id
17698 CHARACTER*80 emess
17699 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17700 WRITE(emess,*)'nl_set_auxhist1_end_s: Out of range domain number: ',id_id
17701 CALL wrf_error_fatal(emess)
17702 ENDIF
17703 model_config_rec%auxhist1_end_s(id_id) = auxhist1_end_s
17704 RETURN
17705 END SUBROUTINE nl_set_auxhist1_end_s
17706 SUBROUTINE nl_set_auxhist2_end_y ( id_id , auxhist2_end_y )
17707 integer , INTENT(IN) :: auxhist2_end_y
17708 INTEGER id_id
17709 CHARACTER*80 emess
17710 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17711 WRITE(emess,*)'nl_set_auxhist2_end_y: Out of range domain number: ',id_id
17712 CALL wrf_error_fatal(emess)
17713 ENDIF
17714 model_config_rec%auxhist2_end_y(id_id) = auxhist2_end_y
17715 RETURN
17716 END SUBROUTINE nl_set_auxhist2_end_y
17717 SUBROUTINE nl_set_auxhist2_end_mo ( id_id , auxhist2_end_mo )
17718 integer , INTENT(IN) :: auxhist2_end_mo
17719 INTEGER id_id
17720 CHARACTER*80 emess
17721 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17722 WRITE(emess,*)'nl_set_auxhist2_end_mo: Out of range domain number: ',id_id
17723 CALL wrf_error_fatal(emess)
17724 ENDIF
17725 model_config_rec%auxhist2_end_mo(id_id) = auxhist2_end_mo
17726 RETURN
17727 END SUBROUTINE nl_set_auxhist2_end_mo
17728 SUBROUTINE nl_set_auxhist2_end_d ( id_id , auxhist2_end_d )
17729 integer , INTENT(IN) :: auxhist2_end_d
17730 INTEGER id_id
17731 CHARACTER*80 emess
17732 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17733 WRITE(emess,*)'nl_set_auxhist2_end_d: Out of range domain number: ',id_id
17734 CALL wrf_error_fatal(emess)
17735 ENDIF
17736 model_config_rec%auxhist2_end_d(id_id) = auxhist2_end_d
17737 RETURN
17738 END SUBROUTINE nl_set_auxhist2_end_d
17739 SUBROUTINE nl_set_auxhist2_end_h ( id_id , auxhist2_end_h )
17740 integer , INTENT(IN) :: auxhist2_end_h
17741 INTEGER id_id
17742 CHARACTER*80 emess
17743 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17744 WRITE(emess,*)'nl_set_auxhist2_end_h: Out of range domain number: ',id_id
17745 CALL wrf_error_fatal(emess)
17746 ENDIF
17747 model_config_rec%auxhist2_end_h(id_id) = auxhist2_end_h
17748 RETURN
17749 END SUBROUTINE nl_set_auxhist2_end_h
17750 SUBROUTINE nl_set_auxhist2_end_m ( id_id , auxhist2_end_m )
17751 integer , INTENT(IN) :: auxhist2_end_m
17752 INTEGER id_id
17753 CHARACTER*80 emess
17754 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17755 WRITE(emess,*)'nl_set_auxhist2_end_m: Out of range domain number: ',id_id
17756 CALL wrf_error_fatal(emess)
17757 ENDIF
17758 model_config_rec%auxhist2_end_m(id_id) = auxhist2_end_m
17759 RETURN
17760 END SUBROUTINE nl_set_auxhist2_end_m
17761 SUBROUTINE nl_set_auxhist2_end_s ( id_id , auxhist2_end_s )
17762 integer , INTENT(IN) :: auxhist2_end_s
17763 INTEGER id_id
17764 CHARACTER*80 emess
17765 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17766 WRITE(emess,*)'nl_set_auxhist2_end_s: Out of range domain number: ',id_id
17767 CALL wrf_error_fatal(emess)
17768 ENDIF
17769 model_config_rec%auxhist2_end_s(id_id) = auxhist2_end_s
17770 RETURN
17771 END SUBROUTINE nl_set_auxhist2_end_s
17772 SUBROUTINE nl_set_auxhist3_end_y ( id_id , auxhist3_end_y )
17773 integer , INTENT(IN) :: auxhist3_end_y
17774 INTEGER id_id
17775 CHARACTER*80 emess
17776 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17777 WRITE(emess,*)'nl_set_auxhist3_end_y: Out of range domain number: ',id_id
17778 CALL wrf_error_fatal(emess)
17779 ENDIF
17780 model_config_rec%auxhist3_end_y(id_id) = auxhist3_end_y
17781 RETURN
17782 END SUBROUTINE nl_set_auxhist3_end_y
17783 SUBROUTINE nl_set_auxhist3_end_mo ( id_id , auxhist3_end_mo )
17784 integer , INTENT(IN) :: auxhist3_end_mo
17785 INTEGER id_id
17786 CHARACTER*80 emess
17787 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17788 WRITE(emess,*)'nl_set_auxhist3_end_mo: Out of range domain number: ',id_id
17789 CALL wrf_error_fatal(emess)
17790 ENDIF
17791 model_config_rec%auxhist3_end_mo(id_id) = auxhist3_end_mo
17792 RETURN
17793 END SUBROUTINE nl_set_auxhist3_end_mo
17794 SUBROUTINE nl_set_auxhist3_end_d ( id_id , auxhist3_end_d )
17795 integer , INTENT(IN) :: auxhist3_end_d
17796 INTEGER id_id
17797 CHARACTER*80 emess
17798 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17799 WRITE(emess,*)'nl_set_auxhist3_end_d: Out of range domain number: ',id_id
17800 CALL wrf_error_fatal(emess)
17801 ENDIF
17802 model_config_rec%auxhist3_end_d(id_id) = auxhist3_end_d
17803 RETURN
17804 END SUBROUTINE nl_set_auxhist3_end_d
17805 SUBROUTINE nl_set_auxhist3_end_h ( id_id , auxhist3_end_h )
17806 integer , INTENT(IN) :: auxhist3_end_h
17807 INTEGER id_id
17808 CHARACTER*80 emess
17809 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17810 WRITE(emess,*)'nl_set_auxhist3_end_h: Out of range domain number: ',id_id
17811 CALL wrf_error_fatal(emess)
17812 ENDIF
17813 model_config_rec%auxhist3_end_h(id_id) = auxhist3_end_h
17814 RETURN
17815 END SUBROUTINE nl_set_auxhist3_end_h
17816 SUBROUTINE nl_set_auxhist3_end_m ( id_id , auxhist3_end_m )
17817 integer , INTENT(IN) :: auxhist3_end_m
17818 INTEGER id_id
17819 CHARACTER*80 emess
17820 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17821 WRITE(emess,*)'nl_set_auxhist3_end_m: Out of range domain number: ',id_id
17822 CALL wrf_error_fatal(emess)
17823 ENDIF
17824 model_config_rec%auxhist3_end_m(id_id) = auxhist3_end_m
17825 RETURN
17826 END SUBROUTINE nl_set_auxhist3_end_m
17827 SUBROUTINE nl_set_auxhist3_end_s ( id_id , auxhist3_end_s )
17828 integer , INTENT(IN) :: auxhist3_end_s
17829 INTEGER id_id
17830 CHARACTER*80 emess
17831 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17832 WRITE(emess,*)'nl_set_auxhist3_end_s: Out of range domain number: ',id_id
17833 CALL wrf_error_fatal(emess)
17834 ENDIF
17835 model_config_rec%auxhist3_end_s(id_id) = auxhist3_end_s
17836 RETURN
17837 END SUBROUTINE nl_set_auxhist3_end_s
17838 SUBROUTINE nl_set_auxhist4_end_y ( id_id , auxhist4_end_y )
17839 integer , INTENT(IN) :: auxhist4_end_y
17840 INTEGER id_id
17841 CHARACTER*80 emess
17842 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17843 WRITE(emess,*)'nl_set_auxhist4_end_y: Out of range domain number: ',id_id
17844 CALL wrf_error_fatal(emess)
17845 ENDIF
17846 model_config_rec%auxhist4_end_y(id_id) = auxhist4_end_y
17847 RETURN
17848 END SUBROUTINE nl_set_auxhist4_end_y
17849 SUBROUTINE nl_set_auxhist4_end_mo ( id_id , auxhist4_end_mo )
17850 integer , INTENT(IN) :: auxhist4_end_mo
17851 INTEGER id_id
17852 CHARACTER*80 emess
17853 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17854 WRITE(emess,*)'nl_set_auxhist4_end_mo: Out of range domain number: ',id_id
17855 CALL wrf_error_fatal(emess)
17856 ENDIF
17857 model_config_rec%auxhist4_end_mo(id_id) = auxhist4_end_mo
17858 RETURN
17859 END SUBROUTINE nl_set_auxhist4_end_mo
17860 SUBROUTINE nl_set_auxhist4_end_d ( id_id , auxhist4_end_d )
17861 integer , INTENT(IN) :: auxhist4_end_d
17862 INTEGER id_id
17863 CHARACTER*80 emess
17864 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17865 WRITE(emess,*)'nl_set_auxhist4_end_d: Out of range domain number: ',id_id
17866 CALL wrf_error_fatal(emess)
17867 ENDIF
17868 model_config_rec%auxhist4_end_d(id_id) = auxhist4_end_d
17869 RETURN
17870 END SUBROUTINE nl_set_auxhist4_end_d
17871 SUBROUTINE nl_set_auxhist4_end_h ( id_id , auxhist4_end_h )
17872 integer , INTENT(IN) :: auxhist4_end_h
17873 INTEGER id_id
17874 CHARACTER*80 emess
17875 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17876 WRITE(emess,*)'nl_set_auxhist4_end_h: Out of range domain number: ',id_id
17877 CALL wrf_error_fatal(emess)
17878 ENDIF
17879 model_config_rec%auxhist4_end_h(id_id) = auxhist4_end_h
17880 RETURN
17881 END SUBROUTINE nl_set_auxhist4_end_h
17882 SUBROUTINE nl_set_auxhist4_end_m ( id_id , auxhist4_end_m )
17883 integer , INTENT(IN) :: auxhist4_end_m
17884 INTEGER id_id
17885 CHARACTER*80 emess
17886 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17887 WRITE(emess,*)'nl_set_auxhist4_end_m: Out of range domain number: ',id_id
17888 CALL wrf_error_fatal(emess)
17889 ENDIF
17890 model_config_rec%auxhist4_end_m(id_id) = auxhist4_end_m
17891 RETURN
17892 END SUBROUTINE nl_set_auxhist4_end_m
17893 SUBROUTINE nl_set_auxhist4_end_s ( id_id , auxhist4_end_s )
17894 integer , INTENT(IN) :: auxhist4_end_s
17895 INTEGER id_id
17896 CHARACTER*80 emess
17897 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17898 WRITE(emess,*)'nl_set_auxhist4_end_s: Out of range domain number: ',id_id
17899 CALL wrf_error_fatal(emess)
17900 ENDIF
17901 model_config_rec%auxhist4_end_s(id_id) = auxhist4_end_s
17902 RETURN
17903 END SUBROUTINE nl_set_auxhist4_end_s
17904 SUBROUTINE nl_set_auxhist5_end_y ( id_id , auxhist5_end_y )
17905 integer , INTENT(IN) :: auxhist5_end_y
17906 INTEGER id_id
17907 CHARACTER*80 emess
17908 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17909 WRITE(emess,*)'nl_set_auxhist5_end_y: Out of range domain number: ',id_id
17910 CALL wrf_error_fatal(emess)
17911 ENDIF
17912 model_config_rec%auxhist5_end_y(id_id) = auxhist5_end_y
17913 RETURN
17914 END SUBROUTINE nl_set_auxhist5_end_y
17915 SUBROUTINE nl_set_auxhist5_end_mo ( id_id , auxhist5_end_mo )
17916 integer , INTENT(IN) :: auxhist5_end_mo
17917 INTEGER id_id
17918 CHARACTER*80 emess
17919 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17920 WRITE(emess,*)'nl_set_auxhist5_end_mo: Out of range domain number: ',id_id
17921 CALL wrf_error_fatal(emess)
17922 ENDIF
17923 model_config_rec%auxhist5_end_mo(id_id) = auxhist5_end_mo
17924 RETURN
17925 END SUBROUTINE nl_set_auxhist5_end_mo
17926 SUBROUTINE nl_set_auxhist5_end_d ( id_id , auxhist5_end_d )
17927 integer , INTENT(IN) :: auxhist5_end_d
17928 INTEGER id_id
17929 CHARACTER*80 emess
17930 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17931 WRITE(emess,*)'nl_set_auxhist5_end_d: Out of range domain number: ',id_id
17932 CALL wrf_error_fatal(emess)
17933 ENDIF
17934 model_config_rec%auxhist5_end_d(id_id) = auxhist5_end_d
17935 RETURN
17936 END SUBROUTINE nl_set_auxhist5_end_d
17937 SUBROUTINE nl_set_auxhist5_end_h ( id_id , auxhist5_end_h )
17938 integer , INTENT(IN) :: auxhist5_end_h
17939 INTEGER id_id
17940 CHARACTER*80 emess
17941 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17942 WRITE(emess,*)'nl_set_auxhist5_end_h: Out of range domain number: ',id_id
17943 CALL wrf_error_fatal(emess)
17944 ENDIF
17945 model_config_rec%auxhist5_end_h(id_id) = auxhist5_end_h
17946 RETURN
17947 END SUBROUTINE nl_set_auxhist5_end_h
17948 SUBROUTINE nl_set_auxhist5_end_m ( id_id , auxhist5_end_m )
17949 integer , INTENT(IN) :: auxhist5_end_m
17950 INTEGER id_id
17951 CHARACTER*80 emess
17952 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17953 WRITE(emess,*)'nl_set_auxhist5_end_m: Out of range domain number: ',id_id
17954 CALL wrf_error_fatal(emess)
17955 ENDIF
17956 model_config_rec%auxhist5_end_m(id_id) = auxhist5_end_m
17957 RETURN
17958 END SUBROUTINE nl_set_auxhist5_end_m
17959 SUBROUTINE nl_set_auxhist5_end_s ( id_id , auxhist5_end_s )
17960 integer , INTENT(IN) :: auxhist5_end_s
17961 INTEGER id_id
17962 CHARACTER*80 emess
17963 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17964 WRITE(emess,*)'nl_set_auxhist5_end_s: Out of range domain number: ',id_id
17965 CALL wrf_error_fatal(emess)
17966 ENDIF
17967 model_config_rec%auxhist5_end_s(id_id) = auxhist5_end_s
17968 RETURN
17969 END SUBROUTINE nl_set_auxhist5_end_s
17970 SUBROUTINE nl_set_auxhist6_end_y ( id_id , auxhist6_end_y )
17971 integer , INTENT(IN) :: auxhist6_end_y
17972 INTEGER id_id
17973 CHARACTER*80 emess
17974 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17975 WRITE(emess,*)'nl_set_auxhist6_end_y: Out of range domain number: ',id_id
17976 CALL wrf_error_fatal(emess)
17977 ENDIF
17978 model_config_rec%auxhist6_end_y(id_id) = auxhist6_end_y
17979 RETURN
17980 END SUBROUTINE nl_set_auxhist6_end_y
17981 SUBROUTINE nl_set_auxhist6_end_mo ( id_id , auxhist6_end_mo )
17982 integer , INTENT(IN) :: auxhist6_end_mo
17983 INTEGER id_id
17984 CHARACTER*80 emess
17985 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17986 WRITE(emess,*)'nl_set_auxhist6_end_mo: Out of range domain number: ',id_id
17987 CALL wrf_error_fatal(emess)
17988 ENDIF
17989 model_config_rec%auxhist6_end_mo(id_id) = auxhist6_end_mo
17990 RETURN
17991 END SUBROUTINE nl_set_auxhist6_end_mo
17992 SUBROUTINE nl_set_auxhist6_end_d ( id_id , auxhist6_end_d )
17993 integer , INTENT(IN) :: auxhist6_end_d
17994 INTEGER id_id
17995 CHARACTER*80 emess
17996 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
17997 WRITE(emess,*)'nl_set_auxhist6_end_d: Out of range domain number: ',id_id
17998 CALL wrf_error_fatal(emess)
17999 ENDIF
18000 model_config_rec%auxhist6_end_d(id_id) = auxhist6_end_d
18001 RETURN
18002 END SUBROUTINE nl_set_auxhist6_end_d
18003 SUBROUTINE nl_set_auxhist6_end_h ( id_id , auxhist6_end_h )
18004 integer , INTENT(IN) :: auxhist6_end_h
18005 INTEGER id_id
18006 CHARACTER*80 emess
18007 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18008 WRITE(emess,*)'nl_set_auxhist6_end_h: Out of range domain number: ',id_id
18009 CALL wrf_error_fatal(emess)
18010 ENDIF
18011 model_config_rec%auxhist6_end_h(id_id) = auxhist6_end_h
18012 RETURN
18013 END SUBROUTINE nl_set_auxhist6_end_h
18014 SUBROUTINE nl_set_auxhist6_end_m ( id_id , auxhist6_end_m )
18015 integer , INTENT(IN) :: auxhist6_end_m
18016 INTEGER id_id
18017 CHARACTER*80 emess
18018 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18019 WRITE(emess,*)'nl_set_auxhist6_end_m: Out of range domain number: ',id_id
18020 CALL wrf_error_fatal(emess)
18021 ENDIF
18022 model_config_rec%auxhist6_end_m(id_id) = auxhist6_end_m
18023 RETURN
18024 END SUBROUTINE nl_set_auxhist6_end_m
18025 SUBROUTINE nl_set_auxhist6_end_s ( id_id , auxhist6_end_s )
18026 integer , INTENT(IN) :: auxhist6_end_s
18027 INTEGER id_id
18028 CHARACTER*80 emess
18029 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18030 WRITE(emess,*)'nl_set_auxhist6_end_s: Out of range domain number: ',id_id
18031 CALL wrf_error_fatal(emess)
18032 ENDIF
18033 model_config_rec%auxhist6_end_s(id_id) = auxhist6_end_s
18034 RETURN
18035 END SUBROUTINE nl_set_auxhist6_end_s
18036 SUBROUTINE nl_set_auxhist7_end_y ( id_id , auxhist7_end_y )
18037 integer , INTENT(IN) :: auxhist7_end_y
18038 INTEGER id_id
18039 CHARACTER*80 emess
18040 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18041 WRITE(emess,*)'nl_set_auxhist7_end_y: Out of range domain number: ',id_id
18042 CALL wrf_error_fatal(emess)
18043 ENDIF
18044 model_config_rec%auxhist7_end_y(id_id) = auxhist7_end_y
18045 RETURN
18046 END SUBROUTINE nl_set_auxhist7_end_y
18047 SUBROUTINE nl_set_auxhist7_end_mo ( id_id , auxhist7_end_mo )
18048 integer , INTENT(IN) :: auxhist7_end_mo
18049 INTEGER id_id
18050 CHARACTER*80 emess
18051 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18052 WRITE(emess,*)'nl_set_auxhist7_end_mo: Out of range domain number: ',id_id
18053 CALL wrf_error_fatal(emess)
18054 ENDIF
18055 model_config_rec%auxhist7_end_mo(id_id) = auxhist7_end_mo
18056 RETURN
18057 END SUBROUTINE nl_set_auxhist7_end_mo
18058 SUBROUTINE nl_set_auxhist7_end_d ( id_id , auxhist7_end_d )
18059 integer , INTENT(IN) :: auxhist7_end_d
18060 INTEGER id_id
18061 CHARACTER*80 emess
18062 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18063 WRITE(emess,*)'nl_set_auxhist7_end_d: Out of range domain number: ',id_id
18064 CALL wrf_error_fatal(emess)
18065 ENDIF
18066 model_config_rec%auxhist7_end_d(id_id) = auxhist7_end_d
18067 RETURN
18068 END SUBROUTINE nl_set_auxhist7_end_d
18069 SUBROUTINE nl_set_auxhist7_end_h ( id_id , auxhist7_end_h )
18070 integer , INTENT(IN) :: auxhist7_end_h
18071 INTEGER id_id
18072 CHARACTER*80 emess
18073 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18074 WRITE(emess,*)'nl_set_auxhist7_end_h: Out of range domain number: ',id_id
18075 CALL wrf_error_fatal(emess)
18076 ENDIF
18077 model_config_rec%auxhist7_end_h(id_id) = auxhist7_end_h
18078 RETURN
18079 END SUBROUTINE nl_set_auxhist7_end_h
18080 SUBROUTINE nl_set_auxhist7_end_m ( id_id , auxhist7_end_m )
18081 integer , INTENT(IN) :: auxhist7_end_m
18082 INTEGER id_id
18083 CHARACTER*80 emess
18084 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18085 WRITE(emess,*)'nl_set_auxhist7_end_m: Out of range domain number: ',id_id
18086 CALL wrf_error_fatal(emess)
18087 ENDIF
18088 model_config_rec%auxhist7_end_m(id_id) = auxhist7_end_m
18089 RETURN
18090 END SUBROUTINE nl_set_auxhist7_end_m
18091 SUBROUTINE nl_set_auxhist7_end_s ( id_id , auxhist7_end_s )
18092 integer , INTENT(IN) :: auxhist7_end_s
18093 INTEGER id_id
18094 CHARACTER*80 emess
18095 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18096 WRITE(emess,*)'nl_set_auxhist7_end_s: Out of range domain number: ',id_id
18097 CALL wrf_error_fatal(emess)
18098 ENDIF
18099 model_config_rec%auxhist7_end_s(id_id) = auxhist7_end_s
18100 RETURN
18101 END SUBROUTINE nl_set_auxhist7_end_s
18102 SUBROUTINE nl_set_auxhist8_end_y ( id_id , auxhist8_end_y )
18103 integer , INTENT(IN) :: auxhist8_end_y
18104 INTEGER id_id
18105 CHARACTER*80 emess
18106 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18107 WRITE(emess,*)'nl_set_auxhist8_end_y: Out of range domain number: ',id_id
18108 CALL wrf_error_fatal(emess)
18109 ENDIF
18110 model_config_rec%auxhist8_end_y(id_id) = auxhist8_end_y
18111 RETURN
18112 END SUBROUTINE nl_set_auxhist8_end_y
18113 SUBROUTINE nl_set_auxhist8_end_mo ( id_id , auxhist8_end_mo )
18114 integer , INTENT(IN) :: auxhist8_end_mo
18115 INTEGER id_id
18116 CHARACTER*80 emess
18117 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18118 WRITE(emess,*)'nl_set_auxhist8_end_mo: Out of range domain number: ',id_id
18119 CALL wrf_error_fatal(emess)
18120 ENDIF
18121 model_config_rec%auxhist8_end_mo(id_id) = auxhist8_end_mo
18122 RETURN
18123 END SUBROUTINE nl_set_auxhist8_end_mo
18124 SUBROUTINE nl_set_auxhist8_end_d ( id_id , auxhist8_end_d )
18125 integer , INTENT(IN) :: auxhist8_end_d
18126 INTEGER id_id
18127 CHARACTER*80 emess
18128 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18129 WRITE(emess,*)'nl_set_auxhist8_end_d: Out of range domain number: ',id_id
18130 CALL wrf_error_fatal(emess)
18131 ENDIF
18132 model_config_rec%auxhist8_end_d(id_id) = auxhist8_end_d
18133 RETURN
18134 END SUBROUTINE nl_set_auxhist8_end_d
18135 SUBROUTINE nl_set_auxhist8_end_h ( id_id , auxhist8_end_h )
18136 integer , INTENT(IN) :: auxhist8_end_h
18137 INTEGER id_id
18138 CHARACTER*80 emess
18139 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18140 WRITE(emess,*)'nl_set_auxhist8_end_h: Out of range domain number: ',id_id
18141 CALL wrf_error_fatal(emess)
18142 ENDIF
18143 model_config_rec%auxhist8_end_h(id_id) = auxhist8_end_h
18144 RETURN
18145 END SUBROUTINE nl_set_auxhist8_end_h
18146 SUBROUTINE nl_set_auxhist8_end_m ( id_id , auxhist8_end_m )
18147 integer , INTENT(IN) :: auxhist8_end_m
18148 INTEGER id_id
18149 CHARACTER*80 emess
18150 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18151 WRITE(emess,*)'nl_set_auxhist8_end_m: Out of range domain number: ',id_id
18152 CALL wrf_error_fatal(emess)
18153 ENDIF
18154 model_config_rec%auxhist8_end_m(id_id) = auxhist8_end_m
18155 RETURN
18156 END SUBROUTINE nl_set_auxhist8_end_m
18157 SUBROUTINE nl_set_auxhist8_end_s ( id_id , auxhist8_end_s )
18158 integer , INTENT(IN) :: auxhist8_end_s
18159 INTEGER id_id
18160 CHARACTER*80 emess
18161 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18162 WRITE(emess,*)'nl_set_auxhist8_end_s: Out of range domain number: ',id_id
18163 CALL wrf_error_fatal(emess)
18164 ENDIF
18165 model_config_rec%auxhist8_end_s(id_id) = auxhist8_end_s
18166 RETURN
18167 END SUBROUTINE nl_set_auxhist8_end_s
18168 SUBROUTINE nl_set_auxhist9_end_y ( id_id , auxhist9_end_y )
18169 integer , INTENT(IN) :: auxhist9_end_y
18170 INTEGER id_id
18171 CHARACTER*80 emess
18172 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18173 WRITE(emess,*)'nl_set_auxhist9_end_y: Out of range domain number: ',id_id
18174 CALL wrf_error_fatal(emess)
18175 ENDIF
18176 model_config_rec%auxhist9_end_y(id_id) = auxhist9_end_y
18177 RETURN
18178 END SUBROUTINE nl_set_auxhist9_end_y
18179 SUBROUTINE nl_set_auxhist9_end_mo ( id_id , auxhist9_end_mo )
18180 integer , INTENT(IN) :: auxhist9_end_mo
18181 INTEGER id_id
18182 CHARACTER*80 emess
18183 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18184 WRITE(emess,*)'nl_set_auxhist9_end_mo: Out of range domain number: ',id_id
18185 CALL wrf_error_fatal(emess)
18186 ENDIF
18187 model_config_rec%auxhist9_end_mo(id_id) = auxhist9_end_mo
18188 RETURN
18189 END SUBROUTINE nl_set_auxhist9_end_mo
18190 SUBROUTINE nl_set_auxhist9_end_d ( id_id , auxhist9_end_d )
18191 integer , INTENT(IN) :: auxhist9_end_d
18192 INTEGER id_id
18193 CHARACTER*80 emess
18194 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18195 WRITE(emess,*)'nl_set_auxhist9_end_d: Out of range domain number: ',id_id
18196 CALL wrf_error_fatal(emess)
18197 ENDIF
18198 model_config_rec%auxhist9_end_d(id_id) = auxhist9_end_d
18199 RETURN
18200 END SUBROUTINE nl_set_auxhist9_end_d
18201 SUBROUTINE nl_set_auxhist9_end_h ( id_id , auxhist9_end_h )
18202 integer , INTENT(IN) :: auxhist9_end_h
18203 INTEGER id_id
18204 CHARACTER*80 emess
18205 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18206 WRITE(emess,*)'nl_set_auxhist9_end_h: Out of range domain number: ',id_id
18207 CALL wrf_error_fatal(emess)
18208 ENDIF
18209 model_config_rec%auxhist9_end_h(id_id) = auxhist9_end_h
18210 RETURN
18211 END SUBROUTINE nl_set_auxhist9_end_h
18212 SUBROUTINE nl_set_auxhist9_end_m ( id_id , auxhist9_end_m )
18213 integer , INTENT(IN) :: auxhist9_end_m
18214 INTEGER id_id
18215 CHARACTER*80 emess
18216 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18217 WRITE(emess,*)'nl_set_auxhist9_end_m: Out of range domain number: ',id_id
18218 CALL wrf_error_fatal(emess)
18219 ENDIF
18220 model_config_rec%auxhist9_end_m(id_id) = auxhist9_end_m
18221 RETURN
18222 END SUBROUTINE nl_set_auxhist9_end_m
18223 SUBROUTINE nl_set_auxhist9_end_s ( id_id , auxhist9_end_s )
18224 integer , INTENT(IN) :: auxhist9_end_s
18225 INTEGER id_id
18226 CHARACTER*80 emess
18227 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18228 WRITE(emess,*)'nl_set_auxhist9_end_s: Out of range domain number: ',id_id
18229 CALL wrf_error_fatal(emess)
18230 ENDIF
18231 model_config_rec%auxhist9_end_s(id_id) = auxhist9_end_s
18232 RETURN
18233 END SUBROUTINE nl_set_auxhist9_end_s
18234 SUBROUTINE nl_set_auxhist10_end_y ( id_id , auxhist10_end_y )
18235 integer , INTENT(IN) :: auxhist10_end_y
18236 INTEGER id_id
18237 CHARACTER*80 emess
18238 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18239 WRITE(emess,*)'nl_set_auxhist10_end_y: Out of range domain number: ',id_id
18240 CALL wrf_error_fatal(emess)
18241 ENDIF
18242 model_config_rec%auxhist10_end_y(id_id) = auxhist10_end_y
18243 RETURN
18244 END SUBROUTINE nl_set_auxhist10_end_y
18245 SUBROUTINE nl_set_auxhist10_end_mo ( id_id , auxhist10_end_mo )
18246 integer , INTENT(IN) :: auxhist10_end_mo
18247 INTEGER id_id
18248 CHARACTER*80 emess
18249 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18250 WRITE(emess,*)'nl_set_auxhist10_end_mo: Out of range domain number: ',id_id
18251 CALL wrf_error_fatal(emess)
18252 ENDIF
18253 model_config_rec%auxhist10_end_mo(id_id) = auxhist10_end_mo
18254 RETURN
18255 END SUBROUTINE nl_set_auxhist10_end_mo
18256 SUBROUTINE nl_set_auxhist10_end_d ( id_id , auxhist10_end_d )
18257 integer , INTENT(IN) :: auxhist10_end_d
18258 INTEGER id_id
18259 CHARACTER*80 emess
18260 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18261 WRITE(emess,*)'nl_set_auxhist10_end_d: Out of range domain number: ',id_id
18262 CALL wrf_error_fatal(emess)
18263 ENDIF
18264 model_config_rec%auxhist10_end_d(id_id) = auxhist10_end_d
18265 RETURN
18266 END SUBROUTINE nl_set_auxhist10_end_d
18267 SUBROUTINE nl_set_auxhist10_end_h ( id_id , auxhist10_end_h )
18268 integer , INTENT(IN) :: auxhist10_end_h
18269 INTEGER id_id
18270 CHARACTER*80 emess
18271 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18272 WRITE(emess,*)'nl_set_auxhist10_end_h: Out of range domain number: ',id_id
18273 CALL wrf_error_fatal(emess)
18274 ENDIF
18275 model_config_rec%auxhist10_end_h(id_id) = auxhist10_end_h
18276 RETURN
18277 END SUBROUTINE nl_set_auxhist10_end_h
18278 SUBROUTINE nl_set_auxhist10_end_m ( id_id , auxhist10_end_m )
18279 integer , INTENT(IN) :: auxhist10_end_m
18280 INTEGER id_id
18281 CHARACTER*80 emess
18282 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18283 WRITE(emess,*)'nl_set_auxhist10_end_m: Out of range domain number: ',id_id
18284 CALL wrf_error_fatal(emess)
18285 ENDIF
18286 model_config_rec%auxhist10_end_m(id_id) = auxhist10_end_m
18287 RETURN
18288 END SUBROUTINE nl_set_auxhist10_end_m
18289 SUBROUTINE nl_set_auxhist10_end_s ( id_id , auxhist10_end_s )
18290 integer , INTENT(IN) :: auxhist10_end_s
18291 INTEGER id_id
18292 CHARACTER*80 emess
18293 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18294 WRITE(emess,*)'nl_set_auxhist10_end_s: Out of range domain number: ',id_id
18295 CALL wrf_error_fatal(emess)
18296 ENDIF
18297 model_config_rec%auxhist10_end_s(id_id) = auxhist10_end_s
18298 RETURN
18299 END SUBROUTINE nl_set_auxhist10_end_s
18300 SUBROUTINE nl_set_auxhist11_end_y ( id_id , auxhist11_end_y )
18301 integer , INTENT(IN) :: auxhist11_end_y
18302 INTEGER id_id
18303 CHARACTER*80 emess
18304 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18305 WRITE(emess,*)'nl_set_auxhist11_end_y: Out of range domain number: ',id_id
18306 CALL wrf_error_fatal(emess)
18307 ENDIF
18308 model_config_rec%auxhist11_end_y(id_id) = auxhist11_end_y
18309 RETURN
18310 END SUBROUTINE nl_set_auxhist11_end_y
18311 SUBROUTINE nl_set_auxhist11_end_mo ( id_id , auxhist11_end_mo )
18312 integer , INTENT(IN) :: auxhist11_end_mo
18313 INTEGER id_id
18314 CHARACTER*80 emess
18315 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18316 WRITE(emess,*)'nl_set_auxhist11_end_mo: Out of range domain number: ',id_id
18317 CALL wrf_error_fatal(emess)
18318 ENDIF
18319 model_config_rec%auxhist11_end_mo(id_id) = auxhist11_end_mo
18320 RETURN
18321 END SUBROUTINE nl_set_auxhist11_end_mo
18322 SUBROUTINE nl_set_auxhist11_end_d ( id_id , auxhist11_end_d )
18323 integer , INTENT(IN) :: auxhist11_end_d
18324 INTEGER id_id
18325 CHARACTER*80 emess
18326 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18327 WRITE(emess,*)'nl_set_auxhist11_end_d: Out of range domain number: ',id_id
18328 CALL wrf_error_fatal(emess)
18329 ENDIF
18330 model_config_rec%auxhist11_end_d(id_id) = auxhist11_end_d
18331 RETURN
18332 END SUBROUTINE nl_set_auxhist11_end_d
18333 SUBROUTINE nl_set_auxhist11_end_h ( id_id , auxhist11_end_h )
18334 integer , INTENT(IN) :: auxhist11_end_h
18335 INTEGER id_id
18336 CHARACTER*80 emess
18337 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18338 WRITE(emess,*)'nl_set_auxhist11_end_h: Out of range domain number: ',id_id
18339 CALL wrf_error_fatal(emess)
18340 ENDIF
18341 model_config_rec%auxhist11_end_h(id_id) = auxhist11_end_h
18342 RETURN
18343 END SUBROUTINE nl_set_auxhist11_end_h
18344 SUBROUTINE nl_set_auxhist11_end_m ( id_id , auxhist11_end_m )
18345 integer , INTENT(IN) :: auxhist11_end_m
18346 INTEGER id_id
18347 CHARACTER*80 emess
18348 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18349 WRITE(emess,*)'nl_set_auxhist11_end_m: Out of range domain number: ',id_id
18350 CALL wrf_error_fatal(emess)
18351 ENDIF
18352 model_config_rec%auxhist11_end_m(id_id) = auxhist11_end_m
18353 RETURN
18354 END SUBROUTINE nl_set_auxhist11_end_m
18355 SUBROUTINE nl_set_auxhist11_end_s ( id_id , auxhist11_end_s )
18356 integer , INTENT(IN) :: auxhist11_end_s
18357 INTEGER id_id
18358 CHARACTER*80 emess
18359 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18360 WRITE(emess,*)'nl_set_auxhist11_end_s: Out of range domain number: ',id_id
18361 CALL wrf_error_fatal(emess)
18362 ENDIF
18363 model_config_rec%auxhist11_end_s(id_id) = auxhist11_end_s
18364 RETURN
18365 END SUBROUTINE nl_set_auxhist11_end_s
18366 SUBROUTINE nl_set_auxinput1_end_y ( id_id , auxinput1_end_y )
18367 integer , INTENT(IN) :: auxinput1_end_y
18368 INTEGER id_id
18369 CHARACTER*80 emess
18370 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18371 WRITE(emess,*)'nl_set_auxinput1_end_y: Out of range domain number: ',id_id
18372 CALL wrf_error_fatal(emess)
18373 ENDIF
18374 model_config_rec%auxinput1_end_y(id_id) = auxinput1_end_y
18375 RETURN
18376 END SUBROUTINE nl_set_auxinput1_end_y
18377 SUBROUTINE nl_set_auxinput1_end_mo ( id_id , auxinput1_end_mo )
18378 integer , INTENT(IN) :: auxinput1_end_mo
18379 INTEGER id_id
18380 CHARACTER*80 emess
18381 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18382 WRITE(emess,*)'nl_set_auxinput1_end_mo: Out of range domain number: ',id_id
18383 CALL wrf_error_fatal(emess)
18384 ENDIF
18385 model_config_rec%auxinput1_end_mo(id_id) = auxinput1_end_mo
18386 RETURN
18387 END SUBROUTINE nl_set_auxinput1_end_mo
18388 SUBROUTINE nl_set_auxinput1_end_d ( id_id , auxinput1_end_d )
18389 integer , INTENT(IN) :: auxinput1_end_d
18390 INTEGER id_id
18391 CHARACTER*80 emess
18392 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18393 WRITE(emess,*)'nl_set_auxinput1_end_d: Out of range domain number: ',id_id
18394 CALL wrf_error_fatal(emess)
18395 ENDIF
18396 model_config_rec%auxinput1_end_d(id_id) = auxinput1_end_d
18397 RETURN
18398 END SUBROUTINE nl_set_auxinput1_end_d
18399 SUBROUTINE nl_set_auxinput1_end_h ( id_id , auxinput1_end_h )
18400 integer , INTENT(IN) :: auxinput1_end_h
18401 INTEGER id_id
18402 CHARACTER*80 emess
18403 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18404 WRITE(emess,*)'nl_set_auxinput1_end_h: Out of range domain number: ',id_id
18405 CALL wrf_error_fatal(emess)
18406 ENDIF
18407 model_config_rec%auxinput1_end_h(id_id) = auxinput1_end_h
18408 RETURN
18409 END SUBROUTINE nl_set_auxinput1_end_h
18410 SUBROUTINE nl_set_auxinput1_end_m ( id_id , auxinput1_end_m )
18411 integer , INTENT(IN) :: auxinput1_end_m
18412 INTEGER id_id
18413 CHARACTER*80 emess
18414 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18415 WRITE(emess,*)'nl_set_auxinput1_end_m: Out of range domain number: ',id_id
18416 CALL wrf_error_fatal(emess)
18417 ENDIF
18418 model_config_rec%auxinput1_end_m(id_id) = auxinput1_end_m
18419 RETURN
18420 END SUBROUTINE nl_set_auxinput1_end_m
18421 SUBROUTINE nl_set_auxinput1_end_s ( id_id , auxinput1_end_s )
18422 integer , INTENT(IN) :: auxinput1_end_s
18423 INTEGER id_id
18424 CHARACTER*80 emess
18425 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18426 WRITE(emess,*)'nl_set_auxinput1_end_s: Out of range domain number: ',id_id
18427 CALL wrf_error_fatal(emess)
18428 ENDIF
18429 model_config_rec%auxinput1_end_s(id_id) = auxinput1_end_s
18430 RETURN
18431 END SUBROUTINE nl_set_auxinput1_end_s
18432 SUBROUTINE nl_set_auxinput2_end_y ( id_id , auxinput2_end_y )
18433 integer , INTENT(IN) :: auxinput2_end_y
18434 INTEGER id_id
18435 CHARACTER*80 emess
18436 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18437 WRITE(emess,*)'nl_set_auxinput2_end_y: Out of range domain number: ',id_id
18438 CALL wrf_error_fatal(emess)
18439 ENDIF
18440 model_config_rec%auxinput2_end_y(id_id) = auxinput2_end_y
18441 RETURN
18442 END SUBROUTINE nl_set_auxinput2_end_y
18443 SUBROUTINE nl_set_auxinput2_end_mo ( id_id , auxinput2_end_mo )
18444 integer , INTENT(IN) :: auxinput2_end_mo
18445 INTEGER id_id
18446 CHARACTER*80 emess
18447 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18448 WRITE(emess,*)'nl_set_auxinput2_end_mo: Out of range domain number: ',id_id
18449 CALL wrf_error_fatal(emess)
18450 ENDIF
18451 model_config_rec%auxinput2_end_mo(id_id) = auxinput2_end_mo
18452 RETURN
18453 END SUBROUTINE nl_set_auxinput2_end_mo
18454 SUBROUTINE nl_set_auxinput2_end_d ( id_id , auxinput2_end_d )
18455 integer , INTENT(IN) :: auxinput2_end_d
18456 INTEGER id_id
18457 CHARACTER*80 emess
18458 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18459 WRITE(emess,*)'nl_set_auxinput2_end_d: Out of range domain number: ',id_id
18460 CALL wrf_error_fatal(emess)
18461 ENDIF
18462 model_config_rec%auxinput2_end_d(id_id) = auxinput2_end_d
18463 RETURN
18464 END SUBROUTINE nl_set_auxinput2_end_d
18465 SUBROUTINE nl_set_auxinput2_end_h ( id_id , auxinput2_end_h )
18466 integer , INTENT(IN) :: auxinput2_end_h
18467 INTEGER id_id
18468 CHARACTER*80 emess
18469 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18470 WRITE(emess,*)'nl_set_auxinput2_end_h: Out of range domain number: ',id_id
18471 CALL wrf_error_fatal(emess)
18472 ENDIF
18473 model_config_rec%auxinput2_end_h(id_id) = auxinput2_end_h
18474 RETURN
18475 END SUBROUTINE nl_set_auxinput2_end_h
18476 SUBROUTINE nl_set_auxinput2_end_m ( id_id , auxinput2_end_m )
18477 integer , INTENT(IN) :: auxinput2_end_m
18478 INTEGER id_id
18479 CHARACTER*80 emess
18480 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18481 WRITE(emess,*)'nl_set_auxinput2_end_m: Out of range domain number: ',id_id
18482 CALL wrf_error_fatal(emess)
18483 ENDIF
18484 model_config_rec%auxinput2_end_m(id_id) = auxinput2_end_m
18485 RETURN
18486 END SUBROUTINE nl_set_auxinput2_end_m
18487 SUBROUTINE nl_set_auxinput2_end_s ( id_id , auxinput2_end_s )
18488 integer , INTENT(IN) :: auxinput2_end_s
18489 INTEGER id_id
18490 CHARACTER*80 emess
18491 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18492 WRITE(emess,*)'nl_set_auxinput2_end_s: Out of range domain number: ',id_id
18493 CALL wrf_error_fatal(emess)
18494 ENDIF
18495 model_config_rec%auxinput2_end_s(id_id) = auxinput2_end_s
18496 RETURN
18497 END SUBROUTINE nl_set_auxinput2_end_s
18498 SUBROUTINE nl_set_auxinput3_end_y ( id_id , auxinput3_end_y )
18499 integer , INTENT(IN) :: auxinput3_end_y
18500 INTEGER id_id
18501 CHARACTER*80 emess
18502 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18503 WRITE(emess,*)'nl_set_auxinput3_end_y: Out of range domain number: ',id_id
18504 CALL wrf_error_fatal(emess)
18505 ENDIF
18506 model_config_rec%auxinput3_end_y(id_id) = auxinput3_end_y
18507 RETURN
18508 END SUBROUTINE nl_set_auxinput3_end_y
18509 SUBROUTINE nl_set_auxinput3_end_mo ( id_id , auxinput3_end_mo )
18510 integer , INTENT(IN) :: auxinput3_end_mo
18511 INTEGER id_id
18512 CHARACTER*80 emess
18513 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18514 WRITE(emess,*)'nl_set_auxinput3_end_mo: Out of range domain number: ',id_id
18515 CALL wrf_error_fatal(emess)
18516 ENDIF
18517 model_config_rec%auxinput3_end_mo(id_id) = auxinput3_end_mo
18518 RETURN
18519 END SUBROUTINE nl_set_auxinput3_end_mo
18520 SUBROUTINE nl_set_auxinput3_end_d ( id_id , auxinput3_end_d )
18521 integer , INTENT(IN) :: auxinput3_end_d
18522 INTEGER id_id
18523 CHARACTER*80 emess
18524 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18525 WRITE(emess,*)'nl_set_auxinput3_end_d: Out of range domain number: ',id_id
18526 CALL wrf_error_fatal(emess)
18527 ENDIF
18528 model_config_rec%auxinput3_end_d(id_id) = auxinput3_end_d
18529 RETURN
18530 END SUBROUTINE nl_set_auxinput3_end_d
18531 SUBROUTINE nl_set_auxinput3_end_h ( id_id , auxinput3_end_h )
18532 integer , INTENT(IN) :: auxinput3_end_h
18533 INTEGER id_id
18534 CHARACTER*80 emess
18535 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18536 WRITE(emess,*)'nl_set_auxinput3_end_h: Out of range domain number: ',id_id
18537 CALL wrf_error_fatal(emess)
18538 ENDIF
18539 model_config_rec%auxinput3_end_h(id_id) = auxinput3_end_h
18540 RETURN
18541 END SUBROUTINE nl_set_auxinput3_end_h
18542 SUBROUTINE nl_set_auxinput3_end_m ( id_id , auxinput3_end_m )
18543 integer , INTENT(IN) :: auxinput3_end_m
18544 INTEGER id_id
18545 CHARACTER*80 emess
18546 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18547 WRITE(emess,*)'nl_set_auxinput3_end_m: Out of range domain number: ',id_id
18548 CALL wrf_error_fatal(emess)
18549 ENDIF
18550 model_config_rec%auxinput3_end_m(id_id) = auxinput3_end_m
18551 RETURN
18552 END SUBROUTINE nl_set_auxinput3_end_m
18553 SUBROUTINE nl_set_auxinput3_end_s ( id_id , auxinput3_end_s )
18554 integer , INTENT(IN) :: auxinput3_end_s
18555 INTEGER id_id
18556 CHARACTER*80 emess
18557 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18558 WRITE(emess,*)'nl_set_auxinput3_end_s: Out of range domain number: ',id_id
18559 CALL wrf_error_fatal(emess)
18560 ENDIF
18561 model_config_rec%auxinput3_end_s(id_id) = auxinput3_end_s
18562 RETURN
18563 END SUBROUTINE nl_set_auxinput3_end_s
18564 SUBROUTINE nl_set_auxinput4_end_y ( id_id , auxinput4_end_y )
18565 integer , INTENT(IN) :: auxinput4_end_y
18566 INTEGER id_id
18567 CHARACTER*80 emess
18568 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18569 WRITE(emess,*)'nl_set_auxinput4_end_y: Out of range domain number: ',id_id
18570 CALL wrf_error_fatal(emess)
18571 ENDIF
18572 model_config_rec%auxinput4_end_y(id_id) = auxinput4_end_y
18573 RETURN
18574 END SUBROUTINE nl_set_auxinput4_end_y
18575 SUBROUTINE nl_set_auxinput4_end_mo ( id_id , auxinput4_end_mo )
18576 integer , INTENT(IN) :: auxinput4_end_mo
18577 INTEGER id_id
18578 CHARACTER*80 emess
18579 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18580 WRITE(emess,*)'nl_set_auxinput4_end_mo: Out of range domain number: ',id_id
18581 CALL wrf_error_fatal(emess)
18582 ENDIF
18583 model_config_rec%auxinput4_end_mo(id_id) = auxinput4_end_mo
18584 RETURN
18585 END SUBROUTINE nl_set_auxinput4_end_mo
18586 SUBROUTINE nl_set_auxinput4_end_d ( id_id , auxinput4_end_d )
18587 integer , INTENT(IN) :: auxinput4_end_d
18588 INTEGER id_id
18589 CHARACTER*80 emess
18590 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18591 WRITE(emess,*)'nl_set_auxinput4_end_d: Out of range domain number: ',id_id
18592 CALL wrf_error_fatal(emess)
18593 ENDIF
18594 model_config_rec%auxinput4_end_d(id_id) = auxinput4_end_d
18595 RETURN
18596 END SUBROUTINE nl_set_auxinput4_end_d
18597 SUBROUTINE nl_set_auxinput4_end_h ( id_id , auxinput4_end_h )
18598 integer , INTENT(IN) :: auxinput4_end_h
18599 INTEGER id_id
18600 CHARACTER*80 emess
18601 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18602 WRITE(emess,*)'nl_set_auxinput4_end_h: Out of range domain number: ',id_id
18603 CALL wrf_error_fatal(emess)
18604 ENDIF
18605 model_config_rec%auxinput4_end_h(id_id) = auxinput4_end_h
18606 RETURN
18607 END SUBROUTINE nl_set_auxinput4_end_h
18608 SUBROUTINE nl_set_auxinput4_end_m ( id_id , auxinput4_end_m )
18609 integer , INTENT(IN) :: auxinput4_end_m
18610 INTEGER id_id
18611 CHARACTER*80 emess
18612 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18613 WRITE(emess,*)'nl_set_auxinput4_end_m: Out of range domain number: ',id_id
18614 CALL wrf_error_fatal(emess)
18615 ENDIF
18616 model_config_rec%auxinput4_end_m(id_id) = auxinput4_end_m
18617 RETURN
18618 END SUBROUTINE nl_set_auxinput4_end_m
18619 SUBROUTINE nl_set_auxinput4_end_s ( id_id , auxinput4_end_s )
18620 integer , INTENT(IN) :: auxinput4_end_s
18621 INTEGER id_id
18622 CHARACTER*80 emess
18623 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18624 WRITE(emess,*)'nl_set_auxinput4_end_s: Out of range domain number: ',id_id
18625 CALL wrf_error_fatal(emess)
18626 ENDIF
18627 model_config_rec%auxinput4_end_s(id_id) = auxinput4_end_s
18628 RETURN
18629 END SUBROUTINE nl_set_auxinput4_end_s
18630 SUBROUTINE nl_set_auxinput5_end_y ( id_id , auxinput5_end_y )
18631 integer , INTENT(IN) :: auxinput5_end_y
18632 INTEGER id_id
18633 CHARACTER*80 emess
18634 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18635 WRITE(emess,*)'nl_set_auxinput5_end_y: Out of range domain number: ',id_id
18636 CALL wrf_error_fatal(emess)
18637 ENDIF
18638 model_config_rec%auxinput5_end_y(id_id) = auxinput5_end_y
18639 RETURN
18640 END SUBROUTINE nl_set_auxinput5_end_y
18641 SUBROUTINE nl_set_auxinput5_end_mo ( id_id , auxinput5_end_mo )
18642 integer , INTENT(IN) :: auxinput5_end_mo
18643 INTEGER id_id
18644 CHARACTER*80 emess
18645 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18646 WRITE(emess,*)'nl_set_auxinput5_end_mo: Out of range domain number: ',id_id
18647 CALL wrf_error_fatal(emess)
18648 ENDIF
18649 model_config_rec%auxinput5_end_mo(id_id) = auxinput5_end_mo
18650 RETURN
18651 END SUBROUTINE nl_set_auxinput5_end_mo
18652 SUBROUTINE nl_set_auxinput5_end_d ( id_id , auxinput5_end_d )
18653 integer , INTENT(IN) :: auxinput5_end_d
18654 INTEGER id_id
18655 CHARACTER*80 emess
18656 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18657 WRITE(emess,*)'nl_set_auxinput5_end_d: Out of range domain number: ',id_id
18658 CALL wrf_error_fatal(emess)
18659 ENDIF
18660 model_config_rec%auxinput5_end_d(id_id) = auxinput5_end_d
18661 RETURN
18662 END SUBROUTINE nl_set_auxinput5_end_d
18663 SUBROUTINE nl_set_auxinput5_end_h ( id_id , auxinput5_end_h )
18664 integer , INTENT(IN) :: auxinput5_end_h
18665 INTEGER id_id
18666 CHARACTER*80 emess
18667 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18668 WRITE(emess,*)'nl_set_auxinput5_end_h: Out of range domain number: ',id_id
18669 CALL wrf_error_fatal(emess)
18670 ENDIF
18671 model_config_rec%auxinput5_end_h(id_id) = auxinput5_end_h
18672 RETURN
18673 END SUBROUTINE nl_set_auxinput5_end_h
18674 SUBROUTINE nl_set_auxinput5_end_m ( id_id , auxinput5_end_m )
18675 integer , INTENT(IN) :: auxinput5_end_m
18676 INTEGER id_id
18677 CHARACTER*80 emess
18678 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18679 WRITE(emess,*)'nl_set_auxinput5_end_m: Out of range domain number: ',id_id
18680 CALL wrf_error_fatal(emess)
18681 ENDIF
18682 model_config_rec%auxinput5_end_m(id_id) = auxinput5_end_m
18683 RETURN
18684 END SUBROUTINE nl_set_auxinput5_end_m
18685 SUBROUTINE nl_set_auxinput5_end_s ( id_id , auxinput5_end_s )
18686 integer , INTENT(IN) :: auxinput5_end_s
18687 INTEGER id_id
18688 CHARACTER*80 emess
18689 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18690 WRITE(emess,*)'nl_set_auxinput5_end_s: Out of range domain number: ',id_id
18691 CALL wrf_error_fatal(emess)
18692 ENDIF
18693 model_config_rec%auxinput5_end_s(id_id) = auxinput5_end_s
18694 RETURN
18695 END SUBROUTINE nl_set_auxinput5_end_s
18696 SUBROUTINE nl_set_auxinput6_end_y ( id_id , auxinput6_end_y )
18697 integer , INTENT(IN) :: auxinput6_end_y
18698 INTEGER id_id
18699 CHARACTER*80 emess
18700 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18701 WRITE(emess,*)'nl_set_auxinput6_end_y: Out of range domain number: ',id_id
18702 CALL wrf_error_fatal(emess)
18703 ENDIF
18704 model_config_rec%auxinput6_end_y(id_id) = auxinput6_end_y
18705 RETURN
18706 END SUBROUTINE nl_set_auxinput6_end_y
18707 SUBROUTINE nl_set_auxinput6_end_mo ( id_id , auxinput6_end_mo )
18708 integer , INTENT(IN) :: auxinput6_end_mo
18709 INTEGER id_id
18710 CHARACTER*80 emess
18711 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18712 WRITE(emess,*)'nl_set_auxinput6_end_mo: Out of range domain number: ',id_id
18713 CALL wrf_error_fatal(emess)
18714 ENDIF
18715 model_config_rec%auxinput6_end_mo(id_id) = auxinput6_end_mo
18716 RETURN
18717 END SUBROUTINE nl_set_auxinput6_end_mo
18718 SUBROUTINE nl_set_auxinput6_end_d ( id_id , auxinput6_end_d )
18719 integer , INTENT(IN) :: auxinput6_end_d
18720 INTEGER id_id
18721 CHARACTER*80 emess
18722 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18723 WRITE(emess,*)'nl_set_auxinput6_end_d: Out of range domain number: ',id_id
18724 CALL wrf_error_fatal(emess)
18725 ENDIF
18726 model_config_rec%auxinput6_end_d(id_id) = auxinput6_end_d
18727 RETURN
18728 END SUBROUTINE nl_set_auxinput6_end_d
18729 SUBROUTINE nl_set_auxinput6_end_h ( id_id , auxinput6_end_h )
18730 integer , INTENT(IN) :: auxinput6_end_h
18731 INTEGER id_id
18732 CHARACTER*80 emess
18733 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18734 WRITE(emess,*)'nl_set_auxinput6_end_h: Out of range domain number: ',id_id
18735 CALL wrf_error_fatal(emess)
18736 ENDIF
18737 model_config_rec%auxinput6_end_h(id_id) = auxinput6_end_h
18738 RETURN
18739 END SUBROUTINE nl_set_auxinput6_end_h
18740 SUBROUTINE nl_set_auxinput6_end_m ( id_id , auxinput6_end_m )
18741 integer , INTENT(IN) :: auxinput6_end_m
18742 INTEGER id_id
18743 CHARACTER*80 emess
18744 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18745 WRITE(emess,*)'nl_set_auxinput6_end_m: Out of range domain number: ',id_id
18746 CALL wrf_error_fatal(emess)
18747 ENDIF
18748 model_config_rec%auxinput6_end_m(id_id) = auxinput6_end_m
18749 RETURN
18750 END SUBROUTINE nl_set_auxinput6_end_m
18751 SUBROUTINE nl_set_auxinput6_end_s ( id_id , auxinput6_end_s )
18752 integer , INTENT(IN) :: auxinput6_end_s
18753 INTEGER id_id
18754 CHARACTER*80 emess
18755 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18756 WRITE(emess,*)'nl_set_auxinput6_end_s: Out of range domain number: ',id_id
18757 CALL wrf_error_fatal(emess)
18758 ENDIF
18759 model_config_rec%auxinput6_end_s(id_id) = auxinput6_end_s
18760 RETURN
18761 END SUBROUTINE nl_set_auxinput6_end_s
18762 SUBROUTINE nl_set_auxinput7_end_y ( id_id , auxinput7_end_y )
18763 integer , INTENT(IN) :: auxinput7_end_y
18764 INTEGER id_id
18765 CHARACTER*80 emess
18766 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18767 WRITE(emess,*)'nl_set_auxinput7_end_y: Out of range domain number: ',id_id
18768 CALL wrf_error_fatal(emess)
18769 ENDIF
18770 model_config_rec%auxinput7_end_y(id_id) = auxinput7_end_y
18771 RETURN
18772 END SUBROUTINE nl_set_auxinput7_end_y
18773 SUBROUTINE nl_set_auxinput7_end_mo ( id_id , auxinput7_end_mo )
18774 integer , INTENT(IN) :: auxinput7_end_mo
18775 INTEGER id_id
18776 CHARACTER*80 emess
18777 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18778 WRITE(emess,*)'nl_set_auxinput7_end_mo: Out of range domain number: ',id_id
18779 CALL wrf_error_fatal(emess)
18780 ENDIF
18781 model_config_rec%auxinput7_end_mo(id_id) = auxinput7_end_mo
18782 RETURN
18783 END SUBROUTINE nl_set_auxinput7_end_mo
18784 SUBROUTINE nl_set_auxinput7_end_d ( id_id , auxinput7_end_d )
18785 integer , INTENT(IN) :: auxinput7_end_d
18786 INTEGER id_id
18787 CHARACTER*80 emess
18788 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18789 WRITE(emess,*)'nl_set_auxinput7_end_d: Out of range domain number: ',id_id
18790 CALL wrf_error_fatal(emess)
18791 ENDIF
18792 model_config_rec%auxinput7_end_d(id_id) = auxinput7_end_d
18793 RETURN
18794 END SUBROUTINE nl_set_auxinput7_end_d
18795 SUBROUTINE nl_set_auxinput7_end_h ( id_id , auxinput7_end_h )
18796 integer , INTENT(IN) :: auxinput7_end_h
18797 INTEGER id_id
18798 CHARACTER*80 emess
18799 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18800 WRITE(emess,*)'nl_set_auxinput7_end_h: Out of range domain number: ',id_id
18801 CALL wrf_error_fatal(emess)
18802 ENDIF
18803 model_config_rec%auxinput7_end_h(id_id) = auxinput7_end_h
18804 RETURN
18805 END SUBROUTINE nl_set_auxinput7_end_h
18806 SUBROUTINE nl_set_auxinput7_end_m ( id_id , auxinput7_end_m )
18807 integer , INTENT(IN) :: auxinput7_end_m
18808 INTEGER id_id
18809 CHARACTER*80 emess
18810 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18811 WRITE(emess,*)'nl_set_auxinput7_end_m: Out of range domain number: ',id_id
18812 CALL wrf_error_fatal(emess)
18813 ENDIF
18814 model_config_rec%auxinput7_end_m(id_id) = auxinput7_end_m
18815 RETURN
18816 END SUBROUTINE nl_set_auxinput7_end_m
18817 SUBROUTINE nl_set_auxinput7_end_s ( id_id , auxinput7_end_s )
18818 integer , INTENT(IN) :: auxinput7_end_s
18819 INTEGER id_id
18820 CHARACTER*80 emess
18821 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18822 WRITE(emess,*)'nl_set_auxinput7_end_s: Out of range domain number: ',id_id
18823 CALL wrf_error_fatal(emess)
18824 ENDIF
18825 model_config_rec%auxinput7_end_s(id_id) = auxinput7_end_s
18826 RETURN
18827 END SUBROUTINE nl_set_auxinput7_end_s
18828 SUBROUTINE nl_set_auxinput8_end_y ( id_id , auxinput8_end_y )
18829 integer , INTENT(IN) :: auxinput8_end_y
18830 INTEGER id_id
18831 CHARACTER*80 emess
18832 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18833 WRITE(emess,*)'nl_set_auxinput8_end_y: Out of range domain number: ',id_id
18834 CALL wrf_error_fatal(emess)
18835 ENDIF
18836 model_config_rec%auxinput8_end_y(id_id) = auxinput8_end_y
18837 RETURN
18838 END SUBROUTINE nl_set_auxinput8_end_y
18839 SUBROUTINE nl_set_auxinput8_end_mo ( id_id , auxinput8_end_mo )
18840 integer , INTENT(IN) :: auxinput8_end_mo
18841 INTEGER id_id
18842 CHARACTER*80 emess
18843 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18844 WRITE(emess,*)'nl_set_auxinput8_end_mo: Out of range domain number: ',id_id
18845 CALL wrf_error_fatal(emess)
18846 ENDIF
18847 model_config_rec%auxinput8_end_mo(id_id) = auxinput8_end_mo
18848 RETURN
18849 END SUBROUTINE nl_set_auxinput8_end_mo
18850 SUBROUTINE nl_set_auxinput8_end_d ( id_id , auxinput8_end_d )
18851 integer , INTENT(IN) :: auxinput8_end_d
18852 INTEGER id_id
18853 CHARACTER*80 emess
18854 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18855 WRITE(emess,*)'nl_set_auxinput8_end_d: Out of range domain number: ',id_id
18856 CALL wrf_error_fatal(emess)
18857 ENDIF
18858 model_config_rec%auxinput8_end_d(id_id) = auxinput8_end_d
18859 RETURN
18860 END SUBROUTINE nl_set_auxinput8_end_d
18861 SUBROUTINE nl_set_auxinput8_end_h ( id_id , auxinput8_end_h )
18862 integer , INTENT(IN) :: auxinput8_end_h
18863 INTEGER id_id
18864 CHARACTER*80 emess
18865 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18866 WRITE(emess,*)'nl_set_auxinput8_end_h: Out of range domain number: ',id_id
18867 CALL wrf_error_fatal(emess)
18868 ENDIF
18869 model_config_rec%auxinput8_end_h(id_id) = auxinput8_end_h
18870 RETURN
18871 END SUBROUTINE nl_set_auxinput8_end_h
18872 SUBROUTINE nl_set_auxinput8_end_m ( id_id , auxinput8_end_m )
18873 integer , INTENT(IN) :: auxinput8_end_m
18874 INTEGER id_id
18875 CHARACTER*80 emess
18876 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18877 WRITE(emess,*)'nl_set_auxinput8_end_m: Out of range domain number: ',id_id
18878 CALL wrf_error_fatal(emess)
18879 ENDIF
18880 model_config_rec%auxinput8_end_m(id_id) = auxinput8_end_m
18881 RETURN
18882 END SUBROUTINE nl_set_auxinput8_end_m
18883 SUBROUTINE nl_set_auxinput8_end_s ( id_id , auxinput8_end_s )
18884 integer , INTENT(IN) :: auxinput8_end_s
18885 INTEGER id_id
18886 CHARACTER*80 emess
18887 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18888 WRITE(emess,*)'nl_set_auxinput8_end_s: Out of range domain number: ',id_id
18889 CALL wrf_error_fatal(emess)
18890 ENDIF
18891 model_config_rec%auxinput8_end_s(id_id) = auxinput8_end_s
18892 RETURN
18893 END SUBROUTINE nl_set_auxinput8_end_s
18894 SUBROUTINE nl_set_auxinput9_end_y ( id_id , auxinput9_end_y )
18895 integer , INTENT(IN) :: auxinput9_end_y
18896 INTEGER id_id
18897 CHARACTER*80 emess
18898 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18899 WRITE(emess,*)'nl_set_auxinput9_end_y: Out of range domain number: ',id_id
18900 CALL wrf_error_fatal(emess)
18901 ENDIF
18902 model_config_rec%auxinput9_end_y(id_id) = auxinput9_end_y
18903 RETURN
18904 END SUBROUTINE nl_set_auxinput9_end_y
18905 SUBROUTINE nl_set_auxinput9_end_mo ( id_id , auxinput9_end_mo )
18906 integer , INTENT(IN) :: auxinput9_end_mo
18907 INTEGER id_id
18908 CHARACTER*80 emess
18909 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18910 WRITE(emess,*)'nl_set_auxinput9_end_mo: Out of range domain number: ',id_id
18911 CALL wrf_error_fatal(emess)
18912 ENDIF
18913 model_config_rec%auxinput9_end_mo(id_id) = auxinput9_end_mo
18914 RETURN
18915 END SUBROUTINE nl_set_auxinput9_end_mo
18916 SUBROUTINE nl_set_auxinput9_end_d ( id_id , auxinput9_end_d )
18917 integer , INTENT(IN) :: auxinput9_end_d
18918 INTEGER id_id
18919 CHARACTER*80 emess
18920 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18921 WRITE(emess,*)'nl_set_auxinput9_end_d: Out of range domain number: ',id_id
18922 CALL wrf_error_fatal(emess)
18923 ENDIF
18924 model_config_rec%auxinput9_end_d(id_id) = auxinput9_end_d
18925 RETURN
18926 END SUBROUTINE nl_set_auxinput9_end_d
18927 SUBROUTINE nl_set_auxinput9_end_h ( id_id , auxinput9_end_h )
18928 integer , INTENT(IN) :: auxinput9_end_h
18929 INTEGER id_id
18930 CHARACTER*80 emess
18931 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18932 WRITE(emess,*)'nl_set_auxinput9_end_h: Out of range domain number: ',id_id
18933 CALL wrf_error_fatal(emess)
18934 ENDIF
18935 model_config_rec%auxinput9_end_h(id_id) = auxinput9_end_h
18936 RETURN
18937 END SUBROUTINE nl_set_auxinput9_end_h
18938 SUBROUTINE nl_set_auxinput9_end_m ( id_id , auxinput9_end_m )
18939 integer , INTENT(IN) :: auxinput9_end_m
18940 INTEGER id_id
18941 CHARACTER*80 emess
18942 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18943 WRITE(emess,*)'nl_set_auxinput9_end_m: Out of range domain number: ',id_id
18944 CALL wrf_error_fatal(emess)
18945 ENDIF
18946 model_config_rec%auxinput9_end_m(id_id) = auxinput9_end_m
18947 RETURN
18948 END SUBROUTINE nl_set_auxinput9_end_m
18949 SUBROUTINE nl_set_auxinput9_end_s ( id_id , auxinput9_end_s )
18950 integer , INTENT(IN) :: auxinput9_end_s
18951 INTEGER id_id
18952 CHARACTER*80 emess
18953 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18954 WRITE(emess,*)'nl_set_auxinput9_end_s: Out of range domain number: ',id_id
18955 CALL wrf_error_fatal(emess)
18956 ENDIF
18957 model_config_rec%auxinput9_end_s(id_id) = auxinput9_end_s
18958 RETURN
18959 END SUBROUTINE nl_set_auxinput9_end_s
18960 SUBROUTINE nl_set_gfdda_end_y ( id_id , gfdda_end_y )
18961 integer , INTENT(IN) :: gfdda_end_y
18962 INTEGER id_id
18963 CHARACTER*80 emess
18964 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18965 WRITE(emess,*)'nl_set_gfdda_end_y: Out of range domain number: ',id_id
18966 CALL wrf_error_fatal(emess)
18967 ENDIF
18968 model_config_rec%gfdda_end_y(id_id) = gfdda_end_y
18969 RETURN
18970 END SUBROUTINE nl_set_gfdda_end_y
18971 SUBROUTINE nl_set_gfdda_end_mo ( id_id , gfdda_end_mo )
18972 integer , INTENT(IN) :: gfdda_end_mo
18973 INTEGER id_id
18974 CHARACTER*80 emess
18975 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18976 WRITE(emess,*)'nl_set_gfdda_end_mo: Out of range domain number: ',id_id
18977 CALL wrf_error_fatal(emess)
18978 ENDIF
18979 model_config_rec%gfdda_end_mo(id_id) = gfdda_end_mo
18980 RETURN
18981 END SUBROUTINE nl_set_gfdda_end_mo
18982 SUBROUTINE nl_set_gfdda_end_d ( id_id , gfdda_end_d )
18983 integer , INTENT(IN) :: gfdda_end_d
18984 INTEGER id_id
18985 CHARACTER*80 emess
18986 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18987 WRITE(emess,*)'nl_set_gfdda_end_d: Out of range domain number: ',id_id
18988 CALL wrf_error_fatal(emess)
18989 ENDIF
18990 model_config_rec%gfdda_end_d(id_id) = gfdda_end_d
18991 RETURN
18992 END SUBROUTINE nl_set_gfdda_end_d
18993 SUBROUTINE nl_set_gfdda_end_h ( id_id , gfdda_end_h )
18994 integer , INTENT(IN) :: gfdda_end_h
18995 INTEGER id_id
18996 CHARACTER*80 emess
18997 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
18998 WRITE(emess,*)'nl_set_gfdda_end_h: Out of range domain number: ',id_id
18999 CALL wrf_error_fatal(emess)
19000 ENDIF
19001 model_config_rec%gfdda_end_h(id_id) = gfdda_end_h
19002 RETURN
19003 END SUBROUTINE nl_set_gfdda_end_h
19004 SUBROUTINE nl_set_gfdda_end_m ( id_id , gfdda_end_m )
19005 integer , INTENT(IN) :: gfdda_end_m
19006 INTEGER id_id
19007 CHARACTER*80 emess
19008 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19009 WRITE(emess,*)'nl_set_gfdda_end_m: Out of range domain number: ',id_id
19010 CALL wrf_error_fatal(emess)
19011 ENDIF
19012 model_config_rec%gfdda_end_m(id_id) = gfdda_end_m
19013 RETURN
19014 END SUBROUTINE nl_set_gfdda_end_m
19015 SUBROUTINE nl_set_gfdda_end_s ( id_id , gfdda_end_s )
19016 integer , INTENT(IN) :: gfdda_end_s
19017 INTEGER id_id
19018 CHARACTER*80 emess
19019 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19020 WRITE(emess,*)'nl_set_gfdda_end_s: Out of range domain number: ',id_id
19021 CALL wrf_error_fatal(emess)
19022 ENDIF
19023 model_config_rec%gfdda_end_s(id_id) = gfdda_end_s
19024 RETURN
19025 END SUBROUTINE nl_set_gfdda_end_s
19026 SUBROUTINE nl_set_auxinput11_end_y ( id_id , auxinput11_end_y )
19027 integer , INTENT(IN) :: auxinput11_end_y
19028 INTEGER id_id
19029 CHARACTER*80 emess
19030 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19031 WRITE(emess,*)'nl_set_auxinput11_end_y: Out of range domain number: ',id_id
19032 CALL wrf_error_fatal(emess)
19033 ENDIF
19034 model_config_rec%auxinput11_end_y(id_id) = auxinput11_end_y
19035 RETURN
19036 END SUBROUTINE nl_set_auxinput11_end_y
19037 SUBROUTINE nl_set_auxinput11_end_mo ( id_id , auxinput11_end_mo )
19038 integer , INTENT(IN) :: auxinput11_end_mo
19039 INTEGER id_id
19040 CHARACTER*80 emess
19041 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19042 WRITE(emess,*)'nl_set_auxinput11_end_mo: Out of range domain number: ',id_id
19043 CALL wrf_error_fatal(emess)
19044 ENDIF
19045 model_config_rec%auxinput11_end_mo(id_id) = auxinput11_end_mo
19046 RETURN
19047 END SUBROUTINE nl_set_auxinput11_end_mo
19048 SUBROUTINE nl_set_auxinput11_end_d ( id_id , auxinput11_end_d )
19049 integer , INTENT(IN) :: auxinput11_end_d
19050 INTEGER id_id
19051 CHARACTER*80 emess
19052 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19053 WRITE(emess,*)'nl_set_auxinput11_end_d: Out of range domain number: ',id_id
19054 CALL wrf_error_fatal(emess)
19055 ENDIF
19056 model_config_rec%auxinput11_end_d(id_id) = auxinput11_end_d
19057 RETURN
19058 END SUBROUTINE nl_set_auxinput11_end_d
19059 SUBROUTINE nl_set_auxinput11_end_h ( id_id , auxinput11_end_h )
19060 integer , INTENT(IN) :: auxinput11_end_h
19061 INTEGER id_id
19062 CHARACTER*80 emess
19063 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19064 WRITE(emess,*)'nl_set_auxinput11_end_h: Out of range domain number: ',id_id
19065 CALL wrf_error_fatal(emess)
19066 ENDIF
19067 model_config_rec%auxinput11_end_h(id_id) = auxinput11_end_h
19068 RETURN
19069 END SUBROUTINE nl_set_auxinput11_end_h
19070 SUBROUTINE nl_set_auxinput11_end_m ( id_id , auxinput11_end_m )
19071 integer , INTENT(IN) :: auxinput11_end_m
19072 INTEGER id_id
19073 CHARACTER*80 emess
19074 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19075 WRITE(emess,*)'nl_set_auxinput11_end_m: Out of range domain number: ',id_id
19076 CALL wrf_error_fatal(emess)
19077 ENDIF
19078 model_config_rec%auxinput11_end_m(id_id) = auxinput11_end_m
19079 RETURN
19080 END SUBROUTINE nl_set_auxinput11_end_m
19081 SUBROUTINE nl_set_auxinput11_end_s ( id_id , auxinput11_end_s )
19082 integer , INTENT(IN) :: auxinput11_end_s
19083 INTEGER id_id
19084 CHARACTER*80 emess
19085 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19086 WRITE(emess,*)'nl_set_auxinput11_end_s: Out of range domain number: ',id_id
19087 CALL wrf_error_fatal(emess)
19088 ENDIF
19089 model_config_rec%auxinput11_end_s(id_id) = auxinput11_end_s
19090 RETURN
19091 END SUBROUTINE nl_set_auxinput11_end_s
19092 SUBROUTINE nl_set_io_form_auxinput1 ( id_id , io_form_auxinput1 )
19093 integer , INTENT(IN) :: io_form_auxinput1
19094 INTEGER id_id
19095 CHARACTER*80 emess
19096 IF ( id_id .NE. 1 ) THEN
19097 call wrf_debug(1,&
19098 'WARNING in nl_set_io_form_auxinput1: io_form_auxinput1 applies to all domains. First arg ignored.')
19099 ENDIF
19100 model_config_rec%io_form_auxinput1 = io_form_auxinput1
19101 RETURN
19102 END SUBROUTINE nl_set_io_form_auxinput1
19103 SUBROUTINE nl_set_io_form_auxinput2 ( id_id , io_form_auxinput2 )
19104 integer , INTENT(IN) :: io_form_auxinput2
19105 INTEGER id_id
19106 CHARACTER*80 emess
19107 IF ( id_id .NE. 1 ) THEN
19108 call wrf_debug(1,&
19109 'WARNING in nl_set_io_form_auxinput2: io_form_auxinput2 applies to all domains. First arg ignored.')
19110 ENDIF
19111 model_config_rec%io_form_auxinput2 = io_form_auxinput2
19112 RETURN
19113 END SUBROUTINE nl_set_io_form_auxinput2
19114 SUBROUTINE nl_set_io_form_auxinput3 ( id_id , io_form_auxinput3 )
19115 integer , INTENT(IN) :: io_form_auxinput3
19116 INTEGER id_id
19117 CHARACTER*80 emess
19118 IF ( id_id .NE. 1 ) THEN
19119 call wrf_debug(1,&
19120 'WARNING in nl_set_io_form_auxinput3: io_form_auxinput3 applies to all domains. First arg ignored.')
19121 ENDIF
19122 model_config_rec%io_form_auxinput3 = io_form_auxinput3
19123 RETURN
19124 END SUBROUTINE nl_set_io_form_auxinput3
19125 SUBROUTINE nl_set_io_form_auxinput4 ( id_id , io_form_auxinput4 )
19126 integer , INTENT(IN) :: io_form_auxinput4
19127 INTEGER id_id
19128 CHARACTER*80 emess
19129 IF ( id_id .NE. 1 ) THEN
19130 call wrf_debug(1,&
19131 'WARNING in nl_set_io_form_auxinput4: io_form_auxinput4 applies to all domains. First arg ignored.')
19132 ENDIF
19133 model_config_rec%io_form_auxinput4 = io_form_auxinput4
19134 RETURN
19135 END SUBROUTINE nl_set_io_form_auxinput4
19136 SUBROUTINE nl_set_io_form_auxinput5 ( id_id , io_form_auxinput5 )
19137 integer , INTENT(IN) :: io_form_auxinput5
19138 INTEGER id_id
19139 CHARACTER*80 emess
19140 IF ( id_id .NE. 1 ) THEN
19141 call wrf_debug(1,&
19142 'WARNING in nl_set_io_form_auxinput5: io_form_auxinput5 applies to all domains. First arg ignored.')
19143 ENDIF
19144 model_config_rec%io_form_auxinput5 = io_form_auxinput5
19145 RETURN
19146 END SUBROUTINE nl_set_io_form_auxinput5
19147 SUBROUTINE nl_set_io_form_auxinput6 ( id_id , io_form_auxinput6 )
19148 integer , INTENT(IN) :: io_form_auxinput6
19149 INTEGER id_id
19150 CHARACTER*80 emess
19151 IF ( id_id .NE. 1 ) THEN
19152 call wrf_debug(1,&
19153 'WARNING in nl_set_io_form_auxinput6: io_form_auxinput6 applies to all domains. First arg ignored.')
19154 ENDIF
19155 model_config_rec%io_form_auxinput6 = io_form_auxinput6
19156 RETURN
19157 END SUBROUTINE nl_set_io_form_auxinput6
19158 SUBROUTINE nl_set_io_form_auxinput7 ( id_id , io_form_auxinput7 )
19159 integer , INTENT(IN) :: io_form_auxinput7
19160 INTEGER id_id
19161 CHARACTER*80 emess
19162 IF ( id_id .NE. 1 ) THEN
19163 call wrf_debug(1,&
19164 'WARNING in nl_set_io_form_auxinput7: io_form_auxinput7 applies to all domains. First arg ignored.')
19165 ENDIF
19166 model_config_rec%io_form_auxinput7 = io_form_auxinput7
19167 RETURN
19168 END SUBROUTINE nl_set_io_form_auxinput7
19169 SUBROUTINE nl_set_io_form_auxinput8 ( id_id , io_form_auxinput8 )
19170 integer , INTENT(IN) :: io_form_auxinput8
19171 INTEGER id_id
19172 CHARACTER*80 emess
19173 IF ( id_id .NE. 1 ) THEN
19174 call wrf_debug(1,&
19175 'WARNING in nl_set_io_form_auxinput8: io_form_auxinput8 applies to all domains. First arg ignored.')
19176 ENDIF
19177 model_config_rec%io_form_auxinput8 = io_form_auxinput8
19178 RETURN
19179 END SUBROUTINE nl_set_io_form_auxinput8
19180 SUBROUTINE nl_set_io_form_auxinput9 ( id_id , io_form_auxinput9 )
19181 integer , INTENT(IN) :: io_form_auxinput9
19182 INTEGER id_id
19183 CHARACTER*80 emess
19184 IF ( id_id .NE. 1 ) THEN
19185 call wrf_debug(1,&
19186 'WARNING in nl_set_io_form_auxinput9: io_form_auxinput9 applies to all domains. First arg ignored.')
19187 ENDIF
19188 model_config_rec%io_form_auxinput9 = io_form_auxinput9
19189 RETURN
19190 END SUBROUTINE nl_set_io_form_auxinput9
19191 SUBROUTINE nl_set_io_form_gfdda ( id_id , io_form_gfdda )
19192 integer , INTENT(IN) :: io_form_gfdda
19193 INTEGER id_id
19194 CHARACTER*80 emess
19195 IF ( id_id .NE. 1 ) THEN
19196 call wrf_debug(1,&
19197 'WARNING in nl_set_io_form_gfdda: io_form_gfdda applies to all domains. First arg ignored.')
19198 ENDIF
19199 model_config_rec%io_form_gfdda = io_form_gfdda
19200 RETURN
19201 END SUBROUTINE nl_set_io_form_gfdda
19202 SUBROUTINE nl_set_io_form_auxinput11 ( id_id , io_form_auxinput11 )
19203 integer , INTENT(IN) :: io_form_auxinput11
19204 INTEGER id_id
19205 CHARACTER*80 emess
19206 IF ( id_id .NE. 1 ) THEN
19207 call wrf_debug(1,&
19208 'WARNING in nl_set_io_form_auxinput11: io_form_auxinput11 applies to all domains. First arg ignored.')
19209 ENDIF
19210 model_config_rec%io_form_auxinput11 = io_form_auxinput11
19211 RETURN
19212 END SUBROUTINE nl_set_io_form_auxinput11
19213 SUBROUTINE nl_set_io_form_auxhist1 ( id_id , io_form_auxhist1 )
19214 integer , INTENT(IN) :: io_form_auxhist1
19215 INTEGER id_id
19216 CHARACTER*80 emess
19217 IF ( id_id .NE. 1 ) THEN
19218 call wrf_debug(1,&
19219 'WARNING in nl_set_io_form_auxhist1: io_form_auxhist1 applies to all domains. First arg ignored.')
19220 ENDIF
19221 model_config_rec%io_form_auxhist1 = io_form_auxhist1
19222 RETURN
19223 END SUBROUTINE nl_set_io_form_auxhist1
19224 SUBROUTINE nl_set_io_form_auxhist2 ( id_id , io_form_auxhist2 )
19225 integer , INTENT(IN) :: io_form_auxhist2
19226 INTEGER id_id
19227 CHARACTER*80 emess
19228 IF ( id_id .NE. 1 ) THEN
19229 call wrf_debug(1,&
19230 'WARNING in nl_set_io_form_auxhist2: io_form_auxhist2 applies to all domains. First arg ignored.')
19231 ENDIF
19232 model_config_rec%io_form_auxhist2 = io_form_auxhist2
19233 RETURN
19234 END SUBROUTINE nl_set_io_form_auxhist2
19235 SUBROUTINE nl_set_io_form_auxhist3 ( id_id , io_form_auxhist3 )
19236 integer , INTENT(IN) :: io_form_auxhist3
19237 INTEGER id_id
19238 CHARACTER*80 emess
19239 IF ( id_id .NE. 1 ) THEN
19240 call wrf_debug(1,&
19241 'WARNING in nl_set_io_form_auxhist3: io_form_auxhist3 applies to all domains. First arg ignored.')
19242 ENDIF
19243 model_config_rec%io_form_auxhist3 = io_form_auxhist3
19244 RETURN
19245 END SUBROUTINE nl_set_io_form_auxhist3
19246 SUBROUTINE nl_set_io_form_auxhist4 ( id_id , io_form_auxhist4 )
19247 integer , INTENT(IN) :: io_form_auxhist4
19248 INTEGER id_id
19249 CHARACTER*80 emess
19250 IF ( id_id .NE. 1 ) THEN
19251 call wrf_debug(1,&
19252 'WARNING in nl_set_io_form_auxhist4: io_form_auxhist4 applies to all domains. First arg ignored.')
19253 ENDIF
19254 model_config_rec%io_form_auxhist4 = io_form_auxhist4
19255 RETURN
19256 END SUBROUTINE nl_set_io_form_auxhist4
19257 SUBROUTINE nl_set_io_form_auxhist5 ( id_id , io_form_auxhist5 )
19258 integer , INTENT(IN) :: io_form_auxhist5
19259 INTEGER id_id
19260 CHARACTER*80 emess
19261 IF ( id_id .NE. 1 ) THEN
19262 call wrf_debug(1,&
19263 'WARNING in nl_set_io_form_auxhist5: io_form_auxhist5 applies to all domains. First arg ignored.')
19264 ENDIF
19265 model_config_rec%io_form_auxhist5 = io_form_auxhist5
19266 RETURN
19267 END SUBROUTINE nl_set_io_form_auxhist5
19268 SUBROUTINE nl_set_io_form_auxhist6 ( id_id , io_form_auxhist6 )
19269 integer , INTENT(IN) :: io_form_auxhist6
19270 INTEGER id_id
19271 CHARACTER*80 emess
19272 IF ( id_id .NE. 1 ) THEN
19273 call wrf_debug(1,&
19274 'WARNING in nl_set_io_form_auxhist6: io_form_auxhist6 applies to all domains. First arg ignored.')
19275 ENDIF
19276 model_config_rec%io_form_auxhist6 = io_form_auxhist6
19277 RETURN
19278 END SUBROUTINE nl_set_io_form_auxhist6
19279 SUBROUTINE nl_set_io_form_auxhist7 ( id_id , io_form_auxhist7 )
19280 integer , INTENT(IN) :: io_form_auxhist7
19281 INTEGER id_id
19282 CHARACTER*80 emess
19283 IF ( id_id .NE. 1 ) THEN
19284 call wrf_debug(1,&
19285 'WARNING in nl_set_io_form_auxhist7: io_form_auxhist7 applies to all domains. First arg ignored.')
19286 ENDIF
19287 model_config_rec%io_form_auxhist7 = io_form_auxhist7
19288 RETURN
19289 END SUBROUTINE nl_set_io_form_auxhist7
19290 SUBROUTINE nl_set_io_form_auxhist8 ( id_id , io_form_auxhist8 )
19291 integer , INTENT(IN) :: io_form_auxhist8
19292 INTEGER id_id
19293 CHARACTER*80 emess
19294 IF ( id_id .NE. 1 ) THEN
19295 call wrf_debug(1,&
19296 'WARNING in nl_set_io_form_auxhist8: io_form_auxhist8 applies to all domains. First arg ignored.')
19297 ENDIF
19298 model_config_rec%io_form_auxhist8 = io_form_auxhist8
19299 RETURN
19300 END SUBROUTINE nl_set_io_form_auxhist8
19301 SUBROUTINE nl_set_io_form_auxhist9 ( id_id , io_form_auxhist9 )
19302 integer , INTENT(IN) :: io_form_auxhist9
19303 INTEGER id_id
19304 CHARACTER*80 emess
19305 IF ( id_id .NE. 1 ) THEN
19306 call wrf_debug(1,&
19307 'WARNING in nl_set_io_form_auxhist9: io_form_auxhist9 applies to all domains. First arg ignored.')
19308 ENDIF
19309 model_config_rec%io_form_auxhist9 = io_form_auxhist9
19310 RETURN
19311 END SUBROUTINE nl_set_io_form_auxhist9
19312 SUBROUTINE nl_set_io_form_auxhist10 ( id_id , io_form_auxhist10 )
19313 integer , INTENT(IN) :: io_form_auxhist10
19314 INTEGER id_id
19315 CHARACTER*80 emess
19316 IF ( id_id .NE. 1 ) THEN
19317 call wrf_debug(1,&
19318 'WARNING in nl_set_io_form_auxhist10: io_form_auxhist10 applies to all domains. First arg ignored.')
19319 ENDIF
19320 model_config_rec%io_form_auxhist10 = io_form_auxhist10
19321 RETURN
19322 END SUBROUTINE nl_set_io_form_auxhist10
19323 SUBROUTINE nl_set_io_form_auxhist11 ( id_id , io_form_auxhist11 )
19324 integer , INTENT(IN) :: io_form_auxhist11
19325 INTEGER id_id
19326 CHARACTER*80 emess
19327 IF ( id_id .NE. 1 ) THEN
19328 call wrf_debug(1,&
19329 'WARNING in nl_set_io_form_auxhist11: io_form_auxhist11 applies to all domains. First arg ignored.')
19330 ENDIF
19331 model_config_rec%io_form_auxhist11 = io_form_auxhist11
19332 RETURN
19333 END SUBROUTINE nl_set_io_form_auxhist11
19334 SUBROUTINE nl_set_julyr ( id_id , julyr )
19335 integer , INTENT(IN) :: julyr
19336 INTEGER id_id
19337 CHARACTER*80 emess
19338 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19339 WRITE(emess,*)'nl_set_julyr: Out of range domain number: ',id_id
19340 CALL wrf_error_fatal(emess)
19341 ENDIF
19342 model_config_rec%julyr(id_id) = julyr
19343 RETURN
19344 END SUBROUTINE nl_set_julyr
19345 SUBROUTINE nl_set_julday ( id_id , julday )
19346 integer , INTENT(IN) :: julday
19347 INTEGER id_id
19348 CHARACTER*80 emess
19349 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19350 WRITE(emess,*)'nl_set_julday: Out of range domain number: ',id_id
19351 CALL wrf_error_fatal(emess)
19352 ENDIF
19353 model_config_rec%julday(id_id) = julday
19354 RETURN
19355 END SUBROUTINE nl_set_julday
19356 SUBROUTINE nl_set_gmt ( id_id , gmt )
19357 real , INTENT(IN) :: gmt
19358 INTEGER id_id
19359 CHARACTER*80 emess
19360 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19361 WRITE(emess,*)'nl_set_gmt: Out of range domain number: ',id_id
19362 CALL wrf_error_fatal(emess)
19363 ENDIF
19364 model_config_rec%gmt(id_id) = gmt
19365 RETURN
19366 END SUBROUTINE nl_set_gmt
19367 SUBROUTINE nl_set_input_inname ( id_id , input_inname )
19368 character*256 , INTENT(IN) :: input_inname
19369 INTEGER id_id
19370 CHARACTER*80 emess
19371 IF ( id_id .NE. 1 ) THEN
19372 call wrf_debug(1,&
19373 'WARNING in nl_set_input_inname: input_inname applies to all domains. First arg ignored.')
19374 ENDIF
19375 model_config_rec%input_inname = trim(input_inname)
19376 RETURN
19377 END SUBROUTINE nl_set_input_inname
19378 SUBROUTINE nl_set_input_outname ( id_id , input_outname )
19379 character*256 , INTENT(IN) :: input_outname
19380 INTEGER id_id
19381 CHARACTER*80 emess
19382 IF ( id_id .NE. 1 ) THEN
19383 call wrf_debug(1,&
19384 'WARNING in nl_set_input_outname: input_outname applies to all domains. First arg ignored.')
19385 ENDIF
19386 model_config_rec%input_outname = trim(input_outname)
19387 RETURN
19388 END SUBROUTINE nl_set_input_outname
19389 SUBROUTINE nl_set_bdy_inname ( id_id , bdy_inname )
19390 character*256 , INTENT(IN) :: bdy_inname
19391 INTEGER id_id
19392 CHARACTER*80 emess
19393 IF ( id_id .NE. 1 ) THEN
19394 call wrf_debug(1,&
19395 'WARNING in nl_set_bdy_inname: bdy_inname applies to all domains. First arg ignored.')
19396 ENDIF
19397 model_config_rec%bdy_inname = trim(bdy_inname)
19398 RETURN
19399 END SUBROUTINE nl_set_bdy_inname
19400 SUBROUTINE nl_set_bdy_outname ( id_id , bdy_outname )
19401 character*256 , INTENT(IN) :: bdy_outname
19402 INTEGER id_id
19403 CHARACTER*80 emess
19404 IF ( id_id .NE. 1 ) THEN
19405 call wrf_debug(1,&
19406 'WARNING in nl_set_bdy_outname: bdy_outname applies to all domains. First arg ignored.')
19407 ENDIF
19408 model_config_rec%bdy_outname = trim(bdy_outname)
19409 RETURN
19410 END SUBROUTINE nl_set_bdy_outname
19411 SUBROUTINE nl_set_rst_inname ( id_id , rst_inname )
19412 character*256 , INTENT(IN) :: rst_inname
19413 INTEGER id_id
19414 CHARACTER*80 emess
19415 IF ( id_id .NE. 1 ) THEN
19416 call wrf_debug(1,&
19417 'WARNING in nl_set_rst_inname: rst_inname applies to all domains. First arg ignored.')
19418 ENDIF
19419 model_config_rec%rst_inname = trim(rst_inname)
19420 RETURN
19421 END SUBROUTINE nl_set_rst_inname
19422 SUBROUTINE nl_set_rst_outname ( id_id , rst_outname )
19423 character*256 , INTENT(IN) :: rst_outname
19424 INTEGER id_id
19425 CHARACTER*80 emess
19426 IF ( id_id .NE. 1 ) THEN
19427 call wrf_debug(1,&
19428 'WARNING in nl_set_rst_outname: rst_outname applies to all domains. First arg ignored.')
19429 ENDIF
19430 model_config_rec%rst_outname = trim(rst_outname)
19431 RETURN
19432 END SUBROUTINE nl_set_rst_outname
19433 SUBROUTINE nl_set_write_input ( id_id , write_input )
19434 logical , INTENT(IN) :: write_input
19435 INTEGER id_id
19436 CHARACTER*80 emess
19437 IF ( id_id .NE. 1 ) THEN
19438 call wrf_debug(1,&
19439 'WARNING in nl_set_write_input: write_input applies to all domains. First arg ignored.')
19440 ENDIF
19441 model_config_rec%write_input = write_input
19442 RETURN
19443 END SUBROUTINE nl_set_write_input
19444 SUBROUTINE nl_set_write_restart_at_0h ( id_id , write_restart_at_0h )
19445 logical , INTENT(IN) :: write_restart_at_0h
19446 INTEGER id_id
19447 CHARACTER*80 emess
19448 IF ( id_id .NE. 1 ) THEN
19449 call wrf_debug(1,&
19450 'WARNING in nl_set_write_restart_at_0h: write_restart_at_0h applies to all domains. First arg ignored.')
19451 ENDIF
19452 model_config_rec%write_restart_at_0h = write_restart_at_0h
19453 RETURN
19454 END SUBROUTINE nl_set_write_restart_at_0h
19455 SUBROUTINE nl_set_adjust_output_times ( id_id , adjust_output_times )
19456 logical , INTENT(IN) :: adjust_output_times
19457 INTEGER id_id
19458 CHARACTER*80 emess
19459 IF ( id_id .NE. 1 ) THEN
19460 call wrf_debug(1,&
19461 'WARNING in nl_set_adjust_output_times: adjust_output_times applies to all domains. First arg ignored.')
19462 ENDIF
19463 model_config_rec%adjust_output_times = adjust_output_times
19464 RETURN
19465 END SUBROUTINE nl_set_adjust_output_times
19466 SUBROUTINE nl_set_adjust_input_times ( id_id , adjust_input_times )
19467 logical , INTENT(IN) :: adjust_input_times
19468 INTEGER id_id
19469 CHARACTER*80 emess
19470 IF ( id_id .NE. 1 ) THEN
19471 call wrf_debug(1,&
19472 'WARNING in nl_set_adjust_input_times: adjust_input_times applies to all domains. First arg ignored.')
19473 ENDIF
19474 model_config_rec%adjust_input_times = adjust_input_times
19475 RETURN
19476 END SUBROUTINE nl_set_adjust_input_times
19477 SUBROUTINE nl_set_nocolons ( id_id , nocolons )
19478 logical , INTENT(IN) :: nocolons
19479 INTEGER id_id
19480 CHARACTER*80 emess
19481 IF ( id_id .NE. 1 ) THEN
19482 call wrf_debug(1,&
19483 'WARNING in nl_set_nocolons: nocolons applies to all domains. First arg ignored.')
19484 ENDIF
19485 model_config_rec%nocolons = nocolons
19486 RETURN
19487 END SUBROUTINE nl_set_nocolons
19488 SUBROUTINE nl_set_time_step ( id_id , time_step )
19489 integer , INTENT(IN) :: time_step
19490 INTEGER id_id
19491 CHARACTER*80 emess
19492 IF ( id_id .NE. 1 ) THEN
19493 call wrf_debug(1,&
19494 'WARNING in nl_set_time_step: time_step applies to all domains. First arg ignored.')
19495 ENDIF
19496 model_config_rec%time_step = time_step
19497 RETURN
19498 END SUBROUTINE nl_set_time_step
19499 SUBROUTINE nl_set_time_step_fract_num ( id_id , time_step_fract_num )
19500 integer , INTENT(IN) :: time_step_fract_num
19501 INTEGER id_id
19502 CHARACTER*80 emess
19503 IF ( id_id .NE. 1 ) THEN
19504 call wrf_debug(1,&
19505 'WARNING in nl_set_time_step_fract_num: time_step_fract_num applies to all domains. First arg ignored.')
19506 ENDIF
19507 model_config_rec%time_step_fract_num = time_step_fract_num
19508 RETURN
19509 END SUBROUTINE nl_set_time_step_fract_num
19510 SUBROUTINE nl_set_time_step_fract_den ( id_id , time_step_fract_den )
19511 integer , INTENT(IN) :: time_step_fract_den
19512 INTEGER id_id
19513 CHARACTER*80 emess
19514 IF ( id_id .NE. 1 ) THEN
19515 call wrf_debug(1,&
19516 'WARNING in nl_set_time_step_fract_den: time_step_fract_den applies to all domains. First arg ignored.')
19517 ENDIF
19518 model_config_rec%time_step_fract_den = time_step_fract_den
19519 RETURN
19520 END SUBROUTINE nl_set_time_step_fract_den
19521 SUBROUTINE nl_set_max_dom ( id_id , max_dom )
19522 integer , INTENT(IN) :: max_dom
19523 INTEGER id_id
19524 CHARACTER*80 emess
19525 IF ( id_id .NE. 1 ) THEN
19526 call wrf_debug(1,&
19527 'WARNING in nl_set_max_dom: max_dom applies to all domains. First arg ignored.')
19528 ENDIF
19529 model_config_rec%max_dom = max_dom
19530 RETURN
19531 END SUBROUTINE nl_set_max_dom
19532 SUBROUTINE nl_set_s_we ( id_id , s_we )
19533 integer , INTENT(IN) :: s_we
19534 INTEGER id_id
19535 CHARACTER*80 emess
19536 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19537 WRITE(emess,*)'nl_set_s_we: Out of range domain number: ',id_id
19538 CALL wrf_error_fatal(emess)
19539 ENDIF
19540 model_config_rec%s_we(id_id) = s_we
19541 RETURN
19542 END SUBROUTINE nl_set_s_we
19543 SUBROUTINE nl_set_e_we ( id_id , e_we )
19544 integer , INTENT(IN) :: e_we
19545 INTEGER id_id
19546 CHARACTER*80 emess
19547 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19548 WRITE(emess,*)'nl_set_e_we: Out of range domain number: ',id_id
19549 CALL wrf_error_fatal(emess)
19550 ENDIF
19551 model_config_rec%e_we(id_id) = e_we
19552 RETURN
19553 END SUBROUTINE nl_set_e_we
19554 SUBROUTINE nl_set_s_sn ( id_id , s_sn )
19555 integer , INTENT(IN) :: s_sn
19556 INTEGER id_id
19557 CHARACTER*80 emess
19558 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19559 WRITE(emess,*)'nl_set_s_sn: Out of range domain number: ',id_id
19560 CALL wrf_error_fatal(emess)
19561 ENDIF
19562 model_config_rec%s_sn(id_id) = s_sn
19563 RETURN
19564 END SUBROUTINE nl_set_s_sn
19565 SUBROUTINE nl_set_e_sn ( id_id , e_sn )
19566 integer , INTENT(IN) :: e_sn
19567 INTEGER id_id
19568 CHARACTER*80 emess
19569 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19570 WRITE(emess,*)'nl_set_e_sn: Out of range domain number: ',id_id
19571 CALL wrf_error_fatal(emess)
19572 ENDIF
19573 model_config_rec%e_sn(id_id) = e_sn
19574 RETURN
19575 END SUBROUTINE nl_set_e_sn
19576 SUBROUTINE nl_set_s_vert ( id_id , s_vert )
19577 integer , INTENT(IN) :: s_vert
19578 INTEGER id_id
19579 CHARACTER*80 emess
19580 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19581 WRITE(emess,*)'nl_set_s_vert: Out of range domain number: ',id_id
19582 CALL wrf_error_fatal(emess)
19583 ENDIF
19584 model_config_rec%s_vert(id_id) = s_vert
19585 RETURN
19586 END SUBROUTINE nl_set_s_vert
19587 SUBROUTINE nl_set_e_vert ( id_id , e_vert )
19588 integer , INTENT(IN) :: e_vert
19589 INTEGER id_id
19590 CHARACTER*80 emess
19591 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19592 WRITE(emess,*)'nl_set_e_vert: Out of range domain number: ',id_id
19593 CALL wrf_error_fatal(emess)
19594 ENDIF
19595 model_config_rec%e_vert(id_id) = e_vert
19596 RETURN
19597 END SUBROUTINE nl_set_e_vert
19598 SUBROUTINE nl_set_num_metgrid_levels ( id_id , num_metgrid_levels )
19599 integer , INTENT(IN) :: num_metgrid_levels
19600 INTEGER id_id
19601 CHARACTER*80 emess
19602 IF ( id_id .NE. 1 ) THEN
19603 call wrf_debug(1,&
19604 'WARNING in nl_set_num_metgrid_levels: num_metgrid_levels applies to all domains. First arg ignored.')
19605 ENDIF
19606 model_config_rec%num_metgrid_levels = num_metgrid_levels
19607 RETURN
19608 END SUBROUTINE nl_set_num_metgrid_levels
19609 SUBROUTINE nl_set_p_top_requested ( id_id , p_top_requested )
19610 real , INTENT(IN) :: p_top_requested
19611 INTEGER id_id
19612 CHARACTER*80 emess
19613 IF ( id_id .NE. 1 ) THEN
19614 call wrf_debug(1,&
19615 'WARNING in nl_set_p_top_requested: p_top_requested applies to all domains. First arg ignored.')
19616 ENDIF
19617 model_config_rec%p_top_requested = p_top_requested
19618 RETURN
19619 END SUBROUTINE nl_set_p_top_requested
19620 SUBROUTINE nl_set_interp_type ( id_id , interp_type )
19621 integer , INTENT(IN) :: interp_type
19622 INTEGER id_id
19623 CHARACTER*80 emess
19624 IF ( id_id .NE. 1 ) THEN
19625 call wrf_debug(1,&
19626 'WARNING in nl_set_interp_type: interp_type applies to all domains. First arg ignored.')
19627 ENDIF
19628 model_config_rec%interp_type = interp_type
19629 RETURN
19630 END SUBROUTINE nl_set_interp_type
19631 SUBROUTINE nl_set_lowest_lev_from_sfc ( id_id , lowest_lev_from_sfc )
19632 logical , INTENT(IN) :: lowest_lev_from_sfc
19633 INTEGER id_id
19634 CHARACTER*80 emess
19635 IF ( id_id .NE. 1 ) THEN
19636 call wrf_debug(1,&
19637 'WARNING in nl_set_lowest_lev_from_sfc: lowest_lev_from_sfc applies to all domains. First arg ignored.')
19638 ENDIF
19639 model_config_rec%lowest_lev_from_sfc = lowest_lev_from_sfc
19640 RETURN
19641 END SUBROUTINE nl_set_lowest_lev_from_sfc
19642 SUBROUTINE nl_set_lagrange_order ( id_id , lagrange_order )
19643 integer , INTENT(IN) :: lagrange_order
19644 INTEGER id_id
19645 CHARACTER*80 emess
19646 IF ( id_id .NE. 1 ) THEN
19647 call wrf_debug(1,&
19648 'WARNING in nl_set_lagrange_order: lagrange_order applies to all domains. First arg ignored.')
19649 ENDIF
19650 model_config_rec%lagrange_order = lagrange_order
19651 RETURN
19652 END SUBROUTINE nl_set_lagrange_order
19653 SUBROUTINE nl_set_dx ( id_id , dx )
19654 real , INTENT(IN) :: dx
19655 INTEGER id_id
19656 CHARACTER*80 emess
19657 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19658 WRITE(emess,*)'nl_set_dx: Out of range domain number: ',id_id
19659 CALL wrf_error_fatal(emess)
19660 ENDIF
19661 model_config_rec%dx(id_id) = dx
19662 RETURN
19663 END SUBROUTINE nl_set_dx
19664 SUBROUTINE nl_set_dy ( id_id , dy )
19665 real , INTENT(IN) :: dy
19666 INTEGER id_id
19667 CHARACTER*80 emess
19668 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19669 WRITE(emess,*)'nl_set_dy: Out of range domain number: ',id_id
19670 CALL wrf_error_fatal(emess)
19671 ENDIF
19672 model_config_rec%dy(id_id) = dy
19673 RETURN
19674 END SUBROUTINE nl_set_dy
19675 SUBROUTINE nl_set_grid_id ( id_id , grid_id )
19676 integer , INTENT(IN) :: grid_id
19677 INTEGER id_id
19678 CHARACTER*80 emess
19679 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19680 WRITE(emess,*)'nl_set_grid_id: Out of range domain number: ',id_id
19681 CALL wrf_error_fatal(emess)
19682 ENDIF
19683 model_config_rec%grid_id(id_id) = grid_id
19684 RETURN
19685 END SUBROUTINE nl_set_grid_id
19686 SUBROUTINE nl_set_parent_id ( id_id , parent_id )
19687 integer , INTENT(IN) :: parent_id
19688 INTEGER id_id
19689 CHARACTER*80 emess
19690 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19691 WRITE(emess,*)'nl_set_parent_id: Out of range domain number: ',id_id
19692 CALL wrf_error_fatal(emess)
19693 ENDIF
19694 model_config_rec%parent_id(id_id) = parent_id
19695 RETURN
19696 END SUBROUTINE nl_set_parent_id
19697 SUBROUTINE nl_set_i_parent_start ( id_id , i_parent_start )
19698 integer , INTENT(IN) :: i_parent_start
19699 INTEGER id_id
19700 CHARACTER*80 emess
19701 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19702 WRITE(emess,*)'nl_set_i_parent_start: Out of range domain number: ',id_id
19703 CALL wrf_error_fatal(emess)
19704 ENDIF
19705 model_config_rec%i_parent_start(id_id) = i_parent_start
19706 RETURN
19707 END SUBROUTINE nl_set_i_parent_start
19708 SUBROUTINE nl_set_j_parent_start ( id_id , j_parent_start )
19709 integer , INTENT(IN) :: j_parent_start
19710 INTEGER id_id
19711 CHARACTER*80 emess
19712 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19713 WRITE(emess,*)'nl_set_j_parent_start: Out of range domain number: ',id_id
19714 CALL wrf_error_fatal(emess)
19715 ENDIF
19716 model_config_rec%j_parent_start(id_id) = j_parent_start
19717 RETURN
19718 END SUBROUTINE nl_set_j_parent_start
19719 SUBROUTINE nl_set_parent_grid_ratio ( id_id , parent_grid_ratio )
19720 integer , INTENT(IN) :: parent_grid_ratio
19721 INTEGER id_id
19722 CHARACTER*80 emess
19723 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19724 WRITE(emess,*)'nl_set_parent_grid_ratio: Out of range domain number: ',id_id
19725 CALL wrf_error_fatal(emess)
19726 ENDIF
19727 model_config_rec%parent_grid_ratio(id_id) = parent_grid_ratio
19728 RETURN
19729 END SUBROUTINE nl_set_parent_grid_ratio
19730 SUBROUTINE nl_set_parent_time_step_ratio ( id_id , parent_time_step_ratio )
19731 integer , INTENT(IN) :: parent_time_step_ratio
19732 INTEGER id_id
19733 CHARACTER*80 emess
19734 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19735 WRITE(emess,*)'nl_set_parent_time_step_ratio: Out of range domain number: ',id_id
19736 CALL wrf_error_fatal(emess)
19737 ENDIF
19738 model_config_rec%parent_time_step_ratio(id_id) = parent_time_step_ratio
19739 RETURN
19740 END SUBROUTINE nl_set_parent_time_step_ratio
19741 SUBROUTINE nl_set_feedback ( id_id , feedback )
19742 integer , INTENT(IN) :: feedback
19743 INTEGER id_id
19744 CHARACTER*80 emess
19745 IF ( id_id .NE. 1 ) THEN
19746 call wrf_debug(1,&
19747 'WARNING in nl_set_feedback: feedback applies to all domains. First arg ignored.')
19748 ENDIF
19749 model_config_rec%feedback = feedback
19750 RETURN
19751 END SUBROUTINE nl_set_feedback
19752 SUBROUTINE nl_set_smooth_option ( id_id , smooth_option )
19753 integer , INTENT(IN) :: smooth_option
19754 INTEGER id_id
19755 CHARACTER*80 emess
19756 IF ( id_id .NE. 1 ) THEN
19757 call wrf_debug(1,&
19758 'WARNING in nl_set_smooth_option: smooth_option applies to all domains. First arg ignored.')
19759 ENDIF
19760 model_config_rec%smooth_option = smooth_option
19761 RETURN
19762 END SUBROUTINE nl_set_smooth_option
19763 SUBROUTINE nl_set_blend_width ( id_id , blend_width )
19764 integer , INTENT(IN) :: blend_width
19765 INTEGER id_id
19766 CHARACTER*80 emess
19767 IF ( id_id .NE. 1 ) THEN
19768 call wrf_debug(1,&
19769 'WARNING in nl_set_blend_width: blend_width applies to all domains. First arg ignored.')
19770 ENDIF
19771 model_config_rec%blend_width = blend_width
19772 RETURN
19773 END SUBROUTINE nl_set_blend_width
19774 SUBROUTINE nl_set_ztop ( id_id , ztop )
19775 real , INTENT(IN) :: ztop
19776 INTEGER id_id
19777 CHARACTER*80 emess
19778 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19779 WRITE(emess,*)'nl_set_ztop: Out of range domain number: ',id_id
19780 CALL wrf_error_fatal(emess)
19781 ENDIF
19782 model_config_rec%ztop(id_id) = ztop
19783 RETURN
19784 END SUBROUTINE nl_set_ztop
19785 SUBROUTINE nl_set_moad_grid_ratio ( id_id , moad_grid_ratio )
19786 integer , INTENT(IN) :: moad_grid_ratio
19787 INTEGER id_id
19788 CHARACTER*80 emess
19789 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19790 WRITE(emess,*)'nl_set_moad_grid_ratio: Out of range domain number: ',id_id
19791 CALL wrf_error_fatal(emess)
19792 ENDIF
19793 model_config_rec%moad_grid_ratio(id_id) = moad_grid_ratio
19794 RETURN
19795 END SUBROUTINE nl_set_moad_grid_ratio
19796 SUBROUTINE nl_set_moad_time_step_ratio ( id_id , moad_time_step_ratio )
19797 integer , INTENT(IN) :: moad_time_step_ratio
19798 INTEGER id_id
19799 CHARACTER*80 emess
19800 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19801 WRITE(emess,*)'nl_set_moad_time_step_ratio: Out of range domain number: ',id_id
19802 CALL wrf_error_fatal(emess)
19803 ENDIF
19804 model_config_rec%moad_time_step_ratio(id_id) = moad_time_step_ratio
19805 RETURN
19806 END SUBROUTINE nl_set_moad_time_step_ratio
19807 SUBROUTINE nl_set_shw ( id_id , shw )
19808 integer , INTENT(IN) :: shw
19809 INTEGER id_id
19810 CHARACTER*80 emess
19811 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19812 WRITE(emess,*)'nl_set_shw: Out of range domain number: ',id_id
19813 CALL wrf_error_fatal(emess)
19814 ENDIF
19815 model_config_rec%shw(id_id) = shw
19816 RETURN
19817 END SUBROUTINE nl_set_shw
19818 SUBROUTINE nl_set_tile_sz_x ( id_id , tile_sz_x )
19819 integer , INTENT(IN) :: tile_sz_x
19820 INTEGER id_id
19821 CHARACTER*80 emess
19822 IF ( id_id .NE. 1 ) THEN
19823 call wrf_debug(1,&
19824 'WARNING in nl_set_tile_sz_x: tile_sz_x applies to all domains. First arg ignored.')
19825 ENDIF
19826 model_config_rec%tile_sz_x = tile_sz_x
19827 RETURN
19828 END SUBROUTINE nl_set_tile_sz_x
19829 SUBROUTINE nl_set_tile_sz_y ( id_id , tile_sz_y )
19830 integer , INTENT(IN) :: tile_sz_y
19831 INTEGER id_id
19832 CHARACTER*80 emess
19833 IF ( id_id .NE. 1 ) THEN
19834 call wrf_debug(1,&
19835 'WARNING in nl_set_tile_sz_y: tile_sz_y applies to all domains. First arg ignored.')
19836 ENDIF
19837 model_config_rec%tile_sz_y = tile_sz_y
19838 RETURN
19839 END SUBROUTINE nl_set_tile_sz_y
19840 SUBROUTINE nl_set_numtiles ( id_id , numtiles )
19841 integer , INTENT(IN) :: numtiles
19842 INTEGER id_id
19843 CHARACTER*80 emess
19844 IF ( id_id .NE. 1 ) THEN
19845 call wrf_debug(1,&
19846 'WARNING in nl_set_numtiles: numtiles applies to all domains. First arg ignored.')
19847 ENDIF
19848 model_config_rec%numtiles = numtiles
19849 RETURN
19850 END SUBROUTINE nl_set_numtiles
19851 SUBROUTINE nl_set_nproc_x ( id_id , nproc_x )
19852 integer , INTENT(IN) :: nproc_x
19853 INTEGER id_id
19854 CHARACTER*80 emess
19855 IF ( id_id .NE. 1 ) THEN
19856 call wrf_debug(1,&
19857 'WARNING in nl_set_nproc_x: nproc_x applies to all domains. First arg ignored.')
19858 ENDIF
19859 model_config_rec%nproc_x = nproc_x
19860 RETURN
19861 END SUBROUTINE nl_set_nproc_x
19862 SUBROUTINE nl_set_nproc_y ( id_id , nproc_y )
19863 integer , INTENT(IN) :: nproc_y
19864 INTEGER id_id
19865 CHARACTER*80 emess
19866 IF ( id_id .NE. 1 ) THEN
19867 call wrf_debug(1,&
19868 'WARNING in nl_set_nproc_y: nproc_y applies to all domains. First arg ignored.')
19869 ENDIF
19870 model_config_rec%nproc_y = nproc_y
19871 RETURN
19872 END SUBROUTINE nl_set_nproc_y
19873 SUBROUTINE nl_set_irand ( id_id , irand )
19874 integer , INTENT(IN) :: irand
19875 INTEGER id_id
19876 CHARACTER*80 emess
19877 IF ( id_id .NE. 1 ) THEN
19878 call wrf_debug(1,&
19879 'WARNING in nl_set_irand: irand applies to all domains. First arg ignored.')
19880 ENDIF
19881 model_config_rec%irand = irand
19882 RETURN
19883 END SUBROUTINE nl_set_irand
19884 SUBROUTINE nl_set_dt ( id_id , dt )
19885 real , INTENT(IN) :: dt
19886 INTEGER id_id
19887 CHARACTER*80 emess
19888 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19889 WRITE(emess,*)'nl_set_dt: Out of range domain number: ',id_id
19890 CALL wrf_error_fatal(emess)
19891 ENDIF
19892 model_config_rec%dt(id_id) = dt
19893 RETURN
19894 END SUBROUTINE nl_set_dt
19895 SUBROUTINE nl_set_num_moves ( id_id , num_moves )
19896 integer , INTENT(IN) :: num_moves
19897 INTEGER id_id
19898 CHARACTER*80 emess
19899 IF ( id_id .NE. 1 ) THEN
19900 call wrf_debug(1,&
19901 'WARNING in nl_set_num_moves: num_moves applies to all domains. First arg ignored.')
19902 ENDIF
19903 model_config_rec%num_moves = num_moves
19904 RETURN
19905 END SUBROUTINE nl_set_num_moves
19906 SUBROUTINE nl_set_vortex_interval ( id_id , vortex_interval )
19907 integer , INTENT(IN) :: vortex_interval
19908 INTEGER id_id
19909 CHARACTER*80 emess
19910 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19911 WRITE(emess,*)'nl_set_vortex_interval: Out of range domain number: ',id_id
19912 CALL wrf_error_fatal(emess)
19913 ENDIF
19914 model_config_rec%vortex_interval(id_id) = vortex_interval
19915 RETURN
19916 END SUBROUTINE nl_set_vortex_interval
19917 SUBROUTINE nl_set_max_vortex_speed ( id_id , max_vortex_speed )
19918 integer , INTENT(IN) :: max_vortex_speed
19919 INTEGER id_id
19920 CHARACTER*80 emess
19921 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19922 WRITE(emess,*)'nl_set_max_vortex_speed: Out of range domain number: ',id_id
19923 CALL wrf_error_fatal(emess)
19924 ENDIF
19925 model_config_rec%max_vortex_speed(id_id) = max_vortex_speed
19926 RETURN
19927 END SUBROUTINE nl_set_max_vortex_speed
19928 SUBROUTINE nl_set_corral_dist ( id_id , corral_dist )
19929 integer , INTENT(IN) :: corral_dist
19930 INTEGER id_id
19931 CHARACTER*80 emess
19932 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19933 WRITE(emess,*)'nl_set_corral_dist: Out of range domain number: ',id_id
19934 CALL wrf_error_fatal(emess)
19935 ENDIF
19936 model_config_rec%corral_dist(id_id) = corral_dist
19937 RETURN
19938 END SUBROUTINE nl_set_corral_dist
19939 SUBROUTINE nl_set_move_id ( id_id , move_id )
19940 integer , INTENT(IN) :: move_id
19941 INTEGER id_id
19942 CHARACTER*80 emess
19943 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19944 WRITE(emess,*)'nl_set_move_id: Out of range move number: ',id_id
19945 CALL wrf_error_fatal(emess)
19946 ENDIF
19947 model_config_rec%move_id(id_id) = move_id
19948 RETURN
19949 END SUBROUTINE nl_set_move_id
19950 SUBROUTINE nl_set_move_interval ( id_id , move_interval )
19951 integer , INTENT(IN) :: move_interval
19952 INTEGER id_id
19953 CHARACTER*80 emess
19954 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19955 WRITE(emess,*)'nl_set_move_interval: Out of range move number: ',id_id
19956 CALL wrf_error_fatal(emess)
19957 ENDIF
19958 model_config_rec%move_interval(id_id) = move_interval
19959 RETURN
19960 END SUBROUTINE nl_set_move_interval
19961 SUBROUTINE nl_set_move_cd_x ( id_id , move_cd_x )
19962 integer , INTENT(IN) :: move_cd_x
19963 INTEGER id_id
19964 CHARACTER*80 emess
19965 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19966 WRITE(emess,*)'nl_set_move_cd_x: Out of range move number: ',id_id
19967 CALL wrf_error_fatal(emess)
19968 ENDIF
19969 model_config_rec%move_cd_x(id_id) = move_cd_x
19970 RETURN
19971 END SUBROUTINE nl_set_move_cd_x
19972 SUBROUTINE nl_set_move_cd_y ( id_id , move_cd_y )
19973 integer , INTENT(IN) :: move_cd_y
19974 INTEGER id_id
19975 CHARACTER*80 emess
19976 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%num_moves ) THEN
19977 WRITE(emess,*)'nl_set_move_cd_y: Out of range move number: ',id_id
19978 CALL wrf_error_fatal(emess)
19979 ENDIF
19980 model_config_rec%move_cd_y(id_id) = move_cd_y
19981 RETURN
19982 END SUBROUTINE nl_set_move_cd_y
19983 SUBROUTINE nl_set_swap_x ( id_id , swap_x )
19984 logical , INTENT(IN) :: swap_x
19985 INTEGER id_id
19986 CHARACTER*80 emess
19987 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19988 WRITE(emess,*)'nl_set_swap_x: Out of range domain number: ',id_id
19989 CALL wrf_error_fatal(emess)
19990 ENDIF
19991 model_config_rec%swap_x(id_id) = swap_x
19992 RETURN
19993 END SUBROUTINE nl_set_swap_x
19994 SUBROUTINE nl_set_swap_y ( id_id , swap_y )
19995 logical , INTENT(IN) :: swap_y
19996 INTEGER id_id
19997 CHARACTER*80 emess
19998 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
19999 WRITE(emess,*)'nl_set_swap_y: Out of range domain number: ',id_id
20000 CALL wrf_error_fatal(emess)
20001 ENDIF
20002 model_config_rec%swap_y(id_id) = swap_y
20003 RETURN
20004 END SUBROUTINE nl_set_swap_y
20005 SUBROUTINE nl_set_cycle_x ( id_id , cycle_x )
20006 logical , INTENT(IN) :: cycle_x
20007 INTEGER id_id
20008 CHARACTER*80 emess
20009 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20010 WRITE(emess,*)'nl_set_cycle_x: Out of range domain number: ',id_id
20011 CALL wrf_error_fatal(emess)
20012 ENDIF
20013 model_config_rec%cycle_x(id_id) = cycle_x
20014 RETURN
20015 END SUBROUTINE nl_set_cycle_x
20016 SUBROUTINE nl_set_cycle_y ( id_id , cycle_y )
20017 logical , INTENT(IN) :: cycle_y
20018 INTEGER id_id
20019 CHARACTER*80 emess
20020 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20021 WRITE(emess,*)'nl_set_cycle_y: Out of range domain number: ',id_id
20022 CALL wrf_error_fatal(emess)
20023 ENDIF
20024 model_config_rec%cycle_y(id_id) = cycle_y
20025 RETURN
20026 END SUBROUTINE nl_set_cycle_y
20027 SUBROUTINE nl_set_reorder_mesh ( id_id , reorder_mesh )
20028 logical , INTENT(IN) :: reorder_mesh
20029 INTEGER id_id
20030 CHARACTER*80 emess
20031 IF ( id_id .NE. 1 ) THEN
20032 call wrf_debug(1,&
20033 'WARNING in nl_set_reorder_mesh: reorder_mesh applies to all domains. First arg ignored.')
20034 ENDIF
20035 model_config_rec%reorder_mesh = reorder_mesh
20036 RETURN
20037 END SUBROUTINE nl_set_reorder_mesh
20038 SUBROUTINE nl_set_perturb_input ( id_id , perturb_input )
20039 logical , INTENT(IN) :: perturb_input
20040 INTEGER id_id
20041 CHARACTER*80 emess
20042 IF ( id_id .NE. 1 ) THEN
20043 call wrf_debug(1,&
20044 'WARNING in nl_set_perturb_input: perturb_input applies to all domains. First arg ignored.')
20045 ENDIF
20046 model_config_rec%perturb_input = perturb_input
20047 RETURN
20048 END SUBROUTINE nl_set_perturb_input
20049 SUBROUTINE nl_set_eta_levels ( id_id , eta_levels )
20050 real , INTENT(IN) :: eta_levels
20051 INTEGER id_id
20052 CHARACTER*80 emess
20053 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%e_vert(1) ) THEN
20054 WRITE(emess,*)'nl_set_eta_levels: Out of range eta_level number: ',id_id
20055 CALL wrf_error_fatal(emess)
20056 ENDIF
20057 model_config_rec%eta_levels(id_id) = eta_levels
20058 RETURN
20059 END SUBROUTINE nl_set_eta_levels
20060 SUBROUTINE nl_set_max_dz ( id_id , max_dz )
20061 real , INTENT(IN) :: max_dz
20062 INTEGER id_id
20063 CHARACTER*80 emess
20064 IF ( id_id .NE. 1 ) THEN
20065 call wrf_debug(1,&
20066 'WARNING in nl_set_max_dz: max_dz applies to all domains. First arg ignored.')
20067 ENDIF
20068 model_config_rec%max_dz = max_dz
20069 RETURN
20070 END SUBROUTINE nl_set_max_dz
20071 SUBROUTINE nl_set_mp_physics ( id_id , mp_physics )
20072 integer , INTENT(IN) :: mp_physics
20073 INTEGER id_id
20074 CHARACTER*80 emess
20075 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20076 WRITE(emess,*)'nl_set_mp_physics: Out of range domain number: ',id_id
20077 CALL wrf_error_fatal(emess)
20078 ENDIF
20079 model_config_rec%mp_physics(id_id) = mp_physics
20080 RETURN
20081 END SUBROUTINE nl_set_mp_physics
20082 SUBROUTINE nl_set_ra_lw_physics ( id_id , ra_lw_physics )
20083 integer , INTENT(IN) :: ra_lw_physics
20084 INTEGER id_id
20085 CHARACTER*80 emess
20086 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20087 WRITE(emess,*)'nl_set_ra_lw_physics: Out of range domain number: ',id_id
20088 CALL wrf_error_fatal(emess)
20089 ENDIF
20090 model_config_rec%ra_lw_physics(id_id) = ra_lw_physics
20091 RETURN
20092 END SUBROUTINE nl_set_ra_lw_physics
20093 SUBROUTINE nl_set_ra_sw_physics ( id_id , ra_sw_physics )
20094 integer , INTENT(IN) :: ra_sw_physics
20095 INTEGER id_id
20096 CHARACTER*80 emess
20097 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20098 WRITE(emess,*)'nl_set_ra_sw_physics: Out of range domain number: ',id_id
20099 CALL wrf_error_fatal(emess)
20100 ENDIF
20101 model_config_rec%ra_sw_physics(id_id) = ra_sw_physics
20102 RETURN
20103 END SUBROUTINE nl_set_ra_sw_physics
20104 SUBROUTINE nl_set_radt ( id_id , radt )
20105 real , INTENT(IN) :: radt
20106 INTEGER id_id
20107 CHARACTER*80 emess
20108 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20109 WRITE(emess,*)'nl_set_radt: Out of range domain number: ',id_id
20110 CALL wrf_error_fatal(emess)
20111 ENDIF
20112 model_config_rec%radt(id_id) = radt
20113 RETURN
20114 END SUBROUTINE nl_set_radt
20115 SUBROUTINE nl_set_sf_sfclay_physics ( id_id , sf_sfclay_physics )
20116 integer , INTENT(IN) :: sf_sfclay_physics
20117 INTEGER id_id
20118 CHARACTER*80 emess
20119 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20120 WRITE(emess,*)'nl_set_sf_sfclay_physics: Out of range domain number: ',id_id
20121 CALL wrf_error_fatal(emess)
20122 ENDIF
20123 model_config_rec%sf_sfclay_physics(id_id) = sf_sfclay_physics
20124 RETURN
20125 END SUBROUTINE nl_set_sf_sfclay_physics
20126 SUBROUTINE nl_set_sf_surface_physics ( id_id , sf_surface_physics )
20127 integer , INTENT(IN) :: sf_surface_physics
20128 INTEGER id_id
20129 CHARACTER*80 emess
20130 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20131 WRITE(emess,*)'nl_set_sf_surface_physics: Out of range domain number: ',id_id
20132 CALL wrf_error_fatal(emess)
20133 ENDIF
20134 model_config_rec%sf_surface_physics(id_id) = sf_surface_physics
20135 RETURN
20136 END SUBROUTINE nl_set_sf_surface_physics
20137 SUBROUTINE nl_set_bl_pbl_physics ( id_id , bl_pbl_physics )
20138 integer , INTENT(IN) :: bl_pbl_physics
20139 INTEGER id_id
20140 CHARACTER*80 emess
20141 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20142 WRITE(emess,*)'nl_set_bl_pbl_physics: Out of range domain number: ',id_id
20143 CALL wrf_error_fatal(emess)
20144 ENDIF
20145 model_config_rec%bl_pbl_physics(id_id) = bl_pbl_physics
20146 RETURN
20147 END SUBROUTINE nl_set_bl_pbl_physics
20148 SUBROUTINE nl_set_bldt ( id_id , bldt )
20149 real , INTENT(IN) :: bldt
20150 INTEGER id_id
20151 CHARACTER*80 emess
20152 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20153 WRITE(emess,*)'nl_set_bldt: Out of range domain number: ',id_id
20154 CALL wrf_error_fatal(emess)
20155 ENDIF
20156 model_config_rec%bldt(id_id) = bldt
20157 RETURN
20158 END SUBROUTINE nl_set_bldt
20159 SUBROUTINE nl_set_cu_physics ( id_id , cu_physics )
20160 integer , INTENT(IN) :: cu_physics
20161 INTEGER id_id
20162 CHARACTER*80 emess
20163 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20164 WRITE(emess,*)'nl_set_cu_physics: Out of range domain number: ',id_id
20165 CALL wrf_error_fatal(emess)
20166 ENDIF
20167 model_config_rec%cu_physics(id_id) = cu_physics
20168 RETURN
20169 END SUBROUTINE nl_set_cu_physics
20170 SUBROUTINE nl_set_cudt ( id_id , cudt )
20171 real , INTENT(IN) :: cudt
20172 INTEGER id_id
20173 CHARACTER*80 emess
20174 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20175 WRITE(emess,*)'nl_set_cudt: Out of range domain number: ',id_id
20176 CALL wrf_error_fatal(emess)
20177 ENDIF
20178 model_config_rec%cudt(id_id) = cudt
20179 RETURN
20180 END SUBROUTINE nl_set_cudt
20181 SUBROUTINE nl_set_gsmdt ( id_id , gsmdt )
20182 real , INTENT(IN) :: gsmdt
20183 INTEGER id_id
20184 CHARACTER*80 emess
20185 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20186 WRITE(emess,*)'nl_set_gsmdt: Out of range domain number: ',id_id
20187 CALL wrf_error_fatal(emess)
20188 ENDIF
20189 model_config_rec%gsmdt(id_id) = gsmdt
20190 RETURN
20191 END SUBROUTINE nl_set_gsmdt
20192 SUBROUTINE nl_set_isfflx ( id_id , isfflx )
20193 integer , INTENT(IN) :: isfflx
20194 INTEGER id_id
20195 CHARACTER*80 emess
20196 IF ( id_id .NE. 1 ) THEN
20197 call wrf_debug(1,&
20198 'WARNING in nl_set_isfflx: isfflx applies to all domains. First arg ignored.')
20199 ENDIF
20200 model_config_rec%isfflx = isfflx
20201 RETURN
20202 END SUBROUTINE nl_set_isfflx
20203 SUBROUTINE nl_set_ifsnow ( id_id , ifsnow )
20204 integer , INTENT(IN) :: ifsnow
20205 INTEGER id_id
20206 CHARACTER*80 emess
20207 IF ( id_id .NE. 1 ) THEN
20208 call wrf_debug(1,&
20209 'WARNING in nl_set_ifsnow: ifsnow applies to all domains. First arg ignored.')
20210 ENDIF
20211 model_config_rec%ifsnow = ifsnow
20212 RETURN
20213 END SUBROUTINE nl_set_ifsnow
20214 SUBROUTINE nl_set_icloud ( id_id , icloud )
20215 integer , INTENT(IN) :: icloud
20216 INTEGER id_id
20217 CHARACTER*80 emess
20218 IF ( id_id .NE. 1 ) THEN
20219 call wrf_debug(1,&
20220 'WARNING in nl_set_icloud: icloud applies to all domains. First arg ignored.')
20221 ENDIF
20222 model_config_rec%icloud = icloud
20223 RETURN
20224 END SUBROUTINE nl_set_icloud
20225 SUBROUTINE nl_set_swrad_scat ( id_id , swrad_scat )
20226 real , INTENT(IN) :: swrad_scat
20227 INTEGER id_id
20228 CHARACTER*80 emess
20229 IF ( id_id .NE. 1 ) THEN
20230 call wrf_debug(1,&
20231 'WARNING in nl_set_swrad_scat: swrad_scat applies to all domains. First arg ignored.')
20232 ENDIF
20233 model_config_rec%swrad_scat = swrad_scat
20234 RETURN
20235 END SUBROUTINE nl_set_swrad_scat
20236 SUBROUTINE nl_set_surface_input_source ( id_id , surface_input_source )
20237 integer , INTENT(IN) :: surface_input_source
20238 INTEGER id_id
20239 CHARACTER*80 emess
20240 IF ( id_id .NE. 1 ) THEN
20241 call wrf_debug(1,&
20242 'WARNING in nl_set_surface_input_source: surface_input_source applies to all domains. First arg ignored.')
20243 ENDIF
20244 model_config_rec%surface_input_source = surface_input_source
20245 RETURN
20246 END SUBROUTINE nl_set_surface_input_source
20247 SUBROUTINE nl_set_num_soil_layers ( id_id , num_soil_layers )
20248 integer , INTENT(IN) :: num_soil_layers
20249 INTEGER id_id
20250 CHARACTER*80 emess
20251 IF ( id_id .NE. 1 ) THEN
20252 call wrf_debug(1,&
20253 'WARNING in nl_set_num_soil_layers: num_soil_layers applies to all domains. First arg ignored.')
20254 ENDIF
20255 model_config_rec%num_soil_layers = num_soil_layers
20256 RETURN
20257 END SUBROUTINE nl_set_num_soil_layers
20258 SUBROUTINE nl_set_num_months ( id_id , num_months )
20259 integer , INTENT(IN) :: num_months
20260 INTEGER id_id
20261 CHARACTER*80 emess
20262 IF ( id_id .NE. 1 ) THEN
20263 call wrf_debug(1,&
20264 'WARNING in nl_set_num_months: num_months applies to all domains. First arg ignored.')
20265 ENDIF
20266 model_config_rec%num_months = num_months
20267 RETURN
20268 END SUBROUTINE nl_set_num_months
20269 SUBROUTINE nl_set_maxiens ( id_id , maxiens )
20270 integer , INTENT(IN) :: maxiens
20271 INTEGER id_id
20272 CHARACTER*80 emess
20273 IF ( id_id .NE. 1 ) THEN
20274 call wrf_debug(1,&
20275 'WARNING in nl_set_maxiens: maxiens applies to all domains. First arg ignored.')
20276 ENDIF
20277 model_config_rec%maxiens = maxiens
20278 RETURN
20279 END SUBROUTINE nl_set_maxiens
20280 SUBROUTINE nl_set_maxens ( id_id , maxens )
20281 integer , INTENT(IN) :: maxens
20282 INTEGER id_id
20283 CHARACTER*80 emess
20284 IF ( id_id .NE. 1 ) THEN
20285 call wrf_debug(1,&
20286 'WARNING in nl_set_maxens: maxens applies to all domains. First arg ignored.')
20287 ENDIF
20288 model_config_rec%maxens = maxens
20289 RETURN
20290 END SUBROUTINE nl_set_maxens
20291 SUBROUTINE nl_set_maxens2 ( id_id , maxens2 )
20292 integer , INTENT(IN) :: maxens2
20293 INTEGER id_id
20294 CHARACTER*80 emess
20295 IF ( id_id .NE. 1 ) THEN
20296 call wrf_debug(1,&
20297 'WARNING in nl_set_maxens2: maxens2 applies to all domains. First arg ignored.')
20298 ENDIF
20299 model_config_rec%maxens2 = maxens2
20300 RETURN
20301 END SUBROUTINE nl_set_maxens2
20302 SUBROUTINE nl_set_maxens3 ( id_id , maxens3 )
20303 integer , INTENT(IN) :: maxens3
20304 INTEGER id_id
20305 CHARACTER*80 emess
20306 IF ( id_id .NE. 1 ) THEN
20307 call wrf_debug(1,&
20308 'WARNING in nl_set_maxens3: maxens3 applies to all domains. First arg ignored.')
20309 ENDIF
20310 model_config_rec%maxens3 = maxens3
20311 RETURN
20312 END SUBROUTINE nl_set_maxens3
20313 SUBROUTINE nl_set_ensdim ( id_id , ensdim )
20314 integer , INTENT(IN) :: ensdim
20315 INTEGER id_id
20316 CHARACTER*80 emess
20317 IF ( id_id .NE. 1 ) THEN
20318 call wrf_debug(1,&
20319 'WARNING in nl_set_ensdim: ensdim applies to all domains. First arg ignored.')
20320 ENDIF
20321 model_config_rec%ensdim = ensdim
20322 RETURN
20323 END SUBROUTINE nl_set_ensdim
20324 SUBROUTINE nl_set_chem_opt ( id_id , chem_opt )
20325 integer , INTENT(IN) :: chem_opt
20326 INTEGER id_id
20327 CHARACTER*80 emess
20328 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20329 WRITE(emess,*)'nl_set_chem_opt: Out of range domain number: ',id_id
20330 CALL wrf_error_fatal(emess)
20331 ENDIF
20332 model_config_rec%chem_opt(id_id) = chem_opt
20333 RETURN
20334 END SUBROUTINE nl_set_chem_opt
20335 SUBROUTINE nl_set_num_land_cat ( id_id , num_land_cat )
20336 integer , INTENT(IN) :: num_land_cat
20337 INTEGER id_id
20338 CHARACTER*80 emess
20339 IF ( id_id .NE. 1 ) THEN
20340 call wrf_debug(1,&
20341 'WARNING in nl_set_num_land_cat: num_land_cat applies to all domains. First arg ignored.')
20342 ENDIF
20343 model_config_rec%num_land_cat = num_land_cat
20344 RETURN
20345 END SUBROUTINE nl_set_num_land_cat
20346 SUBROUTINE nl_set_num_soil_cat ( id_id , num_soil_cat )
20347 integer , INTENT(IN) :: num_soil_cat
20348 INTEGER id_id
20349 CHARACTER*80 emess
20350 IF ( id_id .NE. 1 ) THEN
20351 call wrf_debug(1,&
20352 'WARNING in nl_set_num_soil_cat: num_soil_cat applies to all domains. First arg ignored.')
20353 ENDIF
20354 model_config_rec%num_soil_cat = num_soil_cat
20355 RETURN
20356 END SUBROUTINE nl_set_num_soil_cat
20357 SUBROUTINE nl_set_mp_zero_out ( id_id , mp_zero_out )
20358 integer , INTENT(IN) :: mp_zero_out
20359 INTEGER id_id
20360 CHARACTER*80 emess
20361 IF ( id_id .NE. 1 ) THEN
20362 call wrf_debug(1,&
20363 'WARNING in nl_set_mp_zero_out: mp_zero_out applies to all domains. First arg ignored.')
20364 ENDIF
20365 model_config_rec%mp_zero_out = mp_zero_out
20366 RETURN
20367 END SUBROUTINE nl_set_mp_zero_out
20368 SUBROUTINE nl_set_mp_zero_out_thresh ( id_id , mp_zero_out_thresh )
20369 real , INTENT(IN) :: mp_zero_out_thresh
20370 INTEGER id_id
20371 CHARACTER*80 emess
20372 IF ( id_id .NE. 1 ) THEN
20373 call wrf_debug(1,&
20374 'WARNING in nl_set_mp_zero_out_thresh: mp_zero_out_thresh applies to all domains. First arg ignored.')
20375 ENDIF
20376 model_config_rec%mp_zero_out_thresh = mp_zero_out_thresh
20377 RETURN
20378 END SUBROUTINE nl_set_mp_zero_out_thresh
20379 SUBROUTINE nl_set_seaice_threshold ( id_id , seaice_threshold )
20380 real , INTENT(IN) :: seaice_threshold
20381 INTEGER id_id
20382 CHARACTER*80 emess
20383 IF ( id_id .NE. 1 ) THEN
20384 call wrf_debug(1,&
20385 'WARNING in nl_set_seaice_threshold: seaice_threshold applies to all domains. First arg ignored.')
20386 ENDIF
20387 model_config_rec%seaice_threshold = seaice_threshold
20388 RETURN
20389 END SUBROUTINE nl_set_seaice_threshold
20390 SUBROUTINE nl_set_sst_update ( id_id , sst_update )
20391 integer , INTENT(IN) :: sst_update
20392 INTEGER id_id
20393 CHARACTER*80 emess
20394 IF ( id_id .NE. 1 ) THEN
20395 call wrf_debug(1,&
20396 'WARNING in nl_set_sst_update: sst_update applies to all domains. First arg ignored.')
20397 ENDIF
20398 model_config_rec%sst_update = sst_update
20399 RETURN
20400 END SUBROUTINE nl_set_sst_update
20401 SUBROUTINE nl_set_ucmcall ( id_id , ucmcall )
20402 integer , INTENT(IN) :: ucmcall
20403 INTEGER id_id
20404 CHARACTER*80 emess
20405 IF ( id_id .NE. 1 ) THEN
20406 call wrf_debug(1,&
20407 'WARNING in nl_set_ucmcall: ucmcall applies to all domains. First arg ignored.')
20408 ENDIF
20409 model_config_rec%ucmcall = ucmcall
20410 RETURN
20411 END SUBROUTINE nl_set_ucmcall
20412 SUBROUTINE nl_set_co2tf ( id_id , co2tf )
20413 integer , INTENT(IN) :: co2tf
20414 INTEGER id_id
20415 CHARACTER*80 emess
20416 IF ( id_id .NE. 1 ) THEN
20417 call wrf_debug(1,&
20418 'WARNING in nl_set_co2tf: co2tf applies to all domains. First arg ignored.')
20419 ENDIF
20420 model_config_rec%co2tf = co2tf
20421 RETURN
20422 END SUBROUTINE nl_set_co2tf
20423 SUBROUTINE nl_set_ra_call_offset ( id_id , ra_call_offset )
20424 integer , INTENT(IN) :: ra_call_offset
20425 INTEGER id_id
20426 CHARACTER*80 emess
20427 IF ( id_id .NE. 1 ) THEN
20428 call wrf_debug(1,&
20429 'WARNING in nl_set_ra_call_offset: ra_call_offset applies to all domains. First arg ignored.')
20430 ENDIF
20431 model_config_rec%ra_call_offset = ra_call_offset
20432 RETURN
20433 END SUBROUTINE nl_set_ra_call_offset
20434 SUBROUTINE nl_set_cam_abs_freq_s ( id_id , cam_abs_freq_s )
20435 real , INTENT(IN) :: cam_abs_freq_s
20436 INTEGER id_id
20437 CHARACTER*80 emess
20438 IF ( id_id .NE. 1 ) THEN
20439 call wrf_debug(1,&
20440 'WARNING in nl_set_cam_abs_freq_s: cam_abs_freq_s applies to all domains. First arg ignored.')
20441 ENDIF
20442 model_config_rec%cam_abs_freq_s = cam_abs_freq_s
20443 RETURN
20444 END SUBROUTINE nl_set_cam_abs_freq_s
20445 SUBROUTINE nl_set_levsiz ( id_id , levsiz )
20446 integer , INTENT(IN) :: levsiz
20447 INTEGER id_id
20448 CHARACTER*80 emess
20449 IF ( id_id .NE. 1 ) THEN
20450 call wrf_debug(1,&
20451 'WARNING in nl_set_levsiz: levsiz applies to all domains. First arg ignored.')
20452 ENDIF
20453 model_config_rec%levsiz = levsiz
20454 RETURN
20455 END SUBROUTINE nl_set_levsiz
20456 SUBROUTINE nl_set_paerlev ( id_id , paerlev )
20457 integer , INTENT(IN) :: paerlev
20458 INTEGER id_id
20459 CHARACTER*80 emess
20460 IF ( id_id .NE. 1 ) THEN
20461 call wrf_debug(1,&
20462 'WARNING in nl_set_paerlev: paerlev applies to all domains. First arg ignored.')
20463 ENDIF
20464 model_config_rec%paerlev = paerlev
20465 RETURN
20466 END SUBROUTINE nl_set_paerlev
20467 SUBROUTINE nl_set_cam_abs_dim1 ( id_id , cam_abs_dim1 )
20468 integer , INTENT(IN) :: cam_abs_dim1
20469 INTEGER id_id
20470 CHARACTER*80 emess
20471 IF ( id_id .NE. 1 ) THEN
20472 call wrf_debug(1,&
20473 'WARNING in nl_set_cam_abs_dim1: cam_abs_dim1 applies to all domains. First arg ignored.')
20474 ENDIF
20475 model_config_rec%cam_abs_dim1 = cam_abs_dim1
20476 RETURN
20477 END SUBROUTINE nl_set_cam_abs_dim1
20478 SUBROUTINE nl_set_cam_abs_dim2 ( id_id , cam_abs_dim2 )
20479 integer , INTENT(IN) :: cam_abs_dim2
20480 INTEGER id_id
20481 CHARACTER*80 emess
20482 IF ( id_id .NE. 1 ) THEN
20483 call wrf_debug(1,&
20484 'WARNING in nl_set_cam_abs_dim2: cam_abs_dim2 applies to all domains. First arg ignored.')
20485 ENDIF
20486 model_config_rec%cam_abs_dim2 = cam_abs_dim2
20487 RETURN
20488 END SUBROUTINE nl_set_cam_abs_dim2
20489 SUBROUTINE nl_set_fgdt ( id_id , fgdt )
20490 real , INTENT(IN) :: fgdt
20491 INTEGER id_id
20492 CHARACTER*80 emess
20493 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20494 WRITE(emess,*)'nl_set_fgdt: Out of range domain number: ',id_id
20495 CALL wrf_error_fatal(emess)
20496 ENDIF
20497 model_config_rec%fgdt(id_id) = fgdt
20498 RETURN
20499 END SUBROUTINE nl_set_fgdt
20500 SUBROUTINE nl_set_grid_fdda ( id_id , grid_fdda )
20501 integer , INTENT(IN) :: grid_fdda
20502 INTEGER id_id
20503 CHARACTER*80 emess
20504 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20505 WRITE(emess,*)'nl_set_grid_fdda: Out of range domain number: ',id_id
20506 CALL wrf_error_fatal(emess)
20507 ENDIF
20508 model_config_rec%grid_fdda(id_id) = grid_fdda
20509 RETURN
20510 END SUBROUTINE nl_set_grid_fdda
20511 SUBROUTINE nl_set_if_no_pbl_nudging_uv ( id_id , if_no_pbl_nudging_uv )
20512 integer , INTENT(IN) :: if_no_pbl_nudging_uv
20513 INTEGER id_id
20514 CHARACTER*80 emess
20515 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20516 WRITE(emess,*)'nl_set_if_no_pbl_nudging_uv: Out of range domain number: ',id_id
20517 CALL wrf_error_fatal(emess)
20518 ENDIF
20519 model_config_rec%if_no_pbl_nudging_uv(id_id) = if_no_pbl_nudging_uv
20520 RETURN
20521 END SUBROUTINE nl_set_if_no_pbl_nudging_uv
20522 SUBROUTINE nl_set_if_no_pbl_nudging_t ( id_id , if_no_pbl_nudging_t )
20523 integer , INTENT(IN) :: if_no_pbl_nudging_t
20524 INTEGER id_id
20525 CHARACTER*80 emess
20526 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20527 WRITE(emess,*)'nl_set_if_no_pbl_nudging_t: Out of range domain number: ',id_id
20528 CALL wrf_error_fatal(emess)
20529 ENDIF
20530 model_config_rec%if_no_pbl_nudging_t(id_id) = if_no_pbl_nudging_t
20531 RETURN
20532 END SUBROUTINE nl_set_if_no_pbl_nudging_t
20533 SUBROUTINE nl_set_if_no_pbl_nudging_q ( id_id , if_no_pbl_nudging_q )
20534 integer , INTENT(IN) :: if_no_pbl_nudging_q
20535 INTEGER id_id
20536 CHARACTER*80 emess
20537 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20538 WRITE(emess,*)'nl_set_if_no_pbl_nudging_q: Out of range domain number: ',id_id
20539 CALL wrf_error_fatal(emess)
20540 ENDIF
20541 model_config_rec%if_no_pbl_nudging_q(id_id) = if_no_pbl_nudging_q
20542 RETURN
20543 END SUBROUTINE nl_set_if_no_pbl_nudging_q
20544 SUBROUTINE nl_set_if_zfac_uv ( id_id , if_zfac_uv )
20545 integer , INTENT(IN) :: if_zfac_uv
20546 INTEGER id_id
20547 CHARACTER*80 emess
20548 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20549 WRITE(emess,*)'nl_set_if_zfac_uv: Out of range domain number: ',id_id
20550 CALL wrf_error_fatal(emess)
20551 ENDIF
20552 model_config_rec%if_zfac_uv(id_id) = if_zfac_uv
20553 RETURN
20554 END SUBROUTINE nl_set_if_zfac_uv
20555 SUBROUTINE nl_set_k_zfac_uv ( id_id , k_zfac_uv )
20556 integer , INTENT(IN) :: k_zfac_uv
20557 INTEGER id_id
20558 CHARACTER*80 emess
20559 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20560 WRITE(emess,*)'nl_set_k_zfac_uv: Out of range domain number: ',id_id
20561 CALL wrf_error_fatal(emess)
20562 ENDIF
20563 model_config_rec%k_zfac_uv(id_id) = k_zfac_uv
20564 RETURN
20565 END SUBROUTINE nl_set_k_zfac_uv
20566 SUBROUTINE nl_set_if_zfac_t ( id_id , if_zfac_t )
20567 integer , INTENT(IN) :: if_zfac_t
20568 INTEGER id_id
20569 CHARACTER*80 emess
20570 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20571 WRITE(emess,*)'nl_set_if_zfac_t: Out of range domain number: ',id_id
20572 CALL wrf_error_fatal(emess)
20573 ENDIF
20574 model_config_rec%if_zfac_t(id_id) = if_zfac_t
20575 RETURN
20576 END SUBROUTINE nl_set_if_zfac_t
20577 SUBROUTINE nl_set_k_zfac_t ( id_id , k_zfac_t )
20578 integer , INTENT(IN) :: k_zfac_t
20579 INTEGER id_id
20580 CHARACTER*80 emess
20581 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20582 WRITE(emess,*)'nl_set_k_zfac_t: Out of range domain number: ',id_id
20583 CALL wrf_error_fatal(emess)
20584 ENDIF
20585 model_config_rec%k_zfac_t(id_id) = k_zfac_t
20586 RETURN
20587 END SUBROUTINE nl_set_k_zfac_t
20588 SUBROUTINE nl_set_if_zfac_q ( id_id , if_zfac_q )
20589 integer , INTENT(IN) :: if_zfac_q
20590 INTEGER id_id
20591 CHARACTER*80 emess
20592 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20593 WRITE(emess,*)'nl_set_if_zfac_q: Out of range domain number: ',id_id
20594 CALL wrf_error_fatal(emess)
20595 ENDIF
20596 model_config_rec%if_zfac_q(id_id) = if_zfac_q
20597 RETURN
20598 END SUBROUTINE nl_set_if_zfac_q
20599 SUBROUTINE nl_set_k_zfac_q ( id_id , k_zfac_q )
20600 integer , INTENT(IN) :: k_zfac_q
20601 INTEGER id_id
20602 CHARACTER*80 emess
20603 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20604 WRITE(emess,*)'nl_set_k_zfac_q: Out of range domain number: ',id_id
20605 CALL wrf_error_fatal(emess)
20606 ENDIF
20607 model_config_rec%k_zfac_q(id_id) = k_zfac_q
20608 RETURN
20609 END SUBROUTINE nl_set_k_zfac_q
20610 SUBROUTINE nl_set_guv ( id_id , guv )
20611 real , INTENT(IN) :: guv
20612 INTEGER id_id
20613 CHARACTER*80 emess
20614 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20615 WRITE(emess,*)'nl_set_guv: Out of range domain number: ',id_id
20616 CALL wrf_error_fatal(emess)
20617 ENDIF
20618 model_config_rec%guv(id_id) = guv
20619 RETURN
20620 END SUBROUTINE nl_set_guv
20621 SUBROUTINE nl_set_gt ( id_id , gt )
20622 real , INTENT(IN) :: gt
20623 INTEGER id_id
20624 CHARACTER*80 emess
20625 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20626 WRITE(emess,*)'nl_set_gt: Out of range domain number: ',id_id
20627 CALL wrf_error_fatal(emess)
20628 ENDIF
20629 model_config_rec%gt(id_id) = gt
20630 RETURN
20631 END SUBROUTINE nl_set_gt
20632 SUBROUTINE nl_set_gq ( id_id , gq )
20633 real , INTENT(IN) :: gq
20634 INTEGER id_id
20635 CHARACTER*80 emess
20636 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20637 WRITE(emess,*)'nl_set_gq: Out of range domain number: ',id_id
20638 CALL wrf_error_fatal(emess)
20639 ENDIF
20640 model_config_rec%gq(id_id) = gq
20641 RETURN
20642 END SUBROUTINE nl_set_gq
20643 SUBROUTINE nl_set_dtramp_min ( id_id , dtramp_min )
20644 real , INTENT(IN) :: dtramp_min
20645 INTEGER id_id
20646 CHARACTER*80 emess
20647 IF ( id_id .NE. 1 ) THEN
20648 call wrf_debug(1,&
20649 'WARNING in nl_set_dtramp_min: dtramp_min applies to all domains. First arg ignored.')
20650 ENDIF
20651 model_config_rec%dtramp_min = dtramp_min
20652 RETURN
20653 END SUBROUTINE nl_set_dtramp_min
20654 SUBROUTINE nl_set_if_ramping ( id_id , if_ramping )
20655 integer , INTENT(IN) :: if_ramping
20656 INTEGER id_id
20657 CHARACTER*80 emess
20658 IF ( id_id .NE. 1 ) THEN
20659 call wrf_debug(1,&
20660 'WARNING in nl_set_if_ramping: if_ramping applies to all domains. First arg ignored.')
20661 ENDIF
20662 model_config_rec%if_ramping = if_ramping
20663 RETURN
20664 END SUBROUTINE nl_set_if_ramping
20665 SUBROUTINE nl_set_obs_nudge_opt ( id_id , obs_nudge_opt )
20666 integer , INTENT(IN) :: obs_nudge_opt
20667 INTEGER id_id
20668 CHARACTER*80 emess
20669 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20670 WRITE(emess,*)'nl_set_obs_nudge_opt: Out of range domain number: ',id_id
20671 CALL wrf_error_fatal(emess)
20672 ENDIF
20673 model_config_rec%obs_nudge_opt(id_id) = obs_nudge_opt
20674 RETURN
20675 END SUBROUTINE nl_set_obs_nudge_opt
20676 SUBROUTINE nl_set_max_obs ( id_id , max_obs )
20677 integer , INTENT(IN) :: max_obs
20678 INTEGER id_id
20679 CHARACTER*80 emess
20680 IF ( id_id .NE. 1 ) THEN
20681 call wrf_debug(1,&
20682 'WARNING in nl_set_max_obs: max_obs applies to all domains. First arg ignored.')
20683 ENDIF
20684 model_config_rec%max_obs = max_obs
20685 RETURN
20686 END SUBROUTINE nl_set_max_obs
20687 SUBROUTINE nl_set_nobs_ndg_vars ( id_id , nobs_ndg_vars )
20688 integer , INTENT(IN) :: nobs_ndg_vars
20689 INTEGER id_id
20690 CHARACTER*80 emess
20691 IF ( id_id .NE. 1 ) THEN
20692 call wrf_debug(1,&
20693 'WARNING in nl_set_nobs_ndg_vars: nobs_ndg_vars applies to all domains. First arg ignored.')
20694 ENDIF
20695 model_config_rec%nobs_ndg_vars = nobs_ndg_vars
20696 RETURN
20697 END SUBROUTINE nl_set_nobs_ndg_vars
20698 SUBROUTINE nl_set_nobs_err_flds ( id_id , nobs_err_flds )
20699 integer , INTENT(IN) :: nobs_err_flds
20700 INTEGER id_id
20701 CHARACTER*80 emess
20702 IF ( id_id .NE. 1 ) THEN
20703 call wrf_debug(1,&
20704 'WARNING in nl_set_nobs_err_flds: nobs_err_flds applies to all domains. First arg ignored.')
20705 ENDIF
20706 model_config_rec%nobs_err_flds = nobs_err_flds
20707 RETURN
20708 END SUBROUTINE nl_set_nobs_err_flds
20709 SUBROUTINE nl_set_fdda_start ( id_id , fdda_start )
20710 real , INTENT(IN) :: fdda_start
20711 INTEGER id_id
20712 CHARACTER*80 emess
20713 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20714 WRITE(emess,*)'nl_set_fdda_start: Out of range domain number: ',id_id
20715 CALL wrf_error_fatal(emess)
20716 ENDIF
20717 model_config_rec%fdda_start(id_id) = fdda_start
20718 RETURN
20719 END SUBROUTINE nl_set_fdda_start
20720 SUBROUTINE nl_set_fdda_end ( id_id , fdda_end )
20721 real , INTENT(IN) :: fdda_end
20722 INTEGER id_id
20723 CHARACTER*80 emess
20724 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20725 WRITE(emess,*)'nl_set_fdda_end: Out of range domain number: ',id_id
20726 CALL wrf_error_fatal(emess)
20727 ENDIF
20728 model_config_rec%fdda_end(id_id) = fdda_end
20729 RETURN
20730 END SUBROUTINE nl_set_fdda_end
20731 SUBROUTINE nl_set_obs_nudge_wind ( id_id , obs_nudge_wind )
20732 integer , INTENT(IN) :: obs_nudge_wind
20733 INTEGER id_id
20734 CHARACTER*80 emess
20735 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20736 WRITE(emess,*)'nl_set_obs_nudge_wind: Out of range domain number: ',id_id
20737 CALL wrf_error_fatal(emess)
20738 ENDIF
20739 model_config_rec%obs_nudge_wind(id_id) = obs_nudge_wind
20740 RETURN
20741 END SUBROUTINE nl_set_obs_nudge_wind
20742 SUBROUTINE nl_set_obs_coef_wind ( id_id , obs_coef_wind )
20743 real , INTENT(IN) :: obs_coef_wind
20744 INTEGER id_id
20745 CHARACTER*80 emess
20746 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20747 WRITE(emess,*)'nl_set_obs_coef_wind: Out of range domain number: ',id_id
20748 CALL wrf_error_fatal(emess)
20749 ENDIF
20750 model_config_rec%obs_coef_wind(id_id) = obs_coef_wind
20751 RETURN
20752 END SUBROUTINE nl_set_obs_coef_wind
20753 SUBROUTINE nl_set_obs_nudge_temp ( id_id , obs_nudge_temp )
20754 integer , INTENT(IN) :: obs_nudge_temp
20755 INTEGER id_id
20756 CHARACTER*80 emess
20757 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20758 WRITE(emess,*)'nl_set_obs_nudge_temp: Out of range domain number: ',id_id
20759 CALL wrf_error_fatal(emess)
20760 ENDIF
20761 model_config_rec%obs_nudge_temp(id_id) = obs_nudge_temp
20762 RETURN
20763 END SUBROUTINE nl_set_obs_nudge_temp
20764 SUBROUTINE nl_set_obs_coef_temp ( id_id , obs_coef_temp )
20765 real , INTENT(IN) :: obs_coef_temp
20766 INTEGER id_id
20767 CHARACTER*80 emess
20768 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20769 WRITE(emess,*)'nl_set_obs_coef_temp: Out of range domain number: ',id_id
20770 CALL wrf_error_fatal(emess)
20771 ENDIF
20772 model_config_rec%obs_coef_temp(id_id) = obs_coef_temp
20773 RETURN
20774 END SUBROUTINE nl_set_obs_coef_temp
20775 SUBROUTINE nl_set_obs_nudge_mois ( id_id , obs_nudge_mois )
20776 integer , INTENT(IN) :: obs_nudge_mois
20777 INTEGER id_id
20778 CHARACTER*80 emess
20779 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20780 WRITE(emess,*)'nl_set_obs_nudge_mois: Out of range domain number: ',id_id
20781 CALL wrf_error_fatal(emess)
20782 ENDIF
20783 model_config_rec%obs_nudge_mois(id_id) = obs_nudge_mois
20784 RETURN
20785 END SUBROUTINE nl_set_obs_nudge_mois
20786 SUBROUTINE nl_set_obs_coef_mois ( id_id , obs_coef_mois )
20787 real , INTENT(IN) :: obs_coef_mois
20788 INTEGER id_id
20789 CHARACTER*80 emess
20790 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20791 WRITE(emess,*)'nl_set_obs_coef_mois: Out of range domain number: ',id_id
20792 CALL wrf_error_fatal(emess)
20793 ENDIF
20794 model_config_rec%obs_coef_mois(id_id) = obs_coef_mois
20795 RETURN
20796 END SUBROUTINE nl_set_obs_coef_mois
20797 SUBROUTINE nl_set_obs_nudge_pstr ( id_id , obs_nudge_pstr )
20798 integer , INTENT(IN) :: obs_nudge_pstr
20799 INTEGER id_id
20800 CHARACTER*80 emess
20801 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20802 WRITE(emess,*)'nl_set_obs_nudge_pstr: Out of range domain number: ',id_id
20803 CALL wrf_error_fatal(emess)
20804 ENDIF
20805 model_config_rec%obs_nudge_pstr(id_id) = obs_nudge_pstr
20806 RETURN
20807 END SUBROUTINE nl_set_obs_nudge_pstr
20808 SUBROUTINE nl_set_obs_coef_pstr ( id_id , obs_coef_pstr )
20809 real , INTENT(IN) :: obs_coef_pstr
20810 INTEGER id_id
20811 CHARACTER*80 emess
20812 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20813 WRITE(emess,*)'nl_set_obs_coef_pstr: Out of range domain number: ',id_id
20814 CALL wrf_error_fatal(emess)
20815 ENDIF
20816 model_config_rec%obs_coef_pstr(id_id) = obs_coef_pstr
20817 RETURN
20818 END SUBROUTINE nl_set_obs_coef_pstr
20819 SUBROUTINE nl_set_obs_rinxy ( id_id , obs_rinxy )
20820 real , INTENT(IN) :: obs_rinxy
20821 INTEGER id_id
20822 CHARACTER*80 emess
20823 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20824 WRITE(emess,*)'nl_set_obs_rinxy: Out of range domain number: ',id_id
20825 CALL wrf_error_fatal(emess)
20826 ENDIF
20827 model_config_rec%obs_rinxy(id_id) = obs_rinxy
20828 RETURN
20829 END SUBROUTINE nl_set_obs_rinxy
20830 SUBROUTINE nl_set_obs_rinsig ( id_id , obs_rinsig )
20831 real , INTENT(IN) :: obs_rinsig
20832 INTEGER id_id
20833 CHARACTER*80 emess
20834 IF ( id_id .NE. 1 ) THEN
20835 call wrf_debug(1,&
20836 'WARNING in nl_set_obs_rinsig: obs_rinsig applies to all domains. First arg ignored.')
20837 ENDIF
20838 model_config_rec%obs_rinsig = obs_rinsig
20839 RETURN
20840 END SUBROUTINE nl_set_obs_rinsig
20841 SUBROUTINE nl_set_obs_twindo ( id_id , obs_twindo )
20842 real , INTENT(IN) :: obs_twindo
20843 INTEGER id_id
20844 CHARACTER*80 emess
20845 IF ( id_id .NE. 1 ) THEN
20846 call wrf_debug(1,&
20847 'WARNING in nl_set_obs_twindo: obs_twindo applies to all domains. First arg ignored.')
20848 ENDIF
20849 model_config_rec%obs_twindo = obs_twindo
20850 RETURN
20851 END SUBROUTINE nl_set_obs_twindo
20852 SUBROUTINE nl_set_obs_npfi ( id_id , obs_npfi )
20853 integer , INTENT(IN) :: obs_npfi
20854 INTEGER id_id
20855 CHARACTER*80 emess
20856 IF ( id_id .NE. 1 ) THEN
20857 call wrf_debug(1,&
20858 'WARNING in nl_set_obs_npfi: obs_npfi applies to all domains. First arg ignored.')
20859 ENDIF
20860 model_config_rec%obs_npfi = obs_npfi
20861 RETURN
20862 END SUBROUTINE nl_set_obs_npfi
20863 SUBROUTINE nl_set_obs_ionf ( id_id , obs_ionf )
20864 integer , INTENT(IN) :: obs_ionf
20865 INTEGER id_id
20866 CHARACTER*80 emess
20867 IF ( id_id .NE. 1 ) THEN
20868 call wrf_debug(1,&
20869 'WARNING in nl_set_obs_ionf: obs_ionf applies to all domains. First arg ignored.')
20870 ENDIF
20871 model_config_rec%obs_ionf = obs_ionf
20872 RETURN
20873 END SUBROUTINE nl_set_obs_ionf
20874 SUBROUTINE nl_set_obs_idynin ( id_id , obs_idynin )
20875 integer , INTENT(IN) :: obs_idynin
20876 INTEGER id_id
20877 CHARACTER*80 emess
20878 IF ( id_id .NE. 1 ) THEN
20879 call wrf_debug(1,&
20880 'WARNING in nl_set_obs_idynin: obs_idynin applies to all domains. First arg ignored.')
20881 ENDIF
20882 model_config_rec%obs_idynin = obs_idynin
20883 RETURN
20884 END SUBROUTINE nl_set_obs_idynin
20885 SUBROUTINE nl_set_obs_dtramp ( id_id , obs_dtramp )
20886 real , INTENT(IN) :: obs_dtramp
20887 INTEGER id_id
20888 CHARACTER*80 emess
20889 IF ( id_id .NE. 1 ) THEN
20890 call wrf_debug(1,&
20891 'WARNING in nl_set_obs_dtramp: obs_dtramp applies to all domains. First arg ignored.')
20892 ENDIF
20893 model_config_rec%obs_dtramp = obs_dtramp
20894 RETURN
20895 END SUBROUTINE nl_set_obs_dtramp
20896 SUBROUTINE nl_set_obs_ipf_in4dob ( id_id , obs_ipf_in4dob )
20897 logical , INTENT(IN) :: obs_ipf_in4dob
20898 INTEGER id_id
20899 CHARACTER*80 emess
20900 IF ( id_id .NE. 1 ) THEN
20901 call wrf_debug(1,&
20902 'WARNING in nl_set_obs_ipf_in4dob: obs_ipf_in4dob applies to all domains. First arg ignored.')
20903 ENDIF
20904 model_config_rec%obs_ipf_in4dob = obs_ipf_in4dob
20905 RETURN
20906 END SUBROUTINE nl_set_obs_ipf_in4dob
20907 SUBROUTINE nl_set_dyn_opt ( id_id , dyn_opt )
20908 integer , INTENT(IN) :: dyn_opt
20909 INTEGER id_id
20910 CHARACTER*80 emess
20911 IF ( id_id .NE. 1 ) THEN
20912 call wrf_debug(1,&
20913 'WARNING in nl_set_dyn_opt: dyn_opt applies to all domains. First arg ignored.')
20914 ENDIF
20915 model_config_rec%dyn_opt = dyn_opt
20916 RETURN
20917 END SUBROUTINE nl_set_dyn_opt
20918 SUBROUTINE nl_set_rk_ord ( id_id , rk_ord )
20919 integer , INTENT(IN) :: rk_ord
20920 INTEGER id_id
20921 CHARACTER*80 emess
20922 IF ( id_id .NE. 1 ) THEN
20923 call wrf_debug(1,&
20924 'WARNING in nl_set_rk_ord: rk_ord applies to all domains. First arg ignored.')
20925 ENDIF
20926 model_config_rec%rk_ord = rk_ord
20927 RETURN
20928 END SUBROUTINE nl_set_rk_ord
20929 SUBROUTINE nl_set_w_damping ( id_id , w_damping )
20930 integer , INTENT(IN) :: w_damping
20931 INTEGER id_id
20932 CHARACTER*80 emess
20933 IF ( id_id .NE. 1 ) THEN
20934 call wrf_debug(1,&
20935 'WARNING in nl_set_w_damping: w_damping applies to all domains. First arg ignored.')
20936 ENDIF
20937 model_config_rec%w_damping = w_damping
20938 RETURN
20939 END SUBROUTINE nl_set_w_damping
20940 SUBROUTINE nl_set_diff_opt ( id_id , diff_opt )
20941 integer , INTENT(IN) :: diff_opt
20942 INTEGER id_id
20943 CHARACTER*80 emess
20944 IF ( id_id .NE. 1 ) THEN
20945 call wrf_debug(1,&
20946 'WARNING in nl_set_diff_opt: diff_opt applies to all domains. First arg ignored.')
20947 ENDIF
20948 model_config_rec%diff_opt = diff_opt
20949 RETURN
20950 END SUBROUTINE nl_set_diff_opt
20951 SUBROUTINE nl_set_km_opt ( id_id , km_opt )
20952 integer , INTENT(IN) :: km_opt
20953 INTEGER id_id
20954 CHARACTER*80 emess
20955 IF ( id_id .NE. 1 ) THEN
20956 call wrf_debug(1,&
20957 'WARNING in nl_set_km_opt: km_opt applies to all domains. First arg ignored.')
20958 ENDIF
20959 model_config_rec%km_opt = km_opt
20960 RETURN
20961 END SUBROUTINE nl_set_km_opt
20962 SUBROUTINE nl_set_damp_opt ( id_id , damp_opt )
20963 integer , INTENT(IN) :: damp_opt
20964 INTEGER id_id
20965 CHARACTER*80 emess
20966 IF ( id_id .NE. 1 ) THEN
20967 call wrf_debug(1,&
20968 'WARNING in nl_set_damp_opt: damp_opt applies to all domains. First arg ignored.')
20969 ENDIF
20970 model_config_rec%damp_opt = damp_opt
20971 RETURN
20972 END SUBROUTINE nl_set_damp_opt
20973 SUBROUTINE nl_set_zdamp ( id_id , zdamp )
20974 real , INTENT(IN) :: zdamp
20975 INTEGER id_id
20976 CHARACTER*80 emess
20977 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20978 WRITE(emess,*)'nl_set_zdamp: Out of range domain number: ',id_id
20979 CALL wrf_error_fatal(emess)
20980 ENDIF
20981 model_config_rec%zdamp(id_id) = zdamp
20982 RETURN
20983 END SUBROUTINE nl_set_zdamp
20984 SUBROUTINE nl_set_dampcoef ( id_id , dampcoef )
20985 real , INTENT(IN) :: dampcoef
20986 INTEGER id_id
20987 CHARACTER*80 emess
20988 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
20989 WRITE(emess,*)'nl_set_dampcoef: Out of range domain number: ',id_id
20990 CALL wrf_error_fatal(emess)
20991 ENDIF
20992 model_config_rec%dampcoef(id_id) = dampcoef
20993 RETURN
20994 END SUBROUTINE nl_set_dampcoef
20995 SUBROUTINE nl_set_khdif ( id_id , khdif )
20996 real , INTENT(IN) :: khdif
20997 INTEGER id_id
20998 CHARACTER*80 emess
20999 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21000 WRITE(emess,*)'nl_set_khdif: Out of range domain number: ',id_id
21001 CALL wrf_error_fatal(emess)
21002 ENDIF
21003 model_config_rec%khdif(id_id) = khdif
21004 RETURN
21005 END SUBROUTINE nl_set_khdif
21006 SUBROUTINE nl_set_kvdif ( id_id , kvdif )
21007 real , INTENT(IN) :: kvdif
21008 INTEGER id_id
21009 CHARACTER*80 emess
21010 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21011 WRITE(emess,*)'nl_set_kvdif: Out of range domain number: ',id_id
21012 CALL wrf_error_fatal(emess)
21013 ENDIF
21014 model_config_rec%kvdif(id_id) = kvdif
21015 RETURN
21016 END SUBROUTINE nl_set_kvdif
21017 SUBROUTINE nl_set_diff_6th_factor ( id_id , diff_6th_factor )
21018 real , INTENT(IN) :: diff_6th_factor
21019 INTEGER id_id
21020 CHARACTER*80 emess
21021 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21022 WRITE(emess,*)'nl_set_diff_6th_factor: Out of range domain number: ',id_id
21023 CALL wrf_error_fatal(emess)
21024 ENDIF
21025 model_config_rec%diff_6th_factor(id_id) = diff_6th_factor
21026 RETURN
21027 END SUBROUTINE nl_set_diff_6th_factor
21028 SUBROUTINE nl_set_diff_6th_opt ( id_id , diff_6th_opt )
21029 integer , INTENT(IN) :: diff_6th_opt
21030 INTEGER id_id
21031 CHARACTER*80 emess
21032 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21033 WRITE(emess,*)'nl_set_diff_6th_opt: Out of range domain number: ',id_id
21034 CALL wrf_error_fatal(emess)
21035 ENDIF
21036 model_config_rec%diff_6th_opt(id_id) = diff_6th_opt
21037 RETURN
21038 END SUBROUTINE nl_set_diff_6th_opt
21039 SUBROUTINE nl_set_smdiv ( id_id , smdiv )
21040 real , INTENT(IN) :: smdiv
21041 INTEGER id_id
21042 CHARACTER*80 emess
21043 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21044 WRITE(emess,*)'nl_set_smdiv: Out of range domain number: ',id_id
21045 CALL wrf_error_fatal(emess)
21046 ENDIF
21047 model_config_rec%smdiv(id_id) = smdiv
21048 RETURN
21049 END SUBROUTINE nl_set_smdiv
21050 SUBROUTINE nl_set_emdiv ( id_id , emdiv )
21051 real , INTENT(IN) :: emdiv
21052 INTEGER id_id
21053 CHARACTER*80 emess
21054 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21055 WRITE(emess,*)'nl_set_emdiv: Out of range domain number: ',id_id
21056 CALL wrf_error_fatal(emess)
21057 ENDIF
21058 model_config_rec%emdiv(id_id) = emdiv
21059 RETURN
21060 END SUBROUTINE nl_set_emdiv
21061 SUBROUTINE nl_set_epssm ( id_id , epssm )
21062 real , INTENT(IN) :: epssm
21063 INTEGER id_id
21064 CHARACTER*80 emess
21065 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21066 WRITE(emess,*)'nl_set_epssm: Out of range domain number: ',id_id
21067 CALL wrf_error_fatal(emess)
21068 ENDIF
21069 model_config_rec%epssm(id_id) = epssm
21070 RETURN
21071 END SUBROUTINE nl_set_epssm
21072 SUBROUTINE nl_set_non_hydrostatic ( id_id , non_hydrostatic )
21073 logical , INTENT(IN) :: non_hydrostatic
21074 INTEGER id_id
21075 CHARACTER*80 emess
21076 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21077 WRITE(emess,*)'nl_set_non_hydrostatic: Out of range domain number: ',id_id
21078 CALL wrf_error_fatal(emess)
21079 ENDIF
21080 model_config_rec%non_hydrostatic(id_id) = non_hydrostatic
21081 RETURN
21082 END SUBROUTINE nl_set_non_hydrostatic
21083 SUBROUTINE nl_set_time_step_sound ( id_id , time_step_sound )
21084 integer , INTENT(IN) :: time_step_sound
21085 INTEGER id_id
21086 CHARACTER*80 emess
21087 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21088 WRITE(emess,*)'nl_set_time_step_sound: Out of range domain number: ',id_id
21089 CALL wrf_error_fatal(emess)
21090 ENDIF
21091 model_config_rec%time_step_sound(id_id) = time_step_sound
21092 RETURN
21093 END SUBROUTINE nl_set_time_step_sound
21094 SUBROUTINE nl_set_h_mom_adv_order ( id_id , h_mom_adv_order )
21095 integer , INTENT(IN) :: h_mom_adv_order
21096 INTEGER id_id
21097 CHARACTER*80 emess
21098 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21099 WRITE(emess,*)'nl_set_h_mom_adv_order: Out of range domain number: ',id_id
21100 CALL wrf_error_fatal(emess)
21101 ENDIF
21102 model_config_rec%h_mom_adv_order(id_id) = h_mom_adv_order
21103 RETURN
21104 END SUBROUTINE nl_set_h_mom_adv_order
21105 SUBROUTINE nl_set_v_mom_adv_order ( id_id , v_mom_adv_order )
21106 integer , INTENT(IN) :: v_mom_adv_order
21107 INTEGER id_id
21108 CHARACTER*80 emess
21109 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21110 WRITE(emess,*)'nl_set_v_mom_adv_order: Out of range domain number: ',id_id
21111 CALL wrf_error_fatal(emess)
21112 ENDIF
21113 model_config_rec%v_mom_adv_order(id_id) = v_mom_adv_order
21114 RETURN
21115 END SUBROUTINE nl_set_v_mom_adv_order
21116 SUBROUTINE nl_set_h_sca_adv_order ( id_id , h_sca_adv_order )
21117 integer , INTENT(IN) :: h_sca_adv_order
21118 INTEGER id_id
21119 CHARACTER*80 emess
21120 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21121 WRITE(emess,*)'nl_set_h_sca_adv_order: Out of range domain number: ',id_id
21122 CALL wrf_error_fatal(emess)
21123 ENDIF
21124 model_config_rec%h_sca_adv_order(id_id) = h_sca_adv_order
21125 RETURN
21126 END SUBROUTINE nl_set_h_sca_adv_order
21127 SUBROUTINE nl_set_v_sca_adv_order ( id_id , v_sca_adv_order )
21128 integer , INTENT(IN) :: v_sca_adv_order
21129 INTEGER id_id
21130 CHARACTER*80 emess
21131 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21132 WRITE(emess,*)'nl_set_v_sca_adv_order: Out of range domain number: ',id_id
21133 CALL wrf_error_fatal(emess)
21134 ENDIF
21135 model_config_rec%v_sca_adv_order(id_id) = v_sca_adv_order
21136 RETURN
21137 END SUBROUTINE nl_set_v_sca_adv_order
21138 SUBROUTINE nl_set_pd_moist ( id_id , pd_moist )
21139 logical , INTENT(IN) :: pd_moist
21140 INTEGER id_id
21141 CHARACTER*80 emess
21142 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21143 WRITE(emess,*)'nl_set_pd_moist: Out of range domain number: ',id_id
21144 CALL wrf_error_fatal(emess)
21145 ENDIF
21146 model_config_rec%pd_moist(id_id) = pd_moist
21147 RETURN
21148 END SUBROUTINE nl_set_pd_moist
21149 SUBROUTINE nl_set_pd_chem ( id_id , pd_chem )
21150 logical , INTENT(IN) :: pd_chem
21151 INTEGER id_id
21152 CHARACTER*80 emess
21153 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21154 WRITE(emess,*)'nl_set_pd_chem: Out of range domain number: ',id_id
21155 CALL wrf_error_fatal(emess)
21156 ENDIF
21157 model_config_rec%pd_chem(id_id) = pd_chem
21158 RETURN
21159 END SUBROUTINE nl_set_pd_chem
21160 SUBROUTINE nl_set_pd_scalar ( id_id , pd_scalar )
21161 logical , INTENT(IN) :: pd_scalar
21162 INTEGER id_id
21163 CHARACTER*80 emess
21164 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21165 WRITE(emess,*)'nl_set_pd_scalar: Out of range domain number: ',id_id
21166 CALL wrf_error_fatal(emess)
21167 ENDIF
21168 model_config_rec%pd_scalar(id_id) = pd_scalar
21169 RETURN
21170 END SUBROUTINE nl_set_pd_scalar
21171 SUBROUTINE nl_set_pd_tke ( id_id , pd_tke )
21172 logical , INTENT(IN) :: pd_tke
21173 INTEGER id_id
21174 CHARACTER*80 emess
21175 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21176 WRITE(emess,*)'nl_set_pd_tke: Out of range domain number: ',id_id
21177 CALL wrf_error_fatal(emess)
21178 ENDIF
21179 model_config_rec%pd_tke(id_id) = pd_tke
21180 RETURN
21181 END SUBROUTINE nl_set_pd_tke
21182 SUBROUTINE nl_set_top_radiation ( id_id , top_radiation )
21183 logical , INTENT(IN) :: top_radiation
21184 INTEGER id_id
21185 CHARACTER*80 emess
21186 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21187 WRITE(emess,*)'nl_set_top_radiation: Out of range domain number: ',id_id
21188 CALL wrf_error_fatal(emess)
21189 ENDIF
21190 model_config_rec%top_radiation(id_id) = top_radiation
21191 RETURN
21192 END SUBROUTINE nl_set_top_radiation
21193 SUBROUTINE nl_set_mix_cr_len ( id_id , mix_cr_len )
21194 real , INTENT(IN) :: mix_cr_len
21195 INTEGER id_id
21196 CHARACTER*80 emess
21197 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21198 WRITE(emess,*)'nl_set_mix_cr_len: Out of range domain number: ',id_id
21199 CALL wrf_error_fatal(emess)
21200 ENDIF
21201 model_config_rec%mix_cr_len(id_id) = mix_cr_len
21202 RETURN
21203 END SUBROUTINE nl_set_mix_cr_len
21204 SUBROUTINE nl_set_tke_upper_bound ( id_id , tke_upper_bound )
21205 real , INTENT(IN) :: tke_upper_bound
21206 INTEGER id_id
21207 CHARACTER*80 emess
21208 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21209 WRITE(emess,*)'nl_set_tke_upper_bound: Out of range domain number: ',id_id
21210 CALL wrf_error_fatal(emess)
21211 ENDIF
21212 model_config_rec%tke_upper_bound(id_id) = tke_upper_bound
21213 RETURN
21214 END SUBROUTINE nl_set_tke_upper_bound
21215 SUBROUTINE nl_set_kh_tke_upper_bound ( id_id , kh_tke_upper_bound )
21216 real , INTENT(IN) :: kh_tke_upper_bound
21217 INTEGER id_id
21218 CHARACTER*80 emess
21219 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21220 WRITE(emess,*)'nl_set_kh_tke_upper_bound: Out of range domain number: ',id_id
21221 CALL wrf_error_fatal(emess)
21222 ENDIF
21223 model_config_rec%kh_tke_upper_bound(id_id) = kh_tke_upper_bound
21224 RETURN
21225 END SUBROUTINE nl_set_kh_tke_upper_bound
21226 SUBROUTINE nl_set_kv_tke_upper_bound ( id_id , kv_tke_upper_bound )
21227 real , INTENT(IN) :: kv_tke_upper_bound
21228 INTEGER id_id
21229 CHARACTER*80 emess
21230 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21231 WRITE(emess,*)'nl_set_kv_tke_upper_bound: Out of range domain number: ',id_id
21232 CALL wrf_error_fatal(emess)
21233 ENDIF
21234 model_config_rec%kv_tke_upper_bound(id_id) = kv_tke_upper_bound
21235 RETURN
21236 END SUBROUTINE nl_set_kv_tke_upper_bound
21237 SUBROUTINE nl_set_tke_drag_coefficient ( id_id , tke_drag_coefficient )
21238 real , INTENT(IN) :: tke_drag_coefficient
21239 INTEGER id_id
21240 CHARACTER*80 emess
21241 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21242 WRITE(emess,*)'nl_set_tke_drag_coefficient: Out of range domain number: ',id_id
21243 CALL wrf_error_fatal(emess)
21244 ENDIF
21245 model_config_rec%tke_drag_coefficient(id_id) = tke_drag_coefficient
21246 RETURN
21247 END SUBROUTINE nl_set_tke_drag_coefficient
21248 SUBROUTINE nl_set_tke_heat_flux ( id_id , tke_heat_flux )
21249 real , INTENT(IN) :: tke_heat_flux
21250 INTEGER id_id
21251 CHARACTER*80 emess
21252 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21253 WRITE(emess,*)'nl_set_tke_heat_flux: Out of range domain number: ',id_id
21254 CALL wrf_error_fatal(emess)
21255 ENDIF
21256 model_config_rec%tke_heat_flux(id_id) = tke_heat_flux
21257 RETURN
21258 END SUBROUTINE nl_set_tke_heat_flux
21259 SUBROUTINE nl_set_pert_coriolis ( id_id , pert_coriolis )
21260 logical , INTENT(IN) :: pert_coriolis
21261 INTEGER id_id
21262 CHARACTER*80 emess
21263 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21264 WRITE(emess,*)'nl_set_pert_coriolis: Out of range domain number: ',id_id
21265 CALL wrf_error_fatal(emess)
21266 ENDIF
21267 model_config_rec%pert_coriolis(id_id) = pert_coriolis
21268 RETURN
21269 END SUBROUTINE nl_set_pert_coriolis
21270 SUBROUTINE nl_set_mix_full_fields ( id_id , mix_full_fields )
21271 logical , INTENT(IN) :: mix_full_fields
21272 INTEGER id_id
21273 CHARACTER*80 emess
21274 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21275 WRITE(emess,*)'nl_set_mix_full_fields: Out of range domain number: ',id_id
21276 CALL wrf_error_fatal(emess)
21277 ENDIF
21278 model_config_rec%mix_full_fields(id_id) = mix_full_fields
21279 RETURN
21280 END SUBROUTINE nl_set_mix_full_fields
21281 SUBROUTINE nl_set_base_pres ( id_id , base_pres )
21282 real , INTENT(IN) :: base_pres
21283 INTEGER id_id
21284 CHARACTER*80 emess
21285 IF ( id_id .NE. 1 ) THEN
21286 call wrf_debug(1,&
21287 'WARNING in nl_set_base_pres: base_pres applies to all domains. First arg ignored.')
21288 ENDIF
21289 model_config_rec%base_pres = base_pres
21290 RETURN
21291 END SUBROUTINE nl_set_base_pres
21292 SUBROUTINE nl_set_base_temp ( id_id , base_temp )
21293 real , INTENT(IN) :: base_temp
21294 INTEGER id_id
21295 CHARACTER*80 emess
21296 IF ( id_id .NE. 1 ) THEN
21297 call wrf_debug(1,&
21298 'WARNING in nl_set_base_temp: base_temp applies to all domains. First arg ignored.')
21299 ENDIF
21300 model_config_rec%base_temp = base_temp
21301 RETURN
21302 END SUBROUTINE nl_set_base_temp
21303 SUBROUTINE nl_set_base_lapse ( id_id , base_lapse )
21304 real , INTENT(IN) :: base_lapse
21305 INTEGER id_id
21306 CHARACTER*80 emess
21307 IF ( id_id .NE. 1 ) THEN
21308 call wrf_debug(1,&
21309 'WARNING in nl_set_base_lapse: base_lapse applies to all domains. First arg ignored.')
21310 ENDIF
21311 model_config_rec%base_lapse = base_lapse
21312 RETURN
21313 END SUBROUTINE nl_set_base_lapse
21314 SUBROUTINE nl_set_jcdfi_use ( id_id , jcdfi_use )
21315 logical , INTENT(IN) :: jcdfi_use
21316 INTEGER id_id
21317 CHARACTER*80 emess
21318 IF ( id_id .NE. 1 ) THEN
21319 call wrf_debug(1,&
21320 'WARNING in nl_set_jcdfi_use: jcdfi_use applies to all domains. First arg ignored.')
21321 ENDIF
21322 model_config_rec%jcdfi_use = jcdfi_use
21323 RETURN
21324 END SUBROUTINE nl_set_jcdfi_use
21325 SUBROUTINE nl_set_jcdfi_tauc ( id_id , jcdfi_tauc )
21326 real , INTENT(IN) :: jcdfi_tauc
21327 INTEGER id_id
21328 CHARACTER*80 emess
21329 IF ( id_id .NE. 1 ) THEN
21330 call wrf_debug(1,&
21331 'WARNING in nl_set_jcdfi_tauc: jcdfi_tauc applies to all domains. First arg ignored.')
21332 ENDIF
21333 model_config_rec%jcdfi_tauc = jcdfi_tauc
21334 RETURN
21335 END SUBROUTINE nl_set_jcdfi_tauc
21336 SUBROUTINE nl_set_jcdfi_gama ( id_id , jcdfi_gama )
21337 real , INTENT(IN) :: jcdfi_gama
21338 INTEGER id_id
21339 CHARACTER*80 emess
21340 IF ( id_id .NE. 1 ) THEN
21341 call wrf_debug(1,&
21342 'WARNING in nl_set_jcdfi_gama: jcdfi_gama applies to all domains. First arg ignored.')
21343 ENDIF
21344 model_config_rec%jcdfi_gama = jcdfi_gama
21345 RETURN
21346 END SUBROUTINE nl_set_jcdfi_gama
21347 SUBROUTINE nl_set_jcdfi_error_wind ( id_id , jcdfi_error_wind )
21348 real , INTENT(IN) :: jcdfi_error_wind
21349 INTEGER id_id
21350 CHARACTER*80 emess
21351 IF ( id_id .NE. 1 ) THEN
21352 call wrf_debug(1,&
21353 'WARNING in nl_set_jcdfi_error_wind: jcdfi_error_wind applies to all domains. First arg ignored.')
21354 ENDIF
21355 model_config_rec%jcdfi_error_wind = jcdfi_error_wind
21356 RETURN
21357 END SUBROUTINE nl_set_jcdfi_error_wind
21358 SUBROUTINE nl_set_jcdfi_error_t ( id_id , jcdfi_error_t )
21359 real , INTENT(IN) :: jcdfi_error_t
21360 INTEGER id_id
21361 CHARACTER*80 emess
21362 IF ( id_id .NE. 1 ) THEN
21363 call wrf_debug(1,&
21364 'WARNING in nl_set_jcdfi_error_t: jcdfi_error_t applies to all domains. First arg ignored.')
21365 ENDIF
21366 model_config_rec%jcdfi_error_t = jcdfi_error_t
21367 RETURN
21368 END SUBROUTINE nl_set_jcdfi_error_t
21369 SUBROUTINE nl_set_jcdfi_error_q ( id_id , jcdfi_error_q )
21370 real , INTENT(IN) :: jcdfi_error_q
21371 INTEGER id_id
21372 CHARACTER*80 emess
21373 IF ( id_id .NE. 1 ) THEN
21374 call wrf_debug(1,&
21375 'WARNING in nl_set_jcdfi_error_q: jcdfi_error_q applies to all domains. First arg ignored.')
21376 ENDIF
21377 model_config_rec%jcdfi_error_q = jcdfi_error_q
21378 RETURN
21379 END SUBROUTINE nl_set_jcdfi_error_q
21380 SUBROUTINE nl_set_jcdfi_error_mu ( id_id , jcdfi_error_mu )
21381 real , INTENT(IN) :: jcdfi_error_mu
21382 INTEGER id_id
21383 CHARACTER*80 emess
21384 IF ( id_id .NE. 1 ) THEN
21385 call wrf_debug(1,&
21386 'WARNING in nl_set_jcdfi_error_mu: jcdfi_error_mu applies to all domains. First arg ignored.')
21387 ENDIF
21388 model_config_rec%jcdfi_error_mu = jcdfi_error_mu
21389 RETURN
21390 END SUBROUTINE nl_set_jcdfi_error_mu
21391 SUBROUTINE nl_set_spec_bdy_width ( id_id , spec_bdy_width )
21392 integer , INTENT(IN) :: spec_bdy_width
21393 INTEGER id_id
21394 CHARACTER*80 emess
21395 IF ( id_id .NE. 1 ) THEN
21396 call wrf_debug(1,&
21397 'WARNING in nl_set_spec_bdy_width: spec_bdy_width applies to all domains. First arg ignored.')
21398 ENDIF
21399 model_config_rec%spec_bdy_width = spec_bdy_width
21400 RETURN
21401 END SUBROUTINE nl_set_spec_bdy_width
21402 SUBROUTINE nl_set_spec_zone ( id_id , spec_zone )
21403 integer , INTENT(IN) :: spec_zone
21404 INTEGER id_id
21405 CHARACTER*80 emess
21406 IF ( id_id .NE. 1 ) THEN
21407 call wrf_debug(1,&
21408 'WARNING in nl_set_spec_zone: spec_zone applies to all domains. First arg ignored.')
21409 ENDIF
21410 model_config_rec%spec_zone = spec_zone
21411 RETURN
21412 END SUBROUTINE nl_set_spec_zone
21413 SUBROUTINE nl_set_relax_zone ( id_id , relax_zone )
21414 integer , INTENT(IN) :: relax_zone
21415 INTEGER id_id
21416 CHARACTER*80 emess
21417 IF ( id_id .NE. 1 ) THEN
21418 call wrf_debug(1,&
21419 'WARNING in nl_set_relax_zone: relax_zone applies to all domains. First arg ignored.')
21420 ENDIF
21421 model_config_rec%relax_zone = relax_zone
21422 RETURN
21423 END SUBROUTINE nl_set_relax_zone
21424 SUBROUTINE nl_set_specified ( id_id , specified )
21425 logical , INTENT(IN) :: specified
21426 INTEGER id_id
21427 CHARACTER*80 emess
21428 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21429 WRITE(emess,*)'nl_set_specified: Out of range domain number: ',id_id
21430 CALL wrf_error_fatal(emess)
21431 ENDIF
21432 model_config_rec%specified(id_id) = specified
21433 RETURN
21434 END SUBROUTINE nl_set_specified
21435 SUBROUTINE nl_set_periodic_x ( id_id , periodic_x )
21436 logical , INTENT(IN) :: periodic_x
21437 INTEGER id_id
21438 CHARACTER*80 emess
21439 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21440 WRITE(emess,*)'nl_set_periodic_x: Out of range domain number: ',id_id
21441 CALL wrf_error_fatal(emess)
21442 ENDIF
21443 model_config_rec%periodic_x(id_id) = periodic_x
21444 RETURN
21445 END SUBROUTINE nl_set_periodic_x
21446 SUBROUTINE nl_set_symmetric_xs ( id_id , symmetric_xs )
21447 logical , INTENT(IN) :: symmetric_xs
21448 INTEGER id_id
21449 CHARACTER*80 emess
21450 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21451 WRITE(emess,*)'nl_set_symmetric_xs: Out of range domain number: ',id_id
21452 CALL wrf_error_fatal(emess)
21453 ENDIF
21454 model_config_rec%symmetric_xs(id_id) = symmetric_xs
21455 RETURN
21456 END SUBROUTINE nl_set_symmetric_xs
21457 SUBROUTINE nl_set_symmetric_xe ( id_id , symmetric_xe )
21458 logical , INTENT(IN) :: symmetric_xe
21459 INTEGER id_id
21460 CHARACTER*80 emess
21461 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21462 WRITE(emess,*)'nl_set_symmetric_xe: Out of range domain number: ',id_id
21463 CALL wrf_error_fatal(emess)
21464 ENDIF
21465 model_config_rec%symmetric_xe(id_id) = symmetric_xe
21466 RETURN
21467 END SUBROUTINE nl_set_symmetric_xe
21468 SUBROUTINE nl_set_open_xs ( id_id , open_xs )
21469 logical , INTENT(IN) :: open_xs
21470 INTEGER id_id
21471 CHARACTER*80 emess
21472 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21473 WRITE(emess,*)'nl_set_open_xs: Out of range domain number: ',id_id
21474 CALL wrf_error_fatal(emess)
21475 ENDIF
21476 model_config_rec%open_xs(id_id) = open_xs
21477 RETURN
21478 END SUBROUTINE nl_set_open_xs
21479 SUBROUTINE nl_set_open_xe ( id_id , open_xe )
21480 logical , INTENT(IN) :: open_xe
21481 INTEGER id_id
21482 CHARACTER*80 emess
21483 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21484 WRITE(emess,*)'nl_set_open_xe: Out of range domain number: ',id_id
21485 CALL wrf_error_fatal(emess)
21486 ENDIF
21487 model_config_rec%open_xe(id_id) = open_xe
21488 RETURN
21489 END SUBROUTINE nl_set_open_xe
21490 SUBROUTINE nl_set_periodic_y ( id_id , periodic_y )
21491 logical , INTENT(IN) :: periodic_y
21492 INTEGER id_id
21493 CHARACTER*80 emess
21494 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21495 WRITE(emess,*)'nl_set_periodic_y: Out of range domain number: ',id_id
21496 CALL wrf_error_fatal(emess)
21497 ENDIF
21498 model_config_rec%periodic_y(id_id) = periodic_y
21499 RETURN
21500 END SUBROUTINE nl_set_periodic_y
21501 SUBROUTINE nl_set_symmetric_ys ( id_id , symmetric_ys )
21502 logical , INTENT(IN) :: symmetric_ys
21503 INTEGER id_id
21504 CHARACTER*80 emess
21505 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21506 WRITE(emess,*)'nl_set_symmetric_ys: Out of range domain number: ',id_id
21507 CALL wrf_error_fatal(emess)
21508 ENDIF
21509 model_config_rec%symmetric_ys(id_id) = symmetric_ys
21510 RETURN
21511 END SUBROUTINE nl_set_symmetric_ys
21512 SUBROUTINE nl_set_symmetric_ye ( id_id , symmetric_ye )
21513 logical , INTENT(IN) :: symmetric_ye
21514 INTEGER id_id
21515 CHARACTER*80 emess
21516 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21517 WRITE(emess,*)'nl_set_symmetric_ye: Out of range domain number: ',id_id
21518 CALL wrf_error_fatal(emess)
21519 ENDIF
21520 model_config_rec%symmetric_ye(id_id) = symmetric_ye
21521 RETURN
21522 END SUBROUTINE nl_set_symmetric_ye
21523 SUBROUTINE nl_set_open_ys ( id_id , open_ys )
21524 logical , INTENT(IN) :: open_ys
21525 INTEGER id_id
21526 CHARACTER*80 emess
21527 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21528 WRITE(emess,*)'nl_set_open_ys: Out of range domain number: ',id_id
21529 CALL wrf_error_fatal(emess)
21530 ENDIF
21531 model_config_rec%open_ys(id_id) = open_ys
21532 RETURN
21533 END SUBROUTINE nl_set_open_ys
21534 SUBROUTINE nl_set_open_ye ( id_id , open_ye )
21535 logical , INTENT(IN) :: open_ye
21536 INTEGER id_id
21537 CHARACTER*80 emess
21538 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21539 WRITE(emess,*)'nl_set_open_ye: Out of range domain number: ',id_id
21540 CALL wrf_error_fatal(emess)
21541 ENDIF
21542 model_config_rec%open_ye(id_id) = open_ye
21543 RETURN
21544 END SUBROUTINE nl_set_open_ye
21545 SUBROUTINE nl_set_nested ( id_id , nested )
21546 logical , INTENT(IN) :: nested
21547 INTEGER id_id
21548 CHARACTER*80 emess
21549 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21550 WRITE(emess,*)'nl_set_nested: Out of range domain number: ',id_id
21551 CALL wrf_error_fatal(emess)
21552 ENDIF
21553 model_config_rec%nested(id_id) = nested
21554 RETURN
21555 END SUBROUTINE nl_set_nested
21556 SUBROUTINE nl_set_real_data_init_type ( id_id , real_data_init_type )
21557 integer , INTENT(IN) :: real_data_init_type
21558 INTEGER id_id
21559 CHARACTER*80 emess
21560 IF ( id_id .NE. 1 ) THEN
21561 call wrf_debug(1,&
21562 'WARNING in nl_set_real_data_init_type: real_data_init_type applies to all domains. First arg ignored.')
21563 ENDIF
21564 model_config_rec%real_data_init_type = real_data_init_type
21565 RETURN
21566 END SUBROUTINE nl_set_real_data_init_type
21567 SUBROUTINE nl_set_background_proc_id ( id_id , background_proc_id )
21568 integer , INTENT(IN) :: background_proc_id
21569 INTEGER id_id
21570 CHARACTER*80 emess
21571 IF ( id_id .NE. 1 ) THEN
21572 call wrf_debug(1,&
21573 'WARNING in nl_set_background_proc_id: background_proc_id applies to all domains. First arg ignored.')
21574 ENDIF
21575 model_config_rec%background_proc_id = background_proc_id
21576 RETURN
21577 END SUBROUTINE nl_set_background_proc_id
21578 SUBROUTINE nl_set_forecast_proc_id ( id_id , forecast_proc_id )
21579 integer , INTENT(IN) :: forecast_proc_id
21580 INTEGER id_id
21581 CHARACTER*80 emess
21582 IF ( id_id .NE. 1 ) THEN
21583 call wrf_debug(1,&
21584 'WARNING in nl_set_forecast_proc_id: forecast_proc_id applies to all domains. First arg ignored.')
21585 ENDIF
21586 model_config_rec%forecast_proc_id = forecast_proc_id
21587 RETURN
21588 END SUBROUTINE nl_set_forecast_proc_id
21589 SUBROUTINE nl_set_production_status ( id_id , production_status )
21590 integer , INTENT(IN) :: production_status
21591 INTEGER id_id
21592 CHARACTER*80 emess
21593 IF ( id_id .NE. 1 ) THEN
21594 call wrf_debug(1,&
21595 'WARNING in nl_set_production_status: production_status applies to all domains. First arg ignored.')
21596 ENDIF
21597 model_config_rec%production_status = production_status
21598 RETURN
21599 END SUBROUTINE nl_set_production_status
21600 SUBROUTINE nl_set_compression ( id_id , compression )
21601 integer , INTENT(IN) :: compression
21602 INTEGER id_id
21603 CHARACTER*80 emess
21604 IF ( id_id .NE. 1 ) THEN
21605 call wrf_debug(1,&
21606 'WARNING in nl_set_compression: compression applies to all domains. First arg ignored.')
21607 ENDIF
21608 model_config_rec%compression = compression
21609 RETURN
21610 END SUBROUTINE nl_set_compression
21611 SUBROUTINE nl_set_cen_lat ( id_id , cen_lat )
21612 real , INTENT(IN) :: cen_lat
21613 INTEGER id_id
21614 CHARACTER*80 emess
21615 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21616 WRITE(emess,*)'nl_set_cen_lat: Out of range domain number: ',id_id
21617 CALL wrf_error_fatal(emess)
21618 ENDIF
21619 model_config_rec%cen_lat(id_id) = cen_lat
21620 RETURN
21621 END SUBROUTINE nl_set_cen_lat
21622 SUBROUTINE nl_set_cen_lon ( id_id , cen_lon )
21623 real , INTENT(IN) :: cen_lon
21624 INTEGER id_id
21625 CHARACTER*80 emess
21626 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21627 WRITE(emess,*)'nl_set_cen_lon: Out of range domain number: ',id_id
21628 CALL wrf_error_fatal(emess)
21629 ENDIF
21630 model_config_rec%cen_lon(id_id) = cen_lon
21631 RETURN
21632 END SUBROUTINE nl_set_cen_lon
21633 SUBROUTINE nl_set_truelat1 ( id_id , truelat1 )
21634 real , INTENT(IN) :: truelat1
21635 INTEGER id_id
21636 CHARACTER*80 emess
21637 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21638 WRITE(emess,*)'nl_set_truelat1: Out of range domain number: ',id_id
21639 CALL wrf_error_fatal(emess)
21640 ENDIF
21641 model_config_rec%truelat1(id_id) = truelat1
21642 RETURN
21643 END SUBROUTINE nl_set_truelat1
21644 SUBROUTINE nl_set_truelat2 ( id_id , truelat2 )
21645 real , INTENT(IN) :: truelat2
21646 INTEGER id_id
21647 CHARACTER*80 emess
21648 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21649 WRITE(emess,*)'nl_set_truelat2: Out of range domain number: ',id_id
21650 CALL wrf_error_fatal(emess)
21651 ENDIF
21652 model_config_rec%truelat2(id_id) = truelat2
21653 RETURN
21654 END SUBROUTINE nl_set_truelat2
21655 SUBROUTINE nl_set_moad_cen_lat ( id_id , moad_cen_lat )
21656 real , INTENT(IN) :: moad_cen_lat
21657 INTEGER id_id
21658 CHARACTER*80 emess
21659 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21660 WRITE(emess,*)'nl_set_moad_cen_lat: Out of range domain number: ',id_id
21661 CALL wrf_error_fatal(emess)
21662 ENDIF
21663 model_config_rec%moad_cen_lat(id_id) = moad_cen_lat
21664 RETURN
21665 END SUBROUTINE nl_set_moad_cen_lat
21666 SUBROUTINE nl_set_stand_lon ( id_id , stand_lon )
21667 real , INTENT(IN) :: stand_lon
21668 INTEGER id_id
21669 CHARACTER*80 emess
21670 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21671 WRITE(emess,*)'nl_set_stand_lon: Out of range domain number: ',id_id
21672 CALL wrf_error_fatal(emess)
21673 ENDIF
21674 model_config_rec%stand_lon(id_id) = stand_lon
21675 RETURN
21676 END SUBROUTINE nl_set_stand_lon
21677 SUBROUTINE nl_set_bdyfrq ( id_id , bdyfrq )
21678 real , INTENT(IN) :: bdyfrq
21679 INTEGER id_id
21680 CHARACTER*80 emess
21681 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21682 WRITE(emess,*)'nl_set_bdyfrq: Out of range domain number: ',id_id
21683 CALL wrf_error_fatal(emess)
21684 ENDIF
21685 model_config_rec%bdyfrq(id_id) = bdyfrq
21686 RETURN
21687 END SUBROUTINE nl_set_bdyfrq
21688 SUBROUTINE nl_set_iswater ( id_id , iswater )
21689 integer , INTENT(IN) :: iswater
21690 INTEGER id_id
21691 CHARACTER*80 emess
21692 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21693 WRITE(emess,*)'nl_set_iswater: Out of range domain number: ',id_id
21694 CALL wrf_error_fatal(emess)
21695 ENDIF
21696 model_config_rec%iswater(id_id) = iswater
21697 RETURN
21698 END SUBROUTINE nl_set_iswater
21699 SUBROUTINE nl_set_isice ( id_id , isice )
21700 integer , INTENT(IN) :: isice
21701 INTEGER id_id
21702 CHARACTER*80 emess
21703 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21704 WRITE(emess,*)'nl_set_isice: Out of range domain number: ',id_id
21705 CALL wrf_error_fatal(emess)
21706 ENDIF
21707 model_config_rec%isice(id_id) = isice
21708 RETURN
21709 END SUBROUTINE nl_set_isice
21710 SUBROUTINE nl_set_isurban ( id_id , isurban )
21711 integer , INTENT(IN) :: isurban
21712 INTEGER id_id
21713 CHARACTER*80 emess
21714 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21715 WRITE(emess,*)'nl_set_isurban: Out of range domain number: ',id_id
21716 CALL wrf_error_fatal(emess)
21717 ENDIF
21718 model_config_rec%isurban(id_id) = isurban
21719 RETURN
21720 END SUBROUTINE nl_set_isurban
21721 SUBROUTINE nl_set_isoilwater ( id_id , isoilwater )
21722 integer , INTENT(IN) :: isoilwater
21723 INTEGER id_id
21724 CHARACTER*80 emess
21725 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21726 WRITE(emess,*)'nl_set_isoilwater: Out of range domain number: ',id_id
21727 CALL wrf_error_fatal(emess)
21728 ENDIF
21729 model_config_rec%isoilwater(id_id) = isoilwater
21730 RETURN
21731 END SUBROUTINE nl_set_isoilwater
21732 SUBROUTINE nl_set_map_proj ( id_id , map_proj )
21733 integer , INTENT(IN) :: map_proj
21734 INTEGER id_id
21735 CHARACTER*80 emess
21736 IF ( id_id .LT. 1 .OR. id_id .GT. model_config_rec%max_dom ) THEN
21737 WRITE(emess,*)'nl_set_map_proj: Out of range domain number: ',id_id
21738 CALL wrf_error_fatal(emess)
21739 ENDIF
21740 model_config_rec%map_proj(id_id) = map_proj
21741 RETURN
21742 END SUBROUTINE nl_set_map_proj
21743 SUBROUTINE nl_set_simulation_start_year ( id_id , simulation_start_year )
21744 integer , INTENT(IN) :: simulation_start_year
21745 INTEGER id_id
21746 CHARACTER*80 emess
21747 IF ( id_id .NE. 1 ) THEN
21748 call wrf_debug(1,&
21749 'WARNING in nl_set_simulation_start_year: simulation_start_year applies to all domains. First arg ignored.')
21750 ENDIF
21751 model_config_rec%simulation_start_year = simulation_start_year
21752 RETURN
21753 END SUBROUTINE nl_set_simulation_start_year
21754 SUBROUTINE nl_set_simulation_start_month ( id_id , simulation_start_month )
21755 integer , INTENT(IN) :: simulation_start_month
21756 INTEGER id_id
21757 CHARACTER*80 emess
21758 IF ( id_id .NE. 1 ) THEN
21759 call wrf_debug(1,&
21760 'WARNING in nl_set_simulation_start_month: simulation_start_month applies to all domains. First arg ignored.')
21761 ENDIF
21762 model_config_rec%simulation_start_month = simulation_start_month
21763 RETURN
21764 END SUBROUTINE nl_set_simulation_start_month
21765 SUBROUTINE nl_set_simulation_start_day ( id_id , simulation_start_day )
21766 integer , INTENT(IN) :: simulation_start_day
21767 INTEGER id_id
21768 CHARACTER*80 emess
21769 IF ( id_id .NE. 1 ) THEN
21770 call wrf_debug(1,&
21771 'WARNING in nl_set_simulation_start_day: simulation_start_day applies to all domains. First arg ignored.')
21772 ENDIF
21773 model_config_rec%simulation_start_day = simulation_start_day
21774 RETURN
21775 END SUBROUTINE nl_set_simulation_start_day
21776 SUBROUTINE nl_set_simulation_start_hour ( id_id , simulation_start_hour )
21777 integer , INTENT(IN) :: simulation_start_hour
21778 INTEGER id_id
21779 CHARACTER*80 emess
21780 IF ( id_id .NE. 1 ) THEN
21781 call wrf_debug(1,&
21782 'WARNING in nl_set_simulation_start_hour: simulation_start_hour applies to all domains. First arg ignored.')
21783 ENDIF
21784 model_config_rec%simulation_start_hour = simulation_start_hour
21785 RETURN
21786 END SUBROUTINE nl_set_simulation_start_hour
21787 SUBROUTINE nl_set_simulation_start_minute ( id_id , simulation_start_minute )
21788 integer , INTENT(IN) :: simulation_start_minute
21789 INTEGER id_id
21790 CHARACTER*80 emess
21791 IF ( id_id .NE. 1 ) THEN
21792 call wrf_debug(1,&
21793 'WARNING in nl_set_simulation_start_minute: simulation_start_minute applies to all domains. First arg ignored.')
21794 ENDIF
21795 model_config_rec%simulation_start_minute = simulation_start_minute
21796 RETURN
21797 END SUBROUTINE nl_set_simulation_start_minute
21798 SUBROUTINE nl_set_simulation_start_second ( id_id , simulation_start_second )
21799 integer , INTENT(IN) :: simulation_start_second
21800 INTEGER id_id
21801 CHARACTER*80 emess
21802 IF ( id_id .NE. 1 ) THEN
21803 call wrf_debug(1,&
21804 'WARNING in nl_set_simulation_start_second: simulation_start_second applies to all domains. First arg ignored.')
21805 ENDIF
21806 model_config_rec%simulation_start_second = simulation_start_second
21807 RETURN
21808 END SUBROUTINE nl_set_simulation_start_second
21809 !ENDOFREGISTRYGENERATEDINCLUDE