C $Id$
CDIR$ LIST
      SUBROUTINE trcdia(kt,kindic)
      IMPLICIT NONE
      INTEGER kt, kindic      
C
C outputs for tracer concentration
C
      CALL trcdit(kt,kindic)
#if defined key_trc_diatrd
C
C outputs for dynamical trends
C
      CALL trcdid(kt,kindic)

#endif
#if defined key_trc_diaadd
C
C outputs for additional arrays
C
      CALL trcdii(kt,kindic)
#endif
#if defined key_trc_diabio
C
C outputs for biological trends
C
      CALL trcdib(kt,kindic)
#endif
      RETURN 
      END