PageRenderTime 102ms CodeModel.GetById 28ms RepoModel.GetById 0ms app.codeStats 1ms

/trunk/DOC/html/init__cond__old_8cc-source.html

https://bitbucket.org/mchandra/tarang-mpi-old
HTML | 1922 lines | 1921 code | 0 blank | 1 comment | 0 complexity | 4ce6e9972fe2f6d40070fc5babf7e489 MD5 | raw file
Possible License(s): GPL-3.0 
    

  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    2. 

  2. <html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
    3. 

  3. <title>TARANG-MPI: init_cond_old.cc Source File</title>
    4. 

  4. <link href="doxygen.css" rel="stylesheet" type="text/css">
    5. 

  5. <link href="tabs.css" rel="stylesheet" type="text/css">
    6. 

  6. </head><body>
    7. 

  7. <!-- Generated by Doxygen 1.5.6 -->
    8. 

  8. <div class="navigation" id="top">
    9. 

  9.   <div class="tabs">
    10. 

  10.     <ul>
    11. 

  11.       <li><a href="index.html"><span>Main&nbsp;Page</span></a></li>
    12. 

  12.       <li><a href="pages.html"><span>Related&nbsp;Pages</span></a></li>
    13. 

  13.       <li><a href="annotated.html"><span>Data&nbsp;Structures</span></a></li>
    14. 

  14.       <li class="current"><a href="files.html"><span>Files</span></a></li>
    15. 

  15.     </ul>
    16. 

  16.   </div>
    17. 

  17. <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 
    18. 

  18. <a name="l00002"></a>00002 
    19. 

  19. <a name="l00003"></a>00003 <span class="comment">//      SPECTRAL Version 1.0</span>
    20. 

  20. <a name="l00004"></a>00004 <span class="comment">//      Date:   16 Sept. 2007</span>
    21. 

  21. <a name="l00005"></a>00005 <span class="comment">//      Author: M. K. Verma</span>
    22. 

  22. <a name="l00006"></a>00006 <span class="comment">//      Filename: init_cond.cc</span>
    23. 

  23. <a name="l00007"></a>00007 
    24. 

  24. <a name="l00008"></a>00008 
    25. 

  25. <a name="l00009"></a>00009 <span class="comment">/*====================================================================================</span>
    26. 

  26. <a name="l00010"></a>00010 <span class="comment"></span>
    27. 

  27. <a name="l00011"></a>00011 <span class="comment">                Sets up initial conditions of the Vector and Scalar field</span>
    28. 

  28. <a name="l00012"></a>00012 <span class="comment"></span>
    29. 

  29. <a name="l00013"></a>00013 <span class="comment">======================================================================================*/</span>
    30. 

  30. <a name="l00014"></a>00014 
    31. 

  31. <a name="l00015"></a>00015 <span class="preprocessor">#include "../IncFluid.h"</span>
    32. 

  32. <a name="l00016"></a>00016 
    33. 

  33. <a name="l00017"></a>00017 <span class="keyword">extern</span> Uniform&lt;DP&gt; <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>;
    34. 

  34. <a name="l00018"></a>00018 
    35. 

  35. <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;
    36. 

  36. <a name="l00020"></a>00020 
    37. 

  37. <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>
    38. 

  38. <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>
    39. 

  39. <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>
    40. 

  40. <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>
    41. 

  41. <a name="l00025"></a>00025 
    42. 

  42. <a name="l00026"></a>00026 
    43. 

  43. <a name="l00027"></a>00027 
    44. 

  44. <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&amp; field_in_file)
    45. 

  45. <a name="l00029"></a>00029 {
    46. 

  46. <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>) 
    47. 

  47. <a name="l00031"></a>00031         {
    48. 

  48. <a name="l00032"></a>00032                 <span class="keywordflow">if</span> (! field_in_file.is_open())  
    49. 

  49. <a name="l00033"></a>00033                 {
    50. 

  50. <a name="l00034"></a>00034                         cout &lt;&lt; <span class="stringliteral">"Unable to open field_in_file: Exiting Program: Exiting Program "</span> &lt;&lt; endl;
    51. 

  51. <a name="l00035"></a>00035                         exit(1);
    52. 

  52. <a name="l00036"></a>00036                 }   
    53. 

  53. <a name="l00037"></a>00037                 <span class="keywordflow">else</span> 
    54. 

  54. <a name="l00038"></a>00038                         cout &lt;&lt; <span class="stringliteral">"Reading field configurations from field_in_file "</span> &lt;&lt; endl ;
    55. 

  55. <a name="l00039"></a>00039         }
    56. 

  56. <a name="l00040"></a>00040 }
    57. 

  57. <a name="l00041"></a>00041 
    58. 

  58. <a name="l00042"></a>00042 
    59. 

  59. <a name="l00043"></a>00043 <span class="comment">//</span>
    60. 

  60. <a name="l00044"></a>00044 <span class="comment">//</span>
    61. 

  61. <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&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    62. 

  62. <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>)
    63. 

  63. <a name="l00047"></a>00047 {
    64. 

  64. <a name="l00048"></a>00048         <span class="keywordflow">switch</span> (field_input_proc) {
    65. 

  65. <a name="l00049"></a>00049                 
    66. 

  66. <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>
    67. 

  67. <a name="l00051"></a>00051                 
    68. 

  68. <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>
    69. 

  69. <a name="l00053"></a>00053                 
    70. 

  70. <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>
    71. 

  71. <a name="l00055"></a>00055                 
    72. 

  72. <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>
    73. 

  73. <a name="l00057"></a>00057                 
    74. 

  74. <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>
    75. 

  75. <a name="l00059"></a>00059                 
    76. 

  76. <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>
    77. 

  77. <a name="l00061"></a>00061                 
    78. 

  78. <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>;
    79. 

  79. <a name="l00063"></a>00063                 
    80. 

  80. <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>;
    81. 

  81. <a name="l00065"></a>00065                 
    82. 

  82. <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>
    83. 

  83. <a name="l00067"></a>00067                 
    84. 

  84. <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>;  
    85. 

  85. <a name="l00069"></a>00069                 <span class="comment">// read from field_in_file with Nreduced D: Not working very well for Nreduced.</span>
    86. 

  86. <a name="l00070"></a>00070         }
    87. 

  87. <a name="l00071"></a>00071 }
    88. 

  88. <a name="l00072"></a>00072 
    89. 

  89. <a name="l00073"></a>00073 <span class="comment">//</span>
    90. 

  90. <a name="l00074"></a>00074 <span class="comment">//</span>
    91. 

  91. <a name="l00075"></a>00075 
    92. 

  92. <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>&amp; T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    93. 

  93. <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>)
    94. 

  94. <a name="l00078"></a>00078 {
    95. 

  95. <a name="l00079"></a>00079         <span class="keywordflow">switch</span> (field_input_proc) {
    96. 

  96. <a name="l00080"></a>00080                 
    97. 

  97. <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>
    98. 

  98. <a name="l00082"></a>00082                 
    99. 

  99. <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>;          
    100. 

  100. <a name="l00084"></a>00084                 <span class="comment">// read from field_in_file with Nreduced D</span>
    101. 

  101. <a name="l00085"></a>00085                 
    102. 

  102. <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>
    103. 

  103. <a name="l00087"></a>00087                 
    104. 

  104. <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>
    105. 

  105. <a name="l00089"></a>00089                 
    106. 

  106. <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>
    107. 

  107. <a name="l00091"></a>00091                 
    108. 

  108. <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>
    109. 

  109. <a name="l00093"></a>00093                 
    110. 

  110. <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>
    111. 

  111. <a name="l00095"></a>00095                 
    112. 

  112. <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>
    113. 

  113. <a name="l00097"></a>00097                 
    114. 

  114. <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>
    115. 

  115. <a name="l00099"></a>00099                 
    116. 

  116. <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>;          
    117. 

  117. <a name="l00101"></a>00101                 <span class="comment">// read from field_in_file with Nreduced D</span>
    118. 

  118. <a name="l00102"></a>00102         }
    119. 

  119. <a name="l00103"></a>00103 
    120. 

  120. <a name="l00104"></a>00104 }
    121. 

  121. <a name="l00105"></a>00105 
    122. 

  122. <a name="l00106"></a>00106 <span class="comment">//</span>
    123. 

  123. <a name="l00107"></a>00107 <span class="comment">//</span>
    124. 

  124. <a name="l00108"></a>00108 
    125. 

  125. <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>&amp; W, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    126. 

  126. <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>)
    127. 

  127. <a name="l00111"></a>00111 {
    128. 

  128. <a name="l00112"></a>00112         <span class="keywordflow">switch</span> (field_input_proc) {
    129. 

  129. <a name="l00113"></a>00113                 
    130. 

  130. <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>
    131. 

  131. <a name="l00115"></a>00115                 
    132. 

  132. <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>;     
    133. 

  133. <a name="l00117"></a>00117                 <span class="comment">// read from field_in_file with Nreduced D</span>
    134. 

  134. <a name="l00118"></a>00118                 
    135. 

  135. <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>
    136. 

  136. <a name="l00120"></a>00120                 
    137. 

  137. <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>
    138. 

  138. <a name="l00122"></a>00122                 
    139. 

  139. <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>
    140. 

  140. <a name="l00124"></a>00124                 
    141. 

  141. <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>
    142. 

  142. <a name="l00126"></a>00126                 
    143. 

  143. <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>
    144. 

  144. <a name="l00128"></a>00128                 
    145. 

  145. <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>
    146. 

  146. <a name="l00130"></a>00130                 
    147. 

  147. <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>;
    148. 

  148. <a name="l00132"></a>00132                 
    149. 

  149. <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>
    150. 

  150. <a name="l00134"></a>00134                 
    151. 

  151. <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>;   
    152. 

  152. <a name="l00136"></a>00136                 <span class="comment">// read from field_in_file with Nreduced D</span>
    153. 

  153. <a name="l00137"></a>00137         }
    154. 

  154. <a name="l00138"></a>00138 
    155. 

  155. <a name="l00139"></a>00139 }
    156. 

  156. <a name="l00140"></a>00140 
    157. 

  157. <a name="l00141"></a>00141 
    158. 

  158. <a name="l00142"></a>00142 <span class="comment">//</span>
    159. 

  159. <a name="l00143"></a>00143 <span class="comment">//</span>
    160. 

  160. <a name="l00144"></a>00144 
    161. 

  161. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    162. 

  162. <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>)
    163. 

  163. <a name="l00147"></a>00147 {
    164. 

  164. <a name="l00148"></a>00148         <span class="keywordflow">switch</span> (field_input_proc) {
    165. 

  165. <a name="l00149"></a>00149                 
    166. 

  166. <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>
    167. 

  167. <a name="l00151"></a>00151                 
    168. 

  168. <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>;                  
    169. 

  169. <a name="l00153"></a>00153                 <span class="comment">// read from field_in_file with Nreduced D</span>
    170. 

  170. <a name="l00154"></a>00154                 
    171. 

  171. <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>
    172. 

  172. <a name="l00156"></a>00156                 
    173. 

  173. <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>
    174. 

  174. <a name="l00158"></a>00158                 
    175. 

  175. <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>
    176. 

  176. <a name="l00160"></a>00160                 
    177. 

  177. <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>
    178. 

  178. <a name="l00162"></a>00162                 
    179. 

  179. <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>
    180. 

  180. <a name="l00164"></a>00164                 
    181. 

  181. <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>
    182. 

  182. <a name="l00166"></a>00166                 
    183. 

  183. <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>
    184. 

  184. <a name="l00168"></a>00168                 
    185. 

  185. <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>;                  
    186. 

  186. <a name="l00170"></a>00170                 <span class="comment">// read from field_in_file with Nreduced D</span>
    187. 

  187. <a name="l00171"></a>00171         }
    188. 

  188. <a name="l00172"></a>00172 
    189. 

  189. <a name="l00173"></a>00173 }
    190. 

  190. <a name="l00174"></a>00174 
    191. 

  191. <a name="l00175"></a>00175 
    192. 

  192. <a name="l00176"></a>00176 <span class="comment">//</span>
    193. 

  193. <a name="l00177"></a>00177 <span class="comment">//</span>
    194. 

  194. <a name="l00178"></a>00178 
    195. 

  195. <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>&amp; T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    196. 

  196. <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>)
    197. 

  197. <a name="l00181"></a>00181 {
    198. 

  198. <a name="l00182"></a>00182         <span class="keywordflow">switch</span> (field_input_proc) {
    199. 

  199. <a name="l00183"></a>00183         
    200. 

  200. <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>
    201. 

  201. <a name="l00185"></a>00185                 
    202. 

  202. <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>
    203. 

  203. <a name="l00187"></a>00187                 
    204. 

  204. <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>;          
    205. 

  205. <a name="l00189"></a>00189                 <span class="comment">// read from field_in_file with Nreduced D</span>
    206. 

  206. <a name="l00190"></a>00190                 
    207. 

  207. <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>
    208. 

  208. <a name="l00192"></a>00192                 
    209. 

  209. <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>
    210. 

  210. <a name="l00194"></a>00194                 
    211. 

  211. <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>
    212. 

  212. <a name="l00196"></a>00196                 
    213. 

  213. <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>
    214. 

  214. <a name="l00198"></a>00198         
    215. 

  215. <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>
    216. 

  216. <a name="l00200"></a>00200                 
    217. 

  217. <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>
    218. 

  218. <a name="l00202"></a>00202                 
    219. 

  219. <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>
    220. 

  220. <a name="l00204"></a>00204                 
    221. 

  221. <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>;          
    222. 

  222. <a name="l00206"></a>00206                 <span class="comment">// read from field_in_file with Nreduced D</span>
    223. 

  223. <a name="l00207"></a>00207         }
    224. 

  224. <a name="l00208"></a>00208 }
    225. 

  225. <a name="l00209"></a>00209 
    226. 

  226. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">int</span> <a class="code" href="classIncFluid.html#f94e99a109b687923cd668f75df1daef">field_input_proc</a>, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>, 
    227. 

  227. <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>)
    228. 

  228. <a name="l00212"></a>00212 {
    229. 

  229. <a name="l00213"></a>00213         <span class="keywordflow">switch</span> (field_input_proc) {
    230. 

  230. <a name="l00214"></a>00214                 
    231. 

  231. <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>
    232. 

  232. <a name="l00216"></a>00216                 
    233. 

  233. <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>
    234. 

  234. <a name="l00218"></a>00218                 
    235. 

  235. <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>;  
    236. 

  236. <a name="l00220"></a>00220                 <span class="comment">// read from field_in_file with Nreduced D</span>
    237. 

  237. <a name="l00221"></a>00221                 
    238. 

  238. <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>
    239. 

  239. <a name="l00223"></a>00223                 
    240. 

  240. <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>
    241. 

  241. <a name="l00225"></a>00225                 
    242. 

  242. <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>
    243. 

  243. <a name="l00227"></a>00227                 
    244. 

  244. <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>
    245. 

  245. <a name="l00229"></a>00229         
    246. 

  246. <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>
    247. 

  247. <a name="l00231"></a>00231                 
    248. 

  248. <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>
    249. 

  249. <a name="l00233"></a>00233                 
    250. 

  250. <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>
    251. 

  251. <a name="l00235"></a>00235                 
    252. 

  252. <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);    
    253. 

  253. <a name="l00237"></a>00237                                                 <span class="keywordflow">break</span>;  
    254. 

  254. <a name="l00238"></a>00238                 <span class="comment">// read from field_in_file with Nreduced D</span>
    255. 

  255. <a name="l00239"></a>00239         }
    256. 

  256. <a name="l00240"></a>00240 
    257. 

  257. <a name="l00241"></a>00241 }
    258. 

  258. <a name="l00242"></a>00242 
    259. 

  259. <a name="l00243"></a>00243 
    260. 

  260. <a name="l00244"></a>00244 <span class="comment">/*====================================================================================</span>
    261. 

  261. <a name="l00245"></a>00245 <span class="comment"></span>
    262. 

  262. <a name="l00246"></a>00246 <span class="comment">                                                Input from a file: field_in_file        </span>
    263. 

  263. <a name="l00247"></a>00247 <span class="comment">                                                Arrays are split                                                                </span>
    264. 

  264. <a name="l00248"></a>00248 <span class="comment"></span>
    265. 

  265. <a name="l00249"></a>00249 <span class="comment">======================================================================================*/</span>
    266. 

  266. <a name="l00250"></a>00250 
    267. 

  267. <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>)
    268. 

  268. <a name="l00252"></a>00252 {
    269. 

  269. <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>);
    270. 

  270. <a name="l00254"></a>00254 
    271. 

  271. <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>
    272. 

  272. <a name="l00256"></a>00256 
    273. 

  273. <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>)         
    274. 

  274. <a name="l00258"></a>00258                 cout  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl; 
    275. 

  275. <a name="l00259"></a>00259 }
    276. 

  276. <a name="l00260"></a>00260 
    277. 

  277. <a name="l00261"></a>00261 
    278. 

  278. <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>&amp; T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    279. 

  279. <a name="l00263"></a>00263 {   
    280. 

  280. <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>);
    281. 

  281. <a name="l00265"></a>00265                 
    282. 

  282. <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>);
    283. 

  283. <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>);
    284. 

  284. <a name="l00268"></a>00268 
    285. 

  285. <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>) 
    286. 

  286. <a name="l00270"></a>00270                 cout  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    287. 

  287. <a name="l00271"></a>00271 }
    288. 

  288. <a name="l00272"></a>00272 
    289. 

  289. <a name="l00273"></a>00273 <span class="comment">//</span>
    290. 

  290. <a name="l00274"></a>00274 <span class="comment">//</span>
    291. 

  291. <a name="l00275"></a>00275 
    292. 

  292. <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>&amp; W, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    293. 

  293. <a name="l00277"></a>00277 { 
    294. 

  294. <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>);
    295. 

  295. <a name="l00279"></a>00279    
    296. 

  296. <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>);
    297. 

  297. <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>);
    298. 

  298. <a name="l00282"></a>00282         
    299. 

  299. <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>) 
    300. 

  300. <a name="l00284"></a>00284                 cout  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    301. 

  301. <a name="l00285"></a>00285 }
    302. 

  302. <a name="l00286"></a>00286 
    303. 

  303. <a name="l00287"></a>00287 <span class="comment">//</span>
    304. 

  304. <a name="l00288"></a>00288 
    305. 

  305. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    306. 

  306. <a name="l00290"></a>00290 {  
    307. 

  307. <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>);
    308. 

  308. <a name="l00292"></a>00292 
    309. 

  309. <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>);
    310. 

  310. <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>);
    311. 

  311. <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>);
    312. 

  312. <a name="l00296"></a>00296         
    313. 

  313. <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>) 
    314. 

  314. <a name="l00298"></a>00298                 cout  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    315. 

  315. <a name="l00299"></a>00299 }
    316. 

  316. <a name="l00300"></a>00300 <span class="comment">/*====================================================================================                          </span>
    317. 

  317. <a name="l00301"></a>00301 <span class="comment">                                                Input from a file: field_in_file(Nreduced[])                                                                                                                    </span>
    318. 

  318. <a name="l00302"></a>00302 <span class="comment">======================================================================================*/</span>
    319. 

  319. <a name="l00303"></a>00303 
    320. 

  320. <a name="l00304"></a>00304 <span class="comment">// Fluid</span>
    321. 

  321. <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>)
    322. 

  322. <a name="l00306"></a>00306 {   
    323. 

  323. <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>);
    324. 

  324. <a name="l00308"></a>00308 
    325. 

  325. <a name="l00309"></a>00309         (*V1) = 0.0;  (*V2) = 0.0;  (*V3) = 0.0;
    326. 

  326. <a name="l00310"></a>00310         
    327. 

  327. <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>);
    328. 

  328. <a name="l00312"></a>00312         
    329. 

  329. <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  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    330. 

  330. <a name="l00314"></a>00314 }
    331. 

  331. <a name="l00315"></a>00315 
    332. 

  332. <a name="l00316"></a>00316 
    333. 

  333. <a name="l00317"></a>00317 <span class="comment">// Passive scalar + RB convection</span>
    334. 

  334. <a name="l00318"></a>00318 
    335. 

  335. <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>&amp; T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    336. 

  336. <a name="l00320"></a>00320 {    
    337. 

  337. <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>);
    338. 

  338. <a name="l00322"></a>00322         
    339. 

  339. <a name="l00323"></a>00323                 
    340. 

  340. <a name="l00324"></a>00324         (*V1) = 0.0;  (*V2) = 0.0;  (*V3) = 0.0; 
    341. 

  341. <a name="l00325"></a>00325         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    342. 

  342. <a name="l00326"></a>00326         
    343. 

  343. <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>);
    344. 

  344. <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>);
    345. 

  345. <a name="l00329"></a>00329         
    346. 

  346. <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  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    347. 

  347. <a name="l00331"></a>00331 }
    348. 

  348. <a name="l00332"></a>00332 
    349. 

  349. <a name="l00333"></a>00333 <span class="comment">// MHD</span>
    350. 

  350. <a name="l00334"></a>00334 
    351. 

  351. <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>&amp; W, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    352. 

  352. <a name="l00336"></a>00336 {  
    353. 

  353. <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>);
    354. 

  354. <a name="l00338"></a>00338         
    355. 

  355. <a name="l00339"></a>00339         (*V1) = 0.0;  (*V2) = 0.0;  (*V3) = 0.0; 
    356. 

  356. <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;
    357. 

  357. <a name="l00341"></a>00341         
    358. 

  358. <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>);
    359. 

  359. <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>);
    360. 

  360. <a name="l00344"></a>00344 
    361. 

  361. <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  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    362. 

  362. <a name="l00346"></a>00346 }
    363. 

  363. <a name="l00347"></a>00347 
    364. 

  364. <a name="l00348"></a>00348 <span class="comment">// Magnetoconvection</span>
    365. 

  365. <a name="l00349"></a>00349 
    366. 

  366. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    367. 

  367. <a name="l00351"></a>00351 {   
    368. 

  368. <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>);
    369. 

  369. <a name="l00353"></a>00353          
    370. 

  370. <a name="l00354"></a>00354         (*V1) = 0.0;  (*V2) = 0.0;  (*V3) = 0.0;
    371. 

  371. <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; 
    372. 

  372. <a name="l00356"></a>00356         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    373. 

  373. <a name="l00357"></a>00357         
    374. 

  374. <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>);
    375. 

  375. <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>);
    376. 

  376. <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>);
    377. 

  377. <a name="l00361"></a>00361         
    378. 

  378. <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  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    379. 

  379. <a name="l00363"></a>00363 }
    380. 

  380. <a name="l00364"></a>00364 
    381. 

  381. <a name="l00365"></a>00365 <span class="comment">/*====================================================================================</span>
    382. 

  382. <a name="l00366"></a>00366 <span class="comment">                                </span>
    383. 

  383. <a name="l00367"></a>00367 <span class="comment">                                                Input "Modes" from a file field_in_file</span>
    384. 

  384. <a name="l00368"></a>00368 <span class="comment">                                                </span>
    385. 

  385. <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>
    386. 

  386. <a name="l00370"></a>00370 <span class="comment">        The last component determined by k.V(k) = 0.0</span>
    387. 

  387. <a name="l00371"></a>00371 <span class="comment">        Fluid 3D - Vx(k) Vy(k)</span>
    388. 

  388. <a name="l00372"></a>00372 <span class="comment">        V, T - Vx(k), Vy(k), T</span>
    389. 

  389. <a name="l00373"></a>00373 <span class="comment">        V, W - Vx, Vy, Wx, Wy</span>
    390. 

  390. <a name="l00374"></a>00374 <span class="comment">        V, W, T - Vx, Vy, Wx, Wy, T</span>
    391. 

  391. <a name="l00375"></a>00375 <span class="comment"></span>
    392. 

  392. <a name="l00376"></a>00376 <span class="comment">        PS: For 2D, give only upper half (ky &gt;= 0)</span>
    393. 

  393. <a name="l00377"></a>00377 <span class="comment">                For 3D, give only upper half (kz &gt;= 0)</span>
    394. 

  394. <a name="l00378"></a>00378 <span class="comment">                                                        </span>
    395. 

  395. <a name="l00379"></a>00379 <span class="comment">====================================================================================*/</span>
    396. 

  396. <a name="l00380"></a>00380 
    397. 

  397. <a name="l00381"></a>00381 <span class="comment">// Read Vector V. There are num_field_waveno k's and Vs.  </span>
    398. 

  398. <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>
    399. 

  399. <a name="l00383"></a>00383 <span class="comment">// The last component is determined using incompressibility cond.</span>
    400. 

  400. <a name="l00384"></a>00384         
    401. 

  401. <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>&amp; <a class="code" href="classIncFluid.html#45ec882b21c41161a76ecc444df81d14">num_field_waveno</a>)
    402. 

  402. <a name="l00386"></a>00386 {
    403. 

  403. <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>) 
    404. 

  404. <a name="l00388"></a>00388         {
    405. 

  405. <a name="l00389"></a>00389                 <span class="keywordtype">int</span> i, ki;
    406. 

  406. <a name="l00390"></a>00390                 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> Vi;
    407. 

  407. <a name="l00391"></a>00391         
    408. 

  408. <a name="l00392"></a>00392                 cout &lt;&lt; <span class="stringliteral">"=== Reading field wavenumbers and Vx Vy ===="</span> &lt;&lt; endl;         
    409. 

  409. <a name="l00393"></a>00393         
    410. 

  410. <a name="l00394"></a>00394                 <span class="keywordtype">int</span> iter = 0;
    411. 

  411. <a name="l00395"></a>00395                 <span class="keywordflow">while</span> (! <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a>.eof()) 
    412. 

  412. <a name="l00396"></a>00396                 {       
    413. 

  413. <a name="l00397"></a>00397                         <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> &gt;&gt; ki;  
    414. 

  414. <a name="l00398"></a>00398                         
    415. 

  415. <a name="l00399"></a>00399                         <span class="keywordflow">if</span> (ki &lt; <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[1])  
    416. 

  416. <a name="l00400"></a>00400                         {                                                               <span class="comment">// Stopper.. </span>
    417. 

  417. <a name="l00401"></a>00401                                 iter++; 
    418. 

  418. <a name="l00402"></a>00402                                 (*field_modes_k_array)(iter,1)  = ki;
    419. 

  419. <a name="l00403"></a>00403                                 
    420. 

  420. <a name="l00404"></a>00404                                 <span class="keywordflow">for</span> (i=2; i&lt;=k_dim; i++) 
    421. 

  421. <a name="l00405"></a>00405                                 {
    422. 

  422. <a name="l00406"></a>00406                                         <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> &gt;&gt; ki;    
    423. 

  423. <a name="l00407"></a>00407                                         (*field_modes_k_array)(iter,i) = ki;  
    424. 

  424. <a name="l00408"></a>00408                                 }
    425. 

  425. <a name="l00409"></a>00409         
    426. 

  426. <a name="l00410"></a>00410                                 <span class="keywordflow">for</span> (i=1; i&lt;= V_n; i++) 
    427. 

  427. <a name="l00411"></a>00411                                 {
    428. 

  428. <a name="l00412"></a>00412                                         <a class="code" href="classIncFluid.html#6a2ec36a5aedecf16533d7926ddf855b">field_in_file</a> &gt;&gt; Vi;    
    429. 

  429. <a name="l00413"></a>00413                                         (*field_modes_V_array)(iter,i) = Vi; 
    430. 

  430. <a name="l00414"></a>00414                                 }
    431. 

  431. <a name="l00415"></a>00415                         }
    432. 

  432. <a name="l00416"></a>00416                         <span class="keywordflow">else</span> <span class="keywordflow">break</span>;     
    433. 

  433. <a name="l00417"></a>00417                 }               <span class="comment">// of while</span>
    434. 

  434. <a name="l00418"></a>00418                 
    435. 

  435. <a name="l00419"></a>00419                 num_field_waveno = iter;
    436. 

  436. <a name="l00420"></a>00420                 cout &lt;&lt; <span class="stringliteral">"=== End of Reading field wavenumbers and Vx, Vy ===="</span> &lt;&lt; endl;
    437. 

  437. <a name="l00421"></a>00421                 cout  &lt;&lt; <span class="stringliteral">"Reading of field configurations ended successfully"</span> &lt;&lt; endl;
    438. 

  438. <a name="l00422"></a>00422         }
    439. 

  439. <a name="l00423"></a>00423 }       
    440. 

  440. <a name="l00424"></a>00424         
    441. 

  441. <a name="l00425"></a>00425 <span class="comment">//</span>
    442. 

  442. <a name="l00426"></a>00426 <span class="comment">//      </span>
    443. 

  443. <a name="l00427"></a>00427         
    444. 

  444. <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>()
    445. 

  445. <a name="l00429"></a>00429 {
    446. 

  446. <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>);
    447. 

  447. <a name="l00431"></a>00431         
    448. 

  448. <a name="l00432"></a>00432         (*field_modes_k_array) = 0;  
    449. 

  449. <a name="l00433"></a>00433         (*field_modes_V_array) = 0.0;
    450. 

  450. <a name="l00434"></a>00434         
    451. 

  451. <a name="l00435"></a>00435         <span class="keywordtype">int</span>  space_dim = 3;
    452. 

  452. <a name="l00436"></a>00436         <span class="keywordtype">int</span>  no_of_vectors_read = 2;
    453. 

  453. <a name="l00437"></a>00437                 
    454. 

  454. <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>) 
    455. 

  455. <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);
    456. 

  456. <a name="l00440"></a>00440         
    457. 

  457. <a name="l00441"></a>00441         
    458. 

  458. <a name="l00442"></a>00442         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    459. 

  459. <a name="l00443"></a>00443                 
    460. 

  460. <a name="l00444"></a>00444         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    461. 

  461. <a name="l00445"></a>00445         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, 
    462. 

  462. <a name="l00446"></a>00446                                                                         MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    463. 

  463. <a name="l00447"></a>00447         
    464. 

  464. <a name="l00448"></a>00448         data_size = IC_MAX_NO_FIELD_MODE * 16;
    465. 

  465. <a name="l00449"></a>00449         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, 
    466. 

  466. <a name="l00450"></a>00450                                                                         MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);         
    467. 

  467. <a name="l00451"></a>00451         
    468. 

  468. <a name="l00452"></a>00452         <span class="keywordtype">int</span> kx, ky, kz;
    469. 

  469. <a name="l00453"></a>00453         complex&lt;DP&gt; Vx, Vy, Vz;
    470. 

  470. <a name="l00454"></a>00454         
    471. 

  471. <a name="l00455"></a>00455         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    472. 

  472. <a name="l00456"></a>00456         
    473. 

  473. <a name="l00457"></a>00457         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    474. 

  474. <a name="l00458"></a>00458         {
    475. 

  475. <a name="l00459"></a>00459                 kx = (*field_modes_k_array)(i,1); 
    476. 

  476. <a name="l00460"></a>00460                 ky = (*field_modes_k_array)(i,2); 
    477. 

  477. <a name="l00461"></a>00461                 kz = (*field_modes_k_array)(i,3);       
    478. 

  478. <a name="l00462"></a>00462                 
    479. 

  479. <a name="l00463"></a>00463                 Vx = (*field_modes_V_array)(i,1); 
    480. 

  480. <a name="l00464"></a>00464                 Vy = (*field_modes_V_array)(i,2); 
    481. 

  481. <a name="l00465"></a>00465                 
    482. 

  482. <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);
    483. 

  483. <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);
    484. 

  484. <a name="l00468"></a>00468                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    485. 

  485. <a name="l00469"></a>00469                 
    486. 

  486. <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>)
    487. 

  487. <a name="l00471"></a>00471                         cout &lt;&lt; <span class="stringliteral">"k, V : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt;  endl;  
    488. 

  488. <a name="l00472"></a>00472         }
    489. 

  489. <a name="l00473"></a>00473         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    490. 

  490. <a name="l00474"></a>00474                                 
    491. 

  491. <a name="l00475"></a>00475 }
    492. 

  492. <a name="l00476"></a>00476 
    493. 

  493. <a name="l00477"></a>00477 
    494. 

  494. <a name="l00478"></a>00478 <span class="comment">/*====================================================================================</span>
    495. 

  495. <a name="l00479"></a>00479 <span class="comment">                                                                        SCALAR</span>
    496. 

  496. <a name="l00480"></a>00480 <span class="comment">====================================================================================*/</span>
    497. 

  497. <a name="l00481"></a>00481 
    498. 

  498. <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>&amp; T)
    499. 

  499. <a name="l00483"></a>00483 {
    500. 

  500. <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>);
    501. 

  501. <a name="l00485"></a>00485 
    502. 

  502. <a name="l00486"></a>00486         (*field_modes_k_array) = 0;  
    503. 

  503. <a name="l00487"></a>00487         (*field_modes_V_array) = 0.0;
    504. 

  504. <a name="l00488"></a>00488         
    505. 

  505. <a name="l00489"></a>00489         <span class="keywordtype">int</span>  space_dim = 3;
    506. 

  506. <a name="l00490"></a>00490         <span class="keywordtype">int</span>  no_of_vectors_read = 3;
    507. 

  507. <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>) 
    508. 

  508. <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);
    509. 

  509. <a name="l00493"></a>00493         
    510. 

  510. <a name="l00494"></a>00494         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    511. 

  511. <a name="l00495"></a>00495                 
    512. 

  512. <a name="l00496"></a>00496         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    513. 

  513. <a name="l00497"></a>00497         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    514. 

  514. <a name="l00498"></a>00498         
    515. 

  515. <a name="l00499"></a>00499         data_size = IC_MAX_NO_FIELD_MODE * 16;
    516. 

  516. <a name="l00500"></a>00500         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    517. 

  517. <a name="l00501"></a>00501         
    518. 

  518. <a name="l00502"></a>00502         <span class="keywordtype">int</span> kx, ky, kz;
    519. 

  519. <a name="l00503"></a>00503         complex&lt;DP&gt; Vx, Vy, Vz, G;
    520. 

  520. <a name="l00504"></a>00504         
    521. 

  521. <a name="l00505"></a>00505         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0; 
    522. 

  522. <a name="l00506"></a>00506         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    523. 

  523. <a name="l00507"></a>00507         
    524. 

  524. <a name="l00508"></a>00508         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    525. 

  525. <a name="l00509"></a>00509         {
    526. 

  526. <a name="l00510"></a>00510                 kx = (*field_modes_k_array)(i,1); 
    527. 

  527. <a name="l00511"></a>00511                 ky = (*field_modes_k_array)(i,2); 
    528. 

  528. <a name="l00512"></a>00512                 kz = (*field_modes_k_array)(i,3);       
    529. 

  529. <a name="l00513"></a>00513                 
    530. 

  530. <a name="l00514"></a>00514                 Vx = (*field_modes_V_array)(i,1); 
    531. 

  531. <a name="l00515"></a>00515                 Vy = (*field_modes_V_array)(i,2); 
    532. 

  532. <a name="l00516"></a>00516                 G  = (*field_modes_V_array)(i,3);
    533. 

  533. <a name="l00517"></a>00517                 
    534. 

  534. <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);
    535. 

  535. <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);
    536. 

  536. <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);
    537. 

  537. <a name="l00521"></a>00521                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    538. 

  538. <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>)
    539. 

  539. <a name="l00523"></a>00523                         cout &lt;&lt; <span class="stringliteral">"k, V, G : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx  &lt;&lt; <span class="stringliteral">" "</span>  
    540. 

  540. <a name="l00524"></a>00524                                 &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; G &lt;&lt; endl;  
    541. 

  541. <a name="l00525"></a>00525         }
    542. 

  542. <a name="l00526"></a>00526         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    543. 

  543. <a name="l00527"></a>00527 }
    544. 

  544. <a name="l00528"></a>00528 
    545. 

  545. <a name="l00529"></a>00529 
    546. 

  546. <a name="l00530"></a>00530 <span class="comment">/*====================================================================================</span>
    547. 

  547. <a name="l00531"></a>00531 <span class="comment">                                                With another vector field (MHD)</span>
    548. 

  548. <a name="l00532"></a>00532 <span class="comment">====================================================================================*/</span>
    549. 

  549. <a name="l00533"></a>00533 
    550. 

  550. <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>&amp; W)
    551. 

  551. <a name="l00535"></a>00535 {
    552. 

  552. <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>);
    553. 

  553. <a name="l00537"></a>00537         
    554. 

  554. <a name="l00538"></a>00538         (*field_modes_k_array) = 0;  
    555. 

  555. <a name="l00539"></a>00539         (*field_modes_V_array) = 0.0;
    556. 

  556. <a name="l00540"></a>00540 
    557. 

  557. <a name="l00541"></a>00541         <span class="keywordtype">int</span>  space_dim = 3;
    558. 

  558. <a name="l00542"></a>00542         <span class="keywordtype">int</span>  no_of_vectors_read = 4;
    559. 

  559. <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>)
    560. 

  560. <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);
    561. 

  561. <a name="l00545"></a>00545         
    562. 

  562. <a name="l00546"></a>00546         <span class="keywordtype">int</span> kx, ky, kz; 
    563. 

  563. <a name="l00547"></a>00547         complex&lt;DP&gt; Vx, Vy, Vz, Wx, Wy, Wz;
    564. 

  564. <a name="l00548"></a>00548         
    565. 

  565. <a name="l00549"></a>00549         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    566. 

  566. <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; 
    567. 

  567. <a name="l00551"></a>00551         
    568. 

  568. <a name="l00552"></a>00552         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    569. 

  569. <a name="l00553"></a>00553         {
    570. 

  570. <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);   
    571. 

  571. <a name="l00555"></a>00555                 Vx = (*field_modes_V_array)(i,1); Vy = (*field_modes_V_array)(i,2);  
    572. 

  572. <a name="l00556"></a>00556                 Wx = (*field_modes_V_array)(i,3); Wy = (*field_modes_V_array)(i,4);
    573. 

  573. <a name="l00557"></a>00557                 
    574. 

  574. <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);
    575. 

  575. <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);
    576. 

  576. <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);
    577. 

  577. <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);
    578. 

  578. <a name="l00562"></a>00562                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    579. 

  579. <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>)
    580. 

  580. <a name="l00564"></a>00564                         cout &lt;&lt; <span class="stringliteral">"k, V, W : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> 
    581. 

  581. <a name="l00565"></a>00565                                 &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wy &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; Wz &lt;&lt; endl;
    582. 

  582. <a name="l00566"></a>00566         }
    583. 

  583. <a name="l00567"></a>00567         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    584. 

  584. <a name="l00568"></a>00568 }       
    585. 

  585. <a name="l00569"></a>00569 
    586. 

  586. <a name="l00570"></a>00570 <span class="comment">/*====================================================================================</span>
    587. 

  587. <a name="l00571"></a>00571 <span class="comment">                        With another vector field and scalar field (Magnetoconvection)</span>
    588. 

  588. <a name="l00572"></a>00572 <span class="comment">====================================================================================*/</span>
    589. 

  589. <a name="l00573"></a>00573 
    590. 

  590. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T)
    591. 

  591. <a name="l00575"></a>00575 {
    592. 

  592. <a name="l00576"></a>00576 
    593. 

  593. <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>);
    594. 

  594. <a name="l00578"></a>00578         
    595. 

  595. <a name="l00579"></a>00579         (*field_modes_k_array) = 0;  
    596. 

  596. <a name="l00580"></a>00580         (*field_modes_V_array) = 0.0;
    597. 

  597. <a name="l00581"></a>00581         
    598. 

  598. <a name="l00582"></a>00582         <span class="keywordtype">int</span>  space_dim = 3;
    599. 

  599. <a name="l00583"></a>00583         <span class="keywordtype">int</span>  no_of_vectors_read = 5;
    600. 

  600. <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>)
    601. 

  601. <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);
    602. 

  602. <a name="l00586"></a>00586         
    603. 

  603. <a name="l00587"></a>00587         
    604. 

  604. <a name="l00588"></a>00588         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    605. 

  605. <a name="l00589"></a>00589                 
    606. 

  606. <a name="l00590"></a>00590         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    607. 

  607. <a name="l00591"></a>00591         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    608. 

  608. <a name="l00592"></a>00592         
    609. 

  609. <a name="l00593"></a>00593         data_size = IC_MAX_NO_FIELD_MODE * 16;
    610. 

  610. <a name="l00594"></a>00594         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    611. 

  611. <a name="l00595"></a>00595         
    612. 

  612. <a name="l00596"></a>00596         
    613. 

  613. <a name="l00597"></a>00597         <span class="keywordtype">int</span> kx, ky, kz; 
    614. 

  614. <a name="l00598"></a>00598         complex&lt;DP&gt; Vx, Vy, Vz, Wx, Wy, Wz, G;
    615. 

  615. <a name="l00599"></a>00599         
    616. 

  616. <a name="l00600"></a>00600         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    617. 

  617. <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; 
    618. 

  618. <a name="l00602"></a>00602         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    619. 

  619. <a name="l00603"></a>00603         
    620. 

  620. <a name="l00604"></a>00604         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    621. 

  621. <a name="l00605"></a>00605         {
    622. 

  622. <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);   
    623. 

  623. <a name="l00607"></a>00607                 Vx = (*field_modes_V_array)(i,1); Vy = (*field_modes_V_array)(i,2);  
    624. 

  624. <a name="l00608"></a>00608                 Wx = (*field_modes_V_array)(i,3); Wy = (*field_modes_V_array)(i,4); 
    625. 

  625. <a name="l00609"></a>00609                 G = (*field_modes_V_array)(i,5);
    626. 

  626. <a name="l00610"></a>00610                 
    627. 

  627. <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);
    628. 

  628. <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);
    629. 

  629. <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);
    630. 

  630. <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);
    631. 

  631. <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);
    632. 

  632. <a name="l00616"></a>00616                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    633. 

  633. <a name="l00617"></a>00617                 cout &lt;&lt; <span class="stringliteral">"k, V, G : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> 
    634. 

  634. <a name="l00618"></a>00618                         &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt; endl;
    635. 

  635. <a name="l00619"></a>00619         }
    636. 

  636. <a name="l00620"></a>00620         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    637. 

  637. <a name="l00621"></a>00621 
    638. 

  638. <a name="l00622"></a>00622 }       
    639. 

  639. <a name="l00623"></a>00623 
    640. 

  640. <a name="l00624"></a>00624 <span class="comment">/*====================================================================================</span>
    641. 

  641. <a name="l00625"></a>00625 <span class="comment">                                </span>
    642. 

  642. <a name="l00626"></a>00626 <span class="comment">                                                Input "Modes" from a file field_in_file</span>
    643. 

  643. <a name="l00627"></a>00627 <span class="comment">                                                </span>
    644. 

  644. <a name="l00628"></a>00628 <span class="comment">                                                        Given Vx and Omega_x</span>
    645. 

  645. <a name="l00629"></a>00629 <span class="comment">                                                        </span>
    646. 

  646. <a name="l00630"></a>00630 <span class="comment">====================================================================================*/</span>
    647. 

  647. <a name="l00631"></a>00631 
    648. 

  648. <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>()
    649. 

  649. <a name="l00633"></a>00633 {
    650. 

  650. <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>);
    651. 

  651. <a name="l00635"></a>00635         
    652. 

  652. <a name="l00636"></a>00636         (*field_modes_k_array) = 0;  
    653. 

  653. <a name="l00637"></a>00637         (*field_modes_V_array) = 0.0;
    654. 

  654. <a name="l00638"></a>00638 
    655. 

  655. <a name="l00639"></a>00639         <span class="keywordtype">int</span>  space_dim = 3;
    656. 

  656. <a name="l00640"></a>00640         <span class="keywordtype">int</span>  no_of_vectors_read = 2;
    657. 

  657. <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>)
    658. 

  658. <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);
    659. 

  659. <a name="l00643"></a>00643         
    660. 

  660. <a name="l00644"></a>00644         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    661. 

  661. <a name="l00645"></a>00645                 
    662. 

  662. <a name="l00646"></a>00646         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    663. 

  663. <a name="l00647"></a>00647         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    664. 

  664. <a name="l00648"></a>00648         
    665. 

  665. <a name="l00649"></a>00649         data_size = IC_MAX_NO_FIELD_MODE * 16;
    666. 

  666. <a name="l00650"></a>00650         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    667. 

  667. <a name="l00651"></a>00651         
    668. 

  668. <a name="l00652"></a>00652         <span class="keywordtype">int</span> kx, ky, kz;
    669. 

  669. <a name="l00653"></a>00653         complex&lt;DP&gt; Vx, Vy, Vz, Omega;
    670. 

  670. <a name="l00654"></a>00654         
    671. 

  671. <a name="l00655"></a>00655         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    672. 

  672. <a name="l00656"></a>00656         
    673. 

  673. <a name="l00657"></a>00657         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    674. 

  674. <a name="l00658"></a>00658         {
    675. 

  675. <a name="l00659"></a>00659                 kx = (*field_modes_k_array)(i,1); 
    676. 

  676. <a name="l00660"></a>00660                 ky = (*field_modes_k_array)(i,2); 
    677. 

  677. <a name="l00661"></a>00661                 kz = (*field_modes_k_array)(i,3);       
    678. 

  678. <a name="l00662"></a>00662                 
    679. 

  679. <a name="l00663"></a>00663                 Vx = (*field_modes_V_array)(i,1); 
    680. 

  680. <a name="l00664"></a>00664                 Omega = (*field_modes_V_array)(i,2); 
    681. 

  681. <a name="l00665"></a>00665                 
    682. 

  682. <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); 
    683. 

  683. <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);
    684. 

  684. <a name="l00668"></a>00668                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    685. 

  685. <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>)
    686. 

  686. <a name="l00670"></a>00670                         cout &lt;&lt; <span class="stringliteral">"k, V : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt;  endl;  
    687. 

  687. <a name="l00671"></a>00671         }
    688. 

  688. <a name="l00672"></a>00672         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    689. 

  689. <a name="l00673"></a>00673         
    690. 

  690. <a name="l00674"></a>00674 }       
    691. 

  691. <a name="l00675"></a>00675 
    692. 

  692. <a name="l00676"></a>00676 <span class="comment">//</span>
    693. 

  693. <a name="l00677"></a>00677 <span class="comment">// Scalar</span>
    694. 

  694. <a name="l00678"></a>00678 <span class="comment">//</span>
    695. 

  695. <a name="l00679"></a>00679 
    696. 

  696. <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>&amp; T)
    697. 

  697. <a name="l00681"></a>00681 {
    698. 

  698. <a name="l00682"></a>00682 
    699. 

  699. <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>);
    700. 

  700. <a name="l00684"></a>00684         
    701. 

  701. <a name="l00685"></a>00685         (*field_modes_k_array) = 0;  
    702. 

  702. <a name="l00686"></a>00686         (*field_modes_V_array) = 0.0;
    703. 

  703. <a name="l00687"></a>00687         
    704. 

  704. <a name="l00688"></a>00688         <span class="keywordtype">int</span>  space_dim = 3;
    705. 

  705. <a name="l00689"></a>00689         <span class="keywordtype">int</span>  no_of_vectors_read = 3;
    706. 

  706. <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>)
    707. 

  707. <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);
    708. 

  708. <a name="l00692"></a>00692         
    709. 

  709. <a name="l00693"></a>00693         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    710. 

  710. <a name="l00694"></a>00694                 
    711. 

  711. <a name="l00695"></a>00695         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    712. 

  712. <a name="l00696"></a>00696         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    713. 

  713. <a name="l00697"></a>00697         
    714. 

  714. <a name="l00698"></a>00698         data_size = IC_MAX_NO_FIELD_MODE * 16;
    715. 

  715. <a name="l00699"></a>00699         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    716. 

  716. <a name="l00700"></a>00700         
    717. 

  717. <a name="l00701"></a>00701         <span class="keywordtype">int</span> kx, ky, kz;
    718. 

  718. <a name="l00702"></a>00702         complex&lt;DP&gt; Vx, Vy, Vz, Omega, G;
    719. 

  719. <a name="l00703"></a>00703         
    720. 

  720. <a name="l00704"></a>00704         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0; 
    721. 

  721. <a name="l00705"></a>00705         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    722. 

  722. <a name="l00706"></a>00706         
    723. 

  723. <a name="l00707"></a>00707         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    724. 

  724. <a name="l00708"></a>00708         {
    725. 

  725. <a name="l00709"></a>00709                 kx = (*field_modes_k_array)(i,1); 
    726. 

  726. <a name="l00710"></a>00710                 ky = (*field_modes_k_array)(i,2); 
    727. 

  727. <a name="l00711"></a>00711                 kz = (*field_modes_k_array)(i,3);       
    728. 

  728. <a name="l00712"></a>00712                 
    729. 

  729. <a name="l00713"></a>00713                 Vx = (*field_modes_V_array)(i,1); 
    730. 

  730. <a name="l00714"></a>00714                 Omega = (*field_modes_V_array)(i,2); 
    731. 

  731. <a name="l00715"></a>00715                 G = (*field_modes_V_array)(i,3); 
    732. 

  732. <a name="l00716"></a>00716                 
    733. 

  733. <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); 
    734. 

  734. <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);
    735. 

  735. <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);
    736. 

  736. <a name="l00720"></a>00720                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    737. 

  737. <a name="l00721"></a>00721                 
    738. 

  738. <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>)
    739. 

  739. <a name="l00723"></a>00723                         cout &lt;&lt; <span class="stringliteral">"k, V, G : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx  &lt;&lt; <span class="stringliteral">" "</span>  
    740. 

  740. <a name="l00724"></a>00724                                 &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; G &lt;&lt; endl;  
    741. 

  741. <a name="l00725"></a>00725         }
    742. 

  742. <a name="l00726"></a>00726         
    743. 

  743. <a name="l00727"></a>00727         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    744. 

  744. <a name="l00728"></a>00728 
    745. 

  745. <a name="l00729"></a>00729 }
    746. 

  746. <a name="l00730"></a>00730 
    747. 

  747. <a name="l00731"></a>00731 <span class="comment">//</span>
    748. 

  748. <a name="l00732"></a>00732 <span class="comment">// Vector</span>
    749. 

  749. <a name="l00733"></a>00733 <span class="comment">//</span>
    750. 

  750. <a name="l00734"></a>00734 
    751. 

  751. <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>&amp; W)
    752. 

  752. <a name="l00736"></a>00736 {
    753. 

  753. <a name="l00737"></a>00737 
    754. 

  754. <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>);
    755. 

  755. <a name="l00739"></a>00739         
    756. 

  756. <a name="l00740"></a>00740         (*field_modes_k_array) = 0;  
    757. 

  757. <a name="l00741"></a>00741         (*field_modes_V_array) = 0.0;
    758. 

  758. <a name="l00742"></a>00742 
    759. 

  759. <a name="l00743"></a>00743         <span class="keywordtype">int</span>  space_dim = 3;
    760. 

  760. <a name="l00744"></a>00744         <span class="keywordtype">int</span>  no_of_vectors_read = 4;
    761. 

  761. <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>)
    762. 

  762. <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);
    763. 

  763. <a name="l00747"></a>00747         
    764. 

  764. <a name="l00748"></a>00748         
    765. 

  765. <a name="l00749"></a>00749         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    766. 

  766. <a name="l00750"></a>00750                 
    767. 

  767. <a name="l00751"></a>00751         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    768. 

  768. <a name="l00752"></a>00752         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    769. 

  769. <a name="l00753"></a>00753         
    770. 

  770. <a name="l00754"></a>00754         data_size = IC_MAX_NO_FIELD_MODE * 16;
    771. 

  771. <a name="l00755"></a>00755         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    772. 

  772. <a name="l00756"></a>00756         
    773. 

  773. <a name="l00757"></a>00757         
    774. 

  774. <a name="l00758"></a>00758         <span class="keywordtype">int</span> kx, ky, kz;
    775. 

  775. <a name="l00759"></a>00759         complex&lt;DP&gt; Vx, Vy, Vz, Wx, Wy, Wz, Omega, OmegaW;
    776. 

  776. <a name="l00760"></a>00760         
    777. 

  777. <a name="l00761"></a>00761         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    778. 

  778. <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; 
    779. 

  779. <a name="l00763"></a>00763         
    780. 

  780. <a name="l00764"></a>00764         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    781. 

  781. <a name="l00765"></a>00765         {
    782. 

  782. <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);   
    783. 

  783. <a name="l00767"></a>00767                 Vx = (*field_modes_V_array)(i,1); 
    784. 

  784. <a name="l00768"></a>00768                 Omega = (*field_modes_V_array)(i,2);  
    785. 

  785. <a name="l00769"></a>00769                 Wx = (*field_modes_V_array)(i,3); 
    786. 

  786. <a name="l00770"></a>00770                 OmegaW = (*field_modes_V_array)(i,4);
    787. 

  787. <a name="l00771"></a>00771                 
    788. 

  788. <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); 
    789. 

  789. <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);
    790. 

  790. <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);
    791. 

  791. <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);
    792. 

  792. <a name="l00776"></a>00776                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    793. 

  793. <a name="l00777"></a>00777                 
    794. 

  794. <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>)
    795. 

  795. <a name="l00779"></a>00779                         cout &lt;&lt; <span class="stringliteral">"k, V, W : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> 
    796. 

  796. <a name="l00780"></a>00780                                 &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wy &lt;&lt; <span class="stringliteral">" "</span>  &lt;&lt; Wz &lt;&lt; endl;
    797. 

  797. <a name="l00781"></a>00781         }
    798. 

  798. <a name="l00782"></a>00782         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    799. 

  799. <a name="l00783"></a>00783 
    800. 

  800. <a name="l00784"></a>00784 }
    801. 

  801. <a name="l00785"></a>00785 
    802. 

  802. <a name="l00786"></a>00786 <span class="comment">// Vector + Scalar</span>
    803. 

  803. <a name="l00787"></a>00787 
    804. 

  804. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T)
    805. 

  805. <a name="l00789"></a>00789 {
    806. 

  806. <a name="l00790"></a>00790 
    807. 

  807. <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>);
    808. 

  808. <a name="l00792"></a>00792         
    809. 

  809. <a name="l00793"></a>00793         (*field_modes_k_array) = 0;  
    810. 

  810. <a name="l00794"></a>00794         (*field_modes_V_array) = 0.0;
    811. 

  811. <a name="l00795"></a>00795         
    812. 

  812. <a name="l00796"></a>00796         <span class="keywordtype">int</span>  space_dim = 3;
    813. 

  813. <a name="l00797"></a>00797         <span class="keywordtype">int</span>  no_of_vectors_read = 5;
    814. 

  814. <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>)
    815. 

  815. <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);
    816. 

  816. <a name="l00800"></a>00800         
    817. 

  817. <a name="l00801"></a>00801         MPI_Bcast(&amp;num_field_waveno, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    818. 

  818. <a name="l00802"></a>00802                 
    819. 

  819. <a name="l00803"></a>00803         <span class="keywordtype">int</span> data_size = IC_MAX_NO_FIELD_MODE * 4;
    820. 

  820. <a name="l00804"></a>00804         MPI_Bcast( reinterpret_cast&lt;int*&gt;((*field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    821. 

  821. <a name="l00805"></a>00805         
    822. 

  822. <a name="l00806"></a>00806         data_size = IC_MAX_NO_FIELD_MODE * 16;
    823. 

  823. <a name="l00807"></a>00807         MPI_Bcast( reinterpret_cast&lt;double*&gt;((*field_modes_V_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    824. 

  824. <a name="l00808"></a>00808         
    825. 

  825. <a name="l00809"></a>00809         <span class="keywordtype">int</span> kx, ky, kz;
    826. 

  826. <a name="l00810"></a>00810         complex&lt;DP&gt; Vx, Vy, Vz, Wx, Wy, Wz, Omega, OmegaW, G;
    827. 

  827. <a name="l00811"></a>00811         
    828. 

  828. <a name="l00812"></a>00812         (*V1) = 0.0; (*V2) = 0.0; (*V3) = 0.0;
    829. 

  829. <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; 
    830. 

  830. <a name="l00814"></a>00814         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    831. 

  831. <a name="l00815"></a>00815         
    832. 

  832. <a name="l00816"></a>00816         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= num_field_waveno; i++) 
    833. 

  833. <a name="l00817"></a>00817         {
    834. 

  834. <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);   
    835. 

  835. <a name="l00819"></a>00819                 Vx = (*field_modes_V_array)(i,1); 
    836. 

  836. <a name="l00820"></a>00820                 Omega = (*field_modes_V_array)(i,2);  
    837. 

  837. <a name="l00821"></a>00821                 Wx = (*field_modes_V_array)(i,3); 
    838. 

  838. <a name="l00822"></a>00822                 OmegaW = (*field_modes_V_array)(i,4); 
    839. 

  839. <a name="l00823"></a>00823                 G = (*field_modes_V_array)(i,5);
    840. 

  840. <a name="l00824"></a>00824                 
    841. 

  841. <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); 
    842. 

  842. <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);
    843. 

  843. <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);
    844. 

  844. <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);
    845. 

  845. <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);
    846. 

  846. <a name="l00830"></a>00830                 <span class="comment">// *V(k)=(Vx,Vy,Vz); Add complex conj if kz=0.</span>
    847. 

  847. <a name="l00831"></a>00831                 
    848. 

  848. <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>)
    849. 

  849. <a name="l00833"></a>00833                         cout &lt;&lt; <span class="stringliteral">"k, V, G : ("</span> &lt;&lt; kx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; ky  &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt;kz &lt;&lt; <span class="stringliteral">") "</span> &lt;&lt; Vx &lt;&lt; <span class="stringliteral">" "</span> 
    850. 

  850. <a name="l00834"></a>00834                                 &lt;&lt; Vy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Vz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Wz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt; endl;
    851. 

  851. <a name="l00835"></a>00835         }
    852. 

  852. <a name="l00836"></a>00836         cout &lt;&lt; <span class="stringliteral">"============================================"</span> &lt;&lt; endl;
    853. 

  853. <a name="l00837"></a>00837 }
    854. 

  854. <a name="l00838"></a>00838 
    855. 

  855. <a name="l00839"></a>00839 <span class="comment">/*====================================================================================</span>
    856. 

  856. <a name="l00840"></a>00840 <span class="comment"></span>
    857. 

  857. <a name="l00841"></a>00841 <span class="comment">        Given  Model energy spectrum for initial condition</span>
    858. 

  858. <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>
    859. 

  859. <a name="l00843"></a>00843 <span class="comment">                with q = 1.5, b = 0.02</span>
    860. 

  860. <a name="l00844"></a>00844 <span class="comment"></span>
    861. 

  861. <a name="l00845"></a>00845 <span class="comment">        Notation:  kki = ki * kfactor[i]</span>
    862. 

  862. <a name="l00846"></a>00846 <span class="comment">====================================================================================*/</span>
    863. 

  863. <a name="l00847"></a>00847 
    864. 

  864. <a name="l00848"></a>00848 
    865. 

  865. <a name="l00849"></a>00849 
    866. 

  866. <a name="l00850"></a>00850 <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">IncFluid::Init_cond_energy_spectrum</a>(Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    867. 

  867. <a name="l00851"></a><a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">00851</a> {
    868. 

  868. <a name="l00852"></a>00852 
    869. 

  869. <a name="l00853"></a>00853         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp;
    870. 

  870. <a name="l00854"></a>00854         <span class="keywordtype">int</span> index;
    871. 

  871. <a name="l00855"></a>00855 
    872. 

  872. <a name="l00856"></a>00856         
    873. 

  873. <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));
    874. 

  874. <a name="l00858"></a>00858         
    875. 

  875. <a name="l00859"></a>00859         cout &lt;&lt; <span class="stringliteral">"Init energy spectrum U: "</span> &lt;&lt; *<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> &lt;&lt; endl;
    876. 

  876. <a name="l00860"></a>00860         
    877. 

  877. <a name="l00861"></a>00861         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    878. 

  878. <a name="l00862"></a>00862                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    879. 

  879. <a name="l00863"></a>00863                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    880. 

  880. <a name="l00864"></a>00864                         {
    881. 

  881. <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>);
    882. 

  882. <a name="l00866"></a>00866                                 index = ((int) kkmag);
    883. 

  883. <a name="l00867"></a>00867                         
    884. 

  884. <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 &amp;quot;radius&amp;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>);
    885. 

  885. <a name="l00869"></a>00869                                 amp = sqrt(2*ek);
    886. 

  886. <a name="l00870"></a>00870                                 Put_random_vector_add_conj(l1, l2, l3, amp);    
    887. 

  887. <a name="l00871"></a>00871                         }
    888. 

  888. <a name="l00872"></a>00872                 
    889. 

  889. <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;
    890. 

  890. <a name="l00874"></a>00874         
    891. 

  891. <a name="l00875"></a>00875         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>();
    892. 

  892. <a name="l00876"></a>00876 }
    893. 

  893. <a name="l00877"></a>00877 
    894. 

  894. <a name="l00878"></a>00878 <span class="comment">//</span>
    895. 

  895. <a name="l00879"></a>00879 <span class="comment">// for scalar</span>
    896. 

  896. <a name="l00880"></a>00880 <span class="comment">//</span>
    897. 

  897. <a name="l00881"></a>00881 
    898. 

  898. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    899. 

  899. <a name="l00883"></a><a class="code" href="classIncFluid.html#d813bf593cdb717b3938135b90630574">00883</a> {
    900. 

  900. <a name="l00884"></a>00884 
    901. 

  901. <a name="l00885"></a>00885         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekT, amp, ampT;
    902. 

  902. <a name="l00886"></a>00886         <span class="keywordtype">int</span> index;
    903. 

  903. <a name="l00887"></a>00887         
    904. 

  904. <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));
    905. 

  905. <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));
    906. 

  906. <a name="l00890"></a>00890         
    907. 

  907. <a name="l00891"></a>00891         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    908. 

  908. <a name="l00892"></a>00892                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    909. 

  909. <a name="l00893"></a>00893                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    910. 

  910. <a name="l00894"></a>00894                         {
    911. 

  911. <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>);
    912. 

  912. <a name="l00896"></a>00896                                 index = ((int) kkmag);
    913. 

  913. <a name="l00897"></a>00897                         
    914. 

  914. <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 &amp;quot;radius&amp;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>);
    915. 

  915. <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 &amp;quot;radius&amp;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>);
    916. 

  916. <a name="l00900"></a>00900                                 
    917. 

  917. <a name="l00901"></a>00901                                 amp = sqrt(2*ek);
    918. 

  918. <a name="l00902"></a>00902                                 ampT = sqrt(2*ekT);
    919. 

  919. <a name="l00903"></a>00903                                 
    920. 

  920. <a name="l00904"></a>00904                                 Put_random_vector_add_conj(l1, l2, l3, amp);
    921. 

  921. <a name="l00905"></a>00905                                 T.Put_random_vector_add_conj(l1, l2, l3, ampT);
    922. 

  922. <a name="l00906"></a>00906                         }       
    923. 

  923. <a name="l00907"></a>00907                 
    924. 

  924. <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;
    925. 

  925. <a name="l00909"></a>00909                 
    926. 

  926. <a name="l00910"></a>00910                 <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(T);
    927. 

  927. <a name="l00911"></a>00911 }
    928. 

  928. <a name="l00912"></a>00912 
    929. 

  929. <a name="l00913"></a>00913 
    930. 

  930. <a name="l00914"></a>00914 <span class="comment">//</span>
    931. 

  931. <a name="l00915"></a>00915 <span class="comment">// for vector</span>
    932. 

  932. <a name="l00916"></a>00916 <span class="comment">//</span>
    933. 

  933. <a name="l00917"></a>00917 
    934. 

  934. <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>&amp; W, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    935. 

  935. <a name="l00919"></a><a class="code" href="classIncFluid.html#20302d6fb037339b7e305d1bd0fd1dff">00919</a> {
    936. 

  936. <a name="l00920"></a>00920 
    937. 

  937. <a name="l00921"></a>00921         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekW, amp, ampW;
    938. 

  938. <a name="l00922"></a>00922         <span class="keywordtype">int</span> index;
    939. 

  939. <a name="l00923"></a>00923         
    940. 

  940. <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));
    941. 

  941. <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));
    942. 

  942. <a name="l00926"></a>00926         
    943. 

  943. <a name="l00927"></a>00927         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    944. 

  944. <a name="l00928"></a>00928                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    945. 

  945. <a name="l00929"></a>00929                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    946. 

  946. <a name="l00930"></a>00930                         {
    947. 

  947. <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>);
    948. 

  948. <a name="l00932"></a>00932                                 index = ((int) kkmag);
    949. 

  949. <a name="l00933"></a>00933                         
    950. 

  950. <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 &amp;quot;radius&amp;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>);
    951. 

  951. <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 &amp;quot;radius&amp;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>);
    952. 

  952. <a name="l00936"></a>00936                                 
    953. 

  953. <a name="l00937"></a>00937                                 amp = sqrt(2*ek);
    954. 

  954. <a name="l00938"></a>00938                                 ampW = sqrt(2*ekW);
    955. 

  955. <a name="l00939"></a>00939                                 
    956. 

  956. <a name="l00940"></a>00940                                 Put_random_vector_add_conj(l1, l2, l3, amp);
    957. 

  957. <a name="l00941"></a>00941                                 W.Put_random_vector_add_conj(l1, l2, l3, ampW);
    958. 

  958. <a name="l00942"></a>00942                         }
    959. 

  959. <a name="l00943"></a>00943         
    960. 

  960. <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;
    961. 

  961. <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;
    962. 

  962. <a name="l00946"></a>00946                 
    963. 

  963. <a name="l00947"></a>00947         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W);
    964. 

  964. <a name="l00948"></a>00948                                 
    965. 

  965. <a name="l00949"></a>00949 }
    966. 

  966. <a name="l00950"></a>00950 
    967. 

  967. <a name="l00951"></a>00951 <span class="comment">//</span>
    968. 

  968. <a name="l00952"></a>00952 <span class="comment">// for vector + scalar</span>
    969. 

  969. <a name="l00953"></a>00953 <span class="comment">//</span>
    970. 

  970. <a name="l00954"></a>00954 
    971. 

  971. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    972. 

  972. <a name="l00956"></a><a class="code" href="classIncFluid.html#46fa4e5d0236f6102315942753b18c8f">00956</a> {
    973. 

  973. <a name="l00957"></a>00957 
    974. 

  974. <a name="l00958"></a>00958         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, ekW, ekT, amp, ampW, ampT;
    975. 

  975. <a name="l00959"></a>00959         <span class="keywordtype">int</span> index;
    976. 

  976. <a name="l00960"></a>00960         
    977. 

  977. <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));
    978. 

  978. <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));
    979. 

  979. <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));
    980. 

  980. <a name="l00964"></a>00964         
    981. 

  981. <a name="l00965"></a>00965         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    982. 

  982. <a name="l00966"></a>00966                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    983. 

  983. <a name="l00967"></a>00967                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    984. 

  984. <a name="l00968"></a>00968                         {
    985. 

  985. <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>);
    986. 

  986. <a name="l00970"></a>00970                                 index = ((int) kkmag);
    987. 

  987. <a name="l00971"></a>00971                         
    988. 

  988. <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 &amp;quot;radius&amp;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>);
    989. 

  989. <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 &amp;quot;radius&amp;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>);
    990. 

  990. <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 &amp;quot;radius&amp;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>);
    991. 

  991. <a name="l00975"></a>00975                                 
    992. 

  992. <a name="l00976"></a>00976                                 amp = sqrt(2*ek);
    993. 

  993. <a name="l00977"></a>00977                                 ampW = sqrt(2*ekW);
    994. 

  994. <a name="l00978"></a>00978                                 ampT = sqrt(2*ekT);
    995. 

  995. <a name="l00979"></a>00979                                 
    996. 

  996. <a name="l00980"></a>00980                                 Put_random_vector_add_conj(l1, l2, l3, amp);
    997. 

  997. <a name="l00981"></a>00981                                 W.Put_random_vector_add_conj(l1, l2, l3, ampW);
    998. 

  998. <a name="l00982"></a>00982                                 T.Put_random_vector_add_conj(l1, l2, l3, ampT);
    999. 

  999. <a name="l00983"></a>00983                 }       
    1000. 

  1000. <a name="l00984"></a>00984         
    1001. 

  1001. <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;
    1002. 

  1002. <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;
    1003. 

  1003. <a name="l00987"></a>00987         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;    
    1004. 

  1004. <a name="l00988"></a>00988                 
    1005. 

  1005. <a name="l00989"></a>00989         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W, T);  
    1006. 

  1006. <a name="l00990"></a>00990         
    1007. 

  1007. <a name="l00991"></a>00991 }
    1008. 

  1008. <a name="l00992"></a>00992 
    1009. 

  1009. <a name="l00993"></a>00993 <span class="comment">/*====================================================================================</span>
    1010. 

  1010. <a name="l00994"></a>00994 <span class="comment"></span>
    1011. 

  1011. <a name="l00995"></a>00995 <span class="comment">        Given  Model energy and helicity spectrum for the initial condition</span>
    1012. 

  1012. <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>
    1013. 

  1013. <a name="l00997"></a>00997 <span class="comment">                with q = 1.5, b = 0.02</span>
    1014. 

  1014. <a name="l00998"></a>00998 <span class="comment"></span>
    1015. 

  1015. <a name="l00999"></a>00999 <span class="comment">                s(k) = H(k)/(k*E(k))</span>
    1016. 

  1016. <a name="l01000"></a>01000 <span class="comment">                </span>
    1017. 

  1017. <a name="l01001"></a>01001 <span class="comment">        Notation:  kki = ki * kfactor[i]</span>
    1018. 

  1018. <a name="l01002"></a>01002 <span class="comment">====================================================================================*/</span>
    1019. 

  1019. <a name="l01003"></a>01003 
    1020. 

  1020. <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&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1021. 

  1021. <a name="l01005"></a><a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">01005</a> {
    1022. 

  1022. <a name="l01006"></a>01006 
    1023. 

  1023. <a name="l01007"></a>01007         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
    1024. 

  1024. <a name="l01008"></a>01008         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> phase2_min_phase1;
    1025. 

  1025. <a name="l01009"></a>01009         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
    1026. 

  1026. <a name="l01010"></a>01010         <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2;
    1027. 

  1027. <a name="l01011"></a>01011         <span class="keywordtype">int</span> index;
    1028. 

  1028. <a name="l01012"></a>01012         
    1029. 

  1029. <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));
    1030. 

  1030. <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);
    1031. 

  1031. <a name="l01015"></a>01015         
    1032. 

  1032. <a name="l01016"></a>01016         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    1033. 

  1033. <a name="l01017"></a>01017                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    1034. 

  1034. <a name="l01018"></a>01018                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    1035. 

  1035. <a name="l01019"></a>01019                         {
    1036. 

  1036. <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>);
    1037. 

  1037. <a name="l01021"></a>01021                                 index = ((int) kkmag);
    1038. 

  1038. <a name="l01022"></a>01022                         
    1039. 

  1039. <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 &amp;quot;radius&amp;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>);
    1040. 

  1040. <a name="l01024"></a>01024                                 amp = sqrt(2*ek);
    1041. 

  1041. <a name="l01025"></a>01025                                 
    1042. 

  1042. <a name="l01026"></a>01026                                 <span class="comment">/* Method 1: Not being used at present</span>
    1043. 

  1043. <a name="l01027"></a>01027 <span class="comment">                                phase3 = M_PI/4.0;</span>
    1044. 

  1044. <a name="l01028"></a>01028 <span class="comment">                                phase2_min_phase1 = asin(sk);</span>
    1045. 

  1045. <a name="l01029"></a>01029 <span class="comment">                                phase1 = 2*M_PI * SPECrand.random();</span>
    1046. 

  1046. <a name="l01030"></a>01030 <span class="comment">                                phase2 = phase1 + phase2_min_phase1;</span>
    1047. 

  1047. <a name="l01031"></a>01031 <span class="comment">                                */</span>
    1048. 

  1048. <a name="l01032"></a>01032                                 
    1049. 

  1049. <a name="l01033"></a>01033                                 <span class="comment">// Method 2</span>
    1050. 

  1050. <a name="l01034"></a>01034                                 
    1051. 

  1051. <a name="l01035"></a>01035                                 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
    1052. 

  1052. <a name="l01036"></a>01036                                 phase2 = phase1 + M_PI/2.0;
    1053. 

  1053. <a name="l01037"></a>01037                                 phase3 = asin(sk)/2.0;                  <span class="comment">// zeta</span>
    1054. 

  1054. <a name="l01038"></a>01038                                 
    1055. 

  1055. <a name="l01039"></a>01039                                 <span class="comment">//</span>
    1056. 

  1056. <a name="l01040"></a>01040                                 
    1057. 

  1057. <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);
    1058. 

  1058. <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);
    1059. 

  1059. <a name="l01043"></a>01043                                 
    1060. 

  1060. <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];
    1061. 

  1061. <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];
    1062. 

  1062. <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]; 
    1063. 

  1063. <a name="l01047"></a>01047                                 kkperp = sqrt(kkx*kkx + kky*kky);
    1064. 

  1064. <a name="l01048"></a>01048                                 
    1065. 

  1065. <a name="l01049"></a>01049                                 <span class="keywordflow">if</span> (kkmag &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1066. 

  1066. <a name="l01050"></a>01050                                         <span class="keywordflow">if</span> ( kkperp &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1067. 

  1067. <a name="l01051"></a>01051                                         {               
    1068. 

  1068. <a name="l01052"></a>01052                                                 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag); 
    1069. 

  1069. <a name="l01053"></a>01053                                                 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
    1070. 

  1070. <a name="l01054"></a>01054                                                 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp);
    1071. 

  1071. <a name="l01055"></a>01055                                         }
    1072. 

  1072. <a name="l01056"></a>01056                                         
    1073. 

  1073. <a name="l01057"></a>01057                                         <span class="keywordflow">else</span>    <span class="comment">// k along z axis.  V on the x-y plane.</span>
    1074. 

  1074. <a name="l01058"></a>01058                                         {                               
    1075. 

  1075. <a name="l01059"></a>01059                                                 (*V1)(l1, l2, l3) = 0.0;
    1076. 

  1076. <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);
    1077. 

  1077. <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);
    1078. 

  1078. <a name="l01062"></a>01062                                         }
    1079. 

  1079. <a name="l01063"></a>01063 
    1080. 

  1080. <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>)
    1081. 

  1081. <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);              
    1082. 

  1082. <a name="l01066"></a>01066                                         <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)             </span>
    1083. 

  1083. <a name="l01067"></a>01067                         }       
    1084. 

  1084. <a name="l01068"></a>01068         
    1085. 

  1085. <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;
    1086. 

  1086. <a name="l01070"></a>01070                         
    1087. 

  1087. <a name="l01071"></a>01071         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>();      
    1088. 

  1088. <a name="l01072"></a>01072 
    1089. 

  1089. <a name="l01073"></a>01073 }
    1090. 

  1090. <a name="l01074"></a>01074 
    1091. 

  1091. <a name="l01075"></a>01075 <span class="comment">//</span>
    1092. 

  1092. <a name="l01076"></a>01076 <span class="comment">// scalar</span>
    1093. 

  1093. <a name="l01077"></a>01077 <span class="comment">//</span>
    1094. 

  1094. <a name="l01078"></a>01078 
    1095. 

  1095. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1096. 

  1096. <a name="l01080"></a><a class="code" href="classIncFluid.html#396d86201bcb465201ccefa46c648f42">01080</a> {
    1097. 

  1097. <a name="l01081"></a>01081 
    1098. 

  1098. <a name="l01082"></a>01082         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
    1099. 

  1099. <a name="l01083"></a>01083         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> phase2_min_phase1;
    1100. 

  1100. <a name="l01084"></a>01084         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekT, ampT, phaseT;
    1101. 

  1101. <a name="l01085"></a>01085         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
    1102. 

  1102. <a name="l01086"></a>01086         <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2;
    1103. 

  1103. <a name="l01087"></a>01087         <span class="keywordtype">int</span> index;
    1104. 

  1104. <a name="l01088"></a>01088         
    1105. 

  1105. <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));
    1106. 

  1106. <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);
    1107. 

  1107. <a name="l01091"></a>01091         
    1108. 

  1108. <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));
    1109. 

  1109. <a name="l01093"></a>01093         
    1110. 

  1110. <a name="l01094"></a>01094         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    1111. 

  1111. <a name="l01095"></a>01095                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    1112. 

  1112. <a name="l01096"></a>01096                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    1113. 

  1113. <a name="l01097"></a>01097                         {
    1114. 

  1114. <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>);
    1115. 

  1115. <a name="l01099"></a>01099                                 index = ((int) kkmag);
    1116. 

  1116. <a name="l01100"></a>01100                         
    1117. 

  1117. <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 &amp;quot;radius&amp;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>);
    1118. 

  1118. <a name="l01102"></a>01102                                 amp = sqrt(2*ek);
    1119. 

  1119. <a name="l01103"></a>01103                                 
    1120. 

  1120. <a name="l01104"></a>01104                                 <span class="comment">/* Method 1: Not being used at present</span>
    1121. 

  1121. <a name="l01105"></a>01105 <span class="comment">                                phase3 = M_PI/4.0;</span>
    1122. 

  1122. <a name="l01106"></a>01106 <span class="comment">                                phase2_min_phase1 = asin(sk);</span>
    1123. 

  1123. <a name="l01107"></a>01107 <span class="comment">                                phase1 = 2*M_PI * SPECrand.random();</span>
    1124. 

  1124. <a name="l01108"></a>01108 <span class="comment">                                phase2 = phase1 + phase2_min_phase1;</span>
    1125. 

  1125. <a name="l01109"></a>01109 <span class="comment">                                */</span>
    1126. 

  1126. <a name="l01110"></a>01110                                 
    1127. 

  1127. <a name="l01111"></a>01111                                 <span class="comment">// Method 2</span>
    1128. 

  1128. <a name="l01112"></a>01112                                 
    1129. 

  1129. <a name="l01113"></a>01113                                 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
    1130. 

  1130. <a name="l01114"></a>01114                                 phase2 = phase1 + M_PI/2.0;
    1131. 

  1131. <a name="l01115"></a>01115                                 phase3 = asin(sk)/2.0;                  <span class="comment">// zeta</span>
    1132. 

  1132. <a name="l01116"></a>01116                                 
    1133. 

  1133. <a name="l01117"></a>01117                                 <span class="comment">//</span>
    1134. 

  1134. <a name="l01118"></a>01118                                 
    1135. 

  1135. <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);
    1136. 

  1136. <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);
    1137. 

  1137. <a name="l01121"></a>01121                                 
    1138. 

  1138. <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];
    1139. 

  1139. <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];
    1140. 

  1140. <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]; 
    1141. 

  1141. <a name="l01125"></a>01125                                 kkperp = sqrt(kkx*kkx + kky*kky);
    1142. 

  1142. <a name="l01126"></a>01126                                 
    1143. 

  1143. <a name="l01127"></a>01127                                 <span class="keywordflow">if</span> (kkmag &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1144. 

  1144. <a name="l01128"></a>01128                                         <span class="keywordflow">if</span> ( kkperp &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1145. 

  1145. <a name="l01129"></a>01129                                         {       
    1146. 

  1146. <a name="l01130"></a>01130                                                 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag);
    1147. 

  1147. <a name="l01131"></a>01131                                                 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
    1148. 

  1148. <a name="l01132"></a>01132                                                 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp);
    1149. 

  1149. <a name="l01133"></a>01133                                         }
    1150. 

  1150. <a name="l01134"></a>01134                                         
    1151. 

  1151. <a name="l01135"></a>01135                                         <span class="keywordflow">else</span>    <span class="comment">// k along z axis.  V on the x-y plane.</span>
    1152. 

  1152. <a name="l01136"></a>01136                                         {                               
    1153. 

  1153. <a name="l01137"></a>01137                                                 (*V1)(l1, l2, l3) = 0.0;
    1154. 

  1154. <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);
    1155. 

  1155. <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);
    1156. 

  1156. <a name="l01140"></a>01140                                         }
    1157. 

  1157. <a name="l01141"></a>01141 
    1158. 

  1158. <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 &amp;quot;radius&amp;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);
    1159. 

  1159. <a name="l01143"></a>01143                                 ampT = sqrt(2*ekT);
    1160. 

  1160. <a name="l01144"></a>01144                                 phaseT = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
    1161. 

  1161. <a name="l01145"></a>01145                                 
    1162. 

  1162. <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);
    1163. 

  1163. <a name="l01147"></a>01147                                 
    1164. 

  1164. <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>)
    1165. 

  1165. <a name="l01149"></a>01149                                 {
    1166. 

  1166. <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>
    1167. 

  1167. <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);
    1168. 

  1168. <a name="l01152"></a>01152                                 }       
    1169. 

  1169. <a name="l01153"></a>01153                         }       
    1170. 

  1170. <a name="l01154"></a>01154         
    1171. 

  1171. <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;
    1172. 

  1172. <a name="l01156"></a>01156         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;
    1173. 

  1173. <a name="l01157"></a>01157         
    1174. 

  1174. <a name="l01158"></a>01158         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">IncFluid::Satisfy_reality_condition_field</a>(T);   
    1175. 

  1175. <a name="l01159"></a>01159         
    1176. 

  1176. <a name="l01160"></a>01160 }
    1177. 

  1177. <a name="l01161"></a>01161 
    1178. 

  1178. <a name="l01162"></a>01162 <span class="comment">//</span>
    1179. 

  1179. <a name="l01163"></a>01163 <span class="comment">// Vector: MHD</span>
    1180. 

  1180. <a name="l01164"></a>01164 <span class="comment">// skb = HM(k) * k/ EW(k) [para(4)]</span>
    1181. 

  1181. <a name="l01165"></a>01165 <span class="comment">// h = 2*Hc / (amp, ampW) [para(5)]</span>
    1182. 

  1182. <a name="l01166"></a>01166 <span class="comment">// </span>
    1183. 

  1183. <a name="l01167"></a>01167 
    1184. 

  1184. <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>&amp; W, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1185. 

  1185. <a name="l01169"></a><a class="code" href="classIncFluid.html#99e97fe3ab371c1225e83f8e7c1e8bce">01169</a> {
    1186. 

  1186. <a name="l01170"></a>01170 
    1187. 

  1187. <a name="l01171"></a>01171         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, ek, amp, phase1, phase2, phase3;
    1188. 

  1188. <a name="l01172"></a>01172         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekW, ampW, h, skb, phase1W, phase2W, phase3W;
    1189. 

  1189. <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;
    1190. 

  1190. <a name="l01174"></a>01174         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> temp;
    1191. 

  1191. <a name="l01175"></a>01175         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkx, kky, kkz, kkperp;
    1192. 

  1192. <a name="l01176"></a>01176         <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> uperp1, uperp2, wperp1, wperp2;
    1193. 

  1193. <a name="l01177"></a>01177         <span class="keywordtype">int</span> index;
    1194. 

  1194. <a name="l01178"></a>01178         
    1195. 

  1195. <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));
    1196. 

  1196. <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);
    1197. 

  1197. <a name="l01181"></a>01181         
    1198. 

  1198. <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));
    1199. 

  1199. <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>
    1200. 

  1200. <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>
    1201. 

  1201. <a name="l01185"></a>01185         
    1202. 

  1202. <a name="l01186"></a>01186         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    1203. 

  1203. <a name="l01187"></a>01187                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    1204. 

  1204. <a name="l01188"></a>01188                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    1205. 

  1205. <a name="l01189"></a>01189                         {
    1206. 

  1206. <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>);
    1207. 

  1207. <a name="l01191"></a>01191                                 index = ((int) kkmag);
    1208. 

  1208. <a name="l01192"></a>01192                         
    1209. 

  1209. <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 &amp;quot;radius&amp;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>);
    1210. 

  1210. <a name="l01194"></a>01194                                 amp = sqrt(2*ek);
    1211. 

  1211. <a name="l01195"></a>01195                                 
    1212. 

  1212. <a name="l01196"></a>01196                                 <span class="comment">/* Method 1: Not being used at present</span>
    1213. 

  1213. <a name="l01197"></a>01197 <span class="comment">                                phase3 = M_PI/4.0;</span>
    1214. 

  1214. <a name="l01198"></a>01198 <span class="comment">                                phase2_min_phase1 = asin(sk);</span>
    1215. 

  1215. <a name="l01199"></a>01199 <span class="comment">                                phase1 = 2*M_PI * SPECrand.random();</span>
    1216. 

  1216. <a name="l01200"></a>01200 <span class="comment">                                phase2 = phase1 + phase2_min_phase1;</span>
    1217. 

  1217. <a name="l01201"></a>01201 <span class="comment">                                */</span>
    1218. 

  1218. <a name="l01202"></a>01202                                 
    1219. 

  1219. <a name="l01203"></a>01203                                 <span class="comment">// Method 2</span>
    1220. 

  1220. <a name="l01204"></a>01204                                 
    1221. 

  1221. <a name="l01205"></a>01205                                 phase1 = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
    1222. 

  1222. <a name="l01206"></a>01206                                 phase2 = phase1 + M_PI/2.0;
    1223. 

  1223. <a name="l01207"></a>01207                                 phase3 = asin(sk)/2.0;                  <span class="comment">// zeta</span>
    1224. 

  1224. <a name="l01208"></a>01208                                 
    1225. 

  1225. <a name="l01209"></a>01209                                 <span class="comment">//</span>
    1226. 

  1226. <a name="l01210"></a>01210                                 
    1227. 

  1227. <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);
    1228. 

  1228. <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);
    1229. 

  1229. <a name="l01213"></a>01213                                 
    1230. 

  1230. <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];
    1231. 

  1231. <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];
    1232. 

  1232. <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]; 
    1233. 

  1233. <a name="l01217"></a>01217                                 kkperp = sqrt(kkx*kkx + kky*kky);
    1234. 

  1234. <a name="l01218"></a>01218                                 
    1235. 

  1235. <a name="l01219"></a>01219                                 <span class="keywordflow">if</span> (kkmag &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1236. 

  1236. <a name="l01220"></a>01220                                         <span class="keywordflow">if</span> ( kkperp &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1237. 

  1237. <a name="l01221"></a>01221                                         {                               
    1238. 

  1238. <a name="l01222"></a>01222                                                 (*V1)(l1, l2, l3) = uperp1 * (-kkperp/kkmag);
    1239. 

  1239. <a name="l01223"></a>01223                                                 (*V2)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kkx/kkperp) + uperp2 * (kky/kkperp);
    1240. 

  1240. <a name="l01224"></a>01224                                                 (*V3)(l1, l2, l3) = uperp1 * (kkz/kkmag)*(kky/kkperp) + uperp2 * (-kkx/kkperp); 
    1241. 

  1241. <a name="l01225"></a>01225                                         }
    1242. 

  1242. <a name="l01226"></a>01226                                         
    1243. 

  1243. <a name="l01227"></a>01227                                         <span class="keywordflow">else</span>    <span class="comment">// k along z axis.  V on the x-y plane.</span>
    1244. 

  1244. <a name="l01228"></a>01228                                         {                               
    1245. 

  1245. <a name="l01229"></a>01229                                                 (*V1)(l1, l2, l3) = 0.0;
    1246. 

  1246. <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);
    1247. 

  1247. <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);
    1248. 

  1248. <a name="l01232"></a>01232                                         }
    1249. 

  1249. <a name="l01233"></a>01233                                         
    1250. 

  1250. <a name="l01234"></a>01234                                 <span class="comment">// W field</span>
    1251. 

  1251. <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 &amp;quot;radius&amp;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);
    1252. 

  1252. <a name="l01236"></a>01236                                 ampW = sqrt(2*ekW);
    1253. 

  1253. <a name="l01237"></a>01237                                 
    1254. 

  1254. <a name="l01238"></a>01238                                 <span class="comment">/* Method1 : Not being used at present                                                          </span>
    1255. 

  1255. <a name="l01239"></a>01239 <span class="comment">                                phase3W = M_PI/4.0;</span>
    1256. 

  1256. <a name="l01240"></a>01240 <span class="comment">                                phase2W_min_phase1W = asin(skW);</span>
    1257. 

  1257. <a name="l01241"></a>01241 <span class="comment">                                temp_angle = phase2 - phase1 - phase2W_min_phase1W;</span>
    1258. 

  1258. <a name="l01242"></a>01242 <span class="comment">                                </span>
    1259. 

  1259. <a name="l01243"></a>01243 <span class="comment">                                tempa = 1 + cos(temp_angle);</span>
    1260. 

  1260. <a name="l01244"></a>01244 <span class="comment">                                tempb = -2 * h * (1 + cos(temp_angle));</span>
    1261. 

  1261. <a name="l01245"></a>01245 <span class="comment">                                tempc = 2*h*h - pow2(sin(temp_angle))/2;</span>
    1262. 

  1262. <a name="l01246"></a>01246 <span class="comment">                                </span>
    1263. 

  1263. <a name="l01247"></a>01247 <span class="comment">                                // We are taking only the + sign of the sqrt.. CHECK</span>
    1264. 

  1264. <a name="l01248"></a>01248 <span class="comment">                                cos_phase1W_min_phase1 = (-tempb + sqrt(pow2(tempb) - 4*tempa*tempc) )/(2*tempa); </span>
    1265. 

  1265. <a name="l01249"></a>01249 <span class="comment">                                phase1W = acos(cos_phase1W_min_phase1) + phase1;</span>
    1266. 

  1266. <a name="l01250"></a>01250 <span class="comment">                                phase2W = phase2W_min_phase1W + phase1W;</span>
    1267. 

  1267. <a name="l01251"></a>01251 <span class="comment">                                */</span>
    1268. 

  1268. <a name="l01252"></a>01252                                 
    1269. 

  1269. <a name="l01253"></a>01253                                 <span class="comment">// Method 2</span>
    1270. 

  1270. <a name="l01254"></a>01254                                 
    1271. 

  1271. <a name="l01255"></a>01255                                 phase3W = asin(skW)/2.0;                        <span class="comment">// zeta_b                               </span>
    1272. 

  1272. <a name="l01256"></a>01256                                 temp = h / (sin(phase3)*sin(phase3W) + cos(phase3)*cos(phase3W));
    1273. 

  1273. <a name="l01257"></a>01257                                 
    1274. 

  1274. <a name="l01258"></a>01258                                 phase1W = phase1 - acos(temp);
    1275. 

  1275. <a name="l01259"></a>01259                                 phase2W = phase1W + M_PI/2.0;
    1276. 

  1276. <a name="l01260"></a>01260                                 
    1277. 

  1277. <a name="l01261"></a>01261                                 <span class="comment">//</span>
    1278. 

  1278. <a name="l01262"></a>01262                                 
    1279. 

  1279. <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);
    1280. 

  1280. <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);
    1281. 

  1281. <a name="l01265"></a>01265                                 
    1282. 

  1282. <a name="l01266"></a>01266                                 <span class="keywordflow">if</span> (kkmag &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1283. 

  1283. <a name="l01267"></a>01267                                         <span class="keywordflow">if</span> ( kkperp &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    1284. 

  1284. <a name="l01268"></a>01268                                         {
    1285. 

  1285. <a name="l01269"></a>01269                                                 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3) = wperp1 * (-kkperp/kkmag);
    1286. 

  1286. <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);
    1287. 

  1287. <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);
    1288. 

  1288. <a name="l01272"></a>01272                                         }
    1289. 

  1289. <a name="l01273"></a>01273                                         
    1290. 

  1290. <a name="l01274"></a>01274                                         <span class="keywordflow">else</span>    <span class="comment">// k along z axis.  V on the x-y plane.</span>
    1291. 

  1291. <a name="l01275"></a>01275                                         {                               
    1292. 

  1292. <a name="l01276"></a>01276                                                 (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841" title=".">V1</a>)(l1, l2, l3) = 0.0;
    1293. 

  1293. <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);
    1294. 

  1294. <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);
    1295. 

  1295. <a name="l01279"></a>01279                                         }               
    1296. 

  1296. <a name="l01280"></a>01280                                 
    1297. 

  1297. <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>)
    1298. 

  1298. <a name="l01282"></a>01282                                 {
    1299. 

  1299. <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>
    1300. 

  1300. <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);
    1301. 

  1301. <a name="l01285"></a>01285                                 }                       
    1302. 

  1302. <a name="l01286"></a>01286                         }       
    1303. 

  1303. <a name="l01287"></a>01287                 
    1304. 

  1304. <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;
    1305. 

  1305. <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;
    1306. 

  1306. <a name="l01290"></a>01290                 
    1307. 

  1307. <a name="l01291"></a>01291         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W);     
    1308. 

  1308. <a name="l01292"></a>01292         
    1309. 

  1309. <a name="l01293"></a>01293 }
    1310. 

  1310. <a name="l01294"></a>01294 
    1311. 

  1311. <a name="l01295"></a>01295 <span class="comment">//</span>
    1312. 

  1312. <a name="l01296"></a>01296 <span class="comment">// MHD+scalar</span>
    1313. 

  1313. <a name="l01297"></a>01297 <span class="comment">//</span>
    1314. 

  1314. <a name="l01298"></a>01298 
    1315. 

  1315. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1316. 

  1316. <a name="l01300"></a><a class="code" href="classIncFluid.html#2c43d3169f2ba5b96a9bd8245921fa31">01300</a> {
    1317. 

  1317. <a name="l01301"></a>01301 
    1318. 

  1318. <a name="l01302"></a>01302         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> ekT, ampT, phaseT;
    1319. 

  1319. <a name="l01303"></a>01303         <span class="keywordtype">int</span> index;
    1320. 

  1320. <a name="l01304"></a>01304         
    1321. 

  1321. <a name="l01305"></a>01305         <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, init_cond_para);
    1322. 

  1322. <a name="l01306"></a>01306         
    1323. 

  1323. <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));
    1324. 

  1324. <a name="l01308"></a>01308         
    1325. 

  1325. <a name="l01309"></a>01309         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l1=0; l1&lt;<a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>; l1++)
    1326. 

  1326. <a name="l01310"></a>01310                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l2=0; l2&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; l2++) 
    1327. 

  1327. <a name="l01311"></a>01311                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> l3=0; l3&lt;=N[3]/2; l3++) 
    1328. 

  1328. <a name="l01312"></a>01312                         {
    1329. 

  1329. <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 &amp;quot;radius&amp;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>);
    1330. 

  1330. <a name="l01314"></a>01314                                 ampT = sqrt(2*ekT);
    1331. 

  1331. <a name="l01315"></a>01315                                 phaseT = 2*M_PI * <a class="code" href="force__alpha__beta_8cc.html#a8ff9eceb2e85b30b25e4cc3f18c34b3">SPECrand</a>.random();
    1332. 

  1332. <a name="l01316"></a>01316                                 
    1333. 

  1333. <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);    
    1334. 

  1334. <a name="l01318"></a>01318                                 
    1335. 

  1335. <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>)
    1336. 

  1336. <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);
    1337. 

  1337. <a name="l01321"></a>01321                                         <span class="comment">// because of F(x) = F(k..) sin(kx*x)*exp(i ky y)       </span>
    1338. 

  1338. <a name="l01322"></a>01322                         }       
    1339. 

  1339. <a name="l01323"></a>01323                         
    1340. 

  1340. <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;
    1341. 

  1341. <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;
    1342. 

  1342. <a name="l01326"></a>01326         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(0,0,0) = 0.0;    
    1343. 

  1343. <a name="l01327"></a>01327         
    1344. 

  1344. <a name="l01328"></a>01328         <a class="code" href="classIncVF.html#2b71f93e1d7a0d14b019a806473ffdfc">Satisfy_reality_condition_field</a>(W, T);          
    1345. 

  1345. <a name="l01329"></a>01329 }
    1346. 

  1346. <a name="l01330"></a>01330 
    1347. 

  1347. <a name="l01331"></a>01331 <span class="comment">/*=============================================================================</span>
    1348. 

  1348. <a name="l01332"></a>01332 <span class="comment"></span>
    1349. 

  1349. <a name="l01333"></a>01333 <span class="comment">                Taylor Green initialize</span>
    1350. 

  1350. <a name="l01334"></a>01334 <span class="comment">                Vx = amp*sin(k0 x) cos(k0 y) cos(k0 z)</span>
    1351. 

  1351. <a name="l01335"></a>01335 <span class="comment">                Vy = -amp*cos(k0 x)sin(k0 y) cos(k0 z)</span>
    1352. 

  1352. <a name="l01336"></a>01336 <span class="comment">                Vz = 0</span>
    1353. 

  1353. <a name="l01337"></a>01337 <span class="comment"></span>
    1354. 

  1354. <a name="l01338"></a>01338 <span class="comment">=================================================================================*/</span>
    1355. 

  1355. <a name="l01339"></a>01339 
    1356. 

  1356. <a name="l01340"></a>01340 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">IncFluid::Init_cond_Taylor_Green</a>(Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1357. 

  1357. <a name="l01341"></a><a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">01341</a> {
    1358. 

  1358. <a name="l01342"></a>01342         
    1359. 

  1359. <a name="l01343"></a>01343         <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
    1360. 

  1360. <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);
    1361. 

  1361. <a name="l01345"></a>01345         
    1362. 

  1362. <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);
    1363. 

  1363. <a name="l01347"></a>01347 
    1364. 

  1364. <a name="l01348"></a>01348 }
    1365. 

  1365. <a name="l01349"></a>01349 
    1366. 

  1366. <a name="l01350"></a>01350 <span class="comment">//</span>
    1367. 

  1367. <a name="l01351"></a>01351 <span class="comment">// Scalar </span>
    1368. 

  1368. <a name="l01352"></a>01352 <span class="comment">//</span>
    1369. 

  1369. <a name="l01353"></a>01353 
    1370. 

  1370. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1371. 

  1371. <a name="l01355"></a><a class="code" href="classIncFluid.html#e4fd2c4065abb34ce1769e1baff3be92">01355</a> {
    1372. 

  1372. <a name="l01356"></a>01356 
    1373. 

  1373. <a name="l01357"></a>01357         <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(init_cond_para);
    1374. 

  1374. <a name="l01358"></a>01358 
    1375. 

  1375. <a name="l01359"></a>01359         *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
    1376. 

  1376. <a name="l01360"></a>01360 }
    1377. 

  1377. <a name="l01361"></a>01361 
    1378. 

  1378. <a name="l01362"></a>01362 
    1379. 

  1379. <a name="l01363"></a>01363 <span class="comment">//</span>
    1380. 

  1380. <a name="l01364"></a>01364 <span class="comment">// Vector</span>
    1381. 

  1381. <a name="l01365"></a>01365 <span class="comment">//</span>
    1382. 

  1382. <a name="l01366"></a>01366 
    1383. 

  1383. <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>&amp; W, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1384. 

  1384. <a name="l01368"></a><a class="code" href="classIncFluid.html#c69ed54da95c9b5722cd48867adc1a7c">01368</a> {
    1385. 

  1385. <a name="l01369"></a>01369 
    1386. 

  1386. <a name="l01370"></a>01370         <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
    1387. 

  1387. <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);
    1388. 

  1388. <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);
    1389. 

  1389. <a name="l01373"></a>01373         
    1390. 

  1390. <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);
    1391. 

  1391. <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);
    1392. 

  1392. <a name="l01376"></a>01376 }
    1393. 

  1393. <a name="l01377"></a>01377 
    1394. 

  1394. <a name="l01378"></a>01378 <span class="comment">//</span>
    1395. 

  1395. <a name="l01379"></a>01379 <span class="comment">//      Vector+scalar</span>
    1396. 

  1396. <a name="l01380"></a>01380 <span class="comment">//</span>
    1397. 

  1397. <a name="l01381"></a>01381 
    1398. 

  1398. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1399. 

  1399. <a name="l01383"></a><a class="code" href="classIncFluid.html#fbd0c8be5102105616bebd532433f87a">01383</a> {
    1400. 

  1400. <a name="l01384"></a>01384 
    1401. 

  1401. <a name="l01385"></a>01385         <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);
    1402. 

  1402. <a name="l01386"></a>01386         
    1403. 

  1403. <a name="l01387"></a>01387         *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;     
    1404. 

  1404. <a name="l01388"></a>01388 }
    1405. 

  1405. <a name="l01389"></a>01389 
    1406. 

  1406. <a name="l01390"></a>01390 <span class="comment">/*=============================================================================</span>
    1407. 

  1407. <a name="l01391"></a>01391 <span class="comment"></span>
    1408. 

  1408. <a name="l01392"></a>01392 <span class="comment">                ABC Flow</span>
    1409. 

  1409. <a name="l01393"></a>01393 <span class="comment">                Vx = amp*sin(k0 x) cos(k0 y) cos(k0 z)</span>
    1410. 

  1410. <a name="l01394"></a>01394 <span class="comment">                Vy = -amp*cos(k0 x)sin(k0 y) cos(k0 z)</span>
    1411. 

  1411. <a name="l01395"></a>01395 <span class="comment">                Vz = 0</span>
    1412. 

  1412. <a name="l01396"></a>01396 <span class="comment"></span>
    1413. 

  1413. <a name="l01397"></a>01397 <span class="comment">                SCFT basis NOT APPROPRIATE for RB Boundary condition</span>
    1414. 

  1414. <a name="l01398"></a>01398 <span class="comment">                </span>
    1415. 

  1415. <a name="l01399"></a>01399 <span class="comment">=================================================================================*/</span>
    1416. 

  1416. <a name="l01400"></a>01400 
    1417. 

  1417. <a name="l01401"></a>01401 
    1418. 

  1418. <a name="l01402"></a>01402 <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">IncFluid::Init_cond_ABC</a>(Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1419. 

  1419. <a name="l01403"></a><a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">01403</a> {
    1420. 

  1420. <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>)
    1421. 

  1421. <a name="l01405"></a>01405         {
    1422. 

  1422. <a name="l01406"></a>01406                 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
    1423. 

  1423. <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);
    1424. 

  1424. <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);
    1425. 

  1425. <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);
    1426. 

  1426. <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);
    1427. 

  1427. <a name="l01411"></a>01411                 
    1428. 

  1428. <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);
    1429. 

  1429. <a name="l01413"></a>01413         }
    1430. 

  1430. <a name="l01414"></a>01414         
    1431. 

  1431. <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>)
    1432. 

  1432. <a name="l01416"></a>01416         {
    1433. 

  1433. <a name="l01417"></a>01417                 cout &lt;&lt; <span class="stringliteral">"ABC field not allowed for SCFT "</span> &lt;&lt; endl;
    1434. 

  1434. <a name="l01418"></a>01418                 exit(0);
    1435. 

  1435. <a name="l01419"></a>01419         }               
    1436. 

  1436. <a name="l01420"></a>01420 }
    1437. 

  1437. <a name="l01421"></a>01421 
    1438. 

  1438. <a name="l01422"></a>01422 <span class="comment">//</span>
    1439. 

  1439. <a name="l01423"></a>01423 <span class="comment">// Scalar </span>
    1440. 

  1440. <a name="l01424"></a>01424 <span class="comment">//</span>
    1441. 

  1441. <a name="l01425"></a>01425 
    1442. 

  1442. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1443. 

  1443. <a name="l01427"></a><a class="code" href="classIncFluid.html#ef28bfc254c9d7c1077da6f4b0995954">01427</a> {
    1444. 

  1444. <a name="l01428"></a>01428 
    1445. 

  1445. <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>)
    1446. 

  1446. <a name="l01430"></a>01430         {
    1447. 

  1447. <a name="l01431"></a>01431                 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(init_cond_para);
    1448. 

  1448. <a name="l01432"></a>01432         
    1449. 

  1449. <a name="l01433"></a>01433                 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;     
    1450. 

  1450. <a name="l01434"></a>01434         }       
    1451. 

  1451. <a name="l01435"></a>01435         
    1452. 

  1452. <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>)
    1453. 

  1453. <a name="l01437"></a>01437         {
    1454. 

  1454. <a name="l01438"></a>01438                 cout &lt;&lt; <span class="stringliteral">"ABC field not allowed for SCFT "</span> &lt;&lt; endl;
    1455. 

  1455. <a name="l01439"></a>01439                 exit(0);
    1456. 

  1456. <a name="l01440"></a>01440         }
    1457. 

  1457. <a name="l01441"></a>01441 }
    1458. 

  1458. <a name="l01442"></a>01442 
    1459. 

  1459. <a name="l01443"></a>01443 
    1460. 

  1460. <a name="l01444"></a>01444 <span class="comment">//</span>
    1461. 

  1461. <a name="l01445"></a>01445 <span class="comment">// Vector</span>
    1462. 

  1462. <a name="l01446"></a>01446 <span class="comment">//</span>
    1463. 

  1463. <a name="l01447"></a>01447 
    1464. 

  1464. <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>&amp; W, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1465. 

  1465. <a name="l01449"></a><a class="code" href="classIncFluid.html#c8eb33c86b27c3feb2dc743a8549ab45">01449</a> {
    1466. 

  1466. <a name="l01450"></a>01450 
    1467. 

  1467. <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>)
    1468. 

  1468. <a name="l01452"></a>01452         {
    1469. 

  1469. <a name="l01453"></a>01453                 <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
    1470. 

  1470. <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);
    1471. 

  1471. <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);
    1472. 

  1472. <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);
    1473. 

  1473. <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);
    1474. 

  1474. <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);
    1475. 

  1475. <a name="l01459"></a>01459                 
    1476. 

  1476. <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);
    1477. 

  1477. <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);
    1478. 

  1478. <a name="l01462"></a>01462         }       
    1479. 

  1479. <a name="l01463"></a>01463         
    1480. 

  1480. <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>)
    1481. 

  1481. <a name="l01465"></a>01465         {
    1482. 

  1482. <a name="l01466"></a>01466                 cout &lt;&lt; <span class="stringliteral">"ABC field not allowed for SCFT "</span> &lt;&lt; endl;
    1483. 

  1483. <a name="l01467"></a>01467                 exit(0);
    1484. 

  1484. <a name="l01468"></a>01468         }
    1485. 

  1485. <a name="l01469"></a>01469 }
    1486. 

  1486. <a name="l01470"></a>01470 
    1487. 

  1487. <a name="l01471"></a>01471 <span class="comment">//</span>
    1488. 

  1488. <a name="l01472"></a>01472 <span class="comment">//      Vector+scalar</span>
    1489. 

  1489. <a name="l01473"></a>01473 <span class="comment">//</span>
    1490. 

  1490. <a name="l01474"></a>01474 
    1491. 

  1491. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1492. 

  1492. <a name="l01476"></a><a class="code" href="classIncFluid.html#261783c58a9c2903abbe6d1c83dbc471">01476</a> {
    1493. 

  1493. <a name="l01477"></a>01477 
    1494. 

  1494. <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>)
    1495. 

  1495. <a name="l01479"></a>01479         {
    1496. 

  1496. <a name="l01480"></a>01480                 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);
    1497. 

  1497. <a name="l01481"></a>01481                 
    1498. 

  1498. <a name="l01482"></a>01482                 *T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a> = 0.0;
    1499. 

  1499. <a name="l01483"></a>01483         }
    1500. 

  1500. <a name="l01484"></a>01484         
    1501. 

  1501. <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>)
    1502. 

  1502. <a name="l01486"></a>01486         {
    1503. 

  1503. <a name="l01487"></a>01487                 cout &lt;&lt; <span class="stringliteral">"ABC field not allowed for SCFT "</span> &lt;&lt; endl;
    1504. 

  1504. <a name="l01488"></a>01488                 exit(0);
    1505. 

  1505. <a name="l01489"></a>01489         }               
    1506. 

  1506. <a name="l01490"></a>01490 }
    1507. 

  1507. <a name="l01491"></a>01491 
    1508. 

  1508. <a name="l01492"></a>01492 <span class="comment">/*====================================================================================</span>
    1509. 

  1509. <a name="l01493"></a>01493 <span class="comment"></span>
    1510. 

  1510. <a name="l01494"></a>01494 <span class="comment">                                                        Dynamo - 6 mode model (112)                                                     </span>
    1511. 

  1511. <a name="l01495"></a>01495 <span class="comment">                                                        </span>
    1512. 

  1512. <a name="l01496"></a>01496 <span class="comment">====================================================================================*/</span>
    1513. 

  1513. <a name="l01497"></a>01497 
    1514. 

  1514. <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>&amp; W, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1515. 

  1515. <a name="l01499"></a><a class="code" href="classIncFluid.html#6ad79b117329b4d33d6d0d2a48615b53">01499</a> {
    1516. 

  1516. <a name="l01500"></a>01500 
    1517. 

  1517. <a name="l01501"></a>01501         <span class="keywordtype">int</span> k0 = ((int) <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1));
    1518. 

  1518. <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);
    1519. 

  1519. <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);
    1520. 

  1520. <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);
    1521. 

  1521. <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);
    1522. 

  1522. <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);
    1523. 

  1523. <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);
    1524. 

  1524. <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);
    1525. 

  1525. <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);
    1526. 

  1526. <a name="l01510"></a>01510         
    1527. 

  1527. <a name="l01511"></a>01511         <a class="code" href="classIncVF.html#cf0158a6450708924e3d82cca92a457e">Setup_SIX_MODE_field</a>(k0, amp101, amp011, amp112, h);
    1528. 

  1528. <a name="l01512"></a>01512         W.<a class="code" href="classIncVF.html#cf0158a6450708924e3d82cca92a457e">Setup_SIX_MODE_field</a>(k0, ampW101, ampW011, ampW112, hW);
    1529. 

  1529. <a name="l01513"></a>01513 }
    1530. 

  1530. <a name="l01514"></a>01514 
    1531. 

  1531. <a name="l01515"></a>01515 
    1532. 

  1532. <a name="l01516"></a>01516 
    1533. 

  1533. <a name="l01517"></a>01517 <span class="comment">/*====================================================================================</span>
    1534. 

  1534. <a name="l01518"></a>01518 <span class="comment">                                                        Lorenz condition                                                        </span>
    1535. 

  1535. <a name="l01519"></a>01519 <span class="comment">                2D: W11, T11, T20</span>
    1536. 

  1536. <a name="l01520"></a>01520 <span class="comment">                3D: W101, T101, T200                                                    </span>
    1537. 

  1537. <a name="l01521"></a>01521 <span class="comment">====================================================================================*/</span>
    1538. 

  1538. <a name="l01522"></a>01522 
    1539. 

  1539. <a name="l01523"></a>01523 
    1540. 

  1540. <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>&amp; T,  Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1541. 

  1541. <a name="l01525"></a><a class="code" href="classIncFluid.html#55d61b9682d43cb8ce9aafcbb8f9e9db">01525</a> {
    1542. 

  1542. <a name="l01526"></a>01526         
    1543. 

  1543. <a name="l01527"></a>01527          <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a>             W101,T101,T200;
    1544. 

  1544. <a name="l01528"></a>01528          W101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(1);
    1545. 

  1545. <a name="l01529"></a>01529          T101 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(2);
    1546. 

  1546. <a name="l01530"></a>01530          T200 = <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>(3);
    1547. 

  1547. <a name="l01531"></a>01531         
    1548. 

  1548. <a name="l01532"></a>01532         (*V1) = 0.0; (*V2) = 0.0;  (*V3) = 0.0;
    1549. 

  1549. <a name="l01533"></a>01533         (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>) = 0.0;
    1550. 

  1550. <a name="l01534"></a>01534 
    1551. 

  1551. <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>) 
    1552. 

  1552. <a name="l01536"></a>01536         {
    1553. 

  1553. <a name="l01537"></a>01537                 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> Vz;      
    1554. 

  1554. <a name="l01538"></a>01538                  
    1555. 

  1555. <a name="l01539"></a>01539                 (*V1)(1,0,1) = complex&lt;DP&gt;(W101,0); 
    1556. 

  1556. <a name="l01540"></a>01540                 (*V2)(1,0,1) = complex&lt;DP&gt;(0, 0);
    1557. 

  1557. <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);        
    1558. 

  1558. <a name="l01542"></a>01542                 (*V3)(1,0,1) = Vz; 
    1559. 

  1559. <a name="l01543"></a>01543     
    1560. 

  1560. <a name="l01544"></a>01544                 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(2,0,0)=complex&lt;DP&gt;(T200,0); 
    1561. 

  1561. <a name="l01545"></a>01545                 (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(1,0,1)=complex&lt;DP&gt;(T101,0); 
    1562. 

  1562. <a name="l01546"></a>01546         
    1563. 

  1563. <a name="l01547"></a>01547                 cout &lt;&lt; <span class="stringliteral">"init cond V: Lorenz vars V1(101), V2(101), V3(101), T(101), T(200): "</span> &lt;&lt; endl 
    1564. 

  1564. <a name="l01548"></a>01548                         &lt;&lt; (*V1)(1,0,1) &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929" title=".">V2</a>)(1,0,1) &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6" title=".">V3</a>)(1,0,1) &lt;&lt; <span class="stringliteral">" "</span> 
    1565. 

  1565. <a name="l01549"></a>01549                         &lt;&lt; (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(1,0,1) &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367" title=".">F</a>)(2,0,0) &lt;&lt; endl;
    1566. 

  1566. <a name="l01550"></a>01550         }
    1567. 

  1567. <a name="l01551"></a>01551 }
    1568. 

  1568. <a name="l01552"></a>01552 
    1569. 

  1569. <a name="l01553"></a>01553 
    1570. 

  1570. <a name="l01554"></a>01554 
    1571. 

  1571. <a name="l01555"></a>01555 <span class="comment">/*====================================================================================</span>
    1572. 

  1572. <a name="l01556"></a>01556 <span class="comment"></span>
    1573. 

  1573. <a name="l01557"></a>01557 <span class="comment">        For RB convection</span>
    1574. 

  1574. <a name="l01558"></a>01558 <span class="comment">          if Pr == 0</span>
    1575. 

  1575. <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>
    1576. 

  1576. <a name="l01560"></a>01560 <span class="comment">          else do as usal scalar.       </span>
    1577. 

  1577. <a name="l01561"></a>01561 <span class="comment">                                                        </span>
    1578. 

  1578. <a name="l01562"></a>01562 <span class="comment">====================================================================================*/</span>
    1579. 

  1579. <a name="l01563"></a>01563 
    1580. 

  1580. <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>&amp; T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    1581. 

  1581. <a name="l01565"></a><a class="code" href="classIncFluid.html#1dd19db89ec339e7a038e4c1c534986a">01565</a> {  
    1582. 

  1582. <a name="l01566"></a>01566 
    1583. 

  1583. <a name="l01567"></a>01567         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1584. 

  1584. <a name="l01568"></a>01568         {
    1585. 

  1585. <a name="l01569"></a>01569                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(nos_input_field_mode);                                
    1586. 

  1586. <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>;  
    1587. 

  1587. <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>);                
    1588. 

  1588. <a name="l01572"></a>01572         }
    1589. 

  1589. <a name="l01573"></a>01573         
    1590. 

  1590. <a name="l01574"></a>01574         <span class="keywordflow">else</span>
    1591. 

  1591. <a name="l01575"></a>01575                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, nos_input_field_mode);
    1592. 

  1592. <a name="l01576"></a>01576                 
    1593. 

  1593. <a name="l01577"></a>01577         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1594. 

  1594. <a name="l01578"></a>01578 }
    1595. 

  1595. <a name="l01579"></a>01579 
    1596. 

  1596. <a name="l01580"></a>01580 
    1597. 

  1597. <a name="l01581"></a>01581 <span class="comment">// From Nreduced</span>
    1598. 

  1598. <a name="l01582"></a>01582 
    1599. 

  1599. <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>&amp; T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    1600. 

  1600. <a name="l01584"></a><a class="code" href="classIncFluid.html#d7d928630d5249f4fb36329594f84513">01584</a> { 
    1601. 

  1601. <a name="l01585"></a>01585   
    1602. 

  1602. <a name="l01586"></a>01586         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1603. 

  1603. <a name="l01587"></a>01587         {
    1604. 

  1604. <a name="l01588"></a>01588                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(Nreduced, nos_input_field_mode);                              
    1605. 

  1605. <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>;  
    1606. 

  1606. <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>);                
    1607. 

  1607. <a name="l01591"></a>01591         }
    1608. 

  1608. <a name="l01592"></a>01592         
    1609. 

  1609. <a name="l01593"></a>01593         <span class="keywordflow">else</span>
    1610. 

  1610. <a name="l01594"></a>01594                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(T, Nreduced, nos_input_field_mode);
    1611. 

  1611. <a name="l01595"></a>01595                 
    1612. 

  1612. <a name="l01596"></a>01596         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1613. 

  1613. <a name="l01597"></a>01597 }
    1614. 

  1614. <a name="l01598"></a>01598 
    1615. 

  1615. <a name="l01599"></a>01599 
    1616. 

  1616. <a name="l01600"></a>01600 <span class="comment">// From Wavenumber modes: </span>
    1617. 

  1617. <a name="l01601"></a>01601 <span class="comment">// Scalar</span>
    1618. 

  1618. <a name="l01602"></a>01602 
    1619. 

  1619. <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>&amp; T)
    1620. 

  1620. <a name="l01604"></a>01604 {
    1621. 

  1621. <a name="l01605"></a>01605 
    1622. 

  1622. <a name="l01606"></a>01606         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1623. 

  1623. <a name="l01607"></a>01607         {
    1624. 

  1624. <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>();                               
    1625. 

  1625. <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>;  
    1626. 

  1626. <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>);                
    1627. 

  1627. <a name="l01611"></a>01611         }
    1628. 

  1628. <a name="l01612"></a>01612         
    1629. 

  1629. <a name="l01613"></a>01613         <span class="keywordflow">else</span>
    1630. 

  1630. <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);
    1631. 

  1631. <a name="l01615"></a>01615                 
    1632. 

  1632. <a name="l01616"></a>01616         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1633. 

  1633. <a name="l01617"></a>01617 
    1634. 

  1634. <a name="l01618"></a>01618 }       
    1635. 

  1635. <a name="l01619"></a>01619 
    1636. 

  1636. <a name="l01620"></a>01620 <span class="comment">//</span>
    1637. 

  1637. <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>&amp; T)
    1638. 

  1638. <a name="l01622"></a>01622 {
    1639. 

  1639. <a name="l01623"></a>01623 
    1640. 

  1640. <a name="l01624"></a>01624         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1641. 

  1641. <a name="l01625"></a>01625         {
    1642. 

  1642. <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>();                            
    1643. 

  1643. <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>;  
    1644. 

  1644. <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>);                
    1645. 

  1645. <a name="l01629"></a>01629         }
    1646. 

  1646. <a name="l01630"></a>01630         
    1647. 

  1647. <a name="l01631"></a>01631         <span class="keywordflow">else</span>
    1648. 

  1648. <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);
    1649. 

  1649. <a name="l01633"></a>01633                 
    1650. 

  1650. <a name="l01634"></a>01634         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1651. 

  1651. <a name="l01635"></a>01635 
    1652. 

  1652. <a name="l01636"></a>01636 }       
    1653. 

  1653. <a name="l01637"></a>01637 
    1654. 

  1654. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1655. 

  1655. <a name="l01639"></a><a class="code" href="classIncFluid.html#37975f4869fcaf43676559a8a989a866">01639</a> {
    1656. 

  1656. <a name="l01640"></a>01640 
    1657. 

  1657. <a name="l01641"></a>01641         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1658. 

  1658. <a name="l01642"></a>01642         {
    1659. 

  1659. <a name="l01643"></a>01643                 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(init_cond_para);                              
    1660. 

  1660. <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>; 
    1661. 

  1661. <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>);                
    1662. 

  1662. <a name="l01646"></a>01646         }
    1663. 

  1663. <a name="l01647"></a>01647         
    1664. 

  1664. <a name="l01648"></a>01648         <span class="keywordflow">else</span>
    1665. 

  1665. <a name="l01649"></a>01649                 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(T, init_cond_para);
    1666. 

  1666. <a name="l01650"></a>01650                 
    1667. 

  1667. <a name="l01651"></a>01651         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1668. 

  1668. <a name="l01652"></a>01652 }       
    1669. 

  1669. <a name="l01653"></a>01653 
    1670. 

  1670. <a name="l01654"></a>01654 
    1671. 

  1671. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1672. 

  1672. <a name="l01656"></a><a class="code" href="classIncFluid.html#58d520259f4da421bf6e18b2b05738a1">01656</a> { 
    1673. 

  1673. <a name="l01657"></a>01657 
    1674. 

  1674. <a name="l01658"></a>01658         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1675. 

  1675. <a name="l01659"></a>01659         {
    1676. 

  1676. <a name="l01660"></a>01660                 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(init_cond_para);                             
    1677. 

  1677. <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>; 
    1678. 

  1678. <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>);                
    1679. 

  1679. <a name="l01663"></a>01663         }
    1680. 

  1680. <a name="l01664"></a>01664         
    1681. 

  1681. <a name="l01665"></a>01665         <span class="keywordflow">else</span>
    1682. 

  1682. <a name="l01666"></a>01666                 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(T, init_cond_para);
    1683. 

  1683. <a name="l01667"></a>01667                 
    1684. 

  1684. <a name="l01668"></a>01668         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1685. 

  1685. <a name="l01669"></a>01669                 
    1686. 

  1686. <a name="l01670"></a>01670 }               
    1687. 

  1687. <a name="l01671"></a>01671         
    1688. 

  1688. <a name="l01672"></a>01672         
    1689. 

  1689. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1690. 

  1690. <a name="l01674"></a><a class="code" href="classIncFluid.html#5378a2f3e63901e0cfea53bd0cf01e64">01674</a> {
    1691. 

  1691. <a name="l01675"></a>01675 
    1692. 

  1692. <a name="l01676"></a>01676         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1693. 

  1693. <a name="l01677"></a>01677         {
    1694. 

  1694. <a name="l01678"></a>01678                 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(init_cond_para);                         
    1695. 

  1695. <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>; 
    1696. 

  1696. <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>);                
    1697. 

  1697. <a name="l01681"></a>01681         }
    1698. 

  1698. <a name="l01682"></a>01682         
    1699. 

  1699. <a name="l01683"></a>01683         <span class="keywordflow">else</span>
    1700. 

  1700. <a name="l01684"></a>01684                 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(T, init_cond_para);
    1701. 

  1701. <a name="l01685"></a>01685                 
    1702. 

  1702. <a name="l01686"></a>01686         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1703. 

  1703. <a name="l01687"></a>01687                 
    1704. 

  1704. <a name="l01688"></a>01688 }       
    1705. 

  1705. <a name="l01689"></a>01689 
    1706. 

  1706. <a name="l01690"></a>01690 
    1707. 

  1707. <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>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1708. 

  1708. <a name="l01692"></a><a class="code" href="classIncFluid.html#d54d646fb133045e06f085f7fb62ab41">01692</a> {
    1709. 

  1709. <a name="l01693"></a>01693 
    1710. 

  1710. <a name="l01694"></a>01694         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1711. 

  1711. <a name="l01695"></a>01695         {
    1712. 

  1712. <a name="l01696"></a>01696                 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(init_cond_para);                          
    1713. 

  1713. <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>; 
    1714. 

  1714. <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>);                
    1715. 

  1715. <a name="l01699"></a>01699         }
    1716. 

  1716. <a name="l01700"></a>01700         
    1717. 

  1717. <a name="l01701"></a>01701         <span class="keywordflow">else</span>
    1718. 

  1718. <a name="l01702"></a>01702                 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(T, init_cond_para);
    1719. 

  1719. <a name="l01703"></a>01703                 
    1720. 

  1720. <a name="l01704"></a>01704         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(T);          
    1721. 

  1721. <a name="l01705"></a>01705                 
    1722. 

  1722. <a name="l01706"></a>01706 }       
    1723. 

  1723. <a name="l01707"></a>01707 <span class="comment">//</span>
    1724. 

  1724. <a name="l01708"></a>01708 <span class="comment">// Magnetoconvection</span>
    1725. 

  1725. <a name="l01709"></a>01709 <span class="comment">//</span>
    1726. 

  1726. <a name="l01710"></a>01710 <span class="comment">//</span>
    1727. 

  1727. <a name="l01711"></a>01711 
    1728. 

  1728. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    1729. 

  1729. <a name="l01713"></a><a class="code" href="classIncFluid.html#b6b3fa2fc14d4d9334b8d40ad86b1d31">01713</a> {  
    1730. 

  1730. <a name="l01714"></a>01714 
    1731. 

  1731. <a name="l01715"></a>01715         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1732. 

  1732. <a name="l01716"></a>01716         {
    1733. 

  1733. <a name="l01717"></a>01717                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, nos_input_field_mode);                             
    1734. 

  1734. <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>;  
    1735. 

  1735. <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>);        
    1736. 

  1736. <a name="l01720"></a>01720         }
    1737. 

  1737. <a name="l01721"></a>01721         
    1738. 

  1738. <a name="l01722"></a>01722         <span class="keywordflow">else</span>
    1739. 

  1739. <a name="l01723"></a>01723                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, nos_input_field_mode);  
    1740. 

  1740. <a name="l01724"></a>01724                 
    1741. 

  1741. <a name="l01725"></a>01725         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);               
    1742. 

  1742. <a name="l01726"></a>01726 }
    1743. 

  1743. <a name="l01727"></a>01727 
    1744. 

  1744. <a name="l01728"></a>01728 <span class="comment">//</span>
    1745. 

  1745. <a name="l01729"></a>01729 
    1746. 

  1746. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, <span class="keywordtype">int</span> Nreduced[], <span class="keywordtype">string</span> <a class="code" href="classIncFluid.html#8cacfc57337efe3f2023ef4254164aca">nos_input_field_mode</a>)
    1747. 

  1747. <a name="l01731"></a><a class="code" href="classIncFluid.html#524c7eeae5deea4ce74f175d4054f762">01731</a> {  
    1748. 

  1748. <a name="l01732"></a>01732 
    1749. 

  1749. <a name="l01733"></a>01733         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1750. 

  1750. <a name="l01734"></a>01734         {
    1751. 

  1751. <a name="l01735"></a>01735                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, Nreduced, nos_input_field_mode);                           
    1752. 

  1752. <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>);            
    1753. 

  1753. <a name="l01737"></a>01737         }
    1754. 

  1754. <a name="l01738"></a>01738         
    1755. 

  1755. <a name="l01739"></a>01739         <span class="keywordflow">else</span>
    1756. 

  1756. <a name="l01740"></a>01740                 <a class="code" href="classIncFluid.html#2cc82cf45ab178363a3883dd13c77f40">Init_cond</a>(W, T, Nreduced, nos_input_field_mode);
    1757. 

  1757. <a name="l01741"></a>01741                 
    1758. 

  1758. <a name="l01742"></a>01742         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1759. 

  1759. <a name="l01743"></a>01743 }
    1760. 

  1760. <a name="l01744"></a>01744 
    1761. 

  1761. <a name="l01745"></a>01745 <span class="comment">//</span>
    1762. 

  1762. <a name="l01746"></a>01746                                 
    1763. 

  1763. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T)
    1764. 

  1764. <a name="l01748"></a>01748 {
    1765. 

  1765. <a name="l01749"></a>01749 
    1766. 

  1766. <a name="l01750"></a>01750         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1767. 

  1767. <a name="l01751"></a>01751         {
    1768. 

  1768. <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);                              
    1769. 

  1769. <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>;  
    1770. 

  1770. <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>);                
    1771. 

  1771. <a name="l01755"></a>01755         }
    1772. 

  1772. <a name="l01756"></a>01756         
    1773. 

  1773. <a name="l01757"></a>01757         <span class="keywordflow">else</span>
    1774. 

  1774. <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);
    1775. 

  1775. <a name="l01759"></a>01759                 
    1776. 

  1776. <a name="l01760"></a>01760         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1777. 

  1777. <a name="l01761"></a>01761 }
    1778. 

  1778. <a name="l01762"></a>01762 
    1779. 

  1779. <a name="l01763"></a>01763 <span class="comment">//</span>
    1780. 

  1780. <a name="l01764"></a>01764 
    1781. 

  1781. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T)
    1782. 

  1782. <a name="l01766"></a>01766 {
    1783. 

  1783. <a name="l01767"></a>01767 
    1784. 

  1784. <a name="l01768"></a>01768         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1785. 

  1785. <a name="l01769"></a>01769         {
    1786. 

  1786. <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);                           
    1787. 

  1787. <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>;  
    1788. 

  1788. <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>);                
    1789. 

  1789. <a name="l01773"></a>01773         }
    1790. 

  1790. <a name="l01774"></a>01774         
    1791. 

  1791. <a name="l01775"></a>01775         <span class="keywordflow">else</span>
    1792. 

  1792. <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);
    1793. 

  1793. <a name="l01777"></a>01777                 
    1794. 

  1794. <a name="l01778"></a>01778         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1795. 

  1795. <a name="l01779"></a>01779 }
    1796. 

  1796. <a name="l01780"></a>01780 
    1797. 

  1797. <a name="l01781"></a>01781 <span class="comment">//</span>
    1798. 

  1798. <a name="l01782"></a>01782 <span class="comment">//</span>
    1799. 

  1799. <a name="l01783"></a>01783 
    1800. 

  1800. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1801. 

  1801. <a name="l01785"></a><a class="code" href="classIncFluid.html#83ccccc6f048ce4d0138465ceda52238">01785</a> {
    1802. 

  1802. <a name="l01786"></a>01786 
    1803. 

  1803. <a name="l01787"></a>01787         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1804. 

  1804. <a name="l01788"></a>01788         {
    1805. 

  1805. <a name="l01789"></a>01789                 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, init_cond_para);                           
    1806. 

  1806. <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>; 
    1807. 

  1807. <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>);                
    1808. 

  1808. <a name="l01792"></a>01792         }
    1809. 

  1809. <a name="l01793"></a>01793         
    1810. 

  1810. <a name="l01794"></a>01794         <span class="keywordflow">else</span>
    1811. 

  1811. <a name="l01795"></a>01795                 <a class="code" href="classIncFluid.html#f051aceda92b40d5acb1e643da67b3da">Init_cond_energy_spectrum</a>(W, T, init_cond_para);
    1812. 

  1812. <a name="l01796"></a>01796                 
    1813. 

  1813. <a name="l01797"></a>01797         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1814. 

  1814. <a name="l01798"></a>01798                 
    1815. 

  1815. <a name="l01799"></a>01799 }       
    1816. 

  1816. <a name="l01800"></a>01800 
    1817. 

  1817. <a name="l01801"></a>01801 
    1818. 

  1818. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1819. 

  1819. <a name="l01803"></a><a class="code" href="classIncFluid.html#df606d12d00b0aad77c40b168c805130">01803</a> {
    1820. 

  1820. <a name="l01804"></a>01804 
    1821. 

  1821. <a name="l01805"></a>01805         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1822. 

  1822. <a name="l01806"></a>01806         {
    1823. 

  1823. <a name="l01807"></a>01807                 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, init_cond_para);                          
    1824. 

  1824. <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>; 
    1825. 

  1825. <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>);                
    1826. 

  1826. <a name="l01810"></a>01810         }
    1827. 

  1827. <a name="l01811"></a>01811         
    1828. 

  1828. <a name="l01812"></a>01812         <span class="keywordflow">else</span>
    1829. 

  1829. <a name="l01813"></a>01813                 <a class="code" href="classIncFluid.html#902e6e061b97dff5aaa085be10004d65">Init_cond_energy_helicity_spectrum</a>(W, T, init_cond_para);
    1830. 

  1830. <a name="l01814"></a>01814                 
    1831. 

  1831. <a name="l01815"></a>01815         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1832. 

  1832. <a name="l01816"></a>01816 }               
    1833. 

  1833. <a name="l01817"></a>01817 
    1834. 

  1834. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1835. 

  1835. <a name="l01819"></a><a class="code" href="classIncFluid.html#9e490a699b8606b84973e79083cf9800">01819</a> {
    1836. 

  1836. <a name="l01820"></a>01820 
    1837. 

  1837. <a name="l01821"></a>01821         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1838. 

  1838. <a name="l01822"></a>01822         {
    1839. 

  1839. <a name="l01823"></a>01823                 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, init_cond_para);                              
    1840. 

  1840. <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>; 
    1841. 

  1841. <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>);                
    1842. 

  1842. <a name="l01826"></a>01826         }
    1843. 

  1843. <a name="l01827"></a>01827         
    1844. 

  1844. <a name="l01828"></a>01828         <span class="keywordflow">else</span>
    1845. 

  1845. <a name="l01829"></a>01829                 <a class="code" href="classIncFluid.html#e5dd5720bc72f0ea698764622b55af3e">Init_cond_Taylor_Green</a>(W, T, init_cond_para);
    1846. 

  1846. <a name="l01830"></a>01830                 
    1847. 

  1847. <a name="l01831"></a>01831         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1848. 

  1848. <a name="l01832"></a>01832 }       
    1849. 

  1849. <a name="l01833"></a>01833 
    1850. 

  1850. <a name="l01834"></a>01834 
    1851. 

  1851. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T, Array&lt;DP,1&gt; <a class="code" href="classIncFluid.html#fc4ab8d5c8557b70b39dbe873113de66">init_cond_para</a>)
    1852. 

  1852. <a name="l01836"></a><a class="code" href="classIncFluid.html#b938ee05698a3d018b11ffc6d831c84f">01836</a> {
    1853. 

  1853. <a name="l01837"></a>01837 
    1854. 

  1854. <a name="l01838"></a>01838         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    1855. 

  1855. <a name="l01839"></a>01839         {
    1856. 

  1856. <a name="l01840"></a>01840                 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, init_cond_para);                               
    1857. 

  1857. <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>; 
    1858. 

  1858. <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>);                
    1859. 

  1859. <a name="l01843"></a>01843         }
    1860. 

  1860. <a name="l01844"></a>01844         
    1861. 

  1861. <a name="l01845"></a>01845         <span class="keywordflow">else</span>
    1862. 

  1862. <a name="l01846"></a>01846                 <a class="code" href="classIncFluid.html#3d791dbda9966f3268e01785b046ab65">Init_cond_ABC</a>(W, T, init_cond_para);
    1863. 

  1863. <a name="l01847"></a>01847                 
    1864. 

  1864. <a name="l01848"></a>01848         <a class="code" href="classIncVF.html#b9d5317ac5ba8318f421f51c4b87d6b7">Zero_modes_RB_slip</a>(W, T);       
    1865. 

  1865. <a name="l01849"></a>01849                 
    1866. 

  1866. <a name="l01850"></a>01850 }       
    1867. 

  1867. <a name="l01851"></a>01851 
    1868. 

  1868. <a name="l01852"></a>01852 <span class="comment">/*====================================================================================</span>
    1869. 

  1869. <a name="l01853"></a>01853 <span class="comment"></span>
    1870. 

  1870. <a name="l01854"></a>01854 <span class="comment">        Zero_modes_RB_slip(IncSF&amp; T)</span>
    1871. 

  1871. <a name="l01855"></a>01855 <span class="comment">        </span>
    1872. 

  1872. <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>
    1873. 

  1873. <a name="l01857"></a>01857 <span class="comment">                Reason: (*V1)(0,j,k) = (*T.F)(0,j,k) = 0 because sin(0)=0.</span>
    1874. 

  1874. <a name="l01858"></a>01858 <span class="comment">                2D: (*V2)(0,j)=0 due to incompressibilty.</span>
    1875. 

  1875. <a name="l01859"></a>01859 <span class="comment">                3D: (*V2,3)(0,j,k) = 0 by choice.</span>
    1876. 

  1876. <a name="l01860"></a>01860 <span class="comment">                </span>
    1877. 

  1877. <a name="l01861"></a>01861 <span class="comment">====================================================================================*/</span>
    1878. 

  1878. <a name="l01862"></a>01862 
    1879. 

  1879. <a name="l01863"></a>01863 
    1880. 

  1880. <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>&amp; T)
    1881. 

  1881. <a name="l01865"></a>01865 {
    1882. 

  1882. <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>
    1883. 

  1883. <a name="l01867"></a>01867                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j=0; j&lt;<a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007" title="Size of complex array of CVF, force etc.">N</a>[2]; j++)
    1884. 

  1884. <a name="l01868"></a>01868                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> k=0; k&lt;=N[3]/2; k++)
    1885. 

  1885. <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;
    1886. 

  1886. <a name="l01870"></a>01870                                 
    1887. 

  1887. <a name="l01871"></a>01871 }       
    1888. 

  1888. <a name="l01872"></a>01872 
    1889. 

  1889. <a name="l01873"></a>01873 
    1890. 

  1890. <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>&amp; W, <a class="code" href="classIncSF.html" title="Incompressible scalar field IncSF.">IncSF</a>&amp; T)
    1891. 

  1891. <a name="l01875"></a>01875 {
    1892. 

  1892. <a name="l01876"></a>01876         <span class="keywordflow">if</span> (<a class="code" href="basis__basicfn_8cc.html#f9650afe4b09491cf2583300c86c81fb">my_id</a> == 0)
    1893. 

  1893. <a name="l01877"></a>01877         {
    1894. 

  1894. <a name="l01878"></a>01878                 cout &lt;&lt; <span class="stringliteral">"Implement zero mode "</span> &lt;&lt; endl;
    1895. 

  1895. <a name="l01879"></a>01879                 exit(0);
    1896. 

  1896. <a name="l01880"></a>01880         }       
    1897. 

  1897. <a name="l01881"></a>01881 }               
    1898. 

  1898. <a name="l01882"></a>01882 <span class="comment">//============================ End of Init_cond.cc ==================================</span>
    1899. 

  1899. <a name="l01883"></a>01883 
    1900. 

  1900. <a name="l01884"></a>01884 
    1901. 

  1901. <a name="l01885"></a>01885 
    1902. 

  1902. <a name="l01886"></a>01886 
    1903. 

  1903. <a name="l01887"></a>01887 
    1904. 

  1904. <a name="l01888"></a>01888 
    1905. 

  1905. <a name="l01889"></a>01889 
    1906. 

  1906. <a name="l01890"></a>01890 
    1907. 

  1907. <a name="l01891"></a>01891 
    1908. 

  1908. <a name="l01892"></a>01892 
    1909. 

  1909. <a name="l01893"></a>01893 
    1910. 

  1910. <a name="l01894"></a>01894 
    1911. 

  1911. <a name="l01895"></a>01895 
    1912. 

  1912. <a name="l01896"></a>01896 
    1913. 

  1913. <a name="l01897"></a>01897 
    1914. 

  1914. <a name="l01898"></a>01898 
    1915. 

  1915. <a name="l01899"></a>01899 
    1916. 

  1916. <a name="l01900"></a>01900   
    1917. 

  1917. </pre></div></div>
    1918. 

  1918. <hr size="1"><address style="text-align: right;"><small>Generated on Wed May 13 18:02:40 2009 for TARANG-MPI by&nbsp;
    1919. 

  1919. <a href="http://www.doxygen.org/index.html">
    1920. 

  1920. <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.6 </small></address>
    1921. 

  1921. </body>
    1922. 

  1922. </html>
    1923. 

  1923.