output_store_hydrotope_value Subroutine

  1. output.f95
  2. output
  3. output_store_hydrotope_value

public subroutine output_store_hydrotope_value(id, subbasinix, hydrotopeix, value)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: id
integer, intent(in) :: subbasinix
integer, intent(in) :: hydrotopeix
real, intent(in) :: value

Called by

proc~~output_store_hydrotope_value~~CalledByGraph proc~output_store_hydrotope_value output_store_hydrotope_value proc~vegetation_store_output vegetation_store_output proc~vegetation_store_output->proc~output_store_hydrotope_value proc~reservoir_subbasin reservoir_subbasin proc~reservoir_subbasin->proc~output_store_hydrotope_value proc~crop_operation crop_operation proc~crop_operation->proc~output_store_hydrotope_value proc~snow_process snow_process proc~snow_process->proc~output_store_hydrotope_value proc~runsubbasin runsubbasin proc~runsubbasin->proc~output_store_hydrotope_value proc~runsubbasin->proc~snow_process proc~hydrotope_process hydrotope_process proc~runsubbasin->proc~hydrotope_process proc~crop_process crop_process proc~crop_process->proc~crop_operation proc~time_process_day time_process_day proc~time_process_day->proc~reservoir_subbasin proc~time_process_day->proc~runsubbasin proc~hydrotope_process->proc~vegetation_store_output proc~hydrotope_process->proc~crop_process 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

output_store_hydrotope_value

Source Code

  subroutine output_store_hydrotope_value(id, subbasinix, hydrotopeix, value)
    ! Store hydrotope values at the end of timestep.
    integer, intent(in) :: id
    ! Subbasin and hydrotope (within subbasin) indeces
    integer, intent(in) :: subbasinix, hydrotopeix
    real, intent(in) :: value
    integer ns

    if (id > 0) then
      ns = output_subbasin_hydrotope_stix(subbasinix)
      output_storage_hydrotope(id, ns+hydrotopeix, output_store_day_counter) = value
    end if
  end subroutine output_store_hydrotope_value