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_l, scale_stdio::io_lnml, 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_lnml ) write(io_fid_log,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