pkg/ptracers/ptracers_switch_onoff.F

a16087efda Jean*0001 #include "PTRACERS_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: PTRACERS_SWITCH_ONOFF
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE PTRACERS_SWITCH_ONOFF(
                0008      I                    myTime, myIter, myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Decide to switch on/off individual tracer time-stepping
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 c#include "PARAMS.h"
                0018 #include "PTRACERS_SIZE.h"
                0019 #include "PTRACERS_PARAMS.h"
                0020 #include "PTRACERS_START.h"
                0021
                0022 C     !INPUT PARAMETERS:
                0023 C     myTime    :: model time
                0024 C     myIter    :: time-step number
                0025 C     myThid    :: thread number
                0026       _RL myTime
                0027       INTEGER myIter
                0028       INTEGER myThid
                0029 CEOP
                0030
                0031 #ifdef ALLOW_PTRACERS
                0032 C     !LOCAL VARIABLES:
9f5240b52a Jean*0033 #ifndef ALLOW_AUTODIFF
a16087efda Jean*0034       INTEGER iTracer
9f5240b52a Jean*0035 #endif
a16087efda Jean*0036
                0037       IF ( .NOT.PTRACERS_startAllTrc ) THEN
                0038
c6839165c8 Jean*0039 #ifdef ALLOW_AUTODIFF
a16087efda Jean*0040          STOP 'ABNORMAL END: S/R PTRACERS_SWITCH_ONOFF'
c6839165c8 Jean*0041 #else /* ALLOW_AUTODIFF */
a16087efda Jean*0042
                0043         _BARRIER
                0044         _BEGIN_MASTER(myThid)
                0045
                0046         DO iTracer=1,PTRACERS_numInUse
                0047           IF ( myTime.GE.PTRACERS_startStepFwd(iTracer) ) THEN
                0048             PTRACERS_StepFwd(iTracer) = .TRUE.
                0049           ELSE
                0050             PTRACERS_StepFwd(iTracer) = .FALSE.
                0051           ENDIF
                0052         ENDDO
                0053
                0054         _END_MASTER(myThid)
                0055         _BARRIER
                0056
c6839165c8 Jean*0057 #endif /* ALLOW_AUTODIFF */
a16087efda Jean*0058
                0059       ENDIF
                0060
                0061 #endif /* ALLOW_PTRACERS */
                0062
                0063       RETURN
                0064       END