C $Id$
#if defined key_trc_p3zd
      IF(lwp) THEN
          WRITE(numout,*) ' use P3ZD biological model '
          WRITE(numout,*) ' '
      ENDIF
c
c Check number of tracers
c -----------------------
#    if defined key_trc_biohamocc13
      IF (jptra.ne.11) THEN 
#    else
      IF (jptra.ne.10) THEN 
#    endif
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)
     $            ' STOP, change jptra to 10 or 11 key_trc_biohamocc13', 
     $            ' in parameter.passivetrc.p3zd.h '  
          END IF 
          STOP 'TRCCTL'
      END IF 
c
c check consistency of key_trc_hamocc3 and key_trc_p3zd
c ------------------------------------------------------
#    if !defined key_trc_hamocc3
      IF (lwp) THEN 
          WRITE (numout,*) ' ===>>>> : w a r n i n g '
          WRITE (numout,*) ' =======   ============= '
          WRITE (numout,*)
     $        ' STOP, key_trc_p3zd  requires  key_trc_hamocc3'
      END IF 
      STOP 'TRCCTL'
#    endif
#    if defined key_trc_diaadd
      IF ((jpdia2d.ne.12).and.(jpdia3d.ne.1)) THEN 
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)
     $            ' STOP, change jpdia2d to 12 and jpdia3d to 1'
     $            ,' in parameter.passivetrc.h '  
     $            ,' (key_trc_p3zd and key_trc_diaadd)'
          END IF 
          STOP 'TRCCTL'
      END IF
#    endif
#endif