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...

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 101 of file scale_landuse.F90.

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().

    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

    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

    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

    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.



    if    ( landuse_allocean ) then

       log_info("LANDUSE_setup",*) 'Assume all grids are ocean'

       call landuse_calc_fact

    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

       call landuse_calc_fact

    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

       call landuse_calc_fact

    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

       call landuse_calc_fact

    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

       call landuse_calc_fact

    else ! default: read from file

       call landuse_read( ocean_do, urban_do, lake_do )
       call landuse_calc_fact

    endif

    return

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 239 of file scale_landuse.F90.

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().

    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)
    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

    return

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 271 of file scale_landuse.F90.

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, and scale_prc::prc_abort().

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

    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
    !---------------------------------------------------------------------------

    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_ )

    do p = 1, landuse_pft_mosaic
       temp(:,:) = real(LANDUSE_index_PFT(:,:,p),kind=rp)

       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_ )

       landuse_index_pft(:,:,p) = aint(temp(:,:),kind=4)
    enddo

    return

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 501 of file scale_landuse.F90.

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, and landuse_pft_mosaic.

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

    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

Here is the call graph for this function:

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 44 of file scale_landuse.F90.

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_setup(), landuse_write(), and mod_realinput::realinput_surface().

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

landuse_fact_land

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

land factor

Definition at line 45 of file scale_landuse.F90.

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(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), landuse_calc_fact(), landuse_fillhalo(), landuse_setup(), landuse_write(), and mod_realinput::realinput_surface().

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

landuse_fact_urban

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

urban factor

Definition at line 46 of file scale_landuse.F90.

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_setup(), landuse_write(), mod_realinput::realinput_surface(), mod_urban_driver::urban_driver_calc_tendency(), and mod_urban_driver::urban_driver_update().

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

landuse_fact_lake

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

lake factor

Definition at line 47 of file scale_landuse.F90.

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

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

landuse_exists_ocean

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

ocean calculation flag

Definition at line 49 of file scale_landuse.F90.

Referenced by landuse_calc_fact(), landuse_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), and mod_ocean_driver::ocean_driver_update().

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

landuse_exists_land

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

land calculation flag

Definition at line 50 of file scale_landuse.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), landuse_calc_fact(), and landuse_setup().

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

landuse_exists_urban

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

urban calculation flag

Definition at line 51 of file scale_landuse.F90.

Referenced by landuse_calc_fact(), and landuse_setup().

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

landuse_exists_lake

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

lake calculation flag

Definition at line 52 of file scale_landuse.F90.

Referenced by landuse_calc_fact(), and landuse_setup().

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

landuse_frac_land

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

land fraction

Definition at line 54 of file scale_landuse.F90.

Referenced by scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_calc_areavol(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_update_z(), mod_cnvlanduse::cnvlanduse(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), landuse_calc_fact(), landuse_fillhalo(), landuse_setup(), landuse_write(), mod_mkinit::read_sounding(), and mod_realinput::realinput_surface().

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

landuse_frac_urban

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

urban fraction

Definition at line 55 of file scale_landuse.F90.

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

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

landuse_frac_lake

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

lake fraction

Definition at line 56 of file scale_landuse.F90.

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

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

landuse_index_ocean

integer, parameter, public scale_landuse::landuse_index_ocean = 0

ocean index

Definition at line 58 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 59 of file scale_landuse.F90.

Referenced by landuse_fillhalo(), and landuse_setup().

  integer,  public, parameter   :: landuse_index_urban  = -1

landuse_index_lake

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

lake index

Definition at line 60 of file scale_landuse.F90.

Referenced by landuse_fillhalo(), and landuse_setup().

  integer,  public, parameter   :: landuse_index_lake   = -2

landuse_pft_nmin

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

minimum number of PFT type

Definition at line 62 of file scale_landuse.F90.

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

  integer,  public, parameter   :: landuse_pft_nmin   = -2

landuse_pft_nmax

integer, public scale_landuse::landuse_pft_nmax = 17

number of plant functional type(PFT)

Definition at line 63 of file scale_landuse.F90.

Referenced by mod_cnvlanduse::cnvlanduse(), mod_land_vars::land_vars_setup(), mod_land_vars::land_vars_total(), and landuse_setup().

  integer,  public              :: landuse_pft_nmax   = 17

landuse_pft_mosaic

integer, public scale_landuse::landuse_pft_mosaic = 2

number of PFT mosaic

Definition at line 64 of file scale_landuse.F90.

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

  integer,  public              :: landuse_pft_mosaic = 2

landuse_frac_pft

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

fraction of PFT for each mosaic

Definition at line 66 of file scale_landuse.F90.

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

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

landuse_index_pft

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

index of PFT for each mosaic

Definition at line 67 of file scale_landuse.F90.

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

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