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

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

Variables
integer, public	ukmax = -1

integer, public	uimax = -1

integer, public	ujmax = -1

integer, public	uka

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_ICOA_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_icoa_index_setup()

subroutine, public scale_urban_grid_icoa_index::urban_grid_icoa_index_setup ( )

Setup.

Definition at line 59 of file scale_urban_grid_icoA_index.F90.

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

     use scale_prc, only: &
        prc_abort
     use scale_atmos_grid_icoa_index, only: &
        imax,       &
        ia, is, ie, &
        jmax,       &
        ja, js, je
     implicit none
 
     namelist / param_urban_grid_icoa_index / &
        ukmax
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     log_newline
     log_info("URBAN_GRID_ICOA_INDEX_setup",*) 'Setup'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_urban_grid_icoa_index,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        log_info("URBAN_GRID_ICOA_INDEX_setup",*) 'Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        log_error("URBAN_GRID_ICOA_INDEX_setup",*) 'Not appropriate names in namelist PARAM_URBAN_GRID_ICOA_INDEX. Check!'
        call prc_abort
     endif
     log_nml(param_urban_grid_icoa_index)
 
     if ( ukmax < 1 ) then
        log_error("URBAN_GRID_ICOA_INDEX_setup",*) 'UKMAX must be >= 1 ', ukmax
        call prc_abort
     end if
 
     uka  = ukmax
     uks  = 1
     uke  = ukmax
 
     log_newline
     log_info("URBAN_GRID_ICOA_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
 
     return