sensor_energy_total.F File Reference

#include "implicit_f.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_energy_total (sensors, enint, encin)

Function/Subroutine Documentation

sensor_energy_total()

subroutine sensor_energy_total	(	type (sensors_), intent(inout)	sensors,
		intent(in)	enint,
		intent(in)	encin )

Definition at line 30 of file sensor_energy_total.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      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real ,INTENT(IN) :: enint
      my_real ,INTENT(IN) :: encin
      TYPE (SENSORS_) ,INTENT(INOUT) :: SENSORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER TYP,ISENS,ISELECT
C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C     this routine saves the total internal and kinematic system energy for 
C     /SENSOR/ENERGY
C=======================================================================
      IF (ispmd==0) THEN
        DO isens = 1,sensors%NSENSOR
          typ = sensors%SENSOR_TAB(isens)%TYPE
          IF (typ == 14) THEN
            iselect = sensors%SENSOR_TAB(isens)%IPARAM(4)
            IF (iselect == 2) THEN  ! total system energy option is activated
              sensors%SENSOR_TAB(isens)%VAR(9)  = enint
              sensors%SENSOR_TAB(isens)%VAR(10) = encin
            ENDIF
          ENDIF
        END DO  ! ISENS
      ENDIF
c-----------
      RETURN