landuse_read_input Subroutine

  1. landuse.f95
  2. landuse
  3. landuse_read_input

public subroutine landuse_read_input()

Uses

  • proc~~landuse_read_input~~UsesGraph proc~landuse_read_input landuse_read_input module~input input proc~landuse_read_input->module~input module~utilities utilities module~input->module~utilities

Arguments

None

Calls

proc~~landuse_read_input~~CallsGraph proc~landuse_read_input landuse_read_input proc~read_integer_column read_integer_column proc~landuse_read_input->proc~read_integer_column proc~read_real_column read_real_column proc~landuse_read_input->proc~read_real_column proc~input_type_conversion_error input_type_conversion_error proc~read_integer_column->proc~input_type_conversion_error proc~move_lines move_lines proc~read_integer_column->proc~move_lines proc~check_int_range check_int_range proc~read_integer_column->proc~check_int_range proc~log_error log_error proc~read_integer_column->proc~log_error proc~read_csv_item read_csv_item proc~read_integer_column->proc~read_csv_item proc~header_column_index header_column_index proc~read_integer_column->proc~header_column_index proc~input_error_column_not_found input_error_column_not_found proc~read_integer_column->proc~input_error_column_not_found proc~read_real_column->proc~input_type_conversion_error proc~read_real_column->proc~move_lines proc~read_real_column->proc~log_error proc~check_range check_range proc~read_real_column->proc~check_range proc~read_real_column->proc~read_csv_item proc~read_real_column->proc~header_column_index proc~read_real_column->proc~input_error_column_not_found proc~input_type_conversion_error->proc~log_error proc~check_int_range->proc~log_error proc~log_warn log_warn proc~check_int_range->proc~log_warn proc~out_of_range_error out_of_range_error proc~check_int_range->proc~out_of_range_error proc~log_message log_message proc~log_error->proc~log_message proc~check_range->proc~log_error proc~check_range->proc~log_warn proc~check_range->proc~out_of_range_error proc~header_column_index->proc~move_lines proc~header_column_index->proc~input_error_column_not_found proc~input_error_column_not_found->proc~log_error proc~log_warn->proc~log_message proc~out_of_range_error->proc~log_error proc~to_string to_string proc~out_of_range_error->proc~to_string 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~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_read_input~~CalledByGraph proc~landuse_read_input landuse_read_input proc~landuse_initialise landuse_initialise proc~landuse_initialise->proc~landuse_read_input proc~initialise initialise proc~initialise->proc~landuse_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

landuse_read_input

Source Code

  subroutine landuse_read_input
    use input, only : read_integer_column, read_real_column

    call read_integer_column(landuse_input_file_id, "landuse_id", LULC%id, 0)
    call read_integer_column(landuse_input_file_id, "icnum", LULC%veg_code, 0)
    call read_integer_column(landuse_input_file_id, "type", LULC%lutype, 0)
    call read_real_column(landuse_input_file_id, "canmx", LULC%canmx, 0.0_dp)
    call read_real_column(landuse_input_file_id, "cn2a", LULC%cn2a, 0.0_dp)
    call read_real_column(landuse_input_file_id, "cn2b", LULC%cn2b, 0.0_dp)
    call read_real_column(landuse_input_file_id, "cn2c", LULC%cn2c, 0.0_dp)
    call read_real_column(landuse_input_file_id, "cn2d", LULC%cn2d, 0.0_dp)
    call read_real_column(landuse_input_file_id, "lu_ETcor", LULC%ETcor, 0.0_dp)

    close(landuse_input_file_id)

  end subroutine landuse_read_input