MODULE sed_oce
   !!======================================================================
   !!                        ***  sed  ***
   !! Sediment :   set sediment global variables
   !!======================================================================

   !! History :
   !!        !  06-12  (C. Ethe)  Orignal
   !!----------------------------------------------------------------------
   USE par_sed
   USE trc, ONLY : profsed

   IMPLICIT NONE
   PUBLIC

   PUBLIC sed_oce_alloc

   REAL(wp), PUBLIC, DIMENSION(:    ), ALLOCATABLE ::  profsedw       !: depth of middle of each layer

   !! $Id$
CONTAINS

   INTEGER FUNCTION sed_oce_alloc()
      !!-------------------------------------------------------------------
      !!                    *** ROUTINE sed_alloc ***
      !!-------------------------------------------------------------------
      USE lib_mpp, ONLY: ctl_stop
      !!-------------------------------------------------------------------
      !
      ALLOCATE( profsed(jpksed) , profsedw(jpksed) , STAT=sed_oce_alloc )

      IF( sed_oce_alloc /= 0 )   CALL ctl_stop( 'STOP', 'sed_oce_alloc: failed to allocate arrays' )
      !
   END FUNCTION sed_oce_alloc

END MODULE sed_oce