scale_landuse Module Reference

module LANDUSE More...

Functions/Subroutines
subroutine, public	landuse_setup (OCEAN_do, URBAN_do, LAKE_do)
	Setup. More...
subroutine, public	landuse_calc_fact
subroutine, public	landuse_fillhalo (FILL_BND)
	HALO Communication. More...
subroutine, public	landuse_write
	Write landuse data. More...
subroutine, public	landuse_finalize
	Finalize. More...

Variables
real(rp), dimension(:,:), allocatable, public	landuse_fact_ocean
	ocean factor More...
real(rp), dimension(:,:), allocatable, public	landuse_fact_land
	land factor More...
real(rp), dimension(:,:), allocatable, public	landuse_fact_urban
	urban factor More...
real(rp), dimension(:,:), allocatable, public	landuse_fact_lake
	lake factor More...
logical, dimension(:,:), allocatable, public	landuse_exists_ocean
	ocean calculation flag More...
logical, dimension(:,:), allocatable, public	landuse_exists_land
	land calculation flag More...
logical, dimension(:,:), allocatable, public	landuse_exists_urban
	urban calculation flag More...
logical, dimension(:,:), allocatable, public	landuse_exists_lake
	lake calculation flag More...
real(rp), dimension(:,:), allocatable, public	landuse_frac_land
	land fraction More...
real(rp), dimension(:,:), allocatable, public	landuse_frac_urban
	urban fraction More...
real(rp), dimension(:,:), allocatable, public	landuse_frac_lake
	lake fraction More...
integer, parameter, public	landuse_index_ocean = 0
	ocean index More...
integer, parameter, public	landuse_index_urban = -1
	urban index More...
integer, parameter, public	landuse_index_lake = -2
	lake index More...
integer, parameter, public	landuse_pft_nmin = -2
	minimum number of PFT type More...
integer, public	landuse_pft_nmax = 17
	number of plant functional type(PFT) More...
integer, public	landuse_pft_mosaic = 2
	number of PFT mosaic More...
real(rp), dimension(:,:,:), allocatable, public	landuse_frac_pft
	fraction of PFT for each mosaic More...
integer, dimension(:,:,:), allocatable, public	landuse_index_pft
	index of PFT for each mosaic More...

Detailed Description

module LANDUSE

Description

Land use category module Manage land/lake/urban/PFT fraction and PFT index

Author

Team SCALE

Note

frac_urban = fact_urban / ( fact_urban + fact_land ) frac_lake = fact_lake / ( fact_lake + fact_urban + fact_land ) frac_land = ( fact_lake + fact_urban + fact_land ) / ( fact_lake + fact_urban + fact_land + fact_ocean) fact_lake + fact_urban + fact_land + fact_ocean = 1

NAMELIST

• PARAM_LANDUSE

  name	type	default value	comment
  LANDUSE_IN_BASENAME	character(len=H_LONG)	''	basename of the input file
  LANDUSE_IN_AGGREGATE	logical		switch to use aggregated file
  LANDUSE_IN_CHECK_COORDINATES	logical	.true.	switch for check of coordinates
  LANDUSE_OUT_BASENAME	character(len=H_LONG)	''	basename of the output file
  LANDUSE_OUT_AGGREGATE	logical		switch to use aggregated file
  LANDUSE_OUT_DTYPE	character(len=H_SHORT)	'DEFAULT'	REAL4 or REAL8
  LANDUSE_PFT_MOSAIC	integer	2	number of PFT mosaic
  LANDUSE_PFT_NMAX	integer	17	number of plant functional type(PFT)
  LANDUSE_ALLOCEAN	logical	.false.
  LANDUSE_ALLLAND	logical	.false.
  LANDUSE_ALLURBAN	logical	.false.
  LANDUSE_ALLLAKE	logical	.false.
  LANDUSE_IGNORE_LAKE	logical	.false.
  LANDUSE_MOSAICWORLD	logical	.false.

  
  

History Output

No history output

Function/Subroutine Documentation

landuse_setup()

subroutine, public scale_landuse::landuse_setup	(	logical, intent(in)	OCEAN_do,
		logical, intent(in)	URBAN_do,
		logical, intent(in)	LAKE_do
	)

Setup.

