landuse Module

! FUNCTIONS FOR DATATYPE LULC

--------------------------------------------------------------------------

--------------------------------------------------------------------------

--------------------------------------------------------------------------


Uses

  • module~~landuse~~UsesGraph module~landuse landuse module~utilities utilities module~landuse->module~utilities

Used by

  • module~~landuse~~UsedByGraph module~landuse landuse proc~hydrotope_process hydrotope_process proc~hydrotope_process->module~landuse proc~initialise initialise proc~initialise->module~landuse proc~print_module_parameters print_module_parameters proc~print_module_parameters->module~landuse proc~runsubbasin runsubbasin proc~runsubbasin->module~landuse proc~vegetation_temperature_stress vegetation_temperature_stress proc~vegetation_temperature_stress->module~landuse proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->module~landuse

Variables

Type Visibility Attributes Name Initial
type(TLULC), public :: LULC
integer, public, save :: iicep = 1
character(len=path_max_length), public :: landuse_input_file = "landuse.csv"
integer, public :: landuse_input_file_id
integer, public, save :: nlut = 0

Derived Types

type, public ::  TLULC

Components

Type Visibility Attributes Name Initial
real(kind=dp), public, dimension(:), pointer :: ETcor
real(kind=dp), public, dimension(:), pointer :: canmx
real(kind=dp), public, dimension(:), pointer :: cn2a
real(kind=dp), public, dimension(:), pointer :: cn2b
real(kind=dp), public, dimension(:), pointer :: cn2c
real(kind=dp), public, dimension(:), pointer :: cn2d
integer, public, dimension(:), pointer :: id
integer, public, dimension(:), pointer :: lutype
integer, public, dimension(:), pointer :: veg_code

Functions

public function landuse_index(id)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: id

Return Value integer

public function landuse_is_cropland(id)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: id

Return Value logical

public function landuse_is_forest(id)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: id

Return Value logical

public function landuse_is_natural_vegetation(id)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: id

Return Value logical


Subroutines

public subroutine landuse_initialise()

Arguments

None

public subroutine landuse_read_input()

Arguments

None