4 Results

4.1 Weigert Creek - PSCIS crossing 197534

my_site <- 197534

A map showing sample sites for fish sampling, fish habitat assessments and discharge in Weigert Creek are summarized in Figure 4.1.


knitr::include_graphics("fig/elk_weigert_2022b.png")
Map of Weigert Creek

Figure 4.1: Map of Weigert Creek

# **Habitat Model Parameters** 
# * Spawning max gradient: 5.0%# 
# * Spawning discharge min (mean annual, m^3^/s): 0.05# 
# * Spawning discharge max (mean annual, m^3^/s): 76.00# 
# * Rearing max gradient:                         7.0%# 
# * Rearing discharge min  (mean annual, m^3^/s): 0.02# 
# * Rearing discharge max  (mean annual, m^3^/s): 30.00

PSCIS crossing 197534 is located on Highway 43, approximately 23.5km north of the town of Sparwood approximately 1.3km upstream from the confluence with the Elk River. Elk Valley Park recreation site is located downstream of the crossing adjacent to the right bank of the river and the watershed upstream of the crossing is a habitat protection area with motor vehicle restrictions. The highway culverts are the responsibility of the Ministry of Transportation and Infrastructure.


At crossing 197534, Weigert Creek is a fourth order stream with a watershed area upstream of the crossing of approximately 43.3km2. The elevation of the watershed ranges from a maximum of 2938m to 1253m at the crossing (Table 4.1). Although multiple upstream survey sites are recorded within provincial databases, before 2022 there were no fish recorded upstream (MoE 2020b). Although all upstream crossings on the mainstem of Weigert Creek have been assessed as fords, Vast Resource Solutions engineers were present at the site in the fall of 2022 and were conducting the surveys for bridge installation at the crossing located approximately 1.2km upstream of Highway 43.


fpr::fpr_table_wshd_sum(site_id = my_site) %>% 
  fpr::fpr_kable(caption_text = paste0('Summary of derived upstream watershed statistics for PSCIS crossing ', my_site, '.'),
           footnote_text = 'Elev P60 = Elevation at which 60% of the watershed area is above',
           scroll = F)
Table 4.1: Summary of derived upstream watershed statistics for PSCIS crossing 197534.
Site Area Km Elev Site Elev Min Elev Max Elev Median Elev P60 Aspect
197534 43.3 1253 1319 2938 2019 1929 SE
* Elev P60 = Elevation at which 60% of the watershed area is above


PSCIS crossing 197534 was assessed in 2020 by (Irvine 2021) and ranked as a barrier for upstream fish migration. A detailed write up of habitat details and stream characteristics can be found in the 2021 report memo linked here. Updated photos of the crossing are provided in Figure 4.2 and a map of the watershed is provided in map attachment 082G.123.


my_photo1 = fpr::fpr_photo_pull_by_str(str_to_pull = 'crossing')

my_caption1 = paste0('Photos of Highway 43 crossing on Weigert Creek in October 2022.')

grid::grid.raster(jpeg::readJPEG(my_photo1))
Photos of Highway 43 crossing on Weigert Creek in October 2022.

Figure 4.2: Photos of Highway 43 crossing on Weigert Creek in October 2022.


# A summary of habitat modelling outputs is presented in Table \@ref(tab:tab-culvert-bcfp-197534) and a
fpr::fpr_table_bcfp(scroll = gitbook_on) 


4.1.1 Temperature

Temperature data was collected at 30 minute intervals between June 24, 2023 and November 2, 2023 from a station located approximately 20m upstream of Highway 43 with results are summarized in Figure 4.3, Table 4.2 and raw data available here. The growing season at the location of the logger in 2023 was determined to be from June 7 to October 16. A summary of weekly water temperatures in Weigert Creek along with average air temperatures (averaged from hourly values) at Sparwood climate station ID 1157632 are presented in Figure 4.2. Average weekly water temperatures were at or above 7\(^\circ\)C for only four of the 16 week growing season with a total of 693.5 Celsius degree-days calculated from the data for this period. Some caution should be applied to the interpretation of this data as the first week of water temperature data collected only consisted of three days worth of data (June 24 - June 26) so there is some potential that temperatures in the days and weeks before were high enough that the growing season could be considered longer.

knitr::include_graphics("fig/weigert_temp.png")
Temperature profile for Weigert Creek taken at station located approximately 50m upstream of Highway 43

Figure 4.3: Temperature profile for Weigert Creek taken at station located approximately 50m upstream of Highway 43