Definition at line 102 of file scale_landuse.F90.

    use scale_prc, only: &
       prc_abort
    use scale_file, only: &
       file_aggregate
    implicit none
 
    logical, intent(in) :: OCEAN_do
    logical, intent(in) :: URBAN_do
    logical, intent(in) :: LAKE_do
 
    namelist / param_landuse / &
       landuse_in_basename,          &
       landuse_in_aggregate,         &
       landuse_in_check_coordinates, &
       landuse_out_basename,         &
       landuse_out_aggregate,        &
       landuse_out_dtype,            &
       landuse_pft_mosaic,           &
       landuse_pft_nmax,             &
       landuse_allocean,             &
       landuse_allland,              &
       landuse_allurban,             &
       landuse_alllake,              &
       landuse_ignore_lake,          &
       landuse_mosaicworld
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LANDUSE_setup",*) 'Setup'
 
    landuse_in_aggregate  = file_aggregate
    landuse_out_aggregate = file_aggregate
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_landuse,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LANDUSE_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LANDUSE_setup",*) 'Not appropriate names in namelist PARAM_LANDUSE. Check!'
       call prc_abort
    endif
    log_nml(param_landuse)
 
    allocate( landuse_frac_land(ia,ja) )
    allocate( landuse_frac_urban(ia,ja) )
    allocate( landuse_frac_lake(ia,ja) )
    landuse_frac_land(:,:) = 0.0_rp
    landuse_frac_urban(:,:) = 0.0_rp
    landuse_frac_lake(:,:) = 0.0_rp
    !$acc enter data copyin(LANDUSE_frac_land, LANDUSE_frac_urban, LANDUSE_frac_lake)
 
    allocate( landuse_index_pft(ia,ja,landuse_pft_mosaic) )
    allocate( landuse_frac_pft(ia,ja,landuse_pft_mosaic) )
    landuse_frac_pft(:,:,:) = 0.0_rp
    landuse_frac_pft(:,:,1) = 1.0_rp ! tentative, mosaic is off
    landuse_index_pft(:,:,:) = 1      ! default
    !$acc enter data copyin(LANDUSE_index_PFT, LANDUSE_frac_PFT)
 
    allocate( landuse_fact_ocean(ia,ja) )
    allocate( landuse_fact_land(ia,ja) )
    allocate( landuse_fact_urban(ia,ja) )
    allocate( landuse_fact_lake(ia,ja) )
    landuse_fact_ocean(:,:) = 0.0_rp
    landuse_fact_land(:,:) = 0.0_rp
    landuse_fact_urban(:,:) = 0.0_rp
    landuse_fact_lake(:,:) = 0.0_rp
    !$acc enter data copyin(LANDUSE_fact_ocean, LANDUSE_fact_land, LANDUSE_fact_urban, LANDUSE_fact_lake)
 
    allocate( landuse_exists_ocean(ia,ja) )
    allocate( landuse_exists_land(ia,ja) )
    allocate( landuse_exists_urban(ia,ja) )
    allocate( landuse_exists_lake(ia,ja) )
    landuse_exists_ocean(:,:) = .false.
    landuse_exists_land(:,:) = .false.
    landuse_exists_urban(:,:) = .false.
    landuse_exists_lake(:,:) = .false.
    !$acc enter data copyin(LANDUSE_exists_ocean, LANDUSE_exists_land, LANDUSE_exists_urban, LANDUSE_exists_lake)
 
 
 
    if    ( landuse_allocean ) then
 
       log_info("LANDUSE_setup",*) 'Assume all grids are ocean'
 
    elseif( landuse_allland ) then
 
       log_info("LANDUSE_setup",*) 'Assume all grids are land'
       log_info("LANDUSE_setup",*) 'Assume land PFT is 1 (bare ground)'
       landuse_frac_land(:,:) = 1.0_rp
 
    elseif( landuse_allurban ) then
 
       log_info("LANDUSE_setup",*) 'Assume all grids are land'
       log_info("LANDUSE_setup",*) 'Assume all lands are urban'
       log_info("LANDUSE_setup",*) 'Assume land PFT is urban: ', landuse_index_urban
       landuse_frac_land(:,:)   = 1.0_rp
       landuse_frac_urban(:,:)   = 1.0_rp
       landuse_index_pft(:,:,:) = landuse_index_urban
 
    elseif( landuse_alllake ) then
 
       log_info("LANDUSE_setup",*) 'Assume all grids are land'
       log_info("LANDUSE_setup",*) 'Assume all lands are lake'
       log_info("LANDUSE_setup",*) 'Assume land PFT is lake: ', landuse_index_lake
       landuse_frac_land(:,:)   = 1.0_rp
       landuse_frac_lake(:,:)   = 1.0_rp
       landuse_index_pft(:,:,:) = landuse_index_lake
 
    elseif( landuse_mosaicworld ) then
 
       log_info("LANDUSE_setup",*) 'Assume all grids have ocean, land, and urban'
