pkg/ptracers/ptracers_switch_onoff.F

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_output.F,v 1.3 2007/11/05 18:48:04 jmc Exp $
C $Name:  $

#include "PTRACERS_OPTIONS.h"

CBOP
C     !ROUTINE: PTRACERS_SWITCH_ONOFF

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

C     !DESCRIPTION:
C     Decide to switch on/off individual tracer time-stepping

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "PARAMS.h"
#include "PTRACERS_SIZE.h"
#include "PTRACERS_PARAMS.h"
#include "PTRACERS_START.h"

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

#ifdef ALLOW_PTRACERS
C     !LOCAL VARIABLES:
      INTEGER iTracer

      IF ( .NOT.PTRACERS_startAllTrc ) THEN

#ifdef ALLOW_AUTODIFF_TAMC
         STOP 'ABNORMAL END: S/R PTRACERS_SWITCH_ONOFF'
#else /* ALLOW_AUTODIFF_TAMC */

        _BARRIER
        _BEGIN_MASTER(myThid)

        DO iTracer=1,PTRACERS_numInUse
          IF ( myTime.GE.PTRACERS_startStepFwd(iTracer) ) THEN
            PTRACERS_StepFwd(iTracer) = .TRUE.
          ELSE
            PTRACERS_StepFwd(iTracer) = .FALSE.
          ENDIF
        ENDDO

        _END_MASTER(myThid)
        _BARRIER

#endif /* ALLOW_AUTODIFF_TAMC */

      ENDIF

#endif /* ALLOW_PTRACERS */

      RETURN
      END
1	jmc	1.1	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_output.F,v 1.3 2007/11/05 18:48:04 jmc Exp $
2			C $Name: $
3
4			#include "PTRACERS_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: PTRACERS_SWITCH_ONOFF
8
9			C !INTERFACE:
10			SUBROUTINE PTRACERS_SWITCH_ONOFF(
11			I myTime, myIter, myThid )
12
13			C !DESCRIPTION:
14			C Decide to switch on/off individual tracer time-stepping
15
16			C !USES:
17			IMPLICIT NONE
18			#include "SIZE.h"
19			#include "EEPARAMS.h"
20			c#include "PARAMS.h"
21			#include "PTRACERS_SIZE.h"
22			#include "PTRACERS_PARAMS.h"
23			#include "PTRACERS_START.h"
24
25			C !INPUT PARAMETERS:
26			C myTime :: model time
27			C myIter :: time-step number
28			C myThid :: thread number
29			_RL myTime
30			INTEGER myIter
31			INTEGER myThid
32			CEOP
33
34			#ifdef ALLOW_PTRACERS
35			C !LOCAL VARIABLES:
36			INTEGER iTracer
37
38			IF ( .NOT.PTRACERS_startAllTrc ) THEN
39
40			#ifdef ALLOW_AUTODIFF_TAMC
41			STOP 'ABNORMAL END: S/R PTRACERS_SWITCH_ONOFF'
42			#else /* ALLOW_AUTODIFF_TAMC */
43
44			_BARRIER
45			_BEGIN_MASTER(myThid)
46
47			DO iTracer=1,PTRACERS_numInUse
48			IF ( myTime.GE.PTRACERS_startStepFwd(iTracer) ) THEN
49			PTRACERS_StepFwd(iTracer) = .TRUE.
50			ELSE
51			PTRACERS_StepFwd(iTracer) = .FALSE.
52			ENDIF
53			ENDDO
54
55			_END_MASTER(myThid)
56			_BARRIER
57
58			#endif /* ALLOW_AUTODIFF_TAMC */
59
60			ENDIF
61
62			#endif /* ALLOW_PTRACERS */
63
64			RETURN
65			END