Exchange.coefficient: Vertical exchange coefficient between surface and bottom...

In DanielReedOcean/COOLBEANS: Coastal Ocean Oxygen Linked to Benthic Exchange and Nutrient Supply model

Description

Calculates the rate constant of exchange between surface and bottom waters.

Usage

Exchange.coefficient(BOD, O2.surf, O2.bottom, L)

Arguments

BOD	Benthic oxygen demand (mol O2/[m2 y])
O2.surf	Surface oxygen concentration (mol/m3)
O2.bottom	Bottom oxygen concentration (mol/m3)
L	Thickness of bottom layer (m)

Value

Returns vertical exchange coefficient between surface and bottom waters (/y)

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (BOD, O2.surf, O2.bottom, L) 
{
    Exchange <- BOD/((O2.surf - O2.bottom) * L)
    mask <- (0.05 > (O2.surf - O2.bottom)/O2.surf | O2.bottom > 
        O2.surf)
    Exchange[mask] <- BOD[mask]/(0.1 * O2.surf[mask] * L)
    return(Exchange)
  }

DanielReedOcean/COOLBEANS documentation built on May 6, 2019, 1:35 p.m.