reservoir_is_full_dead_storage Function

  1. reservoir.f95
  2. reservoir
  3. reservoir_is_full_dead_storage

public function reservoir_is_full_dead_storage(res)

Arguments

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

Return Value logical


Called by

proc~~reservoir_is_full_dead_storage~~CalledByGraph proc~reservoir_is_full_dead_storage reservoir_is_full_dead_storage proc~reservoir_process reservoir_process proc~reservoir_process->proc~reservoir_is_full_dead_storage proc~time_process_day time_process_day proc~time_process_day->proc~reservoir_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

reservoir_is_full_dead_storage

Source Code

  logical function reservoir_is_full_dead_storage(res)
    integer, intent(in) :: res
    reservoir_is_full_dead_storage = .true.
    if (rsv_dead_stor_capac(res) > rsv_dead_stor_act(res) ) &
      reservoir_is_full_dead_storage = .false.
  end function reservoir_is_full_dead_storage