mod_urban_admin Module Reference

module Urban admin More...

Functions/Subroutines
subroutine, public	urban_admin_setup
	Setup. More...
subroutine, public	urban_admin_getscheme (scheme_name)
	Get name of scheme for each component. More...

Variables
logical, public	urban_do = .true.
character(len=h_short), public	urban_type = 'NONE'
logical, public	urban_sw

Detailed Description

module Urban admin

Description

Urban submodel administrator

Author

Team SCALE

NAMELIST

• PARAM_URBAN

  name	type	default value	comment
  URBAN_DO	logical	.true.	main switch for the model
  URBAN_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 52 of file mod_urban_admin.f90.

References scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_fid_nml, scale_stdio::io_l, scale_stdio::io_nml, scale_process::prc_mpistop(), urban_do, urban_sw, and urban_type.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_urban / &
       urban_do,  &
       urban_type
    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[URBAN] / Origin[SCALE-RM]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_urban,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_URBAN. Check!'
       call prc_mpistop
    endif
    if( io_nml ) write(io_fid_nml,nml=param_urban)

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

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Urban model components ***'

    if ( urban_type == 'OFF' .OR. urban_type == 'NONE' ) then
       urban_do = .false. ! force off
    endif

    if ( urban_do ) then
       if( io_l ) write(io_fid_log,*) '*** Urban model     : ON'
    else
       if( io_l ) write(io_fid_log,*) '*** Urban model     : OFF'
    endif

    if ( urban_type /= 'OFF' .AND. urban_type /= 'NONE' ) then
       if( io_l ) write(io_fid_log,*) '*** + Urban physics : ON, ', trim(urban_type)
       urban_sw = .true.
    else
       if( io_l ) write(io_fid_log,*) '*** + Urban physics : OFF'
       urban_sw = .false.
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

urban_admin_getscheme()

subroutine, public mod_urban_admin::urban_admin_getscheme

(

character(len=h_short), intent(out)

scheme_name

)

Get name of scheme for each component.

Definition at line 106 of file mod_urban_admin.f90.

References scale_process::prc_mpistop(), and urban_type.

    use scale_process, only: &
       prc_mpistop
    implicit none

    character(len=H_SHORT), intent(out) :: scheme_name
    !---------------------------------------------------------------------------

    scheme_name = urban_type

    return

Here is the call graph for this function:

Variable Documentation

urban_do

logical, public mod_urban_admin::urban_do = .true.

Definition at line 33 of file mod_urban_admin.f90.

Referenced by mod_admin_restart::admin_restart_read(), mod_rm_driver::resume_state(), mod_rm_driver::scalerm(), and urban_admin_setup().

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

urban_type

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

Definition at line 35 of file mod_urban_admin.f90.

Referenced by urban_admin_getscheme(), urban_admin_setup(), and mod_urban_phy_driver::urban_phy_driver_setup().

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

urban_sw

logical, public mod_urban_admin::urban_sw

Definition at line 37 of file mod_urban_admin.f90.

Referenced by mod_cpl_admin::cpl_admin_setup(), mod_cpl_vars::cpl_vars_setup(), urban_admin_setup(), mod_urban_driver::urban_driver(), mod_urban_driver::urban_driver_resume(), mod_urban_phy_driver::urban_phy_driver_resume(), mod_urban_phy_driver::urban_phy_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_sw