scale_land_grid_cartesc_real Module Reference

module land / grid / cartesianC / real More...

Functions/Subroutines
subroutine, public	land_grid_cartesc_real_setup
	Setup real grid. More...
subroutine, public	land_grid_cartesc_real_set_areavol

Variables
real(rp), dimension(:,:), allocatable, public	land_grid_cartesc_real_area
	area of grid cell More...
real(rp), public	land_grid_cartesc_real_totarea
	total area More...
real(rp), dimension(:,:,:), allocatable, public	land_grid_cartesc_real_vol
	volume of grid cell More...
real(rp), public	land_grid_cartesc_real_totvol
	total volume More...

Detailed Description

module land / grid / cartesianC / real

Description

Grid module for cartesian coordinate for land

Author

Team SCALE

Function/Subroutine Documentation

land_grid_cartesc_real_setup()

subroutine, public scale_land_grid_cartesc_real::land_grid_cartesc_real_setup

Setup real grid.

Definition at line 53 of file scale_land_grid_cartesC_real.F90.

 
    ! at this moment, horizontal grid is identical to that of the atmosphere
    allocate( land_grid_cartesc_real_area(    lia,lja) )
    allocate( land_grid_cartesc_real_vol(lka,lia,lja) )
 
    return

References land_grid_cartesc_real_area, land_grid_cartesc_real_vol, scale_land_grid_cartesc_index::lia, scale_land_grid_cartesc_index::lja, and scale_land_grid_cartesc_index::lka.

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

Here is the caller graph for this function:

land_grid_cartesc_real_set_areavol()

subroutine, public scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol

Definition at line 62 of file scale_land_grid_cartesC_real.F90.

    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_area
    use scale_land_grid_cartesc, only: &
       land_grid_cartesc_cdz
    use scale_file_cartesc, only: &
       file_cartesc_set_coordinates_land
    use scale_landuse, only: &
       landuse_fact_land
 
    integer :: k, i, j
 
    land_grid_cartesc_real_totarea = 0.0_rp
    do j = 1, lja
    do i = 1, lia
       land_grid_cartesc_real_area(i,j) = atmos_grid_cartesc_real_area(i,j) * landuse_fact_land(i,j)
       land_grid_cartesc_real_totarea = land_grid_cartesc_real_totarea + land_grid_cartesc_real_area(i,j)
    end do
    end do
 
    do j = 1,   lja
    do i = 1,   lia
    do k = lks, lke
       land_grid_cartesc_real_vol(k,i,j) = land_grid_cartesc_real_area(i,j) * land_grid_cartesc_cdz(k)
    enddo
    enddo
    enddo
 
    land_grid_cartesc_real_totvol = 0.0_rp
    do j = ljs, lje
    do i = lis, lie
    do k = lks, lke
       land_grid_cartesc_real_totvol = land_grid_cartesc_real_totvol + land_grid_cartesc_real_vol(k,i,j)
    end do
    end do
    end do
 
    call file_cartesc_set_coordinates_land( land_grid_cartesc_real_vol(:,:,:) ) ! [IN]
 
    return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_file_cartesc::file_cartesc_set_coordinates_land(), scale_land_grid_cartesc::land_grid_cartesc_cdz, land_grid_cartesc_real_area, land_grid_cartesc_real_totarea, land_grid_cartesc_real_totvol, land_grid_cartesc_real_vol, scale_landuse::landuse_fact_land, scale_land_grid_cartesc_index::lia, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lja, scale_land_grid_cartesc_index::lje, scale_land_grid_cartesc_index::ljs, scale_land_grid_cartesc_index::lke, and scale_land_grid_cartesc_index::lks.

Referenced by mod_mkinit::read_sounding(), 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

land_grid_cartesc_real_area

real(rp), dimension(:,:), allocatable, public scale_land_grid_cartesc_real::land_grid_cartesc_real_area

area of grid cell

Definition at line 35 of file scale_land_grid_cartesC_real.F90.

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

Referenced by land_grid_cartesc_real_set_areavol(), land_grid_cartesc_real_setup(), mod_land_vars::land_vars_check(), and scale_monitor_cartesc::monitor_cartesc_setup().

land_grid_cartesc_real_totarea

real(rp), public scale_land_grid_cartesc_real::land_grid_cartesc_real_totarea

total area

Definition at line 36 of file scale_land_grid_cartesC_real.F90.

  real(RP), public              :: LAND_GRID_CARTESC_REAL_TOTAREA

Referenced by land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), and scale_monitor_cartesc::monitor_cartesc_setup().

land_grid_cartesc_real_vol

real(rp), dimension (:,:,:), allocatable, public scale_land_grid_cartesc_real::land_grid_cartesc_real_vol

volume of grid cell

Definition at line 37 of file scale_land_grid_cartesC_real.F90.

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

Referenced by scale_file_history_cartesc::file_history_cartesc_truncate_3d(), land_grid_cartesc_real_set_areavol(), land_grid_cartesc_real_setup(), mod_land_vars::land_vars_check(), and scale_monitor_cartesc::monitor_cartesc_setup().

land_grid_cartesc_real_totvol

real(rp), public scale_land_grid_cartesc_real::land_grid_cartesc_real_totvol

total volume

Definition at line 38 of file scale_land_grid_cartesC_real.F90.

  real(RP), public              :: LAND_GRID_CARTESC_REAL_TOTVOL

Referenced by land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), and scale_monitor_cartesc::monitor_cartesc_setup().