Dear friends , if you have solved simple casting problem then please send me the q1 and ground file . i am solving this problem but i am facing problem in setting of thermal properties in ground.i solved the fin cooling problem without using ground and i want to solve this problem through ground and Mr. Mick Hughes has sent some information but that is not sufficient but thanks a million for his help.

ramesh,nice to meet you,you have meet casting problem, do you say the metallurgical problem, if true, we are facing the same problems.

ramesh,I am facing the same problem too,I am working on metallurgical problems of continuous casting concentrating on temperature field,velocity field,pressure as well as solid fraction of solidification.My Phoenics version is 3.5.1,but I fail to run the library cases:Y302 and Y303,I need ground files too. Garry regards

Garry,can you tell me which university do you study in,and your QQ number?we are studing the same subject,my qq number is 31474170,I hope communication between us for further progress!

Hello Ramesh,

What is your problem? I have worked in this area recently. Are you having problems setting thermal properties? What are you doing? I have successfully set these kind of properties using both ground and in-form. Send me your q1 and/or ground (it is not necessary to send it all, just the code inserted at group 9 - properties).

Regards,

Hello Carlos,you have done a good job,because you can successfully set the thermal properties.I try to modify the Q1 files (Y302),and set the thermal conditions as constant in order to make it run correctly,but it's hard for me. Last month I installed FORTRAN 6.5 in my computer to make some ground cases run,unfortunately,one error in th Q1 file broke my dream, where and why,I don't konow. Carlos,could you please change the Q1 file just to make it run correctly?

Hi WXh,

If you are running an old (shareware) type version of PHOENICS, you will not have inform, however if you do have this facility it should make changing the thermal properties quite easy.

But you asked for ground coding for the Thermal properties.

If I did not say before, try something like below :

Q1 (Specifc Heat):

CP1=GRND

Ground: Grp 9 Sct 14

IF(QEQ(CP1,GRND)) THEN

L0CP =L0F(ISPH1)

L0TEM=L0F(ITEM1) C your formula

ABCP=ACP*BCP

DO 9041 I=1,NXNY C your formula

F(L0CP+I)=0.5*ACP*F(L0TEM+I)-ABCP+CCP 9041 CONTINUE

ENDIF

Q1 (Thermal conductivity)

** Set the thermal conductivity PRNDTL(TEM1)=-GRND

Ground : (Grp 9 sct 7)

IF(INDVAR.EQ.ITEM1) THEN

GPRNTL=-PRNDTL(ITEM1)

IF(GRN(GPRNTL).AND.INDVAR.EQ.ITEM1) THEN

L0TK =L0F(LAMPR)

L0TEM=L0F(ITEM1)

DO 971 I=1,NXNY

IF(F(L0TEM+I).LT.1701.) THEN C your formula

F(L0TK+I)=7.16E-3*(F(L0TEM+I)-273.15)+20.9

ELSE C else constant

F(L0TK+I)=31.1

ENDIF 971 CONTINUE

IF(LBCOND.NE.0) CALL FN0(LBCOND,LAMPR)

ENDIF

ENDIF

Wxh, In case you keep having problem after Mick advise, please send your q1 to my e-mail and I will do my best. Regards,

Bank Darlehn Info Banken Geld Berechnen Schweizerkredit Konto Privatdarlehen Schufafreie Kredite in bar Kreditvermittlung

I have a question too: if casting are the same , or simmilary with powder metals sintering. Please, help me!