CFD Online Discussion Forums

CFD Online Discussion Forums (http://www.cfd-online.com/Forums/)
-   Phoenics (http://www.cfd-online.com/Forums/phoenics/)
-   -   GROUND LITTLE HELP (http://www.cfd-online.com/Forums/phoenics/51728-ground-little-help.html)

STK February 7, 2004 13:00

GROUND LITTLE HELP
 
I DEFINED BY STORE A VARIABLE CALLED 'MASS' IN Q1. FOLLOWING A TUTORIAL I CONSTRUCTED THIS CODE(SEE BELOW) IN GROUND WHERE I WANT THE VALUES OF MASS TO BE THE PRODUCT:P1*U1 OF THE FINAL SOLUTION AND I WANT TO SEE THESE VALUES IN ALL SLABS VIA RESULT.

WHERE IS THE ERROR???? I ALWAYS TAKING MASS=1E-10 FOR ALL SLABS.

C * ------------------- SECTION 6 ---- Finish of iz slab.

IF(ISWEEP.EQ.LSWEEP) THEN

L0U1 = L0F(U1)

L0P1 = L0F(P1)

L0C1 =L0F(LBNAME('MASS'))

DO IX=1, NX

DO IY=1, NY

I=IY+NY*(IX-1)

F(L0C1+I)=F(L0U1+I)*F(L0P1+I)

END DO

END DO

END IF

RETURN

THANKS BEST REGARDS


All times are GMT -4. The time now is 17:46.