source('scripts/tidy_temp.R')

my_caption = 'Summary of average water temperature by week for Weigert Creek and average air temperature for Sparwood at climate station ID 1157632.'

left_join(
  w_week,
  temp_week %>% 
    select(week, ave_temp_h20)
) %>% 
  mutate(week = as.character(week),
         week = case_when(week == 25 ~ '*25', T ~ week)) %>% 
  fpr::fpr_kable(scroll = gitbook_on,
                 caption = my_caption,
                 footnote_text = '* the first week of water temperature data collected only consisted of three days worth of data (June 24 - June 26)')
Table 4.2: Summary of average water temperature by week for Weigert Creek and average air temperature for Sparwood at climate station ID 1157632.
week day_first day_last ave_temp_air ave_temp_h20
13 2022-04-03 2022-04-03 2.9
14 2022-04-04 2022-04-10 1.8
15 2022-04-11 2022-04-17 -4.5
16 2022-04-18 2022-04-24 3.5
17 2022-04-25 2022-05-01 5.2
18 2022-05-02 2022-05-08 7.7
19 2022-05-09 2022-05-15 5.9
20 2022-05-16 2022-05-22 6.5
21 2022-05-23 2022-05-29 9.2
22 2022-05-30 2022-06-05 10.9
23 2022-06-06 2022-06-12 12.0
24 2022-06-13 2022-06-19 11.5
*25 2022-06-20 2022-06-26 12.9 4.8
26 2022-06-27 2022-07-03 15.4 5.2
27 2022-07-04 2022-07-10 14.5 5.4
28 2022-07-11 2022-07-17 18.9 6.4
29 2022-07-18 2022-07-24 17.4 7.0
30 2022-07-25 2022-07-31 21.2 7.2
31 2022-08-01 2022-08-07 18.0 6.7
32 2022-08-08 2022-08-14 20.6 7.1
33 2022-08-15 2022-08-21 19.6 7.1
34 2022-08-22 2022-08-28 15.9 6.9
35 2022-08-29 2022-09-04 17.7 6.9
36 2022-09-05 2022-09-11 12.8 6.1
37 2022-09-12 2022-09-18 11.6 6.0
38 2022-09-19 2022-09-25 8.9 5.3
39 2022-09-26 2022-10-02 12.4 5.7
40 2022-10-03 2022-10-09 10.3 5.1
41 2022-10-10 2022-10-16 7.0 4.3
42 2022-10-17 2022-10-23 4.8 3.7
43 2022-10-24 2022-10-30 4.2 3.2
44 2022-10-31 2022-11-06 -1.2 2.2
45 2022-11-07 2022-11-07 -13.5 0.1
the first week of water temperature data collected only consisted of three days worth of data (June 24 - June 26)

4.1.2 Discharge

Discharge was measured upstream and downstream of the crossing on October 18, 2023. Stations locations and discharge recorded are presented in Table 4.3.

my_caption <- 'Discharge recorded at Weigert Creek upstream and downstream of Highway 43.'

hydrometrics %>% 
  filter(stringr::str_detect(gazetted_name, 'Weigert')) %>% 
  select(-gazetted_name, -`dd/mm/yy & time`) %>% 
  mutate(location = str_to_title(location)) %>% 
  purrr::set_names(c('Location', 'Discharge (m3/s)', 'Zone', 'Easting', 'Northing')) %>% 
  relocate(`Discharge (m3/s)`, .after = last_col()) %>% 
  fpr::fpr_kable(scroll = F,
                 caption_text = my_caption,
                 )
Table 4.3: Discharge recorded at Weigert Creek upstream and downstream of Highway 43.
Location Zone Easting Northing Discharge (m3/s)
Upstream 11 649110 5531723 0.183
Downstream 11 650657 5532197 0.252

4.1.3 Stream Characteristics Downstream

Weigert Creek was surveyed at two different sites downstream of crossing 197534 (sites shown in Figure 4.1). The first site was located at the confluence to the Elk River where Weigert Creek redirects to the south. This section was surveyed for 520m. The stream was very fast flowing in sections. The average channel width was 4.38m, the average wetted width was 3.48m, and the average gradient was 3.1%. There were clumps of large woody debris that added complexity to stream habitat. Total cover was rated as moderate with cobbles dominating the in stream substrate. There were some sections that contained gravels suitable for westslope cutthroat and bull trout spawning. Habitat quality was rated as medium. The second site was located at the top of the first site, and was surveyed for 450m. Total cover was rated as moderate. The dominant substrate was cobbles with gravels sub dominant. Hydrometric flow data was taken at the bottom of this site, approximately 550m downstream of the highway (Table 4.3).


