management_subbasin_pointer Function

  1. management.f95
  2. management
  3. management_subbasin_pointer

public function management_subbasin_pointer(sub) result(pS)

Arguments

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

Return Value type(TSubbasin), POINTER


Called by

proc~~management_subbasin_pointer~~CalledByGraph proc~management_subbasin_pointer management_subbasin_pointer proc~management_total_demand management_total_demand proc~management_total_demand->proc~management_subbasin_pointer proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->proc~management_subbasin_pointer proc~management_external_supply management_external_supply proc~management_external_supply->proc~management_subbasin_pointer proc~runsubbasin runsubbasin proc~runsubbasin->proc~management_subbasin_pointer proc~management_transfer_out management_transfer_out proc~runsubbasin->proc~management_transfer_out proc~hydrotope_process hydrotope_process proc~runsubbasin->proc~hydrotope_process proc~management_read_ctrl management_read_ctrl proc~management_read_ctrl->proc~management_subbasin_pointer proc~management_distribribute management_distribribute proc~management_distribribute->proc~management_subbasin_pointer proc~management_transfer_out->proc~management_subbasin_pointer proc~river_route_add river_route_add proc~river_route_add->proc~management_subbasin_pointer proc~river_route_add->proc~management_transfer_out proc~hydrotope_process->proc~management_subbasin_pointer proc~crop_process crop_process proc~hydrotope_process->proc~crop_process proc~vegetation_process vegetation_process proc~hydrotope_process->proc~vegetation_process proc~crop_process->proc~vegetation_water_stress 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~time_process_day->proc~river_route_add proc~vegetation_process->proc~vegetation_water_stress proc~management_initialise management_initialise proc~management_initialise->proc~management_read_ctrl proc~initialise initialise proc~initialise->proc~management_initialise 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~initialise program~swim->proc~time_process_years

Contents

Source Code

management_subbasin_pointer

Source Code

  function management_subbasin_pointer(sub) result(ps)
    ! real(dp), dimension(30), intent(in) :: sub
    ! returns a pointer on the current subbasin
    integer, intent(in) :: sub
    TYPE (TSubbasin), POINTER :: pS

    if (wamTSub(sub) % subnum > 0 ) then
      pS => wamTSub(sub) % pSub
    else
      NULLIFY(pS)
    end if

  end function management_subbasin_pointer