!       LOG_INFO("LANDUSE_setup",*) 'Assume all grids have ocean, land, urban, and lake'
       log_info("LANDUSE_setup",*) 'Assume land PFT is 1 (bare ground)'
       landuse_frac_land(:,:) = 0.5_rp
       landuse_frac_urban(:,:) = 0.5_rp
!       LANDUSE_frac_lake (:,:) = 0.25_RP
 
    else ! default: read from file
 
       call landuse_read( ocean_do, urban_do, lake_do )
 
    endif
 
    !$acc update device(LANDUSE_frac_land, LANDUSE_frac_urban, LANDUSE_frac_lake)
    !$acc update device(LANDUSE_index_PFT, LANDUSE_frac_PFT)
 
    call landuse_calc_fact
 
    return

References scale_file::file_aggregate, scale_atmos_grid_cartesc_index::ia, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::ja, landuse_calc_fact(), landuse_exists_lake, landuse_exists_land, landuse_exists_ocean, landuse_exists_urban, landuse_fact_lake, landuse_fact_land, landuse_fact_ocean, landuse_fact_urban, landuse_frac_lake, landuse_frac_land, landuse_frac_pft, landuse_frac_urban, landuse_index_lake, landuse_index_pft, landuse_index_urban, landuse_pft_mosaic, landuse_pft_nmax, and scale_prc::prc_abort().

Referenced by 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:

landuse_calc_fact()

subroutine, public scale_landuse::landuse_calc_fact

Definition at line 238 of file scale_landuse.F90.

    implicit none
 
    real(RP) :: fact_soil
    integer  :: i, j
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LANDUSE_calc_fact",*) 'calculate landuse factor'
 
    ! make factors
    !$omp parallel do private(fact_soil)
    !$acc kernels
    do j = 1, ja
    do i = 1, ia
       landuse_fact_ocean(i,j) = max( 1.0_rp - landuse_frac_land(i,j), 0.0_rp )
       landuse_fact_lake(i,j) = landuse_frac_land(i,j) * landuse_frac_lake(i,j)
       fact_soil = max( landuse_frac_land(i,j) - landuse_fact_lake(i,j), 0.0_rp )
       landuse_fact_urban(i,j) = fact_soil * landuse_frac_urban(i,j)
       landuse_fact_land(i,j) = max( fact_soil - landuse_fact_urban(i,j), 0.0_rp )
 
       if( landuse_fact_ocean(i,j) > 0.0_rp ) landuse_exists_ocean(i,j) = .true.
       if( landuse_fact_land(i,j) > 0.0_rp ) landuse_exists_land(i,j) = .true.
       if( landuse_fact_urban(i,j) > 0.0_rp ) landuse_exists_urban(i,j) = .true.
       if( landuse_fact_lake(i,j) > 0.0_rp ) landuse_exists_lake(i,j) = .true.
    enddo
    enddo
    !$acc end kernels
 
    !$acc update host(LANDUSE_fact_ocean, LANDUSE_fact_land, LANDUSE_fact_urban, LANDUSE_fact_lake)
    !$acc update host(LANDUSE_exists_ocean, LANDUSE_exists_land, LANDUSE_exists_urban, LANDUSE_exists_lake)
 
    return

References scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ja, landuse_exists_lake, landuse_exists_land, landuse_exists_ocean, landuse_exists_urban, landuse_fact_lake, landuse_fact_land, landuse_fact_ocean, landuse_fact_urban, landuse_frac_lake, landuse_frac_land, and landuse_frac_urban.

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_setup(), and mod_mkinit::read_sounding().

Here is the caller graph for this function:

landuse_fillhalo()

subroutine, public scale_landuse::landuse_fillhalo

(

logical, intent(in), optional

FILL_BND

)

