Initialise the sea grass module


INTERFACE:

    subroutine init_seagrass(namlst,fname,unit,nlev,h)
DESCRIPTION:

Here, the seagrass namelist seagrass.nml is read and memory is allocated for some relevant vectors. Afterwards, excursion limits and friction coefficients are read from a file. The uppermost grid related index for the seagrass canopy is then calculated.


USES:

    IMPLICIT NONE
INPUT PARAMETERS:
    integer,          intent(in)   :: namlst
    character(len=*), intent(in)   :: fname
    integer,          intent(in)   :: unit
    integer,          intent(in)   :: nlev
    REALTYPE,         intent(in)   :: h(0:nlev)
REVISION HISTORY:
    Original author(s): Karsten Bolding & Hans Burchard
LOCAL VARIABLES:
    integer                   :: i,rc
    REALTYPE                  :: z
    namelist /canopy/  seagrass_calc,grassfile,XP_rat



Karsten Bolding 2012-01-24