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-12-28