MODULE initrc
   !!===========================================================================================
   !!
   !!                       *** MODULE initrc ***
   !! Initialisation the tracer model
   !!===========================================================================================

   !!----------------------------------------------------------------------
   !!  TOP 1.0,  LOCEAN-IPSL (2005)
   !! $Header$
   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
   !!----------------------------------------------------------------------

      !!----------------------------------------------------------------------
      !! * Modules used
      !! ==============
      USE oce_trc
      USE trc
      USE trcrst
      USE trcctl
      USE trclec
      USE trcdtr
      USE trcini

      IMPLICIT NONE
      PRIVATE


   !! * Accessibility
   PUBLIC ini_trc

CONTAINS
                                                                                                                            
#if defined key_passivetrc

SUBROUTINE ini_trc
   !!---------------------------------------------------------------------
   !!
   !!                       ROUTINE ini_trc
   !!                     ******************
   !!
   !!  PURPOSE :
   !!  ---------
   !!     initialize the tracer model
   !!
   !!   METHOD :
   !!   -------
   !!
   !!
   !!   History:
   !!   -------
   !!      original  : 91-03 ()
   !!      additions : 92-01 (C. Levy)
   !!     05-03 (O. Aumont and A. El Moussaoui) F90
   !!----------------------------------------------------------------------

   !!---------------------------------------------------------------------
   !!  OPA.9, 03-2005
   !!---------------------------------------------------------------------

   !! 0.b PRINT the number of tracer
   !! ------------------------------

      IF(lwp) WRITE(numout,*) ' '
      IF(lwp) WRITE(numout,*) ' *** number of passive tracer jptra = ',jptra
      IF(lwp) WRITE(numout,*) ' '

   ! 1. READ passive tracers namelists
   ! ---------------------------------

      CALL trc_lec

   ! 2. control consistency between parameters, cpp key and namelists
   ! ----------------------------------------------------------------

      CALL trc_ctl

   ! 3. computes some initializations
   ! --------------------------------

      CALL trc_ini

   ! 4. restart from a FILE (nutrst)
   ! ----------------------

      IF(lrsttr) THEN

          CALL trc_rst

      ELSE

   ! start from anything ELSE

          CALL trc_dtr

      ENDIF

END SUBROUTINE ini_trc

#else
SUBROUTINE ini_trc
   ! no passive tracers
END SUBROUTINE ini_trc
#endif

END MODULE initrc