source: trunk/NEMO/TOP_SRC/SED/sedmodel.F90 @ 1179

MODULE sedmodel
#if defined key_sed
   !!======================================================================
   !!                       ***  MODULE sedmodel   ***
   !!   Sediment model : Main routine of sediment model 
   !!======================================================================
   USE sed
   USE sedini   ! sediment variables initialization
   USE sedstp   ! time stepping

   IMPLICIT NONE
   PRIVATE

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

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


      !
      !  Initialization of sediment model
      ! -----------------------------------

      IF( kt == nit000 ) CALL sed_init


      !! Time stepping of Sediment model
      !!-----------------------------------

      CALL sed_stp( kt )


   END SUBROUTINE sed_model

#else
   !!======================================================================
   !! MODULE sedbtb  :   Dummy module 
   !!======================================================================
CONTAINS
   SUBROUTINE sed_model( kt )         ! Empty routine
      INTEGER, INTENT(in) :: kt
      WRITE(*,*) 'sed_stp: You should not have seen this print! error?', kt
   END SUBROUTINE sed_model

   !!======================================================================
#endif

END MODULE sedmodel