sensor_time.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"
#include "comlock.inc"
#include "task_c.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_time (sensor, time, timestep)

Function/Subroutine Documentation

sensor_time()

subroutine sensor_time	(	type (sensor_str_), intent(inout)	sensor,
		intent(in)	time,
		intent(in)	timestep )

Definition at line 32 of file sensor_time.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE sensor_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
#include      "comlock.inc"
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real            ,INTENT(IN)    :: time,timestep
      TYPE (SENSOR_STR_) ,INTENT(INOUT) :: SENSOR
C----------------------------------------------------------
C   Local Variables
C----------------------------------------------------------
      INTEGER :: NSENS
      my_real :: tdelay,tstop
      DOUBLE PRECISION :: TDELAY_DP,TSTOP_DP,NEXT_CYCLE
C=======================================================================
      nsens  = sensor%SENS_ID
      tdelay = sensor%TDELAY
      tstop  = sensor%VALUE
      next_cycle = time + timestep
      tdelay_dp  = tdelay
      tstop_dp   = tstop
c
      IF (next_cycle >= tdelay_dp .AND. sensor%STATUS == 0) THEN
        sensor%STATUS = 1
        sensor%TSTART = tdelay
        IF (ispmd == 0) THEN
#include "lockon.inc"
          WRITE (iout ,1000) sensor%SENS_ID,tdelay
          WRITE (istdo,1000) sensor%SENS_ID,tdelay
#include "lockoff.inc"
        ENDIF
      ELSE IF (next_cycle >= tstop_dp .AND. sensor%STATUS == 1) THEN
        sensor%STATUS = 0
        sensor%TSTART = infinity
        sensor%TDELAY = infinity
        IF (ispmd == 0) THEN
#include "lockon.inc"
          WRITE (iout ,2000) sensor%SENS_ID,tstop
          WRITE (istdo,2000) sensor%SENS_ID,tstop
#include "lockoff.inc"
        ENDIF
      ENDIF
c-----------------------------------------------------------------------      
1000  FORMAT(' SENSOR (TIME) NUMBER ',i10,' ACTIVATED AT TIME ',1pe12.5)
2000  FORMAT(' SENSOR (TIME) NUMBER ',i10,' DESACTIVATED AT TIME ',1pe12.5)
c-----------   
      RETURN