landuse_is_forest Function

  1. landuse.f95
  2. landuse
  3. landuse_is_forest

public function landuse_is_forest(id)

Arguments

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

Return Value logical


Calls

proc~~landuse_is_forest~~CallsGraph proc~landuse_is_forest landuse_is_forest proc~landuse_index landuse_index proc~landuse_is_forest->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_forest~~CalledByGraph proc~landuse_is_forest landuse_is_forest proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~landuse_is_forest proc~runsubbasin runsubbasin proc~runsubbasin->proc~landuse_is_forest 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_forest

Source Code

  logical function landuse_is_forest(id)
    ! Return true if land use type is forest

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

    landuse_is_forest = .false.
    if (LULC % lutype(landuse_index(id)) == 4 ) landuse_is_forest = .true.

  end function landuse_is_forest