!!!
!!! Modifications:
!!! --------------
!!!    00-12 (E. Kestenare): 
!!!           assign a parameter to name individual tracers
!!!    01-02 (E. Kestenare):
!!!           introduce jpno3 instead of jpnut
!!!

#if defined key_trc_npzd

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

! Check number of tracers
! -----------------------
      IF (jptra /= 4) THEN 
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)                         &
              &   ' STOP, change jptra to 4 in '       &
              &   ,'parameter.passivetrc.npzd.h '  
          END IF 
          STOP 'TRCCTL'
      END IF 

! Check tracer names
! ------------------
      IF ( ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO'        &
      &  .OR. ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3 /= 'NUT'      &
      &  .OR. ctrcnl(jpdet) /= 'DETRITUS'                            &
      &  .OR. ctrcnl(jpzoo) /= 'ZOOPLANKTON'                         &
      &  .OR. ctrcnl(jpphy) /= 'PHYTOPLANKTON'                       &
      &  .OR. ctrcnl(jpno3) /= 'NUTRIENTS') THEN 

          ctrcnm(jpdet)='DET'
          ctrcnl(jpdet)='DETRITUS'
          ctrcnm(jpzoo)='ZOO'
          ctrcnl(jpzoo)='ZOOPLANKTON'
          ctrcnm(jpphy)='PHY'
          ctrcnl(jpphy)='PHYTOPLANKTON'
          ctrcnm(jpno3)='NUT'
          ctrcnl(jpno3)='NUTRIENTS'
    
          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 
! Check tracer units

      DO jn=1,jptra
        IF (ctrcun(jn) /= 'mmole/m3') THEN
            ctrcun(jn)='mmole/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