scale_urban_grid_cartesc_index Module Reference

module urban / grid / icosahedralA / index More...

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

Variables
integer, public	ukmax = -1
integer, public	uimax = -1
integer, public	ujmax = -1
integer, public	uka = -1
integer, public	uks
integer, public	uke
integer, public	uia
integer, public	uis
integer, public	uie
integer, public	uja
integer, public	ujs
integer, public	uje

Detailed Description

module urban / grid / icosahedralA / index

Description

Grid Index module for urban

Author

Team SCALE

NAMELIST

• PARAM_URBAN_GRID_CARTESC_INDEX

  name	type	default value	comment
  UKMAX	integer	-1	# of computational cells: z for urban

  
  

History Output

No history output

Function/Subroutine Documentation

urban_grid_cartesc_index_setup()

subroutine, public scale_urban_grid_cartesc_index::urban_grid_cartesc_index_setup

Setup.

Definition at line 63 of file scale_urban_grid_cartesC_index.F90.

    use scale_prc, only: &
       prc_abort
    use scale_atmos_grid_cartesc_index, only: &
       imax,       &
       ia, is, ie, &
       jmax,       &
       ja, js, je
    implicit none
 
    namelist / param_urban_grid_cartesc_index / &
       ukmax
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("URBAN_GRID_CARTESC_INDEX_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_urban_grid_cartesc_index,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("URBAN_GRID_CARTESC_INDEX_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("URBAN_GRID_CARTESC_INDEX_setup",*) 'Not appropriate names in namelist PARAM_URBAN_GRID_CARTESC_INDEX. Check!'
       call prc_abort
    endif
    log_nml(param_urban_grid_cartesc_index)
 
    if ( ukmax < 1 ) then
       log_error("URBAN_GRID_CARTESC_INDEX_setup",*) 'UKMAX must be >= 1 ', ukmax
       call prc_abort
    end if
 
    uka  = ukmax
    uks  = 1
    uke  = ukmax
 
    log_newline
    log_info("URBAN_GRID_CARTESC_INDEX_setup",*) 'Urban grid index information '
    log_info_cont('(1x,A,I6,A,I6,A,I6)') 'z-axis levels :', ukmax
 
    ! at this moment horizontal grid is same as that in atmosphere
    uimax = imax
    uia = ia
    uis = is
    uie = ie
 
    ujmax = jmax
    uja = ja
    ujs = js
    uje = je
 
    !$acc update device(UKMAX, UIMAX, UJMAX)
 
    !$acc update device(UKA, UKS, UKE, UIA, UIS, UIE, UJA, UJS, UJE)
 
    return

References scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::imax, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jmax, scale_atmos_grid_cartesc_index::js, scale_prc::prc_abort(), uia, uie, uimax, uis, uja, uje, ujmax, ujs, uka, uke, ukmax, and uks.

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

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

ukmax

integer, public scale_urban_grid_cartesc_index::ukmax = -1

Definition at line 32 of file scale_urban_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::construct_derived_datatype(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_axes(), scale_file_cartesc::file_cartesc_finalize(), scale_file_cartesc::file_cartesc_put_globalattributes(), scale_file_cartesc::file_cartesc_setup(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_truncate_1d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), mod_realinput::realinput_surface(), scale_file_cartesc::set_dimension_informations(), urban_grid_cartesc_index_setup(), and scale_urban_grid_cartesc::urban_grid_cartesc_setup().

uimax

integer, public scale_urban_grid_cartesc_index::uimax = -1

Definition at line 33 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UIMAX = -1 ! # of computational cells: x for urban

Referenced by urban_grid_cartesc_index_setup().

ujmax

integer, public scale_urban_grid_cartesc_index::ujmax = -1

Definition at line 34 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UJMAX = -1 ! # of computational cells: y for urban

Referenced by urban_grid_cartesc_index_setup().

uka

integer, public scale_urban_grid_cartesc_index::uka = -1

Definition at line 37 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UKA   = -1 ! # of total grids: z for urban, local

Referenced by scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_setup(), and mod_urban_vars::urban_vars_check().

uks

integer, public scale_urban_grid_cartesc_index::uks

Definition at line 38 of file scale_urban_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::construct_derived_datatype(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_file_history_cartesc::file_history_cartesc_truncate_1d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_update(), scale_urban_grid_cartesc::urban_grid_cartesc_finalize(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), scale_urban_grid_cartesc::urban_grid_cartesc_setup(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_setup().

uke

integer, public scale_urban_grid_cartesc_index::uke

Definition at line 39 of file scale_urban_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_update(), scale_urban_grid_cartesc::urban_grid_cartesc_finalize(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), scale_urban_grid_cartesc::urban_grid_cartesc_setup(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_setup().

uia

integer, public scale_urban_grid_cartesc_index::uia

Definition at line 41 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UIA        ! # of total grids: x for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_setup(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_setup().

uis

integer, public scale_urban_grid_cartesc_index::uis

Definition at line 42 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UIS        ! start point of inner domain: x for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_driver_update(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_monitor().

uie

integer, public scale_urban_grid_cartesc_index::uie

Definition at line 43 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UIE        ! end   point of inner domain: x for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_driver_update(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_monitor().

uja

integer, public scale_urban_grid_cartesc_index::uja

Definition at line 45 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UJA        ! # of total grids: Y for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_setup(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_setup().

ujs

integer, public scale_urban_grid_cartesc_index::ujs

Definition at line 46 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UJS        ! start point of inner domain: y for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_driver_update(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_monitor().

uje

integer, public scale_urban_grid_cartesc_index::uje

Definition at line 47 of file scale_urban_grid_cartesC_index.F90.

  integer, public :: UJE        ! end   point of inner domain: y for urban, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_driver_update(), urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_check(), and mod_urban_vars::urban_vars_monitor().