<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style id="owaParaStyle" type="text/css">P {margin-top:0;margin-bottom:0;}</style>
</head>
<body ocsi="0" fpstyle="1">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 12pt;">Hi Mirko,<br>
<br>
I once did a similar operation but for duplicating a z-profile (resulted from the planar_average_z() routine) with the following code.<br>
<br>
Aleks<br>
<br>
c-----------------------------------------------------------------------<br>
subroutine fill3d_1d_t(u,ua)<br>
c<br>
c Fill 3d array with 1d t-values by replicating them in r-s planes<br>
c<br>
include 'SIZE'<br>
include 'PARALLEL'<br>
include 'ZPER' ! define nelx,y,z here!<br>
c<br>
real u(nx1,ny1,nx1,nelv),ua(nz1,nelz)<br>
integer e,eg,ex,ey,ez<br>
c<br>
do e=1,nelt<br>
c<br>
eg = lglel(e)<br>
call get_exyz(ex,ey,ez,eg,nelx,nely,nelz)<br>
c<br>
do k=1,nz1<br>
do j=1,ny1,node<br>
do i=1,nx1<br>
u(i,j,k,e) = ua(k,ez)<br>
enddo<br>
enddo<br>
enddo<br>
enddo<br>
c<br>
return<br>
end<br>
c-----------------------------------------------------------------------<br>
<br>
<br>
<br>
<br>
<div style="font-family: Times New Roman; color: #000000; font-size: 16px">
<hr tabindex="-1">
<div style="direction: ltr;" id="divRpF792527"><font face="Tahoma" size="2" color="#000000"><b>From:</b> nek5000-users-bounces@lists.mcs.anl.gov [nek5000-users-bounces@lists.mcs.anl.gov] on behalf of nek5000-users@lists.mcs.anl.gov [nek5000-users@lists.mcs.anl.gov]<br>
<b>Sent:</b> Monday, April 27, 2015 5:52 AM<br>
<b>To:</b> nek5000-users@lists.mcs.anl.gov<br>
<b>Subject:</b> [Nek5000-users] distribute a 1d profile to 3d domain<br>
</font><br>
</div>
<div></div>
<div>
<div>Dear nek' users<br>
<br>
I've a 1d profile u(y) computed with "planar_average_s" subroutine. So now i want to redistribute this profile to the whole domain in order to obtain a 3d field u(x,y,z) How can i do this?<br>
<br>
Thanks<br>
<br>
-- <br>
<font size="2"><span style="font-family:arial,sans-serif"><br>
</span></font>
<div class="gmail_signature" style="text-align:left">
<div dir="ltr"><font size="2"><span style="font-family:arial,sans-serif">Mr. Mirko Farano<br>
<br>
Ph.D. student at Politecnico di Bari<br>
</span></font><font size="2"><span style="font-family:arial,sans-serif">Tel.: +39-0883529289 / +39-0805963462<br>
</span></font><font size="2"><span style="font-family:arial,sans-serif">Mob.: +39-3202342719<font><span style="line-height:16px"><br>
Department of Mechanics Mathematics and Management</span> -</font> <br>
Fluid Machinery and Energy Systems<br>
Via Re David, 200 - 70125 BARI (Italy)<br>
</span></font><font size="2"><span style="font-family:arial,sans-serif"><font size="2"><span style="font-family:arial,sans-serif"><a href="mailto:mirko.farano@poliba.it" target="_blank"><font color="#05447e">mirko.farano@poliba.it</font></a></span></font><br>
<br>
In joint supervision with the<br>
Ecole Nationale Supérieure d'Arts et Métiers de Paris - Paristech<br>
Tel.: +33-144246436<br>
Mob.: +33-789822134<br>
Dynfluid Laboratory<br>
<span class="_Xbe">151 Boulevard de l'Hôpital - 75013 Paris (Franc</span>e)<br>
<a href="mailto:mirko.farano@ensam.eu" target="_blank"><font color="#05447e"><font face="Arial,Helvetica">mirko.farano@ensam.eu</font></font></a><br>
</span></font></div>
</div>
</div>
<br>
</div>
</div>
</div>
</body>
</html>