get_config_fid Function

  1. input.f95
  2. input
  3. get_config_fid

public function get_config_fid()

Arguments

None

Return Value integer


Calls

proc~~get_config_fid~~CallsGraph proc~get_config_fid get_config_fid proc~open_file open_file proc~get_config_fid->proc~open_file proc~log_error log_error proc~open_file->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~~get_config_fid~~CalledByGraph proc~get_config_fid get_config_fid proc~vegetation_initialise vegetation_initialise proc~vegetation_initialise->proc~get_config_fid proc~snow_initialise snow_initialise proc~snow_initialise->proc~get_config_fid proc~output_initialise_user_input output_initialise_user_input proc~output_initialise_user_input->proc~get_config_fid proc~groundwater_initialise groundwater_initialise proc~groundwater_initialise->proc~get_config_fid proc~terminate terminate proc~terminate->proc~get_config_fid proc~input_initialise input_initialise proc~input_initialise->proc~get_config_fid proc~crop_initialise crop_initialise proc~crop_initialise->proc~get_config_fid proc~soil_initialise soil_initialise proc~soil_initialise->proc~get_config_fid proc~time_initialise time_initialise proc~time_initialise->proc~get_config_fid proc~erosion_initialise erosion_initialise proc~erosion_initialise->proc~get_config_fid proc~nutrient_initialise nutrient_initialise proc~nutrient_initialise->proc~get_config_fid proc~catchment_initialise catchment_initialise proc~catchment_initialise->proc~get_config_fid proc~input_nc_initialise input_nc_initialise proc~input_nc_initialise->proc~get_config_fid proc~landuse_initialise landuse_initialise proc~landuse_initialise->proc~get_config_fid proc~river_initialise river_initialise proc~river_initialise->proc~get_config_fid proc~subbasin_initialise subbasin_initialise proc~subbasin_initialise->proc~get_config_fid proc~reservoir_initialise reservoir_initialise proc~reservoir_initialise->proc~get_config_fid proc~initialise initialise proc~initialise->proc~get_config_fid proc~initialise->proc~vegetation_initialise proc~initialise->proc~snow_initialise proc~initialise->proc~output_initialise_user_input proc~initialise->proc~groundwater_initialise proc~initialise->proc~input_initialise proc~initialise->proc~crop_initialise proc~initialise->proc~soil_initialise proc~initialise->proc~time_initialise proc~initialise->proc~erosion_initialise proc~initialise->proc~nutrient_initialise proc~initialise->proc~catchment_initialise proc~initialise->proc~input_nc_initialise proc~initialise->proc~landuse_initialise proc~initialise->proc~river_initialise proc~initialise->proc~subbasin_initialise proc~initialise->proc~reservoir_initialise proc~evapotranspiration_initialise evapotranspiration_initialise proc~initialise->proc~evapotranspiration_initialise proc~evapotranspiration_initialise->proc~get_config_fid program~swim swim program~swim->proc~terminate program~swim->proc~initialise

Contents

Source Code

get_config_fid

Source Code

  integer function get_config_fid()
    integer unit

    unit = -1
    inquire(file=config_file_path, number=unit)
    if (unit >= 0) then
      close(unit)
    end if
    get_config_fid = open_file(config_file_path)
  end function get_config_fid