scale_urban_grid_index Module Reference

module urban grid index More...

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

Variables
integer, public	ukmax = 1
integer, public	uks
integer, public	uke

Detailed Description

module urban grid index

Description

Grid Index module for urban

Author

Team SCALE

Function/Subroutine Documentation

urban_grid_index_setup()

subroutine, public scale_urban_grid_index::urban_grid_index_setup

(

)

Setup.

Definition at line 49 of file scale_urban_grid_index.F90.

References scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, scale_process::prc_mpistop(), uke, ukmax, and uks.

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

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_urban_index / &
       ukmax

    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[GRID_INDEX] / Categ[URBAN GRID] / Origin[SCALElib]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_urban_index,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_INDEX. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_urban_index)

    uks  = 1
    uke  = ukmax

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Urban grid index information ***'
    if( io_l ) write(io_fid_log,'(1x,A,I6,A,I6,A,I6)') '*** z-axis levels :', ukmax

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

ukmax

integer, public scale_urban_grid_index::ukmax = 1

Definition at line 31 of file scale_urban_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_write_3d(), scale_history::hist_put_3d(), and urban_grid_index_setup().

  integer, public :: ukmax = 1 ! # of computational cells: z for urban

uks

integer, public scale_urban_grid_index::uks

Definition at line 33 of file scale_urban_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_set_axes(), scale_fileio::fileio_write_3d(), scale_history::hist_put_3d(), scale_history::hist_switch(), mod_realinput::realinput_surface(), mod_urban_driver::urban_driver(), urban_grid_index_setup(), scale_urban_grid::urban_grid_setup(), mod_urban_phy_driver::urban_phy_driver(), scale_urban_phy_slc::urban_phy_slc(), scale_urban_phy_slc::urban_phy_slc_setup(), mod_urban_vars::urban_vars_external_in(), mod_urban_vars::urban_vars_setup(), and mod_urban_vars::urban_vars_total().

  integer, public :: uks       ! start point of inner domain: z for urban, local

uke

integer, public scale_urban_grid_index::uke

Definition at line 34 of file scale_urban_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_set_axes(), scale_fileio::fileio_write_3d(), scale_history::hist_put_3d(), scale_history::hist_switch(), mod_realinput::realinput_surface(), mod_urban_driver::urban_driver(), urban_grid_index_setup(), scale_urban_grid::urban_grid_setup(), mod_urban_phy_driver::urban_phy_driver(), scale_urban_phy_slc::urban_phy_slc(), scale_urban_phy_slc::urban_phy_slc_setup(), mod_urban_vars::urban_vars_external_in(), mod_urban_vars::urban_vars_setup(), and mod_urban_vars::urban_vars_total().

  integer, public :: uke       ! end   point of inner domain: z for urban, local