C $Id$
CCC
CCC
c
#if defined key_trc_age
      IF(lwp) THEN
          WRITE(numout,*) ' use AGE TRACER model '
          WRITE(numout,*) ' '
      ENDIF
c
c Check number of tracers
c -----------------------
      IF (jptra.ne.2) THEN 
          IF (lwp) THEN 
              WRITE (numout,*) ' ===>>>> : w a r n i n g '
              WRITE (numout,*) ' =======   ============= '
              WRITE (numout,*)
     $            ' STOP, change jptra to 2 in '
     $            ,'parameter.passivetrc.age.h '  
          END IF 
          STOP 'TRCCTL'
      END IF 
#endif