4.1.4 Stream Characteristics Upstream

The stream was surveyed at six different sites upstream of crossing 197534 (sites shown in Figure 4.1). The bottom of the first site was located immediately upstream of crossing 197534 and was surveyed for 350m. The second site was in reach two and was surveyed for 300m to the ford. This section had a wide channel with fast flow. Many larger fish were caught (>200mm). Some deep pools were present at the time of survey that are suitable for overwintering. The dominant in stream substrate was cobbles, followed by boulders. The third site was located upstream of the ford and was surveyed for 550m. Site four was also in reach two and was surveyed for 350m. This section had good flow with abundant boulders and large woody debris. There were some deep pools and abundant gravels suitable for spawning. The fifth site was in reach four and was surveyed for 330m. The stream was steep at some sections, with measured gradients up to 10.5%. The channel was wide with good flow. There were many deep pools suitable for rearing. Some gravels were present suitable for salmonid spawning. A couple of high cascades and large woody debris jams approximately 1m in height were observed that could impede upstream migration of smaller fish. At site six in reach five, the streambed was dewatered. Surveyors worked their way back to where the water ended and surveyed the dry 300m upstream. The stream channel was frequently confined and there was abundant cover. Overall, wetted habitat upstream of crossing 197534 was ranked as medium to high value for westslope cutthrout trout rearing and spawning with patches of suitably sized gravels, deep pools, undercut banks, and stable debris present.


4.1.5 Fish Sampling

Electrofishing was conducted at eight sites with results summarised in Tables 4.4 - 4.7 and Figure 4.4. Habitat details are summarized in Table 4.6. Although westslope cutthrout trout, mountain whitefish, bull trout and brook trout were captured downstream of the Highway, only westslope cutthrout were captured above. Also of note, numerous westslope cuthrout trout were captured downstream and upstream of the crossing with a notable presence of only adult fish upstream of the crossing and also a significant increase in the density of adult fish upstream of the crossing. Interestingly, fish were captured upstream of the highway only within the first two reaches to within 300m upstream of the first ford on the Weigert Creek FSR that is located at an elevation of 1320m approximately 1.5km above Highway 43. Above this location, although significant electrofishing effort was conducted (at a location approximately 3km upstream of the highway within Reach 3 and at a site located approximately 6km upstream of the highway within Reach 4), no fish were captured.

my_caption = 'Electrofishing site summary for Weigert Creek.'
# `r if(gitbook_on){knitr::asis_output("<br>")} else knitr::asis_output("\\pagebreak")`
# A total of `r hab_site %>% filter(str_detect(alias_local_name, '_ef')) %>% nrow()` sites were electrofished within `r hab_site %>% filter(str_detect(alias_local_name, '_ef')) %>% distinct(gazetted_name) %>% nrow()` streams.
hab_site %>% 
  select(gazetted_name,
         alias_local_name,
         reach_number,
         utm_easting,
         utm_northing,
         comments
         ) %>% 
  # filter out two sites that weren't electrofished
  filter(str_detect(alias_local_name, "ef", negate = FALSE)) %>%
  filter(str_detect(gazetted_name, "Weigert")) %>%
  arrange(alias_local_name) %>% 
  fpr::fpr_kable(caption_text = my_caption)
Table 4.4: Electrofishing site summary for Weigert Creek.
gazetted_name alias_local_name reach_number utm_easting utm_northing comments
Weigert Creek 197534_ds_ef1 1 650979 5532443 Electrofishing commenced at point where Weigert almost touches Elk River then redirects to the south (approximately 210m upstream of mapped confluence). Very fast flowing in parts. Some LWD providing functionality and cover. 12:50
Weigert Creek 197534_ds_ef2 1 650627 5532190 No comments provided. 12:00:00 PM
Weigert Creek 197534_us_ef1 1 650134 5532055 No comments provided. 12:36:42 PM
Weigert Creek 197534_us_ef2 2 649387 5531718 High value habitat. Wide channel with fast flowing water. Many larger fish captured (>200mm). Some deep pools suitable for overwintering. Cobbles and boulders providing cover. 12:26:06
Weigert Creek 197534_us_ef3 2 649050 5531760 Electrofishing site was the first 400 to 450 m and then approximately 100 m further was assessed to gather more habitat characteristics. Most fish captured were observed by the crew before they were captured and all were adults. 12:20:59
Weigert Creek 197534_us_ef4 3 648023 5532534 High value habitat. Good flow with lots of boulder cover and LWD. Some deep pools with abundant gravels suitable for spawning. No fish were caught. 11:20
Weigert Creek 197534_us_ef5 4 646408 5535604 Moderate value habitat. Steep stream at some parts but wide channel, good flow. Many deep pools suitable for rearing. Some gravels suitable for spawning. A couple of high cascades and LWD jams that could be barrier to smaller fish. Good riparian veg but not a lot of overhanging cover. 13:17


