landuse_is_cropland Function

  1. landuse.f95
  2. landuse
  3. landuse_is_cropland

public function landuse_is_cropland(id)

Arguments

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

Return Value logical


Calls

proc~~landuse_is_cropland~~CallsGraph proc~landuse_is_cropland landuse_is_cropland proc~landuse_index landuse_index proc~landuse_is_cropland->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_cropland~~CalledByGraph proc~landuse_is_cropland landuse_is_cropland proc~vegetation_temperature_stress vegetation_temperature_stress proc~vegetation_temperature_stress->proc~landuse_is_cropland proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~landuse_is_cropland proc~crop_process crop_process proc~hydrotope_process->proc~crop_process proc~vegetation_process vegetation_process proc~hydrotope_process->proc~vegetation_process proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->proc~landuse_is_cropland proc~runsubbasin runsubbasin proc~runsubbasin->proc~landuse_is_cropland proc~runsubbasin->proc~hydrotope_process proc~crop_process->proc~vegetation_water_stress proc~crop_growth crop_growth proc~crop_process->proc~crop_growth proc~vegetation_process->proc~vegetation_temperature_stress proc~vegetation_process->proc~vegetation_water_stress proc~crop_growth->proc~vegetation_temperature_stress 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_cropland

Source Code

  logical function landuse_is_cropland(id)
  ! Return true if land use type is cropland

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

    landuse_is_cropland = .false.
    if (LULC % lutype(landuse_index(id)) == 1 ) landuse_is_cropland = .true.

  end function landuse_is_cropland