management_user_pointer Function

  1. management.f95
  2. management
  3. management_user_pointer

public function management_user_pointer(id) result(pWU)

Arguments

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

Return Value type(TWaterUser), POINTER


Calls

proc~~management_user_pointer~~CallsGraph proc~management_user_pointer management_user_pointer proc~log_error log_error proc~management_user_pointer->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~~management_user_pointer~~CalledByGraph proc~management_user_pointer management_user_pointer proc~management_total_demand management_total_demand proc~management_total_demand->proc~management_user_pointer proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->proc~management_user_pointer proc~management_external_supply management_external_supply proc~management_external_supply->proc~management_user_pointer proc~management_distribribute management_distribribute proc~management_distribribute->proc~management_user_pointer proc~management_transfer_out management_transfer_out proc~management_transfer_out->proc~management_user_pointer proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~management_user_pointer proc~crop_process crop_process proc~hydrotope_process->proc~crop_process proc~vegetation_process vegetation_process proc~hydrotope_process->proc~vegetation_process proc~runsubbasin runsubbasin proc~runsubbasin->proc~management_transfer_out proc~runsubbasin->proc~hydrotope_process proc~time_process_day time_process_day proc~time_process_day->proc~management_total_demand proc~time_process_day->proc~management_external_supply proc~time_process_day->proc~runsubbasin proc~river_route_add river_route_add proc~time_process_day->proc~river_route_add proc~crop_process->proc~vegetation_water_stress proc~vegetation_process->proc~vegetation_water_stress proc~river_route_add->proc~management_transfer_out 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

management_user_pointer

Source Code

  function management_user_pointer(id) result(pwu)
    ! returns a pointer on the current water user in subbasin
    ! id of water user in water user array (ps % pos(i))
    integer, intent(in) :: id
    TYPE (TWaterUser), POINTER :: pWU

    if (id <= wam_nWU) then
      pWU => TWU(id)
    else
      NULLIFY(pWU)
      call log_error("wam", "Water User ID not valid. management_user_pointer(), ID:", int=id)
    end if

  end function management_user_pointer