! $Id$
!!!
!!!                        trclsm.age.h
!!!                     **********************
!!!
!!!  PURPOSE :
!!!  ---------
!!!     READ the specific NAMELIST for AGE TRACER model
!!!
!!   METHOD :                   : no
!!   -------
!!
!!   MODIFICATIONS:
!!   --------------
!!      original  : 02-05 O. Aumont
!!----------------------------------------------------------------------
!! local declarations
!! ==================

#if defined key_passivetrc && defined key_trc_age

      CHARACTER (len=32) :: clname


!!!---------------------------------------------------------------------
!!!  OPA8, LODYC (15/11/96)
!!!---------------------------------------------------------------------

! 0. initializations
! ------------------

      NAMELIST/natage/tauage1,tauage2


      IF(lwp) THEN
          WRITE(numout,*) ' '
          WRITE(numout,*) ' ROUTINE trclsm'
          WRITE(numout,*) ' **************'
          WRITE(numout,*) ' '
          WRITE(numout,*) ' namelist for age tracer model'
          WRITE(numout,*) ' ***************************'
          WRITE(numout,*) ' '
      ENDIF

      numnat=80
      clname ='namelist_age'
      OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old')

! 1 namelist natage : restoring time constant
! -------------------------------------------

      tauage1 = 7.
      tauage2 = 1.

      READ(numnat,natage)

      IF(lwp) THEN
          WRITE(numout,*) 'natage'
          WRITE(numout,*) ' '
          WRITE(numout,*)    &
          &   ' restoring time constant  tauage1 =', tauage1
          WRITE(numout,*)    &
          &   ' incrementation constant tauage2 =', tauage2
      ENDIF

#else

! no passive tracers

#endif