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

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

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 52 of file scale_land_grid_cartesC_real.F90.

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_land_grid_cartesc, only: &
        land_grid_cartesc_cdz
     use scale_file_cartesc, only: &
        file_cartesc_set_coordinates_land
 
     integer :: k, i, j
 
     ! 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) )
     land_grid_cartesc_real_area(:,:) = atmos_grid_cartesc_real_area(:,:)
     land_grid_cartesc_real_totarea   = atmos_grid_cartesc_real_totarea
 
     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