!STARTOFREGISTRYGENERATEDINCLUDE 'inc/nl_config.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! SUBROUTINE nl_get_auxinput19_begin ( id_id , auxinput19_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_begin INTEGER id_id auxinput19_begin = model_config_rec%auxinput19_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput19_begin SUBROUTINE nl_get_auxinput19_end_y ( id_id , auxinput19_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end_y INTEGER id_id auxinput19_end_y = model_config_rec%auxinput19_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end_y SUBROUTINE nl_get_auxinput19_end_d ( id_id , auxinput19_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end_d INTEGER id_id auxinput19_end_d = model_config_rec%auxinput19_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end_d SUBROUTINE nl_get_auxinput19_end_h ( id_id , auxinput19_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end_h INTEGER id_id auxinput19_end_h = model_config_rec%auxinput19_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end_h SUBROUTINE nl_get_auxinput19_end_m ( id_id , auxinput19_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end_m INTEGER id_id auxinput19_end_m = model_config_rec%auxinput19_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end_m SUBROUTINE nl_get_auxinput19_end_s ( id_id , auxinput19_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end_s INTEGER id_id auxinput19_end_s = model_config_rec%auxinput19_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end_s SUBROUTINE nl_get_auxinput19_end ( id_id , auxinput19_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput19_end INTEGER id_id auxinput19_end = model_config_rec%auxinput19_end(id_id) RETURN END SUBROUTINE nl_get_auxinput19_end SUBROUTINE nl_get_io_form_auxinput19 ( id_id , io_form_auxinput19 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput19 INTEGER id_id io_form_auxinput19 = model_config_rec%io_form_auxinput19 RETURN END SUBROUTINE nl_get_io_form_auxinput19 SUBROUTINE nl_get_frames_per_auxinput19 ( id_id , frames_per_auxinput19 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput19 INTEGER id_id frames_per_auxinput19 = model_config_rec%frames_per_auxinput19(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput19 SUBROUTINE nl_get_auxinput20_inname ( id_id , auxinput20_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput20_inname INTEGER id_id auxinput20_inname = trim(model_config_rec%auxinput20_inname) RETURN END SUBROUTINE nl_get_auxinput20_inname SUBROUTINE nl_get_auxinput20_outname ( id_id , auxinput20_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput20_outname INTEGER id_id auxinput20_outname = trim(model_config_rec%auxinput20_outname) RETURN END SUBROUTINE nl_get_auxinput20_outname SUBROUTINE nl_get_auxinput20_interval_y ( id_id , auxinput20_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval_y INTEGER id_id auxinput20_interval_y = model_config_rec%auxinput20_interval_y(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval_y SUBROUTINE nl_get_auxinput20_interval_d ( id_id , auxinput20_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval_d INTEGER id_id auxinput20_interval_d = model_config_rec%auxinput20_interval_d(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval_d SUBROUTINE nl_get_auxinput20_interval_h ( id_id , auxinput20_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval_h INTEGER id_id auxinput20_interval_h = model_config_rec%auxinput20_interval_h(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval_h SUBROUTINE nl_get_auxinput20_interval_m ( id_id , auxinput20_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval_m INTEGER id_id auxinput20_interval_m = model_config_rec%auxinput20_interval_m(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval_m SUBROUTINE nl_get_auxinput20_interval_s ( id_id , auxinput20_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval_s INTEGER id_id auxinput20_interval_s = model_config_rec%auxinput20_interval_s(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval_s SUBROUTINE nl_get_auxinput20_interval ( id_id , auxinput20_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_interval INTEGER id_id auxinput20_interval = model_config_rec%auxinput20_interval(id_id) RETURN END SUBROUTINE nl_get_auxinput20_interval SUBROUTINE nl_get_auxinput20_begin_y ( id_id , auxinput20_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin_y INTEGER id_id auxinput20_begin_y = model_config_rec%auxinput20_begin_y(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin_y SUBROUTINE nl_get_auxinput20_begin_d ( id_id , auxinput20_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin_d INTEGER id_id auxinput20_begin_d = model_config_rec%auxinput20_begin_d(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin_d SUBROUTINE nl_get_auxinput20_begin_h ( id_id , auxinput20_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin_h INTEGER id_id auxinput20_begin_h = model_config_rec%auxinput20_begin_h(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin_h SUBROUTINE nl_get_auxinput20_begin_m ( id_id , auxinput20_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin_m INTEGER id_id auxinput20_begin_m = model_config_rec%auxinput20_begin_m(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin_m SUBROUTINE nl_get_auxinput20_begin_s ( id_id , auxinput20_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin_s INTEGER id_id auxinput20_begin_s = model_config_rec%auxinput20_begin_s(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin_s SUBROUTINE nl_get_auxinput20_begin ( id_id , auxinput20_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_begin INTEGER id_id auxinput20_begin = model_config_rec%auxinput20_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput20_begin SUBROUTINE nl_get_auxinput20_end_y ( id_id , auxinput20_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end_y INTEGER id_id auxinput20_end_y = model_config_rec%auxinput20_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end_y SUBROUTINE nl_get_auxinput20_end_d ( id_id , auxinput20_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end_d INTEGER id_id auxinput20_end_d = model_config_rec%auxinput20_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end_d SUBROUTINE nl_get_auxinput20_end_h ( id_id , auxinput20_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end_h INTEGER id_id auxinput20_end_h = model_config_rec%auxinput20_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end_h SUBROUTINE nl_get_auxinput20_end_m ( id_id , auxinput20_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end_m INTEGER id_id auxinput20_end_m = model_config_rec%auxinput20_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end_m SUBROUTINE nl_get_auxinput20_end_s ( id_id , auxinput20_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end_s INTEGER id_id auxinput20_end_s = model_config_rec%auxinput20_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end_s SUBROUTINE nl_get_auxinput20_end ( id_id , auxinput20_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput20_end INTEGER id_id auxinput20_end = model_config_rec%auxinput20_end(id_id) RETURN END SUBROUTINE nl_get_auxinput20_end SUBROUTINE nl_get_io_form_auxinput20 ( id_id , io_form_auxinput20 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput20 INTEGER id_id io_form_auxinput20 = model_config_rec%io_form_auxinput20 RETURN END SUBROUTINE nl_get_io_form_auxinput20 SUBROUTINE nl_get_frames_per_auxinput20 ( id_id , frames_per_auxinput20 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput20 INTEGER id_id frames_per_auxinput20 = model_config_rec%frames_per_auxinput20(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput20 SUBROUTINE nl_get_auxinput21_inname ( id_id , auxinput21_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput21_inname INTEGER id_id auxinput21_inname = trim(model_config_rec%auxinput21_inname) RETURN END SUBROUTINE nl_get_auxinput21_inname SUBROUTINE nl_get_auxinput21_outname ( id_id , auxinput21_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput21_outname INTEGER id_id auxinput21_outname = trim(model_config_rec%auxinput21_outname) RETURN END SUBROUTINE nl_get_auxinput21_outname SUBROUTINE nl_get_auxinput21_interval_y ( id_id , auxinput21_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval_y INTEGER id_id auxinput21_interval_y = model_config_rec%auxinput21_interval_y(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval_y SUBROUTINE nl_get_auxinput21_interval_d ( id_id , auxinput21_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval_d INTEGER id_id auxinput21_interval_d = model_config_rec%auxinput21_interval_d(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval_d SUBROUTINE nl_get_auxinput21_interval_h ( id_id , auxinput21_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval_h INTEGER id_id auxinput21_interval_h = model_config_rec%auxinput21_interval_h(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval_h SUBROUTINE nl_get_auxinput21_interval_m ( id_id , auxinput21_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval_m INTEGER id_id auxinput21_interval_m = model_config_rec%auxinput21_interval_m(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval_m SUBROUTINE nl_get_auxinput21_interval_s ( id_id , auxinput21_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval_s INTEGER id_id auxinput21_interval_s = model_config_rec%auxinput21_interval_s(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval_s SUBROUTINE nl_get_auxinput21_interval ( id_id , auxinput21_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_interval INTEGER id_id auxinput21_interval = model_config_rec%auxinput21_interval(id_id) RETURN END SUBROUTINE nl_get_auxinput21_interval SUBROUTINE nl_get_auxinput21_begin_y ( id_id , auxinput21_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin_y INTEGER id_id auxinput21_begin_y = model_config_rec%auxinput21_begin_y(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin_y SUBROUTINE nl_get_auxinput21_begin_d ( id_id , auxinput21_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin_d INTEGER id_id auxinput21_begin_d = model_config_rec%auxinput21_begin_d(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin_d SUBROUTINE nl_get_auxinput21_begin_h ( id_id , auxinput21_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin_h INTEGER id_id auxinput21_begin_h = model_config_rec%auxinput21_begin_h(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin_h SUBROUTINE nl_get_auxinput21_begin_m ( id_id , auxinput21_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin_m INTEGER id_id auxinput21_begin_m = model_config_rec%auxinput21_begin_m(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin_m SUBROUTINE nl_get_auxinput21_begin_s ( id_id , auxinput21_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin_s INTEGER id_id auxinput21_begin_s = model_config_rec%auxinput21_begin_s(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin_s SUBROUTINE nl_get_auxinput21_begin ( id_id , auxinput21_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_begin INTEGER id_id auxinput21_begin = model_config_rec%auxinput21_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput21_begin SUBROUTINE nl_get_auxinput21_end_y ( id_id , auxinput21_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end_y INTEGER id_id auxinput21_end_y = model_config_rec%auxinput21_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end_y SUBROUTINE nl_get_auxinput21_end_d ( id_id , auxinput21_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end_d INTEGER id_id auxinput21_end_d = model_config_rec%auxinput21_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end_d SUBROUTINE nl_get_auxinput21_end_h ( id_id , auxinput21_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end_h INTEGER id_id auxinput21_end_h = model_config_rec%auxinput21_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end_h SUBROUTINE nl_get_auxinput21_end_m ( id_id , auxinput21_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end_m INTEGER id_id auxinput21_end_m = model_config_rec%auxinput21_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end_m SUBROUTINE nl_get_auxinput21_end_s ( id_id , auxinput21_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end_s INTEGER id_id auxinput21_end_s = model_config_rec%auxinput21_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end_s SUBROUTINE nl_get_auxinput21_end ( id_id , auxinput21_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput21_end INTEGER id_id auxinput21_end = model_config_rec%auxinput21_end(id_id) RETURN END SUBROUTINE nl_get_auxinput21_end SUBROUTINE nl_get_io_form_auxinput21 ( id_id , io_form_auxinput21 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput21 INTEGER id_id io_form_auxinput21 = model_config_rec%io_form_auxinput21 RETURN END SUBROUTINE nl_get_io_form_auxinput21 SUBROUTINE nl_get_frames_per_auxinput21 ( id_id , frames_per_auxinput21 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput21 INTEGER id_id frames_per_auxinput21 = model_config_rec%frames_per_auxinput21(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput21 SUBROUTINE nl_get_auxinput22_inname ( id_id , auxinput22_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput22_inname INTEGER id_id auxinput22_inname = trim(model_config_rec%auxinput22_inname) RETURN END SUBROUTINE nl_get_auxinput22_inname SUBROUTINE nl_get_auxinput22_outname ( id_id , auxinput22_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput22_outname INTEGER id_id auxinput22_outname = trim(model_config_rec%auxinput22_outname) RETURN END SUBROUTINE nl_get_auxinput22_outname SUBROUTINE nl_get_auxinput22_interval_y ( id_id , auxinput22_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval_y INTEGER id_id auxinput22_interval_y = model_config_rec%auxinput22_interval_y(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval_y SUBROUTINE nl_get_auxinput22_interval_d ( id_id , auxinput22_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval_d INTEGER id_id auxinput22_interval_d = model_config_rec%auxinput22_interval_d(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval_d SUBROUTINE nl_get_auxinput22_interval_h ( id_id , auxinput22_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval_h INTEGER id_id auxinput22_interval_h = model_config_rec%auxinput22_interval_h(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval_h SUBROUTINE nl_get_auxinput22_interval_m ( id_id , auxinput22_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval_m INTEGER id_id auxinput22_interval_m = model_config_rec%auxinput22_interval_m(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval_m SUBROUTINE nl_get_auxinput22_interval_s ( id_id , auxinput22_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval_s INTEGER id_id auxinput22_interval_s = model_config_rec%auxinput22_interval_s(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval_s SUBROUTINE nl_get_auxinput22_interval ( id_id , auxinput22_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_interval INTEGER id_id auxinput22_interval = model_config_rec%auxinput22_interval(id_id) RETURN END SUBROUTINE nl_get_auxinput22_interval SUBROUTINE nl_get_auxinput22_begin_y ( id_id , auxinput22_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin_y INTEGER id_id auxinput22_begin_y = model_config_rec%auxinput22_begin_y(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin_y SUBROUTINE nl_get_auxinput22_begin_d ( id_id , auxinput22_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin_d INTEGER id_id auxinput22_begin_d = model_config_rec%auxinput22_begin_d(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin_d SUBROUTINE nl_get_auxinput22_begin_h ( id_id , auxinput22_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin_h INTEGER id_id auxinput22_begin_h = model_config_rec%auxinput22_begin_h(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin_h SUBROUTINE nl_get_auxinput22_begin_m ( id_id , auxinput22_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin_m INTEGER id_id auxinput22_begin_m = model_config_rec%auxinput22_begin_m(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin_m SUBROUTINE nl_get_auxinput22_begin_s ( id_id , auxinput22_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin_s INTEGER id_id auxinput22_begin_s = model_config_rec%auxinput22_begin_s(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin_s SUBROUTINE nl_get_auxinput22_begin ( id_id , auxinput22_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_begin INTEGER id_id auxinput22_begin = model_config_rec%auxinput22_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput22_begin SUBROUTINE nl_get_auxinput22_end_y ( id_id , auxinput22_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end_y INTEGER id_id auxinput22_end_y = model_config_rec%auxinput22_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end_y SUBROUTINE nl_get_auxinput22_end_d ( id_id , auxinput22_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end_d INTEGER id_id auxinput22_end_d = model_config_rec%auxinput22_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end_d SUBROUTINE nl_get_auxinput22_end_h ( id_id , auxinput22_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end_h INTEGER id_id auxinput22_end_h = model_config_rec%auxinput22_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end_h SUBROUTINE nl_get_auxinput22_end_m ( id_id , auxinput22_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end_m INTEGER id_id auxinput22_end_m = model_config_rec%auxinput22_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end_m SUBROUTINE nl_get_auxinput22_end_s ( id_id , auxinput22_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end_s INTEGER id_id auxinput22_end_s = model_config_rec%auxinput22_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end_s SUBROUTINE nl_get_auxinput22_end ( id_id , auxinput22_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput22_end INTEGER id_id auxinput22_end = model_config_rec%auxinput22_end(id_id) RETURN END SUBROUTINE nl_get_auxinput22_end SUBROUTINE nl_get_io_form_auxinput22 ( id_id , io_form_auxinput22 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput22 INTEGER id_id io_form_auxinput22 = model_config_rec%io_form_auxinput22 RETURN END SUBROUTINE nl_get_io_form_auxinput22 SUBROUTINE nl_get_frames_per_auxinput22 ( id_id , frames_per_auxinput22 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput22 INTEGER id_id frames_per_auxinput22 = model_config_rec%frames_per_auxinput22(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput22 SUBROUTINE nl_get_auxinput23_inname ( id_id , auxinput23_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput23_inname INTEGER id_id auxinput23_inname = trim(model_config_rec%auxinput23_inname) RETURN END SUBROUTINE nl_get_auxinput23_inname SUBROUTINE nl_get_auxinput23_outname ( id_id , auxinput23_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput23_outname INTEGER id_id auxinput23_outname = trim(model_config_rec%auxinput23_outname) RETURN END SUBROUTINE nl_get_auxinput23_outname SUBROUTINE nl_get_auxinput23_interval_y ( id_id , auxinput23_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval_y INTEGER id_id auxinput23_interval_y = model_config_rec%auxinput23_interval_y(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval_y SUBROUTINE nl_get_auxinput23_interval_d ( id_id , auxinput23_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval_d INTEGER id_id auxinput23_interval_d = model_config_rec%auxinput23_interval_d(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval_d SUBROUTINE nl_get_auxinput23_interval_h ( id_id , auxinput23_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval_h INTEGER id_id auxinput23_interval_h = model_config_rec%auxinput23_interval_h(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval_h SUBROUTINE nl_get_auxinput23_interval_m ( id_id , auxinput23_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval_m INTEGER id_id auxinput23_interval_m = model_config_rec%auxinput23_interval_m(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval_m SUBROUTINE nl_get_auxinput23_interval_s ( id_id , auxinput23_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval_s INTEGER id_id auxinput23_interval_s = model_config_rec%auxinput23_interval_s(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval_s SUBROUTINE nl_get_auxinput23_interval ( id_id , auxinput23_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_interval INTEGER id_id auxinput23_interval = model_config_rec%auxinput23_interval(id_id) RETURN END SUBROUTINE nl_get_auxinput23_interval SUBROUTINE nl_get_auxinput23_begin_y ( id_id , auxinput23_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin_y INTEGER id_id auxinput23_begin_y = model_config_rec%auxinput23_begin_y(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin_y SUBROUTINE nl_get_auxinput23_begin_d ( id_id , auxinput23_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin_d INTEGER id_id auxinput23_begin_d = model_config_rec%auxinput23_begin_d(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin_d SUBROUTINE nl_get_auxinput23_begin_h ( id_id , auxinput23_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin_h INTEGER id_id auxinput23_begin_h = model_config_rec%auxinput23_begin_h(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin_h SUBROUTINE nl_get_auxinput23_begin_m ( id_id , auxinput23_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin_m INTEGER id_id auxinput23_begin_m = model_config_rec%auxinput23_begin_m(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin_m SUBROUTINE nl_get_auxinput23_begin_s ( id_id , auxinput23_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin_s INTEGER id_id auxinput23_begin_s = model_config_rec%auxinput23_begin_s(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin_s SUBROUTINE nl_get_auxinput23_begin ( id_id , auxinput23_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_begin INTEGER id_id auxinput23_begin = model_config_rec%auxinput23_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput23_begin SUBROUTINE nl_get_auxinput23_end_y ( id_id , auxinput23_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end_y INTEGER id_id auxinput23_end_y = model_config_rec%auxinput23_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end_y SUBROUTINE nl_get_auxinput23_end_d ( id_id , auxinput23_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end_d INTEGER id_id auxinput23_end_d = model_config_rec%auxinput23_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end_d SUBROUTINE nl_get_auxinput23_end_h ( id_id , auxinput23_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end_h INTEGER id_id auxinput23_end_h = model_config_rec%auxinput23_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end_h SUBROUTINE nl_get_auxinput23_end_m ( id_id , auxinput23_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end_m INTEGER id_id auxinput23_end_m = model_config_rec%auxinput23_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end_m SUBROUTINE nl_get_auxinput23_end_s ( id_id , auxinput23_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end_s INTEGER id_id auxinput23_end_s = model_config_rec%auxinput23_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end_s SUBROUTINE nl_get_auxinput23_end ( id_id , auxinput23_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput23_end INTEGER id_id auxinput23_end = model_config_rec%auxinput23_end(id_id) RETURN END SUBROUTINE nl_get_auxinput23_end SUBROUTINE nl_get_io_form_auxinput23 ( id_id , io_form_auxinput23 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput23 INTEGER id_id io_form_auxinput23 = model_config_rec%io_form_auxinput23 RETURN END SUBROUTINE nl_get_io_form_auxinput23 SUBROUTINE nl_get_frames_per_auxinput23 ( id_id , frames_per_auxinput23 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput23 INTEGER id_id frames_per_auxinput23 = model_config_rec%frames_per_auxinput23(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput23 SUBROUTINE nl_get_auxinput24_inname ( id_id , auxinput24_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput24_inname INTEGER id_id auxinput24_inname = trim(model_config_rec%auxinput24_inname) RETURN END SUBROUTINE nl_get_auxinput24_inname SUBROUTINE nl_get_auxinput24_outname ( id_id , auxinput24_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: auxinput24_outname INTEGER id_id auxinput24_outname = trim(model_config_rec%auxinput24_outname) RETURN END SUBROUTINE nl_get_auxinput24_outname SUBROUTINE nl_get_auxinput24_interval_y ( id_id , auxinput24_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval_y INTEGER id_id auxinput24_interval_y = model_config_rec%auxinput24_interval_y(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval_y SUBROUTINE nl_get_auxinput24_interval_d ( id_id , auxinput24_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval_d INTEGER id_id auxinput24_interval_d = model_config_rec%auxinput24_interval_d(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval_d SUBROUTINE nl_get_auxinput24_interval_h ( id_id , auxinput24_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval_h INTEGER id_id auxinput24_interval_h = model_config_rec%auxinput24_interval_h(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval_h SUBROUTINE nl_get_auxinput24_interval_m ( id_id , auxinput24_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval_m INTEGER id_id auxinput24_interval_m = model_config_rec%auxinput24_interval_m(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval_m SUBROUTINE nl_get_auxinput24_interval_s ( id_id , auxinput24_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval_s INTEGER id_id auxinput24_interval_s = model_config_rec%auxinput24_interval_s(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval_s SUBROUTINE nl_get_auxinput24_interval ( id_id , auxinput24_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_interval INTEGER id_id auxinput24_interval = model_config_rec%auxinput24_interval(id_id) RETURN END SUBROUTINE nl_get_auxinput24_interval SUBROUTINE nl_get_auxinput24_begin_y ( id_id , auxinput24_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin_y INTEGER id_id auxinput24_begin_y = model_config_rec%auxinput24_begin_y(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin_y SUBROUTINE nl_get_auxinput24_begin_d ( id_id , auxinput24_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin_d INTEGER id_id auxinput24_begin_d = model_config_rec%auxinput24_begin_d(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin_d SUBROUTINE nl_get_auxinput24_begin_h ( id_id , auxinput24_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin_h INTEGER id_id auxinput24_begin_h = model_config_rec%auxinput24_begin_h(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin_h SUBROUTINE nl_get_auxinput24_begin_m ( id_id , auxinput24_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin_m INTEGER id_id auxinput24_begin_m = model_config_rec%auxinput24_begin_m(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin_m SUBROUTINE nl_get_auxinput24_begin_s ( id_id , auxinput24_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin_s INTEGER id_id auxinput24_begin_s = model_config_rec%auxinput24_begin_s(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin_s SUBROUTINE nl_get_auxinput24_begin ( id_id , auxinput24_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_begin INTEGER id_id auxinput24_begin = model_config_rec%auxinput24_begin(id_id) RETURN END SUBROUTINE nl_get_auxinput24_begin SUBROUTINE nl_get_auxinput24_end_y ( id_id , auxinput24_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end_y INTEGER id_id auxinput24_end_y = model_config_rec%auxinput24_end_y(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end_y SUBROUTINE nl_get_auxinput24_end_d ( id_id , auxinput24_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end_d INTEGER id_id auxinput24_end_d = model_config_rec%auxinput24_end_d(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end_d SUBROUTINE nl_get_auxinput24_end_h ( id_id , auxinput24_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end_h INTEGER id_id auxinput24_end_h = model_config_rec%auxinput24_end_h(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end_h SUBROUTINE nl_get_auxinput24_end_m ( id_id , auxinput24_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end_m INTEGER id_id auxinput24_end_m = model_config_rec%auxinput24_end_m(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end_m SUBROUTINE nl_get_auxinput24_end_s ( id_id , auxinput24_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end_s INTEGER id_id auxinput24_end_s = model_config_rec%auxinput24_end_s(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end_s SUBROUTINE nl_get_auxinput24_end ( id_id , auxinput24_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: auxinput24_end INTEGER id_id auxinput24_end = model_config_rec%auxinput24_end(id_id) RETURN END SUBROUTINE nl_get_auxinput24_end SUBROUTINE nl_get_io_form_auxinput24 ( id_id , io_form_auxinput24 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_auxinput24 INTEGER id_id io_form_auxinput24 = model_config_rec%io_form_auxinput24 RETURN END SUBROUTINE nl_get_io_form_auxinput24 SUBROUTINE nl_get_frames_per_auxinput24 ( id_id , frames_per_auxinput24 ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_auxinput24 INTEGER id_id frames_per_auxinput24 = model_config_rec%frames_per_auxinput24(id_id) RETURN END SUBROUTINE nl_get_frames_per_auxinput24 SUBROUTINE nl_get_history_interval ( id_id , history_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_interval INTEGER id_id history_interval = model_config_rec%history_interval(id_id) RETURN END SUBROUTINE nl_get_history_interval SUBROUTINE nl_get_frames_per_outfile ( id_id , frames_per_outfile ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: frames_per_outfile INTEGER id_id frames_per_outfile = model_config_rec%frames_per_outfile(id_id) RETURN END SUBROUTINE nl_get_frames_per_outfile SUBROUTINE nl_get_restart ( id_id , restart ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: restart INTEGER id_id restart = model_config_rec%restart RETURN END SUBROUTINE nl_get_restart SUBROUTINE nl_get_restart_interval ( id_id , restart_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_interval INTEGER id_id restart_interval = model_config_rec%restart_interval RETURN END SUBROUTINE nl_get_restart_interval SUBROUTINE nl_get_io_form_input ( id_id , io_form_input ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_input INTEGER id_id io_form_input = model_config_rec%io_form_input RETURN END SUBROUTINE nl_get_io_form_input SUBROUTINE nl_get_io_form_history ( id_id , io_form_history ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_history INTEGER id_id io_form_history = model_config_rec%io_form_history RETURN END SUBROUTINE nl_get_io_form_history SUBROUTINE nl_get_io_form_restart ( id_id , io_form_restart ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_restart INTEGER id_id io_form_restart = model_config_rec%io_form_restart RETURN END SUBROUTINE nl_get_io_form_restart SUBROUTINE nl_get_io_form_boundary ( id_id , io_form_boundary ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_boundary INTEGER id_id io_form_boundary = model_config_rec%io_form_boundary RETURN END SUBROUTINE nl_get_io_form_boundary SUBROUTINE nl_get_debug_level ( id_id , debug_level ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: debug_level INTEGER id_id debug_level = model_config_rec%debug_level RETURN END SUBROUTINE nl_get_debug_level SUBROUTINE nl_get_self_test_domain ( id_id , self_test_domain ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: self_test_domain INTEGER id_id self_test_domain = model_config_rec%self_test_domain RETURN END SUBROUTINE nl_get_self_test_domain SUBROUTINE nl_get_history_outname ( id_id , history_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: history_outname INTEGER id_id history_outname = trim(model_config_rec%history_outname) RETURN END SUBROUTINE nl_get_history_outname SUBROUTINE nl_get_history_inname ( id_id , history_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: history_inname INTEGER id_id history_inname = trim(model_config_rec%history_inname) RETURN END SUBROUTINE nl_get_history_inname SUBROUTINE nl_get_use_netcdf_classic ( id_id , use_netcdf_classic ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: use_netcdf_classic INTEGER id_id use_netcdf_classic = model_config_rec%use_netcdf_classic RETURN END SUBROUTINE nl_get_use_netcdf_classic SUBROUTINE nl_get_history_interval_d ( id_id , history_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_interval_d INTEGER id_id history_interval_d = model_config_rec%history_interval_d(id_id) RETURN END SUBROUTINE nl_get_history_interval_d SUBROUTINE nl_get_history_interval_h ( id_id , history_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_interval_h INTEGER id_id history_interval_h = model_config_rec%history_interval_h(id_id) RETURN END SUBROUTINE nl_get_history_interval_h SUBROUTINE nl_get_history_interval_m ( id_id , history_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_interval_m INTEGER id_id history_interval_m = model_config_rec%history_interval_m(id_id) RETURN END SUBROUTINE nl_get_history_interval_m SUBROUTINE nl_get_history_interval_s ( id_id , history_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_interval_s INTEGER id_id history_interval_s = model_config_rec%history_interval_s(id_id) RETURN END SUBROUTINE nl_get_history_interval_s SUBROUTINE nl_get_inputout_interval_d ( id_id , inputout_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_interval_d INTEGER id_id inputout_interval_d = model_config_rec%inputout_interval_d(id_id) RETURN END SUBROUTINE nl_get_inputout_interval_d SUBROUTINE nl_get_inputout_interval_h ( id_id , inputout_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_interval_h INTEGER id_id inputout_interval_h = model_config_rec%inputout_interval_h(id_id) RETURN END SUBROUTINE nl_get_inputout_interval_h SUBROUTINE nl_get_inputout_interval_m ( id_id , inputout_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_interval_m INTEGER id_id inputout_interval_m = model_config_rec%inputout_interval_m(id_id) RETURN END SUBROUTINE nl_get_inputout_interval_m SUBROUTINE nl_get_inputout_interval_s ( id_id , inputout_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_interval_s INTEGER id_id inputout_interval_s = model_config_rec%inputout_interval_s(id_id) RETURN END SUBROUTINE nl_get_inputout_interval_s SUBROUTINE nl_get_inputout_interval ( id_id , inputout_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_interval INTEGER id_id inputout_interval = model_config_rec%inputout_interval(id_id) RETURN END SUBROUTINE nl_get_inputout_interval SUBROUTINE nl_get_restart_interval_d ( id_id , restart_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_interval_d INTEGER id_id restart_interval_d = model_config_rec%restart_interval_d RETURN END SUBROUTINE nl_get_restart_interval_d SUBROUTINE nl_get_restart_interval_h ( id_id , restart_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_interval_h INTEGER id_id restart_interval_h = model_config_rec%restart_interval_h RETURN END SUBROUTINE nl_get_restart_interval_h SUBROUTINE nl_get_restart_interval_m ( id_id , restart_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_interval_m INTEGER id_id restart_interval_m = model_config_rec%restart_interval_m RETURN END SUBROUTINE nl_get_restart_interval_m SUBROUTINE nl_get_restart_interval_s ( id_id , restart_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_interval_s INTEGER id_id restart_interval_s = model_config_rec%restart_interval_s RETURN END SUBROUTINE nl_get_restart_interval_s SUBROUTINE nl_get_history_begin_y ( id_id , history_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin_y INTEGER id_id history_begin_y = model_config_rec%history_begin_y(id_id) RETURN END SUBROUTINE nl_get_history_begin_y SUBROUTINE nl_get_history_begin_d ( id_id , history_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin_d INTEGER id_id history_begin_d = model_config_rec%history_begin_d(id_id) RETURN END SUBROUTINE nl_get_history_begin_d SUBROUTINE nl_get_history_begin_h ( id_id , history_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin_h INTEGER id_id history_begin_h = model_config_rec%history_begin_h(id_id) RETURN END SUBROUTINE nl_get_history_begin_h SUBROUTINE nl_get_history_begin_m ( id_id , history_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin_m INTEGER id_id history_begin_m = model_config_rec%history_begin_m(id_id) RETURN END SUBROUTINE nl_get_history_begin_m SUBROUTINE nl_get_history_begin_s ( id_id , history_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin_s INTEGER id_id history_begin_s = model_config_rec%history_begin_s(id_id) RETURN END SUBROUTINE nl_get_history_begin_s SUBROUTINE nl_get_history_begin ( id_id , history_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_begin INTEGER id_id history_begin = model_config_rec%history_begin(id_id) RETURN END SUBROUTINE nl_get_history_begin SUBROUTINE nl_get_inputout_begin_y ( id_id , inputout_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_begin_y INTEGER id_id inputout_begin_y = model_config_rec%inputout_begin_y(id_id) RETURN END SUBROUTINE nl_get_inputout_begin_y SUBROUTINE nl_get_inputout_begin_d ( id_id , inputout_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_begin_d INTEGER id_id inputout_begin_d = model_config_rec%inputout_begin_d(id_id) RETURN END SUBROUTINE nl_get_inputout_begin_d SUBROUTINE nl_get_inputout_begin_h ( id_id , inputout_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_begin_h INTEGER id_id inputout_begin_h = model_config_rec%inputout_begin_h(id_id) RETURN END SUBROUTINE nl_get_inputout_begin_h SUBROUTINE nl_get_inputout_begin_m ( id_id , inputout_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_begin_m INTEGER id_id inputout_begin_m = model_config_rec%inputout_begin_m(id_id) RETURN END SUBROUTINE nl_get_inputout_begin_m SUBROUTINE nl_get_inputout_begin_s ( id_id , inputout_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_begin_s INTEGER id_id inputout_begin_s = model_config_rec%inputout_begin_s(id_id) RETURN END SUBROUTINE nl_get_inputout_begin_s SUBROUTINE nl_get_restart_begin_y ( id_id , restart_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin_y INTEGER id_id restart_begin_y = model_config_rec%restart_begin_y RETURN END SUBROUTINE nl_get_restart_begin_y SUBROUTINE nl_get_restart_begin_d ( id_id , restart_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin_d INTEGER id_id restart_begin_d = model_config_rec%restart_begin_d RETURN END SUBROUTINE nl_get_restart_begin_d SUBROUTINE nl_get_restart_begin_h ( id_id , restart_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin_h INTEGER id_id restart_begin_h = model_config_rec%restart_begin_h RETURN END SUBROUTINE nl_get_restart_begin_h SUBROUTINE nl_get_restart_begin_m ( id_id , restart_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin_m INTEGER id_id restart_begin_m = model_config_rec%restart_begin_m RETURN END SUBROUTINE nl_get_restart_begin_m SUBROUTINE nl_get_restart_begin_s ( id_id , restart_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin_s INTEGER id_id restart_begin_s = model_config_rec%restart_begin_s RETURN END SUBROUTINE nl_get_restart_begin_s SUBROUTINE nl_get_restart_begin ( id_id , restart_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: restart_begin INTEGER id_id restart_begin = model_config_rec%restart_begin RETURN END SUBROUTINE nl_get_restart_begin SUBROUTINE nl_get_history_end_y ( id_id , history_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end_y INTEGER id_id history_end_y = model_config_rec%history_end_y(id_id) RETURN END SUBROUTINE nl_get_history_end_y SUBROUTINE nl_get_history_end_d ( id_id , history_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end_d INTEGER id_id history_end_d = model_config_rec%history_end_d(id_id) RETURN END SUBROUTINE nl_get_history_end_d SUBROUTINE nl_get_history_end_h ( id_id , history_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end_h INTEGER id_id history_end_h = model_config_rec%history_end_h(id_id) RETURN END SUBROUTINE nl_get_history_end_h SUBROUTINE nl_get_history_end_m ( id_id , history_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end_m INTEGER id_id history_end_m = model_config_rec%history_end_m(id_id) RETURN END SUBROUTINE nl_get_history_end_m SUBROUTINE nl_get_history_end_s ( id_id , history_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end_s INTEGER id_id history_end_s = model_config_rec%history_end_s(id_id) RETURN END SUBROUTINE nl_get_history_end_s SUBROUTINE nl_get_history_end ( id_id , history_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: history_end INTEGER id_id history_end = model_config_rec%history_end(id_id) RETURN END SUBROUTINE nl_get_history_end SUBROUTINE nl_get_inputout_end_y ( id_id , inputout_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_end_y INTEGER id_id inputout_end_y = model_config_rec%inputout_end_y(id_id) RETURN END SUBROUTINE nl_get_inputout_end_y SUBROUTINE nl_get_inputout_end_d ( id_id , inputout_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_end_d INTEGER id_id inputout_end_d = model_config_rec%inputout_end_d(id_id) RETURN END SUBROUTINE nl_get_inputout_end_d SUBROUTINE nl_get_inputout_end_h ( id_id , inputout_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_end_h INTEGER id_id inputout_end_h = model_config_rec%inputout_end_h(id_id) RETURN END SUBROUTINE nl_get_inputout_end_h SUBROUTINE nl_get_inputout_end_m ( id_id , inputout_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_end_m INTEGER id_id inputout_end_m = model_config_rec%inputout_end_m(id_id) RETURN END SUBROUTINE nl_get_inputout_end_m SUBROUTINE nl_get_inputout_end_s ( id_id , inputout_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: inputout_end_s INTEGER id_id inputout_end_s = model_config_rec%inputout_end_s(id_id) RETURN END SUBROUTINE nl_get_inputout_end_s SUBROUTINE nl_get_simulation_start_year ( id_id , simulation_start_year ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_year INTEGER id_id simulation_start_year = model_config_rec%simulation_start_year RETURN END SUBROUTINE nl_get_simulation_start_year SUBROUTINE nl_get_simulation_start_month ( id_id , simulation_start_month ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_month INTEGER id_id simulation_start_month = model_config_rec%simulation_start_month RETURN END SUBROUTINE nl_get_simulation_start_month SUBROUTINE nl_get_simulation_start_day ( id_id , simulation_start_day ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_day INTEGER id_id simulation_start_day = model_config_rec%simulation_start_day RETURN END SUBROUTINE nl_get_simulation_start_day SUBROUTINE nl_get_simulation_start_hour ( id_id , simulation_start_hour ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_hour INTEGER id_id simulation_start_hour = model_config_rec%simulation_start_hour RETURN END SUBROUTINE nl_get_simulation_start_hour SUBROUTINE nl_get_simulation_start_minute ( id_id , simulation_start_minute ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_minute INTEGER id_id simulation_start_minute = model_config_rec%simulation_start_minute RETURN END SUBROUTINE nl_get_simulation_start_minute SUBROUTINE nl_get_simulation_start_second ( id_id , simulation_start_second ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: simulation_start_second INTEGER id_id simulation_start_second = model_config_rec%simulation_start_second RETURN END SUBROUTINE nl_get_simulation_start_second SUBROUTINE nl_get_reset_simulation_start ( id_id , reset_simulation_start ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: reset_simulation_start INTEGER id_id reset_simulation_start = model_config_rec%reset_simulation_start RETURN END SUBROUTINE nl_get_reset_simulation_start SUBROUTINE nl_get_sr_x ( id_id , sr_x ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sr_x INTEGER id_id sr_x = model_config_rec%sr_x(id_id) RETURN END SUBROUTINE nl_get_sr_x SUBROUTINE nl_get_sr_y ( id_id , sr_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sr_y INTEGER id_id sr_y = model_config_rec%sr_y(id_id) RETURN END SUBROUTINE nl_get_sr_y SUBROUTINE nl_get_sgfdda_inname ( id_id , sgfdda_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: sgfdda_inname INTEGER id_id sgfdda_inname = trim(model_config_rec%sgfdda_inname) RETURN END SUBROUTINE nl_get_sgfdda_inname SUBROUTINE nl_get_gfdda_inname ( id_id , gfdda_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: gfdda_inname INTEGER id_id gfdda_inname = trim(model_config_rec%gfdda_inname) RETURN END SUBROUTINE nl_get_gfdda_inname SUBROUTINE nl_get_sgfdda_interval_d ( id_id , sgfdda_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval_d INTEGER id_id sgfdda_interval_d = model_config_rec%sgfdda_interval_d(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval_d SUBROUTINE nl_get_sgfdda_interval_h ( id_id , sgfdda_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval_h INTEGER id_id sgfdda_interval_h = model_config_rec%sgfdda_interval_h(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval_h SUBROUTINE nl_get_sgfdda_interval_m ( id_id , sgfdda_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval_m INTEGER id_id sgfdda_interval_m = model_config_rec%sgfdda_interval_m(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval_m SUBROUTINE nl_get_sgfdda_interval_s ( id_id , sgfdda_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval_s INTEGER id_id sgfdda_interval_s = model_config_rec%sgfdda_interval_s(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval_s SUBROUTINE nl_get_sgfdda_interval_y ( id_id , sgfdda_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval_y INTEGER id_id sgfdda_interval_y = model_config_rec%sgfdda_interval_y(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval_y SUBROUTINE nl_get_sgfdda_interval ( id_id , sgfdda_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_interval INTEGER id_id sgfdda_interval = model_config_rec%sgfdda_interval(id_id) RETURN END SUBROUTINE nl_get_sgfdda_interval SUBROUTINE nl_get_gfdda_interval_d ( id_id , gfdda_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval_d INTEGER id_id gfdda_interval_d = model_config_rec%gfdda_interval_d(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval_d SUBROUTINE nl_get_gfdda_interval_h ( id_id , gfdda_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval_h INTEGER id_id gfdda_interval_h = model_config_rec%gfdda_interval_h(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval_h SUBROUTINE nl_get_gfdda_interval_m ( id_id , gfdda_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval_m INTEGER id_id gfdda_interval_m = model_config_rec%gfdda_interval_m(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval_m SUBROUTINE nl_get_gfdda_interval_s ( id_id , gfdda_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval_s INTEGER id_id gfdda_interval_s = model_config_rec%gfdda_interval_s(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval_s SUBROUTINE nl_get_gfdda_interval_y ( id_id , gfdda_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval_y INTEGER id_id gfdda_interval_y = model_config_rec%gfdda_interval_y(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval_y SUBROUTINE nl_get_gfdda_interval ( id_id , gfdda_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_interval INTEGER id_id gfdda_interval = model_config_rec%gfdda_interval(id_id) RETURN END SUBROUTINE nl_get_gfdda_interval SUBROUTINE nl_get_sgfdda_begin_y ( id_id , sgfdda_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_begin_y INTEGER id_id sgfdda_begin_y = model_config_rec%sgfdda_begin_y(id_id) RETURN END SUBROUTINE nl_get_sgfdda_begin_y SUBROUTINE nl_get_sgfdda_begin_d ( id_id , sgfdda_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_begin_d INTEGER id_id sgfdda_begin_d = model_config_rec%sgfdda_begin_d(id_id) RETURN END SUBROUTINE nl_get_sgfdda_begin_d SUBROUTINE nl_get_sgfdda_begin_h ( id_id , sgfdda_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_begin_h INTEGER id_id sgfdda_begin_h = model_config_rec%sgfdda_begin_h(id_id) RETURN END SUBROUTINE nl_get_sgfdda_begin_h SUBROUTINE nl_get_sgfdda_begin_m ( id_id , sgfdda_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_begin_m INTEGER id_id sgfdda_begin_m = model_config_rec%sgfdda_begin_m(id_id) RETURN END SUBROUTINE nl_get_sgfdda_begin_m SUBROUTINE nl_get_sgfdda_begin_s ( id_id , sgfdda_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_begin_s INTEGER id_id sgfdda_begin_s = model_config_rec%sgfdda_begin_s(id_id) RETURN END SUBROUTINE nl_get_sgfdda_begin_s SUBROUTINE nl_get_gfdda_begin_y ( id_id , gfdda_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_begin_y INTEGER id_id gfdda_begin_y = model_config_rec%gfdda_begin_y(id_id) RETURN END SUBROUTINE nl_get_gfdda_begin_y SUBROUTINE nl_get_gfdda_begin_d ( id_id , gfdda_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_begin_d INTEGER id_id gfdda_begin_d = model_config_rec%gfdda_begin_d(id_id) RETURN END SUBROUTINE nl_get_gfdda_begin_d SUBROUTINE nl_get_gfdda_begin_h ( id_id , gfdda_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_begin_h INTEGER id_id gfdda_begin_h = model_config_rec%gfdda_begin_h(id_id) RETURN END SUBROUTINE nl_get_gfdda_begin_h SUBROUTINE nl_get_gfdda_begin_m ( id_id , gfdda_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_begin_m INTEGER id_id gfdda_begin_m = model_config_rec%gfdda_begin_m(id_id) RETURN END SUBROUTINE nl_get_gfdda_begin_m SUBROUTINE nl_get_gfdda_begin_s ( id_id , gfdda_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_begin_s INTEGER id_id gfdda_begin_s = model_config_rec%gfdda_begin_s(id_id) RETURN END SUBROUTINE nl_get_gfdda_begin_s SUBROUTINE nl_get_sgfdda_end_y ( id_id , sgfdda_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_end_y INTEGER id_id sgfdda_end_y = model_config_rec%sgfdda_end_y(id_id) RETURN END SUBROUTINE nl_get_sgfdda_end_y SUBROUTINE nl_get_sgfdda_end_d ( id_id , sgfdda_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_end_d INTEGER id_id sgfdda_end_d = model_config_rec%sgfdda_end_d(id_id) RETURN END SUBROUTINE nl_get_sgfdda_end_d SUBROUTINE nl_get_sgfdda_end_h ( id_id , sgfdda_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_end_h INTEGER id_id sgfdda_end_h = model_config_rec%sgfdda_end_h(id_id) RETURN END SUBROUTINE nl_get_sgfdda_end_h SUBROUTINE nl_get_sgfdda_end_m ( id_id , sgfdda_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_end_m INTEGER id_id sgfdda_end_m = model_config_rec%sgfdda_end_m(id_id) RETURN END SUBROUTINE nl_get_sgfdda_end_m SUBROUTINE nl_get_sgfdda_end_s ( id_id , sgfdda_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: sgfdda_end_s INTEGER id_id sgfdda_end_s = model_config_rec%sgfdda_end_s(id_id) RETURN END SUBROUTINE nl_get_sgfdda_end_s SUBROUTINE nl_get_gfdda_end_y ( id_id , gfdda_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_end_y INTEGER id_id gfdda_end_y = model_config_rec%gfdda_end_y(id_id) RETURN END SUBROUTINE nl_get_gfdda_end_y SUBROUTINE nl_get_gfdda_end_d ( id_id , gfdda_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_end_d INTEGER id_id gfdda_end_d = model_config_rec%gfdda_end_d(id_id) RETURN END SUBROUTINE nl_get_gfdda_end_d SUBROUTINE nl_get_gfdda_end_h ( id_id , gfdda_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_end_h INTEGER id_id gfdda_end_h = model_config_rec%gfdda_end_h(id_id) RETURN END SUBROUTINE nl_get_gfdda_end_h SUBROUTINE nl_get_gfdda_end_m ( id_id , gfdda_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_end_m INTEGER id_id gfdda_end_m = model_config_rec%gfdda_end_m(id_id) RETURN END SUBROUTINE nl_get_gfdda_end_m SUBROUTINE nl_get_gfdda_end_s ( id_id , gfdda_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: gfdda_end_s INTEGER id_id gfdda_end_s = model_config_rec%gfdda_end_s(id_id) RETURN END SUBROUTINE nl_get_gfdda_end_s SUBROUTINE nl_get_io_form_sgfdda ( id_id , io_form_sgfdda ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_sgfdda INTEGER id_id io_form_sgfdda = model_config_rec%io_form_sgfdda RETURN END SUBROUTINE nl_get_io_form_sgfdda SUBROUTINE nl_get_io_form_gfdda ( id_id , io_form_gfdda ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: io_form_gfdda INTEGER id_id io_form_gfdda = model_config_rec%io_form_gfdda RETURN END SUBROUTINE nl_get_io_form_gfdda SUBROUTINE nl_get_iofields_filename ( id_id , iofields_filename ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: iofields_filename INTEGER id_id iofields_filename = model_config_rec%iofields_filename(id_id) RETURN END SUBROUTINE nl_get_iofields_filename SUBROUTINE nl_get_ignore_iofields_warning ( id_id , ignore_iofields_warning ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: ignore_iofields_warning INTEGER id_id ignore_iofields_warning = model_config_rec%ignore_iofields_warning RETURN END SUBROUTINE nl_get_ignore_iofields_warning SUBROUTINE nl_get_ncd_nofill ( id_id , ncd_nofill ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: ncd_nofill INTEGER id_id ncd_nofill = model_config_rec%ncd_nofill RETURN END SUBROUTINE nl_get_ncd_nofill SUBROUTINE nl_get_adios2_compression_enable ( id_id , adios2_compression_enable ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: adios2_compression_enable INTEGER id_id adios2_compression_enable = model_config_rec%adios2_compression_enable RETURN END SUBROUTINE nl_get_adios2_compression_enable SUBROUTINE nl_get_adios2_blosc_compressor ( id_id , adios2_blosc_compressor ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(OUT) :: adios2_blosc_compressor INTEGER id_id adios2_blosc_compressor = trim(model_config_rec%adios2_blosc_compressor) RETURN END SUBROUTINE nl_get_adios2_blosc_compressor SUBROUTINE nl_get_adios2_numaggregators ( id_id , adios2_numaggregators ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: adios2_numaggregators INTEGER id_id adios2_numaggregators = model_config_rec%adios2_numaggregators RETURN END SUBROUTINE nl_get_adios2_numaggregators SUBROUTINE nl_get_nfmc ( id_id , nfmc ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: nfmc INTEGER id_id nfmc = model_config_rec%nfmc RETURN END SUBROUTINE nl_get_nfmc SUBROUTINE nl_get_fmoist_run ( id_id , fmoist_run ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: fmoist_run INTEGER id_id fmoist_run = model_config_rec%fmoist_run(id_id) RETURN END SUBROUTINE nl_get_fmoist_run SUBROUTINE nl_get_fmoist_interp ( id_id , fmoist_interp ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: fmoist_interp INTEGER id_id fmoist_interp = model_config_rec%fmoist_interp(id_id) RETURN END SUBROUTINE nl_get_fmoist_interp SUBROUTINE nl_get_fmoisti_run ( id_id , fmoisti_run ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: fmoisti_run INTEGER id_id fmoisti_run = model_config_rec%fmoisti_run(id_id) RETURN END SUBROUTINE nl_get_fmoisti_run SUBROUTINE nl_get_fmoisti_interp ( id_id , fmoisti_interp ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: fmoisti_interp INTEGER id_id fmoisti_interp = model_config_rec%fmoisti_interp(id_id) RETURN END SUBROUTINE nl_get_fmoisti_interp SUBROUTINE nl_get_fmoist_only ( id_id , fmoist_only ) USE module_configure, ONLY : model_config_rec logical , INTENT(OUT) :: fmoist_only INTEGER id_id fmoist_only = model_config_rec%fmoist_only(id_id) RETURN END SUBROUTINE nl_get_fmoist_only SUBROUTINE nl_get_fmoist_freq ( id_id , fmoist_freq ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: fmoist_freq INTEGER id_id fmoist_freq = model_config_rec%fmoist_freq(id_id) RETURN END SUBROUTINE nl_get_fmoist_freq SUBROUTINE nl_get_fmoist_dt ( id_id , fmoist_dt ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fmoist_dt INTEGER id_id fmoist_dt = model_config_rec%fmoist_dt(id_id) RETURN END SUBROUTINE nl_get_fmoist_dt SUBROUTINE nl_get_fmep_decay_tlag ( id_id , fmep_decay_tlag ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fmep_decay_tlag INTEGER id_id fmep_decay_tlag = model_config_rec%fmep_decay_tlag RETURN END SUBROUTINE nl_get_fmep_decay_tlag SUBROUTINE nl_get_ifire ( id_id , ifire ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: ifire INTEGER id_id ifire = model_config_rec%ifire(id_id) RETURN END SUBROUTINE nl_get_ifire SUBROUTINE nl_get_fire_boundary_guard ( id_id , fire_boundary_guard ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: fire_boundary_guard INTEGER id_id fire_boundary_guard = model_config_rec%fire_boundary_guard(id_id) RETURN END SUBROUTINE nl_get_fire_boundary_guard SUBROUTINE nl_get_fire_num_ignitions ( id_id , fire_num_ignitions ) USE module_configure, ONLY : model_config_rec integer , INTENT(OUT) :: fire_num_ignitions INTEGER id_id fire_num_ignitions = model_config_rec%fire_num_ignitions(id_id) RETURN END SUBROUTINE nl_get_fire_num_ignitions SUBROUTINE nl_get_fire_ignition_ros1 ( id_id , fire_ignition_ros1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_ros1 INTEGER id_id fire_ignition_ros1 = model_config_rec%fire_ignition_ros1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_ros1 SUBROUTINE nl_get_fire_ignition_start_lon1 ( id_id , fire_ignition_start_lon1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lon1 INTEGER id_id fire_ignition_start_lon1 = model_config_rec%fire_ignition_start_lon1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lon1 SUBROUTINE nl_get_fire_ignition_start_lat1 ( id_id , fire_ignition_start_lat1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lat1 INTEGER id_id fire_ignition_start_lat1 = model_config_rec%fire_ignition_start_lat1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lat1 SUBROUTINE nl_get_fire_ignition_end_lon1 ( id_id , fire_ignition_end_lon1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lon1 INTEGER id_id fire_ignition_end_lon1 = model_config_rec%fire_ignition_end_lon1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lon1 SUBROUTINE nl_get_fire_ignition_end_lat1 ( id_id , fire_ignition_end_lat1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lat1 INTEGER id_id fire_ignition_end_lat1 = model_config_rec%fire_ignition_end_lat1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lat1 SUBROUTINE nl_get_fire_ignition_radius1 ( id_id , fire_ignition_radius1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_radius1 INTEGER id_id fire_ignition_radius1 = model_config_rec%fire_ignition_radius1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_radius1 SUBROUTINE nl_get_fire_ignition_start_time1 ( id_id , fire_ignition_start_time1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_time1 INTEGER id_id fire_ignition_start_time1 = model_config_rec%fire_ignition_start_time1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_time1 SUBROUTINE nl_get_fire_ignition_end_time1 ( id_id , fire_ignition_end_time1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_time1 INTEGER id_id fire_ignition_end_time1 = model_config_rec%fire_ignition_end_time1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_time1 SUBROUTINE nl_get_fire_ignition_ros2 ( id_id , fire_ignition_ros2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_ros2 INTEGER id_id fire_ignition_ros2 = model_config_rec%fire_ignition_ros2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_ros2 SUBROUTINE nl_get_fire_ignition_start_lon2 ( id_id , fire_ignition_start_lon2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lon2 INTEGER id_id fire_ignition_start_lon2 = model_config_rec%fire_ignition_start_lon2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lon2 SUBROUTINE nl_get_fire_ignition_start_lat2 ( id_id , fire_ignition_start_lat2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lat2 INTEGER id_id fire_ignition_start_lat2 = model_config_rec%fire_ignition_start_lat2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lat2 SUBROUTINE nl_get_fire_ignition_end_lon2 ( id_id , fire_ignition_end_lon2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lon2 INTEGER id_id fire_ignition_end_lon2 = model_config_rec%fire_ignition_end_lon2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lon2 SUBROUTINE nl_get_fire_ignition_end_lat2 ( id_id , fire_ignition_end_lat2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lat2 INTEGER id_id fire_ignition_end_lat2 = model_config_rec%fire_ignition_end_lat2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lat2 SUBROUTINE nl_get_fire_ignition_radius2 ( id_id , fire_ignition_radius2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_radius2 INTEGER id_id fire_ignition_radius2 = model_config_rec%fire_ignition_radius2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_radius2 SUBROUTINE nl_get_fire_ignition_start_time2 ( id_id , fire_ignition_start_time2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_time2 INTEGER id_id fire_ignition_start_time2 = model_config_rec%fire_ignition_start_time2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_time2 SUBROUTINE nl_get_fire_ignition_end_time2 ( id_id , fire_ignition_end_time2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_time2 INTEGER id_id fire_ignition_end_time2 = model_config_rec%fire_ignition_end_time2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_time2 SUBROUTINE nl_get_fire_ignition_ros3 ( id_id , fire_ignition_ros3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_ros3 INTEGER id_id fire_ignition_ros3 = model_config_rec%fire_ignition_ros3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_ros3 SUBROUTINE nl_get_fire_ignition_start_lon3 ( id_id , fire_ignition_start_lon3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lon3 INTEGER id_id fire_ignition_start_lon3 = model_config_rec%fire_ignition_start_lon3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lon3 SUBROUTINE nl_get_fire_ignition_start_lat3 ( id_id , fire_ignition_start_lat3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lat3 INTEGER id_id fire_ignition_start_lat3 = model_config_rec%fire_ignition_start_lat3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lat3 SUBROUTINE nl_get_fire_ignition_end_lon3 ( id_id , fire_ignition_end_lon3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lon3 INTEGER id_id fire_ignition_end_lon3 = model_config_rec%fire_ignition_end_lon3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lon3 SUBROUTINE nl_get_fire_ignition_end_lat3 ( id_id , fire_ignition_end_lat3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lat3 INTEGER id_id fire_ignition_end_lat3 = model_config_rec%fire_ignition_end_lat3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lat3 SUBROUTINE nl_get_fire_ignition_radius3 ( id_id , fire_ignition_radius3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_radius3 INTEGER id_id fire_ignition_radius3 = model_config_rec%fire_ignition_radius3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_radius3 SUBROUTINE nl_get_fire_ignition_start_time3 ( id_id , fire_ignition_start_time3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_time3 INTEGER id_id fire_ignition_start_time3 = model_config_rec%fire_ignition_start_time3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_time3 SUBROUTINE nl_get_fire_ignition_end_time3 ( id_id , fire_ignition_end_time3 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_time3 INTEGER id_id fire_ignition_end_time3 = model_config_rec%fire_ignition_end_time3(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_time3 SUBROUTINE nl_get_fire_ignition_ros4 ( id_id , fire_ignition_ros4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_ros4 INTEGER id_id fire_ignition_ros4 = model_config_rec%fire_ignition_ros4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_ros4 SUBROUTINE nl_get_fire_ignition_start_lon4 ( id_id , fire_ignition_start_lon4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lon4 INTEGER id_id fire_ignition_start_lon4 = model_config_rec%fire_ignition_start_lon4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lon4 SUBROUTINE nl_get_fire_ignition_start_lat4 ( id_id , fire_ignition_start_lat4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lat4 INTEGER id_id fire_ignition_start_lat4 = model_config_rec%fire_ignition_start_lat4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lat4 SUBROUTINE nl_get_fire_ignition_end_lon4 ( id_id , fire_ignition_end_lon4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lon4 INTEGER id_id fire_ignition_end_lon4 = model_config_rec%fire_ignition_end_lon4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lon4 SUBROUTINE nl_get_fire_ignition_end_lat4 ( id_id , fire_ignition_end_lat4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lat4 INTEGER id_id fire_ignition_end_lat4 = model_config_rec%fire_ignition_end_lat4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lat4 SUBROUTINE nl_get_fire_ignition_radius4 ( id_id , fire_ignition_radius4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_radius4 INTEGER id_id fire_ignition_radius4 = model_config_rec%fire_ignition_radius4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_radius4 SUBROUTINE nl_get_fire_ignition_start_time4 ( id_id , fire_ignition_start_time4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_time4 INTEGER id_id fire_ignition_start_time4 = model_config_rec%fire_ignition_start_time4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_time4 SUBROUTINE nl_get_fire_ignition_end_time4 ( id_id , fire_ignition_end_time4 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_time4 INTEGER id_id fire_ignition_end_time4 = model_config_rec%fire_ignition_end_time4(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_time4 SUBROUTINE nl_get_fire_ignition_ros5 ( id_id , fire_ignition_ros5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_ros5 INTEGER id_id fire_ignition_ros5 = model_config_rec%fire_ignition_ros5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_ros5 SUBROUTINE nl_get_fire_ignition_start_lon5 ( id_id , fire_ignition_start_lon5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lon5 INTEGER id_id fire_ignition_start_lon5 = model_config_rec%fire_ignition_start_lon5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lon5 SUBROUTINE nl_get_fire_ignition_start_lat5 ( id_id , fire_ignition_start_lat5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_lat5 INTEGER id_id fire_ignition_start_lat5 = model_config_rec%fire_ignition_start_lat5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_lat5 SUBROUTINE nl_get_fire_ignition_end_lon5 ( id_id , fire_ignition_end_lon5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lon5 INTEGER id_id fire_ignition_end_lon5 = model_config_rec%fire_ignition_end_lon5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lon5 SUBROUTINE nl_get_fire_ignition_end_lat5 ( id_id , fire_ignition_end_lat5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_lat5 INTEGER id_id fire_ignition_end_lat5 = model_config_rec%fire_ignition_end_lat5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_lat5 SUBROUTINE nl_get_fire_ignition_radius5 ( id_id , fire_ignition_radius5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_radius5 INTEGER id_id fire_ignition_radius5 = model_config_rec%fire_ignition_radius5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_radius5 SUBROUTINE nl_get_fire_ignition_start_time5 ( id_id , fire_ignition_start_time5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_time5 INTEGER id_id fire_ignition_start_time5 = model_config_rec%fire_ignition_start_time5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_time5 SUBROUTINE nl_get_fire_ignition_end_time5 ( id_id , fire_ignition_end_time5 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_time5 INTEGER id_id fire_ignition_end_time5 = model_config_rec%fire_ignition_end_time5(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_time5 SUBROUTINE nl_get_fire_ignition_start_x1 ( id_id , fire_ignition_start_x1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_x1 INTEGER id_id fire_ignition_start_x1 = model_config_rec%fire_ignition_start_x1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_x1 SUBROUTINE nl_get_fire_ignition_start_y1 ( id_id , fire_ignition_start_y1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_y1 INTEGER id_id fire_ignition_start_y1 = model_config_rec%fire_ignition_start_y1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_y1 SUBROUTINE nl_get_fire_ignition_end_x1 ( id_id , fire_ignition_end_x1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_x1 INTEGER id_id fire_ignition_end_x1 = model_config_rec%fire_ignition_end_x1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_x1 SUBROUTINE nl_get_fire_ignition_end_y1 ( id_id , fire_ignition_end_y1 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_y1 INTEGER id_id fire_ignition_end_y1 = model_config_rec%fire_ignition_end_y1(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_y1 SUBROUTINE nl_get_fire_ignition_start_x2 ( id_id , fire_ignition_start_x2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_x2 INTEGER id_id fire_ignition_start_x2 = model_config_rec%fire_ignition_start_x2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_x2 SUBROUTINE nl_get_fire_ignition_start_y2 ( id_id , fire_ignition_start_y2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_start_y2 INTEGER id_id fire_ignition_start_y2 = model_config_rec%fire_ignition_start_y2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_start_y2 SUBROUTINE nl_get_fire_ignition_end_x2 ( id_id , fire_ignition_end_x2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_x2 INTEGER id_id fire_ignition_end_x2 = model_config_rec%fire_ignition_end_x2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_x2 SUBROUTINE nl_get_fire_ignition_end_y2 ( id_id , fire_ignition_end_y2 ) USE module_configure, ONLY : model_config_rec real , INTENT(OUT) :: fire_ignition_end_y2 INTEGER id_id fire_ignition_end_y2 = model_config_rec%fire_ignition_end_y2(id_id) RETURN END SUBROUTINE nl_get_fire_ignition_end_y2 !ENDOFREGISTRYGENERATEDINCLUDE