Module seagrass -- sea grass dynamics


INTERFACE:

   module seagrass
DESCRIPTION:

In this module, seagrass canopies are treated as Lagrangian tracers, which either advect passively with the horizontal current speed or rest at their excursion limits and thus exert friction on the mean flow, see Verduin and Backhaus (2000). Turbulence generation due to seagrass friction is possible, see namelist file seagrass.nml. The extra production term in the balance of TKE, (152), is included as described in section 4.8.


USES:

   default: all is private.
   private
PUBLIC MEMBER FUNCTIONS:
   public init_seagrass, do_seagrass, save_seagrass, end_seagrass
   logical, public                     :: seagrass_calc
REVISION HISTORY:
   Original author(s): Hans Burchard & Karsten Bolding
   REALTYPE, dimension(:), allocatable :: xx,yy
   REALTYPE, dimension(:), allocatable :: exc,vfric,grassz,xxP
   logical                   :: init_output
   from a namelist
   character(len=PATH_MAX)   :: grassfile='seagrass.dat'
   REALTYPE                  :: XP_rat
   integer                   :: grassind
   integer                   :: grassn
   integer                   :: out_unit
   integer                   :: maxn



Subsections

Karsten Bolding 2012-12-28