HALO Communication.

Definition at line 275 of file scale_landuse.F90.

    use scale_comm_cartesc, only: &
       comm_vars8, &
       comm_wait
    implicit none
 
    logical, intent(in), optional :: FILL_BND
 
    real(RP) :: temp(IA,JA)
 
    logical  :: FILL_BND_
    integer  :: p
    !---------------------------------------------------------------------------
 
    ! tentative (calculated in mod_cnvlanduse.F90)
    !$acc update device(LANDUSE_frac_land, LANDUSE_frac_lake, LANDUSE_frac_urban)
    !$acc update device(LANDUSE_frac_PFT, LANDUSE_index_PFT)
 
    fill_bnd_ = .true.
    if ( present(fill_bnd) ) fill_bnd_ = fill_bnd
 
    call comm_vars8( landuse_frac_land(:,:), 1 )
    call comm_vars8( landuse_frac_lake(:,:), 2 )
    call comm_vars8( landuse_frac_urban(:,:), 3 )
    call comm_vars8( landuse_fact_ocean(:,:), 4 )
    call comm_vars8( landuse_fact_land(:,:), 5 )
    call comm_vars8( landuse_fact_urban(:,:), 6 )
    call comm_vars8( landuse_fact_lake(:,:), 7 )
 
    call comm_wait ( landuse_frac_land(:,:), 1, fill_bnd_ )
    call comm_wait ( landuse_frac_lake(:,:), 2, fill_bnd_ )
    call comm_wait ( landuse_frac_urban(:,:), 3, fill_bnd_ )
    call comm_wait ( landuse_fact_ocean(:,:), 4, fill_bnd_ )
    call comm_wait ( landuse_fact_land(:,:), 5, fill_bnd_ )
    call comm_wait ( landuse_fact_urban(:,:), 6, fill_bnd_ )
    call comm_wait ( landuse_fact_lake(:,:), 7, fill_bnd_ )
 
    !$acc data create(temp)
 
    do p = 1, landuse_pft_mosaic
       !$acc kernels
       temp(:,:) = real(landuse_index_pft(:,:,p),kind=rp)
       !$acc end kernels
 
       call comm_vars8( landuse_frac_pft(:,:,p), 8+2*(p-1) )
       call comm_vars8( temp(:,:)  , 9+2*(p-1) )
 
       call comm_wait ( landuse_frac_pft(:,:,p), 8+2*(p-1), fill_bnd_ )
       call comm_wait ( temp(:,:)  , 9+2*(p-1), fill_bnd_ )
 
       !$acc kernels
       landuse_index_pft(:,:,p) = aint(temp(:,:),kind=4)
       !$acc end kernels
    enddo
 
    !$acc end data
 
    !$acc update host( LANDUSE_frac_land, LANDUSE_frac_lake, LANDUSE_frac_urban )
    !$acc update host( LANDUSE_fact_ocean, LANDUSE_fact_land, LANDUSE_fact_urban, LANDUSE_fact_lake )
    !$acc update host( LANDUSE_frac_PFT, LANDUSE_index_PFT )
 
    return

References scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_flush(), scale_file_cartesc::file_cartesc_open(), scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, landuse_fact_lake, landuse_fact_land, landuse_fact_ocean, landuse_fact_urban, landuse_frac_lake, landuse_frac_land, landuse_frac_pft, landuse_frac_urban, landuse_index_lake, landuse_index_pft, landuse_index_urban, landuse_pft_mosaic, scale_prc::prc_abort(), and scale_precision::rp.

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_write(), and mod_mkinit::read_sounding().

Here is the call graph for this function:

Here is the caller graph for this function:

landuse_write()

subroutine, public scale_landuse::landuse_write

Write landuse data.

