/trunk/DOC/html/init__cond__old_8cc-source.html
HTML | 1922 lines | 1921 code | 0 blank | 1 comment | 0 complexity | 4ce6e9972fe2f6d40070fc5babf7e489 MD5 | raw file
Possible License(s): GPL-3.0
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
- <html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
- <title>TARANG-MPI: init_cond_old.cc Source File</title>
- <link href="doxygen.css" rel="stylesheet" type="text/css">
- <link href="tabs.css" rel="stylesheet" type="text/css">
- </head><body>
- <!-- Generated by Doxygen 1.5.6 -->
- <div class="navigation" id="top">
- <div class="tabs">
- <ul>
- <li><a href="index.html"><span>Main Page</span></a></li>
- <li><a href="pages.html"><span>Related Pages</span></a></li>
- <li><a href="annotated.html"><span>Data Structures</span></a></li>
- <li class="current"><a href="files.html"><span>Files</span></a></li>
- </ul>
- </div>
- <h1>init_cond_old.cc</h1><a href="init__cond__old_8cc.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001
- <a name="l00002"></a>00002
- <a name="l00003"></a>00003 <span class="comment">// SPECTRAL Version 1.0</span>
- <a name="l00004"></a>00004 <span class="comment">// Date: 16 Sept. 2007</span>
- <a name="l00005"></a>00005 <span class="comment">// Author: M. K. Verma</span>
- <a name="l00006"></a>00006 <span class="comment">// Filename: init_cond.cc</span>
- <a name="l00007"></a>00007
- <a name="l00008"></a>00008
- <a name="l00009"></a>00009 <span class="comment">/*====================================================================================</span>
- <a name="l00010"></a>00010 <span class="comment"></span>
- <a name="l00011"></a>00011 <span class="comment"> Sets up initial conditions of the Vector and Scalar field</span>
- <a name="l00012"></a>00012 <span class="comment"></span>
- <a name="l00013"></a>00013 <span class="comment">======================================================================================*/</span>
- <a name="l00014"></a>00014
- <a name="l00015"></a>00015 <span class="preprocessor">#include "../IncFluid.h"</span>
- <a name="l00016"></a>00016
- <a name="l00017"></a>00017 <span class="keyword">extern</span> Uniform<DP> <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>;
- <a name="l00018"></a>00018
- <a name="l00019"></a><a class="code" href="init__cond__old_8cc.html#b63ee86ed8efc2de66921c1ae96c7696">00019</a> <span class="keyword">const</span> <span class="keywordtype">int</span> <a class="code" href="init__cond__main_8cc.html#b63ee86ed8efc2de66921c1ae96c7696">IC_MAX_NO_WAVENO</a> = 40;
- <a name="l00020"></a>00020
- <a name="l00021"></a>00021 <span class="keyword">extern</span> <span class="keywordtype">int</span> <a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a>; <span class="comment">// My process id</span>
- <a name="l00022"></a>00022 <span class="keyword">extern</span> <span class="keywordtype">int</span> <a class="code" href="basis__basicfn_8cc.html#31bfe068640b411bea3df0d69177ded5">numprocs</a>; <span class="comment">// No of processors</span>
- <a name="l00023"></a>00023 <span class="keyword">extern</span> <span class="keyword">const</span> <span class="keywordtype">int</span> <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>; <span class="comment">// Id of master proc</span>
- <a name="l00024"></a>00024 <span class="keyword">extern</span> ptrdiff_t <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>, <a class="code" href="basis__basicfn_8cc.html#5c5df0dd795318288fed5e089341a3fc">local_N1_start</a>; <span class="comment">// N1 size and start of l1 in the currentproc</span>
- <a name="l00025"></a>00025
- <a name="l00026"></a>00026
- <a name="l00027"></a>00027
- <a name="l00028"></a>00028 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">IncFluid::Input_prefix</a>(ifstream& field_in_file)
- <a name="l00029"></a>00029 {
- <a name="l00030"></a>00030 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00031"></a>00031 {
- <a name="l00032"></a>00032 <span class="keywordflow">if</span> (! field_in_file.is_open())
- <a name="l00033"></a>00033 {
- <a name="l00034"></a>00034 cout << <span class="stringliteral">"Unable to open field_in_file: Exiting Program: Exiting Program "</span> << endl;
- <a name="l00035"></a>00035 exit(1);
- <a name="l00036"></a>00036 }
- <a name="l00037"></a>00037 <span class="keywordflow">else</span>
- <a name="l00038"></a>00038 cout << <span class="stringliteral">"Reading field configurations from field_in_file "</span> << endl ;
- <a name="l00039"></a>00039 }
- <a name="l00040"></a>00040 }
- <a name="l00041"></a>00041
- <a name="l00042"></a>00042
- <a name="l00043"></a>00043 <span class="comment">//</span>
- <a name="l00044"></a>00044 <span class="comment">//</span>
- <a name="l00045"></a><a class="code" href="classIncFluid.html#be3930f267a9faf356e1d737c66bf093">00045</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#be3930f267a9faf356e1d737c66bf093">IncFluid::Read_init_cond</a>(<span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00046"></a>00046 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00047"></a>00047 {
- <a name="l00048"></a>00048 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00049"></a>00049
- <a name="l00050"></a>00050 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00051"></a>00051
- <a name="l00052"></a>00052 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00053"></a>00053
- <a name="l00054"></a>00054 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00055"></a>00055
- <a name="l00056"></a>00056 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, vorticity, Theta</span>
- <a name="l00057"></a>00057
- <a name="l00058"></a>00058 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy spectrum</span>
- <a name="l00059"></a>00059
- <a name="l00060"></a>00060 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00061"></a>00061
- <a name="l00062"></a>00062 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(init_cond_para); <span class="keywordflow">break</span>;
- <a name="l00063"></a>00063
- <a name="l00064"></a>00064 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(init_cond_para); <span class="keywordflow">break</span>;
- <a name="l00065"></a>00065
- <a name="l00066"></a>00066 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00067"></a>00067
- <a name="l00068"></a>00068 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(N_in_reduced, no_Nreduced_procs, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00069"></a>00069 <span class="comment">// read from field_in_file with Nreduced D: Not working very well for Nreduced.</span>
- <a name="l00070"></a>00070 }
- <a name="l00071"></a>00071 }
- <a name="l00072"></a>00072
- <a name="l00073"></a>00073 <span class="comment">//</span>
- <a name="l00074"></a>00074 <span class="comment">//</span>
- <a name="l00075"></a>00075
- <a name="l00076"></a><a class="code" href="classIncFluid.html#574d7bfbeff3e9057f07e4d48b795e56">00076</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#be3930f267a9faf356e1d737c66bf093">IncFluid::Read_init_cond</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00077"></a>00077 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00078"></a>00078 {
- <a name="l00079"></a>00079 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00080"></a>00080
- <a name="l00081"></a>00081 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00082"></a>00082
- <a name="l00083"></a>00083 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00084"></a>00084 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00085"></a>00085
- <a name="l00086"></a>00086 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00087"></a>00087
- <a name="l00088"></a>00088 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, vorticity, Theta</span>
- <a name="l00089"></a>00089
- <a name="l00090"></a>00090 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy spectrum</span>
- <a name="l00091"></a>00091
- <a name="l00092"></a>00092 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00093"></a>00093
- <a name="l00094"></a>00094 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize only V field</span>
- <a name="l00095"></a>00095
- <a name="l00096"></a>00096 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize only V field</span>
- <a name="l00097"></a>00097
- <a name="l00098"></a>00098 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00099"></a>00099
- <a name="l00100"></a>00100 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(T, N_in_reduced, no_Nreduced_procs, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00101"></a>00101 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00102"></a>00102 }
- <a name="l00103"></a>00103
- <a name="l00104"></a>00104 }
- <a name="l00105"></a>00105
- <a name="l00106"></a>00106 <span class="comment">//</span>
- <a name="l00107"></a>00107 <span class="comment">//</span>
- <a name="l00108"></a>00108
- <a name="l00109"></a><a class="code" href="classIncFluid.html#06bbc8a83da16ce339f8fb8e0e32dbf1">00109</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#be3930f267a9faf356e1d737c66bf093">IncFluid::Read_init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00110"></a>00110 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00111"></a>00111 {
- <a name="l00112"></a>00112 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00113"></a>00113
- <a name="l00114"></a>00114 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00115"></a>00115
- <a name="l00116"></a>00116 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00117"></a>00117 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00118"></a>00118
- <a name="l00119"></a>00119 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(W); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00120"></a>00120
- <a name="l00121"></a>00121 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(W); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, vorticity, Theta</span>
- <a name="l00122"></a>00122
- <a name="l00123"></a>00123 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy spectrum</span>
- <a name="l00124"></a>00124
- <a name="l00125"></a>00125 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00126"></a>00126
- <a name="l00127"></a>00127 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V, W field</span>
- <a name="l00128"></a>00128
- <a name="l00129"></a>00129 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V,W field</span>
- <a name="l00130"></a>00130
- <a name="l00131"></a>00131 <span class="keywordflow">case</span> (11) : <a class="code" href="classIncFluid.html#6ad79b117329b4d33d6d0d2a48615b53">Init_cond_DYNAMO_SIX_MODE</a>(W, init_cond_para); <span class="keywordflow">break</span>;
- <a name="l00132"></a>00132
- <a name="l00133"></a>00133 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(W, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00134"></a>00134
- <a name="l00135"></a>00135 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(W, N_in_reduced, no_Nreduced_procs, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00136"></a>00136 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00137"></a>00137 }
- <a name="l00138"></a>00138
- <a name="l00139"></a>00139 }
- <a name="l00140"></a>00140
- <a name="l00141"></a>00141
- <a name="l00142"></a>00142 <span class="comment">//</span>
- <a name="l00143"></a>00143 <span class="comment">//</span>
- <a name="l00144"></a>00144
- <a name="l00145"></a><a class="code" href="classIncFluid.html#eebccc0335fd5ffab6aedfbb1dad5eaa">00145</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#be3930f267a9faf356e1d737c66bf093">IncFluid::Read_init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00146"></a>00146 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00147"></a>00147 {
- <a name="l00148"></a>00148 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00149"></a>00149
- <a name="l00150"></a>00150 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00151"></a>00151
- <a name="l00152"></a>00152 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00153"></a>00153 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00154"></a>00154
- <a name="l00155"></a>00155 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(W, T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00156"></a>00156
- <a name="l00157"></a>00157 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(W, T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, vorticity, Theta</span>
- <a name="l00158"></a>00158
- <a name="l00159"></a>00159 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy spectrum</span>
- <a name="l00160"></a>00160
- <a name="l00161"></a>00161 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00162"></a>00162
- <a name="l00163"></a>00163 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V, W field</span>
- <a name="l00164"></a>00164
- <a name="l00165"></a>00165 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V, W field</span>
- <a name="l00166"></a>00166
- <a name="l00167"></a>00167 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(W, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00168"></a>00168
- <a name="l00169"></a>00169 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(W, T, N_in_reduced, no_Nreduced_procs, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00170"></a>00170 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00171"></a>00171 }
- <a name="l00172"></a>00172
- <a name="l00173"></a>00173 }
- <a name="l00174"></a>00174
- <a name="l00175"></a>00175
- <a name="l00176"></a>00176 <span class="comment">//</span>
- <a name="l00177"></a>00177 <span class="comment">//</span>
- <a name="l00178"></a>00178
- <a name="l00179"></a><a class="code" href="classIncFluid.html#cb5b5dec631611fcecc0d5cdddf5868d">00179</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#cb5b5dec631611fcecc0d5cdddf5868d">IncFluid::Read_init_cond_RB</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00180"></a>00180 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00181"></a>00181 {
- <a name="l00182"></a>00182 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00183"></a>00183
- <a name="l00184"></a>00184 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#55d61b9682d43cb8ce9aafcbb8f9e9db">Init_cond_RB_Lorenz</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// first 3 entries are w101, th101, th200</span>
- <a name="l00185"></a>00185
- <a name="l00186"></a>00186 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Pr_switch, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00187"></a>00187
- <a name="l00188"></a>00188 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Pr_switch, T, N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00189"></a>00189 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00190"></a>00190
- <a name="l00191"></a>00191 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(Pr_switch, T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00192"></a>00192
- <a name="l00193"></a>00193 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(Pr_switch, T); <span class="keywordflow">break</span>; <span class="comment">// Modes - ki, Vx, vorticity, Theta</span>
- <a name="l00194"></a>00194
- <a name="l00195"></a>00195 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(Pr_switch, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy spectrum</span>
- <a name="l00196"></a>00196
- <a name="l00197"></a>00197 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(Pr_switch, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00198"></a>00198
- <a name="l00199"></a>00199 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(Pr_switch, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize only V field</span>
- <a name="l00200"></a>00200
- <a name="l00201"></a>00201 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(Pr_switch, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize only V field</span>
- <a name="l00202"></a>00202
- <a name="l00203"></a>00203 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(Pr_switch, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00204"></a>00204
- <a name="l00205"></a>00205 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(Pr_switch, T, N_in_reduced, no_Nreduced_procs, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00206"></a>00206 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00207"></a>00207 }
- <a name="l00208"></a>00208 }
- <a name="l00209"></a>00209
- <a name="l00210"></a><a class="code" href="classIncFluid.html#c94bd056e9c2b2c1288cdf9dc95ce479">00210</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#cb5b5dec631611fcecc0d5cdddf5868d">IncFluid::Read_init_cond_RB</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>,
- <a name="l00211"></a>00211 <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#adaadc4594bfef43ce60b33481931984">N_in_reduced</a>[], <span class="keywordtype">int</span> no_Nreduced_procs, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00212"></a>00212 {
- <a name="l00213"></a>00213 <span class="keywordflow">switch</span> (field_input_proc) {
- <a name="l00214"></a>00214
- <a name="l00215"></a>00215 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#55d61b9682d43cb8ce9aafcbb8f9e9db">Init_cond_RB_Lorenz</a>(T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// first 3 entries are w101, th101, th200 </span>
- <a name="l00216"></a>00216
- <a name="l00217"></a>00217 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Pr_switch, W, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00218"></a>00218
- <a name="l00219"></a>00219 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Pr_switch, W, T, N_in_reduced, nos_input_field_mode); <span class="keywordflow">break</span>;
- <a name="l00220"></a>00220 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00221"></a>00221
- <a name="l00222"></a>00222 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(Pr_switch, W, T); <span class="keywordflow">break</span>; <span class="comment">// Triad - ki, Vx, (Vy:3D),Theta</span>
- <a name="l00223"></a>00223
- <a name="l00224"></a>00224 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(Pr_switch, W, T); <span class="keywordflow">break</span>; <span class="comment">// Triad - ki, Vx, vorticity, Theta</span>
- <a name="l00225"></a>00225
- <a name="l00226"></a>00226 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(Pr_switch, W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given spectrum</span>
- <a name="l00227"></a>00227
- <a name="l00228"></a>00228 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(Pr_switch, W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// given energy and hel spectrum</span>
- <a name="l00229"></a>00229
- <a name="l00230"></a>00230 <span class="keywordflow">case</span> (7) : <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(Pr_switch, W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V, W field</span>
- <a name="l00231"></a>00231
- <a name="l00232"></a>00232 <span class="keywordflow">case</span> (8) : <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(Pr_switch, W, T, init_cond_para); <span class="keywordflow">break</span>; <span class="comment">// initialize V, W field</span>
- <a name="l00233"></a>00233
- <a name="l00234"></a>00234 <span class="keywordflow">case</span> (101) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(Pr_switch, W, T, nos_input_field_mode); <span class="keywordflow">break</span>; <span class="comment">// read from field_in_file</span>
- <a name="l00235"></a>00235
- <a name="l00236"></a>00236 <span class="keywordflow">case</span> (102) : <a class="code" href="classIncFluid.html#2bdeccfa4f5b792b6a6caac6bbc6a4ed">Init_cond_split_arrays</a>(Pr_switch, W, T, N_in_reduced, no_Nreduced_procs, nos_input_field_mode);
- <a name="l00237"></a>00237 <span class="keywordflow">break</span>;
- <a name="l00238"></a>00238 <span class="comment">// read from field_in_file with Nreduced D</span>
- <a name="l00239"></a>00239 }
- <a name="l00240"></a>00240
- <a name="l00241"></a>00241 }
- <a name="l00242"></a>00242
- <a name="l00243"></a>00243
- <a name="l00244"></a>00244 <span class="comment">/*====================================================================================</span>
- <a name="l00245"></a>00245 <span class="comment"></span>
- <a name="l00246"></a>00246 <span class="comment"> Input from a file: field_in_file </span>
- <a name="l00247"></a>00247 <span class="comment"> Arrays are split </span>
- <a name="l00248"></a>00248 <span class="comment"></span>
- <a name="l00249"></a>00249 <span class="comment">======================================================================================*/</span>
- <a name="l00250"></a>00250
- <a name="l00251"></a><a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">00251</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00252"></a>00252 {
- <a name="l00253"></a>00253 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00254"></a>00254
- <a name="l00255"></a>00255 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>); <span class="comment">// *VF_temp is termporary array useful for input</span>
- <a name="l00256"></a>00256
- <a name="l00257"></a>00257 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00258"></a>00258 cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00259"></a>00259 }
- <a name="l00260"></a>00260
- <a name="l00261"></a>00261
- <a name="l00262"></a><a class="code" href="classIncFluid.html#e4819a6a9bce7830c119ba326d4262b5">00262</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00263"></a>00263 {
- <a name="l00264"></a>00264 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00265"></a>00265
- <a name="l00266"></a>00266 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00267"></a>00267 T.<a class="code" href="classCSF.html#d24b8acaffa60136ec0e3d4376cec1c8" title="Input F from file_in. temp_array is a temporary array.">CS_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00268"></a>00268
- <a name="l00269"></a>00269 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00270"></a>00270 cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00271"></a>00271 }
- <a name="l00272"></a>00272
- <a name="l00273"></a>00273 <span class="comment">//</span>
- <a name="l00274"></a>00274 <span class="comment">//</span>
- <a name="l00275"></a>00275
- <a name="l00276"></a><a class="code" href="classIncFluid.html#dd6e7aada9433ac059c165516f755b29">00276</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00277"></a>00277 {
- <a name="l00278"></a>00278 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00279"></a>00279
- <a name="l00280"></a>00280 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00281"></a>00281 W.<a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00282"></a>00282
- <a name="l00283"></a>00283 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00284"></a>00284 cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00285"></a>00285 }
- <a name="l00286"></a>00286
- <a name="l00287"></a>00287 <span class="comment">//</span>
- <a name="l00288"></a>00288
- <a name="l00289"></a><a class="code" href="classIncFluid.html#89e2c395efe4c200aea501495d7a7159">00289</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00290"></a>00290 {
- <a name="l00291"></a>00291 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00292"></a>00292
- <a name="l00293"></a>00293 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00294"></a>00294 W.<a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00295"></a>00295 T.<a class="code" href="classCSF.html#d24b8acaffa60136ec0e3d4376cec1c8" title="Input F from file_in. temp_array is a temporary array.">CS_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00296"></a>00296
- <a name="l00297"></a>00297 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00298"></a>00298 cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00299"></a>00299 }
- <a name="l00300"></a>00300 <span class="comment">/*==================================================================================== </span>
- <a name="l00301"></a>00301 <span class="comment"> Input from a file: field_in_file(Nreduced[]) </span>
- <a name="l00302"></a>00302 <span class="comment">======================================================================================*/</span>
- <a name="l00303"></a>00303
- <a name="l00304"></a>00304 <span class="comment">// Fluid</span>
- <a name="l00305"></a><a class="code" href="classIncFluid.html#ab174c94b72bec24036c357b749eb2e4">00305</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00306"></a>00306 {
- <a name="l00307"></a>00307 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00308"></a>00308
- <a name="l00309"></a>00309 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00310"></a>00310
- <a name="l00311"></a>00311 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00312"></a>00312
- <a name="l00313"></a>00313 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>) cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00314"></a>00314 }
- <a name="l00315"></a>00315
- <a name="l00316"></a>00316
- <a name="l00317"></a>00317 <span class="comment">// Passive scalar + RB convection</span>
- <a name="l00318"></a>00318
- <a name="l00319"></a><a class="code" href="classIncFluid.html#00c57aede998adea7dd676f67b4d150c">00319</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00320"></a>00320 {
- <a name="l00321"></a>00321 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00322"></a>00322
- <a name="l00323"></a>00323
- <a name="l00324"></a>00324 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00325"></a>00325 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00326"></a>00326
- <a name="l00327"></a>00327 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00328"></a>00328 T.<a class="code" href="classCSF.html#d24b8acaffa60136ec0e3d4376cec1c8" title="Input F from file_in. temp_array is a temporary array.">CS_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00329"></a>00329
- <a name="l00330"></a>00330 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>) cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00331"></a>00331 }
- <a name="l00332"></a>00332
- <a name="l00333"></a>00333 <span class="comment">// MHD</span>
- <a name="l00334"></a>00334
- <a name="l00335"></a><a class="code" href="classIncFluid.html#0a7fbe275a5dd7d0209ca5e153bb5450">00335</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00336"></a>00336 {
- <a name="l00337"></a>00337 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00338"></a>00338
- <a name="l00339"></a>00339 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00340"></a>00340 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00341"></a>00341
- <a name="l00342"></a>00342 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00343"></a>00343 W.<a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00344"></a>00344
- <a name="l00345"></a>00345 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>) cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00346"></a>00346 }
- <a name="l00347"></a>00347
- <a name="l00348"></a>00348 <span class="comment">// Magnetoconvection</span>
- <a name="l00349"></a>00349
- <a name="l00350"></a><a class="code" href="classIncFluid.html#05bb0c6c7db66231bc99e06b9f9d36cc">00350</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l00351"></a>00351 {
- <a name="l00352"></a>00352 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00353"></a>00353
- <a name="l00354"></a>00354 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00355"></a>00355 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00356"></a>00356 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00357"></a>00357
- <a name="l00358"></a>00358 <a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00359"></a>00359 W.<a class="code" href="classCVF.html#77508ab009c7f35dc391693901caa50f" title="Input from file_in. temp_array is a temporary array.">CV_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00360"></a>00360 T.<a class="code" href="classCSF.html#d24b8acaffa60136ec0e3d4376cec1c8" title="Input F from file_in. temp_array is a temporary array.">CS_input</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>, Nreduced, *<a class="code" href="classIncVF.html#4c9070634e826d4ac9aba1dd9ed3444e" title="temp array .">VF_temp</a>);
- <a name="l00361"></a>00361
- <a name="l00362"></a>00362 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>) cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00363"></a>00363 }
- <a name="l00364"></a>00364
- <a name="l00365"></a>00365 <span class="comment">/*====================================================================================</span>
- <a name="l00366"></a>00366 <span class="comment"> </span>
- <a name="l00367"></a>00367 <span class="comment"> Input "Modes" from a file field_in_file</span>
- <a name="l00368"></a>00368 <span class="comment"> </span>
- <a name="l00369"></a>00369 <span class="comment"> FORMAT kx ky kz (re(Vx(k), im(Vx(y)) (re(Vy(k), im(Vy(y)).. </span>
- <a name="l00370"></a>00370 <span class="comment"> The last component determined by k.V(k) = 0.0</span>
- <a name="l00371"></a>00371 <span class="comment"> Fluid 3D - Vx(k) Vy(k)</span>
- <a name="l00372"></a>00372 <span class="comment"> V, T - Vx(k), Vy(k), T</span>
- <a name="l00373"></a>00373 <span class="comment"> V, W - Vx, Vy, Wx, Wy</span>
- <a name="l00374"></a>00374 <span class="comment"> V, W, T - Vx, Vy, Wx, Wy, T</span>
- <a name="l00375"></a>00375 <span class="comment"></span>
- <a name="l00376"></a>00376 <span class="comment"> PS: For 2D, give only upper half (ky >= 0)</span>
- <a name="l00377"></a>00377 <span class="comment"> For 3D, give only upper half (kz >= 0)</span>
- <a name="l00378"></a>00378 <span class="comment"> </span>
- <a name="l00379"></a>00379 <span class="comment">====================================================================================*/</span>
- <a name="l00380"></a>00380
- <a name="l00381"></a>00381 <span class="comment">// Read Vector V. There are num_field_waveno k's and Vs. </span>
- <a name="l00382"></a>00382 <span class="comment">// V_n = no of field components to be read; It is one less than the dim.</span>
- <a name="l00383"></a>00383 <span class="comment">// The last component is determined using incompressibility cond.</span>
- <a name="l00384"></a>00384
- <a name="l00385"></a>00385 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">IncFluid::Read_waveno_field</a>(<span class="keywordtype">int</span> k_dim, <span class="keywordtype">int</span> V_n, <span class="keywordtype">int</span>& <a class="code" href="classIncFluid.html#45ec882b21c41161a76ecc444df81d14">num_field_waveno</a>)
- <a name="l00386"></a>00386 {
- <a name="l00387"></a>00387 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00388"></a>00388 {
- <a name="l00389"></a>00389 <span class="keywordtype">int</span> i, ki;
- <a name="l00390"></a>00390 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> Vi;
- <a name="l00391"></a>00391
- <a name="l00392"></a>00392 cout << <span class="stringliteral">"=== Reading field wavenumbers and Vx Vy ===="</span> << endl;
- <a name="l00393"></a>00393
- <a name="l00394"></a>00394 <span class="keywordtype">int</span> iter = 0;
- <a name="l00395"></a>00395 <span class="keywordflow">while</span> (! <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>.eof())
- <a name="l00396"></a>00396 {
- <a name="l00397"></a>00397 <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> >> ki;
- <a name="l00398"></a>00398
- <a name="l00399"></a>00399 <span class="keywordflow">if</span> (ki < <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[1])
- <a name="l00400"></a>00400 { <span class="comment">// Stopper.. </span>
- <a name="l00401"></a>00401 iter++;
- <a name="l00402"></a>00402 (*field_modes_k_array)(iter,1) = ki;
- <a name="l00403"></a>00403
- <a name="l00404"></a>00404 <span class="keywordflow">for</span> (i=2; i<=k_dim; i++)
- <a name="l00405"></a>00405 {
- <a name="l00406"></a>00406 <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> >> ki;
- <a name="l00407"></a>00407 (*field_modes_k_array)(iter,i) = ki;
- <a name="l00408"></a>00408 }
- <a name="l00409"></a>00409
- <a name="l00410"></a>00410 <span class="keywordflow">for</span> (i=1; i<= V_n; i++)
- <a name="l00411"></a>00411 {
- <a name="l00412"></a>00412 <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> >> Vi;
- <a name="l00413"></a>00413 (*field_modes_V_array)(iter,i) = Vi;
- <a name="l00414"></a>00414 }
- <a name="l00415"></a>00415 }
- <a name="l00416"></a>00416 <span class="keywordflow">else</span> <span class="keywordflow">break</span>;
- <a name="l00417"></a>00417 } <span class="comment">// of while</span>
- <a name="l00418"></a>00418
- <a name="l00419"></a>00419 num_field_waveno = iter;
- <a name="l00420"></a>00420 cout << <span class="stringliteral">"=== End of Reading field wavenumbers and Vx, Vy ===="</span> << endl;
- <a name="l00421"></a>00421 cout << <span class="stringliteral">"Reading of field configurations ended successfully"</span> << endl;
- <a name="l00422"></a>00422 }
- <a name="l00423"></a>00423 }
- <a name="l00424"></a>00424
- <a name="l00425"></a>00425 <span class="comment">//</span>
- <a name="l00426"></a>00426 <span class="comment">// </span>
- <a name="l00427"></a>00427
- <a name="l00428"></a>00428 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>()
- <a name="l00429"></a>00429 {
- <a name="l00430"></a>00430 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00431"></a>00431
- <a name="l00432"></a>00432 (*field_modes_k_array) = 0;
- <a name="l00433"></a>00433 (*field_modes_V_array) = 0.0;
- <a name="l00434"></a>00434
- <a name="l00435"></a>00435 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00436"></a>00436 <span class="keywordtype">int</span> no_of_vectors_read = 2;
- <a name="l00437"></a>00437
- <a name="l00438"></a>00438 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00439"></a>00439 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00440"></a>00440
- <a name="l00441"></a>00441
- <a name="l00442"></a>00442 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00443"></a>00443
- <a name="l00444"></a>00444 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00445"></a>00445 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size,
- <a name="l00446"></a>00446 MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00447"></a>00447
- <a name="l00448"></a>00448 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00449"></a>00449 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size,
- <a name="l00450"></a>00450 MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00451"></a>00451
- <a name="l00452"></a>00452 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00453"></a>00453 complex<DP> Vx, Vy, Vz;
- <a name="l00454"></a>00454
- <a name="l00455"></a>00455 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00456"></a>00456
- <a name="l00457"></a>00457 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00458"></a>00458 {
- <a name="l00459"></a>00459 kx = (*field_modes_k_array)(i,1);
- <a name="l00460"></a>00460 ky = (*field_modes_k_array)(i,2);
- <a name="l00461"></a>00461 kz = (*field_modes_k_array)(i,3);
- <a name="l00462"></a>00462
- <a name="l00463"></a>00463 Vx = (*field_modes_V_array)(i,1);
- <a name="l00464"></a>00464 Vy = (*field_modes_V_array)(i,2);
- <a name="l00465"></a>00465
- <a name="l00466"></a>00466 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00467"></a>00467 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00468"></a>00468 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00469"></a>00469
- <a name="l00470"></a>00470 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00471"></a>00471 cout << <span class="stringliteral">"k, V : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span> << Vy << <span class="stringliteral">" "</span> << Vz << endl;
- <a name="l00472"></a>00472 }
- <a name="l00473"></a>00473 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00474"></a>00474
- <a name="l00475"></a>00475 }
- <a name="l00476"></a>00476
- <a name="l00477"></a>00477
- <a name="l00478"></a>00478 <span class="comment">/*====================================================================================</span>
- <a name="l00479"></a>00479 <span class="comment"> SCALAR</span>
- <a name="l00480"></a>00480 <span class="comment">====================================================================================*/</span>
- <a name="l00481"></a>00481
- <a name="l00482"></a>00482 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l00483"></a>00483 {
- <a name="l00484"></a>00484 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00485"></a>00485
- <a name="l00486"></a>00486 (*field_modes_k_array) = 0;
- <a name="l00487"></a>00487 (*field_modes_V_array) = 0.0;
- <a name="l00488"></a>00488
- <a name="l00489"></a>00489 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00490"></a>00490 <span class="keywordtype">int</span> no_of_vectors_read = 3;
- <a name="l00491"></a>00491 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00492"></a>00492 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00493"></a>00493
- <a name="l00494"></a>00494 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00495"></a>00495
- <a name="l00496"></a>00496 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00497"></a>00497 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00498"></a>00498
- <a name="l00499"></a>00499 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00500"></a>00500 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00501"></a>00501
- <a name="l00502"></a>00502 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00503"></a>00503 complex<DP> Vx, Vy, Vz, G;
- <a name="l00504"></a>00504
- <a name="l00505"></a>00505 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00506"></a>00506 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00507"></a>00507
- <a name="l00508"></a>00508 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00509"></a>00509 {
- <a name="l00510"></a>00510 kx = (*field_modes_k_array)(i,1);
- <a name="l00511"></a>00511 ky = (*field_modes_k_array)(i,2);
- <a name="l00512"></a>00512 kz = (*field_modes_k_array)(i,3);
- <a name="l00513"></a>00513
- <a name="l00514"></a>00514 Vx = (*field_modes_V_array)(i,1);
- <a name="l00515"></a>00515 Vy = (*field_modes_V_array)(i,2);
- <a name="l00516"></a>00516 G = (*field_modes_V_array)(i,3);
- <a name="l00517"></a>00517
- <a name="l00518"></a>00518 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00519"></a>00519 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00520"></a>00520 T.<a class="code" href="classIncSF.html#bbacf09c709cb508c490ba40ab3a3a1c" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, G);
- <a name="l00521"></a>00521 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00522"></a>00522 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00523"></a>00523 cout << <span class="stringliteral">"k, V, G : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00524"></a>00524 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << G << endl;
- <a name="l00525"></a>00525 }
- <a name="l00526"></a>00526 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00527"></a>00527 }
- <a name="l00528"></a>00528
- <a name="l00529"></a>00529
- <a name="l00530"></a>00530 <span class="comment">/*====================================================================================</span>
- <a name="l00531"></a>00531 <span class="comment"> With another vector field (MHD)</span>
- <a name="l00532"></a>00532 <span class="comment">====================================================================================*/</span>
- <a name="l00533"></a>00533
- <a name="l00534"></a>00534 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W)
- <a name="l00535"></a>00535 {
- <a name="l00536"></a>00536 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00537"></a>00537
- <a name="l00538"></a>00538 (*field_modes_k_array) = 0;
- <a name="l00539"></a>00539 (*field_modes_V_array) = 0.0;
- <a name="l00540"></a>00540
- <a name="l00541"></a>00541 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00542"></a>00542 <span class="keywordtype">int</span> no_of_vectors_read = 4;
- <a name="l00543"></a>00543 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00544"></a>00544 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00545"></a>00545
- <a name="l00546"></a>00546 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00547"></a>00547 complex<DP> Vx, Vy, Vz, Wx, Wy, Wz;
- <a name="l00548"></a>00548
- <a name="l00549"></a>00549 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00550"></a>00550 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00551"></a>00551
- <a name="l00552"></a>00552 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00553"></a>00553 {
- <a name="l00554"></a>00554 kx = (*field_modes_k_array)(i,1); ky = (*field_modes_k_array)(i,2); kz = (*field_modes_k_array)(i,3);
- <a name="l00555"></a>00555 Vx = (*field_modes_V_array)(i,1); Vy = (*field_modes_V_array)(i,2);
- <a name="l00556"></a>00556 Wx = (*field_modes_V_array)(i,3); Wy = (*field_modes_V_array)(i,4);
- <a name="l00557"></a>00557
- <a name="l00558"></a>00558 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00559"></a>00559 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00560"></a>00560 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00561"></a>00561 W.<a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00562"></a>00562 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00563"></a>00563 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00564"></a>00564 cout << <span class="stringliteral">"k, V, W : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00565"></a>00565 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << Wx << <span class="stringliteral">" "</span> << Wy << <span class="stringliteral">" "</span> << Wz << endl;
- <a name="l00566"></a>00566 }
- <a name="l00567"></a>00567 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00568"></a>00568 }
- <a name="l00569"></a>00569
- <a name="l00570"></a>00570 <span class="comment">/*====================================================================================</span>
- <a name="l00571"></a>00571 <span class="comment"> With another vector field and scalar field (Magnetoconvection)</span>
- <a name="l00572"></a>00572 <span class="comment">====================================================================================*/</span>
- <a name="l00573"></a>00573
- <a name="l00574"></a>00574 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l00575"></a>00575 {
- <a name="l00576"></a>00576
- <a name="l00577"></a>00577 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00578"></a>00578
- <a name="l00579"></a>00579 (*field_modes_k_array) = 0;
- <a name="l00580"></a>00580 (*field_modes_V_array) = 0.0;
- <a name="l00581"></a>00581
- <a name="l00582"></a>00582 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00583"></a>00583 <span class="keywordtype">int</span> no_of_vectors_read = 5;
- <a name="l00584"></a>00584 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00585"></a>00585 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00586"></a>00586
- <a name="l00587"></a>00587
- <a name="l00588"></a>00588 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00589"></a>00589
- <a name="l00590"></a>00590 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00591"></a>00591 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00592"></a>00592
- <a name="l00593"></a>00593 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00594"></a>00594 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00595"></a>00595
- <a name="l00596"></a>00596
- <a name="l00597"></a>00597 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00598"></a>00598 complex<DP> Vx, Vy, Vz, Wx, Wy, Wz, G;
- <a name="l00599"></a>00599
- <a name="l00600"></a>00600 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00601"></a>00601 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00602"></a>00602 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00603"></a>00603
- <a name="l00604"></a>00604 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00605"></a>00605 {
- <a name="l00606"></a>00606 kx = (*field_modes_k_array)(i,1); ky = (*field_modes_k_array)(i,2); kz = (*field_modes_k_array)(i,3);
- <a name="l00607"></a>00607 Vx = (*field_modes_V_array)(i,1); Vy = (*field_modes_V_array)(i,2);
- <a name="l00608"></a>00608 Wx = (*field_modes_V_array)(i,3); Wy = (*field_modes_V_array)(i,4);
- <a name="l00609"></a>00609 G = (*field_modes_V_array)(i,5);
- <a name="l00610"></a>00610
- <a name="l00611"></a>00611 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00612"></a>00612 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00613"></a>00613 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00614"></a>00614 W.<a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00615"></a>00615 T.<a class="code" href="classIncSF.html#bbacf09c709cb508c490ba40ab3a3a1c" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, G);
- <a name="l00616"></a>00616 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00617"></a>00617 cout << <span class="stringliteral">"k, V, G : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00618"></a>00618 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << Wx << <span class="stringliteral">" "</span> << Wy << <span class="stringliteral">" "</span> << Wz << <span class="stringliteral">" "</span> << G << endl;
- <a name="l00619"></a>00619 }
- <a name="l00620"></a>00620 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00621"></a>00621
- <a name="l00622"></a>00622 }
- <a name="l00623"></a>00623
- <a name="l00624"></a>00624 <span class="comment">/*====================================================================================</span>
- <a name="l00625"></a>00625 <span class="comment"> </span>
- <a name="l00626"></a>00626 <span class="comment"> Input "Modes" from a file field_in_file</span>
- <a name="l00627"></a>00627 <span class="comment"> </span>
- <a name="l00628"></a>00628 <span class="comment"> Given Vx and Omega_x</span>
- <a name="l00629"></a>00629 <span class="comment"> </span>
- <a name="l00630"></a>00630 <span class="comment">====================================================================================*/</span>
- <a name="l00631"></a>00631
- <a name="l00632"></a>00632 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>()
- <a name="l00633"></a>00633 {
- <a name="l00634"></a>00634 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00635"></a>00635
- <a name="l00636"></a>00636 (*field_modes_k_array) = 0;
- <a name="l00637"></a>00637 (*field_modes_V_array) = 0.0;
- <a name="l00638"></a>00638
- <a name="l00639"></a>00639 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00640"></a>00640 <span class="keywordtype">int</span> no_of_vectors_read = 2;
- <a name="l00641"></a>00641 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00642"></a>00642 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00643"></a>00643
- <a name="l00644"></a>00644 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00645"></a>00645
- <a name="l00646"></a>00646 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00647"></a>00647 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00648"></a>00648
- <a name="l00649"></a>00649 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00650"></a>00650 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00651"></a>00651
- <a name="l00652"></a>00652 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00653"></a>00653 complex<DP> Vx, Vy, Vz, Omega;
- <a name="l00654"></a>00654
- <a name="l00655"></a>00655 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00656"></a>00656
- <a name="l00657"></a>00657 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00658"></a>00658 {
- <a name="l00659"></a>00659 kx = (*field_modes_k_array)(i,1);
- <a name="l00660"></a>00660 ky = (*field_modes_k_array)(i,2);
- <a name="l00661"></a>00661 kz = (*field_modes_k_array)(i,3);
- <a name="l00662"></a>00662
- <a name="l00663"></a>00663 Vx = (*field_modes_V_array)(i,1);
- <a name="l00664"></a>00664 Omega = (*field_modes_V_array)(i,2);
- <a name="l00665"></a>00665
- <a name="l00666"></a>00666 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Vx, Omega, Vy, Vz);
- <a name="l00667"></a>00667 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00668"></a>00668 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00669"></a>00669 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00670"></a>00670 cout << <span class="stringliteral">"k, V : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span> << Vy << <span class="stringliteral">" "</span> << Vz << endl;
- <a name="l00671"></a>00671 }
- <a name="l00672"></a>00672 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00673"></a>00673
- <a name="l00674"></a>00674 }
- <a name="l00675"></a>00675
- <a name="l00676"></a>00676 <span class="comment">//</span>
- <a name="l00677"></a>00677 <span class="comment">// Scalar</span>
- <a name="l00678"></a>00678 <span class="comment">//</span>
- <a name="l00679"></a>00679
- <a name="l00680"></a>00680 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l00681"></a>00681 {
- <a name="l00682"></a>00682
- <a name="l00683"></a>00683 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00684"></a>00684
- <a name="l00685"></a>00685 (*field_modes_k_array) = 0;
- <a name="l00686"></a>00686 (*field_modes_V_array) = 0.0;
- <a name="l00687"></a>00687
- <a name="l00688"></a>00688 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00689"></a>00689 <span class="keywordtype">int</span> no_of_vectors_read = 3;
- <a name="l00690"></a>00690 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00691"></a>00691 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00692"></a>00692
- <a name="l00693"></a>00693 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00694"></a>00694
- <a name="l00695"></a>00695 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00696"></a>00696 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00697"></a>00697
- <a name="l00698"></a>00698 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00699"></a>00699 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00700"></a>00700
- <a name="l00701"></a>00701 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00702"></a>00702 complex<DP> Vx, Vy, Vz, Omega, G;
- <a name="l00703"></a>00703
- <a name="l00704"></a>00704 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00705"></a>00705 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00706"></a>00706
- <a name="l00707"></a>00707 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00708"></a>00708 {
- <a name="l00709"></a>00709 kx = (*field_modes_k_array)(i,1);
- <a name="l00710"></a>00710 ky = (*field_modes_k_array)(i,2);
- <a name="l00711"></a>00711 kz = (*field_modes_k_array)(i,3);
- <a name="l00712"></a>00712
- <a name="l00713"></a>00713 Vx = (*field_modes_V_array)(i,1);
- <a name="l00714"></a>00714 Omega = (*field_modes_V_array)(i,2);
- <a name="l00715"></a>00715 G = (*field_modes_V_array)(i,3);
- <a name="l00716"></a>00716
- <a name="l00717"></a>00717 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Vx, Omega, Vy, Vz);
- <a name="l00718"></a>00718 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00719"></a>00719 T.<a class="code" href="classIncSF.html#bbacf09c709cb508c490ba40ab3a3a1c" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, G);
- <a name="l00720"></a>00720 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00721"></a>00721
- <a name="l00722"></a>00722 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00723"></a>00723 cout << <span class="stringliteral">"k, V, G : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00724"></a>00724 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << G << endl;
- <a name="l00725"></a>00725 }
- <a name="l00726"></a>00726
- <a name="l00727"></a>00727 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00728"></a>00728
- <a name="l00729"></a>00729 }
- <a name="l00730"></a>00730
- <a name="l00731"></a>00731 <span class="comment">//</span>
- <a name="l00732"></a>00732 <span class="comment">// Vector</span>
- <a name="l00733"></a>00733 <span class="comment">//</span>
- <a name="l00734"></a>00734
- <a name="l00735"></a>00735 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W)
- <a name="l00736"></a>00736 {
- <a name="l00737"></a>00737
- <a name="l00738"></a>00738 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00739"></a>00739
- <a name="l00740"></a>00740 (*field_modes_k_array) = 0;
- <a name="l00741"></a>00741 (*field_modes_V_array) = 0.0;
- <a name="l00742"></a>00742
- <a name="l00743"></a>00743 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00744"></a>00744 <span class="keywordtype">int</span> no_of_vectors_read = 4;
- <a name="l00745"></a>00745 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00746"></a>00746 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00747"></a>00747
- <a name="l00748"></a>00748
- <a name="l00749"></a>00749 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00750"></a>00750
- <a name="l00751"></a>00751 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00752"></a>00752 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00753"></a>00753
- <a name="l00754"></a>00754 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00755"></a>00755 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00756"></a>00756
- <a name="l00757"></a>00757
- <a name="l00758"></a>00758 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00759"></a>00759 complex<DP> Vx, Vy, Vz, Wx, Wy, Wz, Omega, OmegaW;
- <a name="l00760"></a>00760
- <a name="l00761"></a>00761 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00762"></a>00762 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00763"></a>00763
- <a name="l00764"></a>00764 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00765"></a>00765 {
- <a name="l00766"></a>00766 kx = (*field_modes_k_array)(i,1); ky = (*field_modes_k_array)(i,2); kz = (*field_modes_k_array)(i,3);
- <a name="l00767"></a>00767 Vx = (*field_modes_V_array)(i,1);
- <a name="l00768"></a>00768 Omega = (*field_modes_V_array)(i,2);
- <a name="l00769"></a>00769 Wx = (*field_modes_V_array)(i,3);
- <a name="l00770"></a>00770 OmegaW = (*field_modes_V_array)(i,4);
- <a name="l00771"></a>00771
- <a name="l00772"></a>00772 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Vx, Omega, Vy, Vz);
- <a name="l00773"></a>00773 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Wx, OmegaW, Wy, Wz);
- <a name="l00774"></a>00774 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00775"></a>00775 W.<a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00776"></a>00776 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00777"></a>00777
- <a name="l00778"></a>00778 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00779"></a>00779 cout << <span class="stringliteral">"k, V, W : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00780"></a>00780 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << Wx << <span class="stringliteral">" "</span> << Wy << <span class="stringliteral">" "</span> << Wz << endl;
- <a name="l00781"></a>00781 }
- <a name="l00782"></a>00782 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00783"></a>00783
- <a name="l00784"></a>00784 }
- <a name="l00785"></a>00785
- <a name="l00786"></a>00786 <span class="comment">// Vector + Scalar</span>
- <a name="l00787"></a>00787
- <a name="l00788"></a>00788 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l00789"></a>00789 {
- <a name="l00790"></a>00790
- <a name="l00791"></a>00791 <a class="code" href="classIncFluid.html#1145d2815506aae853374229e13eddda" title="If the input file field_in_file is not open, then error message.">Input_prefix</a>(<a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>);
- <a name="l00792"></a>00792
- <a name="l00793"></a>00793 (*field_modes_k_array) = 0;
- <a name="l00794"></a>00794 (*field_modes_V_array) = 0.0;
- <a name="l00795"></a>00795
- <a name="l00796"></a>00796 <span class="keywordtype">int</span> space_dim = 3;
- <a name="l00797"></a>00797 <span class="keywordtype">int</span> no_of_vectors_read = 5;
- <a name="l00798"></a>00798 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00799"></a>00799 <a class="code" href="classIncFluid.html#f08578406156e3307c51a0a1ba1e2b56" title="Read wavenos k and V(k) from file field_in_file.">Read_waveno_field</a>(space_dim, no_of_vectors_read, num_field_waveno);
- <a name="l00800"></a>00800
- <a name="l00801"></a>00801 MPI_Bcast(&num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00802"></a>00802
- <a name="l00803"></a>00803 <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
- <a name="l00804"></a>00804 MPI_Bcast( reinterpret_cast<int*>((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00805"></a>00805
- <a name="l00806"></a>00806 data_size = IC_MAX_NO_FIELD_MODE * 16;
- <a name="l00807"></a>00807 MPI_Bcast( reinterpret_cast<double*>((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
- <a name="l00808"></a>00808
- <a name="l00809"></a>00809 <span class="keywordtype">int</span> kx, ky, kz;
- <a name="l00810"></a>00810 complex<DP> Vx, Vy, Vz, Wx, Wy, Wz, Omega, OmegaW, G;
- <a name="l00811"></a>00811
- <a name="l00812"></a>00812 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l00813"></a>00813 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>) = 0.0; (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>) = 0.0; (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>) = 0.0;
- <a name="l00814"></a>00814 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l00815"></a>00815
- <a name="l00816"></a>00816 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i <= num_field_waveno; i++)
- <a name="l00817"></a>00817 {
- <a name="l00818"></a>00818 kx = (*field_modes_k_array)(i,1); ky = (*field_modes_k_array)(i,2); kz = (*field_modes_k_array)(i,3);
- <a name="l00819"></a>00819 Vx = (*field_modes_V_array)(i,1);
- <a name="l00820"></a>00820 Omega = (*field_modes_V_array)(i,2);
- <a name="l00821"></a>00821 Wx = (*field_modes_V_array)(i,3);
- <a name="l00822"></a>00822 OmegaW = (*field_modes_V_array)(i,4);
- <a name="l00823"></a>00823 G = (*field_modes_V_array)(i,5);
- <a name="l00824"></a>00824
- <a name="l00825"></a>00825 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Vx, Omega, Vy, Vz);
- <a name="l00826"></a>00826 <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72" title="Compute Vy, Vz given and .">Compute_VyVz</a>(kx, ky, kz, Wx, OmegaW, Wy, Wz);
- <a name="l00827"></a>00827 <a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Vx, Vy, Vz);
- <a name="l00828"></a>00828 W.<a class="code" href="classIncVF.html#4f44a1486d195e6588bd807eba80a3c4" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, Wx, Wy, Wz);
- <a name="l00829"></a>00829 T.<a class="code" href="classIncSF.html#bbacf09c709cb508c490ba40ab3a3a1c" title="D=3: and add complex conjugate.">Assign_field_comp_conj</a>(kx, ky, kz, G);
- <a name="l00830"></a>00830 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
- <a name="l00831"></a>00831
- <a name="l00832"></a>00832 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l00833"></a>00833 cout << <span class="stringliteral">"k, V, G : ("</span> << kx << <span class="stringliteral">" "</span> << ky << <span class="stringliteral">" "</span> <<kz << <span class="stringliteral">") "</span> << Vx << <span class="stringliteral">" "</span>
- <a name="l00834"></a>00834 << Vy << <span class="stringliteral">" "</span> << Vz << <span class="stringliteral">" "</span> << Wx << <span class="stringliteral">" "</span> << Wy << <span class="stringliteral">" "</span> << Wz << <span class="stringliteral">" "</span> << G << endl;
- <a name="l00835"></a>00835 }
- <a name="l00836"></a>00836 cout << <span class="stringliteral">"============================================"</span> << endl;
- <a name="l00837"></a>00837 }
- <a name="l00838"></a>00838
- <a name="l00839"></a>00839 <span class="comment">/*====================================================================================</span>
- <a name="l00840"></a>00840 <span class="comment"></span>
- <a name="l00841"></a>00841 <span class="comment"> Given Model energy spectrum for initial condition</span>
- <a name="l00842"></a>00842 <span class="comment"> Sk(k) = a k^4 exp(-b k^1.1) / (k^4 + q^4)^(2.8/12)</span>
- <a name="l00843"></a>00843 <span class="comment"> with q = 1.5, b = 0.02</span>
- <a name="l00844"></a>00844 <span class="comment"></span>
- <a name="l00845"></a>00845 <span class="comment"> Notation: kki = ki * kfactor[i]</span>
- <a name="l00846"></a>00846 <span class="comment">====================================================================================*/</span>
- <a name="l00847"></a>00847
- <a name="l00848"></a>00848
- <a name="l00849"></a>00849
- <a name="l00850"></a>00850 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l00851"></a><a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">00851</a> {
- <a name="l00852"></a>00852
- <a name="l00853"></a>00853 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp;
- <a name="l00854"></a>00854 <span class="keywordtype">int</span> index;
- <a name="l00855"></a>00855
- <a name="l00856"></a>00856
- <a name="l00857"></a>00857 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l00858"></a>00858
- <a name="l00859"></a>00859 cout << <span class="stringliteral">"Init energy spectrum U: "</span> << *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a> << endl;
- <a name="l00860"></a>00860
- <a name="l00861"></a>00861 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l00862"></a>00862 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l00863"></a>00863 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l00864"></a>00864 {
- <a name="l00865"></a>00865 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00866"></a>00866 index = ((int) kkmag);
- <a name="l00867"></a>00867
- <a name="l00868"></a>00868 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00869"></a>00869 amp = sqrt(2*ek);
- <a name="l00870"></a>00870 Put_random_vector_add_conj(l1, l2, l3, amp);
- <a name="l00871"></a>00871 }
- <a name="l00872"></a>00872
- <a name="l00873"></a>00873 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(0,0,0) = 0.0;
- <a name="l00874"></a>00874
- <a name="l00875"></a>00875 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>();
- <a name="l00876"></a>00876 }
- <a name="l00877"></a>00877
- <a name="l00878"></a>00878 <span class="comment">//</span>
- <a name="l00879"></a>00879 <span class="comment">// for scalar</span>
- <a name="l00880"></a>00880 <span class="comment">//</span>
- <a name="l00881"></a>00881
- <a name="l00882"></a>00882 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l00883"></a><a class="code" href="classIncFluid.html#d813bf593cdb717b3938135b90630574">00883</a> {
- <a name="l00884"></a>00884
- <a name="l00885"></a>00885 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekT, amp, ampT;
- <a name="l00886"></a>00886 <span class="keywordtype">int</span> index;
- <a name="l00887"></a>00887
- <a name="l00888"></a>00888 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l00889"></a>00889 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>, init_cond_para(2));
- <a name="l00890"></a>00890
- <a name="l00891"></a>00891 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l00892"></a>00892 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l00893"></a>00893 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l00894"></a>00894 {
- <a name="l00895"></a>00895 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00896"></a>00896 index = ((int) kkmag);
- <a name="l00897"></a>00897
- <a name="l00898"></a>00898 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00899"></a>00899 ekT= (*T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00900"></a>00900
- <a name="l00901"></a>00901 amp = sqrt(2*ek);
- <a name="l00902"></a>00902 ampT = sqrt(2*ekT);
- <a name="l00903"></a>00903
- <a name="l00904"></a>00904 Put_random_vector_add_conj(l1, l2, l3, amp);
- <a name="l00905"></a>00905 T.Put_random_vector_add_conj(l1, l2, l3, ampT);
- <a name="l00906"></a>00906 }
- <a name="l00907"></a>00907
- <a name="l00908"></a>00908 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(0,0,0) = (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;
- <a name="l00909"></a>00909
- <a name="l00910"></a>00910 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(T);
- <a name="l00911"></a>00911 }
- <a name="l00912"></a>00912
- <a name="l00913"></a>00913
- <a name="l00914"></a>00914 <span class="comment">//</span>
- <a name="l00915"></a>00915 <span class="comment">// for vector</span>
- <a name="l00916"></a>00916 <span class="comment">//</span>
- <a name="l00917"></a>00917
- <a name="l00918"></a>00918 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l00919"></a><a class="code" href="classIncFluid.html#20302d6fb037339b7e305d1bd0fd1dff">00919</a> {
- <a name="l00920"></a>00920
- <a name="l00921"></a>00921 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekW, amp, ampW;
- <a name="l00922"></a>00922 <span class="keywordtype">int</span> index;
- <a name="l00923"></a>00923
- <a name="l00924"></a>00924 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l00925"></a>00925 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *W.<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, init_cond_para(2));
- <a name="l00926"></a>00926
- <a name="l00927"></a>00927 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l00928"></a>00928 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l00929"></a>00929 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l00930"></a>00930 {
- <a name="l00931"></a>00931 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00932"></a>00932 index = ((int) kkmag);
- <a name="l00933"></a>00933
- <a name="l00934"></a>00934 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00935"></a>00935 ekW= (*W.<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00936"></a>00936
- <a name="l00937"></a>00937 amp = sqrt(2*ek);
- <a name="l00938"></a>00938 ampW = sqrt(2*ekW);
- <a name="l00939"></a>00939
- <a name="l00940"></a>00940 Put_random_vector_add_conj(l1, l2, l3, amp);
- <a name="l00941"></a>00941 W.Put_random_vector_add_conj(l1, l2, l3, ampW);
- <a name="l00942"></a>00942 }
- <a name="l00943"></a>00943
- <a name="l00944"></a>00944 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l00945"></a>00945 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l00946"></a>00946
- <a name="l00947"></a>00947 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W);
- <a name="l00948"></a>00948
- <a name="l00949"></a>00949 }
- <a name="l00950"></a>00950
- <a name="l00951"></a>00951 <span class="comment">//</span>
- <a name="l00952"></a>00952 <span class="comment">// for vector + scalar</span>
- <a name="l00953"></a>00953 <span class="comment">//</span>
- <a name="l00954"></a>00954
- <a name="l00955"></a>00955 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l00956"></a><a class="code" href="classIncFluid.html#46fa4e5d0236f6102315942753b18c8f">00956</a> {
- <a name="l00957"></a>00957
- <a name="l00958"></a>00958 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekW, ekT, amp, ampW, ampT;
- <a name="l00959"></a>00959 <span class="keywordtype">int</span> index;
- <a name="l00960"></a>00960
- <a name="l00961"></a>00961 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l00962"></a>00962 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>, init_cond_para(2));
- <a name="l00963"></a>00963 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>, init_cond_para(3));
- <a name="l00964"></a>00964
- <a name="l00965"></a>00965 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l00966"></a>00966 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l00967"></a>00967 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l00968"></a>00968 {
- <a name="l00969"></a>00969 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00970"></a>00970 index = ((int) kkmag);
- <a name="l00971"></a>00971
- <a name="l00972"></a>00972 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00973"></a>00973 ekW= (*W.<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00974"></a>00974 ekT= (*T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l00975"></a>00975
- <a name="l00976"></a>00976 amp = sqrt(2*ek);
- <a name="l00977"></a>00977 ampW = sqrt(2*ekW);
- <a name="l00978"></a>00978 ampT = sqrt(2*ekT);
- <a name="l00979"></a>00979
- <a name="l00980"></a>00980 Put_random_vector_add_conj(l1, l2, l3, amp);
- <a name="l00981"></a>00981 W.Put_random_vector_add_conj(l1, l2, l3, ampW);
- <a name="l00982"></a>00982 T.Put_random_vector_add_conj(l1, l2, l3, ampT);
- <a name="l00983"></a>00983 }
- <a name="l00984"></a>00984
- <a name="l00985"></a>00985 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l00986"></a>00986 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l00987"></a>00987 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;
- <a name="l00988"></a>00988
- <a name="l00989"></a>00989 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W, T);
- <a name="l00990"></a>00990
- <a name="l00991"></a>00991 }
- <a name="l00992"></a>00992
- <a name="l00993"></a>00993 <span class="comment">/*====================================================================================</span>
- <a name="l00994"></a>00994 <span class="comment"></span>
- <a name="l00995"></a>00995 <span class="comment"> Given Model energy and helicity spectrum for the initial condition</span>
- <a name="l00996"></a>00996 <span class="comment"> E(k) = a k^4 exp(-b k^1.1) / (k^4 + q^4)^(2.8/12)</span>
- <a name="l00997"></a>00997 <span class="comment"> with q = 1.5, b = 0.02</span>
- <a name="l00998"></a>00998 <span class="comment"></span>
- <a name="l00999"></a>00999 <span class="comment"> s(k) = H(k)/(k*E(k))</span>
- <a name="l01000"></a>01000 <span class="comment"> </span>
- <a name="l01001"></a>01001 <span class="comment"> Notation: kki = ki * kfactor[i]</span>
- <a name="l01002"></a>01002 <span class="comment">====================================================================================*/</span>
- <a name="l01003"></a>01003
- <a name="l01004"></a>01004 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01005"></a><a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">01005</a> {
- <a name="l01006"></a>01006
- <a name="l01007"></a>01007 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
- <a name="l01008"></a>01008 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> phase2_min_phase1;
- <a name="l01009"></a>01009 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
- <a name="l01010"></a>01010 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2;
- <a name="l01011"></a>01011 <span class="keywordtype">int</span> index;
- <a name="l01012"></a>01012
- <a name="l01013"></a>01013 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01014"></a>01014 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> sk = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01015"></a>01015
- <a name="l01016"></a>01016 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l01017"></a>01017 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l01018"></a>01018 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l01019"></a>01019 {
- <a name="l01020"></a>01020 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01021"></a>01021 index = ((int) kkmag);
- <a name="l01022"></a>01022
- <a name="l01023"></a>01023 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01024"></a>01024 amp = sqrt(2*ek);
- <a name="l01025"></a>01025
- <a name="l01026"></a>01026 <span class="comment">/* Method 1: Not being used at present</span>
- <a name="l01027"></a>01027 <span class="comment"> phase3 = M_PI/4.0;</span>
- <a name="l01028"></a>01028 <span class="comment"> phase2_min_phase1 = asin(sk);</span>
- <a name="l01029"></a>01029 <span class="comment"> phase1 = 2*M_PI * SPECrand.random();</span>
- <a name="l01030"></a>01030 <span class="comment"> phase2 = phase1 + phase2_min_phase1;</span>
- <a name="l01031"></a>01031 <span class="comment"> */</span>
- <a name="l01032"></a>01032
- <a name="l01033"></a>01033 <span class="comment">// Method 2</span>
- <a name="l01034"></a>01034
- <a name="l01035"></a>01035 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
- <a name="l01036"></a>01036 phase2 = phase1 + M_PI/2.0;
- <a name="l01037"></a>01037 phase3 = asin(sk)/2.0; <span class="comment">// zeta</span>
- <a name="l01038"></a>01038
- <a name="l01039"></a>01039 <span class="comment">//</span>
- <a name="l01040"></a>01040
- <a name="l01041"></a>01041 uperp1 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01042"></a>01042 uperp2 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase2) * cos(phase3);
- <a name="l01043"></a>01043
- <a name="l01044"></a>01044 kkx = <a class="code" href="universal__inline_8h.html#689d2012c5b850a7fb3c7ed3bf41f628" title="Get grid waveno kx given first array index l1 (local).">Get_kx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[1];
- <a name="l01045"></a>01045 kky = <a class="code" href="universal__inline_8h.html#7c519d4b91b5cdbe1d4f3bd09d369a80" title="3D: Get grid waveno ky given second array index l2.">Get_ky3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l2, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[2];
- <a name="l01046"></a>01046 kkz = l3 * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[3];
- <a name="l01047"></a>01047 kkperp = sqrt(kkx*kkx + kky*kky);
- <a name="l01048"></a>01048
- <a name="l01049"></a>01049 <span class="keywordflow">if</span> (kkmag > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01050"></a>01050 <span class="keywordflow">if</span> ( kkperp > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01051"></a>01051 {
- <a name="l01052"></a>01052 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag);
- <a name="l01053"></a>01053 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
- <a name="l01054"></a>01054 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp);
- <a name="l01055"></a>01055 }
- <a name="l01056"></a>01056
- <a name="l01057"></a>01057 <span class="keywordflow">else</span> <span class="comment">// k along z axis. V on the x-y plane.</span>
- <a name="l01058"></a>01058 {
- <a name="l01059"></a>01059 (*V1)(l1, l2, l3) = 0.0;
- <a name="l01060"></a>01060 (*V2)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * cos(phase3);
- <a name="l01061"></a>01061 (*V3)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01062"></a>01062 }
- <a name="l01063"></a>01063
- <a name="l01064"></a>01064 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01065"></a>01065 (*V1)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3);
- <a name="l01066"></a>01066 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y) </span>
- <a name="l01067"></a>01067 }
- <a name="l01068"></a>01068
- <a name="l01069"></a>01069 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01070"></a>01070
- <a name="l01071"></a>01071 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>();
- <a name="l01072"></a>01072
- <a name="l01073"></a>01073 }
- <a name="l01074"></a>01074
- <a name="l01075"></a>01075 <span class="comment">//</span>
- <a name="l01076"></a>01076 <span class="comment">// scalar</span>
- <a name="l01077"></a>01077 <span class="comment">//</span>
- <a name="l01078"></a>01078
- <a name="l01079"></a>01079 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01080"></a><a class="code" href="classIncFluid.html#396d86201bcb465201ccefa46c648f42">01080</a> {
- <a name="l01081"></a>01081
- <a name="l01082"></a>01082 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
- <a name="l01083"></a>01083 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> phase2_min_phase1;
- <a name="l01084"></a>01084 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekT, ampT, phaseT;
- <a name="l01085"></a>01085 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
- <a name="l01086"></a>01086 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2;
- <a name="l01087"></a>01087 <span class="keywordtype">int</span> index;
- <a name="l01088"></a>01088
- <a name="l01089"></a>01089 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01090"></a>01090 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> sk = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01091"></a>01091
- <a name="l01092"></a>01092 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>, init_cond_para(3));
- <a name="l01093"></a>01093
- <a name="l01094"></a>01094 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l01095"></a>01095 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l01096"></a>01096 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l01097"></a>01097 {
- <a name="l01098"></a>01098 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01099"></a>01099 index = ((int) kkmag);
- <a name="l01100"></a>01100
- <a name="l01101"></a>01101 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01102"></a>01102 amp = sqrt(2*ek);
- <a name="l01103"></a>01103
- <a name="l01104"></a>01104 <span class="comment">/* Method 1: Not being used at present</span>
- <a name="l01105"></a>01105 <span class="comment"> phase3 = M_PI/4.0;</span>
- <a name="l01106"></a>01106 <span class="comment"> phase2_min_phase1 = asin(sk);</span>
- <a name="l01107"></a>01107 <span class="comment"> phase1 = 2*M_PI * SPECrand.random();</span>
- <a name="l01108"></a>01108 <span class="comment"> phase2 = phase1 + phase2_min_phase1;</span>
- <a name="l01109"></a>01109 <span class="comment"> */</span>
- <a name="l01110"></a>01110
- <a name="l01111"></a>01111 <span class="comment">// Method 2</span>
- <a name="l01112"></a>01112
- <a name="l01113"></a>01113 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
- <a name="l01114"></a>01114 phase2 = phase1 + M_PI/2.0;
- <a name="l01115"></a>01115 phase3 = asin(sk)/2.0; <span class="comment">// zeta</span>
- <a name="l01116"></a>01116
- <a name="l01117"></a>01117 <span class="comment">//</span>
- <a name="l01118"></a>01118
- <a name="l01119"></a>01119 uperp1 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01120"></a>01120 uperp2 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase2) * cos(phase3);
- <a name="l01121"></a>01121
- <a name="l01122"></a>01122 kkx = <a class="code" href="universal__inline_8h.html#689d2012c5b850a7fb3c7ed3bf41f628" title="Get grid waveno kx given first array index l1 (local).">Get_kx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[1];
- <a name="l01123"></a>01123 kky = <a class="code" href="universal__inline_8h.html#7c519d4b91b5cdbe1d4f3bd09d369a80" title="3D: Get grid waveno ky given second array index l2.">Get_ky3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l2, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[2];
- <a name="l01124"></a>01124 kkz = l3 * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[3];
- <a name="l01125"></a>01125 kkperp = sqrt(kkx*kkx + kky*kky);
- <a name="l01126"></a>01126
- <a name="l01127"></a>01127 <span class="keywordflow">if</span> (kkmag > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01128"></a>01128 <span class="keywordflow">if</span> ( kkperp > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01129"></a>01129 {
- <a name="l01130"></a>01130 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag);
- <a name="l01131"></a>01131 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
- <a name="l01132"></a>01132 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp);
- <a name="l01133"></a>01133 }
- <a name="l01134"></a>01134
- <a name="l01135"></a>01135 <span class="keywordflow">else</span> <span class="comment">// k along z axis. V on the x-y plane.</span>
- <a name="l01136"></a>01136 {
- <a name="l01137"></a>01137 (*V1)(l1, l2, l3) = 0.0;
- <a name="l01138"></a>01138 (*V2)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * cos(phase3);
- <a name="l01139"></a>01139 (*V3)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01140"></a>01140 }
- <a name="l01141"></a>01141
- <a name="l01142"></a>01142 ekT = (*T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, kfactor);
- <a name="l01143"></a>01143 ampT = sqrt(2*ekT);
- <a name="l01144"></a>01144 phaseT = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
- <a name="l01145"></a>01145
- <a name="l01146"></a>01146 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3) = ampT * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phaseT);
- <a name="l01147"></a>01147
- <a name="l01148"></a>01148 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01149"></a>01149 {
- <a name="l01150"></a>01150 (*V1)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3); <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y) </span>
- <a name="l01151"></a>01151 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3);
- <a name="l01152"></a>01152 }
- <a name="l01153"></a>01153 }
- <a name="l01154"></a>01154
- <a name="l01155"></a>01155 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01156"></a>01156 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;
- <a name="l01157"></a>01157
- <a name="l01158"></a>01158 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">IncFluid::Satisfy_reality_condition_field</a>(T);
- <a name="l01159"></a>01159
- <a name="l01160"></a>01160 }
- <a name="l01161"></a>01161
- <a name="l01162"></a>01162 <span class="comment">//</span>
- <a name="l01163"></a>01163 <span class="comment">// Vector: MHD</span>
- <a name="l01164"></a>01164 <span class="comment">// skb = HM(k) * k/ EW(k) [para(4)]</span>
- <a name="l01165"></a>01165 <span class="comment">// h = 2*Hc / (amp, ampW) [para(5)]</span>
- <a name="l01166"></a>01166 <span class="comment">// </span>
- <a name="l01167"></a>01167
- <a name="l01168"></a>01168 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01169"></a><a class="code" href="classIncFluid.html#99e97fe3ab371c1225e83f8e7c1e8bce">01169</a> {
- <a name="l01170"></a>01170
- <a name="l01171"></a>01171 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
- <a name="l01172"></a>01172 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekW, ampW, h, skb, phase1W, phase2W, phase3W;
- <a name="l01173"></a>01173 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> tempa, tempb, tempc, temp_angle, phase2_min_phase1, phase2W_min_phase1W, cos_phase1W_min_phase1;
- <a name="l01174"></a>01174 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> temp;
- <a name="l01175"></a>01175 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
- <a name="l01176"></a>01176 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2, wperp1, wperp2;
- <a name="l01177"></a>01177 <span class="keywordtype">int</span> index;
- <a name="l01178"></a>01178
- <a name="l01179"></a>01179 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01180"></a>01180 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> sk = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01181"></a>01181
- <a name="l01182"></a>01182 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *W.<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>, init_cond_para(3));
- <a name="l01183"></a>01183 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> skW = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(4); <span class="comment">// = HM(k) * k / EW(k)</span>
- <a name="l01184"></a>01184 h = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(5); <span class="comment">// = 2*Hc/(amp*ampW)</span>
- <a name="l01185"></a>01185
- <a name="l01186"></a>01186 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l01187"></a>01187 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l01188"></a>01188 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l01189"></a>01189 {
- <a name="l01190"></a>01190 kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f" title="3D: If WAVENOACTUAL ; else if WAVENOGRID .">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, l2, l3, N, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01191"></a>01191 index = ((int) kkmag);
- <a name="l01192"></a>01192
- <a name="l01193"></a>01193 ek = (*CV_shell_ek)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01194"></a>01194 amp = sqrt(2*ek);
- <a name="l01195"></a>01195
- <a name="l01196"></a>01196 <span class="comment">/* Method 1: Not being used at present</span>
- <a name="l01197"></a>01197 <span class="comment"> phase3 = M_PI/4.0;</span>
- <a name="l01198"></a>01198 <span class="comment"> phase2_min_phase1 = asin(sk);</span>
- <a name="l01199"></a>01199 <span class="comment"> phase1 = 2*M_PI * SPECrand.random();</span>
- <a name="l01200"></a>01200 <span class="comment"> phase2 = phase1 + phase2_min_phase1;</span>
- <a name="l01201"></a>01201 <span class="comment"> */</span>
- <a name="l01202"></a>01202
- <a name="l01203"></a>01203 <span class="comment">// Method 2</span>
- <a name="l01204"></a>01204
- <a name="l01205"></a>01205 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
- <a name="l01206"></a>01206 phase2 = phase1 + M_PI/2.0;
- <a name="l01207"></a>01207 phase3 = asin(sk)/2.0; <span class="comment">// zeta</span>
- <a name="l01208"></a>01208
- <a name="l01209"></a>01209 <span class="comment">//</span>
- <a name="l01210"></a>01210
- <a name="l01211"></a>01211 uperp1 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01212"></a>01212 uperp2 = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase2) * cos(phase3);
- <a name="l01213"></a>01213
- <a name="l01214"></a>01214 kkx = <a class="code" href="universal__inline_8h.html#689d2012c5b850a7fb3c7ed3bf41f628" title="Get grid waveno kx given first array index l1 (local).">Get_kx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l1, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[1];
- <a name="l01215"></a>01215 kky = <a class="code" href="universal__inline_8h.html#7c519d4b91b5cdbe1d4f3bd09d369a80" title="3D: Get grid waveno ky given second array index l2.">Get_ky3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, l2, N) * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[2];
- <a name="l01216"></a>01216 kkz = l3 * <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>[3];
- <a name="l01217"></a>01217 kkperp = sqrt(kkx*kkx + kky*kky);
- <a name="l01218"></a>01218
- <a name="l01219"></a>01219 <span class="keywordflow">if</span> (kkmag > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01220"></a>01220 <span class="keywordflow">if</span> ( kkperp > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01221"></a>01221 {
- <a name="l01222"></a>01222 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag);
- <a name="l01223"></a>01223 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
- <a name="l01224"></a>01224 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp);
- <a name="l01225"></a>01225 }
- <a name="l01226"></a>01226
- <a name="l01227"></a>01227 <span class="keywordflow">else</span> <span class="comment">// k along z axis. V on the x-y plane.</span>
- <a name="l01228"></a>01228 {
- <a name="l01229"></a>01229 (*V1)(l1, l2, l3) = 0.0;
- <a name="l01230"></a>01230 (*V2)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * cos(phase3);
- <a name="l01231"></a>01231 (*V3)(l1, l2, l3) = amp * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01232"></a>01232 }
- <a name="l01233"></a>01233
- <a name="l01234"></a>01234 <span class="comment">// W field</span>
- <a name="l01235"></a>01235 ekW = (*W.<a class="code" href="classCVF.html#c97a9ecd76398235d8f2178a25597975" title="Sum of the above energies of Vx, Vy, and Vz in shell k.">CV_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, kfactor);
- <a name="l01236"></a>01236 ampW = sqrt(2*ekW);
- <a name="l01237"></a>01237
- <a name="l01238"></a>01238 <span class="comment">/* Method1 : Not being used at present </span>
- <a name="l01239"></a>01239 <span class="comment"> phase3W = M_PI/4.0;</span>
- <a name="l01240"></a>01240 <span class="comment"> phase2W_min_phase1W = asin(skW);</span>
- <a name="l01241"></a>01241 <span class="comment"> temp_angle = phase2 - phase1 - phase2W_min_phase1W;</span>
- <a name="l01242"></a>01242 <span class="comment"> </span>
- <a name="l01243"></a>01243 <span class="comment"> tempa = 1 + cos(temp_angle);</span>
- <a name="l01244"></a>01244 <span class="comment"> tempb = -2 * h * (1 + cos(temp_angle));</span>
- <a name="l01245"></a>01245 <span class="comment"> tempc = 2*h*h - pow2(sin(temp_angle))/2;</span>
- <a name="l01246"></a>01246 <span class="comment"> </span>
- <a name="l01247"></a>01247 <span class="comment"> // We are taking only the + sign of the sqrt.. CHECK</span>
- <a name="l01248"></a>01248 <span class="comment"> cos_phase1W_min_phase1 = (-tempb + sqrt(pow2(tempb) - 4*tempa*tempc) )/(2*tempa); </span>
- <a name="l01249"></a>01249 <span class="comment"> phase1W = acos(cos_phase1W_min_phase1) + phase1;</span>
- <a name="l01250"></a>01250 <span class="comment"> phase2W = phase2W_min_phase1W + phase1W;</span>
- <a name="l01251"></a>01251 <span class="comment"> */</span>
- <a name="l01252"></a>01252
- <a name="l01253"></a>01253 <span class="comment">// Method 2</span>
- <a name="l01254"></a>01254
- <a name="l01255"></a>01255 phase3W = asin(skW)/2.0; <span class="comment">// zeta_b </span>
- <a name="l01256"></a>01256 temp = h / (sin(phase3)*sin(phase3W) + cos(phase3)*cos(phase3W));
- <a name="l01257"></a>01257
- <a name="l01258"></a>01258 phase1W = phase1 - acos(temp);
- <a name="l01259"></a>01259 phase2W = phase1W + M_PI/2.0;
- <a name="l01260"></a>01260
- <a name="l01261"></a>01261 <span class="comment">//</span>
- <a name="l01262"></a>01262
- <a name="l01263"></a>01263 wperp1 = ampW * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1W) * sin(phase3W);
- <a name="l01264"></a>01264 wperp2 = ampW * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase2W) * cos(phase3W);
- <a name="l01265"></a>01265
- <a name="l01266"></a>01266 <span class="keywordflow">if</span> (kkmag > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01267"></a>01267 <span class="keywordflow">if</span> ( kkperp > <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
- <a name="l01268"></a>01268 {
- <a name="l01269"></a>01269 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3) = wperp1 * (-kkperp/kkmag);
- <a name="l01270"></a>01270 (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(l1, l2, l3) = wperp1 * (kkz/kkmag)*(kkx/kkperp) + wperp2 * (kky/kkperp);
- <a name="l01271"></a>01271 (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(l1, l2, l3) = wperp1 * (kkz/kkmag)*(kky/kkperp) + wperp2 * (-kkx/kkperp);
- <a name="l01272"></a>01272 }
- <a name="l01273"></a>01273
- <a name="l01274"></a>01274 <span class="keywordflow">else</span> <span class="comment">// k along z axis. V on the x-y plane.</span>
- <a name="l01275"></a>01275 {
- <a name="l01276"></a>01276 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3) = 0.0;
- <a name="l01277"></a>01277 (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(l1, l2, l3) = ampW * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * cos(phase3);
- <a name="l01278"></a>01278 (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(l1, l2, l3) = ampW * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phase1) * sin(phase3);
- <a name="l01279"></a>01279 }
- <a name="l01280"></a>01280
- <a name="l01281"></a>01281 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01282"></a>01282 {
- <a name="l01283"></a>01283 (*V1)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3); <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y) </span>
- <a name="l01284"></a>01284 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3);
- <a name="l01285"></a>01285 }
- <a name="l01286"></a>01286 }
- <a name="l01287"></a>01287
- <a name="l01288"></a>01288 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01289"></a>01289 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01290"></a>01290
- <a name="l01291"></a>01291 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W);
- <a name="l01292"></a>01292
- <a name="l01293"></a>01293 }
- <a name="l01294"></a>01294
- <a name="l01295"></a>01295 <span class="comment">//</span>
- <a name="l01296"></a>01296 <span class="comment">// MHD+scalar</span>
- <a name="l01297"></a>01297 <span class="comment">//</span>
- <a name="l01298"></a>01298
- <a name="l01299"></a>01299 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01300"></a><a class="code" href="classIncFluid.html#2c43d3169f2ba5b96a9bd8245921fa31">01300</a> {
- <a name="l01301"></a>01301
- <a name="l01302"></a>01302 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekT, ampT, phaseT;
- <a name="l01303"></a>01303 <span class="keywordtype">int</span> index;
- <a name="l01304"></a>01304
- <a name="l01305"></a>01305 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, init_cond_para);
- <a name="l01306"></a>01306
- <a name="l01307"></a>01307 <a class="code" href="array__basic_8cc.html#19a74cb380f15de3c4fd63acd89ac1ba" title="Model initial shell spectrum.">Model_initial_isotropic_Sk</a>(<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>, init_cond_para(6));
- <a name="l01308"></a>01308
- <a name="l01309"></a>01309 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1<<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
- <a name="l01310"></a>01310 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++)
- <a name="l01311"></a>01311 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3<=N[3]/2; l3++)
- <a name="l01312"></a>01312 {
- <a name="l01313"></a>01313 ekT = (*T.<a class="code" href="classCSF.html#27c268f97e4e85784e9c7da0ea61d80d" title="Energy of F in shell k.">CS_shell_ek</a>)(index) / <a class="code" href="universal__inline_8h.html#a27d52394857bc1eda5f21ce66057120" title="Returns the approximate number of modes in a wavenumber K shell of radius &quot;radius&quot;...">Approx_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, index, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01314"></a>01314 ampT = sqrt(2*ekT);
- <a name="l01315"></a>01315 phaseT = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
- <a name="l01316"></a>01316
- <a name="l01317"></a>01317 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3) = ampT * exp(<a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * phaseT);
- <a name="l01318"></a>01318
- <a name="l01319"></a>01319 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01320"></a>01320 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3) = <a class="code" href="basis__basicfn__inline_8h.html#45e47d389068d212e193dd103c7e4adc" title="I = sqrt(-1).">I</a> * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(l1, l2, l3);
- <a name="l01321"></a>01321 <span class="comment">// because of F(x) = F(k..) sin(kx*x)*exp(i ky y) </span>
- <a name="l01322"></a>01322 }
- <a name="l01323"></a>01323
- <a name="l01324"></a>01324 (*V1)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01325"></a>01325 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(0,0,0) = 0.0;
- <a name="l01326"></a>01326 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;
- <a name="l01327"></a>01327
- <a name="l01328"></a>01328 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W, T);
- <a name="l01329"></a>01329 }
- <a name="l01330"></a>01330
- <a name="l01331"></a>01331 <span class="comment">/*=============================================================================</span>
- <a name="l01332"></a>01332 <span class="comment"></span>
- <a name="l01333"></a>01333 <span class="comment"> Taylor Green initialize</span>
- <a name="l01334"></a>01334 <span class="comment"> Vx = amp*sin(k0 x) cos(k0 y) cos(k0 z)</span>
- <a name="l01335"></a>01335 <span class="comment"> Vy = -amp*cos(k0 x)sin(k0 y) cos(k0 z)</span>
- <a name="l01336"></a>01336 <span class="comment"> Vz = 0</span>
- <a name="l01337"></a>01337 <span class="comment"></span>
- <a name="l01338"></a>01338 <span class="comment">=================================================================================*/</span>
- <a name="l01339"></a>01339
- <a name="l01340"></a>01340 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01341"></a><a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">01341</a> {
- <a name="l01342"></a>01342
- <a name="l01343"></a>01343 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01344"></a>01344 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01345"></a>01345
- <a name="l01346"></a>01346 <a class="code" href="classIncVF.html#a748e31a87adc90853ad3308b5544fd1" title="Init condition for Taylor Green flow.">Setup_Taylor_Green_field</a>(k0, amp);
- <a name="l01347"></a>01347
- <a name="l01348"></a>01348 }
- <a name="l01349"></a>01349
- <a name="l01350"></a>01350 <span class="comment">//</span>
- <a name="l01351"></a>01351 <span class="comment">// Scalar </span>
- <a name="l01352"></a>01352 <span class="comment">//</span>
- <a name="l01353"></a>01353
- <a name="l01354"></a>01354 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01355"></a><a class="code" href="classIncFluid.html#e4fd2c4065abb34ce1769e1baff3be92">01355</a> {
- <a name="l01356"></a>01356
- <a name="l01357"></a>01357 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(init_cond_para);
- <a name="l01358"></a>01358
- <a name="l01359"></a>01359 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
- <a name="l01360"></a>01360 }
- <a name="l01361"></a>01361
- <a name="l01362"></a>01362
- <a name="l01363"></a>01363 <span class="comment">//</span>
- <a name="l01364"></a>01364 <span class="comment">// Vector</span>
- <a name="l01365"></a>01365 <span class="comment">//</span>
- <a name="l01366"></a>01366
- <a name="l01367"></a>01367 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01368"></a><a class="code" href="classIncFluid.html#c69ed54da95c9b5722cd48867adc1a7c">01368</a> {
- <a name="l01369"></a>01369
- <a name="l01370"></a>01370 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01371"></a>01371 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01372"></a>01372 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ampW = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
- <a name="l01373"></a>01373
- <a name="l01374"></a>01374 <a class="code" href="classIncVF.html#a748e31a87adc90853ad3308b5544fd1" title="Init condition for Taylor Green flow.">Setup_Taylor_Green_field</a>(k0, amp);
- <a name="l01375"></a>01375 W.<a class="code" href="classIncVF.html#a748e31a87adc90853ad3308b5544fd1" title="Init condition for Taylor Green flow.">Setup_Taylor_Green_field</a>(k0, ampW);
- <a name="l01376"></a>01376 }
- <a name="l01377"></a>01377
- <a name="l01378"></a>01378 <span class="comment">//</span>
- <a name="l01379"></a>01379 <span class="comment">// Vector+scalar</span>
- <a name="l01380"></a>01380 <span class="comment">//</span>
- <a name="l01381"></a>01381
- <a name="l01382"></a>01382 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01383"></a><a class="code" href="classIncFluid.html#fbd0c8be5102105616bebd532433f87a">01383</a> {
- <a name="l01384"></a>01384
- <a name="l01385"></a>01385 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);
- <a name="l01386"></a>01386
- <a name="l01387"></a>01387 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
- <a name="l01388"></a>01388 }
- <a name="l01389"></a>01389
- <a name="l01390"></a>01390 <span class="comment">/*=============================================================================</span>
- <a name="l01391"></a>01391 <span class="comment"></span>
- <a name="l01392"></a>01392 <span class="comment"> ABC Flow</span>
- <a name="l01393"></a>01393 <span class="comment"> Vx = amp*sin(k0 x) cos(k0 y) cos(k0 z)</span>
- <a name="l01394"></a>01394 <span class="comment"> Vy = -amp*cos(k0 x)sin(k0 y) cos(k0 z)</span>
- <a name="l01395"></a>01395 <span class="comment"> Vz = 0</span>
- <a name="l01396"></a>01396 <span class="comment"></span>
- <a name="l01397"></a>01397 <span class="comment"> SCFT basis NOT APPROPRIATE for RB Boundary condition</span>
- <a name="l01398"></a>01398 <span class="comment"> </span>
- <a name="l01399"></a>01399 <span class="comment">=================================================================================*/</span>
- <a name="l01400"></a>01400
- <a name="l01401"></a>01401
- <a name="l01402"></a>01402 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01403"></a><a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">01403</a> {
- <a name="l01404"></a>01404 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
- <a name="l01405"></a>01405 {
- <a name="l01406"></a>01406 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01407"></a>01407 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> A = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01408"></a>01408 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
- <a name="l01409"></a>01409 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> C = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(4);
- <a name="l01410"></a>01410 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(5);
- <a name="l01411"></a>01411
- <a name="l01412"></a>01412 <a class="code" href="classIncVF.html#a5634fa09a1427498fa38d26e72ef665" title="Init condition for Taylor Green flow.">Setup_ABC_field</a>(k0, amp, A, B, C);
- <a name="l01413"></a>01413 }
- <a name="l01414"></a>01414
- <a name="l01415"></a>01415 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01416"></a>01416 {
- <a name="l01417"></a>01417 cout << <span class="stringliteral">"ABC field not allowed for SCFT "</span> << endl;
- <a name="l01418"></a>01418 exit(0);
- <a name="l01419"></a>01419 }
- <a name="l01420"></a>01420 }
- <a name="l01421"></a>01421
- <a name="l01422"></a>01422 <span class="comment">//</span>
- <a name="l01423"></a>01423 <span class="comment">// Scalar </span>
- <a name="l01424"></a>01424 <span class="comment">//</span>
- <a name="l01425"></a>01425
- <a name="l01426"></a>01426 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01427"></a><a class="code" href="classIncFluid.html#ef28bfc254c9d7c1077da6f4b0995954">01427</a> {
- <a name="l01428"></a>01428
- <a name="l01429"></a>01429 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
- <a name="l01430"></a>01430 {
- <a name="l01431"></a>01431 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(init_cond_para);
- <a name="l01432"></a>01432
- <a name="l01433"></a>01433 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
- <a name="l01434"></a>01434 }
- <a name="l01435"></a>01435
- <a name="l01436"></a>01436 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01437"></a>01437 {
- <a name="l01438"></a>01438 cout << <span class="stringliteral">"ABC field not allowed for SCFT "</span> << endl;
- <a name="l01439"></a>01439 exit(0);
- <a name="l01440"></a>01440 }
- <a name="l01441"></a>01441 }
- <a name="l01442"></a>01442
- <a name="l01443"></a>01443
- <a name="l01444"></a>01444 <span class="comment">//</span>
- <a name="l01445"></a>01445 <span class="comment">// Vector</span>
- <a name="l01446"></a>01446 <span class="comment">//</span>
- <a name="l01447"></a>01447
- <a name="l01448"></a>01448 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01449"></a><a class="code" href="classIncFluid.html#c8eb33c86b27c3feb2dc743a8549ab45">01449</a> {
- <a name="l01450"></a>01450
- <a name="l01451"></a>01451 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
- <a name="l01452"></a>01452 {
- <a name="l01453"></a>01453 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01454"></a>01454 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> A = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01455"></a>01455 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
- <a name="l01456"></a>01456 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> C = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(4);
- <a name="l01457"></a>01457 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(5);
- <a name="l01458"></a>01458 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ampW = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(6);
- <a name="l01459"></a>01459
- <a name="l01460"></a>01460 <a class="code" href="classIncVF.html#a5634fa09a1427498fa38d26e72ef665" title="Init condition for Taylor Green flow.">Setup_ABC_field</a>(k0, amp, A, B, C);
- <a name="l01461"></a>01461 W.<a class="code" href="classIncVF.html#a5634fa09a1427498fa38d26e72ef665" title="Init condition for Taylor Green flow.">Setup_ABC_field</a>(k0, ampW, A, B, C);
- <a name="l01462"></a>01462 }
- <a name="l01463"></a>01463
- <a name="l01464"></a>01464 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01465"></a>01465 {
- <a name="l01466"></a>01466 cout << <span class="stringliteral">"ABC field not allowed for SCFT "</span> << endl;
- <a name="l01467"></a>01467 exit(0);
- <a name="l01468"></a>01468 }
- <a name="l01469"></a>01469 }
- <a name="l01470"></a>01470
- <a name="l01471"></a>01471 <span class="comment">//</span>
- <a name="l01472"></a>01472 <span class="comment">// Vector+scalar</span>
- <a name="l01473"></a>01473 <span class="comment">//</span>
- <a name="l01474"></a>01474
- <a name="l01475"></a>01475 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01476"></a><a class="code" href="classIncFluid.html#261783c58a9c2903abbe6d1c83dbc471">01476</a> {
- <a name="l01477"></a>01477
- <a name="l01478"></a>01478 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
- <a name="l01479"></a>01479 {
- <a name="l01480"></a>01480 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);
- <a name="l01481"></a>01481
- <a name="l01482"></a>01482 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
- <a name="l01483"></a>01483 }
- <a name="l01484"></a>01484
- <a name="l01485"></a>01485 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
- <a name="l01486"></a>01486 {
- <a name="l01487"></a>01487 cout << <span class="stringliteral">"ABC field not allowed for SCFT "</span> << endl;
- <a name="l01488"></a>01488 exit(0);
- <a name="l01489"></a>01489 }
- <a name="l01490"></a>01490 }
- <a name="l01491"></a>01491
- <a name="l01492"></a>01492 <span class="comment">/*====================================================================================</span>
- <a name="l01493"></a>01493 <span class="comment"></span>
- <a name="l01494"></a>01494 <span class="comment"> Dynamo - 6 mode model (112) </span>
- <a name="l01495"></a>01495 <span class="comment"> </span>
- <a name="l01496"></a>01496 <span class="comment">====================================================================================*/</span>
- <a name="l01497"></a>01497
- <a name="l01498"></a>01498 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#6ad79b117329b4d33d6d0d2a48615b53">IncFluid::Init_cond_DYNAMO_SIX_MODE</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01499"></a><a class="code" href="classIncFluid.html#6ad79b117329b4d33d6d0d2a48615b53">01499</a> {
- <a name="l01500"></a>01500
- <a name="l01501"></a>01501 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
- <a name="l01502"></a>01502 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01503"></a>01503 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp011 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
- <a name="l01504"></a>01504 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp112 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(4);
- <a name="l01505"></a>01505 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(5);
- <a name="l01506"></a>01506 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ampW101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(6);
- <a name="l01507"></a>01507 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ampW011 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(7);
- <a name="l01508"></a>01508 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ampW112 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(8);
- <a name="l01509"></a>01509 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> hW = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(9);
- <a name="l01510"></a>01510
- <a name="l01511"></a>01511 <a class="code" href="classIncVF.html#cf0158a6450708924e3d82cca92a457e">Setup_SIX_MODE_field</a>(k0, amp101, amp011, amp112, h);
- <a name="l01512"></a>01512 W.<a class="code" href="classIncVF.html#cf0158a6450708924e3d82cca92a457e">Setup_SIX_MODE_field</a>(k0, ampW101, ampW011, ampW112, hW);
- <a name="l01513"></a>01513 }
- <a name="l01514"></a>01514
- <a name="l01515"></a>01515
- <a name="l01516"></a>01516
- <a name="l01517"></a>01517 <span class="comment">/*====================================================================================</span>
- <a name="l01518"></a>01518 <span class="comment"> Lorenz condition </span>
- <a name="l01519"></a>01519 <span class="comment"> 2D: W11, T11, T20</span>
- <a name="l01520"></a>01520 <span class="comment"> 3D: W101, T101, T200 </span>
- <a name="l01521"></a>01521 <span class="comment">====================================================================================*/</span>
- <a name="l01522"></a>01522
- <a name="l01523"></a>01523
- <a name="l01524"></a>01524 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#55d61b9682d43cb8ce9aafcbb8f9e9db">IncFluid::Init_cond_RB_Lorenz</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01525"></a><a class="code" href="classIncFluid.html#55d61b9682d43cb8ce9aafcbb8f9e9db">01525</a> {
- <a name="l01526"></a>01526
- <a name="l01527"></a>01527 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> W101,T101,T200;
- <a name="l01528"></a>01528 W101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1);
- <a name="l01529"></a>01529 T101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
- <a name="l01530"></a>01530 T200 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
- <a name="l01531"></a>01531
- <a name="l01532"></a>01532 (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
- <a name="l01533"></a>01533 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
- <a name="l01534"></a>01534
- <a name="l01535"></a>01535 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>)
- <a name="l01536"></a>01536 {
- <a name="l01537"></a>01537 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> Vz;
- <a name="l01538"></a>01538
- <a name="l01539"></a>01539 (*V1)(1,0,1) = complex<DP>(W101,0);
- <a name="l01540"></a>01540 (*V2)(1,0,1) = complex<DP>(0, 0);
- <a name="l01541"></a>01541 <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa" title="Compute the last component Vy.">Last_component</a>(1, 0, 1, (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(1,0,1), (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(1,0,1), Vz);
- <a name="l01542"></a>01542 (*V3)(1,0,1) = Vz;
- <a name="l01543"></a>01543
- <a name="l01544"></a>01544 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(2,0,0)=complex<DP>(T200,0);
- <a name="l01545"></a>01545 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(1,0,1)=complex<DP>(T101,0);
- <a name="l01546"></a>01546
- <a name="l01547"></a>01547 cout << <span class="stringliteral">"init cond V: Lorenz vars V1(101), V2(101), V3(101), T(101), T(200): "</span> << endl
- <a name="l01548"></a>01548 << (*V1)(1,0,1) << <span class="stringliteral">" "</span> << (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(1,0,1) << <span class="stringliteral">" "</span> << (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(1,0,1) << <span class="stringliteral">" "</span>
- <a name="l01549"></a>01549 << (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(1,0,1) << <span class="stringliteral">" "</span> << (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(2,0,0) << endl;
- <a name="l01550"></a>01550 }
- <a name="l01551"></a>01551 }
- <a name="l01552"></a>01552
- <a name="l01553"></a>01553
- <a name="l01554"></a>01554
- <a name="l01555"></a>01555 <span class="comment">/*====================================================================================</span>
- <a name="l01556"></a>01556 <span class="comment"></span>
- <a name="l01557"></a>01557 <span class="comment"> For RB convection</span>
- <a name="l01558"></a>01558 <span class="comment"> if Pr == 0</span>
- <a name="l01559"></a>01559 <span class="comment"> We read the velocity field and compute the temperature using T(k) = v3(k)/k^2</span>
- <a name="l01560"></a>01560 <span class="comment"> else do as usal scalar. </span>
- <a name="l01561"></a>01561 <span class="comment"> </span>
- <a name="l01562"></a>01562 <span class="comment">====================================================================================*/</span>
- <a name="l01563"></a>01563
- <a name="l01564"></a>01564 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l01565"></a><a class="code" href="classIncFluid.html#1dd19db89ec339e7a038e4c1c534986a">01565</a> {
- <a name="l01566"></a>01566
- <a name="l01567"></a>01567 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01568"></a>01568 {
- <a name="l01569"></a>01569 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(nos_input_field_mode);
- <a name="l01570"></a>01570 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01571"></a>01571 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01572"></a>01572 }
- <a name="l01573"></a>01573
- <a name="l01574"></a>01574 <span class="keywordflow">else</span>
- <a name="l01575"></a>01575 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, nos_input_field_mode);
- <a name="l01576"></a>01576
- <a name="l01577"></a>01577 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01578"></a>01578 }
- <a name="l01579"></a>01579
- <a name="l01580"></a>01580
- <a name="l01581"></a>01581 <span class="comment">// From Nreduced</span>
- <a name="l01582"></a>01582
- <a name="l01583"></a>01583 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l01584"></a><a class="code" href="classIncFluid.html#d7d928630d5249f4fb36329594f84513">01584</a> {
- <a name="l01585"></a>01585
- <a name="l01586"></a>01586 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01587"></a>01587 {
- <a name="l01588"></a>01588 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Nreduced, nos_input_field_mode);
- <a name="l01589"></a>01589 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01590"></a>01590 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01591"></a>01591 }
- <a name="l01592"></a>01592
- <a name="l01593"></a>01593 <span class="keywordflow">else</span>
- <a name="l01594"></a>01594 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, Nreduced, nos_input_field_mode);
- <a name="l01595"></a>01595
- <a name="l01596"></a>01596 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01597"></a>01597 }
- <a name="l01598"></a>01598
- <a name="l01599"></a>01599
- <a name="l01600"></a>01600 <span class="comment">// From Wavenumber modes: </span>
- <a name="l01601"></a>01601 <span class="comment">// Scalar</span>
- <a name="l01602"></a>01602
- <a name="l01603"></a>01603 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01604"></a>01604 {
- <a name="l01605"></a>01605
- <a name="l01606"></a>01606 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01607"></a>01607 {
- <a name="l01608"></a>01608 <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>();
- <a name="l01609"></a>01609 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01610"></a>01610 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01611"></a>01611 }
- <a name="l01612"></a>01612
- <a name="l01613"></a>01613 <span class="keywordflow">else</span>
- <a name="l01614"></a>01614 <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(T);
- <a name="l01615"></a>01615
- <a name="l01616"></a>01616 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01617"></a>01617
- <a name="l01618"></a>01618 }
- <a name="l01619"></a>01619
- <a name="l01620"></a>01620 <span class="comment">//</span>
- <a name="l01621"></a>01621 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01622"></a>01622 {
- <a name="l01623"></a>01623
- <a name="l01624"></a>01624 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01625"></a>01625 {
- <a name="l01626"></a>01626 <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>();
- <a name="l01627"></a>01627 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01628"></a>01628 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01629"></a>01629 }
- <a name="l01630"></a>01630
- <a name="l01631"></a>01631 <span class="keywordflow">else</span>
- <a name="l01632"></a>01632 <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(T);
- <a name="l01633"></a>01633
- <a name="l01634"></a>01634 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01635"></a>01635
- <a name="l01636"></a>01636 }
- <a name="l01637"></a>01637
- <a name="l01638"></a>01638 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01639"></a><a class="code" href="classIncFluid.html#37975f4869fcaf43676559a8a989a866">01639</a> {
- <a name="l01640"></a>01640
- <a name="l01641"></a>01641 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01642"></a>01642 {
- <a name="l01643"></a>01643 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(init_cond_para);
- <a name="l01644"></a>01644 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01645"></a>01645 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01646"></a>01646 }
- <a name="l01647"></a>01647
- <a name="l01648"></a>01648 <span class="keywordflow">else</span>
- <a name="l01649"></a>01649 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(T, init_cond_para);
- <a name="l01650"></a>01650
- <a name="l01651"></a>01651 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01652"></a>01652 }
- <a name="l01653"></a>01653
- <a name="l01654"></a>01654
- <a name="l01655"></a>01655 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01656"></a><a class="code" href="classIncFluid.html#58d520259f4da421bf6e18b2b05738a1">01656</a> {
- <a name="l01657"></a>01657
- <a name="l01658"></a>01658 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01659"></a>01659 {
- <a name="l01660"></a>01660 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(init_cond_para);
- <a name="l01661"></a>01661 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01662"></a>01662 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01663"></a>01663 }
- <a name="l01664"></a>01664
- <a name="l01665"></a>01665 <span class="keywordflow">else</span>
- <a name="l01666"></a>01666 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(T, init_cond_para);
- <a name="l01667"></a>01667
- <a name="l01668"></a>01668 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01669"></a>01669
- <a name="l01670"></a>01670 }
- <a name="l01671"></a>01671
- <a name="l01672"></a>01672
- <a name="l01673"></a>01673 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01674"></a><a class="code" href="classIncFluid.html#5378a2f3e63901e0cfea53bd0cf01e64">01674</a> {
- <a name="l01675"></a>01675
- <a name="l01676"></a>01676 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01677"></a>01677 {
- <a name="l01678"></a>01678 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(init_cond_para);
- <a name="l01679"></a>01679 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01680"></a>01680 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01681"></a>01681 }
- <a name="l01682"></a>01682
- <a name="l01683"></a>01683 <span class="keywordflow">else</span>
- <a name="l01684"></a>01684 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(T, init_cond_para);
- <a name="l01685"></a>01685
- <a name="l01686"></a>01686 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01687"></a>01687
- <a name="l01688"></a>01688 }
- <a name="l01689"></a>01689
- <a name="l01690"></a>01690
- <a name="l01691"></a>01691 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01692"></a><a class="code" href="classIncFluid.html#d54d646fb133045e06f085f7fb62ab41">01692</a> {
- <a name="l01693"></a>01693
- <a name="l01694"></a>01694 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01695"></a>01695 {
- <a name="l01696"></a>01696 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(init_cond_para);
- <a name="l01697"></a>01697 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01698"></a>01698 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01699"></a>01699 }
- <a name="l01700"></a>01700
- <a name="l01701"></a>01701 <span class="keywordflow">else</span>
- <a name="l01702"></a>01702 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(T, init_cond_para);
- <a name="l01703"></a>01703
- <a name="l01704"></a>01704 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);
- <a name="l01705"></a>01705
- <a name="l01706"></a>01706 }
- <a name="l01707"></a>01707 <span class="comment">//</span>
- <a name="l01708"></a>01708 <span class="comment">// Magnetoconvection</span>
- <a name="l01709"></a>01709 <span class="comment">//</span>
- <a name="l01710"></a>01710 <span class="comment">//</span>
- <a name="l01711"></a>01711
- <a name="l01712"></a>01712 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l01713"></a><a class="code" href="classIncFluid.html#b6b3fa2fc14d4d9334b8d40ad86b1d31">01713</a> {
- <a name="l01714"></a>01714
- <a name="l01715"></a>01715 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01716"></a>01716 {
- <a name="l01717"></a>01717 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, nos_input_field_mode);
- <a name="l01718"></a>01718 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01719"></a>01719 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01720"></a>01720 }
- <a name="l01721"></a>01721
- <a name="l01722"></a>01722 <span class="keywordflow">else</span>
- <a name="l01723"></a>01723 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, nos_input_field_mode);
- <a name="l01724"></a>01724
- <a name="l01725"></a>01725 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01726"></a>01726 }
- <a name="l01727"></a>01727
- <a name="l01728"></a>01728 <span class="comment">//</span>
- <a name="l01729"></a>01729
- <a name="l01730"></a>01730 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">IncFluid::Init_cond</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
- <a name="l01731"></a><a class="code" href="classIncFluid.html#524c7eeae5deea4ce74f175d4054f762">01731</a> {
- <a name="l01732"></a>01732
- <a name="l01733"></a>01733 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01734"></a>01734 {
- <a name="l01735"></a>01735 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, Nreduced, nos_input_field_mode);
- <a name="l01736"></a>01736 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>; <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01737"></a>01737 }
- <a name="l01738"></a>01738
- <a name="l01739"></a>01739 <span class="keywordflow">else</span>
- <a name="l01740"></a>01740 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, Nreduced, nos_input_field_mode);
- <a name="l01741"></a>01741
- <a name="l01742"></a>01742 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01743"></a>01743 }
- <a name="l01744"></a>01744
- <a name="l01745"></a>01745 <span class="comment">//</span>
- <a name="l01746"></a>01746
- <a name="l01747"></a>01747 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_SIMPLE</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01748"></a>01748 {
- <a name="l01749"></a>01749
- <a name="l01750"></a>01750 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01751"></a>01751 {
- <a name="l01752"></a>01752 <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(W);
- <a name="l01753"></a>01753 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01754"></a>01754 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01755"></a>01755 }
- <a name="l01756"></a>01756
- <a name="l01757"></a>01757 <span class="keywordflow">else</span>
- <a name="l01758"></a>01758 <a class="code" href="classIncFluid.html#b81030f98a7ccac86253e6bdf2b2569d" title="Read V(k) for some modes as initial condition.">Init_cond_modes_SIMPLE</a>(W, T);
- <a name="l01759"></a>01759
- <a name="l01760"></a>01760 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01761"></a>01761 }
- <a name="l01762"></a>01762
- <a name="l01763"></a>01763 <span class="comment">//</span>
- <a name="l01764"></a>01764
- <a name="l01765"></a>01765 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">IncFluid::Init_cond_modes_VORTICITY</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01766"></a>01766 {
- <a name="l01767"></a>01767
- <a name="l01768"></a>01768 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01769"></a>01769 {
- <a name="l01770"></a>01770 <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(W);
- <a name="l01771"></a>01771 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01772"></a>01772 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01773"></a>01773 }
- <a name="l01774"></a>01774
- <a name="l01775"></a>01775 <span class="keywordflow">else</span>
- <a name="l01776"></a>01776 <a class="code" href="classIncFluid.html#212c6db89a6a788b7022e3911c2d5ffb" title="Read V(k) for some modes as initial condition.">Init_cond_modes_VORTICITY</a>(W, T);
- <a name="l01777"></a>01777
- <a name="l01778"></a>01778 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01779"></a>01779 }
- <a name="l01780"></a>01780
- <a name="l01781"></a>01781 <span class="comment">//</span>
- <a name="l01782"></a>01782 <span class="comment">//</span>
- <a name="l01783"></a>01783
- <a name="l01784"></a>01784 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01785"></a><a class="code" href="classIncFluid.html#83ccccc6f048ce4d0138465ceda52238">01785</a> {
- <a name="l01786"></a>01786
- <a name="l01787"></a>01787 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01788"></a>01788 {
- <a name="l01789"></a>01789 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, init_cond_para);
- <a name="l01790"></a>01790 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01791"></a>01791 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01792"></a>01792 }
- <a name="l01793"></a>01793
- <a name="l01794"></a>01794 <span class="keywordflow">else</span>
- <a name="l01795"></a>01795 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, T, init_cond_para);
- <a name="l01796"></a>01796
- <a name="l01797"></a>01797 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01798"></a>01798
- <a name="l01799"></a>01799 }
- <a name="l01800"></a>01800
- <a name="l01801"></a>01801
- <a name="l01802"></a>01802 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">IncFluid::Init_cond_energy_helicity_spectrum</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01803"></a><a class="code" href="classIncFluid.html#df606d12d00b0aad77c40b168c805130">01803</a> {
- <a name="l01804"></a>01804
- <a name="l01805"></a>01805 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01806"></a>01806 {
- <a name="l01807"></a>01807 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, init_cond_para);
- <a name="l01808"></a>01808 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01809"></a>01809 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01810"></a>01810 }
- <a name="l01811"></a>01811
- <a name="l01812"></a>01812 <span class="keywordflow">else</span>
- <a name="l01813"></a>01813 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, T, init_cond_para);
- <a name="l01814"></a>01814
- <a name="l01815"></a>01815 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01816"></a>01816 }
- <a name="l01817"></a>01817
- <a name="l01818"></a>01818 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01819"></a><a class="code" href="classIncFluid.html#9e490a699b8606b84973e79083cf9800">01819</a> {
- <a name="l01820"></a>01820
- <a name="l01821"></a>01821 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01822"></a>01822 {
- <a name="l01823"></a>01823 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);
- <a name="l01824"></a>01824 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01825"></a>01825 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01826"></a>01826 }
- <a name="l01827"></a>01827
- <a name="l01828"></a>01828 <span class="keywordflow">else</span>
- <a name="l01829"></a>01829 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, T, init_cond_para);
- <a name="l01830"></a>01830
- <a name="l01831"></a>01831 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01832"></a>01832 }
- <a name="l01833"></a>01833
- <a name="l01834"></a>01834
- <a name="l01835"></a>01835 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(<span class="keywordtype">string</span> Pr_switch, <a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T, Array<DP,1> <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
- <a name="l01836"></a><a class="code" href="classIncFluid.html#b938ee05698a3d018b11ffc6d831c84f">01836</a> {
- <a name="l01837"></a>01837
- <a name="l01838"></a>01838 <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>)
- <a name="l01839"></a>01839 {
- <a name="l01840"></a>01840 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, init_cond_para);
- <a name="l01841"></a>01841 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>;
- <a name="l01842"></a>01842 <a class="code" href="universal__basic_8cc.html#250facdc73ebf31d97baecbd80da63e0" title="3D: Replaces A(k) by ; A(0)=0.">Array_divide_ksqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c" title="Basis type: FOUR or SCFT.">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>, *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c" title="Conversion factor for grid to actual wavenumber: .">kfactor</a>);
- <a name="l01843"></a>01843 }
- <a name="l01844"></a>01844
- <a name="l01845"></a>01845 <span class="keywordflow">else</span>
- <a name="l01846"></a>01846 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, T, init_cond_para);
- <a name="l01847"></a>01847
- <a name="l01848"></a>01848 <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);
- <a name="l01849"></a>01849
- <a name="l01850"></a>01850 }
- <a name="l01851"></a>01851
- <a name="l01852"></a>01852 <span class="comment">/*====================================================================================</span>
- <a name="l01853"></a>01853 <span class="comment"></span>
- <a name="l01854"></a>01854 <span class="comment"> Zero_modes_RB_slip(IncSF& T)</span>
- <a name="l01855"></a>01855 <span class="comment"> </span>
- <a name="l01856"></a>01856 <span class="comment"> For RB convection, set to zero (*Vi)(0,j,k) and (*T.F)(0,j,k) </span>
- <a name="l01857"></a>01857 <span class="comment"> Reason: (*V1)(0,j,k) = (*T.F)(0,j,k) = 0 because sin(0)=0.</span>
- <a name="l01858"></a>01858 <span class="comment"> 2D: (*V2)(0,j)=0 due to incompressibilty.</span>
- <a name="l01859"></a>01859 <span class="comment"> 3D: (*V2,3)(0,j,k) = 0 by choice.</span>
- <a name="l01860"></a>01860 <span class="comment"> </span>
- <a name="l01861"></a>01861 <span class="comment">====================================================================================*/</span>
- <a name="l01862"></a>01862
- <a name="l01863"></a>01863
- <a name="l01864"></a>01864 <span class="keywordtype">void</span> <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">IncFluid::Zero_modes_RB_slip</a>(<a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01865"></a>01865 {
- <a name="l01866"></a>01866 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == 0) <span class="comment">// i = 0 reside in master node</span>
- <a name="l01867"></a>01867 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j=0; j<<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; j++)
- <a name="l01868"></a>01868 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> k=0; k<=N[3]/2; k++)
- <a name="l01869"></a>01869 (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(0,j,k) = (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,j,k) = 0.0;
- <a name="l01870"></a>01870
- <a name="l01871"></a>01871 }
- <a name="l01872"></a>01872
- <a name="l01873"></a>01873
- <a name="l01874"></a>01874 <span class="keywordtype">void</span> <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">IncFluid::Zero_modes_RB_slip</a>(<a class="code" href="classIncVF.html" title="Incompressible vector field IncVF.">IncVF</a>& W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>& T)
- <a name="l01875"></a>01875 {
- <a name="l01876"></a>01876 <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == 0)
- <a name="l01877"></a>01877 {
- <a name="l01878"></a>01878 cout << <span class="stringliteral">"Implement zero mode "</span> << endl;
- <a name="l01879"></a>01879 exit(0);
- <a name="l01880"></a>01880 }
- <a name="l01881"></a>01881 }
- <a name="l01882"></a>01882 <span class="comment">//============================ End of Init_cond.cc ==================================</span>
- <a name="l01883"></a>01883
- <a name="l01884"></a>01884
- <a name="l01885"></a>01885
- <a name="l01886"></a>01886
- <a name="l01887"></a>01887
- <a name="l01888"></a>01888
- <a name="l01889"></a>01889
- <a name="l01890"></a>01890
- <a name="l01891"></a>01891
- <a name="l01892"></a>01892
- <a name="l01893"></a>01893
- <a name="l01894"></a>01894
- <a name="l01895"></a>01895
- <a name="l01896"></a>01896
- <a name="l01897"></a>01897
- <a name="l01898"></a>01898
- <a name="l01899"></a>01899
- <a name="l01900"></a>01900
- </pre></div></div>
- <hr size="1"><address style="text-align: right;"><small>Generated on Wed May 13 18:02:40 2009 for TARANG-MPI by
- <a href="http://www.doxygen.org/index.html">
- <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.6 </small></address>
- </body>
- </html>