Problem to save gradu.

[Philippe Parnaudeau]

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. 
   

[Philippe Parnaudeau]

problem fix.