epsilon_to_k: convert epsilon to k600

In USGS-R/GDopp: processing of ADV data

Description

Uses Zappa et al. 2007 to convert epsilon to k600.

Usage

epsilon_to_k(epsilon, temperature = 20, nu = 0.2)

Arguments

epsilon	Turbulence dissipation rate
temperature	Temperature in degC of near surface water
nu	Constant of proportionality

Details

a GDopp function for converting epsilon to k600.

Value

a single k600 value

References

Zappa, Christopher J., Wade R. McGillis, Peter A. Raymond, James B. Edson, Eric J. Hintsa, Hendrik J. Zemmelink, John WH Dacey, and David T. Ho. Environmental turbulent mixing controls on air/water gas exchange in marine and aquatic systems. Geophysical Research Letters 34, no. 10 (2007).

Examples

## Not run: 
folder.nm <- system.file('extdata', package = 'GDopp')
file.nm <- "ALQ102.dat"
block.use <- 7
data.adv <- load_adv(file.nm=file.nm, folder.nm =folder.nm)
window.adv <- window_adv(data.adv,freq=32,window.mins=10)
data.sen <- load_sen(paste0(substr(file.nm,start=1,stop=nchar(file.nm)-4),'.sen'))
temp.adv <- temp_calc(data.sen,window.adv$window.idx,freq=32)
chunk.adv <- window.adv[window.adv$window.idx==block.use, ]
epsilon <- fit_epsilon(chunk.adv,freq=32)
epsilon_to_k(epsilon,temperature=temp.adv[block.use],nu=0.2)

## End(Not run)

USGS-R/GDopp documentation built on May 9, 2019, 6:09 p.m.