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

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

subroutine, public	urban_grid_cartesc_real_finalize
	Finalize. More...

subroutine, public	urban_grid_cartesc_real_set_areavol

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 54 of file scale_urban_grid_cartesC_real.F90.

  
     ! 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) )
     !$acc enter data create(URBAN_GRID_CARTESC_REAL_AREA,URBAN_GRID_CARTESC_REAL_VOL)
  
     return

References scale_urban_grid_cartesc_index::uia, scale_urban_grid_cartesc_index::uja, scale_urban_grid_cartesc_index::uka, urban_grid_cartesc_real_area, and urban_grid_cartesc_real_vol.

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

Here is the caller graph for this function:

◆ urban_grid_cartesc_real_finalize()

subroutine, public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_finalize

Finalize.

Definition at line 66 of file scale_urban_grid_cartesC_real.F90.

     implicit none
  
     !$acc exit data delete(URBAN_GRID_CARTESC_REAL_AREA,URBAN_GRID_CARTESC_REAL_VOL)
     deallocate( urban_grid_cartesc_real_area )
     deallocate( urban_grid_cartesc_real_vol  )
  
     return

References urban_grid_cartesc_real_area, and urban_grid_cartesc_real_vol.

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

Here is the caller graph for this function:

◆ urban_grid_cartesc_real_set_areavol()

subroutine, public scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol

Definition at line 77 of file scale_urban_grid_cartesC_real.F90.

     use scale_atmos_grid_cartesc_real, only: &
        atmos_grid_cartesc_real_area
     use scale_urban_grid_cartesc, only: &
        urban_grid_cartesc_cdz
     use scale_file_cartesc, only: &
        file_cartesc_set_coordinates_urban
     use scale_landuse, only: &
        landuse_fact_urban
  
     integer :: k, i, j
  
     do j = 1, uja
     do i = 1, uia
        urban_grid_cartesc_real_area(i,j) = atmos_grid_cartesc_real_area(i,j) * landuse_fact_urban(i,j)
     end do
     end do
  
     urban_grid_cartesc_real_totarea = 0.0_rp
     do j = ujs, uje
     do i = uis, uie
        urban_grid_cartesc_real_totarea = urban_grid_cartesc_real_totarea + urban_grid_cartesc_real_area(i,j)
     end do
     end do
  
     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
  
     !$acc update device(URBAN_GRID_CARTESC_REAL_AREA,URBAN_GRID_CARTESC_REAL_VOL)
  
     call file_cartesc_set_coordinates_urban( urban_grid_cartesc_real_vol(:,:,:) ) ! [IN]
  
     return