my_caption = 'Summary of results of electrofishing in Weigert Creek.'

 # sum of all the fish per site and the electrofishing seconds
fish_samp_sum <- left_join(
  hab_fish_indiv %>%
    mutate(nfc = case_when(species_code == 'NFC' ~ 'true', T ~ NA_character_)) %>% 
    mutate(ef_width_m = round(ef_width_m, 1)) %>% 
    group_by(local_name, ef_length_m, ef_width_m, ef_seconds, nfc)  %>% 
    summarise(count_fish = n())  %>% 
    mutate(count_fish = case_when(nfc == 'true' ~ 0, T ~ count_fish)) %>%
    select(-nfc) %>% 
    arrange(local_name),
  
  hab_site %>% 
    select(gazetted_name,
           alias_local_name, reach_number),
  
  by = c('local_name' = 'alias_local_name')
) %>% 
  relocate(
    gazetted_name, .before = local_name
  ) %>%
  relocate(
    reach_number, .after = local_name
  ) %>% 
  mutate(CPUE = round(count_fish/(ef_seconds / 1000), 1))

fish_samp_sum %>% 
  filter(str_detect(gazetted_name, 'Weigert')) %>% 
  fpr::fpr_kable(caption_text = my_caption,
                 footnote_text = 'CPUE = Catch per unit effort (fish captured/1000s of electrofishing).',
                 scroll = F)
Table 4.5: Summary of results of electrofishing in Weigert Creek.
gazetted_name local_name reach_number ef_length_m ef_width_m ef_seconds count_fish CPUE
Weigert Creek 197534_ds_ef1 1 520 3.5 4459 11 2.5
Weigert Creek 197534_ds_ef2 1 2995 7 2.3
Weigert Creek 197534_us_ef1 1 4.4 0
Weigert Creek 197534_us_ef2 2 300 5.0 2120 13 6.1
Weigert Creek 197534_us_ef3 2 550 4.9 1521 4 2.6
Weigert Creek 197534_us_ef4 3 320 4.4 1466 0 0.0
Weigert Creek 197534_us_ef5 4 330 2.0 1495 0 0.0
* CPUE = Catch per unit effort (fish captured/1000s of electrofishing).
tab_hab_summary %>% 
  filter(Site %like% my_site) %>%
  fpr::fpr_kable(caption_text = paste0('Summary of habitat details for electrofishing sites upstream and downstream of PSCIS crossing ', my_site, '.'),
                 scroll = F) 
Table 4.6: Summary of habitat details for electrofishing sites upstream and downstream of PSCIS crossing 197534.
Site Length Surveyed (m) Channel Width (m) Wetted Width (m) Pool Depth (m) Gradient (%) Total Cover Habitat Value
197534_ds_ef1 520 4.4 3.5 0.8 3.1 moderate medium
197534_ds_ef2 450 moderate
197534_us6 4.9 abundant
197534_us_ef1 350 6.2 4.4 6.6
197534_us_ef2 300 5.6 5.0 0.5 5.2 moderate high
197534_us_ef3 550 7.0 4.9 0.4 4.0 abundant
197534_us_ef4 350 6.4 4.4 0.6 3.8 high
197534_us_ef5 330 5.0 4.0 0.7 6.7 moderate medium
fpr_table_fish_site()


fpr_table_fish_density()
Table 4.7: Fish sampling density results summary for 197534.
local_name species_code life_stage catch density_100m2 nfc_pass
197534_ds_ef1 BT adult 1 0.1 FALSE
197534_ds_ef1 EB fry 1 0.1 FALSE
197534_ds_ef1 EB parr 1 0.1 FALSE
197534_ds_ef1 EB juvenile 1 0.1 FALSE
197534_ds_ef1 MW juvenile 1 0.1 FALSE
197534_ds_ef1 WCT parr 3 0.2 FALSE
197534_ds_ef1 WCT juvenile 2 0.1 FALSE
197534_ds_ef2 WCT adult 1 FALSE
197534_us_ef1 NFC 0 TRUE
197534_us_ef2 WCT juvenile 1 0.1 FALSE
197534_us_ef2 WCT adult 6 0.4 FALSE
197534_us_ef3 WCT juvenile 1 0.0 FALSE
197534_us_ef3 WCT adult 1 0.0 FALSE
197534_us_ef4 NFC 0 0.0 TRUE
197534_us_ef5 NFC 0 0.0 TRUE
* nfc_pass FALSE means fish were captured in final pass indicating more fish of this species/lifestage may have remained in site.
Mark-recaptured required to reduce uncertainties.