Definition at line 522 of file scale_landuse.F90.

    use scale_file_cartesc, only: &
       file_cartesc_create,    &
       file_cartesc_def_var,   &
       file_cartesc_enddef,    &
       file_cartesc_write_var, &
       file_cartesc_close
    implicit none
 
    real(RP) :: temp(IA,JA)
 
    integer                :: vid(7+LANDUSE_PFT_mosaic*2)
    character(len=H_SHORT) :: varname
 
    integer :: fid
    integer :: p
    !---------------------------------------------------------------------------
 
    if ( landuse_out_basename /= '' .and. landuse_out_basename /= landuse_in_basename ) then
 
       log_newline
       log_info("LANDUSE_write",*) 'Output landuse file '
 
       call landuse_fillhalo( fill_bnd=.false. )
 
       call file_cartesc_create( landuse_out_basename, landuse_out_title, landuse_out_dtype, & ! [IN]
                                 fid,                                                        & ! [OUT]
                                 haszcoord=.false., aggregate=landuse_out_aggregate          ) ! [IN]
 
       call file_cartesc_def_var( fid, 'FRAC_LAND'     , 'LAND fraction'          , '1', 'XY', landuse_out_dtype, vid(1), standard_name="land_area_fraction" )
       call file_cartesc_def_var( fid, 'FRAC_LAKE'     , 'LAKE fraction'          , '1', 'XY', landuse_out_dtype, vid(2) )
       call file_cartesc_def_var( fid, 'FRAC_URBAN'    , 'URBAN fraction'         , '1', 'XY', landuse_out_dtype, vid(3) )
       call file_cartesc_def_var( fid, 'FRAC_OCEAN_abs', 'absolute OCEAN fraction', '1', 'XY', landuse_out_dtype, vid(4) )
       call file_cartesc_def_var( fid, 'FRAC_LAND_abs' , 'absolute LAND fraction' , '1', 'XY', landuse_out_dtype, vid(5) )
       call file_cartesc_def_var( fid, 'FRAC_URBAN_abs', 'absolute URBAN fraction', '1', 'XY', landuse_out_dtype, vid(6) )
       call file_cartesc_def_var( fid, 'FRAC_LAKE_abs' , 'absolute LAKE fraction' , '1', 'XY', landuse_out_dtype, vid(7) )
 
       do p = 1, landuse_pft_mosaic
          write(varname,'(A8,I1.1)') 'FRAC_PFT', p
          call file_cartesc_def_var( fid, varname, 'PFT fraction', '1', 'XY', landuse_out_dtype, vid(8+2*(p-1)) )
          write(varname,'(A9,I1.1)') 'INDEX_PFT', p
          call file_cartesc_def_var( fid, varname, 'PFT index',    '1', 'XY', landuse_out_dtype, vid(9+2*(p-1)) )
       end do
 
       call file_cartesc_enddef( fid )
 
       call file_cartesc_write_var( fid, vid(1), landuse_frac_land(:,:), 'FRAC_LAND'     , 'XY' )
       call file_cartesc_write_var( fid, vid(2), landuse_frac_lake(:,:), 'FRAC_LAKE'     , 'XY' )
       call file_cartesc_write_var( fid, vid(3), landuse_frac_urban(:,:), 'FRAC_URBAN'    , 'XY' )
       call file_cartesc_write_var( fid, vid(4), landuse_fact_ocean(:,:), 'FRAC_OCEAN_abs', 'XY' )
       call file_cartesc_write_var( fid, vid(5), landuse_fact_land(:,:), 'FRAC_LAND_abs' , 'XY' )
       call file_cartesc_write_var( fid, vid(6), landuse_fact_urban(:,:), 'FRAC_URBAN_abs', 'XY' )
       call file_cartesc_write_var( fid, vid(7), landuse_fact_lake(:,:), 'FRAC_LAKE_abs' , 'XY' )
 
       do p = 1, landuse_pft_mosaic
          write(varname,'(A8,I1.1)') 'FRAC_PFT', p
          call file_cartesc_write_var( fid, vid(8+2*(p-1)), landuse_frac_pft(:,:,p), varname, 'XY' )
          write(varname,'(A9,I1.1)') 'INDEX_PFT', p
          temp(:,:) = real(landuse_index_pft(:,:,p),kind=rp)
          call file_cartesc_write_var( fid, vid(9+2*(p-1)), temp(:,:),               varname, 'XY' )
       end do
 
       call file_cartesc_close( fid )
 
    end if
 
    return

References scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_var(), scale_file_cartesc::file_cartesc_enddef(), landuse_fact_lake, landuse_fact_land, landuse_fact_ocean, landuse_fact_urban, landuse_fillhalo(), landuse_frac_lake, landuse_frac_land, landuse_frac_pft, landuse_frac_urban, landuse_index_pft, landuse_pft_mosaic, and scale_precision::rp.

Referenced by 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:

