scale_urban_grid_cartesc_real Module Reference

module urban / grid / cartesianC / real More...

Functions/Subroutines
subroutine, public	urban_grid_cartesc_real_setup
	Setup real grid. More...

Variables
real(rp), dimension(:,:), allocatable, public	urban_grid_cartesc_real_area
	area of grid cell More...
real(rp), public	urban_grid_cartesc_real_totarea
	total area More...
real(rp), dimension(:,:,:), allocatable, public	urban_grid_cartesc_real_vol
	volume of grid cell More...
real(rp), public	urban_grid_cartesc_real_totvol
	total volume More...

Detailed Description

module urban / grid / cartesianC / real

Description

Grid module for cartesian coordinate for urban

Author

Team SCALE

Function/Subroutine Documentation

urban_grid_cartesc_real_setup()

subroutine, public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_setup

(

)

Setup real grid.

Definition at line 53 of file scale_urban_grid_cartesC_real.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totarea, scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_urban_grid_cartesc_index::uia, scale_urban_grid_cartesc_index::uie, scale_urban_grid_cartesc_index::uis, scale_urban_grid_cartesc_index::uja, scale_urban_grid_cartesc_index::uje, scale_urban_grid_cartesc_index::ujs, scale_urban_grid_cartesc_index::uka, scale_urban_grid_cartesc_index::uke, scale_urban_grid_cartesc_index::uks, scale_urban_grid_cartesc::urban_grid_cartesc_cdz, urban_grid_cartesc_real_area, urban_grid_cartesc_real_totarea, urban_grid_cartesc_real_totvol, and urban_grid_cartesc_real_vol.

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

    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_area, &
       atmos_grid_cartesc_real_totarea
    use scale_urban_grid_cartesc, only: &
       urban_grid_cartesc_cdz
    use scale_file_cartesc, only: &
       file_cartesc_set_coordinates_urban

    integer :: k, i, j

    ! at this moment, horizontal grid is identical to that of the atmosphere
    allocate( urban_grid_cartesc_real_area(    uia,uja) )
    allocate( urban_grid_cartesc_real_vol(uka,uia,uja) )
    urban_grid_cartesc_real_area(:,:) = atmos_grid_cartesc_real_area(:,:)
    urban_grid_cartesc_real_totarea   = atmos_grid_cartesc_real_totarea

    do j = 1,   uja
    do i = 1,   uia
    do k = uks, uke
       urban_grid_cartesc_real_vol(k,i,j) = urban_grid_cartesc_real_area(i,j) * urban_grid_cartesc_cdz(k)
    enddo
    enddo
    enddo

    urban_grid_cartesc_real_totvol = 0.0_rp
    do j = ujs, uje
    do i = uis, uie
    do k = uks, uke
       urban_grid_cartesc_real_totvol = urban_grid_cartesc_real_totvol + urban_grid_cartesc_real_vol(k,i,j)
    end do
    end do
    end do

    call file_cartesc_set_coordinates_urban( urban_grid_cartesc_real_vol(:,:,:) ) ! [IN]

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

urban_grid_cartesc_real_area

real(rp), dimension(:,:), allocatable, public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_area

area of grid cell

Definition at line 35 of file scale_urban_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), urban_grid_cartesc_real_setup(), and mod_urban_vars::urban_vars_total().

  real(RP), public, allocatable :: urban_grid_cartesc_real_area(:,:)

urban_grid_cartesc_real_totarea

real(rp), public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_totarea

total area

Definition at line 36 of file scale_urban_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), urban_grid_cartesc_real_setup(), and mod_urban_vars::urban_vars_total().

  real(RP), public              :: urban_grid_cartesc_real_totarea

urban_grid_cartesc_real_vol

real(rp), dimension (:,:,:), allocatable, public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_vol

volume of grid cell

Definition at line 37 of file scale_urban_grid_cartesC_real.F90.

Referenced by scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), urban_grid_cartesc_real_setup(), and mod_urban_vars::urban_vars_total().

  real(RP), public, allocatable :: urban_grid_cartesc_real_vol (:,:,:)

urban_grid_cartesc_real_totvol

real(rp), public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_totvol

total volume

Definition at line 38 of file scale_urban_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_urban_driver::urban_driver_calc_tendency(), urban_grid_cartesc_real_setup(), and mod_urban_vars::urban_vars_total().

  real(RP), public              :: urban_grid_cartesc_real_totvol