my_caption <- paste0('Densites of fish (fish/100m2) captured upstream and downstream of PSCIS crossing ', my_site, '.')

fpr_plot_fish_box() 
Densites of fish (fish/100m2) captured upstream and downstream of PSCIS crossing 197534.

Figure 4.4: Densites of fish (fish/100m2) captured upstream and downstream of PSCIS crossing 197534.

4.1.6 Fish Habitat Assessment

Fish habitat was assessed at four sites within three reaches of Weigert Creek (Tables 4.8 - 4.9).

my_caption = 'Site locations for fish habitat assessment within Weigert Creek.'


tab_fhap_site %>% 
  select(
    Site, 
    Reach,
    Easting,
    Northing,
    Comments
  ) %>% 
  arrange(Site) %>% 
    fpr::fpr_kable(caption_text = my_caption,
                   scroll = F)
Table 4.8: Site locations for fish habitat assessment within Weigert Creek.
Site Reach Easting Northing Comments
1 1 650985 5532436 Start of site is where Weigert almost touches Elk River then redirects to the south (approximately 210m upstream of mapped confluence).
2 1 649996 5531958 Started at ford crossing (PSCIS 197820) located at downstream route measure 1248m.
3 2 649409 5531694 Discharge Estimated
4 3 647948 5532684 Hiked in from road to unconfined low gradient area.


my_caption = 'Summary of results from fish habitat assessment within Weigert Creek.'


tab_fhap_hu_sum %>% 
  arrange(Site) %>% 
  fpr::fpr_kable(caption_text = my_caption,
                 footnote_text = 'Results for habitat units presented as percent of total area. LWD = large woody debris.',
                 scroll = F)
Table 4.9: Summary of results from fish habitat assessment within Weigert Creek.
Site Length Surveyed (m) Average Channel Width (m) Total Area (m2) Total Functional LWD LWD per Bankfull Width Cascade Glide Pool Riffle
1 688 6.1 83457 173 1.5 44 14 5 37
2 311 6.5 17931 37 0.8 46 1 4 49
3 356 6.3 17262 119 2.1 60 5 3 32
4 266 5.9 15395 168 3.7 42 17 8 33
* Results for habitat units presented as percent of total area. LWD = large woody debris.


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_d1_')

my_caption1 = paste0('Typical habitat downstream of PSCIS crossing ', my_site, ', in Reach 1 of Weigert Creek.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Typical habitat downstream of PSCIS crossing 197534, in Reach 1 of Weigert Creek.

Figure 4.5: Typical habitat downstream of PSCIS crossing 197534, in Reach 1 of Weigert Creek.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u2_')

my_caption2 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ' , in Reach 2 of Weigert Creek.')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Typical habitat upstream of PSCIS crossing 197534 , in Reach 2 of Weigert Creek.

Figure 4.6: Typical habitat upstream of PSCIS crossing 197534 , in Reach 2 of Weigert Creek.

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u3_')

my_caption1 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ' in Reach 3 of Weigert Creek.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Typical habitat upstream of PSCIS crossing 197534 in Reach 3 of Weigert Creek.

Figure 4.7: Typical habitat upstream of PSCIS crossing 197534 in Reach 3 of Weigert Creek.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u4_')

my_caption2 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ' in Reach 4 of Weigert Creek.')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Typical habitat upstream of PSCIS crossing 197534 in Reach 4 of Weigert Creek.

Figure 4.8: Typical habitat upstream of PSCIS crossing 197534 in Reach 4 of Weigert Creek.

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u5_')

my_caption1 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ' in reach 5.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Typical habitat upstream of PSCIS crossing 197534 in reach 5.

Figure 4.9: Typical habitat upstream of PSCIS crossing 197534 in reach 5.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_ef1_')

my_caption2 = paste0('Brook Trout captured downstream of PSCIS crossing ', my_site, ' in reach 1.')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Brook Trout captured downstream of PSCIS crossing 197534 in reach 1.