landuse_finalize()

subroutine, public scale_landuse::landuse_finalize

Finalize.

Definition at line 593 of file scale_landuse.F90.

    implicit none
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LANDUSE_finalize",*) 'Finalize'
 
    !$acc exit data delete(LANDUSE_frac_land, LANDUSE_frac_urban, LANDUSE_frac_lake)
    deallocate( landuse_frac_land  )
    deallocate( landuse_frac_urban )
    deallocate( landuse_frac_lake  )
 
    !$acc exit data delete(LANDUSE_index_PFT, LANDUSE_frac_PFT)
    deallocate( landuse_index_pft )
    deallocate( landuse_frac_pft  )
 
    !$acc exit data delete(LANDUSE_fact_ocean, LANDUSE_fact_land, LANDUSE_fact_urban, LANDUSE_fact_lake)
    deallocate( landuse_fact_ocean )
    deallocate( landuse_fact_land  )
    deallocate( landuse_fact_urban )
    deallocate( landuse_fact_lake  )
 
    !$acc exit data delete(LANDUSE_exists_ocean, LANDUSE_exists_land, LANDUSE_exists_urban, LANDUSE_exists_lake)
    deallocate( landuse_exists_ocean )
    deallocate( landuse_exists_land  )
    deallocate( landuse_exists_urban )
    deallocate( landuse_exists_lake  )
 
    return

References landuse_exists_lake, landuse_exists_land, landuse_exists_ocean, landuse_exists_urban, landuse_fact_lake, landuse_fact_land, landuse_fact_ocean, landuse_fact_urban, landuse_frac_lake, landuse_frac_land, landuse_frac_pft, landuse_frac_urban, and landuse_index_pft.

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

Here is the caller graph for this function:

Variable Documentation

landuse_fact_ocean

real(rp), dimension(:,:), allocatable, public scale_landuse::landuse_fact_ocean

ocean factor

Definition at line 45 of file scale_landuse.F90.

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

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), mod_cnvtopo::cnvtopo(), mod_copytopo::copytopo(), mod_cpl_vars::cpl_getsfc_atm(), mod_cpl_vars::cpl_vars_setup(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), landuse_write(), scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_set_areavol(), and mod_realinput::realinput_surface().

landuse_fact_land

real(rp), dimension (:,:), allocatable, public scale_landuse::landuse_fact_land

land factor

Definition at line 46 of file scale_landuse.F90.

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

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), mod_cpl_vars::cpl_getsfc_atm(), mod_cpl_vars::cpl_vars_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), landuse_write(), and mod_realinput::realinput_surface().

landuse_fact_urban

real(rp), dimension(:,:), allocatable, public scale_landuse::landuse_fact_urban

urban factor

