[Nek5000-users] gradm1 vs opdiv for computing velocity divergence

nek5000-users at lists.mcs.anl.gov nek5000-users at lists.mcs.anl.gov
Thu Jul 9 13:53:38 CDT 2015


Dear all,

I am new to Nek5000 and am trying to output the velocity divergence of my 2D, unsteady N-S solution for a flat plate with elliptic leading edge using PN-PN-2 formulation.

I compute divergence using gradm1() and opdiv() and the values I get from the  two don't seem to match the DIVERGENCE  and HELMHOLTZ (p021 and p022) residuals in the .rea file (which are 1e-9 and 1e-11).  I get div ~ 1 using gradm1() and div~1e-2 using opdiv() and the divergence is close to the elliptic leading edge. Am I missing something(scaling factor maybe?) in the computation of divergence here?

      subroutine userchk
      include 'SIZE'
      include 'TOTAL'

      common /scren/   vort (lx1,ly1,lz1,lelv,3) ! x y z components
     $               , work1(lx1,ly1,lz1,lelv)
     $               , work2(lx1,ly1,lz1,lelv)
     $               , dudx(lx1,ly1,lz1,lelv)
     $               , dvdy(lx1,ly1,lz1,lelv)
     $               , div1(lx1,ly1,lz1,lelv)
     $               , div2(lx2,ly2,lz2,lelv)
     $               , div3(lx1,ly1,lz1,lelv)

      n = nx1*ny1*nz1*nelt
      ntot2 = nx2*ny2*nz2*nelt

c    Compute divergence using gradm1()
      call gradm1(dudx,work1,work2,vx)
      call gradm1(work1,dvdy,work2,vy)
      div1 = dudx + dvdy


c    Compute divergence using opdiv()
      call opdiv(div2,vx,vy,vz)
c    opdiv returns bm2*div
      call col2(div2,bm2inv,ntot2)

      call mappr(div3,div2,work1,work2)
      if(nid .eq.0)write(6,*)'Done mapping div2 to xm1'

      call outpost(div1,div3,vx,pr,vort(:,:,:,:,1),
     & 'divvort')

      return
      end

This is from the output file showing the DNORM, DIVEX

Step      2, t= 4.0340639E+00, DT= 1.0892282E-04, C=  0.500 2.1168E+01 2.1168E+01
 Solving for fluid F T T
  9.999999999999999E-012  p22            2           1
          2    Hmholtz VELX:     42   6.4400E-12   8.2479E-02   1.0000E-11
  9.999999999999999E-012  p22            2           1
          2    Hmholtz VELY:     40   6.3878E-12   9.2957E-02   1.0000E-11
         2 U-PRES gmres:    120  6.0275E-08  1.0000E-09  6.4717E-04  5.7658E+00  1.6938E+01
           2  DNORM, DIVEX  6.027476742433520E-008  6.027476742402435E-008
          2   4.0341E+00  2.0912E+01 Fluid done

Thanks
Prahladh Iyer
Postdoctoral Researcher
National Institute of Aerospace, Hampton, Virginia
Resident: NASA Langley Research Center
Email : prahladh.s.iyer at nasa.gov
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/nek5000-users/attachments/20150709/cbd0d0d3/attachment.html>


More information about the Nek5000-users mailing list