pkg/ptracers/ptracers_output.F

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_output.F,v 1.1 2004/12/01 22:54:02 mlosch Exp $
C $Name:  $

#include "PTRACERS_OPTIONS.h"

CBOP
C     !ROUTINE: PTRACERS_OUTPUT

C     !INTERFACE:
      SUBROUTINE PTRACERS_OUTPUT( 
     I     myTime, myIter, myThid )

C     !DESCRIPTION:
C     This is the controlling routine for PTRACERS output. It is
C     called from DO_THE_MODEL_IO.

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "PTRACERS_SIZE.h"
#include "PTRACERS.h"

C     !INPUT PARAMETERS:
C     myIter    :: time-step number
C     myTime    :: model time
C     myThid    :: thread number
      INTEGER myIter
      INTEGER myThid
      _RL myTime
CEOP

#ifdef ALLOW_PTRACERS
C     !LOCAL VARIABLES:

C     Write snapshot output
      CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid )
#ifdef ALLOW_TIMEAVE
C     Write time average output
      IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
       CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
      ENDIF
#endif /* ALLOW_TIMEAVE */
#ifdef ALLOW_MONITOR
C     Compute and print monitor statistics
      CALL PTRACERS_MONITOR( myIter, myTime, myThid )
#endif /* ALLOW_MONITOR */
#endif /* ALLOW_PTRACERS */

      RETURN
      END
1	mlosch	1.2	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_output.F,v 1.1 2004/12/01 22:54:02 mlosch Exp $
2	mlosch	1.1	C $Name: $
3
4			#include "PTRACERS_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: PTRACERS_OUTPUT
8
9			C !INTERFACE:
10			SUBROUTINE PTRACERS_OUTPUT(
11			I myTime, myIter, myThid )
12
13			C !DESCRIPTION:
14			C This is the controlling routine for PTRACERS output. It is
15			C called from DO_THE_MODEL_IO.
16
17			C !USES:
18			IMPLICIT NONE
19			#include "SIZE.h"
20			#include "EEPARAMS.h"
21			#include "PARAMS.h"
22			#include "PTRACERS_SIZE.h"
23			#include "PTRACERS.h"
24
25			C !INPUT PARAMETERS:
26			C myIter :: time-step number
27			C myTime :: model time
28			C myThid :: thread number
29			INTEGER myIter
30			INTEGER myThid
31			_RL myTime
32			CEOP
33
34			#ifdef ALLOW_PTRACERS
35			C !LOCAL VARIABLES:
36
37			C Write snapshot output
38			CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid )
39			#ifdef ALLOW_TIMEAVE
40			C Write time average output
41	mlosch	1.2	IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
42	mlosch	1.1	CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
43			ENDIF
44			#endif /* ALLOW_TIMEAVE */
45			#ifdef ALLOW_MONITOR
46			C Compute and print monitor statistics
47			CALL PTRACERS_MONITOR( myIter, myTime, myThid )
48			#endif /* ALLOW_MONITOR */
49			#endif /* ALLOW_PTRACERS */
50
51			RETURN
52			END