Figure 4.10: Brook Trout captured downstream of PSCIS crossing 197534 in reach 1.

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_ef2_')

my_caption1 = paste0('Mountain Whitefish captured downstream of PSCIS crossing ', my_site, ' in reach 1.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Mountain Whitefish captured downstream of PSCIS crossing 197534 in reach 1.

Figure 4.11: Mountain Whitefish captured downstream of PSCIS crossing 197534 in reach 1.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_ef3_')

my_caption2 = paste0('Westslope Cutthroat Trout captured upstream of PSCIS crossing ', my_site, ' in reach 2.')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Westslope Cutthroat Trout captured upstream of PSCIS crossing 197534 in reach 2.

Figure 4.12: Westslope Cutthroat Trout captured upstream of PSCIS crossing 197534 in reach 2.

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)

4.2 Brule Creek - PSCIS crossings 197533 and 197559

my_site <- 197559
my_site2 <- 197533

A map showing sample sites for fish sampling and discharge in Brule Creek is presented in Figure 4.13.


knitr::include_graphics("fig/elk_brule_2022b.png")
Map of Brule Creek

Figure 4.13: Map of Brule Creek

# **Habitat Model Parameters** 
# * Spawning max gradient: 5.0%# 
# * Spawning discharge min (mean annual, m^3^/s): 0.05# 
# * Spawning discharge max (mean annual, m^3^/s): 76.00# 
# * Rearing max gradient:                         7.0%# 
# * Rearing discharge min  (mean annual, m^3^/s): 0.02# 
# * Rearing discharge max  (mean annual, m^3^/s): 30.00

PSCIS crossings 197533 and 197559 are located on Brule Creek approximately 20km north of the town of Sparwood. Crossing 197533 is located on Busato Road 600m upstream from the confluence with the Elk River and crossing 197559 is located on Highway 43 approximately 725m upstream from the confluence with the Elk River. Both crossings are the responsibility of the Ministry of Transportation and Infrastructure. Both crossings as well as habitat upstream and downstream was assessed in 2020 by Irvine (2021) with detailed reporting linked here. Two fords (PSCIS 197535 and 197536) were documented 700m and 2km upstream of crossing 197559 respectively.


At the highway, Brule Creek is a 5th order stream with watershed characteristics detailed in Table 4.10. Brule Creek is known to contain westslope cutthrout trout, rainbow trout and bull trout downstream of the subject culverts and westslope cutthrout trout and rainbow trout above (MoE 2020b). On the south side of the upper watershed, at an elevation of 2000m, is the 5ha Josephine Lake (also known as Big Lake). The lake was stocked with westslope cutthrout trout from 1983 - 2000 (MoE 2020b; “Fish Inventories Data Queries” 2020). PSCIS stream crossings 197533 and 197559 were ranked as high priorities for follow up with new structures designs following habitat confirmations by Irvine (2021) due to the large size of the stream network upstream of the highway. In 2020, the channel was noted as dewatered immediately upstream of Highway 43 with intermittent pools only to a distance approximately 670 m upstream. Assessments in 2022 demonstrated that the culvert on Busato Road was in extremely poor condition with deformations of the inlet and extensive corrosion. Both the Busato Road and Highway 43 culverts are extremely undersized which is evidenced by the severe down cutting below their outlets, the large outlet drops (>1m) and the dee/wide outlet pools. A map of the watershed is provided in attachment 082G.123.


fpr::fpr_table_wshd_sum(site_id = my_site) %>% 
  fpr::fpr_kable(caption_text = paste0('Summary of derived upstream watershed statistics for PSCIS crossing ', my_site, '.'),
           footnote_text = 'Elev P60 = Elevation at which 60% of the watershed area is above',
           scroll = F)
Table 4.10: Summary of derived upstream watershed statistics for PSCIS crossing 197559.
Site Area Km Elev Site Elev Min Elev Max Elev Median Elev P60 Aspect
197559 82.1 1229 1225 2938 1966 1872 SSE
* Elev P60 = Elevation at which 60% of the watershed area is above


# A summary of habitat modelling outputs is presented in Table \@ref(tab:tab-culvert-bcfp-197559) and a
fpr::fpr_table_bcfp(scroll = gitbook_on) 

4.2.1 Discharge

Discharge was measured upstream and downstream of Highway 43 on October 18, 2023. Stations locations and discharge recorded are presented in Table 4.11.

my_caption <- 'Discharge recorded at Weigert Creek upstream and downstream of Highway 43.'

