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.
default: all is private. privatePUBLIC MEMBER FUNCTIONS:
public init_seagrass, do_seagrass, save_seagrass, end_seagrass logical, public :: seagrass_calcREVISION 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