CCC $Header$ 
CCC  TOP 1.0 , LOCEAN-IPSL (2005) 
C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
C ---------------------------------------------------------------------------
CCC
CCC                       trcwri.mpp
CCC                     **************
CCC
CDIR$ NOLIST
      USE oce_trc
      USE trc
      IMPLICIT NONE

CDIR$ LIST
CC----------------------------------------------------------------------
CC local declarations
CC ==================
      INTEGER kt

#if defined key_passivetrc

      INTEGER jn
      INTEGER ino0,it0,iarak0

C
C
C 1. OUTPUT of restart fields (nutwrs)
C ---------------------------
C
      IF( (mod(kt,nstock).eq.0) .OR. (kt.eq.nitend) ) THEN
C
C 1.0 initializations
C
          IF(lwp) THEN
              WRITE(numout,*) ' '
              WRITE(numout,*)
     $            ' trcwri: restart OUTPUT done in nutwrs = ',nutwrs
     $            ,' at it= ',kt,' date= ',ndastp
              WRITE(numout,*) ' -------'
          ENDIF
C
          ino0 =no
          it0  =kt

#if defined key_trc_cen2
          iarak0=1
#else
          iarak0=0
#endif
C
C 1.1 WRITE
C
C first record
C
          IF(lwp) WRITE (nutwrs,REC=1) ino0,it0,iarak0
C
C prognostic variables
C

          DO jn=1,jptra
            CALL write3(nutwrs,trn(1,1,1,jn), jn + 1 )
          END DO

          DO jn=1,jptra
            CALL write3(nutwrs,trb(1,1,1,jn), jptra + jn + 1 )
          END DO
      ENDIF
C