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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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