mod_urban_admin Module Reference

module Urban admin More...

Functions/Subroutines
subroutine, public	urban_admin_setup
	Setup. More...

Variables
logical, public	urban_do = .true.
logical, public	urban_land = .false.
character(len=h_short), public	urban_dyn_type = 'NONE'
character(len=h_short), public	urban_sfc_type = 'NONE'

Detailed Description

module Urban admin

Description

Urban submodel administrator

Author

Team SCALE

NAMELIST

• PARAM_URBAN

  name	type	default value	comment
  URBAN_DYN_TYPE	character(len=H_SHORT)	'NONE'

  
  

History Output

No history output

Function/Subroutine Documentation

urban_admin_setup()

subroutine, public mod_urban_admin::urban_admin_setup

(

)

Setup.

Definition at line 55 of file mod_urban_admin.F90.

References scale_io::io_fid_conf, scale_prc::prc_abort(), urban_do, urban_dyn_type, and urban_land.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

    use scale_prc, only: &
       prc_abort
    implicit none

    namelist / param_urban / &
       urban_dyn_type
    integer :: ierr
    !---------------------------------------------------------------------------

    log_newline
    log_info("URBAN_ADMIN_setup",*) 'Setup'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_urban,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("URBAN_ADMIN_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("URBAN_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_URBAN. Check!'
       call prc_abort
    endif
    log_nml(param_urban)

    !-----< module component check >-----

    log_newline
    log_info("URBAN_ADMIN_setup",*) 'Urban model components '

    if ( urban_dyn_type == 'LAND' ) then
       log_info_cont(*) 'Urban model : OFF (Land model is used for urban)'
       urban_do   = .false.
       urban_land = .true.
    else if ( urban_dyn_type /= 'OFF' .AND. urban_dyn_type /= 'NONE' ) then
       log_info_cont(*) 'Urban model : ON, ', trim(urban_dyn_type)
       urban_do = .true.
    else
       log_info_cont(*) 'Urban model : OFF'
       urban_do = .false.
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

urban_do

logical, public mod_urban_admin::urban_do = .true.

Definition at line 32 of file mod_urban_admin.F90.

Referenced by mod_admin_restart::admin_restart_read(), mod_cpl_admin::cpl_admin_setup(), mod_cpl_vars::cpl_vars_setup(), mod_realinput::realinput_surface(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), urban_admin_setup(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_surface_get(), mod_urban_driver::urban_surface_set(), mod_urban_vars::urban_vars_restart_create(), and mod_urban_vars::urban_vars_restart_open().

  logical,                public :: urban_do   = .true.  ! main switch for the model

urban_land

logical, public mod_urban_admin::urban_land = .false.

Definition at line 33 of file mod_urban_admin.F90.

Referenced by mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), and urban_admin_setup().

  logical,                public :: urban_land = .false. ! urban is handled as a land use type

urban_dyn_type

character(len=h_short), public mod_urban_admin::urban_dyn_type = 'NONE'

Definition at line 35 of file mod_urban_admin.F90.

Referenced by urban_admin_setup(), mod_urban_driver::urban_driver_setup(), and mod_urban_driver::urban_driver_update().

  character(len=H_SHORT), public :: urban_dyn_type = 'NONE'

urban_sfc_type

character(len=h_short), public mod_urban_admin::urban_sfc_type = 'NONE'

Definition at line 39 of file mod_urban_admin.F90.

Referenced by mod_urban_driver::urban_driver_calc_tendency(), and mod_urban_driver::urban_driver_setup().

  character(len=H_SHORT), public :: urban_sfc_type = 'NONE'