landuse_is_natural_vegetation Function

  1. landuse.f95
  2. landuse
  3. landuse_is_natural_vegetation

public function landuse_is_natural_vegetation(id)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: id

Return Value logical


Calls

proc~~landuse_is_natural_vegetation~~CallsGraph proc~landuse_is_natural_vegetation landuse_is_natural_vegetation proc~landuse_index landuse_index proc~landuse_is_natural_vegetation->proc~landuse_index proc~log_error log_error proc~landuse_index->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~landuse_is_natural_vegetation~~CalledByGraph proc~landuse_is_natural_vegetation landuse_is_natural_vegetation proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~landuse_is_natural_vegetation proc~runsubbasin runsubbasin proc~runsubbasin->proc~hydrotope_process proc~time_process_day time_process_day proc~time_process_day->proc~runsubbasin proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day proc~time_process_years time_process_years proc~time_process_years->proc~time_process_month program~swim swim program~swim->proc~time_process_years

Contents

Source Code

landuse_is_natural_vegetation

Source Code

  logical function landuse_is_natural_vegetation(id)
    ! Return true if land use type is natural vegetation, except forest

    ! land use / cover ID from land use map
    integer, intent(in) :: id

    landuse_is_natural_vegetation = .false.
    if (LULC % lutype(landuse_index(id)) == 2 ) landuse_is_natural_vegetation = .true.

  end function landuse_is_natural_vegetation