!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_set_auxhist4_interval ( id_id , auxhist4_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_interval INTEGER id_id model_config_rec%auxhist4_interval(id_id) = auxhist4_interval RETURN END SUBROUTINE nl_set_auxhist4_interval SUBROUTINE nl_set_auxhist4_begin_y ( id_id , auxhist4_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin_y INTEGER id_id model_config_rec%auxhist4_begin_y(id_id) = auxhist4_begin_y RETURN END SUBROUTINE nl_set_auxhist4_begin_y SUBROUTINE nl_set_auxhist4_begin_d ( id_id , auxhist4_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin_d INTEGER id_id model_config_rec%auxhist4_begin_d(id_id) = auxhist4_begin_d RETURN END SUBROUTINE nl_set_auxhist4_begin_d SUBROUTINE nl_set_auxhist4_begin_h ( id_id , auxhist4_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin_h INTEGER id_id model_config_rec%auxhist4_begin_h(id_id) = auxhist4_begin_h RETURN END SUBROUTINE nl_set_auxhist4_begin_h SUBROUTINE nl_set_auxhist4_begin_m ( id_id , auxhist4_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin_m INTEGER id_id model_config_rec%auxhist4_begin_m(id_id) = auxhist4_begin_m RETURN END SUBROUTINE nl_set_auxhist4_begin_m SUBROUTINE nl_set_auxhist4_begin_s ( id_id , auxhist4_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin_s INTEGER id_id model_config_rec%auxhist4_begin_s(id_id) = auxhist4_begin_s RETURN END SUBROUTINE nl_set_auxhist4_begin_s SUBROUTINE nl_set_auxhist4_begin ( id_id , auxhist4_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_begin INTEGER id_id model_config_rec%auxhist4_begin(id_id) = auxhist4_begin RETURN END SUBROUTINE nl_set_auxhist4_begin SUBROUTINE nl_set_auxhist4_end_y ( id_id , auxhist4_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end_y INTEGER id_id model_config_rec%auxhist4_end_y(id_id) = auxhist4_end_y RETURN END SUBROUTINE nl_set_auxhist4_end_y SUBROUTINE nl_set_auxhist4_end_d ( id_id , auxhist4_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end_d INTEGER id_id model_config_rec%auxhist4_end_d(id_id) = auxhist4_end_d RETURN END SUBROUTINE nl_set_auxhist4_end_d SUBROUTINE nl_set_auxhist4_end_h ( id_id , auxhist4_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end_h INTEGER id_id model_config_rec%auxhist4_end_h(id_id) = auxhist4_end_h RETURN END SUBROUTINE nl_set_auxhist4_end_h SUBROUTINE nl_set_auxhist4_end_m ( id_id , auxhist4_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end_m INTEGER id_id model_config_rec%auxhist4_end_m(id_id) = auxhist4_end_m RETURN END SUBROUTINE nl_set_auxhist4_end_m SUBROUTINE nl_set_auxhist4_end_s ( id_id , auxhist4_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end_s INTEGER id_id model_config_rec%auxhist4_end_s(id_id) = auxhist4_end_s RETURN END SUBROUTINE nl_set_auxhist4_end_s SUBROUTINE nl_set_auxhist4_end ( id_id , auxhist4_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist4_end INTEGER id_id model_config_rec%auxhist4_end(id_id) = auxhist4_end RETURN END SUBROUTINE nl_set_auxhist4_end SUBROUTINE nl_set_io_form_auxhist4 ( id_id , io_form_auxhist4 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist4 INTEGER id_id model_config_rec%io_form_auxhist4 = io_form_auxhist4 RETURN END SUBROUTINE nl_set_io_form_auxhist4 SUBROUTINE nl_set_frames_per_auxhist4 ( id_id , frames_per_auxhist4 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist4 INTEGER id_id model_config_rec%frames_per_auxhist4(id_id) = frames_per_auxhist4 RETURN END SUBROUTINE nl_set_frames_per_auxhist4 SUBROUTINE nl_set_auxhist5_inname ( id_id , auxhist5_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist5_inname INTEGER id_id model_config_rec%auxhist5_inname = trim(auxhist5_inname) RETURN END SUBROUTINE nl_set_auxhist5_inname SUBROUTINE nl_set_auxhist5_outname ( id_id , auxhist5_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist5_outname INTEGER id_id model_config_rec%auxhist5_outname = trim(auxhist5_outname) RETURN END SUBROUTINE nl_set_auxhist5_outname SUBROUTINE nl_set_auxhist5_interval_y ( id_id , auxhist5_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval_y INTEGER id_id model_config_rec%auxhist5_interval_y(id_id) = auxhist5_interval_y RETURN END SUBROUTINE nl_set_auxhist5_interval_y SUBROUTINE nl_set_auxhist5_interval_d ( id_id , auxhist5_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval_d INTEGER id_id model_config_rec%auxhist5_interval_d(id_id) = auxhist5_interval_d RETURN END SUBROUTINE nl_set_auxhist5_interval_d SUBROUTINE nl_set_auxhist5_interval_h ( id_id , auxhist5_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval_h INTEGER id_id model_config_rec%auxhist5_interval_h(id_id) = auxhist5_interval_h RETURN END SUBROUTINE nl_set_auxhist5_interval_h SUBROUTINE nl_set_auxhist5_interval_m ( id_id , auxhist5_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval_m INTEGER id_id model_config_rec%auxhist5_interval_m(id_id) = auxhist5_interval_m RETURN END SUBROUTINE nl_set_auxhist5_interval_m SUBROUTINE nl_set_auxhist5_interval_s ( id_id , auxhist5_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval_s INTEGER id_id model_config_rec%auxhist5_interval_s(id_id) = auxhist5_interval_s RETURN END SUBROUTINE nl_set_auxhist5_interval_s SUBROUTINE nl_set_auxhist5_interval ( id_id , auxhist5_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_interval INTEGER id_id model_config_rec%auxhist5_interval(id_id) = auxhist5_interval RETURN END SUBROUTINE nl_set_auxhist5_interval SUBROUTINE nl_set_auxhist5_begin_y ( id_id , auxhist5_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin_y INTEGER id_id model_config_rec%auxhist5_begin_y(id_id) = auxhist5_begin_y RETURN END SUBROUTINE nl_set_auxhist5_begin_y SUBROUTINE nl_set_auxhist5_begin_d ( id_id , auxhist5_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin_d INTEGER id_id model_config_rec%auxhist5_begin_d(id_id) = auxhist5_begin_d RETURN END SUBROUTINE nl_set_auxhist5_begin_d SUBROUTINE nl_set_auxhist5_begin_h ( id_id , auxhist5_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin_h INTEGER id_id model_config_rec%auxhist5_begin_h(id_id) = auxhist5_begin_h RETURN END SUBROUTINE nl_set_auxhist5_begin_h SUBROUTINE nl_set_auxhist5_begin_m ( id_id , auxhist5_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin_m INTEGER id_id model_config_rec%auxhist5_begin_m(id_id) = auxhist5_begin_m RETURN END SUBROUTINE nl_set_auxhist5_begin_m SUBROUTINE nl_set_auxhist5_begin_s ( id_id , auxhist5_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin_s INTEGER id_id model_config_rec%auxhist5_begin_s(id_id) = auxhist5_begin_s RETURN END SUBROUTINE nl_set_auxhist5_begin_s SUBROUTINE nl_set_auxhist5_begin ( id_id , auxhist5_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_begin INTEGER id_id model_config_rec%auxhist5_begin(id_id) = auxhist5_begin RETURN END SUBROUTINE nl_set_auxhist5_begin SUBROUTINE nl_set_auxhist5_end_y ( id_id , auxhist5_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end_y INTEGER id_id model_config_rec%auxhist5_end_y(id_id) = auxhist5_end_y RETURN END SUBROUTINE nl_set_auxhist5_end_y SUBROUTINE nl_set_auxhist5_end_d ( id_id , auxhist5_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end_d INTEGER id_id model_config_rec%auxhist5_end_d(id_id) = auxhist5_end_d RETURN END SUBROUTINE nl_set_auxhist5_end_d SUBROUTINE nl_set_auxhist5_end_h ( id_id , auxhist5_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end_h INTEGER id_id model_config_rec%auxhist5_end_h(id_id) = auxhist5_end_h RETURN END SUBROUTINE nl_set_auxhist5_end_h SUBROUTINE nl_set_auxhist5_end_m ( id_id , auxhist5_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end_m INTEGER id_id model_config_rec%auxhist5_end_m(id_id) = auxhist5_end_m RETURN END SUBROUTINE nl_set_auxhist5_end_m SUBROUTINE nl_set_auxhist5_end_s ( id_id , auxhist5_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end_s INTEGER id_id model_config_rec%auxhist5_end_s(id_id) = auxhist5_end_s RETURN END SUBROUTINE nl_set_auxhist5_end_s SUBROUTINE nl_set_auxhist5_end ( id_id , auxhist5_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist5_end INTEGER id_id model_config_rec%auxhist5_end(id_id) = auxhist5_end RETURN END SUBROUTINE nl_set_auxhist5_end SUBROUTINE nl_set_io_form_auxhist5 ( id_id , io_form_auxhist5 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist5 INTEGER id_id model_config_rec%io_form_auxhist5 = io_form_auxhist5 RETURN END SUBROUTINE nl_set_io_form_auxhist5 SUBROUTINE nl_set_frames_per_auxhist5 ( id_id , frames_per_auxhist5 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist5 INTEGER id_id model_config_rec%frames_per_auxhist5(id_id) = frames_per_auxhist5 RETURN END SUBROUTINE nl_set_frames_per_auxhist5 SUBROUTINE nl_set_auxhist6_inname ( id_id , auxhist6_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist6_inname INTEGER id_id model_config_rec%auxhist6_inname = trim(auxhist6_inname) RETURN END SUBROUTINE nl_set_auxhist6_inname SUBROUTINE nl_set_auxhist6_outname ( id_id , auxhist6_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist6_outname INTEGER id_id model_config_rec%auxhist6_outname = trim(auxhist6_outname) RETURN END SUBROUTINE nl_set_auxhist6_outname SUBROUTINE nl_set_auxhist6_interval_y ( id_id , auxhist6_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval_y INTEGER id_id model_config_rec%auxhist6_interval_y(id_id) = auxhist6_interval_y RETURN END SUBROUTINE nl_set_auxhist6_interval_y SUBROUTINE nl_set_auxhist6_interval_d ( id_id , auxhist6_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval_d INTEGER id_id model_config_rec%auxhist6_interval_d(id_id) = auxhist6_interval_d RETURN END SUBROUTINE nl_set_auxhist6_interval_d SUBROUTINE nl_set_auxhist6_interval_h ( id_id , auxhist6_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval_h INTEGER id_id model_config_rec%auxhist6_interval_h(id_id) = auxhist6_interval_h RETURN END SUBROUTINE nl_set_auxhist6_interval_h SUBROUTINE nl_set_auxhist6_interval_m ( id_id , auxhist6_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval_m INTEGER id_id model_config_rec%auxhist6_interval_m(id_id) = auxhist6_interval_m RETURN END SUBROUTINE nl_set_auxhist6_interval_m SUBROUTINE nl_set_auxhist6_interval_s ( id_id , auxhist6_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval_s INTEGER id_id model_config_rec%auxhist6_interval_s(id_id) = auxhist6_interval_s RETURN END SUBROUTINE nl_set_auxhist6_interval_s SUBROUTINE nl_set_auxhist6_interval ( id_id , auxhist6_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_interval INTEGER id_id model_config_rec%auxhist6_interval(id_id) = auxhist6_interval RETURN END SUBROUTINE nl_set_auxhist6_interval SUBROUTINE nl_set_auxhist6_begin_y ( id_id , auxhist6_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin_y INTEGER id_id model_config_rec%auxhist6_begin_y(id_id) = auxhist6_begin_y RETURN END SUBROUTINE nl_set_auxhist6_begin_y SUBROUTINE nl_set_auxhist6_begin_d ( id_id , auxhist6_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin_d INTEGER id_id model_config_rec%auxhist6_begin_d(id_id) = auxhist6_begin_d RETURN END SUBROUTINE nl_set_auxhist6_begin_d SUBROUTINE nl_set_auxhist6_begin_h ( id_id , auxhist6_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin_h INTEGER id_id model_config_rec%auxhist6_begin_h(id_id) = auxhist6_begin_h RETURN END SUBROUTINE nl_set_auxhist6_begin_h SUBROUTINE nl_set_auxhist6_begin_m ( id_id , auxhist6_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin_m INTEGER id_id model_config_rec%auxhist6_begin_m(id_id) = auxhist6_begin_m RETURN END SUBROUTINE nl_set_auxhist6_begin_m SUBROUTINE nl_set_auxhist6_begin_s ( id_id , auxhist6_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin_s INTEGER id_id model_config_rec%auxhist6_begin_s(id_id) = auxhist6_begin_s RETURN END SUBROUTINE nl_set_auxhist6_begin_s SUBROUTINE nl_set_auxhist6_begin ( id_id , auxhist6_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_begin INTEGER id_id model_config_rec%auxhist6_begin(id_id) = auxhist6_begin RETURN END SUBROUTINE nl_set_auxhist6_begin SUBROUTINE nl_set_auxhist6_end_y ( id_id , auxhist6_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end_y INTEGER id_id model_config_rec%auxhist6_end_y(id_id) = auxhist6_end_y RETURN END SUBROUTINE nl_set_auxhist6_end_y SUBROUTINE nl_set_auxhist6_end_d ( id_id , auxhist6_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end_d INTEGER id_id model_config_rec%auxhist6_end_d(id_id) = auxhist6_end_d RETURN END SUBROUTINE nl_set_auxhist6_end_d SUBROUTINE nl_set_auxhist6_end_h ( id_id , auxhist6_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end_h INTEGER id_id model_config_rec%auxhist6_end_h(id_id) = auxhist6_end_h RETURN END SUBROUTINE nl_set_auxhist6_end_h SUBROUTINE nl_set_auxhist6_end_m ( id_id , auxhist6_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end_m INTEGER id_id model_config_rec%auxhist6_end_m(id_id) = auxhist6_end_m RETURN END SUBROUTINE nl_set_auxhist6_end_m SUBROUTINE nl_set_auxhist6_end_s ( id_id , auxhist6_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end_s INTEGER id_id model_config_rec%auxhist6_end_s(id_id) = auxhist6_end_s RETURN END SUBROUTINE nl_set_auxhist6_end_s SUBROUTINE nl_set_auxhist6_end ( id_id , auxhist6_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist6_end INTEGER id_id model_config_rec%auxhist6_end(id_id) = auxhist6_end RETURN END SUBROUTINE nl_set_auxhist6_end SUBROUTINE nl_set_io_form_auxhist6 ( id_id , io_form_auxhist6 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist6 INTEGER id_id model_config_rec%io_form_auxhist6 = io_form_auxhist6 RETURN END SUBROUTINE nl_set_io_form_auxhist6 SUBROUTINE nl_set_frames_per_auxhist6 ( id_id , frames_per_auxhist6 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist6 INTEGER id_id model_config_rec%frames_per_auxhist6(id_id) = frames_per_auxhist6 RETURN END SUBROUTINE nl_set_frames_per_auxhist6 SUBROUTINE nl_set_auxhist7_inname ( id_id , auxhist7_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist7_inname INTEGER id_id model_config_rec%auxhist7_inname = trim(auxhist7_inname) RETURN END SUBROUTINE nl_set_auxhist7_inname SUBROUTINE nl_set_auxhist7_outname ( id_id , auxhist7_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist7_outname INTEGER id_id model_config_rec%auxhist7_outname = trim(auxhist7_outname) RETURN END SUBROUTINE nl_set_auxhist7_outname SUBROUTINE nl_set_auxhist7_interval_y ( id_id , auxhist7_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval_y INTEGER id_id model_config_rec%auxhist7_interval_y(id_id) = auxhist7_interval_y RETURN END SUBROUTINE nl_set_auxhist7_interval_y SUBROUTINE nl_set_auxhist7_interval_d ( id_id , auxhist7_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval_d INTEGER id_id model_config_rec%auxhist7_interval_d(id_id) = auxhist7_interval_d RETURN END SUBROUTINE nl_set_auxhist7_interval_d SUBROUTINE nl_set_auxhist7_interval_h ( id_id , auxhist7_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval_h INTEGER id_id model_config_rec%auxhist7_interval_h(id_id) = auxhist7_interval_h RETURN END SUBROUTINE nl_set_auxhist7_interval_h SUBROUTINE nl_set_auxhist7_interval_m ( id_id , auxhist7_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval_m INTEGER id_id model_config_rec%auxhist7_interval_m(id_id) = auxhist7_interval_m RETURN END SUBROUTINE nl_set_auxhist7_interval_m SUBROUTINE nl_set_auxhist7_interval_s ( id_id , auxhist7_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval_s INTEGER id_id model_config_rec%auxhist7_interval_s(id_id) = auxhist7_interval_s RETURN END SUBROUTINE nl_set_auxhist7_interval_s SUBROUTINE nl_set_auxhist7_interval ( id_id , auxhist7_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_interval INTEGER id_id model_config_rec%auxhist7_interval(id_id) = auxhist7_interval RETURN END SUBROUTINE nl_set_auxhist7_interval SUBROUTINE nl_set_auxhist7_begin_y ( id_id , auxhist7_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin_y INTEGER id_id model_config_rec%auxhist7_begin_y(id_id) = auxhist7_begin_y RETURN END SUBROUTINE nl_set_auxhist7_begin_y SUBROUTINE nl_set_auxhist7_begin_d ( id_id , auxhist7_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin_d INTEGER id_id model_config_rec%auxhist7_begin_d(id_id) = auxhist7_begin_d RETURN END SUBROUTINE nl_set_auxhist7_begin_d SUBROUTINE nl_set_auxhist7_begin_h ( id_id , auxhist7_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin_h INTEGER id_id model_config_rec%auxhist7_begin_h(id_id) = auxhist7_begin_h RETURN END SUBROUTINE nl_set_auxhist7_begin_h SUBROUTINE nl_set_auxhist7_begin_m ( id_id , auxhist7_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin_m INTEGER id_id model_config_rec%auxhist7_begin_m(id_id) = auxhist7_begin_m RETURN END SUBROUTINE nl_set_auxhist7_begin_m SUBROUTINE nl_set_auxhist7_begin_s ( id_id , auxhist7_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin_s INTEGER id_id model_config_rec%auxhist7_begin_s(id_id) = auxhist7_begin_s RETURN END SUBROUTINE nl_set_auxhist7_begin_s SUBROUTINE nl_set_auxhist7_begin ( id_id , auxhist7_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_begin INTEGER id_id model_config_rec%auxhist7_begin(id_id) = auxhist7_begin RETURN END SUBROUTINE nl_set_auxhist7_begin SUBROUTINE nl_set_auxhist7_end_y ( id_id , auxhist7_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end_y INTEGER id_id model_config_rec%auxhist7_end_y(id_id) = auxhist7_end_y RETURN END SUBROUTINE nl_set_auxhist7_end_y SUBROUTINE nl_set_auxhist7_end_d ( id_id , auxhist7_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end_d INTEGER id_id model_config_rec%auxhist7_end_d(id_id) = auxhist7_end_d RETURN END SUBROUTINE nl_set_auxhist7_end_d SUBROUTINE nl_set_auxhist7_end_h ( id_id , auxhist7_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end_h INTEGER id_id model_config_rec%auxhist7_end_h(id_id) = auxhist7_end_h RETURN END SUBROUTINE nl_set_auxhist7_end_h SUBROUTINE nl_set_auxhist7_end_m ( id_id , auxhist7_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end_m INTEGER id_id model_config_rec%auxhist7_end_m(id_id) = auxhist7_end_m RETURN END SUBROUTINE nl_set_auxhist7_end_m SUBROUTINE nl_set_auxhist7_end_s ( id_id , auxhist7_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end_s INTEGER id_id model_config_rec%auxhist7_end_s(id_id) = auxhist7_end_s RETURN END SUBROUTINE nl_set_auxhist7_end_s SUBROUTINE nl_set_auxhist7_end ( id_id , auxhist7_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist7_end INTEGER id_id model_config_rec%auxhist7_end(id_id) = auxhist7_end RETURN END SUBROUTINE nl_set_auxhist7_end SUBROUTINE nl_set_io_form_auxhist7 ( id_id , io_form_auxhist7 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist7 INTEGER id_id model_config_rec%io_form_auxhist7 = io_form_auxhist7 RETURN END SUBROUTINE nl_set_io_form_auxhist7 SUBROUTINE nl_set_frames_per_auxhist7 ( id_id , frames_per_auxhist7 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist7 INTEGER id_id model_config_rec%frames_per_auxhist7(id_id) = frames_per_auxhist7 RETURN END SUBROUTINE nl_set_frames_per_auxhist7 SUBROUTINE nl_set_auxhist8_inname ( id_id , auxhist8_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist8_inname INTEGER id_id model_config_rec%auxhist8_inname = trim(auxhist8_inname) RETURN END SUBROUTINE nl_set_auxhist8_inname SUBROUTINE nl_set_auxhist8_outname ( id_id , auxhist8_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist8_outname INTEGER id_id model_config_rec%auxhist8_outname = trim(auxhist8_outname) RETURN END SUBROUTINE nl_set_auxhist8_outname SUBROUTINE nl_set_auxhist8_interval_y ( id_id , auxhist8_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval_y INTEGER id_id model_config_rec%auxhist8_interval_y(id_id) = auxhist8_interval_y RETURN END SUBROUTINE nl_set_auxhist8_interval_y SUBROUTINE nl_set_auxhist8_interval_d ( id_id , auxhist8_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval_d INTEGER id_id model_config_rec%auxhist8_interval_d(id_id) = auxhist8_interval_d RETURN END SUBROUTINE nl_set_auxhist8_interval_d SUBROUTINE nl_set_auxhist8_interval_h ( id_id , auxhist8_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval_h INTEGER id_id model_config_rec%auxhist8_interval_h(id_id) = auxhist8_interval_h RETURN END SUBROUTINE nl_set_auxhist8_interval_h SUBROUTINE nl_set_auxhist8_interval_m ( id_id , auxhist8_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval_m INTEGER id_id model_config_rec%auxhist8_interval_m(id_id) = auxhist8_interval_m RETURN END SUBROUTINE nl_set_auxhist8_interval_m SUBROUTINE nl_set_auxhist8_interval_s ( id_id , auxhist8_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval_s INTEGER id_id model_config_rec%auxhist8_interval_s(id_id) = auxhist8_interval_s RETURN END SUBROUTINE nl_set_auxhist8_interval_s SUBROUTINE nl_set_auxhist8_interval ( id_id , auxhist8_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_interval INTEGER id_id model_config_rec%auxhist8_interval(id_id) = auxhist8_interval RETURN END SUBROUTINE nl_set_auxhist8_interval SUBROUTINE nl_set_auxhist8_begin_y ( id_id , auxhist8_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin_y INTEGER id_id model_config_rec%auxhist8_begin_y(id_id) = auxhist8_begin_y RETURN END SUBROUTINE nl_set_auxhist8_begin_y SUBROUTINE nl_set_auxhist8_begin_d ( id_id , auxhist8_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin_d INTEGER id_id model_config_rec%auxhist8_begin_d(id_id) = auxhist8_begin_d RETURN END SUBROUTINE nl_set_auxhist8_begin_d SUBROUTINE nl_set_auxhist8_begin_h ( id_id , auxhist8_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin_h INTEGER id_id model_config_rec%auxhist8_begin_h(id_id) = auxhist8_begin_h RETURN END SUBROUTINE nl_set_auxhist8_begin_h SUBROUTINE nl_set_auxhist8_begin_m ( id_id , auxhist8_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin_m INTEGER id_id model_config_rec%auxhist8_begin_m(id_id) = auxhist8_begin_m RETURN END SUBROUTINE nl_set_auxhist8_begin_m SUBROUTINE nl_set_auxhist8_begin_s ( id_id , auxhist8_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin_s INTEGER id_id model_config_rec%auxhist8_begin_s(id_id) = auxhist8_begin_s RETURN END SUBROUTINE nl_set_auxhist8_begin_s SUBROUTINE nl_set_auxhist8_begin ( id_id , auxhist8_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_begin INTEGER id_id model_config_rec%auxhist8_begin(id_id) = auxhist8_begin RETURN END SUBROUTINE nl_set_auxhist8_begin SUBROUTINE nl_set_auxhist8_end_y ( id_id , auxhist8_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end_y INTEGER id_id model_config_rec%auxhist8_end_y(id_id) = auxhist8_end_y RETURN END SUBROUTINE nl_set_auxhist8_end_y SUBROUTINE nl_set_auxhist8_end_d ( id_id , auxhist8_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end_d INTEGER id_id model_config_rec%auxhist8_end_d(id_id) = auxhist8_end_d RETURN END SUBROUTINE nl_set_auxhist8_end_d SUBROUTINE nl_set_auxhist8_end_h ( id_id , auxhist8_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end_h INTEGER id_id model_config_rec%auxhist8_end_h(id_id) = auxhist8_end_h RETURN END SUBROUTINE nl_set_auxhist8_end_h SUBROUTINE nl_set_auxhist8_end_m ( id_id , auxhist8_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end_m INTEGER id_id model_config_rec%auxhist8_end_m(id_id) = auxhist8_end_m RETURN END SUBROUTINE nl_set_auxhist8_end_m SUBROUTINE nl_set_auxhist8_end_s ( id_id , auxhist8_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end_s INTEGER id_id model_config_rec%auxhist8_end_s(id_id) = auxhist8_end_s RETURN END SUBROUTINE nl_set_auxhist8_end_s SUBROUTINE nl_set_auxhist8_end ( id_id , auxhist8_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist8_end INTEGER id_id model_config_rec%auxhist8_end(id_id) = auxhist8_end RETURN END SUBROUTINE nl_set_auxhist8_end SUBROUTINE nl_set_io_form_auxhist8 ( id_id , io_form_auxhist8 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist8 INTEGER id_id model_config_rec%io_form_auxhist8 = io_form_auxhist8 RETURN END SUBROUTINE nl_set_io_form_auxhist8 SUBROUTINE nl_set_frames_per_auxhist8 ( id_id , frames_per_auxhist8 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist8 INTEGER id_id model_config_rec%frames_per_auxhist8(id_id) = frames_per_auxhist8 RETURN END SUBROUTINE nl_set_frames_per_auxhist8 SUBROUTINE nl_set_auxhist9_inname ( id_id , auxhist9_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist9_inname INTEGER id_id model_config_rec%auxhist9_inname = trim(auxhist9_inname) RETURN END SUBROUTINE nl_set_auxhist9_inname SUBROUTINE nl_set_auxhist9_outname ( id_id , auxhist9_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist9_outname INTEGER id_id model_config_rec%auxhist9_outname = trim(auxhist9_outname) RETURN END SUBROUTINE nl_set_auxhist9_outname SUBROUTINE nl_set_auxhist9_interval_y ( id_id , auxhist9_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval_y INTEGER id_id model_config_rec%auxhist9_interval_y(id_id) = auxhist9_interval_y RETURN END SUBROUTINE nl_set_auxhist9_interval_y SUBROUTINE nl_set_auxhist9_interval_d ( id_id , auxhist9_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval_d INTEGER id_id model_config_rec%auxhist9_interval_d(id_id) = auxhist9_interval_d RETURN END SUBROUTINE nl_set_auxhist9_interval_d SUBROUTINE nl_set_auxhist9_interval_h ( id_id , auxhist9_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval_h INTEGER id_id model_config_rec%auxhist9_interval_h(id_id) = auxhist9_interval_h RETURN END SUBROUTINE nl_set_auxhist9_interval_h SUBROUTINE nl_set_auxhist9_interval_m ( id_id , auxhist9_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval_m INTEGER id_id model_config_rec%auxhist9_interval_m(id_id) = auxhist9_interval_m RETURN END SUBROUTINE nl_set_auxhist9_interval_m SUBROUTINE nl_set_auxhist9_interval_s ( id_id , auxhist9_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval_s INTEGER id_id model_config_rec%auxhist9_interval_s(id_id) = auxhist9_interval_s RETURN END SUBROUTINE nl_set_auxhist9_interval_s SUBROUTINE nl_set_auxhist9_interval ( id_id , auxhist9_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_interval INTEGER id_id model_config_rec%auxhist9_interval(id_id) = auxhist9_interval RETURN END SUBROUTINE nl_set_auxhist9_interval SUBROUTINE nl_set_auxhist9_begin_y ( id_id , auxhist9_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin_y INTEGER id_id model_config_rec%auxhist9_begin_y(id_id) = auxhist9_begin_y RETURN END SUBROUTINE nl_set_auxhist9_begin_y SUBROUTINE nl_set_auxhist9_begin_d ( id_id , auxhist9_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin_d INTEGER id_id model_config_rec%auxhist9_begin_d(id_id) = auxhist9_begin_d RETURN END SUBROUTINE nl_set_auxhist9_begin_d SUBROUTINE nl_set_auxhist9_begin_h ( id_id , auxhist9_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin_h INTEGER id_id model_config_rec%auxhist9_begin_h(id_id) = auxhist9_begin_h RETURN END SUBROUTINE nl_set_auxhist9_begin_h SUBROUTINE nl_set_auxhist9_begin_m ( id_id , auxhist9_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin_m INTEGER id_id model_config_rec%auxhist9_begin_m(id_id) = auxhist9_begin_m RETURN END SUBROUTINE nl_set_auxhist9_begin_m SUBROUTINE nl_set_auxhist9_begin_s ( id_id , auxhist9_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin_s INTEGER id_id model_config_rec%auxhist9_begin_s(id_id) = auxhist9_begin_s RETURN END SUBROUTINE nl_set_auxhist9_begin_s SUBROUTINE nl_set_auxhist9_begin ( id_id , auxhist9_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_begin INTEGER id_id model_config_rec%auxhist9_begin(id_id) = auxhist9_begin RETURN END SUBROUTINE nl_set_auxhist9_begin SUBROUTINE nl_set_auxhist9_end_y ( id_id , auxhist9_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end_y INTEGER id_id model_config_rec%auxhist9_end_y(id_id) = auxhist9_end_y RETURN END SUBROUTINE nl_set_auxhist9_end_y SUBROUTINE nl_set_auxhist9_end_d ( id_id , auxhist9_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end_d INTEGER id_id model_config_rec%auxhist9_end_d(id_id) = auxhist9_end_d RETURN END SUBROUTINE nl_set_auxhist9_end_d SUBROUTINE nl_set_auxhist9_end_h ( id_id , auxhist9_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end_h INTEGER id_id model_config_rec%auxhist9_end_h(id_id) = auxhist9_end_h RETURN END SUBROUTINE nl_set_auxhist9_end_h SUBROUTINE nl_set_auxhist9_end_m ( id_id , auxhist9_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end_m INTEGER id_id model_config_rec%auxhist9_end_m(id_id) = auxhist9_end_m RETURN END SUBROUTINE nl_set_auxhist9_end_m SUBROUTINE nl_set_auxhist9_end_s ( id_id , auxhist9_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end_s INTEGER id_id model_config_rec%auxhist9_end_s(id_id) = auxhist9_end_s RETURN END SUBROUTINE nl_set_auxhist9_end_s SUBROUTINE nl_set_auxhist9_end ( id_id , auxhist9_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist9_end INTEGER id_id model_config_rec%auxhist9_end(id_id) = auxhist9_end RETURN END SUBROUTINE nl_set_auxhist9_end SUBROUTINE nl_set_io_form_auxhist9 ( id_id , io_form_auxhist9 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist9 INTEGER id_id model_config_rec%io_form_auxhist9 = io_form_auxhist9 RETURN END SUBROUTINE nl_set_io_form_auxhist9 SUBROUTINE nl_set_frames_per_auxhist9 ( id_id , frames_per_auxhist9 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist9 INTEGER id_id model_config_rec%frames_per_auxhist9(id_id) = frames_per_auxhist9 RETURN END SUBROUTINE nl_set_frames_per_auxhist9 SUBROUTINE nl_set_auxhist10_inname ( id_id , auxhist10_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist10_inname INTEGER id_id model_config_rec%auxhist10_inname = trim(auxhist10_inname) RETURN END SUBROUTINE nl_set_auxhist10_inname SUBROUTINE nl_set_auxhist10_outname ( id_id , auxhist10_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist10_outname INTEGER id_id model_config_rec%auxhist10_outname = trim(auxhist10_outname) RETURN END SUBROUTINE nl_set_auxhist10_outname SUBROUTINE nl_set_auxhist10_interval_y ( id_id , auxhist10_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval_y INTEGER id_id model_config_rec%auxhist10_interval_y(id_id) = auxhist10_interval_y RETURN END SUBROUTINE nl_set_auxhist10_interval_y SUBROUTINE nl_set_auxhist10_interval_d ( id_id , auxhist10_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval_d INTEGER id_id model_config_rec%auxhist10_interval_d(id_id) = auxhist10_interval_d RETURN END SUBROUTINE nl_set_auxhist10_interval_d SUBROUTINE nl_set_auxhist10_interval_h ( id_id , auxhist10_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval_h INTEGER id_id model_config_rec%auxhist10_interval_h(id_id) = auxhist10_interval_h RETURN END SUBROUTINE nl_set_auxhist10_interval_h SUBROUTINE nl_set_auxhist10_interval_m ( id_id , auxhist10_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval_m INTEGER id_id model_config_rec%auxhist10_interval_m(id_id) = auxhist10_interval_m RETURN END SUBROUTINE nl_set_auxhist10_interval_m SUBROUTINE nl_set_auxhist10_interval_s ( id_id , auxhist10_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval_s INTEGER id_id model_config_rec%auxhist10_interval_s(id_id) = auxhist10_interval_s RETURN END SUBROUTINE nl_set_auxhist10_interval_s SUBROUTINE nl_set_auxhist10_interval ( id_id , auxhist10_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_interval INTEGER id_id model_config_rec%auxhist10_interval(id_id) = auxhist10_interval RETURN END SUBROUTINE nl_set_auxhist10_interval SUBROUTINE nl_set_auxhist10_begin_y ( id_id , auxhist10_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin_y INTEGER id_id model_config_rec%auxhist10_begin_y(id_id) = auxhist10_begin_y RETURN END SUBROUTINE nl_set_auxhist10_begin_y SUBROUTINE nl_set_auxhist10_begin_d ( id_id , auxhist10_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin_d INTEGER id_id model_config_rec%auxhist10_begin_d(id_id) = auxhist10_begin_d RETURN END SUBROUTINE nl_set_auxhist10_begin_d SUBROUTINE nl_set_auxhist10_begin_h ( id_id , auxhist10_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin_h INTEGER id_id model_config_rec%auxhist10_begin_h(id_id) = auxhist10_begin_h RETURN END SUBROUTINE nl_set_auxhist10_begin_h SUBROUTINE nl_set_auxhist10_begin_m ( id_id , auxhist10_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin_m INTEGER id_id model_config_rec%auxhist10_begin_m(id_id) = auxhist10_begin_m RETURN END SUBROUTINE nl_set_auxhist10_begin_m SUBROUTINE nl_set_auxhist10_begin_s ( id_id , auxhist10_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin_s INTEGER id_id model_config_rec%auxhist10_begin_s(id_id) = auxhist10_begin_s RETURN END SUBROUTINE nl_set_auxhist10_begin_s SUBROUTINE nl_set_auxhist10_begin ( id_id , auxhist10_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_begin INTEGER id_id model_config_rec%auxhist10_begin(id_id) = auxhist10_begin RETURN END SUBROUTINE nl_set_auxhist10_begin SUBROUTINE nl_set_auxhist10_end_y ( id_id , auxhist10_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end_y INTEGER id_id model_config_rec%auxhist10_end_y(id_id) = auxhist10_end_y RETURN END SUBROUTINE nl_set_auxhist10_end_y SUBROUTINE nl_set_auxhist10_end_d ( id_id , auxhist10_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end_d INTEGER id_id model_config_rec%auxhist10_end_d(id_id) = auxhist10_end_d RETURN END SUBROUTINE nl_set_auxhist10_end_d SUBROUTINE nl_set_auxhist10_end_h ( id_id , auxhist10_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end_h INTEGER id_id model_config_rec%auxhist10_end_h(id_id) = auxhist10_end_h RETURN END SUBROUTINE nl_set_auxhist10_end_h SUBROUTINE nl_set_auxhist10_end_m ( id_id , auxhist10_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end_m INTEGER id_id model_config_rec%auxhist10_end_m(id_id) = auxhist10_end_m RETURN END SUBROUTINE nl_set_auxhist10_end_m SUBROUTINE nl_set_auxhist10_end_s ( id_id , auxhist10_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end_s INTEGER id_id model_config_rec%auxhist10_end_s(id_id) = auxhist10_end_s RETURN END SUBROUTINE nl_set_auxhist10_end_s SUBROUTINE nl_set_auxhist10_end ( id_id , auxhist10_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist10_end INTEGER id_id model_config_rec%auxhist10_end(id_id) = auxhist10_end RETURN END SUBROUTINE nl_set_auxhist10_end SUBROUTINE nl_set_io_form_auxhist10 ( id_id , io_form_auxhist10 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist10 INTEGER id_id model_config_rec%io_form_auxhist10 = io_form_auxhist10 RETURN END SUBROUTINE nl_set_io_form_auxhist10 SUBROUTINE nl_set_frames_per_auxhist10 ( id_id , frames_per_auxhist10 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist10 INTEGER id_id model_config_rec%frames_per_auxhist10(id_id) = frames_per_auxhist10 RETURN END SUBROUTINE nl_set_frames_per_auxhist10 SUBROUTINE nl_set_auxhist11_inname ( id_id , auxhist11_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist11_inname INTEGER id_id model_config_rec%auxhist11_inname = trim(auxhist11_inname) RETURN END SUBROUTINE nl_set_auxhist11_inname SUBROUTINE nl_set_auxhist11_outname ( id_id , auxhist11_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist11_outname INTEGER id_id model_config_rec%auxhist11_outname = trim(auxhist11_outname) RETURN END SUBROUTINE nl_set_auxhist11_outname SUBROUTINE nl_set_auxhist11_interval_y ( id_id , auxhist11_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval_y INTEGER id_id model_config_rec%auxhist11_interval_y(id_id) = auxhist11_interval_y RETURN END SUBROUTINE nl_set_auxhist11_interval_y SUBROUTINE nl_set_auxhist11_interval_d ( id_id , auxhist11_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval_d INTEGER id_id model_config_rec%auxhist11_interval_d(id_id) = auxhist11_interval_d RETURN END SUBROUTINE nl_set_auxhist11_interval_d SUBROUTINE nl_set_auxhist11_interval_h ( id_id , auxhist11_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval_h INTEGER id_id model_config_rec%auxhist11_interval_h(id_id) = auxhist11_interval_h RETURN END SUBROUTINE nl_set_auxhist11_interval_h SUBROUTINE nl_set_auxhist11_interval_m ( id_id , auxhist11_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval_m INTEGER id_id model_config_rec%auxhist11_interval_m(id_id) = auxhist11_interval_m RETURN END SUBROUTINE nl_set_auxhist11_interval_m SUBROUTINE nl_set_auxhist11_interval_s ( id_id , auxhist11_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval_s INTEGER id_id model_config_rec%auxhist11_interval_s(id_id) = auxhist11_interval_s RETURN END SUBROUTINE nl_set_auxhist11_interval_s SUBROUTINE nl_set_auxhist11_interval ( id_id , auxhist11_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_interval INTEGER id_id model_config_rec%auxhist11_interval(id_id) = auxhist11_interval RETURN END SUBROUTINE nl_set_auxhist11_interval SUBROUTINE nl_set_auxhist11_begin_y ( id_id , auxhist11_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin_y INTEGER id_id model_config_rec%auxhist11_begin_y(id_id) = auxhist11_begin_y RETURN END SUBROUTINE nl_set_auxhist11_begin_y SUBROUTINE nl_set_auxhist11_begin_d ( id_id , auxhist11_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin_d INTEGER id_id model_config_rec%auxhist11_begin_d(id_id) = auxhist11_begin_d RETURN END SUBROUTINE nl_set_auxhist11_begin_d SUBROUTINE nl_set_auxhist11_begin_h ( id_id , auxhist11_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin_h INTEGER id_id model_config_rec%auxhist11_begin_h(id_id) = auxhist11_begin_h RETURN END SUBROUTINE nl_set_auxhist11_begin_h SUBROUTINE nl_set_auxhist11_begin_m ( id_id , auxhist11_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin_m INTEGER id_id model_config_rec%auxhist11_begin_m(id_id) = auxhist11_begin_m RETURN END SUBROUTINE nl_set_auxhist11_begin_m SUBROUTINE nl_set_auxhist11_begin_s ( id_id , auxhist11_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin_s INTEGER id_id model_config_rec%auxhist11_begin_s(id_id) = auxhist11_begin_s RETURN END SUBROUTINE nl_set_auxhist11_begin_s SUBROUTINE nl_set_auxhist11_begin ( id_id , auxhist11_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_begin INTEGER id_id model_config_rec%auxhist11_begin(id_id) = auxhist11_begin RETURN END SUBROUTINE nl_set_auxhist11_begin SUBROUTINE nl_set_auxhist11_end_y ( id_id , auxhist11_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end_y INTEGER id_id model_config_rec%auxhist11_end_y(id_id) = auxhist11_end_y RETURN END SUBROUTINE nl_set_auxhist11_end_y SUBROUTINE nl_set_auxhist11_end_d ( id_id , auxhist11_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end_d INTEGER id_id model_config_rec%auxhist11_end_d(id_id) = auxhist11_end_d RETURN END SUBROUTINE nl_set_auxhist11_end_d SUBROUTINE nl_set_auxhist11_end_h ( id_id , auxhist11_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end_h INTEGER id_id model_config_rec%auxhist11_end_h(id_id) = auxhist11_end_h RETURN END SUBROUTINE nl_set_auxhist11_end_h SUBROUTINE nl_set_auxhist11_end_m ( id_id , auxhist11_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end_m INTEGER id_id model_config_rec%auxhist11_end_m(id_id) = auxhist11_end_m RETURN END SUBROUTINE nl_set_auxhist11_end_m SUBROUTINE nl_set_auxhist11_end_s ( id_id , auxhist11_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end_s INTEGER id_id model_config_rec%auxhist11_end_s(id_id) = auxhist11_end_s RETURN END SUBROUTINE nl_set_auxhist11_end_s SUBROUTINE nl_set_auxhist11_end ( id_id , auxhist11_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist11_end INTEGER id_id model_config_rec%auxhist11_end(id_id) = auxhist11_end RETURN END SUBROUTINE nl_set_auxhist11_end SUBROUTINE nl_set_io_form_auxhist11 ( id_id , io_form_auxhist11 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist11 INTEGER id_id model_config_rec%io_form_auxhist11 = io_form_auxhist11 RETURN END SUBROUTINE nl_set_io_form_auxhist11 SUBROUTINE nl_set_frames_per_auxhist11 ( id_id , frames_per_auxhist11 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist11 INTEGER id_id model_config_rec%frames_per_auxhist11(id_id) = frames_per_auxhist11 RETURN END SUBROUTINE nl_set_frames_per_auxhist11 SUBROUTINE nl_set_auxhist12_inname ( id_id , auxhist12_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist12_inname INTEGER id_id model_config_rec%auxhist12_inname = trim(auxhist12_inname) RETURN END SUBROUTINE nl_set_auxhist12_inname SUBROUTINE nl_set_auxhist12_outname ( id_id , auxhist12_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist12_outname INTEGER id_id model_config_rec%auxhist12_outname = trim(auxhist12_outname) RETURN END SUBROUTINE nl_set_auxhist12_outname SUBROUTINE nl_set_auxhist12_interval_y ( id_id , auxhist12_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval_y INTEGER id_id model_config_rec%auxhist12_interval_y(id_id) = auxhist12_interval_y RETURN END SUBROUTINE nl_set_auxhist12_interval_y SUBROUTINE nl_set_auxhist12_interval_d ( id_id , auxhist12_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval_d INTEGER id_id model_config_rec%auxhist12_interval_d(id_id) = auxhist12_interval_d RETURN END SUBROUTINE nl_set_auxhist12_interval_d SUBROUTINE nl_set_auxhist12_interval_h ( id_id , auxhist12_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval_h INTEGER id_id model_config_rec%auxhist12_interval_h(id_id) = auxhist12_interval_h RETURN END SUBROUTINE nl_set_auxhist12_interval_h SUBROUTINE nl_set_auxhist12_interval_m ( id_id , auxhist12_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval_m INTEGER id_id model_config_rec%auxhist12_interval_m(id_id) = auxhist12_interval_m RETURN END SUBROUTINE nl_set_auxhist12_interval_m SUBROUTINE nl_set_auxhist12_interval_s ( id_id , auxhist12_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval_s INTEGER id_id model_config_rec%auxhist12_interval_s(id_id) = auxhist12_interval_s RETURN END SUBROUTINE nl_set_auxhist12_interval_s SUBROUTINE nl_set_auxhist12_interval ( id_id , auxhist12_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_interval INTEGER id_id model_config_rec%auxhist12_interval(id_id) = auxhist12_interval RETURN END SUBROUTINE nl_set_auxhist12_interval SUBROUTINE nl_set_auxhist12_begin_y ( id_id , auxhist12_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin_y INTEGER id_id model_config_rec%auxhist12_begin_y(id_id) = auxhist12_begin_y RETURN END SUBROUTINE nl_set_auxhist12_begin_y SUBROUTINE nl_set_auxhist12_begin_d ( id_id , auxhist12_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin_d INTEGER id_id model_config_rec%auxhist12_begin_d(id_id) = auxhist12_begin_d RETURN END SUBROUTINE nl_set_auxhist12_begin_d SUBROUTINE nl_set_auxhist12_begin_h ( id_id , auxhist12_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin_h INTEGER id_id model_config_rec%auxhist12_begin_h(id_id) = auxhist12_begin_h RETURN END SUBROUTINE nl_set_auxhist12_begin_h SUBROUTINE nl_set_auxhist12_begin_m ( id_id , auxhist12_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin_m INTEGER id_id model_config_rec%auxhist12_begin_m(id_id) = auxhist12_begin_m RETURN END SUBROUTINE nl_set_auxhist12_begin_m SUBROUTINE nl_set_auxhist12_begin_s ( id_id , auxhist12_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin_s INTEGER id_id model_config_rec%auxhist12_begin_s(id_id) = auxhist12_begin_s RETURN END SUBROUTINE nl_set_auxhist12_begin_s SUBROUTINE nl_set_auxhist12_begin ( id_id , auxhist12_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_begin INTEGER id_id model_config_rec%auxhist12_begin(id_id) = auxhist12_begin RETURN END SUBROUTINE nl_set_auxhist12_begin SUBROUTINE nl_set_auxhist12_end_y ( id_id , auxhist12_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end_y INTEGER id_id model_config_rec%auxhist12_end_y(id_id) = auxhist12_end_y RETURN END SUBROUTINE nl_set_auxhist12_end_y SUBROUTINE nl_set_auxhist12_end_d ( id_id , auxhist12_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end_d INTEGER id_id model_config_rec%auxhist12_end_d(id_id) = auxhist12_end_d RETURN END SUBROUTINE nl_set_auxhist12_end_d SUBROUTINE nl_set_auxhist12_end_h ( id_id , auxhist12_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end_h INTEGER id_id model_config_rec%auxhist12_end_h(id_id) = auxhist12_end_h RETURN END SUBROUTINE nl_set_auxhist12_end_h SUBROUTINE nl_set_auxhist12_end_m ( id_id , auxhist12_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end_m INTEGER id_id model_config_rec%auxhist12_end_m(id_id) = auxhist12_end_m RETURN END SUBROUTINE nl_set_auxhist12_end_m SUBROUTINE nl_set_auxhist12_end_s ( id_id , auxhist12_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end_s INTEGER id_id model_config_rec%auxhist12_end_s(id_id) = auxhist12_end_s RETURN END SUBROUTINE nl_set_auxhist12_end_s SUBROUTINE nl_set_auxhist12_end ( id_id , auxhist12_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist12_end INTEGER id_id model_config_rec%auxhist12_end(id_id) = auxhist12_end RETURN END SUBROUTINE nl_set_auxhist12_end SUBROUTINE nl_set_io_form_auxhist12 ( id_id , io_form_auxhist12 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist12 INTEGER id_id model_config_rec%io_form_auxhist12 = io_form_auxhist12 RETURN END SUBROUTINE nl_set_io_form_auxhist12 SUBROUTINE nl_set_frames_per_auxhist12 ( id_id , frames_per_auxhist12 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist12 INTEGER id_id model_config_rec%frames_per_auxhist12(id_id) = frames_per_auxhist12 RETURN END SUBROUTINE nl_set_frames_per_auxhist12 SUBROUTINE nl_set_auxhist13_inname ( id_id , auxhist13_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist13_inname INTEGER id_id model_config_rec%auxhist13_inname = trim(auxhist13_inname) RETURN END SUBROUTINE nl_set_auxhist13_inname SUBROUTINE nl_set_auxhist13_outname ( id_id , auxhist13_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist13_outname INTEGER id_id model_config_rec%auxhist13_outname = trim(auxhist13_outname) RETURN END SUBROUTINE nl_set_auxhist13_outname SUBROUTINE nl_set_auxhist13_interval_y ( id_id , auxhist13_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval_y INTEGER id_id model_config_rec%auxhist13_interval_y(id_id) = auxhist13_interval_y RETURN END SUBROUTINE nl_set_auxhist13_interval_y SUBROUTINE nl_set_auxhist13_interval_d ( id_id , auxhist13_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval_d INTEGER id_id model_config_rec%auxhist13_interval_d(id_id) = auxhist13_interval_d RETURN END SUBROUTINE nl_set_auxhist13_interval_d SUBROUTINE nl_set_auxhist13_interval_h ( id_id , auxhist13_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval_h INTEGER id_id model_config_rec%auxhist13_interval_h(id_id) = auxhist13_interval_h RETURN END SUBROUTINE nl_set_auxhist13_interval_h SUBROUTINE nl_set_auxhist13_interval_m ( id_id , auxhist13_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval_m INTEGER id_id model_config_rec%auxhist13_interval_m(id_id) = auxhist13_interval_m RETURN END SUBROUTINE nl_set_auxhist13_interval_m SUBROUTINE nl_set_auxhist13_interval_s ( id_id , auxhist13_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval_s INTEGER id_id model_config_rec%auxhist13_interval_s(id_id) = auxhist13_interval_s RETURN END SUBROUTINE nl_set_auxhist13_interval_s SUBROUTINE nl_set_auxhist13_interval ( id_id , auxhist13_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_interval INTEGER id_id model_config_rec%auxhist13_interval(id_id) = auxhist13_interval RETURN END SUBROUTINE nl_set_auxhist13_interval SUBROUTINE nl_set_auxhist13_begin_y ( id_id , auxhist13_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin_y INTEGER id_id model_config_rec%auxhist13_begin_y(id_id) = auxhist13_begin_y RETURN END SUBROUTINE nl_set_auxhist13_begin_y SUBROUTINE nl_set_auxhist13_begin_d ( id_id , auxhist13_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin_d INTEGER id_id model_config_rec%auxhist13_begin_d(id_id) = auxhist13_begin_d RETURN END SUBROUTINE nl_set_auxhist13_begin_d SUBROUTINE nl_set_auxhist13_begin_h ( id_id , auxhist13_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin_h INTEGER id_id model_config_rec%auxhist13_begin_h(id_id) = auxhist13_begin_h RETURN END SUBROUTINE nl_set_auxhist13_begin_h SUBROUTINE nl_set_auxhist13_begin_m ( id_id , auxhist13_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin_m INTEGER id_id model_config_rec%auxhist13_begin_m(id_id) = auxhist13_begin_m RETURN END SUBROUTINE nl_set_auxhist13_begin_m SUBROUTINE nl_set_auxhist13_begin_s ( id_id , auxhist13_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin_s INTEGER id_id model_config_rec%auxhist13_begin_s(id_id) = auxhist13_begin_s RETURN END SUBROUTINE nl_set_auxhist13_begin_s SUBROUTINE nl_set_auxhist13_begin ( id_id , auxhist13_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_begin INTEGER id_id model_config_rec%auxhist13_begin(id_id) = auxhist13_begin RETURN END SUBROUTINE nl_set_auxhist13_begin SUBROUTINE nl_set_auxhist13_end_y ( id_id , auxhist13_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end_y INTEGER id_id model_config_rec%auxhist13_end_y(id_id) = auxhist13_end_y RETURN END SUBROUTINE nl_set_auxhist13_end_y SUBROUTINE nl_set_auxhist13_end_d ( id_id , auxhist13_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end_d INTEGER id_id model_config_rec%auxhist13_end_d(id_id) = auxhist13_end_d RETURN END SUBROUTINE nl_set_auxhist13_end_d SUBROUTINE nl_set_auxhist13_end_h ( id_id , auxhist13_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end_h INTEGER id_id model_config_rec%auxhist13_end_h(id_id) = auxhist13_end_h RETURN END SUBROUTINE nl_set_auxhist13_end_h SUBROUTINE nl_set_auxhist13_end_m ( id_id , auxhist13_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end_m INTEGER id_id model_config_rec%auxhist13_end_m(id_id) = auxhist13_end_m RETURN END SUBROUTINE nl_set_auxhist13_end_m SUBROUTINE nl_set_auxhist13_end_s ( id_id , auxhist13_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end_s INTEGER id_id model_config_rec%auxhist13_end_s(id_id) = auxhist13_end_s RETURN END SUBROUTINE nl_set_auxhist13_end_s SUBROUTINE nl_set_auxhist13_end ( id_id , auxhist13_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist13_end INTEGER id_id model_config_rec%auxhist13_end(id_id) = auxhist13_end RETURN END SUBROUTINE nl_set_auxhist13_end SUBROUTINE nl_set_io_form_auxhist13 ( id_id , io_form_auxhist13 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist13 INTEGER id_id model_config_rec%io_form_auxhist13 = io_form_auxhist13 RETURN END SUBROUTINE nl_set_io_form_auxhist13 SUBROUTINE nl_set_frames_per_auxhist13 ( id_id , frames_per_auxhist13 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist13 INTEGER id_id model_config_rec%frames_per_auxhist13(id_id) = frames_per_auxhist13 RETURN END SUBROUTINE nl_set_frames_per_auxhist13 SUBROUTINE nl_set_auxhist14_inname ( id_id , auxhist14_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist14_inname INTEGER id_id model_config_rec%auxhist14_inname = trim(auxhist14_inname) RETURN END SUBROUTINE nl_set_auxhist14_inname SUBROUTINE nl_set_auxhist14_outname ( id_id , auxhist14_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist14_outname INTEGER id_id model_config_rec%auxhist14_outname = trim(auxhist14_outname) RETURN END SUBROUTINE nl_set_auxhist14_outname SUBROUTINE nl_set_auxhist14_interval_y ( id_id , auxhist14_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval_y INTEGER id_id model_config_rec%auxhist14_interval_y(id_id) = auxhist14_interval_y RETURN END SUBROUTINE nl_set_auxhist14_interval_y SUBROUTINE nl_set_auxhist14_interval_d ( id_id , auxhist14_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval_d INTEGER id_id model_config_rec%auxhist14_interval_d(id_id) = auxhist14_interval_d RETURN END SUBROUTINE nl_set_auxhist14_interval_d SUBROUTINE nl_set_auxhist14_interval_h ( id_id , auxhist14_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval_h INTEGER id_id model_config_rec%auxhist14_interval_h(id_id) = auxhist14_interval_h RETURN END SUBROUTINE nl_set_auxhist14_interval_h SUBROUTINE nl_set_auxhist14_interval_m ( id_id , auxhist14_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval_m INTEGER id_id model_config_rec%auxhist14_interval_m(id_id) = auxhist14_interval_m RETURN END SUBROUTINE nl_set_auxhist14_interval_m SUBROUTINE nl_set_auxhist14_interval_s ( id_id , auxhist14_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval_s INTEGER id_id model_config_rec%auxhist14_interval_s(id_id) = auxhist14_interval_s RETURN END SUBROUTINE nl_set_auxhist14_interval_s SUBROUTINE nl_set_auxhist14_interval ( id_id , auxhist14_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_interval INTEGER id_id model_config_rec%auxhist14_interval(id_id) = auxhist14_interval RETURN END SUBROUTINE nl_set_auxhist14_interval SUBROUTINE nl_set_auxhist14_begin_y ( id_id , auxhist14_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin_y INTEGER id_id model_config_rec%auxhist14_begin_y(id_id) = auxhist14_begin_y RETURN END SUBROUTINE nl_set_auxhist14_begin_y SUBROUTINE nl_set_auxhist14_begin_d ( id_id , auxhist14_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin_d INTEGER id_id model_config_rec%auxhist14_begin_d(id_id) = auxhist14_begin_d RETURN END SUBROUTINE nl_set_auxhist14_begin_d SUBROUTINE nl_set_auxhist14_begin_h ( id_id , auxhist14_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin_h INTEGER id_id model_config_rec%auxhist14_begin_h(id_id) = auxhist14_begin_h RETURN END SUBROUTINE nl_set_auxhist14_begin_h SUBROUTINE nl_set_auxhist14_begin_m ( id_id , auxhist14_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin_m INTEGER id_id model_config_rec%auxhist14_begin_m(id_id) = auxhist14_begin_m RETURN END SUBROUTINE nl_set_auxhist14_begin_m SUBROUTINE nl_set_auxhist14_begin_s ( id_id , auxhist14_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin_s INTEGER id_id model_config_rec%auxhist14_begin_s(id_id) = auxhist14_begin_s RETURN END SUBROUTINE nl_set_auxhist14_begin_s SUBROUTINE nl_set_auxhist14_begin ( id_id , auxhist14_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_begin INTEGER id_id model_config_rec%auxhist14_begin(id_id) = auxhist14_begin RETURN END SUBROUTINE nl_set_auxhist14_begin SUBROUTINE nl_set_auxhist14_end_y ( id_id , auxhist14_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end_y INTEGER id_id model_config_rec%auxhist14_end_y(id_id) = auxhist14_end_y RETURN END SUBROUTINE nl_set_auxhist14_end_y SUBROUTINE nl_set_auxhist14_end_d ( id_id , auxhist14_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end_d INTEGER id_id model_config_rec%auxhist14_end_d(id_id) = auxhist14_end_d RETURN END SUBROUTINE nl_set_auxhist14_end_d SUBROUTINE nl_set_auxhist14_end_h ( id_id , auxhist14_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end_h INTEGER id_id model_config_rec%auxhist14_end_h(id_id) = auxhist14_end_h RETURN END SUBROUTINE nl_set_auxhist14_end_h SUBROUTINE nl_set_auxhist14_end_m ( id_id , auxhist14_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end_m INTEGER id_id model_config_rec%auxhist14_end_m(id_id) = auxhist14_end_m RETURN END SUBROUTINE nl_set_auxhist14_end_m SUBROUTINE nl_set_auxhist14_end_s ( id_id , auxhist14_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end_s INTEGER id_id model_config_rec%auxhist14_end_s(id_id) = auxhist14_end_s RETURN END SUBROUTINE nl_set_auxhist14_end_s SUBROUTINE nl_set_auxhist14_end ( id_id , auxhist14_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist14_end INTEGER id_id model_config_rec%auxhist14_end(id_id) = auxhist14_end RETURN END SUBROUTINE nl_set_auxhist14_end SUBROUTINE nl_set_io_form_auxhist14 ( id_id , io_form_auxhist14 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist14 INTEGER id_id model_config_rec%io_form_auxhist14 = io_form_auxhist14 RETURN END SUBROUTINE nl_set_io_form_auxhist14 SUBROUTINE nl_set_frames_per_auxhist14 ( id_id , frames_per_auxhist14 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist14 INTEGER id_id model_config_rec%frames_per_auxhist14(id_id) = frames_per_auxhist14 RETURN END SUBROUTINE nl_set_frames_per_auxhist14 SUBROUTINE nl_set_auxhist15_inname ( id_id , auxhist15_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist15_inname INTEGER id_id model_config_rec%auxhist15_inname = trim(auxhist15_inname) RETURN END SUBROUTINE nl_set_auxhist15_inname SUBROUTINE nl_set_auxhist15_outname ( id_id , auxhist15_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist15_outname INTEGER id_id model_config_rec%auxhist15_outname = trim(auxhist15_outname) RETURN END SUBROUTINE nl_set_auxhist15_outname SUBROUTINE nl_set_auxhist15_interval_y ( id_id , auxhist15_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval_y INTEGER id_id model_config_rec%auxhist15_interval_y(id_id) = auxhist15_interval_y RETURN END SUBROUTINE nl_set_auxhist15_interval_y SUBROUTINE nl_set_auxhist15_interval_d ( id_id , auxhist15_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval_d INTEGER id_id model_config_rec%auxhist15_interval_d(id_id) = auxhist15_interval_d RETURN END SUBROUTINE nl_set_auxhist15_interval_d SUBROUTINE nl_set_auxhist15_interval_h ( id_id , auxhist15_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval_h INTEGER id_id model_config_rec%auxhist15_interval_h(id_id) = auxhist15_interval_h RETURN END SUBROUTINE nl_set_auxhist15_interval_h SUBROUTINE nl_set_auxhist15_interval_m ( id_id , auxhist15_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval_m INTEGER id_id model_config_rec%auxhist15_interval_m(id_id) = auxhist15_interval_m RETURN END SUBROUTINE nl_set_auxhist15_interval_m SUBROUTINE nl_set_auxhist15_interval_s ( id_id , auxhist15_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval_s INTEGER id_id model_config_rec%auxhist15_interval_s(id_id) = auxhist15_interval_s RETURN END SUBROUTINE nl_set_auxhist15_interval_s SUBROUTINE nl_set_auxhist15_interval ( id_id , auxhist15_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_interval INTEGER id_id model_config_rec%auxhist15_interval(id_id) = auxhist15_interval RETURN END SUBROUTINE nl_set_auxhist15_interval SUBROUTINE nl_set_auxhist15_begin_y ( id_id , auxhist15_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin_y INTEGER id_id model_config_rec%auxhist15_begin_y(id_id) = auxhist15_begin_y RETURN END SUBROUTINE nl_set_auxhist15_begin_y SUBROUTINE nl_set_auxhist15_begin_d ( id_id , auxhist15_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin_d INTEGER id_id model_config_rec%auxhist15_begin_d(id_id) = auxhist15_begin_d RETURN END SUBROUTINE nl_set_auxhist15_begin_d SUBROUTINE nl_set_auxhist15_begin_h ( id_id , auxhist15_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin_h INTEGER id_id model_config_rec%auxhist15_begin_h(id_id) = auxhist15_begin_h RETURN END SUBROUTINE nl_set_auxhist15_begin_h SUBROUTINE nl_set_auxhist15_begin_m ( id_id , auxhist15_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin_m INTEGER id_id model_config_rec%auxhist15_begin_m(id_id) = auxhist15_begin_m RETURN END SUBROUTINE nl_set_auxhist15_begin_m SUBROUTINE nl_set_auxhist15_begin_s ( id_id , auxhist15_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin_s INTEGER id_id model_config_rec%auxhist15_begin_s(id_id) = auxhist15_begin_s RETURN END SUBROUTINE nl_set_auxhist15_begin_s SUBROUTINE nl_set_auxhist15_begin ( id_id , auxhist15_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_begin INTEGER id_id model_config_rec%auxhist15_begin(id_id) = auxhist15_begin RETURN END SUBROUTINE nl_set_auxhist15_begin SUBROUTINE nl_set_auxhist15_end_y ( id_id , auxhist15_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end_y INTEGER id_id model_config_rec%auxhist15_end_y(id_id) = auxhist15_end_y RETURN END SUBROUTINE nl_set_auxhist15_end_y SUBROUTINE nl_set_auxhist15_end_d ( id_id , auxhist15_end_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end_d INTEGER id_id model_config_rec%auxhist15_end_d(id_id) = auxhist15_end_d RETURN END SUBROUTINE nl_set_auxhist15_end_d SUBROUTINE nl_set_auxhist15_end_h ( id_id , auxhist15_end_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end_h INTEGER id_id model_config_rec%auxhist15_end_h(id_id) = auxhist15_end_h RETURN END SUBROUTINE nl_set_auxhist15_end_h SUBROUTINE nl_set_auxhist15_end_m ( id_id , auxhist15_end_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end_m INTEGER id_id model_config_rec%auxhist15_end_m(id_id) = auxhist15_end_m RETURN END SUBROUTINE nl_set_auxhist15_end_m SUBROUTINE nl_set_auxhist15_end_s ( id_id , auxhist15_end_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end_s INTEGER id_id model_config_rec%auxhist15_end_s(id_id) = auxhist15_end_s RETURN END SUBROUTINE nl_set_auxhist15_end_s SUBROUTINE nl_set_auxhist15_end ( id_id , auxhist15_end ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist15_end INTEGER id_id model_config_rec%auxhist15_end(id_id) = auxhist15_end RETURN END SUBROUTINE nl_set_auxhist15_end SUBROUTINE nl_set_io_form_auxhist15 ( id_id , io_form_auxhist15 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: io_form_auxhist15 INTEGER id_id model_config_rec%io_form_auxhist15 = io_form_auxhist15 RETURN END SUBROUTINE nl_set_io_form_auxhist15 SUBROUTINE nl_set_frames_per_auxhist15 ( id_id , frames_per_auxhist15 ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: frames_per_auxhist15 INTEGER id_id model_config_rec%frames_per_auxhist15(id_id) = frames_per_auxhist15 RETURN END SUBROUTINE nl_set_frames_per_auxhist15 SUBROUTINE nl_set_auxhist16_inname ( id_id , auxhist16_inname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist16_inname INTEGER id_id model_config_rec%auxhist16_inname = trim(auxhist16_inname) RETURN END SUBROUTINE nl_set_auxhist16_inname SUBROUTINE nl_set_auxhist16_outname ( id_id , auxhist16_outname ) USE module_configure, ONLY : model_config_rec character*256 , INTENT(IN) :: auxhist16_outname INTEGER id_id model_config_rec%auxhist16_outname = trim(auxhist16_outname) RETURN END SUBROUTINE nl_set_auxhist16_outname SUBROUTINE nl_set_auxhist16_interval_y ( id_id , auxhist16_interval_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval_y INTEGER id_id model_config_rec%auxhist16_interval_y(id_id) = auxhist16_interval_y RETURN END SUBROUTINE nl_set_auxhist16_interval_y SUBROUTINE nl_set_auxhist16_interval_d ( id_id , auxhist16_interval_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval_d INTEGER id_id model_config_rec%auxhist16_interval_d(id_id) = auxhist16_interval_d RETURN END SUBROUTINE nl_set_auxhist16_interval_d SUBROUTINE nl_set_auxhist16_interval_h ( id_id , auxhist16_interval_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval_h INTEGER id_id model_config_rec%auxhist16_interval_h(id_id) = auxhist16_interval_h RETURN END SUBROUTINE nl_set_auxhist16_interval_h SUBROUTINE nl_set_auxhist16_interval_m ( id_id , auxhist16_interval_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval_m INTEGER id_id model_config_rec%auxhist16_interval_m(id_id) = auxhist16_interval_m RETURN END SUBROUTINE nl_set_auxhist16_interval_m SUBROUTINE nl_set_auxhist16_interval_s ( id_id , auxhist16_interval_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval_s INTEGER id_id model_config_rec%auxhist16_interval_s(id_id) = auxhist16_interval_s RETURN END SUBROUTINE nl_set_auxhist16_interval_s SUBROUTINE nl_set_auxhist16_interval ( id_id , auxhist16_interval ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_interval INTEGER id_id model_config_rec%auxhist16_interval(id_id) = auxhist16_interval RETURN END SUBROUTINE nl_set_auxhist16_interval SUBROUTINE nl_set_auxhist16_begin_y ( id_id , auxhist16_begin_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin_y INTEGER id_id model_config_rec%auxhist16_begin_y(id_id) = auxhist16_begin_y RETURN END SUBROUTINE nl_set_auxhist16_begin_y SUBROUTINE nl_set_auxhist16_begin_d ( id_id , auxhist16_begin_d ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin_d INTEGER id_id model_config_rec%auxhist16_begin_d(id_id) = auxhist16_begin_d RETURN END SUBROUTINE nl_set_auxhist16_begin_d SUBROUTINE nl_set_auxhist16_begin_h ( id_id , auxhist16_begin_h ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin_h INTEGER id_id model_config_rec%auxhist16_begin_h(id_id) = auxhist16_begin_h RETURN END SUBROUTINE nl_set_auxhist16_begin_h SUBROUTINE nl_set_auxhist16_begin_m ( id_id , auxhist16_begin_m ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin_m INTEGER id_id model_config_rec%auxhist16_begin_m(id_id) = auxhist16_begin_m RETURN END SUBROUTINE nl_set_auxhist16_begin_m SUBROUTINE nl_set_auxhist16_begin_s ( id_id , auxhist16_begin_s ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin_s INTEGER id_id model_config_rec%auxhist16_begin_s(id_id) = auxhist16_begin_s RETURN END SUBROUTINE nl_set_auxhist16_begin_s SUBROUTINE nl_set_auxhist16_begin ( id_id , auxhist16_begin ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_begin INTEGER id_id model_config_rec%auxhist16_begin(id_id) = auxhist16_begin RETURN END SUBROUTINE nl_set_auxhist16_begin SUBROUTINE nl_set_auxhist16_end_y ( id_id , auxhist16_end_y ) USE module_configure, ONLY : model_config_rec integer , INTENT(IN) :: auxhist16_end_y INTEGER id_id model_config_rec%auxhist16_end_y(id_id) = auxhist16_end_y RETURN END SUBROUTINE nl_set_auxhist16_end_y !ENDOFREGISTRYGENERATEDINCLUDE