[Nek5000-users] T and P derivatives

nek5000-users at lists.mcs.anl.gov nek5000-users at lists.mcs.anl.gov
Fri Nov 26 08:40:19 CST 2010


Hi Francesco,

Don't waste too much time looking - we're happy to answer!

As Stefan commented, we don't store the gradients, we just
compute them.  Typical usage would be


       subroutine userchk
       include 'SIZE'
       include 'TOTAL'
       common /mystuff/ uij(lx1*ly1*lz1*lelt,ldim,ldim)
      $               , px(lx1*ly1,lz1*lelt)
      $               , py(lx1*ly1,lz1*lelt)
      $               , pz(lx1*ly1,lz1*lelt)

       call gradm1(uij(1,1,1),uij(1,1,2),uij(1,1,3),vx)
       call gradm1(uij(1,2,1),uij(1,2,2),uij(1,2,3),vy)
       call gradm1(uij(1,3,1),uij(1,3,2),uij(1,3,3),vz)

       if (lx2.ne.lx1) then ! use something different for mesh 2
          call mappr (pm1,pr,px,py) ! interpolate P(m2) --> P(m1)
          call gradm1(px,py,pz,pr)
       else
          call gradm1(px,py,pz,pr)
       endif


--- Paul


On Thu, 25 Nov 2010, nek5000-users at lists.mcs.anl.gov wrote:

> Hi all,
>
> Sorry to bug you but i have already lost enough time looking for the 
> temperature and pressure gradients.
> Does anybody knows where are they stored?
> And the velocity time derivatives ?
>
> thank you all
>
> francesco
>



More information about the Nek5000-users mailing list