!!======================================================================
   !!                         ***  trcctl.cfc.h90  ***
   !! TOP :   Control of CFC chemical model
   !!======================================================================
   !!----------------------------------------------------------------------
   !! History :   1.0  !  2005-10 (C. Ethe) assign a parameter to name individual tracers
   !!----------------------------------------------------------------------
   !!----------------------------------------------------------------------
   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
   !! $Id: trcctl.pisces.h90 772 2007-12-17 11:59:33Z gm $ 
   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
   !!----------------------------------------------------------------------

      IF(lwp) WRITE(numout,*)
      IF(lwp) WRITE(numout,*) ' use PISCES biological model '

   ! Check number of tracers
   ! -----------------------
#if  defined key_kriest
      IF( jp_pisces /= 23) THEN 
#else
      IF( jp_pisces /= 24) THEN
#endif
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)                               &
              &   ' STOP, change jp_pisces',               & 
              &   ' in parameter.passivetrc.pisces.h '  
          END IF 
          STOP 'TRC_CTL'
      END IF