calchcfa.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	calchcfa (nface, vfa, cocon, ncocon, ielmat, ntmat_, mi, ielfa, hcfa)

Function/Subroutine Documentation

calchcfa()

subroutine calchcfa	(	integer	nface,
		real*8, dimension(0:7,*)	vfa,
		real*8, dimension(0:6,ntmat_,*)	cocon,
		integer, dimension(2,*)	ncocon,
		integer, dimension(mi(3),*)	ielmat,
		integer	ntmat_,
		integer, dimension(*)	mi,
		integer, dimension(4,*)	ielfa,
		real*8, dimension(*)	hcfa
	)

!
!     calculation of the thermal conductivity at the face centers
!
      implicit none
!
      integer nface,i,ncocon(2,*),imat,ntmat_,mi(*),
     &  ielmat(mi(3),*),ielfa(4,*)
!
      real*8 t1l,vfa(0:7,*),cond,cocon(0:6,ntmat_,*),hcfa(*)
!     
c$omp parallel default(none)
c$omp& shared(nface,vfa,ielmat,ielfa,ntmat_,cocon,ncocon,hcfa)
c$omp& private(i,t1l,imat,cond)
c$omp do
      do i=1,nface
         t1l=vfa(0,i)
!
!        take the material of the first adjacent element
!
         imat=ielmat(1,ielfa(1,i))
         call materialdata_cond(imat,ntmat_,t1l,cocon,ncocon,cond)
         hcfa(i)=cond
      enddo
c$omp end do
c$omp end parallel
!            
      return