R/dpress.R

dpress = function(Dep){
  #Equation from Dukowicz (2001)
  DepP = 0.059808*(exp(-0.025*Dep)-1) + 0.100766*Dep + 2.28405*10**(-7)*Dep**2

  return(DepP)
}
kevans27/aqeco documentation built on May 16, 2019, 4:08 a.m.