Hello,
I would like to save in a file Grad U.
In order to do that, I use usproj.F like this
CALL GRDCEL
C ===========
& ( IDEBIA , IDEBRA ,
& NDIM , NCELET , NCEL , NFAC , NFABOR , NFML , NPRFML ,
& NNOD , LNDFAC , LNDFBR , NCELBR , NPHAS ,
& NIDEVE , NRDEVE , NITUSE , NRTUSE ,
& IUIPH , IMRGRA , INC , ICCOCG , IPHYDP ,
& NSWRGR(IUIPH) , IMLIGR(IUIPH) ,
& IWARNI(IUIPH) , NFECRA ,
& EPSRGR(IUIPH) , CLIMGR(IUIPH) , EXTRAG(IUIPH) ,
& IFACEL , IFABOR , IFMFBR , IFMCEL , IPRFML ,
& IPNFAC , NODFAC , IPNFBR , NODFBR ,
& IDEVEL , ITUSER , IA ,
& XYZCEN , SURFAC , SURFBO , CDGFAC , CDGFBO , XYZNOD , VOLUME ,
& W5 , W6 , W6 ,
& RTPA(1,IUIPH) , COEFA(1,IPCLIU) , COEFB(1,IPCLIU) ,
& W1 , W2 , W3 ,
C ------ ------ ------
& W6 , W7 , W8 ,
& RDEVEL , RTUSER , RA )
C
C=======================================================================
C 1.4 CALCUL DE LA VISCOSITE DYNAMIQUE
C=======================================================================
C
NAMEVR= 'gradientx'
C DO IEL = 1, NCEL
C
C --- Calculs divers
C DUDX = W1(IEL)
C DUDY = W2(IEL)
C DUDZ = W3(IEL)
C
call psteva(-1, NAMEVR, 1, 0, 0,
& ntcabs, ttcabs, W1, RBID, RBID)
My problem is that I never find gradientx in my result directory.
I certainly made a mystake or I don't understand something, so if you can help please, it would be nice.
Regards.
Problem to save gradu.
Forum rules
Please read the forum usage recommendations before posting.
Please read the forum usage recommendations before posting.