Definition at line 47 of file scale_landuse.F90.

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

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), mod_cpl_vars::cpl_getsfc_atm(), mod_cpl_vars::cpl_vars_setup(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), landuse_write(), mod_realinput::realinput_surface(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_setup(), and scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol().

landuse_fact_lake

real(rp), dimension (:,:), allocatable, public scale_landuse::landuse_fact_lake

lake factor

Definition at line 48 of file scale_landuse.F90.

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

Referenced by mod_cpl_vars::cpl_vars_setup(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), and landuse_write().

landuse_exists_ocean

logical, dimension(:,:), allocatable, public scale_landuse::landuse_exists_ocean

ocean calculation flag

Definition at line 50 of file scale_landuse.F90.

  logical,  public, allocatable :: LANDUSE_exists_ocean(:,:)

Referenced by landuse_calc_fact(), landuse_finalize(), landuse_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_ocean_driver::ocean_surface_set(), and mod_ocean_vars::ocean_vars_check().

landuse_exists_land

logical, dimension (:,:), allocatable, public scale_landuse::landuse_exists_land

land calculation flag

Definition at line 51 of file scale_landuse.F90.

  logical,  public, allocatable :: LANDUSE_exists_land (:,:)

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_land_driver::land_surface_set(), mod_land_vars::land_vars_check(), landuse_calc_fact(), landuse_finalize(), and landuse_setup().

landuse_exists_urban

logical, dimension(:,:), allocatable, public scale_landuse::landuse_exists_urban

urban calculation flag

Definition at line 52 of file scale_landuse.F90.

  logical,  public, allocatable :: LANDUSE_exists_urban(:,:)

Referenced by landuse_calc_fact(), landuse_finalize(), landuse_setup(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_update(), mod_urban_driver::urban_surface_set(), and mod_urban_vars::urban_vars_check().

landuse_exists_lake

logical, dimension (:,:), allocatable, public scale_landuse::landuse_exists_lake

lake calculation flag

Definition at line 53 of file scale_landuse.F90.

  logical,  public, allocatable :: LANDUSE_exists_lake (:,:)

Referenced by landuse_calc_fact(), landuse_finalize(), and landuse_setup().

landuse_frac_land

real(rp), dimension (:,:), allocatable, public scale_landuse::landuse_frac_land

land fraction

Definition at line 55 of file scale_landuse.F90.

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

Referenced by scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_calc_areavol(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_calc_z(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_cnvlanduse::cnvlanduse(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), landuse_write(), mod_mkinit::read_sounding(), and mod_realinput::realinput_surface().

landuse_frac_urban

real(rp), dimension(:,:), allocatable, public scale_landuse::landuse_frac_urban

urban fraction

Definition at line 56 of file scale_landuse.F90.

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

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), landuse_write(), and mod_mkinit::read_sounding().

landuse_frac_lake

real(rp), dimension (:,:), allocatable, public scale_landuse::landuse_frac_lake

lake fraction

Definition at line 57 of file scale_landuse.F90.

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

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_calc_fact(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), and landuse_write().

landuse_index_ocean

integer, parameter, public scale_landuse::landuse_index_ocean = 0

ocean index

Definition at line 59 of file scale_landuse.F90.

  integer,  public, parameter   :: LANDUSE_index_OCEAN  =  0

landuse_index_urban

integer, parameter, public scale_landuse::landuse_index_urban = -1

urban index

Definition at line 60 of file scale_landuse.F90.

  integer,  public, parameter   :: LANDUSE_index_URBAN  = -1

Referenced by landuse_fillhalo(), and landuse_setup().

landuse_index_lake

integer, parameter, public scale_landuse::landuse_index_lake = -2

lake index

Definition at line 61 of file scale_landuse.F90.

  integer,  public, parameter   :: LANDUSE_index_LAKE   = -2

Referenced by landuse_fillhalo(), and landuse_setup().

landuse_pft_nmin

integer, parameter, public scale_landuse::landuse_pft_nmin = -2

minimum number of PFT type

Definition at line 63 of file scale_landuse.F90.

  integer,  public, parameter   :: LANDUSE_PFT_nmin   = -2

Referenced by mod_land_vars::land_vars_finalize(), and mod_land_vars::land_vars_setup().

landuse_pft_nmax

integer, public scale_landuse::landuse_pft_nmax = 17

number of plant functional type(PFT)

Definition at line 64 of file scale_landuse.F90.

  integer,  public              :: LANDUSE_PFT_nmax   = 17

Referenced by mod_cnvlanduse::cnvlanduse(), mod_realinput::land_interporation(), mod_land_vars::land_vars_finalize(), mod_land_vars::land_vars_setup(), landuse_setup(), and mod_realinput::realinput_surface().

landuse_pft_mosaic

integer, public scale_landuse::landuse_pft_mosaic = 2

number of PFT mosaic

Definition at line 65 of file scale_landuse.F90.

  integer,  public              :: LANDUSE_PFT_mosaic = 2

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_fillhalo(), landuse_setup(), and landuse_write().

landuse_frac_pft

real(rp), dimension (:,:,:), allocatable, public scale_landuse::landuse_frac_pft

fraction of PFT for each mosaic

Definition at line 67 of file scale_landuse.F90.

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

Referenced by mod_cnvlanduse::cnvlanduse(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), and landuse_write().

landuse_index_pft

integer, dimension(:,:,:), allocatable, public scale_landuse::landuse_index_pft

index of PFT for each mosaic

Definition at line 68 of file scale_landuse.F90.

  integer,  public, allocatable :: LANDUSE_index_PFT(:,:,:)

Referenced by mod_cnvlanduse::cnvlanduse(), mod_realinput::land_interporation(), mod_land_vars::land_vars_finalize(), mod_land_vars::land_vars_setup(), landuse_fillhalo(), landuse_finalize(), landuse_setup(), and landuse_write().