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_finalize
	Finalize. 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 54 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) )
     !$acc enter data create(LAND_GRID_CARTESC_REAL_AREA, LAND_GRID_CARTESC_REAL_VOL)
  
     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_finalize()

subroutine, public scale_land_grid_cartesc_real::land_grid_cartesc_real_finalize

Finalize.

Definition at line 66 of file scale_land_grid_cartesC_real.F90.

     implicit none
  
     !$acc exit data delete(LAND_GRID_CARTESC_REAL_AREA, LAND_GRID_CARTESC_REAL_VOL)
     deallocate( land_grid_cartesc_real_area  )
     deallocate( land_grid_cartesc_real_vol   )
  
     return

References land_grid_cartesc_real_area, and land_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:

◆ land_grid_cartesc_real_set_areavol()

subroutine, public scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol

Definition at line 77 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
  
     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)
     end do
     end do
     !$acc update device(LAND_GRID_CARTESC_REAL_AREA) async
  
     land_grid_cartesc_real_totarea = 0.0_rp
     do j = ljs, lje
     do i = lis, lie
        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
     !$acc update device(LAND_GRID_CARTESC_REAL_VOL) async
  
     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]
     !$acc wait
  
     return