landuse Module

! FUNCTIONS FOR DATATYPE LULC

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

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

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

Uses

- utilities
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Contents

Variables

LULC iicep landuse_input_file landuse_input_file_id nlut

Derived Types

TLULC

Functions

landuse_index landuse_is_cropland landuse_is_forest landuse_is_natural_vegetation

Subroutines

landuse_initialise landuse_read_input

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	Intent	Optional	Attributes		Name
integer,	intent(in)			::	id

Return Value integer

public function landuse_is_cropland(id)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	id

Return Value logical

public function landuse_is_forest(id)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	id

Return Value logical

public function landuse_is_natural_vegetation(id)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	id

Return Value logical

Subroutines

public subroutine landuse_initialise()

Arguments

None

public subroutine landuse_read_input()

Arguments

None