[Nek5000-users] Pauls v2 Integration routine...
nek5000-users at lists.mcs.anl.gov
nek5000-users at lists.mcs.anl.gov
Thu Oct 27 17:49:52 CDT 2016
Yes, Murph.
Aleks
________________________________
From: nek5000-users-bounces at lists.mcs.anl.gov [nek5000-users-bounces at lists.mcs.anl.gov] on behalf of nek5000-users at lists.mcs.anl.gov [nek5000-users at lists.mcs.anl.gov]
Sent: Thursday, October 27, 2016 1:02 PM
To: nek5000-users at lists.mcs.anl.gov
Subject: [Nek5000-users] Pauls v2 Integration routine...
Paul,
Hi... I'd like to use this also; however, was your intent for the argument of the facint_v() sub to be v2, and not v? Also, would you want to pass v2surf back in /mystuff/?
if (cbc(f,e,1).eq.'v ') v2surf=v2surf+facint_v(v,area,f,e)
Thanks,
Murph
-----------------------------------------------------------------------------------------------------------
common /mystuff/ v2(lx1*ly1*lz1*lelt)
integer e,f
n = nx1*ny1*nz1*nelt
do i=1,n
v2(i)=vx(i,1,1,1)**2+vy(i,1,1,1)**2+vz(i,1,1,1)**2
enddo
v2surf = 0
do e=1,nelv ! Integrate over all surfaces with cbc='v '
do f=1,2*ndim
if (cbc(f,e,1).eq.'v ') v2surf=v2surf+facint_v(v,area,f,e)
enddo
enddo
v2surf = glsum(v2surf,1) ! Sum across all processors
Note that "area" is passed in the TOTAL common block, which I assume
you are including in the routine.
On 10/26/2016 1:00 PM, nek5000-users-request at lists.mcs.anl.gov<mailto:nek5000-users-request at lists.mcs.anl.gov> wrote:
Send Nek5000-users mailing list submissions to
nek5000-users at lists.mcs.anl.gov<mailto:nek5000-users at lists.mcs.anl.gov>
To subscribe or unsubscribe via the World Wide Web, visit
https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users
or, via email, send a message with subject or body 'help' to
nek5000-users-request at lists.mcs.anl.gov<mailto:nek5000-users-request at lists.mcs.anl.gov>
You can reach the person managing the list at
nek5000-users-owner at lists.mcs.anl.gov<mailto:nek5000-users-owner at lists.mcs.anl.gov>
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Nek5000-users digest..."
Today's Topics:
1. Order of appearance : USERBC and USERCHECK
(nek5000-users at lists.mcs.anl.gov<mailto:nek5000-users at lists.mcs.anl.gov>)
2. Re: Integrate velocity field along a line
(nek5000-users at lists.mcs.anl.gov<mailto:nek5000-users at lists.mcs.anl.gov>)
_______________________________________________
Nek5000-users mailing list
Nek5000-users at lists.mcs.anl.gov<mailto:Nek5000-users at lists.mcs.anl.gov>
https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/nek5000-users/attachments/20161027/924b60ca/attachment-0001.html>
More information about the Nek5000-users
mailing list