hydrometrics %>% 
  filter(stringr::str_detect(gazetted_name, 'Brule')) %>% 
  select(-gazetted_name, -`dd/mm/yy & time`) %>% 
  mutate(location = str_to_title(location)) %>% 
  purrr::set_names(c('Location', 'Discharge (m3/s)', 'Zone', 'Easting', 'Northing')) %>% 
  fpr::fpr_kable(caption_text = my_caption,
                 scroll = F)
Table 4.11: Discharge recorded at Weigert Creek upstream and downstream of Highway 43.
Location Discharge (m3/s) Zone Easting Northing
Upstream 0.016 11 650707 5528331
Downstream 0.036 11 651833 5528789


4.2.2 Stream Characteristics

Habitat characteristics were gathered at two sites upstream of Highway 43 where electrofishing was conducted in 2022 (Figure 4.13 and Table 4.12.


The first site was located approximately 1km upstream from the culvert. This section was surveyed for 600m. The average channel width was 6.0m, the average wetted width was 3.5m, and the average gradient was 2.8%. The dominant streambed substrate was cobbles, with gravels sub-dominant. Total cover from overhanging vegetation and large woody debris was abundant. The habitat quality was rated as medium with moderate value for bull trout and westslope cutthrout trout and pockets of spawning gravels suitable for resident salmonids.


The second site electrofished on Brule Creek was located approximately 3.2km upstream of Highway 43. This section was surveyed for 310m to the location of a waterfall shown in Figure 4.17. This waterfall was approximately 7m in height, and blocks upstream migration for all species and life stages potentially present. At the time of survey, the average channel width was 7.5m, the average wetted width was 4.9m, and the average gradient was 2.1%. The dominant substrate was cobbles with boulders sub dominant. The habitat quality was considered moderate with abundant gravels suitable for resident and fluvial westslope cutthroat and bull trout spawning but few pools present that would be suitable for overwintering.


Monitoring of the stream immediately upstream of Highway 43 was conducted throughout 2022 to give an indication for the amount of time that dewatering occurs at this location. In 2022, dewatering was noted within the first approximately 400m from May 5th to October 15th. Upstream of the first 400m the stream was noted as flowing year round.

tab_hab_summary %>% 
  filter(Site %like% my_site) %>% 
  fpr::fpr_kable(caption_text = paste0('Summary of habitat details for electrofishing sites upstream of PSCIS crossing ', my_site, ' on Brule Creek.'),
                 scroll = F) 
Table 4.12: Summary of habitat details for electrofishing sites upstream of PSCIS crossing 197559 on Brule Creek.
Site Length Surveyed (m) Channel Width (m) Wetted Width (m) Pool Depth (m) Gradient (%) Total Cover Habitat Value
197559_us_ef1 600 6.0 3.5 0.6 2.8 abundant medium
197559_us_ef2 310 7.5 4.9 0.6 2.1 moderate high

4.2.3 Fish Sampling

The stream was electrofished at two sites upstream of crossing 197559 in 2022 with no fish captured at either site (Tables 4.13 - 4.16). However, an adult fish (approximately 30cm long) was observed in an isolated pool on August 4, 2022 approximately 350m upstream of the Highway 43 culvert within a pool within and area that was primarily dewatered.

my_caption = 'Electrofishing site summary for Brule Creek.'
# `r if(gitbook_on){knitr::asis_output("<br>")} else knitr::asis_output("\\pagebreak")`
# A total of `r hab_site %>% filter(str_detect(alias_local_name, '_ef')) %>% nrow()` sites were electrofished within `r hab_site %>% filter(str_detect(alias_local_name, '_ef')) %>% distinct(gazetted_name) %>% nrow()` streams.
hab_site %>% 
  select(gazetted_name,
         alias_local_name,
         utm_easting,
         utm_northing,
         comments
         ) %>% 
  # filter out two sites that weren't electrofished
  filter(str_detect(alias_local_name, "ef", negate = FALSE)) %>%
  filter(str_detect(gazetted_name, "Brule")) %>%
  arrange(alias_local_name) %>% 
  fpr::fpr_kable(caption_text = my_caption,
                 scroll = F)
Table 4.13: Electrofishing site summary for Brule Creek.
gazetted_name alias_local_name utm_easting utm_northing comments
Brule Creek 197559_us_ef1 650662 5528524 No comments provided. 1:32:43 PM
Brule Creek 197559_us_ef2 648968 5527392 High value habitat. Abundant gravels suitable for resident and fluvial WCT and BT. Few pools suitable for overwintering. Top of site is 7m high cascade waterfall not passable in an upstream direction. 12:12:58


my_caption = 'Summary of results of electrofishing in Brule Creek.'

 # sum of all the fish per site and the electrofishing seconds
fish_samp_sum <- left_join(
  hab_fish_indiv %>%
    mutate(ef_width_m = round(ef_width_m, 1)) %>% 
    group_by(local_name, ef_length_m, ef_width_m, ef_seconds) %>% 
    summarise(count_fish = n()) %>% 
    #need to tweak to drop nfc
    mutate(count_fish = 0) %>% 
  
    arrange(local_name),
  
  hab_site %>% 
    select(gazetted_name,
           alias_local_name, reach_number),
  
  by = c('local_name' = 'alias_local_name')
) %>% 
  relocate(
    gazetted_name, .before = local_name
  ) %>%
  relocate(
    reach_number, .after = local_name
  ) %>% 
  mutate(CPUE = round(count_fish/(ef_seconds / 1000), 1))

fish_samp_sum %>% 
  filter(str_detect(gazetted_name, 'Brule')) %>% 
  select(-reach_number) %>% 
  fpr::fpr_kable(caption_text = my_caption,
                 footnote_text = 'CPUE = Catch per unit effort (fish captured/1000s of electrofishing).',
                 scroll = F)
Table 4.14: Summary of results of electrofishing in Brule Creek.
gazetted_name local_name ef_length_m ef_width_m ef_seconds count_fish CPUE
Brule Creek 197559_us_ef1 600 3.5 0
Brule Creek 197559_us_ef2 310 4.0 1626 0 0
* CPUE = Catch per unit effort (fish captured/1000s of electrofishing).


fpr_table_fish_site()
Table 4.15: Fish sampling site summary for 197559.
site passes ef_length_m ef_width_m area_m2 enclosure
197559_us_ef1 1 600 3.50 2100.0 open
197559_us_ef2 1 310 3.96 1227.6 open


fpr_table_fish_density()
Table 4.16: Fish sampling density results summary for 197559.
local_name species_code life_stage catch density_100m2 nfc_pass
197559_us_ef1 NFC 0 0 TRUE
197559_us_ef2 NFC 0 0 TRUE
* nfc_pass FALSE means fish were captured in final pass indicating more fish of this species/lifestage may have remained in site.
Mark-recaptured required to reduce uncertainties.


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u1_')

my_caption1 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ', within first electrofishing site on Brule Creek.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Typical habitat upstream of PSCIS crossing 197559, within first electrofishing site on Brule Creek.

Figure 4.14: Typical habitat upstream of PSCIS crossing 197559, within first electrofishing site on Brule Creek.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u2_')

my_caption2 = paste0('Typical habitat upstream of PSCIS crossing ', my_site, ', within second electrofishing site on Brule Creek')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Typical habitat upstream of PSCIS crossing 197559, within second electrofishing site on Brule Creek

Figure 4.15: Typical habitat upstream of PSCIS crossing 197559, within second electrofishing site on Brule Creek

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)


