Kohdekohtaisen Minera-arvioinnin esimerkkisivu

Edistymisluokitus
Opasnetissa lukuisat sivut ovat työn alla eri vaiheissa. Niiden tietosisältöön pitää siis suhtautua harkiten. Tämän sivun sisällön edistyminen on arvioitu: Tämä sivu on luonnos Sivun olennainen sisältö ja rakenne on jo hahmottunut, mutta kuitenkin isoja sisältöpuutteita on edelleen.

[show] Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi3129
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3129}}

Pääviesti
Kysymys: Kirjoita tähän arvioinnin peruskysymys lyhyesti. Vastaus: Kirjoita tähän arvioinnin keskeinen tulos ja päätelmät lyhyesti.

<googlemap version="0.9" lat="62.928986" lon="28.706245" width="500" scale="yes"> (L) 62.937734, 28.712769 Luikonlahden rikastamo </googlemap>

Tämä sivu sisältää tyhjän kohdekohtaisen arvioinnin. Voit kopioida tämän sivun kokonaisuudessaan uudelle sivulle, jonka perustat Minera-mallin avulla tehtävän kaivoksen terveys- ja ympäristövaikutusten arvioinnin tekemistä varten. Kursivoidut tekstit ovat sivun tekijälle annettuja ohjeita, jotka voit poistaa sisällön tieltä. Sivulla on esimerkkitaulukoita, jotka sisältävät joko kuvitteellista dataa tai Luikonlahden tapaustutkimukseen liittyvää dataa. Ne ovat vain esimerkkinä rakenteesta, ja tarkoitus on korvata ne todellisella, tapauskohtaisella tiedolla.

Kursivoidut tekstit ovat ohjeita sivun muokkaajalle, ja ne on tarkoitus poistaa, kun sivu kypsyy todellisen tapaustutkimuksen kuvaukseksi.

Rajaus

Kysymys

Mikä tai mitkä ovat olennaisia tutkimuskysymyksiä kaivoksen terveys- ja ympäristövaikutuksen arvioimiseksi? Listaa tähän tärkeimmät sinun tapaustasi koskevat kysymykset, joihin sidosryhmät haluavat vastauksia.

Rajat

Maantieteelliset, ajalliset, hallinnolliset ja muut rajaukset, joiden puitteissa arvioinnin tarkastelu pysyy.

Päätökset ja skenaariot

Päätökset ja vaihtoehdot, joita halutaan tarkastella ja vertailla. Tässä kuvataan myös erilaiset skenaariot eli "entä jos" -tyyppiset tarkastelut, joissa tarkastellaan määriteltyä tilannetta riippumatta siitä, onko tilanne oikeasti kuvatunlainen. Katso rakenteen selitys sivulta Päätös ja yksityiskohtaisemmin englanniksi sivulta Decision. Huomaa, että otsikoiden täytyy olla esimerkin mukaiset, koska taulukkoa käytetään suoraan laskennassa (joka joiltakin osin toimii valitettavasti englanniksi).

Päätökset(-)

Obs	Decision	Option	Variable	Cell	Change	Result	Kuvaus
1	Kaivoksen.koko	BAU	työkonekulutus	Työkone:Nosturit	Identity	1	BAU eli business as usual on toiminnan oletusarvo
2	Kaivoksen.koko	Suurempi kaivos	työkonekulutus	Työkone:Nosturit	Multiply	2	Cell-sarake kerto, miltä osin Variable-sarakkeessa mainitun osamallin tietoja muutetaan
3	Kaivoksen.koko	BAU	varastopinta.ala		Identity	1	Identity säilyttää oletusarvon
4	Kaivoksen.koko	Suurempi kaivos	varastopinta.ala		Multiply	2	Multiply kertoo oletusarvon annetulla luvulla
5	Kaivoksen.koko	BAU	hihnanopeus		Identity	1	Cell-sarake voidaan jättää tyhjäksi, jos muutos koskee kaikkia arvoja
6	Kaivoksen.koko	Suurempi kaivos	hihnanopeus		Replace	250	Replace korvaa oletusarvon annetulla arvolla

Vastaus

Tulokset

Vastaukset kohdassa Kysymys esitettyihin kysymyksiin.

Päätelmät

Tulosten perusteella tehtävät päätelmät siitä, mitä pitäisi tehdä.

Perustelut

Kaikki se tieto, jota tarvitaan lukijaa vakuuttumaan siitä, että tulokset ja päätelmät ovat uskottavia ja hyväksyttäviä esitettyjen kysymysten ja käyttötarpeen suhteen.

Arvioinnin muut sivut

Linkit tämän arvioinnin mahdollisiin muihin, tapauskohtaisiin sivuihin sekä yleisiin metodisivuihin.

• Luikonlahden rikastamon lähiympäristön tila

Kohdekohtaiset tiedot

Lisää tähän kohdekohtaisia tietoja, joita tarvitaan laskennassa. Korvaa esimerkkisisältö tapauskohtaisilla tiedoilla. Voit poistaa ja lisätä rivejä tarpeen mukaan.

Lähtötiedot(-)

Obs	Muuttuja	Kuvaus	Arvo
1	varastokastelu	Varastointialueen kastelu (mm /d)	0
2	varastopinta.ala	Varastointialueen pinta-ala (ha)	1
3	varastosilttipitoisuus	Varastoitavan maamassan silttipitoisuus (%)	30
4	hihnanopeus	Hihnakuljetettavan materiaalin nopeus (ton /h)	100
5	hihna.aika	Hihnakuljetuksen käyttö vuodessa (h /a)	2400
6	hihnaprosessi	Prosessin tyyppi	Hihnalle lastaaminen ja hihnan vaihto
7	hihnoja	Hihnojen lukumäärä (#)	1
8	hihnakosteus	Hihnalla kuljettavan materiaalin kosteus	Kostea
9	hihnavaimennus	Hihnakuljetuksen vaimennusprosessit	Tuulensuojamuuri,Materiaalin kastelu
10	pintamaasilttipitoisuus	Materiaalin silttipitoisuus (%)	20
11	pintamaakosteusprosentti	Materiaalin kosteusprosentti (%)	1
12	pintamaatyötunnit	Käytetyt työtunnit (h /a)	100
13	työkone	Käytetty työkone	Nosturit
14	työkonekulutusRaw	Polttoaineen kulutus (l /a)	10
15	ruutu	Laskeumamallin ruudun koko (km)	0.5
16	peitto	Laskeumamallin kattaman alueen säde (km)	15
17	LO	Kaivoksen sijainti (pituuspiiri °)	28.712769
18	LA	Kaivoksen sijainti (leveyspiiri °)	62.937734
19	pitoisuustiedot	Taulukko, joka sisältää mittaus- tai arviointituloksia ympäristöpitoisuuksista	Op_fi3372

Malmin pitoisuudet(mg /kg)

Obs	Altiste	Arvo
1	Rikki	6000
2	Kupari	300
3	Sinkki	200
4	Koboltti	100
5	Nikkeli	200
6	Arseeni	40
7	Lyijy	50
8	Antimoni	110
9	Kromi	1310
10	Vanadiini	210

(Arvot ovat Luikonlahden rikastushiekasta)

Laskenta

Laskentakaavat ja syöttökentät, joiden avulla tuloksia voidaan laskea ja mallittaa.

Mitkä välitulokset haluat nähdä?: Tapauskohtaiset lähtötiedot Varastoinnin päästöt Hihnakuljetuksen päästöt Työkoneiden päästöt Pintamaan poiston päästöt Hiukkasten kokonaispäästö Hiukkaslaskeuma Ihmisten altistuminen maa- ja vesipitoisuuksille Nisäkkäiden ja lintujen altistuminen Hiukkaspitoisuus ja terveysvaikutus (laskee yli 10 min) Näytetäänkö tulokset taulukoina?: Kyllä Ei Näytetäänkö tulokset kuvina?: Kyllä Ei Montako iteraatiota ajetaan?: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(ggplot2) ########## Hae metodit objects.latest("Op_fi3492", "alustus") ### Materiaalin varastointi objects.latest("Op_fi2825", "alustus") ### Metallimalmin hihnakuljetuksen pölypäästöt objects.latest("Op_fi3186", "alustus") ### Työkoneiden päästöt objects.latest("Op_fi3351", "alustus") ### Pintamaan poiston päästöt objects.latest("Op_fi3791", "alustus") ### Hiukkaslaskeuma objects.latest("Op_fi3719", "alustus") ### Pienhiukkasvaikutukset objects.latest("Op_fi3744", "alustus") ### Minera-malli: hiukkaspäästöDetail, hiukkaspäästö, hiukkaspitoisuus objects.latest('Op_fi2808','alustus') # Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi. objects.latest('Op_fi3378','alustus') # Haitta-aineiden imeytyminen iholta elimistöön. objects.latest('Op_fi3377','alustus') # Haitta-aineiden taustasaanti. objects.latest('Op_fi3373','alustus') # Ympäristöterveydelliset viite- ja raja-arvot. objects.latest('Op_fi3379','alustus') # Terveysriskin kuvaus. objects.latest("Op_fi3471", "alustus") ### Nisäkkäiden ja lintujen altistuminen metalleille ########## Hae tapauskohtaiset parametrit tapaussivu <- "Op_fi3129" # Tämä on arvioinnin pääsivun tunniste. Se on vaihdettava tapauskohtaisesti. parametrit <- opbase.data(paste(tapaussivu, ".lahtotiedot", sep = "")) for(i in 1:nrow(parametrit)) { data <- as.character(parametrit$Result[i]) data <- ifelse(is.na(as.numeric(data)), data, as.numeric(data)) data <- data.frame(Temp = data) # , A = "a") colnames(data)[colnames(data) == "Temp"] <- paste(as.character(parametrit$Muuttuja[[i]]), "Result", sep ="") temp <- Ovariable( name = as.character(parametrit$Muuttuja[i]), data = data ) assign(as.character(parametrit$Muuttuja[i]), temp) } ########### Muokataan tapauskohtaisia parametreja hihnaprosessi <- as.character(hihnaprosessi@data$hihnaprosessiResult) hihnakosteus <- as.character(hihnakosteus@data$hihnakosteusResult) hihnavaimennus <- strsplit(as.character(hihnavaimennus@data$hihnavaimennusResult), split = ",")[[1]] ruutu <- ruutu@data$ruutuResult peitto <- peitto@data$peittoResult pitoisuustiedot <- as.character(pitoisuustiedot@data$pitoisuustiedotResult) pitoisuustiedot työkonekulutus <- Ovariable( name='työkonekulutus', data = data.frame( Työkone = työkone@data$työkoneResult, työkonekulutusResult = työkonekulutusRaw@data$työkonekulutusRawResult ) ) objects.latest(pitoisuustiedot,'alustus') # Arviointikohtaiset pitoisuustiedot, esimerkissä Luikonlahden rikastamon lähiympäristön tila. hiukkaspäästöCols <- c("hiukkaspäästöDetailSource", "Prosessi") ########### Hae päätökset#### päätökset <- opbase.data(paste(tapaussivu, ".paatokset", sep = "")) päätökset$Result <- as.numeric(as.character(päätökset$Result)) DecisionTableParser(päätökset) ############## Tulosten laskenta (paitsi laskeuma ja pitoisuus, jotka ovat raskaita) hiukkaspäästöDetail <- EvalOutput(hiukkaspäästöDetail, N = N) hiukkaspäästöDetail@output <- fillna(hiukkaspäästöDetail@output, 3) # Päätöksen fillna pitäisi tehdä automaattiseksi. hiukkaspäästö <- EvalOutput(hiukkaspäästö, N = N) ##Verrataan ympäristön haitta-ainepitoisuuksia terveysperusteisiin viitearvoihin ympäristöpitoisuus.viitearvovertailu <- EvalOutput(ympäristöpitoisuus.viitearvovertailu) ##Verrataan päivittäistä kokonaisaltistumista pitkäaikaisaltistumisen viitearvoihin kokonaisaltistuminen.HQ <- EvalOutput(kokonaisaltistuminen.HQ ) ##Muokataan altistumisvertailun tulostaulu tulostettavaan muotoon kokonaisaltistuminen.HQ@output$kokonaisaltistuminen.HQSource <- NULL kokonaisaltistuminen.HQ@output <- reshape( kokonaisaltistuminen.HQ@output, timevar = "Ikä", idvar = c("Altiste", "Altistumistaso", "Altistumislähde", "Reitti"), direction = "wide" ) colnames(kokonaisaltistuminen.HQ@output) <- gsub("kokonaisaltistuminen.HQResult.", "", colnames(kokonaisaltistuminen.HQ@output)) ################ Tulosten printtaaminen if('lähtötiedot' %in% tulosteet) { cat("Tapauskohtaiset lähtötiedot:\n") if(taulukot) oprint(parametrit) cat("Tapauskohtaiset päätösvaihtoehdot:\n") if(taulukot) oprint(päätökset) cat("Mallin oletusarvoja:\n sadepäiviä (d /a): ", sadepäiviä, "\n osuus tuulista (h /h): ", osuus.tuulista, "\n osuus lumista (h /h): ", osuus.lumista, "\n") } if("varastointi" %in% tulosteet) { cat("Pölypäästö varastoinnista\n") if(taulukot) oprint(summary(varastopäästö, "mean")) if(kuvat) ograph(varastopäästö, x = "Hiukkaskoko") } if("hihnakuljetus" %in% tulosteet) { cat("Pölypäästöt hihnakuljetuksesta (ton /a)\n") if(kuvat) ograph(hihnapäästö, x = "Hiukkaskoko") if(taulukot) oprint(summary(hihnapäästö), digits = 5) } if("työkoneet" %in% tulosteet) { cat("Työkoneiden päästöt\n") if(taulukot) oprint(summary(työkonepäästö)) if(kuvat) ograph(työkonepäästö, x = "Altiste") } if("pintamaa" %in% tulosteet) { cat("Pintamaan poiston päästöt\n") if(taulukot) oprint(summary(pintamaapäästö)) if(kuvat) ograph(pintamaapäästö, x = "Hiukkaskoko") } if("hiukkaspäästö" %in% tulosteet) { cat("Hiukkaspäästö (prosessit eriteltynä)\n") if(taulukot) oprint(summary(hiukkaspäästöDetail), digits = 5) if(kuvat) ograph(hiukkaspäästöDetail, x = "Prosessi", fill = "Hiukkaskoko") if(kuvat) ograph(hiukkaspäästöDetail, x = "Hiukkaskoko", fill = "Kaivoksen.koko") cat("Pienhiukkaspäästö yhteensä\n") if(taulukot) oprint(summary(hiukkaspäästö), digits = 5) } if("hiukkaslaskeuma" %in% tulosteet) { hiukkaslaskeuma <- EvalOutput(hiukkaslaskeuma, N = N) cat("Hiukkaslaskeuma\n") # if(taulukot) oprint(summary(hiukkaslaskeuma), digits = 5) if(kuvat) ograph(hiukkaslaskeuma, x = "etäisyysluokka", fill = "Hiukkaskoko", other = scale_y_log10()) } if("altistuminen" %in% tulosteet) { cat("Haitta-aineen ympäristöpitoisuus suhteutettuna terveysperusteiseen viitearvoon. Viitearvo ylittyy kun suhdeluku > 1.\n") if(taulukot) oprint(ympäristöpitoisuus.viitearvovertailu@output, digits = 5) # [ympäristöpitoisuus.viitearvovertailu@output$Altiste == altiste, ],digits=5) cat("Ympäristöperäiselle haitta-aineen kokonaisaltistukselle laskettu vaaraosamäärä (hazard quotient, HQ). Viitearvo ylitty kun HQ > 1.\n") if(taulukot) oprint(kokonaisaltistuminen.HQ@output, digits = 5) # [kokonaisaltistuminen.HQ@output$Altiste == altiste, ],digits=5) } if("selkärankaisaltistus" %in% tulosteet) { selkärankaisaltistus <- EvalOutput(selkärankaisaltistus) if(taulukot) oprint(ympäristöpitoisuus) if(kuvat) ograph(selkärankaisaltistus, x = "Laji", fill = "Altiste") if(kuvat) ograph(lajikohtainen.saanti, x = "Laji", fill = "Matriisi") if(kuvat) ograph(selkärankaissaanti, x = "Laji", fill = "Matriisi") } if("hiukkasterveysvaikutus" %in% tulosteet) { hiukkasterveysvaikutus <- EvalOutput(hiukkasterveysvaikutus, N = N) if(taulukot) oprint(summary(hiukkaspitoisuus), digits = 5) if(kuvat) ograph(hiukkaspitoisuus, x = "Hiukkaskoko") if(taulukot) oprint(summary(hiukkasaltistus), digits = 5) if(taulukot) oprint(summary(hiukkasterveysvaikutus), digits = 5) if(kuvat) ograph(hiukkasterveyvaikutus, x = "Hiukkaskoko") }

Katso myös

Muita Minera-projektin tuotoksia

Minera-mallin sovelluksia	· Luikonlahden tapaustutkimus · Luikonlahden sienitutkimusraportti
Muut	· Metallimalmikaivostoiminnan parhaat ympäristökäytännöt · Minera-hanke · MINERA Loppuseminaari · Kauppila T, Makkonen S, Komulainen H, Tuomisto JT: Metallikaivosalueiden ympäristöriskinarviointiosaamisen kehittäminen: MINERA-hankkeen loppuraportti. · Lehdistötiedote 15.4.2013 · Kohdekohtainen esimerkki · Lyhenteet ja määritelmät · Loppuraportti kokonaismalli · Kaivostoiminnan ympäristöterveysriskien arviointi (suojattu sivu) · Mallinnusohjelmat päästöjen arvioinnissa · Viitearvot · Talvivaaran kaivoksen terveysvaikutukset · Loppuraportti · Raportti · Yaran tapaustutkimus
Muita kaivostoimintaan liittyvää	· Vesijalanjälki · Hyvä kaivos pohjoisessa · Yhteiskuntatieteellinen kaivostutkimus Itä-Suomen yliopistossa · Teemasivu:Kaivostoiminnan vaikutusarviointi

Avainsanat

Kohdekohtainen riskinarviointi, kaivos, terveysvaikutus, ympäristövaikutus.

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>