include file: set_1_nl_config.inc 1
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/set_1_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_auxinput6_end_m (docs)   ( id_id , auxinput6_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput6_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput6_end_m(id_id) = auxinput6_end_m
  RETURN
END SUBROUTINE nl_set_auxinput6_end_m

SUBROUTINE  nl_set_auxinput6_end_s (docs)   ( id_id , auxinput6_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput6_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput6_end_s(id_id) = auxinput6_end_s
  RETURN
END SUBROUTINE nl_set_auxinput6_end_s

SUBROUTINE  nl_set_auxinput7_end_y (docs)   ( id_id , auxinput7_end_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_y(id_id) = auxinput7_end_y
  RETURN
END SUBROUTINE nl_set_auxinput7_end_y

SUBROUTINE  nl_set_auxinput7_end_mo (docs)   ( id_id , auxinput7_end_mo ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_mo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_mo(id_id) = auxinput7_end_mo
  RETURN
END SUBROUTINE nl_set_auxinput7_end_mo

SUBROUTINE  nl_set_auxinput7_end_d (docs)   ( id_id , auxinput7_end_d ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_d(id_id) = auxinput7_end_d
  RETURN
END SUBROUTINE nl_set_auxinput7_end_d

SUBROUTINE  nl_set_auxinput7_end_h (docs)   ( id_id , auxinput7_end_h ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_h(id_id) = auxinput7_end_h
  RETURN
END SUBROUTINE nl_set_auxinput7_end_h

SUBROUTINE  nl_set_auxinput7_end_m (docs)   ( id_id , auxinput7_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_m(id_id) = auxinput7_end_m
  RETURN
END SUBROUTINE nl_set_auxinput7_end_m

SUBROUTINE  nl_set_auxinput7_end_s (docs)   ( id_id , auxinput7_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput7_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput7_end_s(id_id) = auxinput7_end_s
  RETURN
END SUBROUTINE nl_set_auxinput7_end_s

SUBROUTINE  nl_set_auxinput8_end_y (docs)   ( id_id , auxinput8_end_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_y(id_id) = auxinput8_end_y
  RETURN
END SUBROUTINE nl_set_auxinput8_end_y

SUBROUTINE  nl_set_auxinput8_end_mo (docs)   ( id_id , auxinput8_end_mo ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_mo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_mo(id_id) = auxinput8_end_mo
  RETURN
END SUBROUTINE nl_set_auxinput8_end_mo

SUBROUTINE  nl_set_auxinput8_end_d (docs)   ( id_id , auxinput8_end_d ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_d(id_id) = auxinput8_end_d
  RETURN
END SUBROUTINE nl_set_auxinput8_end_d

SUBROUTINE  nl_set_auxinput8_end_h (docs)   ( id_id , auxinput8_end_h ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_h(id_id) = auxinput8_end_h
  RETURN
END SUBROUTINE nl_set_auxinput8_end_h

SUBROUTINE  nl_set_auxinput8_end_m (docs)   ( id_id , auxinput8_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_m(id_id) = auxinput8_end_m
  RETURN
END SUBROUTINE nl_set_auxinput8_end_m

SUBROUTINE  nl_set_auxinput8_end_s (docs)   ( id_id , auxinput8_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput8_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput8_end_s(id_id) = auxinput8_end_s
  RETURN
END SUBROUTINE nl_set_auxinput8_end_s

SUBROUTINE  nl_set_sgfdda_end_y (docs)   ( id_id , sgfdda_end_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_y(id_id) = sgfdda_end_y
  RETURN
END SUBROUTINE nl_set_sgfdda_end_y

SUBROUTINE  nl_set_sgfdda_end_mo (docs)   ( id_id , sgfdda_end_mo ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_mo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_mo(id_id) = sgfdda_end_mo
  RETURN
END SUBROUTINE nl_set_sgfdda_end_mo

SUBROUTINE  nl_set_sgfdda_end_d (docs)   ( id_id , sgfdda_end_d ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_d(id_id) = sgfdda_end_d
  RETURN
END SUBROUTINE nl_set_sgfdda_end_d

SUBROUTINE  nl_set_sgfdda_end_h (docs)   ( id_id , sgfdda_end_h ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_h(id_id) = sgfdda_end_h
  RETURN
END SUBROUTINE nl_set_sgfdda_end_h

SUBROUTINE  nl_set_sgfdda_end_m (docs)   ( id_id , sgfdda_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_m(id_id) = sgfdda_end_m
  RETURN
END SUBROUTINE nl_set_sgfdda_end_m

SUBROUTINE  nl_set_sgfdda_end_s (docs)   ( id_id , sgfdda_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sgfdda_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sgfdda_end_s(id_id) = sgfdda_end_s
  RETURN
END SUBROUTINE nl_set_sgfdda_end_s

SUBROUTINE  nl_set_gfdda_end_y (docs)   ( id_id , gfdda_end_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_y(id_id) = gfdda_end_y
  RETURN
END SUBROUTINE nl_set_gfdda_end_y

SUBROUTINE  nl_set_gfdda_end_mo (docs)   ( id_id , gfdda_end_mo ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_mo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_mo(id_id) = gfdda_end_mo
  RETURN
END SUBROUTINE nl_set_gfdda_end_mo

SUBROUTINE  nl_set_gfdda_end_d (docs)   ( id_id , gfdda_end_d ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_d(id_id) = gfdda_end_d
  RETURN
END SUBROUTINE nl_set_gfdda_end_d

SUBROUTINE  nl_set_gfdda_end_h (docs)   ( id_id , gfdda_end_h ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_h(id_id) = gfdda_end_h
  RETURN
END SUBROUTINE nl_set_gfdda_end_h

SUBROUTINE  nl_set_gfdda_end_m (docs)   ( id_id , gfdda_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_m(id_id) = gfdda_end_m
  RETURN
END SUBROUTINE nl_set_gfdda_end_m

SUBROUTINE  nl_set_gfdda_end_s (docs)   ( id_id , gfdda_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gfdda_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gfdda_end_s(id_id) = gfdda_end_s
  RETURN
END SUBROUTINE nl_set_gfdda_end_s

SUBROUTINE  nl_set_auxinput11_end_y (docs)   ( id_id , auxinput11_end_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_y(id_id) = auxinput11_end_y
  RETURN
END SUBROUTINE nl_set_auxinput11_end_y

SUBROUTINE  nl_set_auxinput11_end_mo (docs)   ( id_id , auxinput11_end_mo ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_mo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_mo(id_id) = auxinput11_end_mo
  RETURN
END SUBROUTINE nl_set_auxinput11_end_mo

SUBROUTINE  nl_set_auxinput11_end_d (docs)   ( id_id , auxinput11_end_d ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_d(id_id) = auxinput11_end_d
  RETURN
END SUBROUTINE nl_set_auxinput11_end_d

SUBROUTINE  nl_set_auxinput11_end_h (docs)   ( id_id , auxinput11_end_h ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_h(id_id) = auxinput11_end_h
  RETURN
END SUBROUTINE nl_set_auxinput11_end_h

SUBROUTINE  nl_set_auxinput11_end_m (docs)   ( id_id , auxinput11_end_m ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_m
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_m(id_id) = auxinput11_end_m
  RETURN
END SUBROUTINE nl_set_auxinput11_end_m

SUBROUTINE  nl_set_auxinput11_end_s (docs)   ( id_id , auxinput11_end_s ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: auxinput11_end_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%auxinput11_end_s(id_id) = auxinput11_end_s
  RETURN
END SUBROUTINE nl_set_auxinput11_end_s

SUBROUTINE  nl_set_io_form_auxinput1 (docs)   ( id_id , io_form_auxinput1 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput1 = io_form_auxinput1 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput1

SUBROUTINE  nl_set_io_form_auxinput2 (docs)   ( id_id , io_form_auxinput2 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput2 = io_form_auxinput2 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput2

SUBROUTINE  nl_set_io_form_auxinput3 (docs)   ( id_id , io_form_auxinput3 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput3 = io_form_auxinput3 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput3

SUBROUTINE  nl_set_io_form_auxinput4 (docs)   ( id_id , io_form_auxinput4 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput4 = io_form_auxinput4 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput4

SUBROUTINE  nl_set_io_form_auxinput5 (docs)   ( id_id , io_form_auxinput5 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput5 = io_form_auxinput5 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput5

SUBROUTINE  nl_set_io_form_auxinput6 (docs)   ( id_id , io_form_auxinput6 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput6
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput6 = io_form_auxinput6 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput6

SUBROUTINE  nl_set_io_form_auxinput7 (docs)   ( id_id , io_form_auxinput7 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput7
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput7 = io_form_auxinput7 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput7

SUBROUTINE  nl_set_io_form_auxinput8 (docs)   ( id_id , io_form_auxinput8 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput8
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput8 = io_form_auxinput8 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput8

SUBROUTINE  nl_set_io_form_sgfdda (docs)   ( id_id , io_form_sgfdda ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_sgfdda
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_sgfdda = io_form_sgfdda 
  RETURN
END SUBROUTINE nl_set_io_form_sgfdda

SUBROUTINE  nl_set_io_form_gfdda (docs)   ( id_id , io_form_gfdda ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_gfdda
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_gfdda = io_form_gfdda 
  RETURN
END SUBROUTINE nl_set_io_form_gfdda

SUBROUTINE  nl_set_io_form_auxinput11 (docs)   ( id_id , io_form_auxinput11 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxinput11
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxinput11 = io_form_auxinput11 
  RETURN
END SUBROUTINE nl_set_io_form_auxinput11

SUBROUTINE  nl_set_io_form_auxhist1 (docs)   ( id_id , io_form_auxhist1 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist1 = io_form_auxhist1 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist1

SUBROUTINE  nl_set_io_form_auxhist2 (docs)   ( id_id , io_form_auxhist2 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist2 = io_form_auxhist2 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist2

SUBROUTINE  nl_set_io_form_auxhist3 (docs)   ( id_id , io_form_auxhist3 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist3 = io_form_auxhist3 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist3

SUBROUTINE  nl_set_io_form_auxhist4 (docs)   ( id_id , io_form_auxhist4 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist4 = io_form_auxhist4 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist4

SUBROUTINE  nl_set_io_form_auxhist5 (docs)   ( id_id , io_form_auxhist5 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist5 = io_form_auxhist5 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist5

SUBROUTINE  nl_set_io_form_auxhist6 (docs)   ( id_id , io_form_auxhist6 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist6
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist6 = io_form_auxhist6 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist6

SUBROUTINE  nl_set_io_form_auxhist7 (docs)   ( id_id , io_form_auxhist7 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist7
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist7 = io_form_auxhist7 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist7

SUBROUTINE  nl_set_io_form_auxhist8 (docs)   ( id_id , io_form_auxhist8 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist8
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist8 = io_form_auxhist8 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist8

SUBROUTINE  nl_set_io_form_auxhist9 (docs)   ( id_id , io_form_auxhist9 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist9
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist9 = io_form_auxhist9 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist9

SUBROUTINE  nl_set_io_form_auxhist10 (docs)   ( id_id , io_form_auxhist10 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist10
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist10 = io_form_auxhist10 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist10

SUBROUTINE  nl_set_io_form_auxhist11 (docs)   ( id_id , io_form_auxhist11 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: io_form_auxhist11
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%io_form_auxhist11 = io_form_auxhist11 
  RETURN
END SUBROUTINE nl_set_io_form_auxhist11

SUBROUTINE  nl_set_simulation_start_year (docs)   ( id_id , simulation_start_year ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_year
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_year = simulation_start_year 
  RETURN
END SUBROUTINE nl_set_simulation_start_year

SUBROUTINE  nl_set_simulation_start_month (docs)   ( id_id , simulation_start_month ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_month
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_month = simulation_start_month 
  RETURN
END SUBROUTINE nl_set_simulation_start_month

SUBROUTINE  nl_set_simulation_start_day (docs)   ( id_id , simulation_start_day ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_day
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_day = simulation_start_day 
  RETURN
END SUBROUTINE nl_set_simulation_start_day

SUBROUTINE  nl_set_simulation_start_hour (docs)   ( id_id , simulation_start_hour ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_hour
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_hour = simulation_start_hour 
  RETURN
END SUBROUTINE nl_set_simulation_start_hour

SUBROUTINE  nl_set_simulation_start_minute (docs)   ( id_id , simulation_start_minute ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_minute
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_minute = simulation_start_minute 
  RETURN
END SUBROUTINE nl_set_simulation_start_minute

SUBROUTINE  nl_set_simulation_start_second (docs)   ( id_id , simulation_start_second ) 3,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: simulation_start_second
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%simulation_start_second = simulation_start_second 
  RETURN
END SUBROUTINE nl_set_simulation_start_second

SUBROUTINE  nl_set_reset_simulation_start (docs)   ( id_id , reset_simulation_start ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: reset_simulation_start
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%reset_simulation_start = reset_simulation_start 
  RETURN
END SUBROUTINE nl_set_reset_simulation_start

SUBROUTINE  nl_set_sr_x (docs)   ( id_id , sr_x ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sr_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sr_x(id_id) = sr_x
  RETURN
END SUBROUTINE nl_set_sr_x

SUBROUTINE  nl_set_sr_y (docs)   ( id_id , sr_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sr_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sr_y(id_id) = sr_y
  RETURN
END SUBROUTINE nl_set_sr_y

SUBROUTINE  nl_set_julyr (docs)   ( id_id , julyr ) 9,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: julyr
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%julyr(id_id) = julyr
  RETURN
END SUBROUTINE nl_set_julyr

SUBROUTINE  nl_set_julday (docs)   ( id_id , julday ) 9,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: julday
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%julday(id_id) = julday
  RETURN
END SUBROUTINE nl_set_julday

SUBROUTINE  nl_set_gmt (docs)   ( id_id , gmt ) 9,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gmt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gmt(id_id) = gmt
  RETURN
END SUBROUTINE nl_set_gmt

SUBROUTINE  nl_set_input_inname (docs)   ( id_id , input_inname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: input_inname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%input_inname = trim(input_inname) 
  RETURN
END SUBROUTINE nl_set_input_inname

SUBROUTINE  nl_set_input_outname (docs)   ( id_id , input_outname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: input_outname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%input_outname = trim(input_outname) 
  RETURN
END SUBROUTINE nl_set_input_outname

SUBROUTINE  nl_set_bdy_inname (docs)   ( id_id , bdy_inname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: bdy_inname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bdy_inname = trim(bdy_inname) 
  RETURN
END SUBROUTINE nl_set_bdy_inname

SUBROUTINE  nl_set_bdy_outname (docs)   ( id_id , bdy_outname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: bdy_outname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bdy_outname = trim(bdy_outname) 
  RETURN
END SUBROUTINE nl_set_bdy_outname

SUBROUTINE  nl_set_rst_inname (docs)   ( id_id , rst_inname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: rst_inname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rst_inname = trim(rst_inname) 
  RETURN
END SUBROUTINE nl_set_rst_inname

SUBROUTINE  nl_set_rst_outname (docs)   ( id_id , rst_outname ),1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: rst_outname
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rst_outname = trim(rst_outname) 
  RETURN
END SUBROUTINE nl_set_rst_outname

SUBROUTINE  nl_set_write_input (docs)   ( id_id , write_input ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: write_input
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%write_input = write_input 
  RETURN
END SUBROUTINE nl_set_write_input

SUBROUTINE  nl_set_write_restart_at_0h (docs)   ( id_id , write_restart_at_0h ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: write_restart_at_0h
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%write_restart_at_0h = write_restart_at_0h 
  RETURN
END SUBROUTINE nl_set_write_restart_at_0h

SUBROUTINE  nl_set_adjust_output_times (docs)   ( id_id , adjust_output_times ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: adjust_output_times
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%adjust_output_times = adjust_output_times 
  RETURN
END SUBROUTINE nl_set_adjust_output_times

SUBROUTINE  nl_set_adjust_input_times (docs)   ( id_id , adjust_input_times ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: adjust_input_times
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%adjust_input_times = adjust_input_times 
  RETURN
END SUBROUTINE nl_set_adjust_input_times

SUBROUTINE  nl_set_diag_print (docs)   ( id_id , diag_print ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: diag_print
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%diag_print = diag_print 
  RETURN
END SUBROUTINE nl_set_diag_print

SUBROUTINE  nl_set_nocolons (docs)   ( id_id , nocolons ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: nocolons
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nocolons = nocolons 
  RETURN
END SUBROUTINE nl_set_nocolons

SUBROUTINE  nl_set_cycling (docs)   ( id_id , cycling ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: cycling
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cycling = cycling 
  RETURN
END SUBROUTINE nl_set_cycling

SUBROUTINE  nl_set_dfi_opt (docs)   ( id_id , dfi_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_opt = dfi_opt 
  RETURN
END SUBROUTINE nl_set_dfi_opt

SUBROUTINE  nl_set_dfi_nfilter (docs)   ( id_id , dfi_nfilter ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_nfilter
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_nfilter = dfi_nfilter 
  RETURN
END SUBROUTINE nl_set_dfi_nfilter

SUBROUTINE  nl_set_dfi_write_filtered_input (docs)   ( id_id , dfi_write_filtered_input ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: dfi_write_filtered_input
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_write_filtered_input = dfi_write_filtered_input 
  RETURN
END SUBROUTINE nl_set_dfi_write_filtered_input

SUBROUTINE  nl_set_dfi_write_dfi_history (docs)   ( id_id , dfi_write_dfi_history ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: dfi_write_dfi_history
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_write_dfi_history = dfi_write_dfi_history 
  RETURN
END SUBROUTINE nl_set_dfi_write_dfi_history

SUBROUTINE  nl_set_dfi_cutoff_seconds (docs)   ( id_id , dfi_cutoff_seconds ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_cutoff_seconds
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_cutoff_seconds = dfi_cutoff_seconds 
  RETURN
END SUBROUTINE nl_set_dfi_cutoff_seconds

SUBROUTINE  nl_set_dfi_time_dim (docs)   ( id_id , dfi_time_dim ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_time_dim
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_time_dim = dfi_time_dim 
  RETURN
END SUBROUTINE nl_set_dfi_time_dim

SUBROUTINE  nl_set_dfi_fwdstop_year (docs)   ( id_id , dfi_fwdstop_year ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_year
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_year = dfi_fwdstop_year 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_year

SUBROUTINE  nl_set_dfi_fwdstop_month (docs)   ( id_id , dfi_fwdstop_month ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_month
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_month = dfi_fwdstop_month 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_month

SUBROUTINE  nl_set_dfi_fwdstop_day (docs)   ( id_id , dfi_fwdstop_day ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_day
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_day = dfi_fwdstop_day 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_day

SUBROUTINE  nl_set_dfi_fwdstop_hour (docs)   ( id_id , dfi_fwdstop_hour ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_hour
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_hour = dfi_fwdstop_hour 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_hour

SUBROUTINE  nl_set_dfi_fwdstop_minute (docs)   ( id_id , dfi_fwdstop_minute ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_minute
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_minute = dfi_fwdstop_minute 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_minute

SUBROUTINE  nl_set_dfi_fwdstop_second (docs)   ( id_id , dfi_fwdstop_second ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_fwdstop_second
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_fwdstop_second = dfi_fwdstop_second 
  RETURN
END SUBROUTINE nl_set_dfi_fwdstop_second

SUBROUTINE  nl_set_dfi_bckstop_year (docs)   ( id_id , dfi_bckstop_year ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_year
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_year = dfi_bckstop_year 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_year

SUBROUTINE  nl_set_dfi_bckstop_month (docs)   ( id_id , dfi_bckstop_month ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_month
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_month = dfi_bckstop_month 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_month

SUBROUTINE  nl_set_dfi_bckstop_day (docs)   ( id_id , dfi_bckstop_day ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_day
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_day = dfi_bckstop_day 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_day

SUBROUTINE  nl_set_dfi_bckstop_hour (docs)   ( id_id , dfi_bckstop_hour ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_hour
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_hour = dfi_bckstop_hour 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_hour

SUBROUTINE  nl_set_dfi_bckstop_minute (docs)   ( id_id , dfi_bckstop_minute ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_minute
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_minute = dfi_bckstop_minute 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_minute

SUBROUTINE  nl_set_dfi_bckstop_second (docs)   ( id_id , dfi_bckstop_second ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_bckstop_second
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_bckstop_second = dfi_bckstop_second 
  RETURN
END SUBROUTINE nl_set_dfi_bckstop_second

SUBROUTINE  nl_set_time_step (docs)   ( id_id , time_step ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: time_step
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%time_step = time_step 
  RETURN
END SUBROUTINE nl_set_time_step

SUBROUTINE  nl_set_time_step_fract_num (docs)   ( id_id , time_step_fract_num ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: time_step_fract_num
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%time_step_fract_num = time_step_fract_num 
  RETURN
END SUBROUTINE nl_set_time_step_fract_num

SUBROUTINE  nl_set_time_step_fract_den (docs)   ( id_id , time_step_fract_den ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: time_step_fract_den
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%time_step_fract_den = time_step_fract_den 
  RETURN
END SUBROUTINE nl_set_time_step_fract_den

SUBROUTINE  nl_set_min_time_step (docs)   ( id_id , min_time_step ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: min_time_step
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%min_time_step(id_id) = min_time_step
  RETURN
END SUBROUTINE nl_set_min_time_step

SUBROUTINE  nl_set_max_time_step (docs)   ( id_id , max_time_step ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_time_step
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_time_step(id_id) = max_time_step
  RETURN
END SUBROUTINE nl_set_max_time_step

SUBROUTINE  nl_set_target_cfl (docs)   ( id_id , target_cfl ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: target_cfl
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%target_cfl(id_id) = target_cfl
  RETURN
END SUBROUTINE nl_set_target_cfl

SUBROUTINE  nl_set_max_step_increase_pct (docs)   ( id_id , max_step_increase_pct ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_step_increase_pct
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_step_increase_pct(id_id) = max_step_increase_pct
  RETURN
END SUBROUTINE nl_set_max_step_increase_pct

SUBROUTINE  nl_set_starting_time_step (docs)   ( id_id , starting_time_step ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: starting_time_step
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%starting_time_step(id_id) = starting_time_step
  RETURN
END SUBROUTINE nl_set_starting_time_step

SUBROUTINE  nl_set_step_to_output_time (docs)   ( id_id , step_to_output_time ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: step_to_output_time
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%step_to_output_time = step_to_output_time 
  RETURN
END SUBROUTINE nl_set_step_to_output_time

SUBROUTINE  nl_set_use_adaptive_time_step (docs)   ( id_id , use_adaptive_time_step ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: use_adaptive_time_step
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_adaptive_time_step = use_adaptive_time_step 
  RETURN
END SUBROUTINE nl_set_use_adaptive_time_step

SUBROUTINE  nl_set_max_dom (docs)   ( id_id , max_dom ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_dom
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_dom = max_dom 
  RETURN
END SUBROUTINE nl_set_max_dom

SUBROUTINE  nl_set_s_we (docs)   ( id_id , s_we ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: s_we
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%s_we(id_id) = s_we
  RETURN
END SUBROUTINE nl_set_s_we

SUBROUTINE  nl_set_e_we (docs)   ( id_id , e_we ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: e_we
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%e_we(id_id) = e_we
  RETURN
END SUBROUTINE nl_set_e_we

SUBROUTINE  nl_set_s_sn (docs)   ( id_id , s_sn ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: s_sn
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%s_sn(id_id) = s_sn
  RETURN
END SUBROUTINE nl_set_s_sn

SUBROUTINE  nl_set_e_sn (docs)   ( id_id , e_sn ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: e_sn
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%e_sn(id_id) = e_sn
  RETURN
END SUBROUTINE nl_set_e_sn

SUBROUTINE  nl_set_s_vert (docs)   ( id_id , s_vert ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: s_vert
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%s_vert(id_id) = s_vert
  RETURN
END SUBROUTINE nl_set_s_vert

SUBROUTINE  nl_set_e_vert (docs)   ( id_id , e_vert ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: e_vert
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%e_vert(id_id) = e_vert
  RETURN
END SUBROUTINE nl_set_e_vert

SUBROUTINE  nl_set_num_metgrid_levels (docs)   ( id_id , num_metgrid_levels ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_metgrid_levels
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_metgrid_levels = num_metgrid_levels 
  RETURN
END SUBROUTINE nl_set_num_metgrid_levels

SUBROUTINE  nl_set_num_metgrid_soil_levels (docs)   ( id_id , num_metgrid_soil_levels ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_metgrid_soil_levels
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_metgrid_soil_levels = num_metgrid_soil_levels 
  RETURN
END SUBROUTINE nl_set_num_metgrid_soil_levels

SUBROUTINE  nl_set_p_top_requested (docs)   ( id_id , p_top_requested ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: p_top_requested
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%p_top_requested = p_top_requested 
  RETURN
END SUBROUTINE nl_set_p_top_requested

SUBROUTINE  nl_set_interp_type (docs)   ( id_id , interp_type ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: interp_type
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%interp_type = interp_type 
  RETURN
END SUBROUTINE nl_set_interp_type

SUBROUTINE  nl_set_extrap_type (docs)   ( id_id , extrap_type ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: extrap_type
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%extrap_type = extrap_type 
  RETURN
END SUBROUTINE nl_set_extrap_type

SUBROUTINE  nl_set_t_extrap_type (docs)   ( id_id , t_extrap_type ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: t_extrap_type
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%t_extrap_type = t_extrap_type 
  RETURN
END SUBROUTINE nl_set_t_extrap_type

SUBROUTINE  nl_set_lowest_lev_from_sfc (docs)   ( id_id , lowest_lev_from_sfc ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: lowest_lev_from_sfc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%lowest_lev_from_sfc = lowest_lev_from_sfc 
  RETURN
END SUBROUTINE nl_set_lowest_lev_from_sfc

SUBROUTINE  nl_set_use_levels_below_ground (docs)   ( id_id , use_levels_below_ground ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: use_levels_below_ground
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_levels_below_ground = use_levels_below_ground 
  RETURN
END SUBROUTINE nl_set_use_levels_below_ground

SUBROUTINE  nl_set_use_tavg_for_tsk (docs)   ( id_id , use_tavg_for_tsk ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: use_tavg_for_tsk
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_tavg_for_tsk = use_tavg_for_tsk 
  RETURN
END SUBROUTINE nl_set_use_tavg_for_tsk

SUBROUTINE  nl_set_use_surface (docs)   ( id_id , use_surface ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: use_surface
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_surface = use_surface 
  RETURN
END SUBROUTINE nl_set_use_surface

SUBROUTINE  nl_set_lagrange_order (docs)   ( id_id , lagrange_order ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: lagrange_order
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%lagrange_order = lagrange_order 
  RETURN
END SUBROUTINE nl_set_lagrange_order

SUBROUTINE  nl_set_force_sfc_in_vinterp (docs)   ( id_id , force_sfc_in_vinterp ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: force_sfc_in_vinterp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%force_sfc_in_vinterp = force_sfc_in_vinterp 
  RETURN
END SUBROUTINE nl_set_force_sfc_in_vinterp

SUBROUTINE  nl_set_zap_close_levels (docs)   ( id_id , zap_close_levels ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: zap_close_levels
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%zap_close_levels = zap_close_levels 
  RETURN
END SUBROUTINE nl_set_zap_close_levels

SUBROUTINE  nl_set_sfcp_to_sfcp (docs)   ( id_id , sfcp_to_sfcp ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: sfcp_to_sfcp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sfcp_to_sfcp = sfcp_to_sfcp 
  RETURN
END SUBROUTINE nl_set_sfcp_to_sfcp

SUBROUTINE  nl_set_adjust_heights (docs)   ( id_id , adjust_heights ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: adjust_heights
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%adjust_heights = adjust_heights 
  RETURN
END SUBROUTINE nl_set_adjust_heights

SUBROUTINE  nl_set_smooth_cg_topo (docs)   ( id_id , smooth_cg_topo ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: smooth_cg_topo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%smooth_cg_topo = smooth_cg_topo 
  RETURN
END SUBROUTINE nl_set_smooth_cg_topo

SUBROUTINE  nl_set_rh2qv_wrt_liquid (docs)   ( id_id , rh2qv_wrt_liquid ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: rh2qv_wrt_liquid
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rh2qv_wrt_liquid = rh2qv_wrt_liquid 
  RETURN
END SUBROUTINE nl_set_rh2qv_wrt_liquid

SUBROUTINE  nl_set_dx (docs)   ( id_id , dx ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: dx
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dx(id_id) = dx
  RETURN
END SUBROUTINE nl_set_dx

SUBROUTINE  nl_set_dy (docs)   ( id_id , dy ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: dy
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dy(id_id) = dy
  RETURN
END SUBROUTINE nl_set_dy

SUBROUTINE  nl_set_grid_id (docs)   ( id_id , grid_id ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: grid_id
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%grid_id(id_id) = grid_id
  RETURN
END SUBROUTINE nl_set_grid_id

SUBROUTINE  nl_set_grid_allowed (docs)   ( id_id , grid_allowed ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: grid_allowed
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%grid_allowed(id_id) = grid_allowed
  RETURN
END SUBROUTINE nl_set_grid_allowed

SUBROUTINE  nl_set_parent_id (docs)   ( id_id , parent_id ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: parent_id
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%parent_id(id_id) = parent_id
  RETURN
END SUBROUTINE nl_set_parent_id

SUBROUTINE  nl_set_i_parent_start (docs)   ( id_id , i_parent_start ) 5,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: i_parent_start
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%i_parent_start(id_id) = i_parent_start
  RETURN
END SUBROUTINE nl_set_i_parent_start

SUBROUTINE  nl_set_j_parent_start (docs)   ( id_id , j_parent_start ) 5,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: j_parent_start
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%j_parent_start(id_id) = j_parent_start
  RETURN
END SUBROUTINE nl_set_j_parent_start

SUBROUTINE  nl_set_parent_grid_ratio (docs)   ( id_id , parent_grid_ratio ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: parent_grid_ratio
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%parent_grid_ratio(id_id) = parent_grid_ratio
  RETURN
END SUBROUTINE nl_set_parent_grid_ratio

SUBROUTINE  nl_set_parent_time_step_ratio (docs)   ( id_id , parent_time_step_ratio ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: parent_time_step_ratio
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%parent_time_step_ratio(id_id) = parent_time_step_ratio
  RETURN
END SUBROUTINE nl_set_parent_time_step_ratio

SUBROUTINE  nl_set_feedback (docs)   ( id_id , feedback ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: feedback
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%feedback = feedback 
  RETURN
END SUBROUTINE nl_set_feedback

SUBROUTINE  nl_set_smooth_option (docs)   ( id_id , smooth_option ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: smooth_option
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%smooth_option = smooth_option 
  RETURN
END SUBROUTINE nl_set_smooth_option

SUBROUTINE  nl_set_blend_width (docs)   ( id_id , blend_width ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: blend_width
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%blend_width = blend_width 
  RETURN
END SUBROUTINE nl_set_blend_width

SUBROUTINE  nl_set_ztop (docs)   ( id_id , ztop ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: ztop
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ztop(id_id) = ztop
  RETURN
END SUBROUTINE nl_set_ztop

SUBROUTINE  nl_set_moad_grid_ratio (docs)   ( id_id , moad_grid_ratio ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: moad_grid_ratio
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%moad_grid_ratio(id_id) = moad_grid_ratio
  RETURN
END SUBROUTINE nl_set_moad_grid_ratio

SUBROUTINE  nl_set_moad_time_step_ratio (docs)   ( id_id , moad_time_step_ratio ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: moad_time_step_ratio
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%moad_time_step_ratio(id_id) = moad_time_step_ratio
  RETURN
END SUBROUTINE nl_set_moad_time_step_ratio

SUBROUTINE  nl_set_shw (docs)   ( id_id , shw ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: shw
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%shw(id_id) = shw
  RETURN
END SUBROUTINE nl_set_shw

SUBROUTINE  nl_set_tile_sz_x (docs)   ( id_id , tile_sz_x ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: tile_sz_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tile_sz_x = tile_sz_x 
  RETURN
END SUBROUTINE nl_set_tile_sz_x

SUBROUTINE  nl_set_tile_sz_y (docs)   ( id_id , tile_sz_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: tile_sz_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tile_sz_y = tile_sz_y 
  RETURN
END SUBROUTINE nl_set_tile_sz_y

SUBROUTINE  nl_set_numtiles (docs)   ( id_id , numtiles ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: numtiles
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%numtiles = numtiles 
  RETURN
END SUBROUTINE nl_set_numtiles

SUBROUTINE  nl_set_nproc_x (docs)   ( id_id , nproc_x ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: nproc_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nproc_x = nproc_x 
  RETURN
END SUBROUTINE nl_set_nproc_x

SUBROUTINE  nl_set_nproc_y (docs)   ( id_id , nproc_y ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: nproc_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nproc_y = nproc_y 
  RETURN
END SUBROUTINE nl_set_nproc_y

SUBROUTINE  nl_set_irand (docs)   ( id_id , irand ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: irand
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%irand = irand 
  RETURN
END SUBROUTINE nl_set_irand

SUBROUTINE  nl_set_dt (docs)   ( id_id , dt ) 2,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: dt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dt(id_id) = dt
  RETURN
END SUBROUTINE nl_set_dt

SUBROUTINE  nl_set_num_moves (docs)   ( id_id , num_moves ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_moves
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_moves = num_moves 
  RETURN
END SUBROUTINE nl_set_num_moves

SUBROUTINE  nl_set_ts_buf_size (docs)   ( id_id , ts_buf_size ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ts_buf_size
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ts_buf_size = ts_buf_size 
  RETURN
END SUBROUTINE nl_set_ts_buf_size

SUBROUTINE  nl_set_max_ts_locs (docs)   ( id_id , max_ts_locs ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_ts_locs
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_ts_locs = max_ts_locs 
  RETURN
END SUBROUTINE nl_set_max_ts_locs

SUBROUTINE  nl_set_vortex_interval (docs)   ( id_id , vortex_interval ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: vortex_interval
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%vortex_interval(id_id) = vortex_interval
  RETURN
END SUBROUTINE nl_set_vortex_interval

SUBROUTINE  nl_set_max_vortex_speed (docs)   ( id_id , max_vortex_speed ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_vortex_speed
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_vortex_speed(id_id) = max_vortex_speed
  RETURN
END SUBROUTINE nl_set_max_vortex_speed

SUBROUTINE  nl_set_corral_dist (docs)   ( id_id , corral_dist ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: corral_dist
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%corral_dist(id_id) = corral_dist
  RETURN
END SUBROUTINE nl_set_corral_dist

SUBROUTINE  nl_set_track_level (docs)   ( id_id , track_level ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: track_level
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%track_level = track_level 
  RETURN
END SUBROUTINE nl_set_track_level

SUBROUTINE  nl_set_time_to_move (docs)   ( id_id , time_to_move ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: time_to_move
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%time_to_move(id_id) = time_to_move
  RETURN
END SUBROUTINE nl_set_time_to_move

SUBROUTINE  nl_set_move_id (docs)   ( id_id , move_id ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: move_id
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%move_id(id_id) = move_id
  RETURN
END SUBROUTINE nl_set_move_id

SUBROUTINE  nl_set_move_interval (docs)   ( id_id , move_interval ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: move_interval
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%move_interval(id_id) = move_interval
  RETURN
END SUBROUTINE nl_set_move_interval

SUBROUTINE  nl_set_move_cd_x (docs)   ( id_id , move_cd_x ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: move_cd_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%move_cd_x(id_id) = move_cd_x
  RETURN
END SUBROUTINE nl_set_move_cd_x

SUBROUTINE  nl_set_move_cd_y (docs)   ( id_id , move_cd_y ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: move_cd_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%move_cd_y(id_id) = move_cd_y
  RETURN
END SUBROUTINE nl_set_move_cd_y

SUBROUTINE  nl_set_swap_x (docs)   ( id_id , swap_x ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: swap_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%swap_x(id_id) = swap_x
  RETURN
END SUBROUTINE nl_set_swap_x

SUBROUTINE  nl_set_swap_y (docs)   ( id_id , swap_y ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: swap_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%swap_y(id_id) = swap_y
  RETURN
END SUBROUTINE nl_set_swap_y

SUBROUTINE  nl_set_cycle_x (docs)   ( id_id , cycle_x ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: cycle_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cycle_x(id_id) = cycle_x
  RETURN
END SUBROUTINE nl_set_cycle_x

SUBROUTINE  nl_set_cycle_y (docs)   ( id_id , cycle_y ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: cycle_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cycle_y(id_id) = cycle_y
  RETURN
END SUBROUTINE nl_set_cycle_y

SUBROUTINE  nl_set_reorder_mesh (docs)   ( id_id , reorder_mesh ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: reorder_mesh
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%reorder_mesh = reorder_mesh 
  RETURN
END SUBROUTINE nl_set_reorder_mesh

SUBROUTINE  nl_set_perturb_input (docs)   ( id_id , perturb_input ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: perturb_input
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%perturb_input = perturb_input 
  RETURN
END SUBROUTINE nl_set_perturb_input

SUBROUTINE  nl_set_eta_levels (docs)   ( id_id , eta_levels ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: eta_levels
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%eta_levels(id_id) = eta_levels
  RETURN
END SUBROUTINE nl_set_eta_levels

SUBROUTINE  nl_set_max_dz (docs)   ( id_id , max_dz ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: max_dz
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_dz = max_dz 
  RETURN
END SUBROUTINE nl_set_max_dz

SUBROUTINE  nl_set_insert_bogus_storm (docs)   ( id_id , insert_bogus_storm ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: insert_bogus_storm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%insert_bogus_storm = insert_bogus_storm 
  RETURN
END SUBROUTINE nl_set_insert_bogus_storm

SUBROUTINE  nl_set_remove_storm (docs)   ( id_id , remove_storm ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: remove_storm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%remove_storm = remove_storm 
  RETURN
END SUBROUTINE nl_set_remove_storm

SUBROUTINE  nl_set_num_storm (docs)   ( id_id , num_storm ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_storm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_storm = num_storm 
  RETURN
END SUBROUTINE nl_set_num_storm

SUBROUTINE  nl_set_latc_loc (docs)   ( id_id , latc_loc ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: latc_loc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%latc_loc = latc_loc 
  RETURN
END SUBROUTINE nl_set_latc_loc

SUBROUTINE  nl_set_lonc_loc (docs)   ( id_id , lonc_loc ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: lonc_loc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%lonc_loc = lonc_loc 
  RETURN
END SUBROUTINE nl_set_lonc_loc

SUBROUTINE  nl_set_vmax_meters_per_second (docs)   ( id_id , vmax_meters_per_second ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: vmax_meters_per_second
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%vmax_meters_per_second = vmax_meters_per_second 
  RETURN
END SUBROUTINE nl_set_vmax_meters_per_second

SUBROUTINE  nl_set_rmax (docs)   ( id_id , rmax ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: rmax
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rmax = rmax 
  RETURN
END SUBROUTINE nl_set_rmax

SUBROUTINE  nl_set_vmax_ratio (docs)   ( id_id , vmax_ratio ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: vmax_ratio
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%vmax_ratio = vmax_ratio 
  RETURN
END SUBROUTINE nl_set_vmax_ratio

SUBROUTINE  nl_set_mp_physics (docs)   ( id_id , mp_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: mp_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mp_physics(id_id) = mp_physics
  RETURN
END SUBROUTINE nl_set_mp_physics

SUBROUTINE  nl_set_gsfcgce_hail (docs)   ( id_id , gsfcgce_hail ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gsfcgce_hail
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gsfcgce_hail = gsfcgce_hail 
  RETURN
END SUBROUTINE nl_set_gsfcgce_hail

SUBROUTINE  nl_set_gsfcgce_2ice (docs)   ( id_id , gsfcgce_2ice ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gsfcgce_2ice
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gsfcgce_2ice = gsfcgce_2ice 
  RETURN
END SUBROUTINE nl_set_gsfcgce_2ice

SUBROUTINE  nl_set_progn (docs)   ( id_id , progn ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: progn
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%progn(id_id) = progn
  RETURN
END SUBROUTINE nl_set_progn

SUBROUTINE  nl_set_ra_lw_physics (docs)   ( id_id , ra_lw_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ra_lw_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ra_lw_physics(id_id) = ra_lw_physics
  RETURN
END SUBROUTINE nl_set_ra_lw_physics

SUBROUTINE  nl_set_ra_sw_physics (docs)   ( id_id , ra_sw_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ra_sw_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ra_sw_physics(id_id) = ra_sw_physics
  RETURN
END SUBROUTINE nl_set_ra_sw_physics

SUBROUTINE  nl_set_radt (docs)   ( id_id , radt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: radt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%radt(id_id) = radt
  RETURN
END SUBROUTINE nl_set_radt

SUBROUTINE  nl_set_naer (docs)   ( id_id , naer ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: naer
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%naer(id_id) = naer
  RETURN
END SUBROUTINE nl_set_naer

SUBROUTINE  nl_set_sf_sfclay_physics (docs)   ( id_id , sf_sfclay_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sf_sfclay_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sf_sfclay_physics(id_id) = sf_sfclay_physics
  RETURN
END SUBROUTINE nl_set_sf_sfclay_physics

SUBROUTINE  nl_set_sf_surface_physics (docs)   ( id_id , sf_surface_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sf_surface_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sf_surface_physics(id_id) = sf_surface_physics
  RETURN
END SUBROUTINE nl_set_sf_surface_physics

SUBROUTINE  nl_set_bl_pbl_physics (docs)   ( id_id , bl_pbl_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: bl_pbl_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bl_pbl_physics(id_id) = bl_pbl_physics
  RETURN
END SUBROUTINE nl_set_bl_pbl_physics

SUBROUTINE  nl_set_sf_urban_physics (docs)   ( id_id , sf_urban_physics ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sf_urban_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sf_urban_physics(id_id) = sf_urban_physics
  RETURN
END SUBROUTINE nl_set_sf_urban_physics

SUBROUTINE  nl_set_bldt (docs)   ( id_id , bldt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: bldt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bldt(id_id) = bldt
  RETURN
END SUBROUTINE nl_set_bldt

SUBROUTINE  nl_set_cu_physics (docs)   ( id_id , cu_physics ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: cu_physics
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cu_physics(id_id) = cu_physics
  RETURN
END SUBROUTINE nl_set_cu_physics

SUBROUTINE  nl_set_cudt (docs)   ( id_id , cudt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: cudt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cudt(id_id) = cudt
  RETURN
END SUBROUTINE nl_set_cudt

SUBROUTINE  nl_set_gsmdt (docs)   ( id_id , gsmdt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gsmdt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gsmdt(id_id) = gsmdt
  RETURN
END SUBROUTINE nl_set_gsmdt

SUBROUTINE  nl_set_isfflx (docs)   ( id_id , isfflx ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: isfflx
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%isfflx = isfflx 
  RETURN
END SUBROUTINE nl_set_isfflx

SUBROUTINE  nl_set_ifsnow (docs)   ( id_id , ifsnow ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ifsnow
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ifsnow = ifsnow 
  RETURN
END SUBROUTINE nl_set_ifsnow

SUBROUTINE  nl_set_icloud (docs)   ( id_id , icloud ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: icloud
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%icloud = icloud 
  RETURN
END SUBROUTINE nl_set_icloud

SUBROUTINE  nl_set_swrad_scat (docs)   ( id_id , swrad_scat ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: swrad_scat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%swrad_scat = swrad_scat 
  RETURN
END SUBROUTINE nl_set_swrad_scat

SUBROUTINE  nl_set_surface_input_source (docs)   ( id_id , surface_input_source ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: surface_input_source
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%surface_input_source = surface_input_source 
  RETURN
END SUBROUTINE nl_set_surface_input_source

SUBROUTINE  nl_set_num_soil_layers (docs)   ( id_id , num_soil_layers ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_soil_layers
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_soil_layers = num_soil_layers 
  RETURN
END SUBROUTINE nl_set_num_soil_layers

SUBROUTINE  nl_set_num_urban_layers (docs)   ( id_id , num_urban_layers ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_urban_layers
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_urban_layers = num_urban_layers 
  RETURN
END SUBROUTINE nl_set_num_urban_layers

SUBROUTINE  nl_set_num_months (docs)   ( id_id , num_months ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_months
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_months = num_months 
  RETURN
END SUBROUTINE nl_set_num_months

SUBROUTINE  nl_set_maxiens (docs)   ( id_id , maxiens ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: maxiens
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%maxiens = maxiens 
  RETURN
END SUBROUTINE nl_set_maxiens

SUBROUTINE  nl_set_maxens (docs)   ( id_id , maxens ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: maxens
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%maxens = maxens 
  RETURN
END SUBROUTINE nl_set_maxens

SUBROUTINE  nl_set_maxens2 (docs)   ( id_id , maxens2 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: maxens2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%maxens2 = maxens2 
  RETURN
END SUBROUTINE nl_set_maxens2

SUBROUTINE  nl_set_maxens3 (docs)   ( id_id , maxens3 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: maxens3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%maxens3 = maxens3 
  RETURN
END SUBROUTINE nl_set_maxens3

SUBROUTINE  nl_set_ensdim (docs)   ( id_id , ensdim ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ensdim
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ensdim = ensdim 
  RETURN
END SUBROUTINE nl_set_ensdim

SUBROUTINE  nl_set_cugd_avedx (docs)   ( id_id , cugd_avedx ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: cugd_avedx
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cugd_avedx = cugd_avedx 
  RETURN
END SUBROUTINE nl_set_cugd_avedx

SUBROUTINE  nl_set_clos_choice (docs)   ( id_id , clos_choice ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: clos_choice
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%clos_choice = clos_choice 
  RETURN
END SUBROUTINE nl_set_clos_choice

SUBROUTINE  nl_set_imomentum (docs)   ( id_id , imomentum ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: imomentum
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%imomentum = imomentum 
  RETURN
END SUBROUTINE nl_set_imomentum

SUBROUTINE  nl_set_chem_opt (docs)   ( id_id , chem_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: chem_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%chem_opt(id_id) = chem_opt
  RETURN
END SUBROUTINE nl_set_chem_opt

SUBROUTINE  nl_set_num_land_cat (docs)   ( id_id , num_land_cat ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_land_cat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_land_cat = num_land_cat 
  RETURN
END SUBROUTINE nl_set_num_land_cat

SUBROUTINE  nl_set_num_soil_cat (docs)   ( id_id , num_soil_cat ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_soil_cat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_soil_cat = num_soil_cat 
  RETURN
END SUBROUTINE nl_set_num_soil_cat

SUBROUTINE  nl_set_mp_zero_out (docs)   ( id_id , mp_zero_out ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: mp_zero_out
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mp_zero_out = mp_zero_out 
  RETURN
END SUBROUTINE nl_set_mp_zero_out

SUBROUTINE  nl_set_mp_zero_out_thresh (docs)   ( id_id , mp_zero_out_thresh ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: mp_zero_out_thresh
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mp_zero_out_thresh = mp_zero_out_thresh 
  RETURN
END SUBROUTINE nl_set_mp_zero_out_thresh

SUBROUTINE  nl_set_seaice_threshold (docs)   ( id_id , seaice_threshold ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: seaice_threshold
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%seaice_threshold = seaice_threshold 
  RETURN
END SUBROUTINE nl_set_seaice_threshold

SUBROUTINE  nl_set_sst_update (docs)   ( id_id , sst_update ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sst_update
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sst_update = sst_update 
  RETURN
END SUBROUTINE nl_set_sst_update

SUBROUTINE  nl_set_sst_skin (docs)   ( id_id , sst_skin ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: sst_skin
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%sst_skin = sst_skin 
  RETURN
END SUBROUTINE nl_set_sst_skin

SUBROUTINE  nl_set_tmn_update (docs)   ( id_id , tmn_update ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: tmn_update
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tmn_update = tmn_update 
  RETURN
END SUBROUTINE nl_set_tmn_update

SUBROUTINE  nl_set_usemonalb (docs)   ( id_id , usemonalb ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: usemonalb
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%usemonalb = usemonalb 
  RETURN
END SUBROUTINE nl_set_usemonalb

SUBROUTINE  nl_set_rdmaxalb (docs)   ( id_id , rdmaxalb ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: rdmaxalb
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rdmaxalb = rdmaxalb 
  RETURN
END SUBROUTINE nl_set_rdmaxalb

SUBROUTINE  nl_set_rdlai2d (docs)   ( id_id , rdlai2d ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: rdlai2d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rdlai2d = rdlai2d 
  RETURN
END SUBROUTINE nl_set_rdlai2d

SUBROUTINE  nl_set_co2tf (docs)   ( id_id , co2tf ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: co2tf
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%co2tf = co2tf 
  RETURN
END SUBROUTINE nl_set_co2tf

SUBROUTINE  nl_set_ra_call_offset (docs)   ( id_id , ra_call_offset ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ra_call_offset
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ra_call_offset = ra_call_offset 
  RETURN
END SUBROUTINE nl_set_ra_call_offset

SUBROUTINE  nl_set_cam_abs_freq_s (docs)   ( id_id , cam_abs_freq_s ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: cam_abs_freq_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cam_abs_freq_s = cam_abs_freq_s 
  RETURN
END SUBROUTINE nl_set_cam_abs_freq_s

SUBROUTINE  nl_set_levsiz (docs)   ( id_id , levsiz ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: levsiz
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%levsiz = levsiz 
  RETURN
END SUBROUTINE nl_set_levsiz

SUBROUTINE  nl_set_paerlev (docs)   ( id_id , paerlev ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: paerlev
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%paerlev = paerlev 
  RETURN
END SUBROUTINE nl_set_paerlev

SUBROUTINE  nl_set_cam_abs_dim1 (docs)   ( id_id , cam_abs_dim1 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: cam_abs_dim1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cam_abs_dim1 = cam_abs_dim1 
  RETURN
END SUBROUTINE nl_set_cam_abs_dim1

SUBROUTINE  nl_set_cam_abs_dim2 (docs)   ( id_id , cam_abs_dim2 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: cam_abs_dim2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cam_abs_dim2 = cam_abs_dim2 
  RETURN
END SUBROUTINE nl_set_cam_abs_dim2

SUBROUTINE  nl_set_lagday (docs)   ( id_id , lagday ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: lagday
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%lagday = lagday 
  RETURN
END SUBROUTINE nl_set_lagday

SUBROUTINE  nl_set_cu_rad_feedback (docs)   ( id_id , cu_rad_feedback ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: cu_rad_feedback
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cu_rad_feedback(id_id) = cu_rad_feedback
  RETURN
END SUBROUTINE nl_set_cu_rad_feedback

SUBROUTINE  nl_set_pxlsm_smois_init (docs)   ( id_id , pxlsm_smois_init ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: pxlsm_smois_init
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%pxlsm_smois_init(id_id) = pxlsm_smois_init
  RETURN
END SUBROUTINE nl_set_pxlsm_smois_init

SUBROUTINE  nl_set_omlcall (docs)   ( id_id , omlcall ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: omlcall
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%omlcall = omlcall 
  RETURN
END SUBROUTINE nl_set_omlcall

SUBROUTINE  nl_set_oml_hml0 (docs)   ( id_id , oml_hml0 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: oml_hml0
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%oml_hml0 = oml_hml0 
  RETURN
END SUBROUTINE nl_set_oml_hml0

SUBROUTINE  nl_set_oml_gamma (docs)   ( id_id , oml_gamma ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: oml_gamma
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%oml_gamma = oml_gamma 
  RETURN
END SUBROUTINE nl_set_oml_gamma

SUBROUTINE  nl_set_isftcflx (docs)   ( id_id , isftcflx ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: isftcflx
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%isftcflx = isftcflx 
  RETURN
END SUBROUTINE nl_set_isftcflx

SUBROUTINE  nl_set_shadlen (docs)   ( id_id , shadlen ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: shadlen
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%shadlen = shadlen 
  RETURN
END SUBROUTINE nl_set_shadlen

SUBROUTINE  nl_set_slope_rad (docs)   ( id_id , slope_rad ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: slope_rad
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%slope_rad(id_id) = slope_rad
  RETURN
END SUBROUTINE nl_set_slope_rad

SUBROUTINE  nl_set_topo_shading (docs)   ( id_id , topo_shading ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: topo_shading
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%topo_shading(id_id) = topo_shading
  RETURN
END SUBROUTINE nl_set_topo_shading

SUBROUTINE  nl_set_no_mp_heating (docs)   ( id_id , no_mp_heating ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: no_mp_heating
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%no_mp_heating = no_mp_heating 
  RETURN
END SUBROUTINE nl_set_no_mp_heating

SUBROUTINE  nl_set_fractional_seaice (docs)   ( id_id , fractional_seaice ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fractional_seaice
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fractional_seaice = fractional_seaice 
  RETURN
END SUBROUTINE nl_set_fractional_seaice

SUBROUTINE  nl_set_bucket_mm (docs)   ( id_id , bucket_mm ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: bucket_mm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bucket_mm = bucket_mm 
  RETURN
END SUBROUTINE nl_set_bucket_mm

SUBROUTINE  nl_set_bucket_j (docs)   ( id_id , bucket_j ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: bucket_j
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bucket_j = bucket_j 
  RETURN
END SUBROUTINE nl_set_bucket_j

SUBROUTINE  nl_set_grav_settling (docs)   ( id_id , grav_settling ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: grav_settling
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%grav_settling(id_id) = grav_settling
  RETURN
END SUBROUTINE nl_set_grav_settling

SUBROUTINE  nl_set_fgdt (docs)   ( id_id , fgdt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fgdt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fgdt(id_id) = fgdt
  RETURN
END SUBROUTINE nl_set_fgdt

SUBROUTINE  nl_set_fgdtzero (docs)   ( id_id , fgdtzero ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fgdtzero
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fgdtzero(id_id) = fgdtzero
  RETURN
END SUBROUTINE nl_set_fgdtzero

SUBROUTINE  nl_set_grid_fdda (docs)   ( id_id , grid_fdda ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: grid_fdda
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%grid_fdda(id_id) = grid_fdda
  RETURN
END SUBROUTINE nl_set_grid_fdda

SUBROUTINE  nl_set_grid_sfdda (docs)   ( id_id , grid_sfdda ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: grid_sfdda
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%grid_sfdda(id_id) = grid_sfdda
  RETURN
END SUBROUTINE nl_set_grid_sfdda

SUBROUTINE  nl_set_if_no_pbl_nudging_uv (docs)   ( id_id , if_no_pbl_nudging_uv ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_no_pbl_nudging_uv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_no_pbl_nudging_uv(id_id) = if_no_pbl_nudging_uv
  RETURN
END SUBROUTINE nl_set_if_no_pbl_nudging_uv

SUBROUTINE  nl_set_if_no_pbl_nudging_t (docs)   ( id_id , if_no_pbl_nudging_t ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_no_pbl_nudging_t
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_no_pbl_nudging_t(id_id) = if_no_pbl_nudging_t
  RETURN
END SUBROUTINE nl_set_if_no_pbl_nudging_t

SUBROUTINE  nl_set_if_no_pbl_nudging_ph (docs)   ( id_id , if_no_pbl_nudging_ph ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_no_pbl_nudging_ph
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_no_pbl_nudging_ph(id_id) = if_no_pbl_nudging_ph
  RETURN
END SUBROUTINE nl_set_if_no_pbl_nudging_ph

SUBROUTINE  nl_set_if_no_pbl_nudging_q (docs)   ( id_id , if_no_pbl_nudging_q ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_no_pbl_nudging_q
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_no_pbl_nudging_q(id_id) = if_no_pbl_nudging_q
  RETURN
END SUBROUTINE nl_set_if_no_pbl_nudging_q

SUBROUTINE  nl_set_if_zfac_uv (docs)   ( id_id , if_zfac_uv ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_zfac_uv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_zfac_uv(id_id) = if_zfac_uv
  RETURN
END SUBROUTINE nl_set_if_zfac_uv

SUBROUTINE  nl_set_k_zfac_uv (docs)   ( id_id , k_zfac_uv ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: k_zfac_uv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%k_zfac_uv(id_id) = k_zfac_uv
  RETURN
END SUBROUTINE nl_set_k_zfac_uv

SUBROUTINE  nl_set_if_zfac_t (docs)   ( id_id , if_zfac_t ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_zfac_t
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_zfac_t(id_id) = if_zfac_t
  RETURN
END SUBROUTINE nl_set_if_zfac_t

SUBROUTINE  nl_set_k_zfac_t (docs)   ( id_id , k_zfac_t ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: k_zfac_t
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%k_zfac_t(id_id) = k_zfac_t
  RETURN
END SUBROUTINE nl_set_k_zfac_t

SUBROUTINE  nl_set_if_zfac_ph (docs)   ( id_id , if_zfac_ph ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_zfac_ph
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_zfac_ph(id_id) = if_zfac_ph
  RETURN
END SUBROUTINE nl_set_if_zfac_ph

SUBROUTINE  nl_set_k_zfac_ph (docs)   ( id_id , k_zfac_ph ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: k_zfac_ph
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%k_zfac_ph(id_id) = k_zfac_ph
  RETURN
END SUBROUTINE nl_set_k_zfac_ph

SUBROUTINE  nl_set_if_zfac_q (docs)   ( id_id , if_zfac_q ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_zfac_q
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_zfac_q(id_id) = if_zfac_q
  RETURN
END SUBROUTINE nl_set_if_zfac_q

SUBROUTINE  nl_set_k_zfac_q (docs)   ( id_id , k_zfac_q ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: k_zfac_q
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%k_zfac_q(id_id) = k_zfac_q
  RETURN
END SUBROUTINE nl_set_k_zfac_q

SUBROUTINE  nl_set_dk_zfac_uv (docs)   ( id_id , dk_zfac_uv ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dk_zfac_uv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dk_zfac_uv(id_id) = dk_zfac_uv
  RETURN
END SUBROUTINE nl_set_dk_zfac_uv

SUBROUTINE  nl_set_dk_zfac_t (docs)   ( id_id , dk_zfac_t ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dk_zfac_t
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dk_zfac_t(id_id) = dk_zfac_t
  RETURN
END SUBROUTINE nl_set_dk_zfac_t

SUBROUTINE  nl_set_dk_zfac_ph (docs)   ( id_id , dk_zfac_ph ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dk_zfac_ph
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dk_zfac_ph(id_id) = dk_zfac_ph
  RETURN
END SUBROUTINE nl_set_dk_zfac_ph

SUBROUTINE  nl_set_guv (docs)   ( id_id , guv ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: guv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%guv(id_id) = guv
  RETURN
END SUBROUTINE nl_set_guv

SUBROUTINE  nl_set_guv_sfc (docs)   ( id_id , guv_sfc ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: guv_sfc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%guv_sfc(id_id) = guv_sfc
  RETURN
END SUBROUTINE nl_set_guv_sfc

SUBROUTINE  nl_set_gt (docs)   ( id_id , gt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gt(id_id) = gt
  RETURN
END SUBROUTINE nl_set_gt

SUBROUTINE  nl_set_gt_sfc (docs)   ( id_id , gt_sfc ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gt_sfc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gt_sfc(id_id) = gt_sfc
  RETURN
END SUBROUTINE nl_set_gt_sfc

SUBROUTINE  nl_set_gq (docs)   ( id_id , gq ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gq
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gq(id_id) = gq
  RETURN
END SUBROUTINE nl_set_gq

SUBROUTINE  nl_set_gq_sfc (docs)   ( id_id , gq_sfc ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gq_sfc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gq_sfc(id_id) = gq_sfc
  RETURN
END SUBROUTINE nl_set_gq_sfc

SUBROUTINE  nl_set_gph (docs)   ( id_id , gph ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: gph
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gph(id_id) = gph
  RETURN
END SUBROUTINE nl_set_gph

SUBROUTINE  nl_set_dtramp_min (docs)   ( id_id , dtramp_min ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: dtramp_min
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dtramp_min = dtramp_min 
  RETURN
END SUBROUTINE nl_set_dtramp_min

SUBROUTINE  nl_set_if_ramping (docs)   ( id_id , if_ramping ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: if_ramping
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%if_ramping = if_ramping 
  RETURN
END SUBROUTINE nl_set_if_ramping

SUBROUTINE  nl_set_rinblw (docs)   ( id_id , rinblw ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: rinblw
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rinblw = rinblw 
  RETURN
END SUBROUTINE nl_set_rinblw

SUBROUTINE  nl_set_xwavenum (docs)   ( id_id , xwavenum ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: xwavenum
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%xwavenum(id_id) = xwavenum
  RETURN
END SUBROUTINE nl_set_xwavenum

SUBROUTINE  nl_set_ywavenum (docs)   ( id_id , ywavenum ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ywavenum
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ywavenum(id_id) = ywavenum
  RETURN
END SUBROUTINE nl_set_ywavenum

SUBROUTINE  nl_set_obs_nudge_opt (docs)   ( id_id , obs_nudge_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_nudge_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_nudge_opt(id_id) = obs_nudge_opt
  RETURN
END SUBROUTINE nl_set_obs_nudge_opt

SUBROUTINE  nl_set_max_obs (docs)   ( id_id , max_obs ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: max_obs
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%max_obs = max_obs 
  RETURN
END SUBROUTINE nl_set_max_obs

SUBROUTINE  nl_set_fdda_start (docs)   ( id_id , fdda_start ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fdda_start
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fdda_start(id_id) = fdda_start
  RETURN
END SUBROUTINE nl_set_fdda_start

SUBROUTINE  nl_set_fdda_end (docs)   ( id_id , fdda_end ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fdda_end
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fdda_end(id_id) = fdda_end
  RETURN
END SUBROUTINE nl_set_fdda_end

SUBROUTINE  nl_set_obs_nudge_wind (docs)   ( id_id , obs_nudge_wind ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_nudge_wind
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_nudge_wind(id_id) = obs_nudge_wind
  RETURN
END SUBROUTINE nl_set_obs_nudge_wind

SUBROUTINE  nl_set_obs_coef_wind (docs)   ( id_id , obs_coef_wind ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_coef_wind
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_coef_wind(id_id) = obs_coef_wind
  RETURN
END SUBROUTINE nl_set_obs_coef_wind

SUBROUTINE  nl_set_obs_nudge_temp (docs)   ( id_id , obs_nudge_temp ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_nudge_temp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_nudge_temp(id_id) = obs_nudge_temp
  RETURN
END SUBROUTINE nl_set_obs_nudge_temp

SUBROUTINE  nl_set_obs_coef_temp (docs)   ( id_id , obs_coef_temp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_coef_temp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_coef_temp(id_id) = obs_coef_temp
  RETURN
END SUBROUTINE nl_set_obs_coef_temp

SUBROUTINE  nl_set_obs_nudge_mois (docs)   ( id_id , obs_nudge_mois ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_nudge_mois
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_nudge_mois(id_id) = obs_nudge_mois
  RETURN
END SUBROUTINE nl_set_obs_nudge_mois

SUBROUTINE  nl_set_obs_coef_mois (docs)   ( id_id , obs_coef_mois ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_coef_mois
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_coef_mois(id_id) = obs_coef_mois
  RETURN
END SUBROUTINE nl_set_obs_coef_mois

SUBROUTINE  nl_set_obs_nudge_pstr (docs)   ( id_id , obs_nudge_pstr ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_nudge_pstr
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_nudge_pstr(id_id) = obs_nudge_pstr
  RETURN
END SUBROUTINE nl_set_obs_nudge_pstr

SUBROUTINE  nl_set_obs_coef_pstr (docs)   ( id_id , obs_coef_pstr ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_coef_pstr
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_coef_pstr(id_id) = obs_coef_pstr
  RETURN
END SUBROUTINE nl_set_obs_coef_pstr

SUBROUTINE  nl_set_obs_rinxy (docs)   ( id_id , obs_rinxy ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_rinxy
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_rinxy(id_id) = obs_rinxy
  RETURN
END SUBROUTINE nl_set_obs_rinxy

SUBROUTINE  nl_set_obs_rinsig (docs)   ( id_id , obs_rinsig ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_rinsig
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_rinsig = obs_rinsig 
  RETURN
END SUBROUTINE nl_set_obs_rinsig

SUBROUTINE  nl_set_obs_twindo (docs)   ( id_id , obs_twindo ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_twindo
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_twindo(id_id) = obs_twindo
  RETURN
END SUBROUTINE nl_set_obs_twindo

SUBROUTINE  nl_set_obs_npfi (docs)   ( id_id , obs_npfi ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_npfi
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_npfi = obs_npfi 
  RETURN
END SUBROUTINE nl_set_obs_npfi

SUBROUTINE  nl_set_obs_ionf (docs)   ( id_id , obs_ionf ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_ionf
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_ionf(id_id) = obs_ionf
  RETURN
END SUBROUTINE nl_set_obs_ionf

SUBROUTINE  nl_set_obs_idynin (docs)   ( id_id , obs_idynin ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_idynin
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_idynin = obs_idynin 
  RETURN
END SUBROUTINE nl_set_obs_idynin

SUBROUTINE  nl_set_obs_dtramp (docs)   ( id_id , obs_dtramp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: obs_dtramp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_dtramp = obs_dtramp 
  RETURN
END SUBROUTINE nl_set_obs_dtramp

SUBROUTINE  nl_set_obs_prt_max (docs)   ( id_id , obs_prt_max ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_prt_max
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_prt_max = obs_prt_max 
  RETURN
END SUBROUTINE nl_set_obs_prt_max

SUBROUTINE  nl_set_obs_prt_freq (docs)   ( id_id , obs_prt_freq ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: obs_prt_freq
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_prt_freq(id_id) = obs_prt_freq
  RETURN
END SUBROUTINE nl_set_obs_prt_freq

SUBROUTINE  nl_set_obs_ipf_in4dob (docs)   ( id_id , obs_ipf_in4dob ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: obs_ipf_in4dob
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_ipf_in4dob = obs_ipf_in4dob 
  RETURN
END SUBROUTINE nl_set_obs_ipf_in4dob

SUBROUTINE  nl_set_obs_ipf_errob (docs)   ( id_id , obs_ipf_errob ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: obs_ipf_errob
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_ipf_errob = obs_ipf_errob 
  RETURN
END SUBROUTINE nl_set_obs_ipf_errob

SUBROUTINE  nl_set_obs_ipf_nudob (docs)   ( id_id , obs_ipf_nudob ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: obs_ipf_nudob
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_ipf_nudob = obs_ipf_nudob 
  RETURN
END SUBROUTINE nl_set_obs_ipf_nudob

SUBROUTINE  nl_set_obs_ipf_init (docs)   ( id_id , obs_ipf_init ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: obs_ipf_init
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%obs_ipf_init = obs_ipf_init 
  RETURN
END SUBROUTINE nl_set_obs_ipf_init

SUBROUTINE  nl_set_scm_force (docs)   ( id_id , scm_force ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: scm_force
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_force = scm_force 
  RETURN
END SUBROUTINE nl_set_scm_force

SUBROUTINE  nl_set_scm_force_dx (docs)   ( id_id , scm_force_dx ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: scm_force_dx
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_force_dx = scm_force_dx 
  RETURN
END SUBROUTINE nl_set_scm_force_dx

SUBROUTINE  nl_set_num_force_layers (docs)   ( id_id , num_force_layers ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: num_force_layers
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%num_force_layers = num_force_layers 
  RETURN
END SUBROUTINE nl_set_num_force_layers

SUBROUTINE  nl_set_scm_lu_index (docs)   ( id_id , scm_lu_index ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: scm_lu_index
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_lu_index = scm_lu_index 
  RETURN
END SUBROUTINE nl_set_scm_lu_index

SUBROUTINE  nl_set_scm_isltyp (docs)   ( id_id , scm_isltyp ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: scm_isltyp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_isltyp = scm_isltyp 
  RETURN
END SUBROUTINE nl_set_scm_isltyp

SUBROUTINE  nl_set_scm_vegfra (docs)   ( id_id , scm_vegfra ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: scm_vegfra
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_vegfra = scm_vegfra 
  RETURN
END SUBROUTINE nl_set_scm_vegfra

SUBROUTINE  nl_set_scm_canwat (docs)   ( id_id , scm_canwat ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: scm_canwat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_canwat = scm_canwat 
  RETURN
END SUBROUTINE nl_set_scm_canwat

SUBROUTINE  nl_set_scm_lat (docs)   ( id_id , scm_lat ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: scm_lat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_lat = scm_lat 
  RETURN
END SUBROUTINE nl_set_scm_lat

SUBROUTINE  nl_set_scm_lon (docs)   ( id_id , scm_lon ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: scm_lon
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_lon = scm_lon 
  RETURN
END SUBROUTINE nl_set_scm_lon

SUBROUTINE  nl_set_scm_th_adv (docs)   ( id_id , scm_th_adv ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: scm_th_adv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_th_adv = scm_th_adv 
  RETURN
END SUBROUTINE nl_set_scm_th_adv

SUBROUTINE  nl_set_scm_wind_adv (docs)   ( id_id , scm_wind_adv ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: scm_wind_adv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_wind_adv = scm_wind_adv 
  RETURN
END SUBROUTINE nl_set_scm_wind_adv

SUBROUTINE  nl_set_scm_qv_adv (docs)   ( id_id , scm_qv_adv ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: scm_qv_adv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_qv_adv = scm_qv_adv 
  RETURN
END SUBROUTINE nl_set_scm_qv_adv

SUBROUTINE  nl_set_scm_vert_adv (docs)   ( id_id , scm_vert_adv ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: scm_vert_adv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scm_vert_adv = scm_vert_adv 
  RETURN
END SUBROUTINE nl_set_scm_vert_adv

SUBROUTINE  nl_set_dyn_opt (docs)   ( id_id , dyn_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dyn_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dyn_opt = dyn_opt 
  RETURN
END SUBROUTINE nl_set_dyn_opt

SUBROUTINE  nl_set_rk_ord (docs)   ( id_id , rk_ord ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: rk_ord
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rk_ord = rk_ord 
  RETURN
END SUBROUTINE nl_set_rk_ord

SUBROUTINE  nl_set_w_damping (docs)   ( id_id , w_damping ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: w_damping
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%w_damping = w_damping 
  RETURN
END SUBROUTINE nl_set_w_damping

SUBROUTINE  nl_set_diff_opt (docs)   ( id_id , diff_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: diff_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%diff_opt = diff_opt 
  RETURN
END SUBROUTINE nl_set_diff_opt

SUBROUTINE  nl_set_km_opt (docs)   ( id_id , km_opt ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: km_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%km_opt = km_opt 
  RETURN
END SUBROUTINE nl_set_km_opt

SUBROUTINE  nl_set_km_opt_dfi (docs)   ( id_id , km_opt_dfi ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: km_opt_dfi
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%km_opt_dfi = km_opt_dfi 
  RETURN
END SUBROUTINE nl_set_km_opt_dfi

SUBROUTINE  nl_set_damp_opt (docs)   ( id_id , damp_opt ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: damp_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%damp_opt = damp_opt 
  RETURN
END SUBROUTINE nl_set_damp_opt

SUBROUTINE  nl_set_gwd_opt (docs)   ( id_id , gwd_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: gwd_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%gwd_opt = gwd_opt 
  RETURN
END SUBROUTINE nl_set_gwd_opt

SUBROUTINE  nl_set_zdamp (docs)   ( id_id , zdamp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: zdamp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%zdamp(id_id) = zdamp
  RETURN
END SUBROUTINE nl_set_zdamp

SUBROUTINE  nl_set_dampcoef (docs)   ( id_id , dampcoef ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: dampcoef
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dampcoef(id_id) = dampcoef
  RETURN
END SUBROUTINE nl_set_dampcoef

SUBROUTINE  nl_set_khdif (docs)   ( id_id , khdif ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: khdif
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%khdif(id_id) = khdif
  RETURN
END SUBROUTINE nl_set_khdif

SUBROUTINE  nl_set_kvdif (docs)   ( id_id , kvdif ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: kvdif
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%kvdif(id_id) = kvdif
  RETURN
END SUBROUTINE nl_set_kvdif

SUBROUTINE  nl_set_diff_6th_factor (docs)   ( id_id , diff_6th_factor ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: diff_6th_factor
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%diff_6th_factor(id_id) = diff_6th_factor
  RETURN
END SUBROUTINE nl_set_diff_6th_factor

SUBROUTINE  nl_set_diff_6th_opt (docs)   ( id_id , diff_6th_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: diff_6th_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%diff_6th_opt(id_id) = diff_6th_opt
  RETURN
END SUBROUTINE nl_set_diff_6th_opt

SUBROUTINE  nl_set_c_s (docs)   ( id_id , c_s ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: c_s
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%c_s(id_id) = c_s
  RETURN
END SUBROUTINE nl_set_c_s

SUBROUTINE  nl_set_c_k (docs)   ( id_id , c_k ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: c_k
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%c_k(id_id) = c_k
  RETURN
END SUBROUTINE nl_set_c_k

SUBROUTINE  nl_set_smdiv (docs)   ( id_id , smdiv ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: smdiv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%smdiv(id_id) = smdiv
  RETURN
END SUBROUTINE nl_set_smdiv

SUBROUTINE  nl_set_emdiv (docs)   ( id_id , emdiv ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: emdiv
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%emdiv(id_id) = emdiv
  RETURN
END SUBROUTINE nl_set_emdiv

SUBROUTINE  nl_set_epssm (docs)   ( id_id , epssm ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: epssm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%epssm(id_id) = epssm
  RETURN
END SUBROUTINE nl_set_epssm

SUBROUTINE  nl_set_non_hydrostatic (docs)   ( id_id , non_hydrostatic ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: non_hydrostatic
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%non_hydrostatic(id_id) = non_hydrostatic
  RETURN
END SUBROUTINE nl_set_non_hydrostatic

SUBROUTINE  nl_set_time_step_sound (docs)   ( id_id , time_step_sound ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: time_step_sound
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%time_step_sound(id_id) = time_step_sound
  RETURN
END SUBROUTINE nl_set_time_step_sound

SUBROUTINE  nl_set_h_mom_adv_order (docs)   ( id_id , h_mom_adv_order ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: h_mom_adv_order
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%h_mom_adv_order(id_id) = h_mom_adv_order
  RETURN
END SUBROUTINE nl_set_h_mom_adv_order

SUBROUTINE  nl_set_v_mom_adv_order (docs)   ( id_id , v_mom_adv_order ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: v_mom_adv_order
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%v_mom_adv_order(id_id) = v_mom_adv_order
  RETURN
END SUBROUTINE nl_set_v_mom_adv_order

SUBROUTINE  nl_set_h_sca_adv_order (docs)   ( id_id , h_sca_adv_order ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: h_sca_adv_order
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%h_sca_adv_order(id_id) = h_sca_adv_order
  RETURN
END SUBROUTINE nl_set_h_sca_adv_order

SUBROUTINE  nl_set_v_sca_adv_order (docs)   ( id_id , v_sca_adv_order ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: v_sca_adv_order
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%v_sca_adv_order(id_id) = v_sca_adv_order
  RETURN
END SUBROUTINE nl_set_v_sca_adv_order

SUBROUTINE  nl_set_moist_adv_opt (docs)   ( id_id , moist_adv_opt ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: moist_adv_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%moist_adv_opt(id_id) = moist_adv_opt
  RETURN
END SUBROUTINE nl_set_moist_adv_opt

SUBROUTINE  nl_set_moist_adv_dfi_opt (docs)   ( id_id , moist_adv_dfi_opt ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: moist_adv_dfi_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%moist_adv_dfi_opt(id_id) = moist_adv_dfi_opt
  RETURN
END SUBROUTINE nl_set_moist_adv_dfi_opt

SUBROUTINE  nl_set_chem_adv_opt (docs)   ( id_id , chem_adv_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: chem_adv_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%chem_adv_opt(id_id) = chem_adv_opt
  RETURN
END SUBROUTINE nl_set_chem_adv_opt

SUBROUTINE  nl_set_scalar_adv_opt (docs)   ( id_id , scalar_adv_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: scalar_adv_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%scalar_adv_opt(id_id) = scalar_adv_opt
  RETURN
END SUBROUTINE nl_set_scalar_adv_opt

SUBROUTINE  nl_set_tke_adv_opt (docs)   ( id_id , tke_adv_opt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: tke_adv_opt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tke_adv_opt(id_id) = tke_adv_opt
  RETURN
END SUBROUTINE nl_set_tke_adv_opt

SUBROUTINE  nl_set_top_radiation (docs)   ( id_id , top_radiation ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: top_radiation
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%top_radiation(id_id) = top_radiation
  RETURN
END SUBROUTINE nl_set_top_radiation

SUBROUTINE  nl_set_mix_isotropic (docs)   ( id_id , mix_isotropic ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: mix_isotropic
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mix_isotropic(id_id) = mix_isotropic
  RETURN
END SUBROUTINE nl_set_mix_isotropic

SUBROUTINE  nl_set_mix_upper_bound (docs)   ( id_id , mix_upper_bound ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: mix_upper_bound
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mix_upper_bound(id_id) = mix_upper_bound
  RETURN
END SUBROUTINE nl_set_mix_upper_bound

SUBROUTINE  nl_set_top_lid (docs)   ( id_id , top_lid ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: top_lid
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%top_lid(id_id) = top_lid
  RETURN
END SUBROUTINE nl_set_top_lid

SUBROUTINE  nl_set_tke_upper_bound (docs)   ( id_id , tke_upper_bound ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: tke_upper_bound
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tke_upper_bound(id_id) = tke_upper_bound
  RETURN
END SUBROUTINE nl_set_tke_upper_bound

SUBROUTINE  nl_set_tke_drag_coefficient (docs)   ( id_id , tke_drag_coefficient ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: tke_drag_coefficient
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tke_drag_coefficient(id_id) = tke_drag_coefficient
  RETURN
END SUBROUTINE nl_set_tke_drag_coefficient

SUBROUTINE  nl_set_tke_heat_flux (docs)   ( id_id , tke_heat_flux ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: tke_heat_flux
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%tke_heat_flux(id_id) = tke_heat_flux
  RETURN
END SUBROUTINE nl_set_tke_heat_flux

SUBROUTINE  nl_set_pert_coriolis (docs)   ( id_id , pert_coriolis ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: pert_coriolis
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%pert_coriolis(id_id) = pert_coriolis
  RETURN
END SUBROUTINE nl_set_pert_coriolis

SUBROUTINE  nl_set_coriolis2d (docs)   ( id_id , coriolis2d ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: coriolis2d
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%coriolis2d(id_id) = coriolis2d
  RETURN
END SUBROUTINE nl_set_coriolis2d

SUBROUTINE  nl_set_mix_full_fields (docs)   ( id_id , mix_full_fields ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: mix_full_fields
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mix_full_fields(id_id) = mix_full_fields
  RETURN
END SUBROUTINE nl_set_mix_full_fields

SUBROUTINE  nl_set_base_pres (docs)   ( id_id , base_pres ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: base_pres
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%base_pres = base_pres 
  RETURN
END SUBROUTINE nl_set_base_pres

SUBROUTINE  nl_set_base_temp (docs)   ( id_id , base_temp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: base_temp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%base_temp = base_temp 
  RETURN
END SUBROUTINE nl_set_base_temp

SUBROUTINE  nl_set_base_lapse (docs)   ( id_id , base_lapse ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: base_lapse
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%base_lapse = base_lapse 
  RETURN
END SUBROUTINE nl_set_base_lapse

SUBROUTINE  nl_set_iso_temp (docs)   ( id_id , iso_temp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: iso_temp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%iso_temp = iso_temp 
  RETURN
END SUBROUTINE nl_set_iso_temp

SUBROUTINE  nl_set_use_baseparam_fr_nml (docs)   ( id_id , use_baseparam_fr_nml ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: use_baseparam_fr_nml
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_baseparam_fr_nml = use_baseparam_fr_nml 
  RETURN
END SUBROUTINE nl_set_use_baseparam_fr_nml

SUBROUTINE  nl_set_fft_filter_lat (docs)   ( id_id , fft_filter_lat ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fft_filter_lat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fft_filter_lat = fft_filter_lat 
  RETURN
END SUBROUTINE nl_set_fft_filter_lat

SUBROUTINE  nl_set_rotated_pole (docs)   ( id_id , rotated_pole ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: rotated_pole
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%rotated_pole = rotated_pole 
  RETURN
END SUBROUTINE nl_set_rotated_pole

SUBROUTINE  nl_set_do_coriolis (docs)   ( id_id , do_coriolis ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: do_coriolis
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%do_coriolis(id_id) = do_coriolis
  RETURN
END SUBROUTINE nl_set_do_coriolis

SUBROUTINE  nl_set_do_curvature (docs)   ( id_id , do_curvature ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: do_curvature
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%do_curvature(id_id) = do_curvature
  RETURN
END SUBROUTINE nl_set_do_curvature

SUBROUTINE  nl_set_do_gradp (docs)   ( id_id , do_gradp ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: do_gradp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%do_gradp(id_id) = do_gradp
  RETURN
END SUBROUTINE nl_set_do_gradp

SUBROUTINE  nl_set_spec_bdy_width (docs)   ( id_id , spec_bdy_width ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: spec_bdy_width
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%spec_bdy_width = spec_bdy_width 
  RETURN
END SUBROUTINE nl_set_spec_bdy_width

SUBROUTINE  nl_set_spec_zone (docs)   ( id_id , spec_zone ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: spec_zone
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%spec_zone = spec_zone 
  RETURN
END SUBROUTINE nl_set_spec_zone

SUBROUTINE  nl_set_relax_zone (docs)   ( id_id , relax_zone ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: relax_zone
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%relax_zone = relax_zone 
  RETURN
END SUBROUTINE nl_set_relax_zone

SUBROUTINE  nl_set_specified (docs)   ( id_id , specified ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: specified
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%specified(id_id) = specified
  RETURN
END SUBROUTINE nl_set_specified

SUBROUTINE  nl_set_periodic_x (docs)   ( id_id , periodic_x ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: periodic_x
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%periodic_x(id_id) = periodic_x
  RETURN
END SUBROUTINE nl_set_periodic_x

SUBROUTINE  nl_set_symmetric_xs (docs)   ( id_id , symmetric_xs ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: symmetric_xs
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%symmetric_xs(id_id) = symmetric_xs
  RETURN
END SUBROUTINE nl_set_symmetric_xs

SUBROUTINE  nl_set_symmetric_xe (docs)   ( id_id , symmetric_xe ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: symmetric_xe
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%symmetric_xe(id_id) = symmetric_xe
  RETURN
END SUBROUTINE nl_set_symmetric_xe

SUBROUTINE  nl_set_open_xs (docs)   ( id_id , open_xs ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: open_xs
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%open_xs(id_id) = open_xs
  RETURN
END SUBROUTINE nl_set_open_xs

SUBROUTINE  nl_set_open_xe (docs)   ( id_id , open_xe ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: open_xe
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%open_xe(id_id) = open_xe
  RETURN
END SUBROUTINE nl_set_open_xe

SUBROUTINE  nl_set_periodic_y (docs)   ( id_id , periodic_y ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: periodic_y
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%periodic_y(id_id) = periodic_y
  RETURN
END SUBROUTINE nl_set_periodic_y

SUBROUTINE  nl_set_symmetric_ys (docs)   ( id_id , symmetric_ys ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: symmetric_ys
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%symmetric_ys(id_id) = symmetric_ys
  RETURN
END SUBROUTINE nl_set_symmetric_ys

SUBROUTINE  nl_set_symmetric_ye (docs)   ( id_id , symmetric_ye ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: symmetric_ye
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%symmetric_ye(id_id) = symmetric_ye
  RETURN
END SUBROUTINE nl_set_symmetric_ye

SUBROUTINE  nl_set_open_ys (docs)   ( id_id , open_ys ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: open_ys
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%open_ys(id_id) = open_ys
  RETURN
END SUBROUTINE nl_set_open_ys

SUBROUTINE  nl_set_open_ye (docs)   ( id_id , open_ye ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: open_ye
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%open_ye(id_id) = open_ye
  RETURN
END SUBROUTINE nl_set_open_ye

SUBROUTINE  nl_set_polar (docs)   ( id_id , polar ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: polar
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%polar(id_id) = polar
  RETURN
END SUBROUTINE nl_set_polar

SUBROUTINE  nl_set_nested (docs)   ( id_id , nested ),1
  USE module_configure, ONLY : model_config_rec 
  logical , INTENT(IN) :: nested
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nested(id_id) = nested
  RETURN
END SUBROUTINE nl_set_nested

SUBROUTINE  nl_set_spec_exp (docs)   ( id_id , spec_exp ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: spec_exp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%spec_exp = spec_exp 
  RETURN
END SUBROUTINE nl_set_spec_exp

SUBROUTINE  nl_set_real_data_init_type (docs)   ( id_id , real_data_init_type ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: real_data_init_type
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%real_data_init_type = real_data_init_type 
  RETURN
END SUBROUTINE nl_set_real_data_init_type

SUBROUTINE  nl_set_background_proc_id (docs)   ( id_id , background_proc_id ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: background_proc_id
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%background_proc_id = background_proc_id 
  RETURN
END SUBROUTINE nl_set_background_proc_id

SUBROUTINE  nl_set_forecast_proc_id (docs)   ( id_id , forecast_proc_id ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: forecast_proc_id
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%forecast_proc_id = forecast_proc_id 
  RETURN
END SUBROUTINE nl_set_forecast_proc_id

SUBROUTINE  nl_set_production_status (docs)   ( id_id , production_status ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: production_status
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%production_status = production_status 
  RETURN
END SUBROUTINE nl_set_production_status

SUBROUTINE  nl_set_compression (docs)   ( id_id , compression ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: compression
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%compression = compression 
  RETURN
END SUBROUTINE nl_set_compression

SUBROUTINE  nl_set_nobs_ndg_vars (docs)   ( id_id , nobs_ndg_vars ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: nobs_ndg_vars
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nobs_ndg_vars = nobs_ndg_vars 
  RETURN
END SUBROUTINE nl_set_nobs_ndg_vars

SUBROUTINE  nl_set_nobs_err_flds (docs)   ( id_id , nobs_err_flds ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: nobs_err_flds
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%nobs_err_flds = nobs_err_flds 
  RETURN
END SUBROUTINE nl_set_nobs_err_flds

SUBROUTINE  nl_set_cen_lat (docs)   ( id_id , cen_lat ) 18,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: cen_lat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cen_lat(id_id) = cen_lat
  RETURN
END SUBROUTINE nl_set_cen_lat

SUBROUTINE  nl_set_cen_lon (docs)   ( id_id , cen_lon ) 15,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: cen_lon
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%cen_lon(id_id) = cen_lon
  RETURN
END SUBROUTINE nl_set_cen_lon

SUBROUTINE  nl_set_truelat1 (docs)   ( id_id , truelat1 ) 13,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: truelat1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%truelat1(id_id) = truelat1
  RETURN
END SUBROUTINE nl_set_truelat1

SUBROUTINE  nl_set_truelat2 (docs)   ( id_id , truelat2 ) 13,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: truelat2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%truelat2(id_id) = truelat2
  RETURN
END SUBROUTINE nl_set_truelat2

SUBROUTINE  nl_set_moad_cen_lat (docs)   ( id_id , moad_cen_lat ) 12,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: moad_cen_lat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%moad_cen_lat(id_id) = moad_cen_lat
  RETURN
END SUBROUTINE nl_set_moad_cen_lat

SUBROUTINE  nl_set_stand_lon (docs)   ( id_id , stand_lon ) 12,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: stand_lon
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%stand_lon(id_id) = stand_lon
  RETURN
END SUBROUTINE nl_set_stand_lon

SUBROUTINE  nl_set_flag_metgrid (docs)   ( id_id , flag_metgrid ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_metgrid
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_metgrid = flag_metgrid 
  RETURN
END SUBROUTINE nl_set_flag_metgrid

SUBROUTINE  nl_set_flag_snow (docs)   ( id_id , flag_snow ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_snow
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_snow = flag_snow 
  RETURN
END SUBROUTINE nl_set_flag_snow

SUBROUTINE  nl_set_flag_psfc (docs)   ( id_id , flag_psfc ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_psfc
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_psfc = flag_psfc 
  RETURN
END SUBROUTINE nl_set_flag_psfc

SUBROUTINE  nl_set_flag_sm000010 (docs)   ( id_id , flag_sm000010 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_sm000010
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_sm000010 = flag_sm000010 
  RETURN
END SUBROUTINE nl_set_flag_sm000010

SUBROUTINE  nl_set_flag_sm010040 (docs)   ( id_id , flag_sm010040 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_sm010040
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_sm010040 = flag_sm010040 
  RETURN
END SUBROUTINE nl_set_flag_sm010040

SUBROUTINE  nl_set_flag_sm040100 (docs)   ( id_id , flag_sm040100 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_sm040100
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_sm040100 = flag_sm040100 
  RETURN
END SUBROUTINE nl_set_flag_sm040100

SUBROUTINE  nl_set_flag_sm100200 (docs)   ( id_id , flag_sm100200 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_sm100200
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_sm100200 = flag_sm100200 
  RETURN
END SUBROUTINE nl_set_flag_sm100200

SUBROUTINE  nl_set_flag_st000010 (docs)   ( id_id , flag_st000010 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_st000010
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_st000010 = flag_st000010 
  RETURN
END SUBROUTINE nl_set_flag_st000010

SUBROUTINE  nl_set_flag_st010040 (docs)   ( id_id , flag_st010040 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_st010040
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_st010040 = flag_st010040 
  RETURN
END SUBROUTINE nl_set_flag_st010040

SUBROUTINE  nl_set_flag_st040100 (docs)   ( id_id , flag_st040100 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_st040100
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_st040100 = flag_st040100 
  RETURN
END SUBROUTINE nl_set_flag_st040100

SUBROUTINE  nl_set_flag_st100200 (docs)   ( id_id , flag_st100200 ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_st100200
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_st100200 = flag_st100200 
  RETURN
END SUBROUTINE nl_set_flag_st100200

SUBROUTINE  nl_set_flag_slp (docs)   ( id_id , flag_slp ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_slp
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_slp = flag_slp 
  RETURN
END SUBROUTINE nl_set_flag_slp

SUBROUTINE  nl_set_flag_soilhgt (docs)   ( id_id , flag_soilhgt ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_soilhgt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_soilhgt = flag_soilhgt 
  RETURN
END SUBROUTINE nl_set_flag_soilhgt

SUBROUTINE  nl_set_flag_mf_xy (docs)   ( id_id , flag_mf_xy ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: flag_mf_xy
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%flag_mf_xy = flag_mf_xy 
  RETURN
END SUBROUTINE nl_set_flag_mf_xy

SUBROUTINE  nl_set_bdyfrq (docs)   ( id_id , bdyfrq ) 4,1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: bdyfrq
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%bdyfrq(id_id) = bdyfrq
  RETURN
END SUBROUTINE nl_set_bdyfrq

SUBROUTINE  nl_set_mminlu (docs)   ( id_id , mminlu ) 12,1
  USE module_configure, ONLY : model_config_rec 
  character*256 , INTENT(IN) :: mminlu
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mminlu(id_id) = mminlu
  RETURN
END SUBROUTINE nl_set_mminlu

SUBROUTINE  nl_set_iswater (docs)   ( id_id , iswater ) 14,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: iswater
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%iswater(id_id) = iswater
  RETURN
END SUBROUTINE nl_set_iswater

SUBROUTINE  nl_set_islake (docs)   ( id_id , islake ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: islake
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%islake(id_id) = islake
  RETURN
END SUBROUTINE nl_set_islake

SUBROUTINE  nl_set_isice (docs)   ( id_id , isice ) 4,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: isice
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%isice(id_id) = isice
  RETURN
END SUBROUTINE nl_set_isice

SUBROUTINE  nl_set_isurban (docs)   ( id_id , isurban ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: isurban
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%isurban(id_id) = isurban
  RETURN
END SUBROUTINE nl_set_isurban

SUBROUTINE  nl_set_isoilwater (docs)   ( id_id , isoilwater ) 1,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: isoilwater
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%isoilwater(id_id) = isoilwater
  RETURN
END SUBROUTINE nl_set_isoilwater

SUBROUTINE  nl_set_map_proj (docs)   ( id_id , map_proj ) 13,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: map_proj
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%map_proj(id_id) = map_proj
  RETURN
END SUBROUTINE nl_set_map_proj

SUBROUTINE  nl_set_use_wps_input (docs)   ( id_id , use_wps_input ) 2,1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: use_wps_input
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%use_wps_input = use_wps_input 
  RETURN
END SUBROUTINE nl_set_use_wps_input

SUBROUTINE  nl_set_dfi_stage (docs)   ( id_id , dfi_stage ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: dfi_stage
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%dfi_stage = dfi_stage 
  RETURN
END SUBROUTINE nl_set_dfi_stage

SUBROUTINE  nl_set_mp_physics_dfi (docs)   ( id_id , mp_physics_dfi ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: mp_physics_dfi
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%mp_physics_dfi(id_id) = mp_physics_dfi
  RETURN
END SUBROUTINE nl_set_mp_physics_dfi

SUBROUTINE  nl_set_ifire (docs)   ( id_id , ifire ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: ifire
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%ifire(id_id) = ifire
  RETURN
END SUBROUTINE nl_set_ifire

SUBROUTINE  nl_set_fire_boundary_guard (docs)   ( id_id , fire_boundary_guard ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_boundary_guard
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_boundary_guard(id_id) = fire_boundary_guard
  RETURN
END SUBROUTINE nl_set_fire_boundary_guard

SUBROUTINE  nl_set_fire_num_ignitions (docs)   ( id_id , fire_num_ignitions ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_num_ignitions
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_num_ignitions(id_id) = fire_num_ignitions
  RETURN
END SUBROUTINE nl_set_fire_num_ignitions

SUBROUTINE  nl_set_fire_ignition_start_long1 (docs)   ( id_id , fire_ignition_start_long1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_long1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_long1(id_id) = fire_ignition_start_long1
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_long1

SUBROUTINE  nl_set_fire_ignition_start_lat1 (docs)   ( id_id , fire_ignition_start_lat1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_lat1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_lat1(id_id) = fire_ignition_start_lat1
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_lat1

SUBROUTINE  nl_set_fire_ignition_end_long1 (docs)   ( id_id , fire_ignition_end_long1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_long1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_long1(id_id) = fire_ignition_end_long1
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_long1

SUBROUTINE  nl_set_fire_ignition_end_lat1 (docs)   ( id_id , fire_ignition_end_lat1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_lat1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_lat1(id_id) = fire_ignition_end_lat1
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_lat1

SUBROUTINE  nl_set_fire_ignition_radius1 (docs)   ( id_id , fire_ignition_radius1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_radius1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_radius1(id_id) = fire_ignition_radius1
  RETURN
END SUBROUTINE nl_set_fire_ignition_radius1

SUBROUTINE  nl_set_fire_ignition_time1 (docs)   ( id_id , fire_ignition_time1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_time1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_time1(id_id) = fire_ignition_time1
  RETURN
END SUBROUTINE nl_set_fire_ignition_time1

SUBROUTINE  nl_set_fire_ignition_start_long2 (docs)   ( id_id , fire_ignition_start_long2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_long2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_long2(id_id) = fire_ignition_start_long2
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_long2

SUBROUTINE  nl_set_fire_ignition_start_lat2 (docs)   ( id_id , fire_ignition_start_lat2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_lat2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_lat2(id_id) = fire_ignition_start_lat2
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_lat2

SUBROUTINE  nl_set_fire_ignition_end_long2 (docs)   ( id_id , fire_ignition_end_long2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_long2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_long2(id_id) = fire_ignition_end_long2
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_long2

SUBROUTINE  nl_set_fire_ignition_end_lat2 (docs)   ( id_id , fire_ignition_end_lat2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_lat2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_lat2(id_id) = fire_ignition_end_lat2
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_lat2

SUBROUTINE  nl_set_fire_ignition_radius2 (docs)   ( id_id , fire_ignition_radius2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_radius2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_radius2(id_id) = fire_ignition_radius2
  RETURN
END SUBROUTINE nl_set_fire_ignition_radius2

SUBROUTINE  nl_set_fire_ignition_time2 (docs)   ( id_id , fire_ignition_time2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_time2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_time2(id_id) = fire_ignition_time2
  RETURN
END SUBROUTINE nl_set_fire_ignition_time2

SUBROUTINE  nl_set_fire_ignition_start_long3 (docs)   ( id_id , fire_ignition_start_long3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_long3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_long3(id_id) = fire_ignition_start_long3
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_long3

SUBROUTINE  nl_set_fire_ignition_start_lat3 (docs)   ( id_id , fire_ignition_start_lat3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_lat3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_lat3(id_id) = fire_ignition_start_lat3
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_lat3

SUBROUTINE  nl_set_fire_ignition_end_long3 (docs)   ( id_id , fire_ignition_end_long3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_long3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_long3(id_id) = fire_ignition_end_long3
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_long3

SUBROUTINE  nl_set_fire_ignition_end_lat3 (docs)   ( id_id , fire_ignition_end_lat3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_lat3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_lat3(id_id) = fire_ignition_end_lat3
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_lat3

SUBROUTINE  nl_set_fire_ignition_radius3 (docs)   ( id_id , fire_ignition_radius3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_radius3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_radius3(id_id) = fire_ignition_radius3
  RETURN
END SUBROUTINE nl_set_fire_ignition_radius3

SUBROUTINE  nl_set_fire_ignition_time3 (docs)   ( id_id , fire_ignition_time3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_time3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_time3(id_id) = fire_ignition_time3
  RETURN
END SUBROUTINE nl_set_fire_ignition_time3

SUBROUTINE  nl_set_fire_ignition_start_long4 (docs)   ( id_id , fire_ignition_start_long4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_long4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_long4(id_id) = fire_ignition_start_long4
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_long4

SUBROUTINE  nl_set_fire_ignition_start_lat4 (docs)   ( id_id , fire_ignition_start_lat4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_lat4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_lat4(id_id) = fire_ignition_start_lat4
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_lat4

SUBROUTINE  nl_set_fire_ignition_end_long4 (docs)   ( id_id , fire_ignition_end_long4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_long4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_long4(id_id) = fire_ignition_end_long4
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_long4

SUBROUTINE  nl_set_fire_ignition_end_lat4 (docs)   ( id_id , fire_ignition_end_lat4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_lat4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_lat4(id_id) = fire_ignition_end_lat4
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_lat4

SUBROUTINE  nl_set_fire_ignition_radius4 (docs)   ( id_id , fire_ignition_radius4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_radius4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_radius4(id_id) = fire_ignition_radius4
  RETURN
END SUBROUTINE nl_set_fire_ignition_radius4

SUBROUTINE  nl_set_fire_ignition_time4 (docs)   ( id_id , fire_ignition_time4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_time4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_time4(id_id) = fire_ignition_time4
  RETURN
END SUBROUTINE nl_set_fire_ignition_time4

SUBROUTINE  nl_set_fire_ignition_start_long5 (docs)   ( id_id , fire_ignition_start_long5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_long5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_long5(id_id) = fire_ignition_start_long5
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_long5

SUBROUTINE  nl_set_fire_ignition_start_lat5 (docs)   ( id_id , fire_ignition_start_lat5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_lat5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_lat5(id_id) = fire_ignition_start_lat5
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_lat5

SUBROUTINE  nl_set_fire_ignition_end_long5 (docs)   ( id_id , fire_ignition_end_long5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_long5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_long5(id_id) = fire_ignition_end_long5
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_long5

SUBROUTINE  nl_set_fire_ignition_end_lat5 (docs)   ( id_id , fire_ignition_end_lat5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_lat5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_lat5(id_id) = fire_ignition_end_lat5
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_lat5

SUBROUTINE  nl_set_fire_ignition_radius5 (docs)   ( id_id , fire_ignition_radius5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_radius5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_radius5(id_id) = fire_ignition_radius5
  RETURN
END SUBROUTINE nl_set_fire_ignition_radius5

SUBROUTINE  nl_set_fire_ignition_time5 (docs)   ( id_id , fire_ignition_time5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_time5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_time5(id_id) = fire_ignition_time5
  RETURN
END SUBROUTINE nl_set_fire_ignition_time5

SUBROUTINE  nl_set_fire_ignition_start_x1 (docs)   ( id_id , fire_ignition_start_x1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_x1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_x1(id_id) = fire_ignition_start_x1
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_x1

SUBROUTINE  nl_set_fire_ignition_start_y1 (docs)   ( id_id , fire_ignition_start_y1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_y1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_y1(id_id) = fire_ignition_start_y1
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_y1

SUBROUTINE  nl_set_fire_ignition_end_x1 (docs)   ( id_id , fire_ignition_end_x1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_x1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_x1(id_id) = fire_ignition_end_x1
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_x1

SUBROUTINE  nl_set_fire_ignition_end_y1 (docs)   ( id_id , fire_ignition_end_y1 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_y1
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_y1(id_id) = fire_ignition_end_y1
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_y1

SUBROUTINE  nl_set_fire_ignition_start_x2 (docs)   ( id_id , fire_ignition_start_x2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_x2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_x2(id_id) = fire_ignition_start_x2
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_x2

SUBROUTINE  nl_set_fire_ignition_start_y2 (docs)   ( id_id , fire_ignition_start_y2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_y2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_y2(id_id) = fire_ignition_start_y2
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_y2

SUBROUTINE  nl_set_fire_ignition_end_x2 (docs)   ( id_id , fire_ignition_end_x2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_x2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_x2(id_id) = fire_ignition_end_x2
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_x2

SUBROUTINE  nl_set_fire_ignition_end_y2 (docs)   ( id_id , fire_ignition_end_y2 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_y2
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_y2(id_id) = fire_ignition_end_y2
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_y2

SUBROUTINE  nl_set_fire_ignition_start_x3 (docs)   ( id_id , fire_ignition_start_x3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_x3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_x3(id_id) = fire_ignition_start_x3
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_x3

SUBROUTINE  nl_set_fire_ignition_start_y3 (docs)   ( id_id , fire_ignition_start_y3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_y3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_y3(id_id) = fire_ignition_start_y3
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_y3

SUBROUTINE  nl_set_fire_ignition_end_x3 (docs)   ( id_id , fire_ignition_end_x3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_x3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_x3(id_id) = fire_ignition_end_x3
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_x3

SUBROUTINE  nl_set_fire_ignition_end_y3 (docs)   ( id_id , fire_ignition_end_y3 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_y3
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_y3(id_id) = fire_ignition_end_y3
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_y3

SUBROUTINE  nl_set_fire_ignition_start_x4 (docs)   ( id_id , fire_ignition_start_x4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_x4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_x4(id_id) = fire_ignition_start_x4
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_x4

SUBROUTINE  nl_set_fire_ignition_start_y4 (docs)   ( id_id , fire_ignition_start_y4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_y4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_y4(id_id) = fire_ignition_start_y4
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_y4

SUBROUTINE  nl_set_fire_ignition_end_x4 (docs)   ( id_id , fire_ignition_end_x4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_x4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_x4(id_id) = fire_ignition_end_x4
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_x4

SUBROUTINE  nl_set_fire_ignition_end_y4 (docs)   ( id_id , fire_ignition_end_y4 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_y4
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_y4(id_id) = fire_ignition_end_y4
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_y4

SUBROUTINE  nl_set_fire_ignition_start_x5 (docs)   ( id_id , fire_ignition_start_x5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_x5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_x5(id_id) = fire_ignition_start_x5
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_x5

SUBROUTINE  nl_set_fire_ignition_start_y5 (docs)   ( id_id , fire_ignition_start_y5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_start_y5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_start_y5(id_id) = fire_ignition_start_y5
  RETURN
END SUBROUTINE nl_set_fire_ignition_start_y5

SUBROUTINE  nl_set_fire_ignition_end_x5 (docs)   ( id_id , fire_ignition_end_x5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_x5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_x5(id_id) = fire_ignition_end_x5
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_x5

SUBROUTINE  nl_set_fire_ignition_end_y5 (docs)   ( id_id , fire_ignition_end_y5 ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ignition_end_y5
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ignition_end_y5(id_id) = fire_ignition_end_y5
  RETURN
END SUBROUTINE nl_set_fire_ignition_end_y5

SUBROUTINE  nl_set_fire_lat_init (docs)   ( id_id , fire_lat_init ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_lat_init
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_lat_init(id_id) = fire_lat_init
  RETURN
END SUBROUTINE nl_set_fire_lat_init

SUBROUTINE  nl_set_fire_lon_init (docs)   ( id_id , fire_lon_init ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_lon_init
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_lon_init(id_id) = fire_lon_init
  RETURN
END SUBROUTINE nl_set_fire_lon_init

SUBROUTINE  nl_set_fire_ign_time (docs)   ( id_id , fire_ign_time ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ign_time
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ign_time(id_id) = fire_ign_time
  RETURN
END SUBROUTINE nl_set_fire_ign_time

SUBROUTINE  nl_set_fire_shape (docs)   ( id_id , fire_shape ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_shape
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_shape(id_id) = fire_shape
  RETURN
END SUBROUTINE nl_set_fire_shape

SUBROUTINE  nl_set_fire_sprd_mdl (docs)   ( id_id , fire_sprd_mdl ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_sprd_mdl
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_sprd_mdl(id_id) = fire_sprd_mdl
  RETURN
END SUBROUTINE nl_set_fire_sprd_mdl

SUBROUTINE  nl_set_fire_crwn_hgt (docs)   ( id_id , fire_crwn_hgt ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_crwn_hgt
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_crwn_hgt(id_id) = fire_crwn_hgt
  RETURN
END SUBROUTINE nl_set_fire_crwn_hgt

SUBROUTINE  nl_set_fire_ext_grnd (docs)   ( id_id , fire_ext_grnd ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ext_grnd
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ext_grnd(id_id) = fire_ext_grnd
  RETURN
END SUBROUTINE nl_set_fire_ext_grnd

SUBROUTINE  nl_set_fire_ext_crwn (docs)   ( id_id , fire_ext_crwn ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_ext_crwn
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_ext_crwn(id_id) = fire_ext_crwn
  RETURN
END SUBROUTINE nl_set_fire_ext_crwn

SUBROUTINE  nl_set_fire_fuel_read (docs)   ( id_id , fire_fuel_read ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_fuel_read
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_fuel_read(id_id) = fire_fuel_read
  RETURN
END SUBROUTINE nl_set_fire_fuel_read

SUBROUTINE  nl_set_fire_fuel_cat (docs)   ( id_id , fire_fuel_cat ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_fuel_cat
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_fuel_cat(id_id) = fire_fuel_cat
  RETURN
END SUBROUTINE nl_set_fire_fuel_cat

SUBROUTINE  nl_set_fire_print_msg (docs)   ( id_id , fire_print_msg ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_print_msg
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_print_msg(id_id) = fire_print_msg
  RETURN
END SUBROUTINE nl_set_fire_print_msg

SUBROUTINE  nl_set_fire_print_file (docs)   ( id_id , fire_print_file ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_print_file
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_print_file(id_id) = fire_print_file
  RETURN
END SUBROUTINE nl_set_fire_print_file

SUBROUTINE  nl_set_fire_fuel_left_method (docs)   ( id_id , fire_fuel_left_method ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_fuel_left_method
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_fuel_left_method(id_id) = fire_fuel_left_method
  RETURN
END SUBROUTINE nl_set_fire_fuel_left_method

SUBROUTINE  nl_set_fire_fuel_left_irl (docs)   ( id_id , fire_fuel_left_irl ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_fuel_left_irl
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_fuel_left_irl(id_id) = fire_fuel_left_irl
  RETURN
END SUBROUTINE nl_set_fire_fuel_left_irl

SUBROUTINE  nl_set_fire_fuel_left_jrl (docs)   ( id_id , fire_fuel_left_jrl ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_fuel_left_jrl
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_fuel_left_jrl(id_id) = fire_fuel_left_jrl
  RETURN
END SUBROUTINE nl_set_fire_fuel_left_jrl

SUBROUTINE  nl_set_fire_atm_feedback (docs)   ( id_id , fire_atm_feedback ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_atm_feedback
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_atm_feedback(id_id) = fire_atm_feedback
  RETURN
END SUBROUTINE nl_set_fire_atm_feedback

SUBROUTINE  nl_set_fire_back_weight (docs)   ( id_id , fire_back_weight ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_back_weight
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_back_weight(id_id) = fire_back_weight
  RETURN
END SUBROUTINE nl_set_fire_back_weight

SUBROUTINE  nl_set_fire_grows_only (docs)   ( id_id , fire_grows_only ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_grows_only
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_grows_only(id_id) = fire_grows_only
  RETURN
END SUBROUTINE nl_set_fire_grows_only

SUBROUTINE  nl_set_fire_upwinding (docs)   ( id_id , fire_upwinding ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_upwinding
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_upwinding(id_id) = fire_upwinding
  RETURN
END SUBROUTINE nl_set_fire_upwinding

SUBROUTINE  nl_set_fire_upwind_split (docs)   ( id_id , fire_upwind_split ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_upwind_split
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_upwind_split(id_id) = fire_upwind_split
  RETURN
END SUBROUTINE nl_set_fire_upwind_split

SUBROUTINE  nl_set_fire_viscosity (docs)   ( id_id , fire_viscosity ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_viscosity
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_viscosity(id_id) = fire_viscosity
  RETURN
END SUBROUTINE nl_set_fire_viscosity

SUBROUTINE  nl_set_fire_lfn_ext_up (docs)   ( id_id , fire_lfn_ext_up ),1
  USE module_configure, ONLY : model_config_rec 
  real , INTENT(IN) :: fire_lfn_ext_up
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_lfn_ext_up(id_id) = fire_lfn_ext_up
  RETURN
END SUBROUTINE nl_set_fire_lfn_ext_up

SUBROUTINE  nl_set_fire_test_steps (docs)   ( id_id , fire_test_steps ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_test_steps
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_test_steps(id_id) = fire_test_steps
  RETURN
END SUBROUTINE nl_set_fire_test_steps

SUBROUTINE  nl_set_fire_topo_from_atm (docs)   ( id_id , fire_topo_from_atm ),1
  USE module_configure, ONLY : model_config_rec 
  integer , INTENT(IN) :: fire_topo_from_atm
  INTEGER id_id
  CHARACTER*80 emess
  model_config_rec%fire_topo_from_atm(id_id) = fire_topo_from_atm
  RETURN
END SUBROUTINE nl_set_fire_topo_from_atm
!ENDOFREGISTRYGENERATEDINCLUDE