CCC $Header$ 
CCC  TOP 1.0 , LOCEAN-IPSL (2005) 
C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
C ---------------------------------------------------------------------------
C $Id$
CCC
CCC Modifications:
CCC --------------
CCC    00-12 (E. Kestenare): 
CCC           assign a parameter to name individual tracers
CCC
c
#if defined key_trc_lobster1
      IF(lwp) THEN
          WRITE(numout,*) ' use LOBSTER1 biological model '
          WRITE(numout,*) ' '
      ENDIF
c
c Check number of tracers
c -----------------------
      IF (jptra .ne. 6) THEN 
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)
     $            ' STOP, change jptra to 6 in '
     $            ,'parameter.passivetrc.lobster1.h '  
          END IF 
          STOP 'TRCCTL'
      END IF 
c
c Check tracer names
c ------------------
      IF (    (ctrcnm(jpdet).ne.'DET').or.(ctrcnm(jpzoo).ne.'ZOO')
     $    .or.(ctrcnm(jpphy).ne.'PHY').or.(ctrcnm(jpno3).ne.'NO3')
     $    .or.(ctrcnm(jpnh4).ne.'NH4').or.(ctrcnm(jpdom).ne.'DOM') 
     $    .or.(ctrcnl(jpdet).ne.'Detritus')
     $    .or.(ctrcnl(jpzoo).ne.'Zooplankton concentration')
     $    .or.(ctrcnl(jpphy).ne.'Phytoplankton concentration')
     $    .or.(ctrcnl(jpno3).ne.'Nitrate concentration')
     $    .or.(ctrcnl(jpnh4).ne.'Ammonium concentration')
     $    .or.(ctrcnl(jpdom).ne.'Dissolved organic matter') ) THEN 
          ctrcnm(jpdet)='DET'
          ctrcnl(jpdet)='Detritus'
          ctrcnm(jpzoo)='ZOO'
          ctrcnl(jpzoo)='Zooplankton concentration'
          ctrcnm(jpphy)='PHY'
          ctrcnl(jpphy)='Phytoplankton concentration'
          ctrcnm(jpno3)='NO3'
          ctrcnl(jpno3)='Nitrate concentration'
          ctrcnm(jpnh4)='NH4'
          ctrcnl(jpnh4)='Ammonium concentration'
          ctrcnm(jpdom)='DOM'
          ctrcnl(jpdom)='Dissolved organic matter'          
          IF (lwp) THEN
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*) ' we force tracer names'
              DO jn=1,jptra
                WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn)
     $              ,ctrcnl(jn) 
              END DO
              WRITE(numout,*) ' '
          ENDIF 
      ENDIF 
c Check tracer units
      DO jn=1,jptra
        IF (ctrcun(jn).ne.'mmole-N/m3') THEN
            ctrcun(jn)='mmole-N/m3'
            IF (lwp) THEN
                WRITE (numout,*) ' ===>>>> : w a r n i n g '
                WRITE (numout,*) ' =======   ============= '
                WRITE (numout,*) ' we force tracer unit'
                WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= '
     $              ,ctrcun(jn)
                WRITE(numout,*) ' '
            ENDIF 
        ENDIF 
      END DO              
#endif