Commit 17eb21cf by April Novak

### added surface area calculation to nek_expansion. Refs #8

parent 5bb28980
 ... ... @@ -20,11 +20,13 @@ c----------------------------------------------------------------------- return end c----------------------------------------------------------------------- ! Sets the force term in the momentum equation. Use this to set body ! forces such as gravity. Note that ffx, ffy, and ffz will later be ! multiplied by the density. subroutine userf (ix,iy,iz,eg) include 'SIZE' include 'TOTAL' include 'NEKUSE' integer e,f,eg ffx=0.0 ffy=0.0 ffz=0.0 ... ... @@ -311,32 +313,35 @@ C======================================================================= integer e,f real*8 fmode(lx1,ly1,lz1,lelt), cache(lx1,ly1,lz1,lelt) real*8 sint, sint1 real*8 sint, sint1, sarea, sarea1 real*8 pi pi=4.0*atan(1.0) ntot=nx1*ny1*nz1*nelt zmin=glmin(zm1,ntot) zmax=glmax(zm1,ntot) call rzero(fmode,ntot) do i0=1,n_legendre do j0=1,m_fourier call nek_mode(fmode,i0,j0) sint1=0.0 sarea1=0.0 sint1= 0.0 do e=1,nelt do f=1,6 sint=0.0 sarea=0.0 if (cbc(f,e,1).eq.'W ') then call col3(cache,fmode,t,ntot) call surface_int(sint,sarea,cache,e,f) sint1=sint1+sint sarea1=sarea1+sarea endif enddo enddo call gop(sint1,wtmp,'+ ',1) call gop(sarea1,wtmp,'+ ',1) ! coeff_tij(i0,j0)=sint1*4.0*pi/sarea1 ! coeff_tij(i0,j0)=sint1*2.0/(0.5*(zmax-zmin)) ! Note that R=0.5 here!!!! enddo enddo ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment