Skip to content

Commit

Permalink
updating flux calculations
Browse files Browse the repository at this point in the history
  • Loading branch information
JohannaPedersen committed Sep 30, 2023
1 parent 46027c8 commit 5fb3518
Show file tree
Hide file tree
Showing 13 changed files with 3 additions and 0 deletions.
Binary file modified plots-field-trials/cum_emis_mn_perc.pdf
Binary file not shown.
Binary file modified plots-field-trials/cum_emis_mn_perc.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified plots-field-trials/cum_emis_perc.pdf
Binary file not shown.
Binary file modified plots-field-trials/cum_emis_perc.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified plots-field-trials/flux.pdf
Binary file not shown.
Binary file modified plots-field-trials/flux.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified plots-field-trials/flux_perc.pdf
Binary file not shown.
Binary file modified plots-field-trials/flux_perc.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified plots-field-trials/flux_weather.pdf
Binary file not shown.
Binary file modified plots-field-trials/flux_weather1.pdf
Binary file not shown.
Binary file modified plots-field-trials/flux_weather1.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified plots-field-trials/weather.pdf
Binary file not shown.
3 changes: 3 additions & 0 deletions scripts-field-trials/bLS_dataframe.R
Original file line number Diff line number Diff line change
Expand Up @@ -27,6 +27,9 @@ bb$treat <- 'bLS'
# from myg * s^-1* m^-2 to g * min^-1* m^-2
bb$flux <- as.numeric(bb$emis_NH3_gap) * 10^-6 * 60

# from gNH3 to gN
bb$flux <- bb$flux * 14.0067 / 17.031

# calculation of total flux over time
# last point * 30 min (time meas interval)
bb$flux.time <- bb$flux * 30
Expand Down

0 comments on commit 5fb3518

Please sign in to comment.