my_photo1 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u3_')

my_caption1 = paste0('Habitat immediately downstream of 7.5m high waterfall on Brule Creek approximatley 3.6km upstream of Highway 43.')
grid::grid.raster(jpeg::readJPEG(my_photo1))
Habitat immediately downstream of 7.5m high waterfall on Brule Creek approximatley 3.6km upstream of Highway 43.

Figure 4.16: Habitat immediately downstream of 7.5m high waterfall on Brule Creek approximatley 3.6km upstream of Highway 43.


my_photo2 = fpr::fpr_photo_pull_by_str(site = my_site, str_to_pull = '_u4_')

my_caption2 = paste0('Waterfall (7.5m high) at end of second electrofishing survey, upstream of PSCIS crossing ', my_site, ' on Brule Creek approximatley 3.6km upstream of Highway 43.')
grid::grid.raster(jpeg::readJPEG(my_photo2))
Waterfall (7.5m high) at end of second electrofishing survey, upstream of PSCIS crossing 197559 on Brule Creek approximatley 3.6km upstream of Highway 43.

Figure 4.17: Waterfall (7.5m high) at end of second electrofishing survey, upstream of PSCIS crossing 197559 on Brule Creek approximatley 3.6km upstream of Highway 43.

my_caption <- paste0('Left: ', my_caption1, ' Right: ', my_caption2)

knitr::include_graphics(my_photo1)
knitr::include_graphics("fig/pixel.png")
knitr::include_graphics(my_photo2)