MODULE trclsm
   !!======================================================================
   !!                         ***  MODULE trclsm  ***
   !! TOP :   reads specific namelist for passive tracer sms terms
   !!======================================================================
   !! History :   1.0  !  2004-03 (C. Ethe) Original code
   !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing
   !!----------------------------------------------------------------------
#if defined key_top
   !!----------------------------------------------------------------------
   !!   'key_top'                                                TOP models
   !!----------------------------------------------------------------------
   !!   trc_lsm   : reads specific namelist for sms terms
   !!----------------------------------------------------------------------
   USE par_trc         ! TOP parameters
   USE trclsm_cfc      ! CFC     initialisation
   USE trclsm_lobster  ! LOBSTER initialisation
   USE trclsm_pisces   ! PISCES  initialisation
   USE trclsm_my_trc   ! MY_TRC  initialisation
   USE in_out_manager  ! I/O manager

   IMPLICIT NONE                             
   PRIVATE

   PUBLIC   trc_lsm      ! called in initrc.F90

   !!----------------------------------------------------------------------
   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
   !! $Id$ 
   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
   !!----------------------------------------------------------------------

CONTAINS

   SUBROUTINE trc_lsm
      !!----------------------------------------------------------------------
      !!                     ***  trc_lsm  ***  
      !!
      !! ** Purpose :   read TOP namelists for the different tracers models
      !!
      !! ** Method  :   call the namelist read of each defined tracer
      !!             model (LOBSTER, PISCES, CFC, MY_TRC)
      !!----------------------------------------------------------------------
      !
      IF(lwp) WRITE(numout,*)
      IF(lwp) WRITE(numout,*) 'trc_lsm : read namelist of the TOP models'
      IF(lwp) WRITE(numout,*) '~~~~~~~'
      !
      IF( lk_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model
      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
      ENDIF

      IF( lk_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model
      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
      ENDIF

      IF( lk_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers
      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used'
      ENDIF

      IF( lk_my_trc  ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers
      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
      ENDIF
      !
   END SUBROUTINE trc_lsm

#else
   !!----------------------------------------------------------------------
   !!  Dummy module :                                     No passive tracer
   !!----------------------------------------------------------------------
CONTAINS
   SUBROUTINE trc_lsm                      ! Empty routine
   END  SUBROUTINE trc_lsm
#endif  

   !!======================================================================
END MODULE trclsm