Using cs_user_source_terms
Posted: Wed Oct 10, 2012 8:46 am
Hello,
I'm trying use the subroutine ustssc to impose a volumic source condition.
I want to impose a a volumic power but I don't succed.
My version of CS is 2.2.2.
My code is :
I put the Temperature(Celsius) as a scalar.
Thank you,
Damien H
I'm trying use the subroutine ustssc to impose a volumic source condition.
I want to impose a a volumic power but I don't succed.
My version of CS is 2.2.2.
My code is :
Code: Select all
pwatt = 100000.d0/4185.d0
CALL GETCEL('GrMaillage_rouge_2_3_Volumes',NLELT,LSTELT)
do ilelt = 1, nlelt
iel = lstelt(ilelt)
volf = volf + volume(iel)
enddo
do ilelt = 1, nlelt
iel = lstelt(ilelt)
! No implicit source term
crvimp(iel) = 0.d0
! Explicit source term
crvexp(iel) = volume(iel)*pwatt/volf
enddo
Thank you,
Damien H