tempur.F File Reference

#include "implicit_f.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	tempur (temp, mcp, fthe, nodft, nodlt, weight, mcp_off, heat_stored)

Function/Subroutine Documentation

tempur()

subroutine tempur	(		temp,
			mcp,
			fthe,
		integer	nodft,
		integer	nodlt,
		integer, dimension(*)	weight,
			mcp_off,
			heat_stored )

Definition at line 28 of file tempur.F.

C----6---------------------------------------------------------------7---------8
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER :: NODFT,NODLT, WEIGHT(*)
      my_real :: heat_stored
      my_real :: temp(*) ,fthe(*) ,mcp(*),mcp_off(*) 
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  N
      my_real :: heat_stored_local
C-----------------------------------------------
        heat_stored_local = 0
 
#include      "vectorize.inc"           
        DO n=nodft,nodlt
          mcp(n) = mcp(n) * mcp_off(n)
          IF (mcp(n) > zero ) THEN
            temp(n) =  temp(n)  + fthe(n) / mcp(n)
            IF (weight(n) == 1) heat_stored_local = heat_stored_local + fthe(n)
          ENDIF  
          fthe(n) = zero
        ENDDO
 
!$OMP CRITICAL (TMP)
        heat_stored = heat_stored + heat_stored_local
!$OMP END CRITICAL (TMP)
 
C
      RETURN