include file: get_nl_config.inc 1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/get_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 get_time_step ( time_step ) 1,1 USE module_configure
integer , INTENT(OUT) :: time_step time_step = model_config_rec%time_step RETURN END SUBROUTINE get_time_step
SUBROUTINE get_time_step_fract_num ( time_step_fract_num ) 1,1 USE module_configure
integer , INTENT(OUT) :: time_step_fract_num time_step_fract_num = model_config_rec%time_step_fract_num RETURN END SUBROUTINE get_time_step_fract_num
SUBROUTINE get_time_step_fract_den ( time_step_fract_den ) 1,1 USE module_configure
integer , INTENT(OUT) :: time_step_fract_den time_step_fract_den = model_config_rec%time_step_fract_den RETURN END SUBROUTINE get_time_step_fract_den
SUBROUTINE get_restart ( restart ) 1,1 USE module_configure
logical , INTENT(OUT) :: restart restart = model_config_rec%restart RETURN END SUBROUTINE get_restart
SUBROUTINE get_write_restart_at_0h ( write_restart_at_0h ),1 USE module_configure
logical , INTENT(OUT) :: write_restart_at_0h write_restart_at_0h = model_config_rec%write_restart_at_0h RETURN END SUBROUTINE get_write_restart_at_0h
SUBROUTINE get_max_dom ( max_dom ),1 USE module_configure
integer , INTENT(OUT) :: max_dom max_dom = model_config_rec%max_dom RETURN END SUBROUTINE get_max_dom
SUBROUTINE get_dyn_opt ( dyn_opt ) 12,1 USE module_configure
integer , INTENT(OUT) :: dyn_opt dyn_opt = model_config_rec%dyn_opt RETURN END SUBROUTINE get_dyn_opt
SUBROUTINE get_rk_ord ( rk_ord ),1 USE module_configure
integer , INTENT(OUT) :: rk_ord rk_ord = model_config_rec%rk_ord RETURN END SUBROUTINE get_rk_ord
SUBROUTINE get_diff_opt ( diff_opt ) 1,1 USE module_configure
integer , INTENT(OUT) :: diff_opt diff_opt = model_config_rec%diff_opt RETURN END SUBROUTINE get_diff_opt
SUBROUTINE get_km_opt ( km_opt ) 1,1 USE module_configure
integer , INTENT(OUT) :: km_opt km_opt = model_config_rec%km_opt RETURN END SUBROUTINE get_km_opt
SUBROUTINE get_damp_opt ( damp_opt ) 1,1 USE module_configure
integer , INTENT(OUT) :: damp_opt damp_opt = model_config_rec%damp_opt RETURN END SUBROUTINE get_damp_opt
SUBROUTINE get_w_damping ( w_damping ),1 USE module_configure
integer , INTENT(OUT) :: w_damping w_damping = model_config_rec%w_damping RETURN END SUBROUTINE get_w_damping
SUBROUTINE get_isfflx ( isfflx ),1 USE module_configure
integer , INTENT(OUT) :: isfflx isfflx = model_config_rec%isfflx RETURN END SUBROUTINE get_isfflx
SUBROUTINE get_ifsnow ( ifsnow ),1 USE module_configure
integer , INTENT(OUT) :: ifsnow ifsnow = model_config_rec%ifsnow RETURN END SUBROUTINE get_ifsnow
SUBROUTINE get_icloud ( icloud ),1 USE module_configure
integer , INTENT(OUT) :: icloud icloud = model_config_rec%icloud RETURN END SUBROUTINE get_icloud
SUBROUTINE get_num_soil_layers ( num_soil_layers ),1 USE module_configure
integer , INTENT(OUT) :: num_soil_layers num_soil_layers = model_config_rec%num_soil_layers RETURN END SUBROUTINE get_num_soil_layers
SUBROUTINE get_num_land_cat ( num_land_cat ),1 USE module_configure
integer , INTENT(OUT) :: num_land_cat num_land_cat = model_config_rec%num_land_cat RETURN END SUBROUTINE get_num_land_cat
SUBROUTINE get_num_soil_cat ( num_soil_cat ),1 USE module_configure
integer , INTENT(OUT) :: num_soil_cat num_soil_cat = model_config_rec%num_soil_cat RETURN END SUBROUTINE get_num_soil_cat
SUBROUTINE get_spec_bdy_width ( spec_bdy_width ) 3,1 USE module_configure
integer , INTENT(OUT) :: spec_bdy_width spec_bdy_width = model_config_rec%spec_bdy_width RETURN END SUBROUTINE get_spec_bdy_width
SUBROUTINE get_spec_zone ( spec_zone ),1 USE module_configure
integer , INTENT(OUT) :: spec_zone spec_zone = model_config_rec%spec_zone RETURN END SUBROUTINE get_spec_zone
SUBROUTINE get_relax_zone ( relax_zone ),1 USE module_configure
integer , INTENT(OUT) :: relax_zone relax_zone = model_config_rec%relax_zone RETURN END SUBROUTINE get_relax_zone
SUBROUTINE get_tile_sz_x ( tile_sz_x ) 1,1 USE module_configure
integer , INTENT(OUT) :: tile_sz_x tile_sz_x = model_config_rec%tile_sz_x RETURN END SUBROUTINE get_tile_sz_x
SUBROUTINE get_tile_sz_y ( tile_sz_y ) 1,1 USE module_configure
integer , INTENT(OUT) :: tile_sz_y tile_sz_y = model_config_rec%tile_sz_y RETURN END SUBROUTINE get_tile_sz_y
SUBROUTINE get_numtiles ( numtiles ) 1,1 USE module_configure
integer , INTENT(OUT) :: numtiles numtiles = model_config_rec%numtiles RETURN END SUBROUTINE get_numtiles
SUBROUTINE get_debug_level ( debug_level ) 8,1 USE module_configure
integer , INTENT(OUT) :: debug_level debug_level = model_config_rec%debug_level RETURN END SUBROUTINE get_debug_level
SUBROUTINE get_irand ( irand ),1 USE module_configure
integer , INTENT(OUT) :: irand irand = model_config_rec%irand RETURN END SUBROUTINE get_irand
SUBROUTINE get_run_days ( run_days ) 1,1 USE module_configure
integer , INTENT(OUT) :: run_days run_days = model_config_rec%run_days RETURN END SUBROUTINE get_run_days
SUBROUTINE get_run_hours ( run_hours ) 1,1 USE module_configure
integer , INTENT(OUT) :: run_hours run_hours = model_config_rec%run_hours RETURN END SUBROUTINE get_run_hours
SUBROUTINE get_run_minutes ( run_minutes ) 1,1 USE module_configure
integer , INTENT(OUT) :: run_minutes run_minutes = model_config_rec%run_minutes RETURN END SUBROUTINE get_run_minutes
SUBROUTINE get_run_seconds ( run_seconds ) 1,1 USE module_configure
integer , INTENT(OUT) :: run_seconds run_seconds = model_config_rec%run_seconds RETURN END SUBROUTINE get_run_seconds
SUBROUTINE get_start_year ( id_id , start_year ) 3,1 USE module_configure
integer , INTENT(OUT) :: start_year INTEGER id_id start_year = model_config_rec%start_year(id_id) RETURN END SUBROUTINE get_start_year
SUBROUTINE get_start_month ( id_id , start_month ) 5,1 USE module_configure
integer , INTENT(OUT) :: start_month INTEGER id_id start_month = model_config_rec%start_month(id_id) RETURN END SUBROUTINE get_start_month
SUBROUTINE get_start_day ( id_id , start_day ) 5,1 USE module_configure
integer , INTENT(OUT) :: start_day INTEGER id_id start_day = model_config_rec%start_day(id_id) RETURN END SUBROUTINE get_start_day
SUBROUTINE get_start_hour ( id_id , start_hour ) 3,1 USE module_configure
integer , INTENT(OUT) :: start_hour INTEGER id_id start_hour = model_config_rec%start_hour(id_id) RETURN END SUBROUTINE get_start_hour
SUBROUTINE get_start_minute ( id_id , start_minute ) 3,1 USE module_configure
integer , INTENT(OUT) :: start_minute INTEGER id_id start_minute = model_config_rec%start_minute(id_id) RETURN END SUBROUTINE get_start_minute
SUBROUTINE get_start_second ( id_id , start_second ) 3,1 USE module_configure
integer , INTENT(OUT) :: start_second INTEGER id_id start_second = model_config_rec%start_second(id_id) RETURN END SUBROUTINE get_start_second
SUBROUTINE get_end_year ( id_id , end_year ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_year INTEGER id_id end_year = model_config_rec%end_year(id_id) RETURN END SUBROUTINE get_end_year
SUBROUTINE get_end_month ( id_id , end_month ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_month INTEGER id_id end_month = model_config_rec%end_month(id_id) RETURN END SUBROUTINE get_end_month
SUBROUTINE get_end_day ( id_id , end_day ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_day INTEGER id_id end_day = model_config_rec%end_day(id_id) RETURN END SUBROUTINE get_end_day
SUBROUTINE get_end_hour ( id_id , end_hour ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_hour INTEGER id_id end_hour = model_config_rec%end_hour(id_id) RETURN END SUBROUTINE get_end_hour
SUBROUTINE get_end_minute ( id_id , end_minute ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_minute INTEGER id_id end_minute = model_config_rec%end_minute(id_id) RETURN END SUBROUTINE get_end_minute
SUBROUTINE get_end_second ( id_id , end_second ) 2,1 USE module_configure
integer , INTENT(OUT) :: end_second INTEGER id_id end_second = model_config_rec%end_second(id_id) RETURN END SUBROUTINE get_end_second
SUBROUTINE get_interval_seconds ( interval_seconds ),1 USE module_configure
integer , INTENT(OUT) :: interval_seconds interval_seconds = model_config_rec%interval_seconds RETURN END SUBROUTINE get_interval_seconds
SUBROUTINE get_grid_id ( id_id , grid_id ),1 USE module_configure
integer , INTENT(OUT) :: grid_id INTEGER id_id grid_id = model_config_rec%grid_id(id_id) RETURN END SUBROUTINE get_grid_id
SUBROUTINE get_level ( id_id , level ),1 USE module_configure
integer , INTENT(OUT) :: level INTEGER id_id level = model_config_rec%level(id_id) RETURN END SUBROUTINE get_level
SUBROUTINE get_s_we ( id_id , s_we ) 6,1 USE module_configure
integer , INTENT(OUT) :: s_we INTEGER id_id s_we = model_config_rec%s_we(id_id) RETURN END SUBROUTINE get_s_we
SUBROUTINE get_e_we ( id_id , e_we ) 6,1 USE module_configure
integer , INTENT(OUT) :: e_we INTEGER id_id e_we = model_config_rec%e_we(id_id) RETURN END SUBROUTINE get_e_we
SUBROUTINE get_s_sn ( id_id , s_sn ) 6,1 USE module_configure
integer , INTENT(OUT) :: s_sn INTEGER id_id s_sn = model_config_rec%s_sn(id_id) RETURN END SUBROUTINE get_s_sn
SUBROUTINE get_e_sn ( id_id , e_sn ) 6,1 USE module_configure
integer , INTENT(OUT) :: e_sn INTEGER id_id e_sn = model_config_rec%e_sn(id_id) RETURN END SUBROUTINE get_e_sn
SUBROUTINE get_s_vert ( id_id , s_vert ) 6,1 USE module_configure
integer , INTENT(OUT) :: s_vert INTEGER id_id s_vert = model_config_rec%s_vert(id_id) RETURN END SUBROUTINE get_s_vert
SUBROUTINE get_e_vert ( id_id , e_vert ) 6,1 USE module_configure
integer , INTENT(OUT) :: e_vert INTEGER id_id e_vert = model_config_rec%e_vert(id_id) RETURN END SUBROUTINE get_e_vert
SUBROUTINE get_history_interval_mo ( id_id , history_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval_mo INTEGER id_id history_interval_mo = model_config_rec%history_interval_mo(id_id) RETURN END SUBROUTINE get_history_interval_mo
SUBROUTINE get_history_interval_d ( id_id , history_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval_d INTEGER id_id history_interval_d = model_config_rec%history_interval_d(id_id) RETURN END SUBROUTINE get_history_interval_d
SUBROUTINE get_history_interval_h ( id_id , history_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval_h INTEGER id_id history_interval_h = model_config_rec%history_interval_h(id_id) RETURN END SUBROUTINE get_history_interval_h
SUBROUTINE get_history_interval_m ( id_id , history_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval_m INTEGER id_id history_interval_m = model_config_rec%history_interval_m(id_id) RETURN END SUBROUTINE get_history_interval_m
SUBROUTINE get_history_interval_s ( id_id , history_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval_s INTEGER id_id history_interval_s = model_config_rec%history_interval_s(id_id) RETURN END SUBROUTINE get_history_interval_s
SUBROUTINE get_history_interval ( id_id , history_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: history_interval INTEGER id_id history_interval = model_config_rec%history_interval(id_id) RETURN END SUBROUTINE get_history_interval
SUBROUTINE get_auxhist1_interval_mo ( id_id , auxhist1_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval_mo INTEGER id_id auxhist1_interval_mo = model_config_rec%auxhist1_interval_mo(id_id) RETURN END SUBROUTINE get_auxhist1_interval_mo
SUBROUTINE get_auxhist1_interval_d ( id_id , auxhist1_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval_d INTEGER id_id auxhist1_interval_d = model_config_rec%auxhist1_interval_d(id_id) RETURN END SUBROUTINE get_auxhist1_interval_d
SUBROUTINE get_auxhist1_interval_h ( id_id , auxhist1_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval_h INTEGER id_id auxhist1_interval_h = model_config_rec%auxhist1_interval_h(id_id) RETURN END SUBROUTINE get_auxhist1_interval_h
SUBROUTINE get_auxhist1_interval_m ( id_id , auxhist1_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval_m INTEGER id_id auxhist1_interval_m = model_config_rec%auxhist1_interval_m(id_id) RETURN END SUBROUTINE get_auxhist1_interval_m
SUBROUTINE get_auxhist1_interval_s ( id_id , auxhist1_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval_s INTEGER id_id auxhist1_interval_s = model_config_rec%auxhist1_interval_s(id_id) RETURN END SUBROUTINE get_auxhist1_interval_s
SUBROUTINE get_auxhist1_interval ( id_id , auxhist1_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist1_interval INTEGER id_id auxhist1_interval = model_config_rec%auxhist1_interval(id_id) RETURN END SUBROUTINE get_auxhist1_interval
SUBROUTINE get_auxhist2_interval_mo ( id_id , auxhist2_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval_mo INTEGER id_id auxhist2_interval_mo = model_config_rec%auxhist2_interval_mo(id_id) RETURN END SUBROUTINE get_auxhist2_interval_mo
SUBROUTINE get_auxhist2_interval_d ( id_id , auxhist2_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval_d INTEGER id_id auxhist2_interval_d = model_config_rec%auxhist2_interval_d(id_id) RETURN END SUBROUTINE get_auxhist2_interval_d
SUBROUTINE get_auxhist2_interval_h ( id_id , auxhist2_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval_h INTEGER id_id auxhist2_interval_h = model_config_rec%auxhist2_interval_h(id_id) RETURN END SUBROUTINE get_auxhist2_interval_h
SUBROUTINE get_auxhist2_interval_m ( id_id , auxhist2_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval_m INTEGER id_id auxhist2_interval_m = model_config_rec%auxhist2_interval_m(id_id) RETURN END SUBROUTINE get_auxhist2_interval_m
SUBROUTINE get_auxhist2_interval_s ( id_id , auxhist2_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval_s INTEGER id_id auxhist2_interval_s = model_config_rec%auxhist2_interval_s(id_id) RETURN END SUBROUTINE get_auxhist2_interval_s
SUBROUTINE get_auxhist2_interval ( id_id , auxhist2_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist2_interval INTEGER id_id auxhist2_interval = model_config_rec%auxhist2_interval(id_id) RETURN END SUBROUTINE get_auxhist2_interval
SUBROUTINE get_auxhist3_interval_mo ( id_id , auxhist3_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval_mo INTEGER id_id auxhist3_interval_mo = model_config_rec%auxhist3_interval_mo(id_id) RETURN END SUBROUTINE get_auxhist3_interval_mo
SUBROUTINE get_auxhist3_interval_d ( id_id , auxhist3_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval_d INTEGER id_id auxhist3_interval_d = model_config_rec%auxhist3_interval_d(id_id) RETURN END SUBROUTINE get_auxhist3_interval_d
SUBROUTINE get_auxhist3_interval_h ( id_id , auxhist3_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval_h INTEGER id_id auxhist3_interval_h = model_config_rec%auxhist3_interval_h(id_id) RETURN END SUBROUTINE get_auxhist3_interval_h
SUBROUTINE get_auxhist3_interval_m ( id_id , auxhist3_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval_m INTEGER id_id auxhist3_interval_m = model_config_rec%auxhist3_interval_m(id_id) RETURN END SUBROUTINE get_auxhist3_interval_m
SUBROUTINE get_auxhist3_interval_s ( id_id , auxhist3_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval_s INTEGER id_id auxhist3_interval_s = model_config_rec%auxhist3_interval_s(id_id) RETURN END SUBROUTINE get_auxhist3_interval_s
SUBROUTINE get_auxhist3_interval ( id_id , auxhist3_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist3_interval INTEGER id_id auxhist3_interval = model_config_rec%auxhist3_interval(id_id) RETURN END SUBROUTINE get_auxhist3_interval
SUBROUTINE get_auxhist4_interval_mo ( id_id , auxhist4_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval_mo INTEGER id_id auxhist4_interval_mo = model_config_rec%auxhist4_interval_mo(id_id) RETURN END SUBROUTINE get_auxhist4_interval_mo
SUBROUTINE get_auxhist4_interval_d ( id_id , auxhist4_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval_d INTEGER id_id auxhist4_interval_d = model_config_rec%auxhist4_interval_d(id_id) RETURN END SUBROUTINE get_auxhist4_interval_d
SUBROUTINE get_auxhist4_interval_h ( id_id , auxhist4_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval_h INTEGER id_id auxhist4_interval_h = model_config_rec%auxhist4_interval_h(id_id) RETURN END SUBROUTINE get_auxhist4_interval_h
SUBROUTINE get_auxhist4_interval_m ( id_id , auxhist4_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval_m INTEGER id_id auxhist4_interval_m = model_config_rec%auxhist4_interval_m(id_id) RETURN END SUBROUTINE get_auxhist4_interval_m
SUBROUTINE get_auxhist4_interval_s ( id_id , auxhist4_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval_s INTEGER id_id auxhist4_interval_s = model_config_rec%auxhist4_interval_s(id_id) RETURN END SUBROUTINE get_auxhist4_interval_s
SUBROUTINE get_auxhist4_interval ( id_id , auxhist4_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist4_interval INTEGER id_id auxhist4_interval = model_config_rec%auxhist4_interval(id_id) RETURN END SUBROUTINE get_auxhist4_interval
SUBROUTINE get_auxhist5_interval_mo ( id_id , auxhist5_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval_mo INTEGER id_id auxhist5_interval_mo = model_config_rec%auxhist5_interval_mo(id_id) RETURN END SUBROUTINE get_auxhist5_interval_mo
SUBROUTINE get_auxhist5_interval_d ( id_id , auxhist5_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval_d INTEGER id_id auxhist5_interval_d = model_config_rec%auxhist5_interval_d(id_id) RETURN END SUBROUTINE get_auxhist5_interval_d
SUBROUTINE get_auxhist5_interval_h ( id_id , auxhist5_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval_h INTEGER id_id auxhist5_interval_h = model_config_rec%auxhist5_interval_h(id_id) RETURN END SUBROUTINE get_auxhist5_interval_h
SUBROUTINE get_auxhist5_interval_m ( id_id , auxhist5_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval_m INTEGER id_id auxhist5_interval_m = model_config_rec%auxhist5_interval_m(id_id) RETURN END SUBROUTINE get_auxhist5_interval_m
SUBROUTINE get_auxhist5_interval_s ( id_id , auxhist5_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval_s INTEGER id_id auxhist5_interval_s = model_config_rec%auxhist5_interval_s(id_id) RETURN END SUBROUTINE get_auxhist5_interval_s
SUBROUTINE get_auxhist5_interval ( id_id , auxhist5_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxhist5_interval INTEGER id_id auxhist5_interval = model_config_rec%auxhist5_interval(id_id) RETURN END SUBROUTINE get_auxhist5_interval
SUBROUTINE get_auxinput1_interval_mo ( id_id , auxinput1_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval_mo INTEGER id_id auxinput1_interval_mo = model_config_rec%auxinput1_interval_mo(id_id) RETURN END SUBROUTINE get_auxinput1_interval_mo
SUBROUTINE get_auxinput1_interval_d ( id_id , auxinput1_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval_d INTEGER id_id auxinput1_interval_d = model_config_rec%auxinput1_interval_d(id_id) RETURN END SUBROUTINE get_auxinput1_interval_d
SUBROUTINE get_auxinput1_interval_h ( id_id , auxinput1_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval_h INTEGER id_id auxinput1_interval_h = model_config_rec%auxinput1_interval_h(id_id) RETURN END SUBROUTINE get_auxinput1_interval_h
SUBROUTINE get_auxinput1_interval_m ( id_id , auxinput1_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval_m INTEGER id_id auxinput1_interval_m = model_config_rec%auxinput1_interval_m(id_id) RETURN END SUBROUTINE get_auxinput1_interval_m
SUBROUTINE get_auxinput1_interval_s ( id_id , auxinput1_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval_s INTEGER id_id auxinput1_interval_s = model_config_rec%auxinput1_interval_s(id_id) RETURN END SUBROUTINE get_auxinput1_interval_s
SUBROUTINE get_auxinput1_interval ( id_id , auxinput1_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput1_interval INTEGER id_id auxinput1_interval = model_config_rec%auxinput1_interval(id_id) RETURN END SUBROUTINE get_auxinput1_interval
SUBROUTINE get_auxinput2_interval_mo ( id_id , auxinput2_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval_mo INTEGER id_id auxinput2_interval_mo = model_config_rec%auxinput2_interval_mo(id_id) RETURN END SUBROUTINE get_auxinput2_interval_mo
SUBROUTINE get_auxinput2_interval_d ( id_id , auxinput2_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval_d INTEGER id_id auxinput2_interval_d = model_config_rec%auxinput2_interval_d(id_id) RETURN END SUBROUTINE get_auxinput2_interval_d
SUBROUTINE get_auxinput2_interval_h ( id_id , auxinput2_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval_h INTEGER id_id auxinput2_interval_h = model_config_rec%auxinput2_interval_h(id_id) RETURN END SUBROUTINE get_auxinput2_interval_h
SUBROUTINE get_auxinput2_interval_m ( id_id , auxinput2_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval_m INTEGER id_id auxinput2_interval_m = model_config_rec%auxinput2_interval_m(id_id) RETURN END SUBROUTINE get_auxinput2_interval_m
SUBROUTINE get_auxinput2_interval_s ( id_id , auxinput2_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval_s INTEGER id_id auxinput2_interval_s = model_config_rec%auxinput2_interval_s(id_id) RETURN END SUBROUTINE get_auxinput2_interval_s
SUBROUTINE get_auxinput2_interval ( id_id , auxinput2_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput2_interval INTEGER id_id auxinput2_interval = model_config_rec%auxinput2_interval(id_id) RETURN END SUBROUTINE get_auxinput2_interval
SUBROUTINE get_auxinput3_interval_mo ( id_id , auxinput3_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval_mo INTEGER id_id auxinput3_interval_mo = model_config_rec%auxinput3_interval_mo(id_id) RETURN END SUBROUTINE get_auxinput3_interval_mo
SUBROUTINE get_auxinput3_interval_d ( id_id , auxinput3_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval_d INTEGER id_id auxinput3_interval_d = model_config_rec%auxinput3_interval_d(id_id) RETURN END SUBROUTINE get_auxinput3_interval_d
SUBROUTINE get_auxinput3_interval_h ( id_id , auxinput3_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval_h INTEGER id_id auxinput3_interval_h = model_config_rec%auxinput3_interval_h(id_id) RETURN END SUBROUTINE get_auxinput3_interval_h
SUBROUTINE get_auxinput3_interval_m ( id_id , auxinput3_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval_m INTEGER id_id auxinput3_interval_m = model_config_rec%auxinput3_interval_m(id_id) RETURN END SUBROUTINE get_auxinput3_interval_m
SUBROUTINE get_auxinput3_interval_s ( id_id , auxinput3_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval_s INTEGER id_id auxinput3_interval_s = model_config_rec%auxinput3_interval_s(id_id) RETURN END SUBROUTINE get_auxinput3_interval_s
SUBROUTINE get_auxinput3_interval ( id_id , auxinput3_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput3_interval INTEGER id_id auxinput3_interval = model_config_rec%auxinput3_interval(id_id) RETURN END SUBROUTINE get_auxinput3_interval
SUBROUTINE get_auxinput4_interval_mo ( id_id , auxinput4_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval_mo INTEGER id_id auxinput4_interval_mo = model_config_rec%auxinput4_interval_mo(id_id) RETURN END SUBROUTINE get_auxinput4_interval_mo
SUBROUTINE get_auxinput4_interval_d ( id_id , auxinput4_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval_d INTEGER id_id auxinput4_interval_d = model_config_rec%auxinput4_interval_d(id_id) RETURN END SUBROUTINE get_auxinput4_interval_d
SUBROUTINE get_auxinput4_interval_h ( id_id , auxinput4_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval_h INTEGER id_id auxinput4_interval_h = model_config_rec%auxinput4_interval_h(id_id) RETURN END SUBROUTINE get_auxinput4_interval_h
SUBROUTINE get_auxinput4_interval_m ( id_id , auxinput4_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval_m INTEGER id_id auxinput4_interval_m = model_config_rec%auxinput4_interval_m(id_id) RETURN END SUBROUTINE get_auxinput4_interval_m
SUBROUTINE get_auxinput4_interval_s ( id_id , auxinput4_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval_s INTEGER id_id auxinput4_interval_s = model_config_rec%auxinput4_interval_s(id_id) RETURN END SUBROUTINE get_auxinput4_interval_s
SUBROUTINE get_auxinput4_interval ( id_id , auxinput4_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput4_interval INTEGER id_id auxinput4_interval = model_config_rec%auxinput4_interval(id_id) RETURN END SUBROUTINE get_auxinput4_interval
SUBROUTINE get_auxinput5_interval_mo ( id_id , auxinput5_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval_mo INTEGER id_id auxinput5_interval_mo = model_config_rec%auxinput5_interval_mo(id_id) RETURN END SUBROUTINE get_auxinput5_interval_mo
SUBROUTINE get_auxinput5_interval_d ( id_id , auxinput5_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval_d INTEGER id_id auxinput5_interval_d = model_config_rec%auxinput5_interval_d(id_id) RETURN END SUBROUTINE get_auxinput5_interval_d
SUBROUTINE get_auxinput5_interval_h ( id_id , auxinput5_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval_h INTEGER id_id auxinput5_interval_h = model_config_rec%auxinput5_interval_h(id_id) RETURN END SUBROUTINE get_auxinput5_interval_h
SUBROUTINE get_auxinput5_interval_m ( id_id , auxinput5_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval_m INTEGER id_id auxinput5_interval_m = model_config_rec%auxinput5_interval_m(id_id) RETURN END SUBROUTINE get_auxinput5_interval_m
SUBROUTINE get_auxinput5_interval_s ( id_id , auxinput5_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval_s INTEGER id_id auxinput5_interval_s = model_config_rec%auxinput5_interval_s(id_id) RETURN END SUBROUTINE get_auxinput5_interval_s
SUBROUTINE get_auxinput5_interval ( id_id , auxinput5_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: auxinput5_interval INTEGER id_id auxinput5_interval = model_config_rec%auxinput5_interval(id_id) RETURN END SUBROUTINE get_auxinput5_interval
SUBROUTINE get_restart_interval_mo ( restart_interval_mo ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval_mo restart_interval_mo = model_config_rec%restart_interval_mo RETURN END SUBROUTINE get_restart_interval_mo
SUBROUTINE get_restart_interval_d ( restart_interval_d ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval_d restart_interval_d = model_config_rec%restart_interval_d RETURN END SUBROUTINE get_restart_interval_d
SUBROUTINE get_restart_interval_h ( restart_interval_h ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval_h restart_interval_h = model_config_rec%restart_interval_h RETURN END SUBROUTINE get_restart_interval_h
SUBROUTINE get_restart_interval_m ( restart_interval_m ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval_m restart_interval_m = model_config_rec%restart_interval_m RETURN END SUBROUTINE get_restart_interval_m
SUBROUTINE get_restart_interval_s ( restart_interval_s ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval_s restart_interval_s = model_config_rec%restart_interval_s RETURN END SUBROUTINE get_restart_interval_s
SUBROUTINE get_restart_interval ( restart_interval ) 1,1 USE module_configure
integer , INTENT(OUT) :: restart_interval restart_interval = model_config_rec%restart_interval RETURN END SUBROUTINE get_restart_interval
SUBROUTINE get_frames_per_outfile ( id_id , frames_per_outfile ),1 USE module_configure
integer , INTENT(OUT) :: frames_per_outfile INTEGER id_id frames_per_outfile = model_config_rec%frames_per_outfile(id_id) RETURN END SUBROUTINE get_frames_per_outfile
SUBROUTINE get_time_step_sound ( id_id , time_step_sound ),1 USE module_configure
integer , INTENT(OUT) :: time_step_sound INTEGER id_id time_step_sound = model_config_rec%time_step_sound(id_id) RETURN END SUBROUTINE get_time_step_sound
SUBROUTINE get_parent_id ( id_id , parent_id ) 1,1 USE module_configure
integer , INTENT(OUT) :: parent_id INTEGER id_id parent_id = model_config_rec%parent_id(id_id) RETURN END SUBROUTINE get_parent_id
SUBROUTINE get_i_parent_start ( id_id , i_parent_start ) 1,1 USE module_configure
integer , INTENT(OUT) :: i_parent_start INTEGER id_id i_parent_start = model_config_rec%i_parent_start(id_id) RETURN END SUBROUTINE get_i_parent_start
SUBROUTINE get_j_parent_start ( id_id , j_parent_start ) 1,1 USE module_configure
integer , INTENT(OUT) :: j_parent_start INTEGER id_id j_parent_start = model_config_rec%j_parent_start(id_id) RETURN END SUBROUTINE get_j_parent_start
SUBROUTINE get_shw ( id_id , shw ) 1,1 USE module_configure
integer , INTENT(OUT) :: shw INTEGER id_id shw = model_config_rec%shw(id_id) RETURN END SUBROUTINE get_shw
SUBROUTINE get_parent_grid_ratio ( id_id , parent_grid_ratio ) 1,1 USE module_configure
integer , INTENT(OUT) :: parent_grid_ratio INTEGER id_id parent_grid_ratio = model_config_rec%parent_grid_ratio(id_id) RETURN END SUBROUTINE get_parent_grid_ratio
SUBROUTINE get_parent_time_step_ratio ( id_id , parent_time_step_ratio ),1 USE module_configure
integer , INTENT(OUT) :: parent_time_step_ratio INTEGER id_id parent_time_step_ratio = model_config_rec%parent_time_step_ratio(id_id) RETURN END SUBROUTINE get_parent_time_step_ratio
SUBROUTINE get_moad_grid_ratio ( id_id , moad_grid_ratio ),1 USE module_configure
integer , INTENT(OUT) :: moad_grid_ratio INTEGER id_id moad_grid_ratio = model_config_rec%moad_grid_ratio(id_id) RETURN END SUBROUTINE get_moad_grid_ratio
SUBROUTINE get_moad_time_step_ratio ( id_id , moad_time_step_ratio ),1 USE module_configure
integer , INTENT(OUT) :: moad_time_step_ratio INTEGER id_id moad_time_step_ratio = model_config_rec%moad_time_step_ratio(id_id) RETURN END SUBROUTINE get_moad_time_step_ratio
SUBROUTINE get_non_hydrostatic ( id_id , non_hydrostatic ),1 USE module_configure
logical , INTENT(OUT) :: non_hydrostatic INTEGER id_id non_hydrostatic = model_config_rec%non_hydrostatic(id_id) RETURN END SUBROUTINE get_non_hydrostatic
SUBROUTINE get_dx ( id_id , dx ),1 USE module_configure
real , INTENT(OUT) :: dx INTEGER id_id dx = model_config_rec%dx(id_id) RETURN END SUBROUTINE get_dx
SUBROUTINE get_dy ( id_id , dy ),1 USE module_configure
real , INTENT(OUT) :: dy INTEGER id_id dy = model_config_rec%dy(id_id) RETURN END SUBROUTINE get_dy
SUBROUTINE get_dt ( id_id , dt ),1 USE module_configure
real , INTENT(OUT) :: dt INTEGER id_id dt = model_config_rec%dt(id_id) RETURN END SUBROUTINE get_dt
SUBROUTINE get_ztop ( id_id , ztop ),1 USE module_configure
real , INTENT(OUT) :: ztop INTEGER id_id ztop = model_config_rec%ztop(id_id) RETURN END SUBROUTINE get_ztop
SUBROUTINE get_zdamp ( id_id , zdamp ),1 USE module_configure
real , INTENT(OUT) :: zdamp INTEGER id_id zdamp = model_config_rec%zdamp(id_id) RETURN END SUBROUTINE get_zdamp
SUBROUTINE get_dampcoef ( id_id , dampcoef ),1 USE module_configure
real , INTENT(OUT) :: dampcoef INTEGER id_id dampcoef = model_config_rec%dampcoef(id_id) RETURN END SUBROUTINE get_dampcoef
SUBROUTINE get_smdiv ( id_id , smdiv ),1 USE module_configure
real , INTENT(OUT) :: smdiv INTEGER id_id smdiv = model_config_rec%smdiv(id_id) RETURN END SUBROUTINE get_smdiv
SUBROUTINE get_emdiv ( id_id , emdiv ),1 USE module_configure
real , INTENT(OUT) :: emdiv INTEGER id_id emdiv = model_config_rec%emdiv(id_id) RETURN END SUBROUTINE get_emdiv
SUBROUTINE get_epssm ( id_id , epssm ),1 USE module_configure
real , INTENT(OUT) :: epssm INTEGER id_id epssm = model_config_rec%epssm(id_id) RETURN END SUBROUTINE get_epssm
SUBROUTINE get_khdif ( id_id , khdif ) 1,1 USE module_configure
real , INTENT(OUT) :: khdif INTEGER id_id khdif = model_config_rec%khdif(id_id) RETURN END SUBROUTINE get_khdif
SUBROUTINE get_kvdif ( id_id , kvdif ) 1,1 USE module_configure
real , INTENT(OUT) :: kvdif INTEGER id_id kvdif = model_config_rec%kvdif(id_id) RETURN END SUBROUTINE get_kvdif
SUBROUTINE get_mix_cr_len ( id_id , mix_cr_len ),1 USE module_configure
real , INTENT(OUT) :: mix_cr_len INTEGER id_id mix_cr_len = model_config_rec%mix_cr_len(id_id) RETURN END SUBROUTINE get_mix_cr_len
SUBROUTINE get_tke_upper_bound ( id_id , tke_upper_bound ),1 USE module_configure
real , INTENT(OUT) :: tke_upper_bound INTEGER id_id tke_upper_bound = model_config_rec%tke_upper_bound(id_id) RETURN END SUBROUTINE get_tke_upper_bound
SUBROUTINE get_kh_tke_upper_bound ( id_id , kh_tke_upper_bound ),1 USE module_configure
real , INTENT(OUT) :: kh_tke_upper_bound INTEGER id_id kh_tke_upper_bound = model_config_rec%kh_tke_upper_bound(id_id) RETURN END SUBROUTINE get_kh_tke_upper_bound
SUBROUTINE get_kv_tke_upper_bound ( id_id , kv_tke_upper_bound ),1 USE module_configure
real , INTENT(OUT) :: kv_tke_upper_bound INTEGER id_id kv_tke_upper_bound = model_config_rec%kv_tke_upper_bound(id_id) RETURN END SUBROUTINE get_kv_tke_upper_bound
SUBROUTINE get_radt ( id_id , radt ),1 USE module_configure
real , INTENT(OUT) :: radt INTEGER id_id radt = model_config_rec%radt(id_id) RETURN END SUBROUTINE get_radt
SUBROUTINE get_bldt ( id_id , bldt ),1 USE module_configure
real , INTENT(OUT) :: bldt INTEGER id_id bldt = model_config_rec%bldt(id_id) RETURN END SUBROUTINE get_bldt
SUBROUTINE get_cudt ( id_id , cudt ),1 USE module_configure
real , INTENT(OUT) :: cudt INTEGER id_id cudt = model_config_rec%cudt(id_id) RETURN END SUBROUTINE get_cudt
SUBROUTINE get_julyr ( id_id , julyr ) 3,1 USE module_configure
integer , INTENT(OUT) :: julyr INTEGER id_id julyr = model_config_rec%julyr(id_id) RETURN END SUBROUTINE get_julyr
SUBROUTINE get_julday ( id_id , julday ) 3,1 USE module_configure
integer , INTENT(OUT) :: julday INTEGER id_id julday = model_config_rec%julday(id_id) RETURN END SUBROUTINE get_julday
SUBROUTINE get_gmt ( id_id , gmt ) 3,1 USE module_configure
real , INTENT(OUT) :: gmt INTEGER id_id gmt = model_config_rec%gmt(id_id) RETURN END SUBROUTINE get_gmt
SUBROUTINE get_periodic_x ( id_id , periodic_x ),1 USE module_configure
logical , INTENT(OUT) :: periodic_x INTEGER id_id periodic_x = model_config_rec%periodic_x(id_id) RETURN END SUBROUTINE get_periodic_x
SUBROUTINE get_symmetric_xs ( id_id , symmetric_xs ),1 USE module_configure
logical , INTENT(OUT) :: symmetric_xs INTEGER id_id symmetric_xs = model_config_rec%symmetric_xs(id_id) RETURN END SUBROUTINE get_symmetric_xs
SUBROUTINE get_symmetric_xe ( id_id , symmetric_xe ),1 USE module_configure
logical , INTENT(OUT) :: symmetric_xe INTEGER id_id symmetric_xe = model_config_rec%symmetric_xe(id_id) RETURN END SUBROUTINE get_symmetric_xe
SUBROUTINE get_open_xs ( id_id , open_xs ),1 USE module_configure
logical , INTENT(OUT) :: open_xs INTEGER id_id open_xs = model_config_rec%open_xs(id_id) RETURN END SUBROUTINE get_open_xs
SUBROUTINE get_open_xe ( id_id , open_xe ),1 USE module_configure
logical , INTENT(OUT) :: open_xe INTEGER id_id open_xe = model_config_rec%open_xe(id_id) RETURN END SUBROUTINE get_open_xe
SUBROUTINE get_periodic_y ( id_id , periodic_y ),1 USE module_configure
logical , INTENT(OUT) :: periodic_y INTEGER id_id periodic_y = model_config_rec%periodic_y(id_id) RETURN END SUBROUTINE get_periodic_y
SUBROUTINE get_symmetric_ys ( id_id , symmetric_ys ),1 USE module_configure
logical , INTENT(OUT) :: symmetric_ys INTEGER id_id symmetric_ys = model_config_rec%symmetric_ys(id_id) RETURN END SUBROUTINE get_symmetric_ys
SUBROUTINE get_symmetric_ye ( id_id , symmetric_ye ),1 USE module_configure
logical , INTENT(OUT) :: symmetric_ye INTEGER id_id symmetric_ye = model_config_rec%symmetric_ye(id_id) RETURN END SUBROUTINE get_symmetric_ye
SUBROUTINE get_open_ys ( id_id , open_ys ),1 USE module_configure
logical , INTENT(OUT) :: open_ys INTEGER id_id open_ys = model_config_rec%open_ys(id_id) RETURN END SUBROUTINE get_open_ys
SUBROUTINE get_open_ye ( id_id , open_ye ),1 USE module_configure
logical , INTENT(OUT) :: open_ye INTEGER id_id open_ye = model_config_rec%open_ye(id_id) RETURN END SUBROUTINE get_open_ye
SUBROUTINE get_nested ( id_id , nested ),1 USE module_configure
logical , INTENT(OUT) :: nested INTEGER id_id nested = model_config_rec%nested(id_id) RETURN END SUBROUTINE get_nested
SUBROUTINE get_specified ( id_id , specified ),1 USE module_configure
logical , INTENT(OUT) :: specified INTEGER id_id specified = model_config_rec%specified(id_id) RETURN END SUBROUTINE get_specified
SUBROUTINE get_top_radiation ( id_id , top_radiation ),1 USE module_configure
logical , INTENT(OUT) :: top_radiation INTEGER id_id top_radiation = model_config_rec%top_radiation(id_id) RETURN END SUBROUTINE get_top_radiation
SUBROUTINE get_chem_opt ( id_id , chem_opt ),1 USE module_configure
integer , INTENT(OUT) :: chem_opt INTEGER id_id chem_opt = model_config_rec%chem_opt(id_id) RETURN END SUBROUTINE get_chem_opt
SUBROUTINE get_mp_physics ( id_id , mp_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: mp_physics INTEGER id_id mp_physics = model_config_rec%mp_physics(id_id) RETURN END SUBROUTINE get_mp_physics
SUBROUTINE get_ra_lw_physics ( id_id , ra_lw_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: ra_lw_physics INTEGER id_id ra_lw_physics = model_config_rec%ra_lw_physics(id_id) RETURN END SUBROUTINE get_ra_lw_physics
SUBROUTINE get_ra_sw_physics ( id_id , ra_sw_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: ra_sw_physics INTEGER id_id ra_sw_physics = model_config_rec%ra_sw_physics(id_id) RETURN END SUBROUTINE get_ra_sw_physics
SUBROUTINE get_bl_sfclay_physics ( id_id , bl_sfclay_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: bl_sfclay_physics INTEGER id_id bl_sfclay_physics = model_config_rec%bl_sfclay_physics(id_id) RETURN END SUBROUTINE get_bl_sfclay_physics
SUBROUTINE get_bl_surface_physics ( id_id , bl_surface_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: bl_surface_physics INTEGER id_id bl_surface_physics = model_config_rec%bl_surface_physics(id_id) RETURN END SUBROUTINE get_bl_surface_physics
SUBROUTINE get_bl_pbl_physics ( id_id , bl_pbl_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: bl_pbl_physics INTEGER id_id bl_pbl_physics = model_config_rec%bl_pbl_physics(id_id) RETURN END SUBROUTINE get_bl_pbl_physics
SUBROUTINE get_cu_physics ( id_id , cu_physics ) 1,1 USE module_configure
integer , INTENT(OUT) :: cu_physics INTEGER id_id cu_physics = model_config_rec%cu_physics(id_id) RETURN END SUBROUTINE get_cu_physics
SUBROUTINE get_h_mom_adv_order ( id_id , h_mom_adv_order ),1 USE module_configure
integer , INTENT(OUT) :: h_mom_adv_order INTEGER id_id h_mom_adv_order = model_config_rec%h_mom_adv_order(id_id) RETURN END SUBROUTINE get_h_mom_adv_order
SUBROUTINE get_v_mom_adv_order ( id_id , v_mom_adv_order ),1 USE module_configure
integer , INTENT(OUT) :: v_mom_adv_order INTEGER id_id v_mom_adv_order = model_config_rec%v_mom_adv_order(id_id) RETURN END SUBROUTINE get_v_mom_adv_order
SUBROUTINE get_h_sca_adv_order ( id_id , h_sca_adv_order ),1 USE module_configure
integer , INTENT(OUT) :: h_sca_adv_order INTEGER id_id h_sca_adv_order = model_config_rec%h_sca_adv_order(id_id) RETURN END SUBROUTINE get_h_sca_adv_order
SUBROUTINE get_v_sca_adv_order ( id_id , v_sca_adv_order ),1 USE module_configure
integer , INTENT(OUT) :: v_sca_adv_order INTEGER id_id v_sca_adv_order = model_config_rec%v_sca_adv_order(id_id) RETURN END SUBROUTINE get_v_sca_adv_order
SUBROUTINE get_io_form_input ( io_form_input ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_input io_form_input = model_config_rec%io_form_input RETURN END SUBROUTINE get_io_form_input
SUBROUTINE get_io_form_auxinput1 ( io_form_auxinput1 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxinput1 io_form_auxinput1 = model_config_rec%io_form_auxinput1 RETURN END SUBROUTINE get_io_form_auxinput1
SUBROUTINE get_io_form_auxinput2 ( io_form_auxinput2 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxinput2 io_form_auxinput2 = model_config_rec%io_form_auxinput2 RETURN END SUBROUTINE get_io_form_auxinput2
SUBROUTINE get_io_form_auxinput3 ( io_form_auxinput3 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxinput3 io_form_auxinput3 = model_config_rec%io_form_auxinput3 RETURN END SUBROUTINE get_io_form_auxinput3
SUBROUTINE get_io_form_auxinput4 ( io_form_auxinput4 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxinput4 io_form_auxinput4 = model_config_rec%io_form_auxinput4 RETURN END SUBROUTINE get_io_form_auxinput4
SUBROUTINE get_io_form_auxinput5 ( io_form_auxinput5 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxinput5 io_form_auxinput5 = model_config_rec%io_form_auxinput5 RETURN END SUBROUTINE get_io_form_auxinput5
SUBROUTINE get_io_form_history ( io_form_history ) 4,1 USE module_configure
integer , INTENT(OUT) :: io_form_history io_form_history = model_config_rec%io_form_history RETURN END SUBROUTINE get_io_form_history
SUBROUTINE get_io_form_auxhist1 ( io_form_auxhist1 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxhist1 io_form_auxhist1 = model_config_rec%io_form_auxhist1 RETURN END SUBROUTINE get_io_form_auxhist1
SUBROUTINE get_io_form_auxhist2 ( io_form_auxhist2 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxhist2 io_form_auxhist2 = model_config_rec%io_form_auxhist2 RETURN END SUBROUTINE get_io_form_auxhist2
SUBROUTINE get_io_form_auxhist3 ( io_form_auxhist3 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxhist3 io_form_auxhist3 = model_config_rec%io_form_auxhist3 RETURN END SUBROUTINE get_io_form_auxhist3
SUBROUTINE get_io_form_auxhist4 ( io_form_auxhist4 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxhist4 io_form_auxhist4 = model_config_rec%io_form_auxhist4 RETURN END SUBROUTINE get_io_form_auxhist4
SUBROUTINE get_io_form_auxhist5 ( io_form_auxhist5 ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_auxhist5 io_form_auxhist5 = model_config_rec%io_form_auxhist5 RETURN END SUBROUTINE get_io_form_auxhist5
SUBROUTINE get_io_form_restart ( io_form_restart ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_restart io_form_restart = model_config_rec%io_form_restart RETURN END SUBROUTINE get_io_form_restart
SUBROUTINE get_io_form_boundary ( io_form_boundary ) 2,1 USE module_configure
integer , INTENT(OUT) :: io_form_boundary io_form_boundary = model_config_rec%io_form_boundary RETURN END SUBROUTINE get_io_form_boundary
SUBROUTINE get_real_data_init_type ( real_data_init_type ),1 USE module_configure
integer , INTENT(OUT) :: real_data_init_type real_data_init_type = model_config_rec%real_data_init_type RETURN END SUBROUTINE get_real_data_init_type
SUBROUTINE get_cen_lat ( id_id , cen_lat ) 2,1 USE module_configure
real , INTENT(OUT) :: cen_lat INTEGER id_id cen_lat = model_config_rec%cen_lat(id_id) RETURN END SUBROUTINE get_cen_lat
SUBROUTINE get_cen_lon ( id_id , cen_lon ) 1,1 USE module_configure
real , INTENT(OUT) :: cen_lon INTEGER id_id cen_lon = model_config_rec%cen_lon(id_id) RETURN END SUBROUTINE get_cen_lon
SUBROUTINE get_truelat1 ( id_id , truelat1 ) 1,1 USE module_configure
real , INTENT(OUT) :: truelat1 INTEGER id_id truelat1 = model_config_rec%truelat1(id_id) RETURN END SUBROUTINE get_truelat1
SUBROUTINE get_truelat2 ( id_id , truelat2 ) 1,1 USE module_configure
real , INTENT(OUT) :: truelat2 INTEGER id_id truelat2 = model_config_rec%truelat2(id_id) RETURN END SUBROUTINE get_truelat2
SUBROUTINE get_bdyfrq ( id_id , bdyfrq ),1 USE module_configure
real , INTENT(OUT) :: bdyfrq INTEGER id_id bdyfrq = model_config_rec%bdyfrq(id_id) RETURN END SUBROUTINE get_bdyfrq
SUBROUTINE get_iswater ( id_id , iswater ) 4,1 USE module_configure
integer , INTENT(OUT) :: iswater INTEGER id_id iswater = model_config_rec%iswater(id_id) RETURN END SUBROUTINE get_iswater
SUBROUTINE get_isice ( id_id , isice ),1 USE module_configure
integer , INTENT(OUT) :: isice INTEGER id_id isice = model_config_rec%isice(id_id) RETURN END SUBROUTINE get_isice
SUBROUTINE get_map_proj ( id_id , map_proj ) 1,1 USE module_configure
integer , INTENT(OUT) :: map_proj INTEGER id_id map_proj = model_config_rec%map_proj(id_id) RETURN END SUBROUTINE get_map_proj
SUBROUTINE set_time_step ( time_step ),1 USE module_configure
integer , INTENT(IN) :: time_step model_config_rec%time_step = time_step RETURN END SUBROUTINE set_time_step
SUBROUTINE set_time_step_fract_num ( time_step_fract_num ),1 USE module_configure
integer , INTENT(IN) :: time_step_fract_num model_config_rec%time_step_fract_num = time_step_fract_num RETURN END SUBROUTINE set_time_step_fract_num
SUBROUTINE set_time_step_fract_den ( time_step_fract_den ),1 USE module_configure
integer , INTENT(IN) :: time_step_fract_den model_config_rec%time_step_fract_den = time_step_fract_den RETURN END SUBROUTINE set_time_step_fract_den
SUBROUTINE set_restart ( restart ),1 USE module_configure
logical , INTENT(IN) :: restart model_config_rec%restart = restart RETURN END SUBROUTINE set_restart
SUBROUTINE set_write_restart_at_0h ( write_restart_at_0h ),1 USE module_configure
logical , INTENT(IN) :: write_restart_at_0h model_config_rec%write_restart_at_0h = write_restart_at_0h RETURN END SUBROUTINE set_write_restart_at_0h
SUBROUTINE set_max_dom ( max_dom ),1 USE module_configure
integer , INTENT(IN) :: max_dom model_config_rec%max_dom = max_dom RETURN END SUBROUTINE set_max_dom
SUBROUTINE set_dyn_opt ( dyn_opt ),1 USE module_configure
integer , INTENT(IN) :: dyn_opt model_config_rec%dyn_opt = dyn_opt RETURN END SUBROUTINE set_dyn_opt
SUBROUTINE set_rk_ord ( rk_ord ),1 USE module_configure
integer , INTENT(IN) :: rk_ord model_config_rec%rk_ord = rk_ord RETURN END SUBROUTINE set_rk_ord
SUBROUTINE set_diff_opt ( diff_opt ),1 USE module_configure
integer , INTENT(IN) :: diff_opt model_config_rec%diff_opt = diff_opt RETURN END SUBROUTINE set_diff_opt
SUBROUTINE set_km_opt ( km_opt ),1 USE module_configure
integer , INTENT(IN) :: km_opt model_config_rec%km_opt = km_opt RETURN END SUBROUTINE set_km_opt
SUBROUTINE set_damp_opt ( damp_opt ),1 USE module_configure
integer , INTENT(IN) :: damp_opt model_config_rec%damp_opt = damp_opt RETURN END SUBROUTINE set_damp_opt
SUBROUTINE set_w_damping ( w_damping ),1 USE module_configure
integer , INTENT(IN) :: w_damping model_config_rec%w_damping = w_damping RETURN END SUBROUTINE set_w_damping
SUBROUTINE set_isfflx ( isfflx ),1 USE module_configure
integer , INTENT(IN) :: isfflx model_config_rec%isfflx = isfflx RETURN END SUBROUTINE set_isfflx
SUBROUTINE set_ifsnow ( ifsnow ),1 USE module_configure
integer , INTENT(IN) :: ifsnow model_config_rec%ifsnow = ifsnow RETURN END SUBROUTINE set_ifsnow
SUBROUTINE set_icloud ( icloud ),1 USE module_configure
integer , INTENT(IN) :: icloud model_config_rec%icloud = icloud RETURN END SUBROUTINE set_icloud
SUBROUTINE set_num_soil_layers ( num_soil_layers ),1 USE module_configure
integer , INTENT(IN) :: num_soil_layers model_config_rec%num_soil_layers = num_soil_layers RETURN END SUBROUTINE set_num_soil_layers
SUBROUTINE set_num_land_cat ( num_land_cat ),1 USE module_configure
integer , INTENT(IN) :: num_land_cat model_config_rec%num_land_cat = num_land_cat RETURN END SUBROUTINE set_num_land_cat
SUBROUTINE set_num_soil_cat ( num_soil_cat ),1 USE module_configure
integer , INTENT(IN) :: num_soil_cat model_config_rec%num_soil_cat = num_soil_cat RETURN END SUBROUTINE set_num_soil_cat
SUBROUTINE set_spec_bdy_width ( spec_bdy_width ),1 USE module_configure
integer , INTENT(IN) :: spec_bdy_width model_config_rec%spec_bdy_width = spec_bdy_width RETURN END SUBROUTINE set_spec_bdy_width
SUBROUTINE set_spec_zone ( spec_zone ),1 USE module_configure
integer , INTENT(IN) :: spec_zone model_config_rec%spec_zone = spec_zone RETURN END SUBROUTINE set_spec_zone
SUBROUTINE set_relax_zone ( relax_zone ),1 USE module_configure
integer , INTENT(IN) :: relax_zone model_config_rec%relax_zone = relax_zone RETURN END SUBROUTINE set_relax_zone
SUBROUTINE set_tile_sz_x ( tile_sz_x ),1 USE module_configure
integer , INTENT(IN) :: tile_sz_x model_config_rec%tile_sz_x = tile_sz_x RETURN END SUBROUTINE set_tile_sz_x
SUBROUTINE set_tile_sz_y ( tile_sz_y ),1 USE module_configure
integer , INTENT(IN) :: tile_sz_y model_config_rec%tile_sz_y = tile_sz_y RETURN END SUBROUTINE set_tile_sz_y
SUBROUTINE set_numtiles ( numtiles ),1 USE module_configure
integer , INTENT(IN) :: numtiles model_config_rec%numtiles = numtiles RETURN END SUBROUTINE set_numtiles
SUBROUTINE set_debug_level ( debug_level ),1 USE module_configure
integer , INTENT(IN) :: debug_level model_config_rec%debug_level = debug_level RETURN END SUBROUTINE set_debug_level
SUBROUTINE set_irand ( irand ),1 USE module_configure
integer , INTENT(IN) :: irand model_config_rec%irand = irand RETURN END SUBROUTINE set_irand
SUBROUTINE set_run_days ( run_days ),1 USE module_configure
integer , INTENT(IN) :: run_days model_config_rec%run_days = run_days RETURN END SUBROUTINE set_run_days
SUBROUTINE set_run_hours ( run_hours ),1 USE module_configure
integer , INTENT(IN) :: run_hours model_config_rec%run_hours = run_hours RETURN END SUBROUTINE set_run_hours
SUBROUTINE set_run_minutes ( run_minutes ),1 USE module_configure
integer , INTENT(IN) :: run_minutes model_config_rec%run_minutes = run_minutes RETURN END SUBROUTINE set_run_minutes
SUBROUTINE set_run_seconds ( run_seconds ),1 USE module_configure
integer , INTENT(IN) :: run_seconds model_config_rec%run_seconds = run_seconds RETURN END SUBROUTINE set_run_seconds
SUBROUTINE set_start_year ( id_id , start_year ),1 USE module_configure
integer , INTENT(IN) :: start_year INTEGER id_id model_config_rec%start_year(id_id) = start_year RETURN END SUBROUTINE set_start_year
SUBROUTINE set_start_month ( id_id , start_month ),1 USE module_configure
integer , INTENT(IN) :: start_month INTEGER id_id model_config_rec%start_month(id_id) = start_month RETURN END SUBROUTINE set_start_month
SUBROUTINE set_start_day ( id_id , start_day ),1 USE module_configure
integer , INTENT(IN) :: start_day INTEGER id_id model_config_rec%start_day(id_id) = start_day RETURN END SUBROUTINE set_start_day
SUBROUTINE set_start_hour ( id_id , start_hour ),1 USE module_configure
integer , INTENT(IN) :: start_hour INTEGER id_id model_config_rec%start_hour(id_id) = start_hour RETURN END SUBROUTINE set_start_hour
SUBROUTINE set_start_minute ( id_id , start_minute ),1 USE module_configure
integer , INTENT(IN) :: start_minute INTEGER id_id model_config_rec%start_minute(id_id) = start_minute RETURN END SUBROUTINE set_start_minute
SUBROUTINE set_start_second ( id_id , start_second ),1 USE module_configure
integer , INTENT(IN) :: start_second INTEGER id_id model_config_rec%start_second(id_id) = start_second RETURN END SUBROUTINE set_start_second
SUBROUTINE set_end_year ( id_id , end_year ),1 USE module_configure
integer , INTENT(IN) :: end_year INTEGER id_id model_config_rec%end_year(id_id) = end_year RETURN END SUBROUTINE set_end_year
SUBROUTINE set_end_month ( id_id , end_month ),1 USE module_configure
integer , INTENT(IN) :: end_month INTEGER id_id model_config_rec%end_month(id_id) = end_month RETURN END SUBROUTINE set_end_month
SUBROUTINE set_end_day ( id_id , end_day ),1 USE module_configure
integer , INTENT(IN) :: end_day INTEGER id_id model_config_rec%end_day(id_id) = end_day RETURN END SUBROUTINE set_end_day
SUBROUTINE set_end_hour ( id_id , end_hour ),1 USE module_configure
integer , INTENT(IN) :: end_hour INTEGER id_id model_config_rec%end_hour(id_id) = end_hour RETURN END SUBROUTINE set_end_hour
SUBROUTINE set_end_minute ( id_id , end_minute ),1 USE module_configure
integer , INTENT(IN) :: end_minute INTEGER id_id model_config_rec%end_minute(id_id) = end_minute RETURN END SUBROUTINE set_end_minute
SUBROUTINE set_end_second ( id_id , end_second ),1 USE module_configure
integer , INTENT(IN) :: end_second INTEGER id_id model_config_rec%end_second(id_id) = end_second RETURN END SUBROUTINE set_end_second
SUBROUTINE set_interval_seconds ( interval_seconds ),1 USE module_configure
integer , INTENT(IN) :: interval_seconds model_config_rec%interval_seconds = interval_seconds RETURN END SUBROUTINE set_interval_seconds
SUBROUTINE set_grid_id ( id_id , grid_id ),1 USE module_configure
integer , INTENT(IN) :: grid_id INTEGER id_id model_config_rec%grid_id(id_id) = grid_id RETURN END SUBROUTINE set_grid_id
SUBROUTINE set_level ( id_id , level ),1 USE module_configure
integer , INTENT(IN) :: level INTEGER id_id model_config_rec%level(id_id) = level RETURN END SUBROUTINE set_level
SUBROUTINE set_s_we ( id_id , s_we ),1 USE module_configure
integer , INTENT(IN) :: s_we INTEGER id_id model_config_rec%s_we(id_id) = s_we RETURN END SUBROUTINE set_s_we
SUBROUTINE set_e_we ( id_id , e_we ),1 USE module_configure
integer , INTENT(IN) :: e_we INTEGER id_id model_config_rec%e_we(id_id) = e_we RETURN END SUBROUTINE set_e_we
SUBROUTINE set_s_sn ( id_id , s_sn ),1 USE module_configure
integer , INTENT(IN) :: s_sn INTEGER id_id model_config_rec%s_sn(id_id) = s_sn RETURN END SUBROUTINE set_s_sn
SUBROUTINE set_e_sn ( id_id , e_sn ),1 USE module_configure
integer , INTENT(IN) :: e_sn INTEGER id_id model_config_rec%e_sn(id_id) = e_sn RETURN END SUBROUTINE set_e_sn
SUBROUTINE set_s_vert ( id_id , s_vert ),1 USE module_configure
integer , INTENT(IN) :: s_vert INTEGER id_id model_config_rec%s_vert(id_id) = s_vert RETURN END SUBROUTINE set_s_vert
SUBROUTINE set_e_vert ( id_id , e_vert ),1 USE module_configure
integer , INTENT(IN) :: e_vert INTEGER id_id model_config_rec%e_vert(id_id) = e_vert RETURN END SUBROUTINE set_e_vert
SUBROUTINE set_history_interval_mo ( id_id , history_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: history_interval_mo INTEGER id_id model_config_rec%history_interval_mo(id_id) = history_interval_mo RETURN END SUBROUTINE set_history_interval_mo
SUBROUTINE set_history_interval_d ( id_id , history_interval_d ),1 USE module_configure
integer , INTENT(IN) :: history_interval_d INTEGER id_id model_config_rec%history_interval_d(id_id) = history_interval_d RETURN END SUBROUTINE set_history_interval_d
SUBROUTINE set_history_interval_h ( id_id , history_interval_h ),1 USE module_configure
integer , INTENT(IN) :: history_interval_h INTEGER id_id model_config_rec%history_interval_h(id_id) = history_interval_h RETURN END SUBROUTINE set_history_interval_h
SUBROUTINE set_history_interval_m ( id_id , history_interval_m ),1 USE module_configure
integer , INTENT(IN) :: history_interval_m INTEGER id_id model_config_rec%history_interval_m(id_id) = history_interval_m RETURN END SUBROUTINE set_history_interval_m
SUBROUTINE set_history_interval_s ( id_id , history_interval_s ),1 USE module_configure
integer , INTENT(IN) :: history_interval_s INTEGER id_id model_config_rec%history_interval_s(id_id) = history_interval_s RETURN END SUBROUTINE set_history_interval_s
SUBROUTINE set_history_interval ( id_id , history_interval ),1 USE module_configure
integer , INTENT(IN) :: history_interval INTEGER id_id model_config_rec%history_interval(id_id) = history_interval RETURN END SUBROUTINE set_history_interval
SUBROUTINE set_auxhist1_interval_mo ( id_id , auxhist1_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval_mo INTEGER id_id model_config_rec%auxhist1_interval_mo(id_id) = auxhist1_interval_mo RETURN END SUBROUTINE set_auxhist1_interval_mo
SUBROUTINE set_auxhist1_interval_d ( id_id , auxhist1_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval_d INTEGER id_id model_config_rec%auxhist1_interval_d(id_id) = auxhist1_interval_d RETURN END SUBROUTINE set_auxhist1_interval_d
SUBROUTINE set_auxhist1_interval_h ( id_id , auxhist1_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval_h INTEGER id_id model_config_rec%auxhist1_interval_h(id_id) = auxhist1_interval_h RETURN END SUBROUTINE set_auxhist1_interval_h
SUBROUTINE set_auxhist1_interval_m ( id_id , auxhist1_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval_m INTEGER id_id model_config_rec%auxhist1_interval_m(id_id) = auxhist1_interval_m RETURN END SUBROUTINE set_auxhist1_interval_m
SUBROUTINE set_auxhist1_interval_s ( id_id , auxhist1_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval_s INTEGER id_id model_config_rec%auxhist1_interval_s(id_id) = auxhist1_interval_s RETURN END SUBROUTINE set_auxhist1_interval_s
SUBROUTINE set_auxhist1_interval ( id_id , auxhist1_interval ),1 USE module_configure
integer , INTENT(IN) :: auxhist1_interval INTEGER id_id model_config_rec%auxhist1_interval(id_id) = auxhist1_interval RETURN END SUBROUTINE set_auxhist1_interval
SUBROUTINE set_auxhist2_interval_mo ( id_id , auxhist2_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval_mo INTEGER id_id model_config_rec%auxhist2_interval_mo(id_id) = auxhist2_interval_mo RETURN END SUBROUTINE set_auxhist2_interval_mo
SUBROUTINE set_auxhist2_interval_d ( id_id , auxhist2_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval_d INTEGER id_id model_config_rec%auxhist2_interval_d(id_id) = auxhist2_interval_d RETURN END SUBROUTINE set_auxhist2_interval_d
SUBROUTINE set_auxhist2_interval_h ( id_id , auxhist2_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval_h INTEGER id_id model_config_rec%auxhist2_interval_h(id_id) = auxhist2_interval_h RETURN END SUBROUTINE set_auxhist2_interval_h
SUBROUTINE set_auxhist2_interval_m ( id_id , auxhist2_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval_m INTEGER id_id model_config_rec%auxhist2_interval_m(id_id) = auxhist2_interval_m RETURN END SUBROUTINE set_auxhist2_interval_m
SUBROUTINE set_auxhist2_interval_s ( id_id , auxhist2_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval_s INTEGER id_id model_config_rec%auxhist2_interval_s(id_id) = auxhist2_interval_s RETURN END SUBROUTINE set_auxhist2_interval_s
SUBROUTINE set_auxhist2_interval ( id_id , auxhist2_interval ),1 USE module_configure
integer , INTENT(IN) :: auxhist2_interval INTEGER id_id model_config_rec%auxhist2_interval(id_id) = auxhist2_interval RETURN END SUBROUTINE set_auxhist2_interval
SUBROUTINE set_auxhist3_interval_mo ( id_id , auxhist3_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval_mo INTEGER id_id model_config_rec%auxhist3_interval_mo(id_id) = auxhist3_interval_mo RETURN END SUBROUTINE set_auxhist3_interval_mo
SUBROUTINE set_auxhist3_interval_d ( id_id , auxhist3_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval_d INTEGER id_id model_config_rec%auxhist3_interval_d(id_id) = auxhist3_interval_d RETURN END SUBROUTINE set_auxhist3_interval_d
SUBROUTINE set_auxhist3_interval_h ( id_id , auxhist3_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval_h INTEGER id_id model_config_rec%auxhist3_interval_h(id_id) = auxhist3_interval_h RETURN END SUBROUTINE set_auxhist3_interval_h
SUBROUTINE set_auxhist3_interval_m ( id_id , auxhist3_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval_m INTEGER id_id model_config_rec%auxhist3_interval_m(id_id) = auxhist3_interval_m RETURN END SUBROUTINE set_auxhist3_interval_m
SUBROUTINE set_auxhist3_interval_s ( id_id , auxhist3_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval_s INTEGER id_id model_config_rec%auxhist3_interval_s(id_id) = auxhist3_interval_s RETURN END SUBROUTINE set_auxhist3_interval_s
SUBROUTINE set_auxhist3_interval ( id_id , auxhist3_interval ),1 USE module_configure
integer , INTENT(IN) :: auxhist3_interval INTEGER id_id model_config_rec%auxhist3_interval(id_id) = auxhist3_interval RETURN END SUBROUTINE set_auxhist3_interval
SUBROUTINE set_auxhist4_interval_mo ( id_id , auxhist4_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval_mo INTEGER id_id model_config_rec%auxhist4_interval_mo(id_id) = auxhist4_interval_mo RETURN END SUBROUTINE set_auxhist4_interval_mo
SUBROUTINE set_auxhist4_interval_d ( id_id , auxhist4_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval_d INTEGER id_id model_config_rec%auxhist4_interval_d(id_id) = auxhist4_interval_d RETURN END SUBROUTINE set_auxhist4_interval_d
SUBROUTINE set_auxhist4_interval_h ( id_id , auxhist4_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval_h INTEGER id_id model_config_rec%auxhist4_interval_h(id_id) = auxhist4_interval_h RETURN END SUBROUTINE set_auxhist4_interval_h
SUBROUTINE set_auxhist4_interval_m ( id_id , auxhist4_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval_m INTEGER id_id model_config_rec%auxhist4_interval_m(id_id) = auxhist4_interval_m RETURN END SUBROUTINE set_auxhist4_interval_m
SUBROUTINE set_auxhist4_interval_s ( id_id , auxhist4_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval_s INTEGER id_id model_config_rec%auxhist4_interval_s(id_id) = auxhist4_interval_s RETURN END SUBROUTINE set_auxhist4_interval_s
SUBROUTINE set_auxhist4_interval ( id_id , auxhist4_interval ),1 USE module_configure
integer , INTENT(IN) :: auxhist4_interval INTEGER id_id model_config_rec%auxhist4_interval(id_id) = auxhist4_interval RETURN END SUBROUTINE set_auxhist4_interval
SUBROUTINE set_auxhist5_interval_mo ( id_id , auxhist5_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval_mo INTEGER id_id model_config_rec%auxhist5_interval_mo(id_id) = auxhist5_interval_mo RETURN END SUBROUTINE set_auxhist5_interval_mo
SUBROUTINE set_auxhist5_interval_d ( id_id , auxhist5_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval_d INTEGER id_id model_config_rec%auxhist5_interval_d(id_id) = auxhist5_interval_d RETURN END SUBROUTINE set_auxhist5_interval_d
SUBROUTINE set_auxhist5_interval_h ( id_id , auxhist5_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval_h INTEGER id_id model_config_rec%auxhist5_interval_h(id_id) = auxhist5_interval_h RETURN END SUBROUTINE set_auxhist5_interval_h
SUBROUTINE set_auxhist5_interval_m ( id_id , auxhist5_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval_m INTEGER id_id model_config_rec%auxhist5_interval_m(id_id) = auxhist5_interval_m RETURN END SUBROUTINE set_auxhist5_interval_m
SUBROUTINE set_auxhist5_interval_s ( id_id , auxhist5_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval_s INTEGER id_id model_config_rec%auxhist5_interval_s(id_id) = auxhist5_interval_s RETURN END SUBROUTINE set_auxhist5_interval_s
SUBROUTINE set_auxhist5_interval ( id_id , auxhist5_interval ),1 USE module_configure
integer , INTENT(IN) :: auxhist5_interval INTEGER id_id model_config_rec%auxhist5_interval(id_id) = auxhist5_interval RETURN END SUBROUTINE set_auxhist5_interval
SUBROUTINE set_auxinput1_interval_mo ( id_id , auxinput1_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval_mo INTEGER id_id model_config_rec%auxinput1_interval_mo(id_id) = auxinput1_interval_mo RETURN END SUBROUTINE set_auxinput1_interval_mo
SUBROUTINE set_auxinput1_interval_d ( id_id , auxinput1_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval_d INTEGER id_id model_config_rec%auxinput1_interval_d(id_id) = auxinput1_interval_d RETURN END SUBROUTINE set_auxinput1_interval_d
SUBROUTINE set_auxinput1_interval_h ( id_id , auxinput1_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval_h INTEGER id_id model_config_rec%auxinput1_interval_h(id_id) = auxinput1_interval_h RETURN END SUBROUTINE set_auxinput1_interval_h
SUBROUTINE set_auxinput1_interval_m ( id_id , auxinput1_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval_m INTEGER id_id model_config_rec%auxinput1_interval_m(id_id) = auxinput1_interval_m RETURN END SUBROUTINE set_auxinput1_interval_m
SUBROUTINE set_auxinput1_interval_s ( id_id , auxinput1_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval_s INTEGER id_id model_config_rec%auxinput1_interval_s(id_id) = auxinput1_interval_s RETURN END SUBROUTINE set_auxinput1_interval_s
SUBROUTINE set_auxinput1_interval ( id_id , auxinput1_interval ),1 USE module_configure
integer , INTENT(IN) :: auxinput1_interval INTEGER id_id model_config_rec%auxinput1_interval(id_id) = auxinput1_interval RETURN END SUBROUTINE set_auxinput1_interval
SUBROUTINE set_auxinput2_interval_mo ( id_id , auxinput2_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval_mo INTEGER id_id model_config_rec%auxinput2_interval_mo(id_id) = auxinput2_interval_mo RETURN END SUBROUTINE set_auxinput2_interval_mo
SUBROUTINE set_auxinput2_interval_d ( id_id , auxinput2_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval_d INTEGER id_id model_config_rec%auxinput2_interval_d(id_id) = auxinput2_interval_d RETURN END SUBROUTINE set_auxinput2_interval_d
SUBROUTINE set_auxinput2_interval_h ( id_id , auxinput2_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval_h INTEGER id_id model_config_rec%auxinput2_interval_h(id_id) = auxinput2_interval_h RETURN END SUBROUTINE set_auxinput2_interval_h
SUBROUTINE set_auxinput2_interval_m ( id_id , auxinput2_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval_m INTEGER id_id model_config_rec%auxinput2_interval_m(id_id) = auxinput2_interval_m RETURN END SUBROUTINE set_auxinput2_interval_m
SUBROUTINE set_auxinput2_interval_s ( id_id , auxinput2_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval_s INTEGER id_id model_config_rec%auxinput2_interval_s(id_id) = auxinput2_interval_s RETURN END SUBROUTINE set_auxinput2_interval_s
SUBROUTINE set_auxinput2_interval ( id_id , auxinput2_interval ),1 USE module_configure
integer , INTENT(IN) :: auxinput2_interval INTEGER id_id model_config_rec%auxinput2_interval(id_id) = auxinput2_interval RETURN END SUBROUTINE set_auxinput2_interval
SUBROUTINE set_auxinput3_interval_mo ( id_id , auxinput3_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval_mo INTEGER id_id model_config_rec%auxinput3_interval_mo(id_id) = auxinput3_interval_mo RETURN END SUBROUTINE set_auxinput3_interval_mo
SUBROUTINE set_auxinput3_interval_d ( id_id , auxinput3_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval_d INTEGER id_id model_config_rec%auxinput3_interval_d(id_id) = auxinput3_interval_d RETURN END SUBROUTINE set_auxinput3_interval_d
SUBROUTINE set_auxinput3_interval_h ( id_id , auxinput3_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval_h INTEGER id_id model_config_rec%auxinput3_interval_h(id_id) = auxinput3_interval_h RETURN END SUBROUTINE set_auxinput3_interval_h
SUBROUTINE set_auxinput3_interval_m ( id_id , auxinput3_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval_m INTEGER id_id model_config_rec%auxinput3_interval_m(id_id) = auxinput3_interval_m RETURN END SUBROUTINE set_auxinput3_interval_m
SUBROUTINE set_auxinput3_interval_s ( id_id , auxinput3_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval_s INTEGER id_id model_config_rec%auxinput3_interval_s(id_id) = auxinput3_interval_s RETURN END SUBROUTINE set_auxinput3_interval_s
SUBROUTINE set_auxinput3_interval ( id_id , auxinput3_interval ),1 USE module_configure
integer , INTENT(IN) :: auxinput3_interval INTEGER id_id model_config_rec%auxinput3_interval(id_id) = auxinput3_interval RETURN END SUBROUTINE set_auxinput3_interval
SUBROUTINE set_auxinput4_interval_mo ( id_id , auxinput4_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval_mo INTEGER id_id model_config_rec%auxinput4_interval_mo(id_id) = auxinput4_interval_mo RETURN END SUBROUTINE set_auxinput4_interval_mo
SUBROUTINE set_auxinput4_interval_d ( id_id , auxinput4_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval_d INTEGER id_id model_config_rec%auxinput4_interval_d(id_id) = auxinput4_interval_d RETURN END SUBROUTINE set_auxinput4_interval_d
SUBROUTINE set_auxinput4_interval_h ( id_id , auxinput4_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval_h INTEGER id_id model_config_rec%auxinput4_interval_h(id_id) = auxinput4_interval_h RETURN END SUBROUTINE set_auxinput4_interval_h
SUBROUTINE set_auxinput4_interval_m ( id_id , auxinput4_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval_m INTEGER id_id model_config_rec%auxinput4_interval_m(id_id) = auxinput4_interval_m RETURN END SUBROUTINE set_auxinput4_interval_m
SUBROUTINE set_auxinput4_interval_s ( id_id , auxinput4_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval_s INTEGER id_id model_config_rec%auxinput4_interval_s(id_id) = auxinput4_interval_s RETURN END SUBROUTINE set_auxinput4_interval_s
SUBROUTINE set_auxinput4_interval ( id_id , auxinput4_interval ),1 USE module_configure
integer , INTENT(IN) :: auxinput4_interval INTEGER id_id model_config_rec%auxinput4_interval(id_id) = auxinput4_interval RETURN END SUBROUTINE set_auxinput4_interval
SUBROUTINE set_auxinput5_interval_mo ( id_id , auxinput5_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval_mo INTEGER id_id model_config_rec%auxinput5_interval_mo(id_id) = auxinput5_interval_mo RETURN END SUBROUTINE set_auxinput5_interval_mo
SUBROUTINE set_auxinput5_interval_d ( id_id , auxinput5_interval_d ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval_d INTEGER id_id model_config_rec%auxinput5_interval_d(id_id) = auxinput5_interval_d RETURN END SUBROUTINE set_auxinput5_interval_d
SUBROUTINE set_auxinput5_interval_h ( id_id , auxinput5_interval_h ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval_h INTEGER id_id model_config_rec%auxinput5_interval_h(id_id) = auxinput5_interval_h RETURN END SUBROUTINE set_auxinput5_interval_h
SUBROUTINE set_auxinput5_interval_m ( id_id , auxinput5_interval_m ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval_m INTEGER id_id model_config_rec%auxinput5_interval_m(id_id) = auxinput5_interval_m RETURN END SUBROUTINE set_auxinput5_interval_m
SUBROUTINE set_auxinput5_interval_s ( id_id , auxinput5_interval_s ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval_s INTEGER id_id model_config_rec%auxinput5_interval_s(id_id) = auxinput5_interval_s RETURN END SUBROUTINE set_auxinput5_interval_s
SUBROUTINE set_auxinput5_interval ( id_id , auxinput5_interval ),1 USE module_configure
integer , INTENT(IN) :: auxinput5_interval INTEGER id_id model_config_rec%auxinput5_interval(id_id) = auxinput5_interval RETURN END SUBROUTINE set_auxinput5_interval
SUBROUTINE set_restart_interval_mo ( restart_interval_mo ),1 USE module_configure
integer , INTENT(IN) :: restart_interval_mo model_config_rec%restart_interval_mo = restart_interval_mo RETURN END SUBROUTINE set_restart_interval_mo
SUBROUTINE set_restart_interval_d ( restart_interval_d ),1 USE module_configure
integer , INTENT(IN) :: restart_interval_d model_config_rec%restart_interval_d = restart_interval_d RETURN END SUBROUTINE set_restart_interval_d
SUBROUTINE set_restart_interval_h ( restart_interval_h ),1 USE module_configure
integer , INTENT(IN) :: restart_interval_h model_config_rec%restart_interval_h = restart_interval_h RETURN END SUBROUTINE set_restart_interval_h
SUBROUTINE set_restart_interval_m ( restart_interval_m ),1 USE module_configure
integer , INTENT(IN) :: restart_interval_m model_config_rec%restart_interval_m = restart_interval_m RETURN END SUBROUTINE set_restart_interval_m
SUBROUTINE set_restart_interval_s ( restart_interval_s ),1 USE module_configure
integer , INTENT(IN) :: restart_interval_s model_config_rec%restart_interval_s = restart_interval_s RETURN END SUBROUTINE set_restart_interval_s
SUBROUTINE set_restart_interval ( restart_interval ),1 USE module_configure
integer , INTENT(IN) :: restart_interval model_config_rec%restart_interval = restart_interval RETURN END SUBROUTINE set_restart_interval
SUBROUTINE set_frames_per_outfile ( id_id , frames_per_outfile ),1 USE module_configure
integer , INTENT(IN) :: frames_per_outfile INTEGER id_id model_config_rec%frames_per_outfile(id_id) = frames_per_outfile RETURN END SUBROUTINE set_frames_per_outfile
SUBROUTINE set_time_step_sound ( id_id , time_step_sound ),1 USE module_configure
integer , INTENT(IN) :: time_step_sound INTEGER id_id model_config_rec%time_step_sound(id_id) = time_step_sound RETURN END SUBROUTINE set_time_step_sound
SUBROUTINE set_parent_id ( id_id , parent_id ),1 USE module_configure
integer , INTENT(IN) :: parent_id INTEGER id_id model_config_rec%parent_id(id_id) = parent_id RETURN END SUBROUTINE set_parent_id
SUBROUTINE set_i_parent_start ( id_id , i_parent_start ) 1,1 USE module_configure
integer , INTENT(IN) :: i_parent_start INTEGER id_id model_config_rec%i_parent_start(id_id) = i_parent_start RETURN END SUBROUTINE set_i_parent_start
SUBROUTINE set_j_parent_start ( id_id , j_parent_start ) 1,1 USE module_configure
integer , INTENT(IN) :: j_parent_start INTEGER id_id model_config_rec%j_parent_start(id_id) = j_parent_start RETURN END SUBROUTINE set_j_parent_start
SUBROUTINE set_shw ( id_id , shw ),1 USE module_configure
integer , INTENT(IN) :: shw INTEGER id_id model_config_rec%shw(id_id) = shw RETURN END SUBROUTINE set_shw
SUBROUTINE set_parent_grid_ratio ( id_id , parent_grid_ratio ),1 USE module_configure
integer , INTENT(IN) :: parent_grid_ratio INTEGER id_id model_config_rec%parent_grid_ratio(id_id) = parent_grid_ratio RETURN END SUBROUTINE set_parent_grid_ratio
SUBROUTINE set_parent_time_step_ratio ( id_id , parent_time_step_ratio ),1 USE module_configure
integer , INTENT(IN) :: parent_time_step_ratio INTEGER id_id model_config_rec%parent_time_step_ratio(id_id) = parent_time_step_ratio RETURN END SUBROUTINE set_parent_time_step_ratio
SUBROUTINE set_moad_grid_ratio ( id_id , moad_grid_ratio ),1 USE module_configure
integer , INTENT(IN) :: moad_grid_ratio INTEGER id_id model_config_rec%moad_grid_ratio(id_id) = moad_grid_ratio RETURN END SUBROUTINE set_moad_grid_ratio
SUBROUTINE set_moad_time_step_ratio ( id_id , moad_time_step_ratio ),1 USE module_configure
integer , INTENT(IN) :: moad_time_step_ratio INTEGER id_id model_config_rec%moad_time_step_ratio(id_id) = moad_time_step_ratio RETURN END SUBROUTINE set_moad_time_step_ratio
SUBROUTINE set_non_hydrostatic ( id_id , non_hydrostatic ),1 USE module_configure
logical , INTENT(IN) :: non_hydrostatic INTEGER id_id model_config_rec%non_hydrostatic(id_id) = non_hydrostatic RETURN END SUBROUTINE set_non_hydrostatic
SUBROUTINE set_dx ( id_id , dx ),1 USE module_configure
real , INTENT(IN) :: dx INTEGER id_id model_config_rec%dx(id_id) = dx RETURN END SUBROUTINE set_dx
SUBROUTINE set_dy ( id_id , dy ),1 USE module_configure
real , INTENT(IN) :: dy INTEGER id_id model_config_rec%dy(id_id) = dy RETURN END SUBROUTINE set_dy
SUBROUTINE set_dt ( id_id , dt ) 1,1 USE module_configure
real , INTENT(IN) :: dt INTEGER id_id model_config_rec%dt(id_id) = dt RETURN END SUBROUTINE set_dt
SUBROUTINE set_ztop ( id_id , ztop ),1 USE module_configure
real , INTENT(IN) :: ztop INTEGER id_id model_config_rec%ztop(id_id) = ztop RETURN END SUBROUTINE set_ztop
SUBROUTINE set_zdamp ( id_id , zdamp ),1 USE module_configure
real , INTENT(IN) :: zdamp INTEGER id_id model_config_rec%zdamp(id_id) = zdamp RETURN END SUBROUTINE set_zdamp
SUBROUTINE set_dampcoef ( id_id , dampcoef ),1 USE module_configure
real , INTENT(IN) :: dampcoef INTEGER id_id model_config_rec%dampcoef(id_id) = dampcoef RETURN END SUBROUTINE set_dampcoef
SUBROUTINE set_smdiv ( id_id , smdiv ),1 USE module_configure
real , INTENT(IN) :: smdiv INTEGER id_id model_config_rec%smdiv(id_id) = smdiv RETURN END SUBROUTINE set_smdiv
SUBROUTINE set_emdiv ( id_id , emdiv ),1 USE module_configure
real , INTENT(IN) :: emdiv INTEGER id_id model_config_rec%emdiv(id_id) = emdiv RETURN END SUBROUTINE set_emdiv
SUBROUTINE set_epssm ( id_id , epssm ),1 USE module_configure
real , INTENT(IN) :: epssm INTEGER id_id model_config_rec%epssm(id_id) = epssm RETURN END SUBROUTINE set_epssm
SUBROUTINE set_khdif ( id_id , khdif ),1 USE module_configure
real , INTENT(IN) :: khdif INTEGER id_id model_config_rec%khdif(id_id) = khdif RETURN END SUBROUTINE set_khdif
SUBROUTINE set_kvdif ( id_id , kvdif ),1 USE module_configure
real , INTENT(IN) :: kvdif INTEGER id_id model_config_rec%kvdif(id_id) = kvdif RETURN END SUBROUTINE set_kvdif
SUBROUTINE set_mix_cr_len ( id_id , mix_cr_len ),1 USE module_configure
real , INTENT(IN) :: mix_cr_len INTEGER id_id model_config_rec%mix_cr_len(id_id) = mix_cr_len RETURN END SUBROUTINE set_mix_cr_len
SUBROUTINE set_tke_upper_bound ( id_id , tke_upper_bound ),1 USE module_configure
real , INTENT(IN) :: tke_upper_bound INTEGER id_id model_config_rec%tke_upper_bound(id_id) = tke_upper_bound RETURN END SUBROUTINE set_tke_upper_bound
SUBROUTINE set_kh_tke_upper_bound ( id_id , kh_tke_upper_bound ),1 USE module_configure
real , INTENT(IN) :: kh_tke_upper_bound INTEGER id_id model_config_rec%kh_tke_upper_bound(id_id) = kh_tke_upper_bound RETURN END SUBROUTINE set_kh_tke_upper_bound
SUBROUTINE set_kv_tke_upper_bound ( id_id , kv_tke_upper_bound ),1 USE module_configure
real , INTENT(IN) :: kv_tke_upper_bound INTEGER id_id model_config_rec%kv_tke_upper_bound(id_id) = kv_tke_upper_bound RETURN END SUBROUTINE set_kv_tke_upper_bound
SUBROUTINE set_radt ( id_id , radt ),1 USE module_configure
real , INTENT(IN) :: radt INTEGER id_id model_config_rec%radt(id_id) = radt RETURN END SUBROUTINE set_radt
SUBROUTINE set_bldt ( id_id , bldt ),1 USE module_configure
real , INTENT(IN) :: bldt INTEGER id_id model_config_rec%bldt(id_id) = bldt RETURN END SUBROUTINE set_bldt
SUBROUTINE set_cudt ( id_id , cudt ),1 USE module_configure
real , INTENT(IN) :: cudt INTEGER id_id model_config_rec%cudt(id_id) = cudt RETURN END SUBROUTINE set_cudt
SUBROUTINE set_julyr ( id_id , julyr ) 7,1 USE module_configure
integer , INTENT(IN) :: julyr INTEGER id_id model_config_rec%julyr(id_id) = julyr RETURN END SUBROUTINE set_julyr
SUBROUTINE set_julday ( id_id , julday ) 7,1 USE module_configure
integer , INTENT(IN) :: julday INTEGER id_id model_config_rec%julday(id_id) = julday RETURN END SUBROUTINE set_julday
SUBROUTINE set_gmt ( id_id , gmt ) 7,1 USE module_configure
real , INTENT(IN) :: gmt INTEGER id_id model_config_rec%gmt(id_id) = gmt RETURN END SUBROUTINE set_gmt
SUBROUTINE set_periodic_x ( id_id , periodic_x ),1 USE module_configure
logical , INTENT(IN) :: periodic_x INTEGER id_id model_config_rec%periodic_x(id_id) = periodic_x RETURN END SUBROUTINE set_periodic_x
SUBROUTINE set_symmetric_xs ( id_id , symmetric_xs ),1 USE module_configure
logical , INTENT(IN) :: symmetric_xs INTEGER id_id model_config_rec%symmetric_xs(id_id) = symmetric_xs RETURN END SUBROUTINE set_symmetric_xs
SUBROUTINE set_symmetric_xe ( id_id , symmetric_xe ),1 USE module_configure
logical , INTENT(IN) :: symmetric_xe INTEGER id_id model_config_rec%symmetric_xe(id_id) = symmetric_xe RETURN END SUBROUTINE set_symmetric_xe
SUBROUTINE set_open_xs ( id_id , open_xs ),1 USE module_configure
logical , INTENT(IN) :: open_xs INTEGER id_id model_config_rec%open_xs(id_id) = open_xs RETURN END SUBROUTINE set_open_xs
SUBROUTINE set_open_xe ( id_id , open_xe ),1 USE module_configure
logical , INTENT(IN) :: open_xe INTEGER id_id model_config_rec%open_xe(id_id) = open_xe RETURN END SUBROUTINE set_open_xe
SUBROUTINE set_periodic_y ( id_id , periodic_y ),1 USE module_configure
logical , INTENT(IN) :: periodic_y INTEGER id_id model_config_rec%periodic_y(id_id) = periodic_y RETURN END SUBROUTINE set_periodic_y
SUBROUTINE set_symmetric_ys ( id_id , symmetric_ys ),1 USE module_configure
logical , INTENT(IN) :: symmetric_ys INTEGER id_id model_config_rec%symmetric_ys(id_id) = symmetric_ys RETURN END SUBROUTINE set_symmetric_ys
SUBROUTINE set_symmetric_ye ( id_id , symmetric_ye ),1 USE module_configure
logical , INTENT(IN) :: symmetric_ye INTEGER id_id model_config_rec%symmetric_ye(id_id) = symmetric_ye RETURN END SUBROUTINE set_symmetric_ye
SUBROUTINE set_open_ys ( id_id , open_ys ),1 USE module_configure
logical , INTENT(IN) :: open_ys INTEGER id_id model_config_rec%open_ys(id_id) = open_ys RETURN END SUBROUTINE set_open_ys
SUBROUTINE set_open_ye ( id_id , open_ye ),1 USE module_configure
logical , INTENT(IN) :: open_ye INTEGER id_id model_config_rec%open_ye(id_id) = open_ye RETURN END SUBROUTINE set_open_ye
SUBROUTINE set_nested ( id_id , nested ),1 USE module_configure
logical , INTENT(IN) :: nested INTEGER id_id model_config_rec%nested(id_id) = nested RETURN END SUBROUTINE set_nested
SUBROUTINE set_specified ( id_id , specified ),1 USE module_configure
logical , INTENT(IN) :: specified INTEGER id_id model_config_rec%specified(id_id) = specified RETURN END SUBROUTINE set_specified
SUBROUTINE set_top_radiation ( id_id , top_radiation ),1 USE module_configure
logical , INTENT(IN) :: top_radiation INTEGER id_id model_config_rec%top_radiation(id_id) = top_radiation RETURN END SUBROUTINE set_top_radiation
SUBROUTINE set_chem_opt ( id_id , chem_opt ),1 USE module_configure
integer , INTENT(IN) :: chem_opt INTEGER id_id model_config_rec%chem_opt(id_id) = chem_opt RETURN END SUBROUTINE set_chem_opt
SUBROUTINE set_mp_physics ( id_id , mp_physics ),1 USE module_configure
integer , INTENT(IN) :: mp_physics INTEGER id_id model_config_rec%mp_physics(id_id) = mp_physics RETURN END SUBROUTINE set_mp_physics
SUBROUTINE set_ra_lw_physics ( id_id , ra_lw_physics ),1 USE module_configure
integer , INTENT(IN) :: ra_lw_physics INTEGER id_id model_config_rec%ra_lw_physics(id_id) = ra_lw_physics RETURN END SUBROUTINE set_ra_lw_physics
SUBROUTINE set_ra_sw_physics ( id_id , ra_sw_physics ),1 USE module_configure
integer , INTENT(IN) :: ra_sw_physics INTEGER id_id model_config_rec%ra_sw_physics(id_id) = ra_sw_physics RETURN END SUBROUTINE set_ra_sw_physics
SUBROUTINE set_bl_sfclay_physics ( id_id , bl_sfclay_physics ),1 USE module_configure
integer , INTENT(IN) :: bl_sfclay_physics INTEGER id_id model_config_rec%bl_sfclay_physics(id_id) = bl_sfclay_physics RETURN END SUBROUTINE set_bl_sfclay_physics
SUBROUTINE set_bl_surface_physics ( id_id , bl_surface_physics ),1 USE module_configure
integer , INTENT(IN) :: bl_surface_physics INTEGER id_id model_config_rec%bl_surface_physics(id_id) = bl_surface_physics RETURN END SUBROUTINE set_bl_surface_physics
SUBROUTINE set_bl_pbl_physics ( id_id , bl_pbl_physics ),1 USE module_configure
integer , INTENT(IN) :: bl_pbl_physics INTEGER id_id model_config_rec%bl_pbl_physics(id_id) = bl_pbl_physics RETURN END SUBROUTINE set_bl_pbl_physics
SUBROUTINE set_cu_physics ( id_id , cu_physics ),1 USE module_configure
integer , INTENT(IN) :: cu_physics INTEGER id_id model_config_rec%cu_physics(id_id) = cu_physics RETURN END SUBROUTINE set_cu_physics
SUBROUTINE set_h_mom_adv_order ( id_id , h_mom_adv_order ),1 USE module_configure
integer , INTENT(IN) :: h_mom_adv_order INTEGER id_id model_config_rec%h_mom_adv_order(id_id) = h_mom_adv_order RETURN END SUBROUTINE set_h_mom_adv_order
SUBROUTINE set_v_mom_adv_order ( id_id , v_mom_adv_order ),1 USE module_configure
integer , INTENT(IN) :: v_mom_adv_order INTEGER id_id model_config_rec%v_mom_adv_order(id_id) = v_mom_adv_order RETURN END SUBROUTINE set_v_mom_adv_order
SUBROUTINE set_h_sca_adv_order ( id_id , h_sca_adv_order ),1 USE module_configure
integer , INTENT(IN) :: h_sca_adv_order INTEGER id_id model_config_rec%h_sca_adv_order(id_id) = h_sca_adv_order RETURN END SUBROUTINE set_h_sca_adv_order
SUBROUTINE set_v_sca_adv_order ( id_id , v_sca_adv_order ),1 USE module_configure
integer , INTENT(IN) :: v_sca_adv_order INTEGER id_id model_config_rec%v_sca_adv_order(id_id) = v_sca_adv_order RETURN END SUBROUTINE set_v_sca_adv_order
SUBROUTINE set_io_form_input ( io_form_input ),1 USE module_configure
integer , INTENT(IN) :: io_form_input model_config_rec%io_form_input = io_form_input RETURN END SUBROUTINE set_io_form_input
SUBROUTINE set_io_form_auxinput1 ( io_form_auxinput1 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxinput1 model_config_rec%io_form_auxinput1 = io_form_auxinput1 RETURN END SUBROUTINE set_io_form_auxinput1
SUBROUTINE set_io_form_auxinput2 ( io_form_auxinput2 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxinput2 model_config_rec%io_form_auxinput2 = io_form_auxinput2 RETURN END SUBROUTINE set_io_form_auxinput2
SUBROUTINE set_io_form_auxinput3 ( io_form_auxinput3 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxinput3 model_config_rec%io_form_auxinput3 = io_form_auxinput3 RETURN END SUBROUTINE set_io_form_auxinput3
SUBROUTINE set_io_form_auxinput4 ( io_form_auxinput4 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxinput4 model_config_rec%io_form_auxinput4 = io_form_auxinput4 RETURN END SUBROUTINE set_io_form_auxinput4
SUBROUTINE set_io_form_auxinput5 ( io_form_auxinput5 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxinput5 model_config_rec%io_form_auxinput5 = io_form_auxinput5 RETURN END SUBROUTINE set_io_form_auxinput5
SUBROUTINE set_io_form_history ( io_form_history ),1 USE module_configure
integer , INTENT(IN) :: io_form_history model_config_rec%io_form_history = io_form_history RETURN END SUBROUTINE set_io_form_history
SUBROUTINE set_io_form_auxhist1 ( io_form_auxhist1 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxhist1 model_config_rec%io_form_auxhist1 = io_form_auxhist1 RETURN END SUBROUTINE set_io_form_auxhist1
SUBROUTINE set_io_form_auxhist2 ( io_form_auxhist2 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxhist2 model_config_rec%io_form_auxhist2 = io_form_auxhist2 RETURN END SUBROUTINE set_io_form_auxhist2
SUBROUTINE set_io_form_auxhist3 ( io_form_auxhist3 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxhist3 model_config_rec%io_form_auxhist3 = io_form_auxhist3 RETURN END SUBROUTINE set_io_form_auxhist3
SUBROUTINE set_io_form_auxhist4 ( io_form_auxhist4 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxhist4 model_config_rec%io_form_auxhist4 = io_form_auxhist4 RETURN END SUBROUTINE set_io_form_auxhist4
SUBROUTINE set_io_form_auxhist5 ( io_form_auxhist5 ),1 USE module_configure
integer , INTENT(IN) :: io_form_auxhist5 model_config_rec%io_form_auxhist5 = io_form_auxhist5 RETURN END SUBROUTINE set_io_form_auxhist5
SUBROUTINE set_io_form_restart ( io_form_restart ),1 USE module_configure
integer , INTENT(IN) :: io_form_restart model_config_rec%io_form_restart = io_form_restart RETURN END SUBROUTINE set_io_form_restart
SUBROUTINE set_io_form_boundary ( io_form_boundary ),1 USE module_configure
integer , INTENT(IN) :: io_form_boundary model_config_rec%io_form_boundary = io_form_boundary RETURN END SUBROUTINE set_io_form_boundary
SUBROUTINE set_real_data_init_type ( real_data_init_type ),1 USE module_configure
integer , INTENT(IN) :: real_data_init_type model_config_rec%real_data_init_type = real_data_init_type RETURN END SUBROUTINE set_real_data_init_type
SUBROUTINE set_cen_lat ( id_id , cen_lat ) 11,1 USE module_configure
real , INTENT(IN) :: cen_lat INTEGER id_id model_config_rec%cen_lat(id_id) = cen_lat RETURN END SUBROUTINE set_cen_lat
SUBROUTINE set_cen_lon ( id_id , cen_lon ) 9,1 USE module_configure
real , INTENT(IN) :: cen_lon INTEGER id_id model_config_rec%cen_lon(id_id) = cen_lon RETURN END SUBROUTINE set_cen_lon
SUBROUTINE set_truelat1 ( id_id , truelat1 ) 9,1 USE module_configure
real , INTENT(IN) :: truelat1 INTEGER id_id model_config_rec%truelat1(id_id) = truelat1 RETURN END SUBROUTINE set_truelat1
SUBROUTINE set_truelat2 ( id_id , truelat2 ) 9,1 USE module_configure
real , INTENT(IN) :: truelat2 INTEGER id_id model_config_rec%truelat2(id_id) = truelat2 RETURN END SUBROUTINE set_truelat2
SUBROUTINE set_bdyfrq ( id_id , bdyfrq ) 6,1 USE module_configure
real , INTENT(IN) :: bdyfrq INTEGER id_id model_config_rec%bdyfrq(id_id) = bdyfrq RETURN END SUBROUTINE set_bdyfrq
SUBROUTINE set_iswater ( id_id , iswater ) 10,1 USE module_configure
integer , INTENT(IN) :: iswater INTEGER id_id model_config_rec%iswater(id_id) = iswater RETURN END SUBROUTINE set_iswater
SUBROUTINE set_isice ( id_id , isice ) 1,1 USE module_configure
integer , INTENT(IN) :: isice INTEGER id_id model_config_rec%isice(id_id) = isice RETURN END SUBROUTINE set_isice
SUBROUTINE set_map_proj ( id_id , map_proj ) 9,1 USE module_configure
integer , INTENT(IN) :: map_proj INTEGER id_id model_config_rec%map_proj(id_id) = map_proj RETURN END SUBROUTINE set_map_proj !ENDOFREGISTRYGENERATEDINCLUDE