#include "cppdefs.h"

MODULE sedmodel
   !!======================================================================
   !!                       ***  MODULE sedmodel   ***
   !!   Sediment model : Main routine of sediment model 
   !!======================================================================
#if defined key_pisces
   USE sed
   USE sedstp   ! time stepping
   USE sedinitrc

   IMPLICIT NONE
   PRIVATE

   !! * Routine accessibility
   PUBLIC sed_model  ! called by step.F90

   !!* Substitution
#  include "ocean2pisces.h90"

CONTAINS

   SUBROUTINE sed_model ( kt )
      !!---------------------------------------------------------------------
      !!                  ***  ROUTINE sed_model  ***
      !!
      !! ** Purpose :   main routine of sediment model
      !!
      !!
      !! ** Method  : - model general initialization
      !!              - launch the time-stepping (stp routine)
      !!
      !!   History :
      !!        !  07-02 (C. Ethe)  Original
      !!----------------------------------------------------------------------
      INTEGER, INTENT(in) ::   kt       ! number of iteration


      IF( kt == nittrc000 ) CALL sed_initrc       ! Initialization of sediment model
                            CALL sed_stp( kt )  ! Time stepping of Sediment model

   END SUBROUTINE sed_model

#endif

END MODULE sedmodel