PageRenderTime 47ms CodeModel.GetById 6ms RepoModel.GetById 0ms app.codeStats 1ms

/trunk/DOC/html/compute__force_8cc-source.html

https://bitbucket.org/mchandra/tarang-mpi-old
HTML | 1793 lines | 1792 code | 0 blank | 1 comment | 0 complexity | 84a532356590ce2c77c67f7501772fc1 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: compute_force.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="annotated.html"><span>Data&nbsp;Structures</span></a></li>
    13. 

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

  14.     </ul>
    15. 

  15.   </div>
    16. 

  16. <h1>compute_force.cc</h1><a href="compute__force_8cc.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 
    17. 

  17. <a name="l00002"></a>00002 <span class="comment">//      SPECTRAL Version 1.0</span>
    18. 

  18. <a name="l00003"></a>00003 <span class="comment">//      Date:   16 Sept. 2007</span>
    19. 

  19. <a name="l00004"></a>00004 <span class="comment">//      Author: M. K. Verma</span>
    20. 

  20. <a name="l00005"></a>00005 <span class="comment">//      Filename: compute_add_force.cc</span>
    21. 

  21. <a name="l00006"></a>00006 
    22. 

  22. <a name="l00007"></a>00007 <span class="preprocessor">#include "<a class="code" href="IncFluid_8h.html">IncFluid.h</a>"</span>
    23. 

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

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

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

  26. <a name="l00011"></a>00011 <span class="comment">                Compute_force()</span>
    27. 

  27. <a name="l00012"></a>00012 <span class="comment">                With parameters that is passed from the main prog</span>
    28. 

  28. <a name="l00013"></a>00013 <span class="comment">                For fluid, passive-scalar, mhd, mangnetic-temperature</span>
    29. 

  29. <a name="l00014"></a>00014 <span class="comment">                For RB-convection:</span>
    30. 

  30. <a name="l00015"></a>00015 <span class="comment">                                </span>
    31. 

  31. <a name="l00016"></a>00016 <span class="comment">                                For Pr_large, u_small:           nlin1 = T[(U.grad)U1] - Ra*Pr*T(k) </span>
    32. 

  32. <a name="l00017"></a>00017 <span class="comment">                                For Pr_large, u_large:           nlin1 = T[(U.grad)U1] - T(k)   </span>
    33. 

  33. <a name="l00018"></a>00018 <span class="comment">                                For Pr_small or 0, u_small:  nlin1 = T[(U.grad)U1] - T(k) </span>
    34. 

  34. <a name="l00019"></a>00019 <span class="comment">                                For Pr_small or 0, u_large:  nlin1 = T[(U.grad)U1] - Ra*T(k)    </span>
    35. 

  35. <a name="l00020"></a>00020 <span class="comment"></span>
    36. 

  36. <a name="l00021"></a>00021 <span class="comment">=================================================================================*/</span>
    37. 

  37. <a name="l00022"></a>00022 
    38. 

  38. <a name="l00023"></a><a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">00023</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">IncFluid::Compute_force</a>()
    39. 

  39. <a name="l00024"></a>00024 {
    40. 

  40. <a name="l00025"></a>00025         <span class="keywordflow">switch</span> (<a class="code" href="classIncFluid.html#be6a535bbf3b51ff6b226f9d1ce0e2e3">force_field_proc</a>) 
    41. 

  41. <a name="l00026"></a>00026         {               
    42. 

  42. <a name="l00027"></a>00027                 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">Compute_force_decay</a>();       <span class="keywordflow">break</span>;                  <span class="comment">// Decaying             </span>
    43. 

  43. <a name="l00028"></a>00028                 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">Compute_force_const_energy_helicity_supply</a>(); <span class="keywordflow">break</span>; 
    44. 

  44. <a name="l00029"></a>00029                 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">Compute_force_const_energy_helicity</a>(); <span class="keywordflow">break</span>;                        
    45. 

  45. <a name="l00030"></a>00030                 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>(); <span class="keywordflow">break</span>;
    46. 

  46. <a name="l00031"></a>00031                 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>(); <span class="keywordflow">break</span>;
    47. 

  47. <a name="l00032"></a>00032                 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">Compute_force_given_modes_SIMPLE</a>(); <span class="keywordflow">break</span>;
    48. 

  48. <a name="l00033"></a>00033                 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">Compute_force_given_modes_VORTICITY</a>(); <span class="keywordflow">break</span>;                
    49. 

  49. <a name="l00034"></a>00034                 <span class="keywordflow">case</span> (11) : <a class="code" href="classIncFluid.html#e0293b45a04a6373b6ee8e158d7ee7be">Compute_force_Liquid_metal</a>(); <span class="keywordflow">break</span>;
    50. 

  50. <a name="l00035"></a>00035         }               
    51. 

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

  52. <a name="l00037"></a>00037 
    53. 

  53. <a name="l00038"></a>00038 <span class="comment">//</span>
    54. 

  54. <a name="l00039"></a>00039 <span class="comment">//</span>
    55. 

  55. <a name="l00040"></a>00040 
    56. 

  56. <a name="l00041"></a><a class="code" href="classIncFluid.html#7651b71e1389347b3b05481d5b03e6b1">00041</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">IncFluid::Compute_force</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    57. 

  57. <a name="l00042"></a>00042 {
    58. 

  58. <a name="l00043"></a>00043         <span class="keywordflow">switch</span> (<a class="code" href="classIncFluid.html#be6a535bbf3b51ff6b226f9d1ce0e2e3">force_field_proc</a>) 
    59. 

  59. <a name="l00044"></a>00044         {               
    60. 

  60. <a name="l00045"></a>00045                 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">Compute_force_decay</a>(T);      <span class="keywordflow">break</span>;                  <span class="comment">// Decaying             </span>
    61. 

  61. <a name="l00046"></a>00046                 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">Compute_force_const_energy_helicity_supply</a>(T); <span class="keywordflow">break</span>;        
    62. 

  62. <a name="l00047"></a>00047                 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">Compute_force_const_energy_helicity</a>(T); <span class="keywordflow">break</span>;               
    63. 

  63. <a name="l00048"></a>00048                 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>(T); <span class="keywordflow">break</span>;
    64. 

  64. <a name="l00049"></a>00049                 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>(T); <span class="keywordflow">break</span>;
    65. 

  65. <a name="l00050"></a>00050                 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">Compute_force_given_modes_SIMPLE</a>(T); <span class="keywordflow">break</span>;
    66. 

  66. <a name="l00051"></a>00051                 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">Compute_force_given_modes_VORTICITY</a>(T); <span class="keywordflow">break</span>;
    67. 

  67. <a name="l00052"></a>00052         }               
    68. 

  68. <a name="l00053"></a>00053 }
    69. 

  69. <a name="l00054"></a>00054 
    70. 

  70. <a name="l00055"></a>00055 <span class="comment">//</span>
    71. 

  71. <a name="l00056"></a>00056 <span class="comment">//</span>
    72. 

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

  73. <a name="l00058"></a><a class="code" href="classIncFluid.html#2ed39a17a965faa2e0b8788ccd58d481">00058</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">IncFluid::Compute_force</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    74. 

  74. <a name="l00059"></a>00059 {
    75. 

  75. <a name="l00060"></a>00060         <span class="keywordflow">switch</span> (<a class="code" href="classIncFluid.html#be6a535bbf3b51ff6b226f9d1ce0e2e3">force_field_proc</a>) 
    76. 

  76. <a name="l00061"></a>00061         {               
    77. 

  77. <a name="l00062"></a>00062                 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">Compute_force_decay</a>(W);      <span class="keywordflow">break</span>;                  <span class="comment">// Decaying             </span>
    78. 

  78. <a name="l00063"></a>00063                 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">Compute_force_const_energy_helicity_supply</a>(W); <span class="keywordflow">break</span>;        
    79. 

  79. <a name="l00064"></a>00064                 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">Compute_force_const_energy_helicity</a>(W); <span class="keywordflow">break</span>;               
    80. 

  80. <a name="l00065"></a>00065                 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>(W); <span class="keywordflow">break</span>;
    81. 

  81. <a name="l00066"></a>00066                 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>(W); <span class="keywordflow">break</span>;
    82. 

  82. <a name="l00067"></a>00067                 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">Compute_force_given_modes_SIMPLE</a>(W); <span class="keywordflow">break</span>;
    83. 

  83. <a name="l00068"></a>00068                 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">Compute_force_given_modes_VORTICITY</a>(W); <span class="keywordflow">break</span>;
    84. 

  84. <a name="l00069"></a>00069                 <span class="keywordflow">case</span> (11): <a class="code" href="classIncFluid.html#ad6c3c6c555db37ffbfc05338862d65d">Compute_force_DYNAMO_SIX_MODE</a>(W); <span class="keywordflow">break</span>;
    85. 

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

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

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

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

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

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

  91. <a name="l00076"></a><a class="code" href="classIncFluid.html#b9dc50013cf07606a1765627af782663">00076</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">IncFluid::Compute_force</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    92. 

  92. <a name="l00077"></a>00077 {
    93. 

  93. <a name="l00078"></a>00078         <span class="keywordflow">switch</span> (<a class="code" href="classIncFluid.html#be6a535bbf3b51ff6b226f9d1ce0e2e3">force_field_proc</a>) 
    94. 

  94. <a name="l00079"></a>00079         {               
    95. 

  95. <a name="l00080"></a>00080                 <span class="keywordflow">case</span> (0) : <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">Compute_force_decay</a>(W, T);   <span class="keywordflow">break</span>;                  <span class="comment">// Decaying             </span>
    96. 

  96. <a name="l00081"></a>00081                 <span class="keywordflow">case</span> (1) : <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">Compute_force_const_energy_helicity_supply</a>(W, T); <span class="keywordflow">break</span>;     
    97. 

  97. <a name="l00082"></a>00082                 <span class="keywordflow">case</span> (2) : <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">Compute_force_const_energy_helicity</a>(W, T); <span class="keywordflow">break</span>;                    
    98. 

  98. <a name="l00083"></a>00083                 <span class="keywordflow">case</span> (3) : <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>(W, T); <span class="keywordflow">break</span>;
    99. 

  99. <a name="l00084"></a>00084                 <span class="keywordflow">case</span> (4) : <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>(W, T); <span class="keywordflow">break</span>;
    100. 

  100. <a name="l00085"></a>00085                 <span class="keywordflow">case</span> (5) : <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">Compute_force_given_modes_SIMPLE</a>(W, T); <span class="keywordflow">break</span>;
    101. 

  101. <a name="l00086"></a>00086                 <span class="keywordflow">case</span> (6) : <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">Compute_force_given_modes_VORTICITY</a>(W, T); <span class="keywordflow">break</span>;
    102. 

  102. <a name="l00087"></a>00087         }               
    103. 

  103. <a name="l00088"></a>00088 }
    104. 

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

  105. <a name="l00090"></a>00090 <span class="comment">/*=============================================================================</span>
    106. 

  106. <a name="l00091"></a>00091 <span class="comment"></span>
    107. 

  107. <a name="l00092"></a>00092 <span class="comment">                Force for RB turbulence</span>
    108. 

  108. <a name="l00093"></a>00093 <span class="comment"></span>
    109. 

  109. <a name="l00094"></a>00094 <span class="comment">=================================================================================*/</span>
    110. 

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

  111. <a name="l00096"></a><a class="code" href="classIncFluid.html#b2d03a8cb79862962274a275f673d253">00096</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b2d03a8cb79862962274a275f673d253">IncFluid::Compute_force_RB</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T, <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> Ra, <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> Pr, <span class="keywordtype">string</span> Pr_switch, <span class="keywordtype">string</span> RB_Uscaling)
    112. 

  112. <a name="l00097"></a>00097 {
    113. 

  113. <a name="l00098"></a>00098 
    114. 

  114. <a name="l00099"></a>00099 <span class="comment">// For the velocity field</span>
    115. 

  115. <a name="l00100"></a>00100         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRLARGE"</span>) 
    116. 

  116. <a name="l00101"></a>00101         {       
    117. 

  117. <a name="l00102"></a>00102                 <span class="keywordflow">if</span> (RB_Uscaling == <span class="stringliteral">"USMALL"</span>)            
    118. 

  118. <a name="l00103"></a>00103                         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> =  (Ra*Pr)*(*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>);                      <span class="comment">// (u.grad)u-Ra*Pr*theta        </span>
    119. 

  119. <a name="l00104"></a>00104                         
    120. 

  120. <a name="l00105"></a>00105                 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (RB_Uscaling  == <span class="stringliteral">"ULARGE"</span>)              
    121. 

  121. <a name="l00106"></a>00106                          *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> =  (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>);                                     <span class="comment">// (u.grad)u-theta                      </span>
    122. 

  122. <a name="l00107"></a>00107         }
    123. 

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

  124. <a name="l00109"></a>00109         <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((Pr_switch == <span class="stringliteral">"PRSMALL"</span>) || (Pr_switch == <span class="stringliteral">"PRZERO"</span>)) 
    125. 

  125. <a name="l00110"></a>00110         {       
    126. 

  126. <a name="l00111"></a>00111                 <span class="keywordflow">if</span> (RB_Uscaling == <span class="stringliteral">"USMALL"</span>) 
    127. 

  127. <a name="l00112"></a>00112                         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = (Ra)*(*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>);                          <span class="comment">// (u.grad)u-theta</span>
    128. 

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

  129. <a name="l00114"></a>00114                 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (RB_Uscaling == <span class="stringliteral">"ULARGE"</span>)               
    130. 

  130. <a name="l00115"></a>00115                         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = (Pr)*(*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>);                          <span class="comment">// (u.grad)u-theta</span>
    131. 

  131. <a name="l00116"></a>00116         }       
    132. 

  132. <a name="l00117"></a>00117 
    133. 

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

  134. <a name="l00119"></a>00119         *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; 
    135. 

  135. <a name="l00120"></a>00120         *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    136. 

  136. <a name="l00121"></a>00121 
    137. 

  137. <a name="l00122"></a>00122 <span class="comment">// For the temperature field</span>
    138. 

  138. <a name="l00123"></a>00123 
    139. 

  139. <a name="l00124"></a>00124         <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRZERO"</span>) 
    140. 

  140. <a name="l00125"></a>00125                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;  <span class="comment">// Do nothing; Nonlinear term (u.grad)T does not exist- see single-time step</span>
    141. 

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

  142. <a name="l00127"></a>00127         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRLARGE"</span>)        
    143. 

  143. <a name="l00128"></a>00128                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> =   *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>;                                                                               <span class="comment">// F(T) = ux(k) </span>
    144. 

  144. <a name="l00129"></a>00129         
    145. 

  145. <a name="l00130"></a>00130         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (Pr_switch == <span class="stringliteral">"PRSMALL"</span>)        
    146. 

  146. <a name="l00131"></a>00131                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> =   complex&lt;DP&gt;(1/Pr, 0)*((*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)); ;                    <span class="comment">//F(T) =  ux(k)/Pr</span>
    147. 

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

  148. <a name="l00133"></a>00133         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>(T);       
    149. 

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

  150. <a name="l00135"></a>00135 }
    151. 

  151. <a name="l00136"></a>00136 
    152. 

  152. <a name="l00137"></a><a class="code" href="classIncFluid.html#bca4ff3fa01026825950d6746251078c">00137</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b2d03a8cb79862962274a275f673d253">IncFluid::Compute_force_RB</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T, <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> Ra, <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> Pr, <span class="keywordtype">string</span> Pr_switch, <span class="keywordtype">string</span> RB_Uscaling)
    153. 

  153. <a name="l00138"></a>00138 {
    154. 

  154. <a name="l00139"></a>00139         <a class="code" href="classIncFluid.html#b2d03a8cb79862962274a275f673d253">IncFluid::Compute_force_RB</a>(T, Ra, Pr, Pr_switch, RB_Uscaling);
    155. 

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

  156. <a name="l00141"></a>00141         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; 
    157. 

  157. <a name="l00142"></a>00142         *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; 
    158. 

  158. <a name="l00143"></a>00143         *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    159. 

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

  160. <a name="l00145"></a>00145         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          W.<a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>();
    161. 

  161. <a name="l00146"></a>00146 }
    162. 

  162. <a name="l00147"></a>00147 
    163. 

  163. <a name="l00148"></a>00148 
    164. 

  164. <a name="l00149"></a>00149 <span class="comment">/*=============================================================================</span>
    165. 

  165. <a name="l00150"></a>00150 <span class="comment"></span>
    166. 

  166. <a name="l00151"></a>00151 <span class="comment">                Decaying turbulence</span>
    167. 

  167. <a name="l00152"></a>00152 <span class="comment">                force = 0.0;    </span>
    168. 

  168. <a name="l00153"></a>00153 <span class="comment"></span>
    169. 

  169. <a name="l00154"></a>00154 <span class="comment">=================================================================================*/</span>
    170. 

  170. <a name="l00155"></a>00155 
    171. 

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

  172. <a name="l00157"></a><a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">00157</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">IncFluid::Compute_force_decay</a>()
    173. 

  173. <a name="l00158"></a>00158 {
    174. 

  174. <a name="l00159"></a>00159         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; 
    175. 

  175. <a name="l00160"></a>00160         *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; 
    176. 

  176. <a name="l00161"></a>00161         *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    177. 

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

  178. <a name="l00163"></a>00163         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>();
    179. 

  179. <a name="l00164"></a>00164 }
    180. 

  180. <a name="l00165"></a>00165 
    181. 

  181. <a name="l00166"></a><a class="code" href="classIncFluid.html#24466685c8933fdda107a4d716c36cae">00166</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">IncFluid::Compute_force_decay</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    182. 

  182. <a name="l00167"></a>00167 {
    183. 

  183. <a name="l00168"></a>00168         <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">Compute_force</a>();
    184. 

  184. <a name="l00169"></a>00169                 
    185. 

  185. <a name="l00170"></a>00170         *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    186. 

  186. <a name="l00171"></a>00171         
    187. 

  187. <a name="l00172"></a>00172         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>(T);
    188. 

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

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

  190. <a name="l00175"></a><a class="code" href="classIncFluid.html#9542ae227203e78ee7838dfb87ae9281">00175</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">IncFluid::Compute_force_decay</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    191. 

  191. <a name="l00176"></a>00176 {
    192. 

  192. <a name="l00177"></a>00177         <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">Compute_force</a>();
    193. 

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

  194. <a name="l00179"></a>00179         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; 
    195. 

  195. <a name="l00180"></a>00180         *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; 
    196. 

  196. <a name="l00181"></a>00181         *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    197. 

  197. <a name="l00182"></a>00182         
    198. 

  198. <a name="l00183"></a>00183         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>(W);       
    199. 

  199. <a name="l00184"></a>00184 }
    200. 

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

  201. <a name="l00186"></a><a class="code" href="classIncFluid.html#be7d1092faa0bf1fa402f2f10e464153">00186</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#18abdeb2ccca346327f99c8fd81b1f1b">IncFluid::Compute_force_decay</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a> &amp;T)
    202. 

  202. <a name="l00187"></a>00187 {
    203. 

  203. <a name="l00188"></a>00188         <a class="code" href="classIncFluid.html#dc1a9fbdb5ca973f18c5b16ef6bae753">Compute_force</a>(W);
    204. 

  204. <a name="l00189"></a>00189                 
    205. 

  205. <a name="l00190"></a>00190         *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    206. 

  206. <a name="l00191"></a>00191         
    207. 

  207. <a name="l00192"></a>00192         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)          <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>(W, T);
    208. 

  208. <a name="l00193"></a>00193 }
    209. 

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

  210. <a name="l00195"></a>00195 
    211. 

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

  212. <a name="l00197"></a>00197 <span class="comment">/*=============================================================================</span>
    213. 

  213. <a name="l00198"></a>00198 <span class="comment"></span>
    214. 

  214. <a name="l00199"></a>00199 <span class="comment">                Force with constant energy and helicity supply rates</span>
    215. 

  215. <a name="l00200"></a>00200 <span class="comment">                Note: sk != +1 or -1.  Maximum helicity state requires V field to be</span>
    216. 

  216. <a name="l00201"></a>00201 <span class="comment">                maximum helical, which is zero probability state.</span>
    217. 

  217. <a name="l00202"></a>00202 <span class="comment"></span>
    218. 

  218. <a name="l00203"></a>00203 <span class="comment">=================================================================================*/</span>
    219. 

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

  220. <a name="l00205"></a>00205 
    221. 

  221. <a name="l00206"></a><a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">00206</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">IncFluid::Compute_force_const_energy_helicity_supply</a>()
    222. 

  222. <a name="l00207"></a>00207 {
    223. 

  223. <a name="l00208"></a>00208 
    224. 

  224. <a name="l00209"></a>00209         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    225. 

  225. <a name="l00210"></a>00210         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    226. 

  226. <a name="l00211"></a>00211         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply = (*force_field_para)(3);
    227. 

  227. <a name="l00212"></a>00212         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse = (*force_field_para)(4);                             <span class="comment">// Hk(k)/(k*e(k))</span>
    228. 

  228. <a name="l00213"></a>00213         
    229. 

  229. <a name="l00214"></a>00214         <span class="comment">// cout &lt;&lt; *V1 &lt;&lt; *V2 &lt;&lt; *V3 &lt;&lt; endl;</span>
    230. 

  230. <a name="l00215"></a>00215         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    231. 

  231. <a name="l00216"></a>00216         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_per_mode = energy_supply / nf;
    232. 

  232. <a name="l00217"></a>00217         
    233. 

  233. <a name="l00218"></a>00218         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    234. 

  234. <a name="l00219"></a>00219         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    235. 

  235. <a name="l00220"></a>00220         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    236. 

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

  237. <a name="l00222"></a>00222         <span class="keywordtype">int</span> lx, ly, lz;
    238. 

  238. <a name="l00223"></a>00223         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, alpha_k, beta_k, ek, sk, temp;
    239. 

  239. <a name="l00224"></a>00224         TinyVector&lt;complx,3&gt; vorticity;
    240. 

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

  241. <a name="l00226"></a>00226         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    242. 

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

  243. <a name="l00228"></a>00228         <span class="keywordtype">int</span> kx_min;
    244. 

  244. <a name="l00229"></a>00229         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    245. 

  245. <a name="l00230"></a>00230                 kx_min = -kx_max;
    246. 

  246. <a name="l00231"></a>00231         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    247. 

  247. <a name="l00232"></a>00232                 kx_min = 0;
    248. 

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

  249. <a name="l00234"></a>00234         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    250. 

  250. <a name="l00235"></a>00235                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    251. 

  251. <a name="l00236"></a>00236                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    252. 

  252. <a name="l00237"></a>00237                         {
    253. 

  253. <a name="l00238"></a>00238                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    254. 

  254. <a name="l00239"></a>00239                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    255. 

  255. <a name="l00240"></a>00240                                 lz = kz;
    256. 

  256. <a name="l00241"></a>00241                                 
    257. 

  257. <a name="l00242"></a>00242                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    258. 

  258. <a name="l00243"></a>00243                                 {
    259. 

  259. <a name="l00244"></a>00244                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    260. 

  260. <a name="l00245"></a>00245                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    261. 

  261. <a name="l00246"></a>00246                                         {
    262. 

  262. <a name="l00247"></a>00247                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    263. 

  263. <a name="l00248"></a>00248                                                 
    264. 

  264. <a name="l00249"></a>00249                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    265. 

  265. <a name="l00250"></a>00250                                                 {
    266. 

  266. <a name="l00251"></a>00251                                                         temp = energy_supply_per_mode/ (2*ek); 
    267. 

  267. <a name="l00252"></a>00252                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    268. 

  268. <a name="l00253"></a>00253                                                         
    269. 

  269. <a name="l00254"></a>00254                                                         alpha_k = temp * (1-sk*epsh_by_k_epse) / (1 - sk*sk);
    270. 

  270. <a name="l00255"></a>00255                                                         beta_k = temp * (epsh_by_k_epse - sk) / (1 - sk*sk);
    271. 

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

  272. <a name="l00257"></a>00257                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    273. 

  273. <a name="l00258"></a>00258                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(0);
    274. 

  274. <a name="l00259"></a>00259                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(1);
    275. 

  275. <a name="l00260"></a>00260                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(2);
    276. 

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

  277. <a name="l00262"></a>00262                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    278. 

  278. <a name="l00263"></a>00263                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);              
    279. 

  279. <a name="l00264"></a>00264                                                                 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)     </span>
    280. 

  280. <a name="l00265"></a>00265                                                 }               
    281. 

  281. <a name="l00266"></a>00266                                         }
    282. 

  282. <a name="l00267"></a>00267                                 }                                               
    283. 

  283. <a name="l00268"></a>00268                         }
    284. 

  284. <a name="l00269"></a>00269                         
    285. 

  285. <a name="l00270"></a>00270 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    286. 

  286. <a name="l00271"></a>00271 <span class="comment">//                      Dealias_force();</span>
    287. 

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

  288. <a name="l00273"></a>00273 }                                       
    289. 

  289. <a name="l00274"></a>00274 
    290. 

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

  291. <a name="l00276"></a>00276 <span class="comment">//</span>
    292. 

  292. <a name="l00277"></a>00277 <span class="comment">//      Scalar</span>
    293. 

  293. <a name="l00278"></a>00278 <span class="comment">//</span>
    294. 

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

  295. <a name="l00280"></a><a class="code" href="classIncFluid.html#182c63853df011e0ca78abcdf36c97e6">00280</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">IncFluid::Compute_force_const_energy_helicity_supply</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    296. 

  296. <a name="l00281"></a>00281 {
    297. 

  297. <a name="l00282"></a>00282 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    298. 

  298. <a name="l00283"></a>00283         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    299. 

  299. <a name="l00284"></a>00284         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply = (*force_field_para)(3);
    300. 

  300. <a name="l00285"></a>00285         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse = (*force_field_para)(4);                             <span class="comment">// Hk(k)/(k*e(k))</span>
    301. 

  301. <a name="l00286"></a>00286         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_scalar = (*force_field_para)(5);
    302. 

  302. <a name="l00287"></a>00287         
    303. 

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

  304. <a name="l00289"></a>00289         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    305. 

  305. <a name="l00290"></a>00290         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_per_mode = energy_supply / nf;
    306. 

  306. <a name="l00291"></a>00291         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_scalar_per_mode = energy_supply_scalar / nf;
    307. 

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

  308. <a name="l00293"></a>00293         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    309. 

  309. <a name="l00294"></a>00294         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    310. 

  310. <a name="l00295"></a>00295         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    311. 

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

  312. <a name="l00297"></a>00297         <span class="keywordtype">int</span> lx, ly, lz; 
    313. 

  313. <a name="l00298"></a>00298         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, alpha_k, beta_k, alpha_k_scalar, ek, sk, temp;
    314. 

  314. <a name="l00299"></a>00299         TinyVector&lt;complx,3&gt; vorticity;
    315. 

  315. <a name="l00300"></a>00300         
    316. 

  316. <a name="l00301"></a>00301 
    317. 

  317. <a name="l00302"></a>00302         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    318. 

  318. <a name="l00303"></a>00303         *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    319. 

  319. <a name="l00304"></a>00304         
    320. 

  320. <a name="l00305"></a>00305         <span class="keywordtype">int</span> kx_min;
    321. 

  321. <a name="l00306"></a>00306         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    322. 

  322. <a name="l00307"></a>00307                 kx_min = -kx_max;
    323. 

  323. <a name="l00308"></a>00308         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    324. 

  324. <a name="l00309"></a>00309                 kx_min = 0;
    325. 

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

  326. <a name="l00311"></a>00311         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    327. 

  327. <a name="l00312"></a>00312                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    328. 

  328. <a name="l00313"></a>00313                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    329. 

  329. <a name="l00314"></a>00314                         {
    330. 

  330. <a name="l00315"></a>00315                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    331. 

  331. <a name="l00316"></a>00316                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    332. 

  332. <a name="l00317"></a>00317                                 lz = kz;
    333. 

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

  334. <a name="l00319"></a>00319                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    335. 

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

  336. <a name="l00321"></a>00321                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    337. 

  337. <a name="l00322"></a>00322                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    338. 

  338. <a name="l00323"></a>00323                                         {
    339. 

  339. <a name="l00324"></a>00324                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    340. 

  340. <a name="l00325"></a>00325                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    341. 

  341. <a name="l00326"></a>00326                                                 {
    342. 

  342. <a name="l00327"></a>00327                                                         temp = energy_supply_per_mode/ (2*ek); 
    343. 

  343. <a name="l00328"></a>00328                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    344. 

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

  345. <a name="l00330"></a>00330                                                         alpha_k = temp * (1-sk*epsh_by_k_epse) / (1 - sk*sk);
    346. 

  346. <a name="l00331"></a>00331                                                         beta_k = temp * (epsh_by_k_epse - sk) / (1 - sk*sk);
    347. 

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

  348. <a name="l00333"></a>00333                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    349. 

  349. <a name="l00334"></a>00334                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(0);
    350. 

  350. <a name="l00335"></a>00335                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(1);
    351. 

  351. <a name="l00336"></a>00336                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(2);
    352. 

  352. <a name="l00337"></a>00337                                                         
    353. 

  353. <a name="l00338"></a>00338                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    354. 

  354. <a name="l00339"></a>00339                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);                      
    355. 

  355. <a name="l00340"></a>00340                                                                 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)</span>
    356. 

  356. <a name="l00341"></a>00341                                                 }               
    357. 

  357. <a name="l00342"></a>00342                                                                 
    358. 

  358. <a name="l00343"></a>00343                                                 <span class="keywordflow">if</span> (T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    359. 

  359. <a name="l00344"></a>00344                                                 {
    360. 

  360. <a name="l00345"></a>00345                                                         alpha_k_scalar = energy_supply_scalar_per_mode / T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz); 
    361. 

  361. <a name="l00346"></a>00346                                                         (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = alpha_k_scalar * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>)(lx, ly, lz);
    362. 

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

  363. <a name="l00348"></a>00348                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    364. 

  364. <a name="l00349"></a>00349                                                                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz);    
    365. 

  365. <a name="l00350"></a>00350                                                 }
    366. 

  366. <a name="l00351"></a>00351                                         }                                       
    367. 

  367. <a name="l00352"></a>00352                                 }       
    368. 

  368. <a name="l00353"></a>00353                         }
    369. 

  369. <a name="l00354"></a>00354                 
    370. 

  370. <a name="l00355"></a>00355 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    371. 

  371. <a name="l00356"></a>00356 <span class="comment">//                      Dealias_force();</span>
    372. 

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

  373. <a name="l00358"></a>00358 }
    374. 

  374. <a name="l00359"></a>00359 
    375. 

  375. <a name="l00360"></a>00360 <span class="comment">// </span>
    376. 

  376. <a name="l00361"></a>00361 <span class="comment">// Vector</span>
    377. 

  377. <a name="l00362"></a>00362 <span class="comment">//</span>
    378. 

  378. <a name="l00363"></a>00363 
    379. 

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

  380. <a name="l00365"></a><a class="code" href="classIncFluid.html#eea3a42d775db107d6573683a155dab3">00365</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">IncFluid::Compute_force_const_energy_helicity_supply</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    381. 

  381. <a name="l00366"></a>00366 {
    382. 

  382. <a name="l00367"></a>00367 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    383. 

  383. <a name="l00368"></a>00368         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    384. 

  384. <a name="l00369"></a>00369         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply = (*force_field_para)(3);
    385. 

  385. <a name="l00370"></a>00370         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse = (*force_field_para)(4);                             <span class="comment">// Hk(k)/(k*e(k))</span>
    386. 

  386. <a name="l00371"></a>00371         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_W = (*force_field_para)(5);
    387. 

  387. <a name="l00372"></a>00372         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse_W = (*force_field_para)(6);                           <span class="comment">// W.Hk(k)/(k*eW(k))</span>
    388. 

  388. <a name="l00373"></a>00373         
    389. 

  389. <a name="l00374"></a>00374         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    390. 

  390. <a name="l00375"></a>00375         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_per_mode = energy_supply / nf;
    391. 

  391. <a name="l00376"></a>00376         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_W_per_mode = energy_supply_W / nf;     
    392. 

  392. <a name="l00377"></a>00377         
    393. 

  393. <a name="l00378"></a>00378         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    394. 

  394. <a name="l00379"></a>00379         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    395. 

  395. <a name="l00380"></a>00380         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    396. 

  396. <a name="l00381"></a>00381         
    397. 

  397. <a name="l00382"></a>00382         <span class="keywordtype">int</span> lx, ly, lz;
    398. 

  398. <a name="l00383"></a>00383         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag;
    399. 

  399. <a name="l00384"></a>00384         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k, beta_k, ek, sk, temp;
    400. 

  400. <a name="l00385"></a>00385         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k_W, beta_k_W, ekW, skW, tempW;
    401. 

  401. <a name="l00386"></a>00386         TinyVector&lt;complx,3&gt; vorticity;
    402. 

  402. <a name="l00387"></a>00387         TinyVector&lt;complx,3&gt; vorticity_W;
    403. 

  403. <a name="l00388"></a>00388         
    404. 

  404. <a name="l00389"></a>00389         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    405. 

  405. <a name="l00390"></a>00390         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    406. 

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

  407. <a name="l00392"></a>00392         <span class="keywordtype">int</span> kx_min;
    408. 

  408. <a name="l00393"></a>00393         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    409. 

  409. <a name="l00394"></a>00394                 kx_min = -kx_max;
    410. 

  410. <a name="l00395"></a>00395         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    411. 

  411. <a name="l00396"></a>00396                 kx_min = 0;
    412. 

  412. <a name="l00397"></a>00397                 
    413. 

  413. <a name="l00398"></a>00398         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    414. 

  414. <a name="l00399"></a>00399                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    415. 

  415. <a name="l00400"></a>00400                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    416. 

  416. <a name="l00401"></a>00401                         {
    417. 

  417. <a name="l00402"></a>00402                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    418. 

  418. <a name="l00403"></a>00403                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    419. 

  419. <a name="l00404"></a>00404                                 lz = kz;
    420. 

  420. <a name="l00405"></a>00405                                 
    421. 

  421. <a name="l00406"></a>00406                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    422. 

  422. <a name="l00407"></a>00407                                 {
    423. 

  423. <a name="l00408"></a>00408                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    424. 

  424. <a name="l00409"></a>00409                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    425. 

  425. <a name="l00410"></a>00410                                         {
    426. 

  426. <a name="l00411"></a>00411                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    427. 

  427. <a name="l00412"></a>00412                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    428. 

  428. <a name="l00413"></a>00413                                                 {
    429. 

  429. <a name="l00414"></a>00414                                                         temp = energy_supply_per_mode/ (2*ek); 
    430. 

  430. <a name="l00415"></a>00415                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    431. 

  431. <a name="l00416"></a>00416                                                         
    432. 

  432. <a name="l00417"></a>00417                                                         alpha_k = temp * (1-sk*epsh_by_k_epse) / (1 - sk*sk);
    433. 

  433. <a name="l00418"></a>00418                                                         beta_k = temp * (epsh_by_k_epse - sk) / (1 - sk*sk);
    434. 

  434. <a name="l00419"></a>00419                                                         
    435. 

  435. <a name="l00420"></a>00420                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    436. 

  436. <a name="l00421"></a>00421                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(0);
    437. 

  437. <a name="l00422"></a>00422                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(1);
    438. 

  438. <a name="l00423"></a>00423                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(2);
    439. 

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

  440. <a name="l00425"></a>00425                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    441. 

  441. <a name="l00426"></a>00426                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);              
    442. 

  442. <a name="l00427"></a>00427                                                                 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)             </span>
    443. 

  443. <a name="l00428"></a>00428                                                 }       
    444. 

  444. <a name="l00429"></a>00429                                                 
    445. 

  445. <a name="l00430"></a>00430                                                 <span class="comment">// for W</span>
    446. 

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

  447. <a name="l00432"></a>00432                                                 <span class="keywordflow">if</span> (abs(energy_supply_W) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    448. 

  448. <a name="l00433"></a>00433                                                 {
    449. 

  449. <a name="l00434"></a>00434                                                         ekW = W.<a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    450. 

  450. <a name="l00435"></a>00435                                                         <span class="keywordflow">if</span> (ekW &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    451. 

  451. <a name="l00436"></a>00436                                                         {
    452. 

  452. <a name="l00437"></a>00437                                                                 tempW = energy_supply_W_per_mode/ (2*ek); 
    453. 

  453. <a name="l00438"></a>00438                                                                 skW = W.<a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ekW);
    454. 

  454. <a name="l00439"></a>00439                                                                 
    455. 

  455. <a name="l00440"></a>00440                                                                 alpha_k_W = tempW * (1-skW*epsh_by_k_epse_W) / (1 - skW*skW);
    456. 

  456. <a name="l00441"></a>00441                                                                 beta_k_W = tempW * (epsh_by_k_epse_W - skW) / (1 - skW*skW);
    457. 

  457. <a name="l00442"></a>00442                                                                 
    458. 

  458. <a name="l00443"></a>00443                                                                 W.<a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity_W);
    459. 

  459. <a name="l00444"></a>00444                                                                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k_W * vorticity_W(0);
    460. 

  460. <a name="l00445"></a>00445                                                                 (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k_W * vorticity_W(1);
    461. 

  461. <a name="l00446"></a>00446                                                                 (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k_W * vorticity_W(2);
    462. 

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

  463. <a name="l00448"></a>00448                                                                 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    464. 

  464. <a name="l00449"></a>00449                                                                         (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);  
    465. 

  465. <a name="l00450"></a>00450                                                                         <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)     </span>
    466. 

  466. <a name="l00451"></a>00451                                                         }               
    467. 

  467. <a name="l00452"></a>00452                                                 }
    468. 

  468. <a name="l00453"></a>00453                                         }       
    469. 

  469. <a name="l00454"></a>00454                                 }                                       
    470. 

  470. <a name="l00455"></a>00455                         }
    471. 

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

  472. <a name="l00457"></a>00457 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    473. 

  473. <a name="l00458"></a>00458 <span class="comment">//                      Dealias_force(W);</span>
    474. 

  474. <a name="l00459"></a>00459 
    475. 

  475. <a name="l00460"></a>00460 }
    476. 

  476. <a name="l00461"></a>00461 
    477. 

  477. <a name="l00462"></a>00462 <span class="comment">//</span>
    478. 

  478. <a name="l00463"></a>00463 <span class="comment">// Vector + Scalar</span>
    479. 

  479. <a name="l00464"></a>00464 <span class="comment">//</span>
    480. 

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

  481. <a name="l00466"></a><a class="code" href="classIncFluid.html#1f579a8310c73910cfa2e39ba0a2c693">00466</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#bc1b70c0993e23bc253beb12e22cb171">IncFluid::Compute_force_const_energy_helicity_supply</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    482. 

  482. <a name="l00467"></a>00467 {
    483. 

  483. <a name="l00468"></a>00468 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    484. 

  484. <a name="l00469"></a>00469         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    485. 

  485. <a name="l00470"></a>00470         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply = (*force_field_para)(3);
    486. 

  486. <a name="l00471"></a>00471         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse = (*force_field_para)(4);                             <span class="comment">// Hk(k)/(k*e(k))</span>
    487. 

  487. <a name="l00472"></a>00472         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_W = (*force_field_para)(5);
    488. 

  488. <a name="l00473"></a>00473         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> epsh_by_k_epse_W = (*force_field_para)(6);                           <span class="comment">// W.Hk(k)/(k*eW(k))</span>
    489. 

  489. <a name="l00474"></a>00474         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_scalar = (*force_field_para)(7);
    490. 

  490. <a name="l00475"></a>00475         
    491. 

  491. <a name="l00476"></a>00476         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    492. 

  492. <a name="l00477"></a>00477         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_per_mode = energy_supply / nf;
    493. 

  493. <a name="l00478"></a>00478         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_W_per_mode = energy_supply_W / nf;     
    494. 

  494. <a name="l00479"></a>00479         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_supply_scalar_per_mode = energy_supply_scalar / nf;   
    495. 

  495. <a name="l00480"></a>00480         
    496. 

  496. <a name="l00481"></a>00481         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    497. 

  497. <a name="l00482"></a>00482         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    498. 

  498. <a name="l00483"></a>00483         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    499. 

  499. <a name="l00484"></a>00484         
    500. 

  500. <a name="l00485"></a>00485         <span class="keywordtype">int</span> lx, ly, lz;
    501. 

  501. <a name="l00486"></a>00486         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag;
    502. 

  502. <a name="l00487"></a>00487         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k, beta_k, ek, sk, temp;
    503. 

  503. <a name="l00488"></a>00488         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k_W, beta_k_W, ekW, skW, tempW;
    504. 

  504. <a name="l00489"></a>00489         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k_scalar;
    505. 

  505. <a name="l00490"></a>00490         TinyVector&lt;complx,3&gt; vorticity;
    506. 

  506. <a name="l00491"></a>00491         TinyVector&lt;complx,3&gt; vorticity_W;
    507. 

  507. <a name="l00492"></a>00492         
    508. 

  508. <a name="l00493"></a>00493         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    509. 

  509. <a name="l00494"></a>00494         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    510. 

  510. <a name="l00495"></a>00495         *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    511. 

  511. <a name="l00496"></a>00496         
    512. 

  512. <a name="l00497"></a>00497         <span class="keywordtype">int</span> kx_min;
    513. 

  513. <a name="l00498"></a>00498         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    514. 

  514. <a name="l00499"></a>00499                 kx_min = -kx_max;
    515. 

  515. <a name="l00500"></a>00500         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    516. 

  516. <a name="l00501"></a>00501                 kx_min = 0;
    517. 

  517. <a name="l00502"></a>00502                 
    518. 

  518. <a name="l00503"></a>00503         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    519. 

  519. <a name="l00504"></a>00504                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    520. 

  520. <a name="l00505"></a>00505                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    521. 

  521. <a name="l00506"></a>00506                         {
    522. 

  522. <a name="l00507"></a>00507                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    523. 

  523. <a name="l00508"></a>00508                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    524. 

  524. <a name="l00509"></a>00509                                 lz = kz;
    525. 

  525. <a name="l00510"></a>00510                                 
    526. 

  526. <a name="l00511"></a>00511                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    527. 

  527. <a name="l00512"></a>00512                                 {
    528. 

  528. <a name="l00513"></a>00513                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    529. 

  529. <a name="l00514"></a>00514                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    530. 

  530. <a name="l00515"></a>00515                                         {
    531. 

  531. <a name="l00516"></a>00516                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    532. 

  532. <a name="l00517"></a>00517                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    533. 

  533. <a name="l00518"></a>00518                                                 {
    534. 

  534. <a name="l00519"></a>00519                                                         temp = energy_supply_per_mode/ (2*ek); 
    535. 

  535. <a name="l00520"></a>00520                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    536. 

  536. <a name="l00521"></a>00521                                                         
    537. 

  537. <a name="l00522"></a>00522                                                         alpha_k = temp * (1-sk*epsh_by_k_epse) / (1 - sk*sk);
    538. 

  538. <a name="l00523"></a>00523                                                         beta_k = temp * (epsh_by_k_epse - sk) / (1 - sk*sk);
    539. 

  539. <a name="l00524"></a>00524                                                         
    540. 

  540. <a name="l00525"></a>00525                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    541. 

  541. <a name="l00526"></a>00526                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(0);
    542. 

  542. <a name="l00527"></a>00527                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(1);
    543. 

  543. <a name="l00528"></a>00528                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(2);
    544. 

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

  545. <a name="l00530"></a>00530                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    546. 

  546. <a name="l00531"></a>00531                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);              
    547. 

  547. <a name="l00532"></a>00532                                                                 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)</span>
    548. 

  548. <a name="l00533"></a>00533                                                 }
    549. 

  549. <a name="l00534"></a>00534                                                         
    550. 

  550. <a name="l00535"></a>00535                                                 <span class="keywordflow">if</span> (T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    551. 

  551. <a name="l00536"></a>00536                                                 {
    552. 

  552. <a name="l00537"></a>00537                                                         alpha_k_scalar = energy_supply_scalar_per_mode / T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz);
    553. 

  553. <a name="l00538"></a>00538                                                         (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = alpha_k_scalar * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>)(lx, ly, lz);
    554. 

  554. <a name="l00539"></a>00539                                                         
    555. 

  555. <a name="l00540"></a>00540                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    556. 

  556. <a name="l00541"></a>00541                                                                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz);    
    557. 

  557. <a name="l00542"></a>00542                                                 }
    558. 

  558. <a name="l00543"></a>00543                                                 
    559. 

  559. <a name="l00544"></a>00544                                                 <span class="comment">// for W</span>
    560. 

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

  561. <a name="l00546"></a>00546                                                 <span class="keywordflow">if</span> (abs(energy_supply_W) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    562. 

  562. <a name="l00547"></a>00547                                                 {
    563. 

  563. <a name="l00548"></a>00548                                                         ekW = W.<a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    564. 

  564. <a name="l00549"></a>00549                                                         <span class="keywordflow">if</span> (ekW &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    565. 

  565. <a name="l00550"></a>00550                                                         {
    566. 

  566. <a name="l00551"></a>00551                                                                 tempW = energy_supply_W_per_mode/ (2*ek); 
    567. 

  567. <a name="l00552"></a>00552                                                                 skW = W.<a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ekW);
    568. 

  568. <a name="l00553"></a>00553                                                                 
    569. 

  569. <a name="l00554"></a>00554                                                                 alpha_k_W = tempW * (1-skW*epsh_by_k_epse_W) / (1 - skW*skW);
    570. 

  570. <a name="l00555"></a>00555                                                                 beta_k_W = tempW * (epsh_by_k_epse_W - skW) / (1 - skW*skW);
    571. 

  571. <a name="l00556"></a>00556                                                                 
    572. 

  572. <a name="l00557"></a>00557                                                                 W.<a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity_W);
    573. 

  573. <a name="l00558"></a>00558                                                                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k_W * vorticity_W(0);
    574. 

  574. <a name="l00559"></a>00559                                                                 (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k_W * vorticity_W(1);
    575. 

  575. <a name="l00560"></a>00560                                                                 (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>)(lx, ly, lz) = alpha_k_W * (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k_W * vorticity_W(2);
    576. 

  576. <a name="l00561"></a>00561                                                                 
    577. 

  577. <a name="l00562"></a>00562                                                                 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    578. 

  578. <a name="l00563"></a>00563                                                                         (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);
    579. 

  579. <a name="l00564"></a>00564                                                         }       
    580. 

  580. <a name="l00565"></a>00565                                                 }       
    581. 

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

  582. <a name="l00567"></a>00567                                 }                                               
    583. 

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

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

  585. <a name="l00570"></a>00570 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    586. 

  586. <a name="l00571"></a>00571 <span class="comment">//                      Dealias_force(W);</span>
    587. 

  587. <a name="l00572"></a>00572                                 
    588. 

  588. <a name="l00573"></a>00573 }                               
    589. 

  589. <a name="l00574"></a>00574 
    590. 

  590. <a name="l00575"></a>00575 
    591. 

  591. <a name="l00576"></a>00576 <span class="comment">/*=============================================================================</span>
    592. 

  592. <a name="l00577"></a>00577 <span class="comment"></span>
    593. 

  593. <a name="l00578"></a>00578 <span class="comment">                Force with constant energy and helicity levels.</span>
    594. 

  594. <a name="l00579"></a>00579 <span class="comment">                </span>
    595. 

  595. <a name="l00580"></a>00580 <span class="comment">                Note: sk != +1 or -1.  Maximum helicity state requires V field to be</span>
    596. 

  596. <a name="l00581"></a>00581 <span class="comment">                maximum helical, which is zero probability state.</span>
    597. 

  597. <a name="l00582"></a>00582 <span class="comment"></span>
    598. 

  598. <a name="l00583"></a>00583 <span class="comment">=================================================================================*/</span>
    599. 

  599. <a name="l00584"></a>00584 
    600. 

  600. <a name="l00585"></a>00585 
    601. 

  601. <a name="l00586"></a><a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">00586</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">IncFluid::Compute_force_const_energy_helicity</a>()
    602. 

  602. <a name="l00587"></a>00587 {
    603. 

  603. <a name="l00588"></a>00588 
    604. 

  604. <a name="l00589"></a>00589         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    605. 

  605. <a name="l00590"></a>00590         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    606. 

  606. <a name="l00591"></a>00591         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_level = (*force_field_para)(3);
    607. 

  607. <a name="l00592"></a>00592         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E = (*force_field_para)(4);                           <span class="comment">// Hk(k)/(k*e(k))</span>
    608. 

  608. <a name="l00593"></a>00593         
    609. 

  609. <a name="l00594"></a>00594         
    610. 

  610. <a name="l00595"></a>00595         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    611. 

  611. <a name="l00596"></a>00596         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_per_mode = energy_level / nf;
    612. 

  612. <a name="l00597"></a>00597 
    613. 

  613. <a name="l00598"></a>00598         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    614. 

  614. <a name="l00599"></a>00599         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    615. 

  615. <a name="l00600"></a>00600         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    616. 

  616. <a name="l00601"></a>00601         
    617. 

  617. <a name="l00602"></a>00602         <span class="keywordtype">int</span> lx, ly, lz;
    618. 

  618. <a name="l00603"></a>00603         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, alpha_k, beta_k, ek, sk, temp1, temp2, temp3;
    619. 

  619. <a name="l00604"></a>00604         TinyVector&lt;complx,3&gt; vorticity;
    620. 

  620. <a name="l00605"></a>00605         
    621. 

  621. <a name="l00606"></a>00606 
    622. 

  622. <a name="l00607"></a>00607         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    623. 

  623. <a name="l00608"></a>00608         
    624. 

  624. <a name="l00609"></a>00609         <span class="keywordtype">int</span> kx_min;
    625. 

  625. <a name="l00610"></a>00610         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    626. 

  626. <a name="l00611"></a>00611                 kx_min = -kx_max;
    627. 

  627. <a name="l00612"></a>00612         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    628. 

  628. <a name="l00613"></a>00613                 kx_min = 0;
    629. 

  629. <a name="l00614"></a>00614                 
    630. 

  630. <a name="l00615"></a>00615         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    631. 

  631. <a name="l00616"></a>00616                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    632. 

  632. <a name="l00617"></a>00617                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    633. 

  633. <a name="l00618"></a>00618                         {
    634. 

  634. <a name="l00619"></a>00619                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    635. 

  635. <a name="l00620"></a>00620                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    636. 

  636. <a name="l00621"></a>00621                                 lz = kz;
    637. 

  637. <a name="l00622"></a>00622                                 
    638. 

  638. <a name="l00623"></a>00623                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    639. 

  639. <a name="l00624"></a>00624                                 {
    640. 

  640. <a name="l00625"></a>00625                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    641. 

  641. <a name="l00626"></a>00626                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    642. 

  642. <a name="l00627"></a>00627                                         {
    643. 

  643. <a name="l00628"></a>00628                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    644. 

  644. <a name="l00629"></a>00629                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    645. 

  645. <a name="l00630"></a>00630                                                 {
    646. 

  646. <a name="l00631"></a>00631                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    647. 

  647. <a name="l00632"></a>00632                                                         
    648. 

  648. <a name="l00633"></a>00633                                                         temp1 = sqrt(energy_per_mode / (ek));
    649. 

  649. <a name="l00634"></a>00634                                                         temp2 = sqrt((1+h_by_k_E) / (1+sk));
    650. 

  650. <a name="l00635"></a>00635                                                         temp3 = sqrt((1-h_by_k_E) / (1-sk));
    651. 

  651. <a name="l00636"></a>00636                                                         
    652. 

  652. <a name="l00637"></a>00637                                                         alpha_k = (temp1/2) * (temp2 + temp3);
    653. 

  653. <a name="l00638"></a>00638                                                         beta_k =  (temp1/(2*kkmag)) * (temp2 - temp3);
    654. 

  654. <a name="l00639"></a>00639                                                         
    655. 

  655. <a name="l00640"></a>00640                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    656. 

  656. <a name="l00641"></a>00641                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(1);
    657. 

  657. <a name="l00642"></a>00642                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(2);
    658. 

  658. <a name="l00643"></a>00643                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(3);
    659. 

  659. <a name="l00644"></a>00644                                                         
    660. 

  660. <a name="l00645"></a>00645                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    661. 

  661. <a name="l00646"></a>00646                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);              
    662. 

  662. <a name="l00647"></a>00647                                                                 <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)     </span>
    663. 

  663. <a name="l00648"></a>00648                                                 }               
    664. 

  664. <a name="l00649"></a>00649                                         }
    665. 

  665. <a name="l00650"></a>00650                                 }                                       
    666. 

  666. <a name="l00651"></a>00651                         }
    667. 

  667. <a name="l00652"></a>00652                         
    668. 

  668. <a name="l00653"></a>00653 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    669. 

  669. <a name="l00654"></a>00654 <span class="comment">//                      Dealias_force();</span>
    670. 

  670. <a name="l00655"></a>00655 
    671. 

  671. <a name="l00656"></a>00656 }
    672. 

  672. <a name="l00657"></a>00657 
    673. 

  673. <a name="l00658"></a>00658 
    674. 

  674. <a name="l00659"></a>00659 <span class="comment">//</span>
    675. 

  675. <a name="l00660"></a>00660 <span class="comment">// scalar</span>
    676. 

  676. <a name="l00661"></a>00661 <span class="comment">//</span>
    677. 

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

  678. <a name="l00663"></a><a class="code" href="classIncFluid.html#adb323b044fe41f373f00204db344654">00663</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">IncFluid::Compute_force_const_energy_helicity</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    679. 

  679. <a name="l00664"></a>00664 {
    680. 

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

  681. <a name="l00666"></a>00666         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    682. 

  682. <a name="l00667"></a>00667         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    683. 

  683. <a name="l00668"></a>00668         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_level = (*force_field_para)(3);
    684. 

  684. <a name="l00669"></a>00669         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E = (*force_field_para)(4);                           <span class="comment">// Hk(k)/(k*e(k))</span>
    685. 

  685. <a name="l00670"></a>00670         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_scalar_level = (*force_field_para)(5);
    686. 

  686. <a name="l00671"></a>00671         
    687. 

  687. <a name="l00672"></a>00672         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    688. 

  688. <a name="l00673"></a>00673         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_per_mode = energy_level / nf;
    689. 

  689. <a name="l00674"></a>00674         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_scalar_per_mode = energy_scalar_level / nf;
    690. 

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

  691. <a name="l00676"></a>00676         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    692. 

  692. <a name="l00677"></a>00677         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    693. 

  693. <a name="l00678"></a>00678         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    694. 

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

  695. <a name="l00680"></a>00680         <span class="keywordtype">int</span> lx, ly, lz;
    696. 

  696. <a name="l00681"></a>00681         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag, alpha_k, beta_k, alpha_k_scalar, ek, sk, temp1, temp2, temp3;
    697. 

  697. <a name="l00682"></a>00682         TinyVector&lt;complx,3&gt; vorticity;
    698. 

  698. <a name="l00683"></a>00683         
    699. 

  699. <a name="l00684"></a>00684         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    700. 

  700. <a name="l00685"></a>00685         
    701. 

  701. <a name="l00686"></a>00686         <span class="keywordtype">int</span> kx_min;
    702. 

  702. <a name="l00687"></a>00687         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    703. 

  703. <a name="l00688"></a>00688                 kx_min = -kx_max;
    704. 

  704. <a name="l00689"></a>00689         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    705. 

  705. <a name="l00690"></a>00690                 kx_min = 0;
    706. 

  706. <a name="l00691"></a>00691                 
    707. 

  707. <a name="l00692"></a>00692         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    708. 

  708. <a name="l00693"></a>00693                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    709. 

  709. <a name="l00694"></a>00694                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    710. 

  710. <a name="l00695"></a>00695                         {
    711. 

  711. <a name="l00696"></a>00696                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    712. 

  712. <a name="l00697"></a>00697                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    713. 

  713. <a name="l00698"></a>00698                                 lz = kz;
    714. 

  714. <a name="l00699"></a>00699                                 
    715. 

  715. <a name="l00700"></a>00700                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    716. 

  716. <a name="l00701"></a>00701                                 {
    717. 

  717. <a name="l00702"></a>00702                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    718. 

  718. <a name="l00703"></a>00703                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    719. 

  719. <a name="l00704"></a>00704                                         {
    720. 

  720. <a name="l00705"></a>00705                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    721. 

  721. <a name="l00706"></a>00706                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    722. 

  722. <a name="l00707"></a>00707                                                 {
    723. 

  723. <a name="l00708"></a>00708                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    724. 

  724. <a name="l00709"></a>00709                                                         
    725. 

  725. <a name="l00710"></a>00710                                                         temp1 = sqrt(energy_per_mode / (ek));
    726. 

  726. <a name="l00711"></a>00711                                                         temp2 = sqrt((1+h_by_k_E) / (1+sk));
    727. 

  727. <a name="l00712"></a>00712                                                         temp3 = sqrt((1-h_by_k_E) / (1-sk));
    728. 

  728. <a name="l00713"></a>00713                                                         
    729. 

  729. <a name="l00714"></a>00714                                                         alpha_k = (temp1/2) * (temp2 + temp3);
    730. 

  730. <a name="l00715"></a>00715                                                         beta_k =  (temp1/(2*kkmag)) * (temp2 - temp3);
    731. 

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

  732. <a name="l00717"></a>00717                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    733. 

  733. <a name="l00718"></a>00718                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(1);
    734. 

  734. <a name="l00719"></a>00719                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(2);
    735. 

  735. <a name="l00720"></a>00720                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(3);
    736. 

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

  737. <a name="l00722"></a>00722                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    738. 

  738. <a name="l00723"></a>00723                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);      
    739. 

  739. <a name="l00724"></a>00724                                                 }
    740. 

  740. <a name="l00725"></a>00725                                                         
    741. 

  741. <a name="l00726"></a>00726                                                 <span class="keywordflow">if</span> (T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    742. 

  742. <a name="l00727"></a>00727                                                 {
    743. 

  743. <a name="l00728"></a>00728                                                         alpha_k_scalar = sqrt(energy_scalar_per_mode / T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz));
    744. 

  744. <a name="l00729"></a>00729                                                         (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = alpha_k_scalar * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>)(lx, ly, lz);
    745. 

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

  746. <a name="l00731"></a>00731                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    747. 

  747. <a name="l00732"></a>00732                                                                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz);    
    748. 

  748. <a name="l00733"></a>00733                                                 }
    749. 

  749. <a name="l00734"></a>00734                                         }
    750. 

  750. <a name="l00735"></a>00735                                 }                                       
    751. 

  751. <a name="l00736"></a>00736                         }
    752. 

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

  753. <a name="l00738"></a>00738 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    754. 

  754. <a name="l00739"></a>00739 <span class="comment">//                      Dealias_force();                </span>
    755. 

  755. <a name="l00740"></a>00740 
    756. 

  756. <a name="l00741"></a>00741 }
    757. 

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

  758. <a name="l00743"></a>00743 <span class="comment">//</span>
    759. 

  759. <a name="l00744"></a>00744 <span class="comment">// Vector</span>
    760. 

  760. <a name="l00745"></a>00745 <span class="comment">//</span>
    761. 

  761. <a name="l00746"></a>00746 
    762. 

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

  763. <a name="l00748"></a><a class="code" href="classIncFluid.html#1ea4a6dd38be23a1487e3c425cba0aad">00748</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">IncFluid::Compute_force_const_energy_helicity</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    764. 

  764. <a name="l00749"></a>00749 {
    765. 

  765. <a name="l00750"></a>00750 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    766. 

  766. <a name="l00751"></a>00751         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    767. 

  767. <a name="l00752"></a>00752         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_level = (*force_field_para)(3);
    768. 

  768. <a name="l00753"></a>00753         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E = (*force_field_para)(4);                           <span class="comment">// Hk(k)/(k*e(k))</span>
    769. 

  769. <a name="l00754"></a>00754         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energyW_level = (*force_field_para)(5);
    770. 

  770. <a name="l00755"></a>00755         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E_W = (*force_field_para)(6);                         <span class="comment">// Hk(k)/(k*e(k))</span>
    771. 

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

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

  773. <a name="l00758"></a>00758         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    774. 

  774. <a name="l00759"></a>00759         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_per_mode = energy_level / nf;
    775. 

  775. <a name="l00760"></a>00760         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energyW_per_mode = energyW_level / nf;
    776. 

  776. <a name="l00761"></a>00761         
    777. 

  777. <a name="l00762"></a>00762         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    778. 

  778. <a name="l00763"></a>00763         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    779. 

  779. <a name="l00764"></a>00764         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    780. 

  780. <a name="l00765"></a>00765         
    781. 

  781. <a name="l00766"></a>00766         <span class="keywordtype">int</span> lx, ly, lz;
    782. 

  782. <a name="l00767"></a>00767         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag;
    783. 

  783. <a name="l00768"></a>00768         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k, beta_k, ek, sk, temp1, temp2, temp3;
    784. 

  784. <a name="l00769"></a>00769         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_kW, beta_kW, ekW, skW, temp1W, temp2W, temp3W;
    785. 

  785. <a name="l00770"></a>00770         TinyVector&lt;complx,3&gt; vorticity;
    786. 

  786. <a name="l00771"></a>00771         TinyVector&lt;complx,3&gt; vorticity_W;
    787. 

  787. <a name="l00772"></a>00772         
    788. 

  788. <a name="l00773"></a>00773 
    789. 

  789. <a name="l00774"></a>00774         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    790. 

  790. <a name="l00775"></a>00775         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    791. 

  791. <a name="l00776"></a>00776         
    792. 

  792. <a name="l00777"></a>00777         <span class="keywordtype">int</span> kx_min;
    793. 

  793. <a name="l00778"></a>00778         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    794. 

  794. <a name="l00779"></a>00779                 kx_min = -kx_max;
    795. 

  795. <a name="l00780"></a>00780         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    796. 

  796. <a name="l00781"></a>00781                 kx_min = 0;
    797. 

  797. <a name="l00782"></a>00782                 
    798. 

  798. <a name="l00783"></a>00783         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    799. 

  799. <a name="l00784"></a>00784                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    800. 

  800. <a name="l00785"></a>00785                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    801. 

  801. <a name="l00786"></a>00786                         {
    802. 

  802. <a name="l00787"></a>00787                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    803. 

  803. <a name="l00788"></a>00788                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    804. 

  804. <a name="l00789"></a>00789                                 lz = kz;
    805. 

  805. <a name="l00790"></a>00790                                 
    806. 

  806. <a name="l00791"></a>00791                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    807. 

  807. <a name="l00792"></a>00792                                 {
    808. 

  808. <a name="l00793"></a>00793                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    809. 

  809. <a name="l00794"></a>00794                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    810. 

  810. <a name="l00795"></a>00795                                         {
    811. 

  811. <a name="l00796"></a>00796                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    812. 

  812. <a name="l00797"></a>00797                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    813. 

  813. <a name="l00798"></a>00798                                                 {
    814. 

  814. <a name="l00799"></a>00799                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    815. 

  815. <a name="l00800"></a>00800                                                         
    816. 

  816. <a name="l00801"></a>00801                                                         temp1 = sqrt(energy_per_mode / (ek));
    817. 

  817. <a name="l00802"></a>00802                                                         temp2 = sqrt((1+h_by_k_E) / (1+sk));
    818. 

  818. <a name="l00803"></a>00803                                                         temp3 = sqrt((1-h_by_k_E) / (1-sk));
    819. 

  819. <a name="l00804"></a>00804                                                         
    820. 

  820. <a name="l00805"></a>00805                                                         alpha_k = (temp1/2) * (temp2 + temp3);
    821. 

  821. <a name="l00806"></a>00806                                                         beta_k =  (temp1/(2*kkmag)) * (temp2 - temp3);
    822. 

  822. <a name="l00807"></a>00807                                                         
    823. 

  823. <a name="l00808"></a>00808                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    824. 

  824. <a name="l00809"></a>00809                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(1);
    825. 

  825. <a name="l00810"></a>00810                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(2);
    826. 

  826. <a name="l00811"></a>00811                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(3);
    827. 

  827. <a name="l00812"></a>00812                                                         
    828. 

  828. <a name="l00813"></a>00813                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    829. 

  829. <a name="l00814"></a>00814                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);
    830. 

  830. <a name="l00815"></a>00815                                                 }
    831. 

  831. <a name="l00816"></a>00816                                                 
    832. 

  832. <a name="l00817"></a>00817                                                 <span class="comment">// For W </span>
    833. 

  833. <a name="l00818"></a>00818                                                 <span class="keywordflow">if</span> (abs(energyW_level) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    834. 

  834. <a name="l00819"></a>00819                                                 {       
    835. 

  835. <a name="l00820"></a>00820                                                         
    836. 

  836. <a name="l00821"></a>00821                                                         ekW = W.<a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    837. 

  837. <a name="l00822"></a>00822                                                         <span class="keywordflow">if</span> (ekW &gt; 0)
    838. 

  838. <a name="l00823"></a>00823                                                         {
    839. 

  839. <a name="l00824"></a>00824                                                                 skW = W.<a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ekW);
    840. 

  840. <a name="l00825"></a>00825                                                                 
    841. 

  841. <a name="l00826"></a>00826                                                                 temp1W = sqrt(energyW_per_mode / (ekW));
    842. 

  842. <a name="l00827"></a>00827                                                                 temp2W = sqrt((1+h_by_k_E_W) / (1+skW));
    843. 

  843. <a name="l00828"></a>00828                                                                 temp3W = sqrt((1-h_by_k_E_W) / (1-skW));
    844. 

  844. <a name="l00829"></a>00829                                                                 
    845. 

  845. <a name="l00830"></a>00830                                                                 alpha_kW = (temp1W/2) * (temp2W + temp3W);
    846. 

  846. <a name="l00831"></a>00831                                                                 beta_kW =  (temp1W/(2*kkmag)) * (temp2W - temp3W);
    847. 

  847. <a name="l00832"></a>00832                                                                 
    848. 

  848. <a name="l00833"></a>00833                                                                 W.<a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity_W);
    849. 

  849. <a name="l00834"></a>00834                                                                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_kW * vorticity_W(1);
    850. 

  850. <a name="l00835"></a>00835                                                                 (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_kW * vorticity_W(2);
    851. 

  851. <a name="l00836"></a>00836                                                                 (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_kW * vorticity_W(3);
    852. 

  852. <a name="l00837"></a>00837                                                                 
    853. 

  853. <a name="l00838"></a>00838                                                                 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    854. 

  854. <a name="l00839"></a>00839                                                                         (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);          
    855. 

  855. <a name="l00840"></a>00840                                                                         <span class="comment">// because of V1(x) = V1(k..) sin(kx*x)*exp(i ky y)     </span>
    856. 

  856. <a name="l00841"></a>00841                                                         }                       
    857. 

  857. <a name="l00842"></a>00842                                                 }
    858. 

  858. <a name="l00843"></a>00843                                         }
    859. 

  859. <a name="l00844"></a>00844                                 }                                       
    860. 

  860. <a name="l00845"></a>00845                         }
    861. 

  861. <a name="l00846"></a>00846                         
    862. 

  862. <a name="l00847"></a>00847 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    863. 

  863. <a name="l00848"></a>00848 <span class="comment">//                      Dealias_force(W);</span>
    864. 

  864. <a name="l00849"></a>00849 
    865. 

  865. <a name="l00850"></a>00850 }
    866. 

  866. <a name="l00851"></a>00851 
    867. 

  867. <a name="l00852"></a>00852 <span class="comment">//</span>
    868. 

  868. <a name="l00853"></a>00853 <span class="comment">// Vector + scalar</span>
    869. 

  869. <a name="l00854"></a>00854 <span class="comment">//</span>
    870. 

  870. <a name="l00855"></a>00855 
    871. 

  871. <a name="l00856"></a><a class="code" href="classIncFluid.html#6b157b7a8aa363b741a21cf9e557867c">00856</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#427206858e52e4c0091ba4b0caec6c7c">IncFluid::Compute_force_const_energy_helicity</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    872. 

  872. <a name="l00857"></a>00857 {
    873. 

  873. <a name="l00858"></a>00858 
    874. 

  874. <a name="l00859"></a>00859         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> inner_radius = (*force_field_para)(1);
    875. 

  875. <a name="l00860"></a>00860         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> outer_radius = (*force_field_para)(2);
    876. 

  876. <a name="l00861"></a>00861         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_level = (*force_field_para)(3);
    877. 

  877. <a name="l00862"></a>00862         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E = (*force_field_para)(4);                           <span class="comment">// Hk(k)/(k*e(k))</span>
    878. 

  878. <a name="l00863"></a>00863         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energyW_level = (*force_field_para)(5);
    879. 

  879. <a name="l00864"></a>00864         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h_by_k_E_W = (*force_field_para)(6);                         <span class="comment">// Hk(k)/(k*e(k))</span>
    880. 

  880. <a name="l00865"></a>00865         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_scalar_level = (*force_field_para)(7);
    881. 

  881. <a name="l00866"></a>00866         
    882. 

  882. <a name="l00867"></a>00867         <span class="keywordtype">int</span> nf = <a class="code" href="universal__fn_8cc.html#eef7d1e9930fbcb3e626248fb7724e80">Get_number_modes_in_shell</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, inner_radius, outer_radius, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    883. 

  883. <a name="l00868"></a>00868         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_per_mode = energy_level / nf;
    884. 

  884. <a name="l00869"></a>00869         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energyW_per_mode = energyW_level / nf;
    885. 

  885. <a name="l00870"></a>00870         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> energy_scalar_per_mode = energy_scalar_level / nf;
    886. 

  886. <a name="l00871"></a>00871         
    887. 

  887. <a name="l00872"></a>00872         <span class="keywordtype">int</span> kx_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[1]) + 1;
    888. 

  888. <a name="l00873"></a>00873         <span class="keywordtype">int</span> ky_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[2]) + 1;
    889. 

  889. <a name="l00874"></a>00874         <span class="keywordtype">int</span> kz_max = ((int) outer_radius/<a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>[3]) + 1;
    890. 

  890. <a name="l00875"></a>00875         
    891. 

  891. <a name="l00876"></a>00876         <span class="keywordtype">int</span> lx, ly, lz;
    892. 

  892. <a name="l00877"></a>00877         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> kkmag;
    893. 

  893. <a name="l00878"></a>00878         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k, beta_k, ek, sk, temp1, temp2, temp3;
    894. 

  894. <a name="l00879"></a>00879         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_kW, beta_kW, ekW, skW, temp1W, temp2W, temp3W;
    895. 

  895. <a name="l00880"></a>00880         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> alpha_k_scalar;
    896. 

  896. <a name="l00881"></a>00881         TinyVector&lt;complx,3&gt; vorticity;
    897. 

  897. <a name="l00882"></a>00882         TinyVector&lt;complx,3&gt; vorticity_W;
    898. 

  898. <a name="l00883"></a>00883         
    899. 

  899. <a name="l00884"></a>00884 
    900. 

  900. <a name="l00885"></a>00885         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    901. 

  901. <a name="l00886"></a>00886         *W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = 0.0; *W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = 0.0; *W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = 0.0;
    902. 

  902. <a name="l00887"></a>00887         *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0; 
    903. 

  903. <a name="l00888"></a>00888         
    904. 

  904. <a name="l00889"></a>00889         <span class="keywordtype">int</span> kx_min;
    905. 

  905. <a name="l00890"></a>00890         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"FOUR"</span>)
    906. 

  906. <a name="l00891"></a>00891                 kx_min = -kx_max;
    907. 

  907. <a name="l00892"></a>00892         <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    908. 

  908. <a name="l00893"></a>00893                 kx_min = 0;
    909. 

  909. <a name="l00894"></a>00894                 
    910. 

  910. <a name="l00895"></a>00895         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kx = kx_min; kx &lt;= kx_max; kx++)
    911. 

  911. <a name="l00896"></a>00896                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ky = -ky_max; ky &lt;= ky_max; ky++)  
    912. 

  912. <a name="l00897"></a>00897                         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> kz = 0; kz &lt;= kz_max; kz++)
    913. 

  913. <a name="l00898"></a>00898                         {
    914. 

  914. <a name="l00899"></a>00899                                 lx = <a class="code" href="universal__inline_8h.html#5dece882ac0d6ab919e7fef1e55b55de">Get_lx</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, kx, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    915. 

  915. <a name="l00900"></a>00900                                 ly = <a class="code" href="universal__inline_8h.html#ab6eb8a9549b5df3e5432bd1da9726be">Get_ly3D</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, ky, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>);
    916. 

  916. <a name="l00901"></a>00901                                 lz = kz;
    917. 

  917. <a name="l00902"></a>00902                                 
    918. 

  918. <a name="l00903"></a>00903                                 <span class="keywordflow">if</span> ( (lx &gt;= 0) &amp;&amp; (lx &lt; <a class="code" href="basis__basicfn_8cc.html#5b280d17c0a165711d64dda77338d027">local_N1</a>) ) 
    919. 

  919. <a name="l00904"></a>00904                                 {
    920. 

  920. <a name="l00905"></a>00905                                         kkmag = <a class="code" href="universal__inline_8h.html#df8a1e8cb2ee7e271672276eb766f28f">Kmagnitude</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, lx, ly, lz, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    921. 

  921. <a name="l00906"></a>00906                                         
    922. 

  922. <a name="l00907"></a>00907                                         <span class="keywordflow">if</span> ((kkmag &gt;= inner_radius) &amp;&amp; (kkmag &lt; outer_radius)) 
    923. 

  923. <a name="l00908"></a>00908                                         {
    924. 

  924. <a name="l00909"></a>00909                                                 ek = <a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    925. 

  925. <a name="l00910"></a>00910                                                 <span class="keywordflow">if</span> (ek &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    926. 

  926. <a name="l00911"></a>00911                                                 {
    927. 

  927. <a name="l00912"></a>00912                                                         sk = <a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ek);
    928. 

  928. <a name="l00913"></a>00913                                                         
    929. 

  929. <a name="l00914"></a>00914                                                         temp1 = sqrt(energy_per_mode / (ek));
    930. 

  930. <a name="l00915"></a>00915                                                         temp2 = sqrt((1+h_by_k_E) / (1+sk));
    931. 

  931. <a name="l00916"></a>00916                                                         temp3 = sqrt((1-h_by_k_E) / (1-sk));
    932. 

  932. <a name="l00917"></a>00917                                                         
    933. 

  933. <a name="l00918"></a>00918                                                         alpha_k = (temp1/2) * (temp2 + temp3);
    934. 

  934. <a name="l00919"></a>00919                                                         beta_k =  (temp1/(2*kkmag)) * (temp2 - temp3);
    935. 

  935. <a name="l00920"></a>00920                                                         
    936. 

  936. <a name="l00921"></a>00921                                                         <a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity);
    937. 

  937. <a name="l00922"></a>00922                                                         (*Force1)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_k * vorticity(1);
    938. 

  938. <a name="l00923"></a>00923                                                         (*Force2)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_k * vorticity(2);
    939. 

  939. <a name="l00924"></a>00924                                                         (*Force3)(lx, ly, lz) = alpha_k * (*<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_k * vorticity(3);
    940. 

  940. <a name="l00925"></a>00925                                                         
    941. 

  941. <a name="l00926"></a>00926                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    942. 

  942. <a name="l00927"></a>00927                                                                 (*Force1)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);      
    943. 

  943. <a name="l00928"></a>00928                                                 }       
    944. 

  944. <a name="l00929"></a>00929                                                 <span class="comment">// scalar</span>
    945. 

  945. <a name="l00930"></a>00930                                                 
    946. 

  946. <a name="l00931"></a>00931                                                 <span class="keywordflow">if</span> (T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    947. 

  947. <a name="l00932"></a>00932                                                 {
    948. 

  948. <a name="l00933"></a>00933                                                         alpha_k_scalar = sqrt(energy_scalar_per_mode / T.<a class="code" href="classCSF.html#21476eeacc281417c6ee958f87c41250">CS_Modal_energy</a>(lx, ly, lz)); 
    949. 

  949. <a name="l00934"></a>00934                                                         (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = alpha_k_scalar * (*T.<a class="code" href="classCSF.html#3b75b0fe8368d57759f1a67a050e6367">F</a>)(lx, ly, lz);
    950. 

  950. <a name="l00935"></a>00935                                                         
    951. 

  951. <a name="l00936"></a>00936                                                         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    952. 

  952. <a name="l00937"></a>00937                                                                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>)(lx, ly, lz);    
    953. 

  953. <a name="l00938"></a>00938                                                 }
    954. 

  954. <a name="l00939"></a>00939                                                                 
    955. 

  955. <a name="l00940"></a>00940                                                 <span class="comment">// W </span>
    956. 

  956. <a name="l00941"></a>00941                                                 
    957. 

  957. <a name="l00942"></a>00942                                                 <span class="keywordflow">if</span> (abs(energyW_level) &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    958. 

  958. <a name="l00943"></a>00943                                                 {
    959. 

  959. <a name="l00944"></a>00944                                                         ekW = W.<a class="code" href="classCVF.html#136d808dc6530c487d0a52fb986108c5">CV_Modal_energy</a>(lx, ly, lz);
    960. 

  960. <a name="l00945"></a>00945                                                         <span class="keywordflow">if</span> (ekW &gt; <a class="code" href="basis__basicfn__inline_8h.html#41373c04f336e4cea8c3db37eea29e9f">MYEPS</a>)
    961. 

  961. <a name="l00946"></a>00946                                                         {
    962. 

  962. <a name="l00947"></a>00947                                                                 skW = W.<a class="code" href="classCVF.html#1d21e4c4d57845f7c6576440c1b55926">CV_Modal_helicity</a>(lx, ly, lz) / (kkmag * ekW);
    963. 

  963. <a name="l00948"></a>00948                                                                 
    964. 

  964. <a name="l00949"></a>00949                                                                 temp1W = sqrt(energyW_per_mode / (ekW));
    965. 

  965. <a name="l00950"></a>00950                                                                 temp2W = sqrt((1+h_by_k_E_W) / (1+skW));
    966. 

  966. <a name="l00951"></a>00951                                                                 temp3W = sqrt((1-h_by_k_E_W) / (1-skW));
    967. 

  967. <a name="l00952"></a>00952                                                                 
    968. 

  968. <a name="l00953"></a>00953                                                                 alpha_kW = (temp1W/2) * (temp2W + temp3W);
    969. 

  969. <a name="l00954"></a>00954                                                                 beta_kW =  (temp1W/(2*kkmag)) * (temp2W - temp3W);
    970. 

  970. <a name="l00955"></a>00955                                                                 
    971. 

  971. <a name="l00956"></a>00956                                                                 W.<a class="code" href="classCVF.html#0d53a1e7fac99381342302237975c224">CV_Modal_vorticity</a>(lx, ly, lz, vorticity_W);
    972. 

  972. <a name="l00957"></a>00957                                                                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>)(lx, ly, lz) + beta_kW * vorticity_W(1);
    973. 

  973. <a name="l00958"></a>00958                                                                 (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>)(lx, ly, lz) + beta_kW * vorticity_W(2);
    974. 

  974. <a name="l00959"></a>00959                                                                 (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>)(lx, ly, lz) = alpha_kW * (*W.<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>)(lx, ly, lz) + beta_kW * vorticity_W(3);
    975. 

  975. <a name="l00960"></a>00960                                                                 
    976. 

  976. <a name="l00961"></a>00961                                                                 <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a> == <span class="stringliteral">"SCFT"</span>)
    977. 

  977. <a name="l00962"></a>00962                                                                         (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz) = <a class="code" href="basis__basicfn__inline_8h.html#6da8bdb121d2b59aad76f9ae5e7b0bce">I</a> * (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>)(lx, ly, lz);
    978. 

  978. <a name="l00963"></a>00963                                                         }       
    979. 

  979. <a name="l00964"></a>00964                                                 }
    980. 

  980. <a name="l00965"></a>00965                                         }       
    981. 

  981. <a name="l00966"></a>00966                                 }                                       
    982. 

  982. <a name="l00967"></a>00967                         }
    983. 

  983. <a name="l00968"></a>00968                         
    984. 

  984. <a name="l00969"></a>00969 <span class="comment">//      if ( (alias_switch == "DEALIAS") &amp;&amp; (Is_alias_array(basis_type, N, *V1, outer_radius, kfactor) == 1) )</span>
    985. 

  985. <a name="l00970"></a>00970 <span class="comment">//                      Dealias_force(W, T);</span>
    986. 

  986. <a name="l00971"></a>00971 
    987. 

  987. <a name="l00972"></a>00972 }
    988. 

  988. <a name="l00973"></a>00973 
    989. 

  989. <a name="l00974"></a>00974 
    990. 

  990. <a name="l00975"></a>00975 <span class="comment">/*=============================================================================</span>
    991. 

  991. <a name="l00976"></a>00976 <span class="comment"></span>
    992. 

  992. <a name="l00977"></a>00977 <span class="comment">                Taylor Green force</span>
    993. 

  993. <a name="l00978"></a>00978 <span class="comment">                Fx = F*sin(k0 x) cos(k0 y) cos(k0 z)</span>
    994. 

  994. <a name="l00979"></a>00979 <span class="comment">                Fy = -F*cos(k0 x)sin(k0 y) cos(k0 z)</span>
    995. 

  995. <a name="l00980"></a>00980 <span class="comment">                Fz = 0</span>
    996. 

  996. <a name="l00981"></a>00981 <span class="comment"></span>
    997. 

  997. <a name="l00982"></a>00982 <span class="comment">=================================================================================*/</span>
    998. 

  998. <a name="l00983"></a>00983 
    999. 

  999. <a name="l00984"></a>00984 
    1000. 

  1000. <a name="l00985"></a><a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">00985</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">IncFluid::Compute_force_Taylor_Green</a>()
    1001. 

  1001. <a name="l00986"></a>00986 {
    1002. 

  1002. <a name="l00987"></a>00987         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1003. 

  1003. <a name="l00988"></a>00988         {
    1004. 

  1004. <a name="l00989"></a>00989                 <span class="keywordtype">int</span> k0 = ((int) (*<a class="code" href="classIncFluid.html#c18e65de1d85d161c3effb493f36151b">force_field_para</a>)(1));
    1005. 

  1005. <a name="l00990"></a>00990                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> force_amp = (*force_field_para)(2);
    1006. 

  1006. <a name="l00991"></a>00991                 
    1007. 

  1007. <a name="l00992"></a>00992                 <a class="code" href="classIncVF.html#2a04b2109c5249cfc495e85dcb9f588a">Setup_Taylor_Green_force_field</a>(k0, force_amp);
    1008. 

  1008. <a name="l00993"></a>00993                 
    1009. 

  1009. <a name="l00994"></a>00994                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1010. 

  1010. <a name="l00995"></a>00995         }       
    1011. 

  1011. <a name="l00996"></a>00996                         
    1012. 

  1012. <a name="l00997"></a>00997 }
    1013. 

  1013. <a name="l00998"></a>00998 
    1014. 

  1014. <a name="l00999"></a>00999 <span class="comment">//</span>
    1015. 

  1015. <a name="l01000"></a>01000 <span class="comment">// Scalar</span>
    1016. 

  1016. <a name="l01001"></a>01001 <span class="comment">//</span>
    1017. 

  1017. <a name="l01002"></a>01002 
    1018. 

  1018. <a name="l01003"></a><a class="code" href="classIncFluid.html#02c9b7264bdc9fab03f0db5f4b38185e">01003</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">IncFluid::Compute_force_Taylor_Green</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1019. 

  1019. <a name="l01004"></a>01004 {
    1020. 

  1020. <a name="l01005"></a>01005         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1021. 

  1021. <a name="l01006"></a>01006         {
    1022. 

  1022. <a name="l01007"></a>01007                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    1023. 

  1023. <a name="l01008"></a>01008                 
    1024. 

  1024. <a name="l01009"></a>01009                 <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>();
    1025. 

  1025. <a name="l01010"></a>01010         
    1026. 

  1026. <a name="l01011"></a>01011                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1027. 

  1027. <a name="l01012"></a>01012         }                       
    1028. 

  1028. <a name="l01013"></a>01013 }
    1029. 

  1029. <a name="l01014"></a>01014 
    1030. 

  1030. <a name="l01015"></a>01015 <span class="comment">//</span>
    1031. 

  1031. <a name="l01016"></a>01016 <span class="comment">// force both V and W</span>
    1032. 

  1032. <a name="l01017"></a>01017 <span class="comment">//</span>
    1033. 

  1033. <a name="l01018"></a>01018 
    1034. 

  1034. <a name="l01019"></a><a class="code" href="classIncFluid.html#49706f3e9229764f477eb2cbb6280ffb">01019</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">IncFluid::Compute_force_Taylor_Green</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    1035. 

  1035. <a name="l01020"></a>01020 {
    1036. 

  1036. <a name="l01021"></a>01021         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1037. 

  1037. <a name="l01022"></a>01022         {
    1038. 

  1038. <a name="l01023"></a>01023                 <span class="keywordtype">int</span> k0 = ((int) (*<a class="code" href="classIncFluid.html#c18e65de1d85d161c3effb493f36151b">force_field_para</a>)(1));
    1039. 

  1039. <a name="l01024"></a>01024                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> force_amp = (*force_field_para)(2);
    1040. 

  1040. <a name="l01025"></a>01025                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> forceW_amp = (*force_field_para)(3);
    1041. 

  1041. <a name="l01026"></a>01026                 
    1042. 

  1042. <a name="l01027"></a>01027                 <a class="code" href="classIncVF.html#2a04b2109c5249cfc495e85dcb9f588a">Setup_Taylor_Green_force_field</a>(k0, force_amp);
    1043. 

  1043. <a name="l01028"></a>01028                 W.<a class="code" href="classIncVF.html#2a04b2109c5249cfc495e85dcb9f588a">Setup_Taylor_Green_force_field</a>(k0, forceW_amp);
    1044. 

  1044. <a name="l01029"></a>01029                 
    1045. 

  1045. <a name="l01030"></a>01030                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1046. 

  1046. <a name="l01031"></a>01031         }       
    1047. 

  1047. <a name="l01032"></a>01032                 
    1048. 

  1048. <a name="l01033"></a>01033 }
    1049. 

  1049. <a name="l01034"></a>01034         
    1050. 

  1050. <a name="l01035"></a>01035 <span class="comment">//</span>
    1051. 

  1051. <a name="l01036"></a>01036 <span class="comment">//  Force both V and W</span>
    1052. 

  1052. <a name="l01037"></a>01037 <span class="comment">//      </span>
    1053. 

  1053. <a name="l01038"></a>01038         
    1054. 

  1054. <a name="l01039"></a><a class="code" href="classIncFluid.html#c67baccbafe873e92f3ccdc1c18b14c0">01039</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">IncFluid::Compute_force_Taylor_Green</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1055. 

  1055. <a name="l01040"></a>01040 {
    1056. 

  1056. <a name="l01041"></a>01041         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1057. 

  1057. <a name="l01042"></a>01042         {
    1058. 

  1058. <a name="l01043"></a>01043                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    1059. 

  1059. <a name="l01044"></a>01044                 <a class="code" href="classIncFluid.html#61e150904c23f3bd85d7bb18efb22916">Compute_force_Taylor_Green</a>(W);
    1060. 

  1060. <a name="l01045"></a>01045                 
    1061. 

  1061. <a name="l01046"></a>01046                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1062. 

  1062. <a name="l01047"></a>01047         }       
    1063. 

  1063. <a name="l01048"></a>01048 }       
    1064. 

  1064. <a name="l01049"></a>01049         
    1065. 

  1065. <a name="l01050"></a>01050 <span class="comment">/*=============================================================================</span>
    1066. 

  1066. <a name="l01051"></a>01051 <span class="comment"></span>
    1067. 

  1067. <a name="l01052"></a>01052 <span class="comment">                ABC Flow</span>
    1068. 

  1068. <a name="l01053"></a>01053 <span class="comment">                Fx = F*sin(k0 x) cos(k0 y) cos(k0 z)</span>
    1069. 

  1069. <a name="l01054"></a>01054 <span class="comment">                Fy = -F*cos(k0 x)sin(k0 y) cos(k0 z)</span>
    1070. 

  1070. <a name="l01055"></a>01055 <span class="comment">                Fz = 0</span>
    1071. 

  1071. <a name="l01056"></a>01056 <span class="comment">                </span>
    1072. 

  1072. <a name="l01057"></a>01057 <span class="comment">                SCFT basis NOT APPROPRIATE for RB Boundary condition</span>
    1073. 

  1073. <a name="l01058"></a>01058 <span class="comment"></span>
    1074. 

  1074. <a name="l01059"></a>01059 <span class="comment">=================================================================================*/</span>
    1075. 

  1075. <a name="l01060"></a>01060 
    1076. 

  1076. <a name="l01061"></a>01061 
    1077. 

  1077. <a name="l01062"></a><a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">01062</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">IncFluid::Compute_force_ABC</a>()
    1078. 

  1078. <a name="l01063"></a>01063 {
    1079. 

  1079. <a name="l01064"></a>01064         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1080. 

  1080. <a name="l01065"></a>01065         {
    1081. 

  1081. <a name="l01066"></a>01066                 <span class="keywordtype">int</span> k0 = ((int) (*<a class="code" href="classIncFluid.html#c18e65de1d85d161c3effb493f36151b">force_field_para</a>)(1));
    1082. 

  1082. <a name="l01067"></a>01067                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> A = (*force_field_para)(2);
    1083. 

  1083. <a name="l01068"></a>01068                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B = (*force_field_para)(3);
    1084. 

  1084. <a name="l01069"></a>01069                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> C = (*force_field_para)(4);
    1085. 

  1085. <a name="l01070"></a>01070                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> force_amp = (*force_field_para)(5);
    1086. 

  1086. <a name="l01071"></a>01071                 
    1087. 

  1087. <a name="l01072"></a>01072                 <a class="code" href="classIncVF.html#67f1e9ed52189d83b80d4c1d1a0a74db">Setup_ABC_force_field</a>(k0, force_amp, A, B, C);
    1088. 

  1088. <a name="l01073"></a>01073                 
    1089. 

  1089. <a name="l01074"></a>01074                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1090. 

  1090. <a name="l01075"></a>01075         }       
    1091. 

  1091. <a name="l01076"></a>01076 }
    1092. 

  1092. <a name="l01077"></a>01077 
    1093. 

  1093. <a name="l01078"></a>01078 <span class="comment">//</span>
    1094. 

  1094. <a name="l01079"></a>01079 <span class="comment">// Scalar</span>
    1095. 

  1095. <a name="l01080"></a>01080 <span class="comment">//</span>
    1096. 

  1096. <a name="l01081"></a>01081 
    1097. 

  1097. <a name="l01082"></a><a class="code" href="classIncFluid.html#6485ac34f02991f6390c0606f17db800">01082</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">IncFluid::Compute_force_ABC</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1098. 

  1098. <a name="l01083"></a>01083 {
    1099. 

  1099. <a name="l01084"></a>01084         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1100. 

  1100. <a name="l01085"></a>01085         {
    1101. 

  1101. <a name="l01086"></a>01086                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    1102. 

  1102. <a name="l01087"></a>01087                 <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>();
    1103. 

  1103. <a name="l01088"></a>01088                 
    1104. 

  1104. <a name="l01089"></a>01089                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1105. 

  1105. <a name="l01090"></a>01090         }
    1106. 

  1106. <a name="l01091"></a>01091         
    1107. 

  1107. <a name="l01092"></a>01092 }
    1108. 

  1108. <a name="l01093"></a>01093 
    1109. 

  1109. <a name="l01094"></a>01094 <span class="comment">//</span>
    1110. 

  1110. <a name="l01095"></a>01095 <span class="comment">// Force both V and W</span>
    1111. 

  1111. <a name="l01096"></a>01096 <span class="comment">//</span>
    1112. 

  1112. <a name="l01097"></a>01097 
    1113. 

  1113. <a name="l01098"></a><a class="code" href="classIncFluid.html#27b8836a535c4e5c1904cec392dd2630">01098</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">IncFluid::Compute_force_ABC</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    1114. 

  1114. <a name="l01099"></a>01099 {
    1115. 

  1115. <a name="l01100"></a>01100         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1116. 

  1116. <a name="l01101"></a>01101         {
    1117. 

  1117. <a name="l01102"></a>01102                 <span class="keywordtype">int</span> k0 = ((int) (*<a class="code" href="classIncFluid.html#c18e65de1d85d161c3effb493f36151b">force_field_para</a>)(1));
    1118. 

  1118. <a name="l01103"></a>01103                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> A = (*force_field_para)(2);
    1119. 

  1119. <a name="l01104"></a>01104                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B = (*force_field_para)(3);
    1120. 

  1120. <a name="l01105"></a>01105                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> C = (*force_field_para)(4);
    1121. 

  1121. <a name="l01106"></a>01106                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> force_amp = (*force_field_para)(5);
    1122. 

  1122. <a name="l01107"></a>01107                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> forceW_amp = (*force_field_para)(6);
    1123. 

  1123. <a name="l01108"></a>01108                 
    1124. 

  1124. <a name="l01109"></a>01109                 <a class="code" href="classIncVF.html#67f1e9ed52189d83b80d4c1d1a0a74db">Setup_ABC_force_field</a>(k0, force_amp, A, B, C);
    1125. 

  1125. <a name="l01110"></a>01110                 W.<a class="code" href="classIncVF.html#67f1e9ed52189d83b80d4c1d1a0a74db">Setup_ABC_force_field</a>(k0, forceW_amp, A, B, C);
    1126. 

  1126. <a name="l01111"></a>01111                 
    1127. 

  1127. <a name="l01112"></a>01112                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1128. 

  1128. <a name="l01113"></a>01113         }       
    1129. 

  1129. <a name="l01114"></a>01114 }
    1130. 

  1130. <a name="l01115"></a>01115 
    1131. 

  1131. <a name="l01116"></a>01116 <span class="comment">//</span>
    1132. 

  1132. <a name="l01117"></a>01117 <span class="comment">// Vector + scalar</span>
    1133. 

  1133. <a name="l01118"></a>01118 <span class="comment">//</span>
    1134. 

  1134. <a name="l01119"></a>01119 
    1135. 

  1135. <a name="l01120"></a><a class="code" href="classIncFluid.html#cc872180e8bee5f558bbf2d6c7bc87d6">01120</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">IncFluid::Compute_force_ABC</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1136. 

  1136. <a name="l01121"></a>01121 {
    1137. 

  1137. <a name="l01122"></a>01122         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1138. 

  1138. <a name="l01123"></a>01123         {
    1139. 

  1139. <a name="l01124"></a>01124                 *T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a> = 0.0;
    1140. 

  1140. <a name="l01125"></a>01125                 <a class="code" href="classIncFluid.html#3e40e36bb1392df4485bdbf30c682d17">Compute_force_ABC</a>(W);
    1141. 

  1141. <a name="l01126"></a>01126                 
    1142. 

  1142. <a name="l01127"></a>01127                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1143. 

  1143. <a name="l01128"></a>01128         }
    1144. 

  1144. <a name="l01129"></a>01129 }       
    1145. 

  1145. <a name="l01130"></a>01130 
    1146. 

  1146. <a name="l01131"></a>01131 <span class="comment">/*=============================================================================</span>
    1147. 

  1147. <a name="l01132"></a>01132 <span class="comment"></span>
    1148. 

  1148. <a name="l01133"></a>01133 <span class="comment">                Compute force for six mode dynamo model</span>
    1149. 

  1149. <a name="l01134"></a>01134 <span class="comment"></span>
    1150. 

  1150. <a name="l01135"></a>01135 <span class="comment">=================================================================================*/</span>
    1151. 

  1151. <a name="l01136"></a>01136 
    1152. 

  1152. <a name="l01137"></a><a class="code" href="classIncFluid.html#ad6c3c6c555db37ffbfc05338862d65d">01137</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#ad6c3c6c555db37ffbfc05338862d65d">IncFluid::Compute_force_DYNAMO_SIX_MODE</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    1153. 

  1153. <a name="l01138"></a>01138 {
    1154. 

  1154. <a name="l01139"></a>01139         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1155. 

  1155. <a name="l01140"></a>01140         {
    1156. 

  1156. <a name="l01141"></a>01141                 <span class="keywordtype">int</span> k0 = ((int) (*<a class="code" href="classIncFluid.html#c18e65de1d85d161c3effb493f36151b">force_field_para</a>)(1));
    1157. 

  1157. <a name="l01142"></a>01142                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp101 = (*force_field_para)(2);
    1158. 

  1158. <a name="l01143"></a>01143                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp011 = (*force_field_para)(3);
    1159. 

  1159. <a name="l01144"></a>01144                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> amp112 = (*force_field_para)(4);
    1160. 

  1160. <a name="l01145"></a>01145                 <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> h = (*force_field_para)(5);
    1161. 

  1161. <a name="l01146"></a>01146                 
    1162. 

  1162. <a name="l01147"></a>01147                 <a class="code" href="classIncVF.html#e364d4fc2eaa8f8168f566fd0f842bba">Setup_SIX_MODE_force_field</a>(k0, amp101, amp011, amp112, h); <span class="comment">// force only u field</span>
    1163. 

  1163. <a name="l01148"></a>01148                 
    1164. 

  1164. <a name="l01149"></a>01149                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;
    1165. 

  1165. <a name="l01150"></a>01150         }       
    1166. 

  1166. <a name="l01151"></a>01151 }
    1167. 

  1167. <a name="l01152"></a>01152 
    1168. 

  1168. <a name="l01153"></a>01153 <span class="comment">/*=============================================================================</span>
    1169. 

  1169. <a name="l01154"></a>01154 <span class="comment"></span>
    1170. 

  1170. <a name="l01155"></a>01155 <span class="comment">                Liquid metal at low Rm</span>
    1171. 

  1171. <a name="l01156"></a>01156 <span class="comment">                </span>
    1172. 

  1172. <a name="l01157"></a>01157 <span class="comment">                Force = (hat(B0).hat(kk))^2 V</span>
    1173. 

  1173. <a name="l01158"></a>01158 <span class="comment"></span>
    1174. 

  1174. <a name="l01159"></a>01159 <span class="comment">=================================================================================*/</span>
    1175. 

  1175. <a name="l01160"></a>01160 
    1176. 

  1176. <a name="l01161"></a>01161 
    1177. 

  1177. <a name="l01162"></a><a class="code" href="classIncFluid.html#e0293b45a04a6373b6ee8e158d7ee7be">01162</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#e0293b45a04a6373b6ee8e158d7ee7be">IncFluid::Compute_force_Liquid_metal</a>()
    1178. 

  1178. <a name="l01163"></a>01163 {
    1179. 

  1179. <a name="l01164"></a>01164 
    1180. 

  1180. <a name="l01165"></a>01165         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B0x = (*force_field_para)(1);
    1181. 

  1181. <a name="l01166"></a>01166         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B0y = (*force_field_para)(2);
    1182. 

  1182. <a name="l01167"></a>01167         <a class="code" href="basis__basicfn__inline_8h.html#b3383e72bb58d5e6faf0501cd117acfa">DP</a> B0z = (*force_field_para)(3);
    1183. 

  1183. <a name="l01168"></a>01168         
    1184. 

  1184. <a name="l01169"></a>01169         TinyVector &lt;DP,3&gt; B0;
    1185. 

  1185. <a name="l01170"></a>01170         B0 = B0x, B0y, B0z;
    1186. 

  1186. <a name="l01171"></a>01171         
    1187. 

  1187. <a name="l01172"></a>01172         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = *<a class="code" href="classCVF.html#77e2105a2d7d2a35cc65987f28951841">V1</a>;  
    1188. 

  1188. <a name="l01173"></a>01173         *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = *<a class="code" href="classCVF.html#baeccade011a2b615777dc89f2710929">V2</a>; 
    1189. 

  1189. <a name="l01174"></a>01174         *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = *<a class="code" href="classCVF.html#9f69a238438f20339b5c7e05faa3d1f6">V3</a>;
    1190. 

  1190. <a name="l01175"></a>01175         
    1191. 

  1191. <a name="l01176"></a>01176         <a class="code" href="universal__fn_8cc.html#4da177f21faa869f42097652eda79d4c">Array_mult_V0_khat_sqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>, B0, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    1192. 

  1192. <a name="l01177"></a>01177         <a class="code" href="universal__fn_8cc.html#4da177f21faa869f42097652eda79d4c">Array_mult_V0_khat_sqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>, B0, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    1193. 

  1193. <a name="l01178"></a>01178         <a class="code" href="universal__fn_8cc.html#4da177f21faa869f42097652eda79d4c">Array_mult_V0_khat_sqr</a>(<a class="code" href="classIncVF.html#e8078b9a5c1dfbd111f91dd31560983c">basis_type</a>, <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>, *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>, B0, <a class="code" href="classIncVF.html#cead0e8840176d9682256d90a339d18c">kfactor</a>);
    1194. 

  1194. <a name="l01179"></a>01179         
    1195. 

  1195. <a name="l01180"></a>01180         *<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a> = <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a>(-1,0) * (*Force1);
    1196. 

  1196. <a name="l01181"></a>01181         *<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a> = <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a>(-1,0) * (*Force2);
    1197. 

  1197. <a name="l01182"></a>01182         *<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a> = <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a>(-1,0) * (*Force3);
    1198. 

  1198. <a name="l01183"></a>01183         
    1199. 

  1199. <a name="l01184"></a>01184         <span class="keywordflow">if</span> (<a class="code" href="classIncVF.html#ea2b44d03dea059e159fc7bf56db553b">alias_switch</a> == <span class="stringliteral">"DEALIAS"</span>)   <a class="code" href="classIncVF.html#6f8d2554e1cc9bed9a3c351cf0a7b5d9">Dealias_force</a>();
    1200. 

  1200. <a name="l01185"></a>01185 }       
    1201. 

  1201. <a name="l01186"></a>01186 
    1202. 

  1202. <a name="l01187"></a>01187 <span class="comment">/*====================================================================================</span>
    1203. 

  1203. <a name="l01188"></a>01188 <span class="comment">                                </span>
    1204. 

  1204. <a name="l01189"></a>01189 <span class="comment">                                                Const Force "Modes" from a file force_field_in_file</span>
    1205. 

  1205. <a name="l01190"></a>01190 <span class="comment">                                                </span>
    1206. 

  1206. <a name="l01191"></a>01191 <span class="comment">        Force field is read and assigned once and for all.                                      </span>
    1207. 

  1207. <a name="l01192"></a>01192 <span class="comment">                                                </span>
    1208. 

  1208. <a name="l01193"></a>01193 <span class="comment">        FORMAT kx ky kz (re(Vx(k), im(Vx(y)) (re(Vy(k), im(Vy(y)).. </span>
    1209. 

  1209. <a name="l01194"></a>01194 <span class="comment">        The last component determined by k.V(k) = 0.0</span>
    1210. 

  1210. <a name="l01195"></a>01195 <span class="comment">        Fluid 3D - Vx(k) Vy(k)</span>
    1211. 

  1211. <a name="l01196"></a>01196 <span class="comment">        V, T - Vx(k), Vy(k), T</span>
    1212. 

  1212. <a name="l01197"></a>01197 <span class="comment">        V, W - Vx, Vy</span>
    1213. 

  1213. <a name="l01198"></a>01198 <span class="comment">        V, W, T - Vx, Vy, T</span>
    1214. 

  1214. <a name="l01199"></a>01199 <span class="comment"></span>
    1215. 

  1215. <a name="l01200"></a>01200 <span class="comment">        PS: For 2D, give only upper half (ky &gt;= 0)</span>
    1216. 

  1216. <a name="l01201"></a>01201 <span class="comment">                For 3D, give only upper half (kz &gt;= 0)</span>
    1217. 

  1217. <a name="l01202"></a>01202 <span class="comment">                </span>
    1218. 

  1218. <a name="l01203"></a>01203 <span class="comment">                                                        </span>
    1219. 

  1219. <a name="l01204"></a>01204 <span class="comment">====================================================================================*/</span>
    1220. 

  1220. <a name="l01205"></a>01205 
    1221. 

  1221. <a name="l01206"></a>01206 <span class="comment">// Read Vector V. There are num_waveno k's and Vs.  </span>
    1222. 

  1222. <a name="l01207"></a>01207 <span class="comment">// V_n = no of field components to be read; It is one less than the dim.</span>
    1223. 

  1223. <a name="l01208"></a>01208 <span class="comment">// The last component is determined using incompressibility cond.</span>
    1224. 

  1224. <a name="l01209"></a>01209  
    1225. 

  1225. <a name="l01210"></a><a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">01210</a> <span class="keywordtype">void</span> <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(ifstream&amp; <a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>)
    1226. 

  1226. <a name="l01211"></a>01211 {
    1227. 

  1227. <a name="l01212"></a>01212 
    1228. 

  1228. <a name="l01213"></a>01213         <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>) 
    1229. 

  1229. <a name="l01214"></a>01214         {
    1230. 

  1230. <a name="l01215"></a>01215                 <span class="keywordflow">if</span> (! force_field_in_file.is_open())  
    1231. 

  1231. <a name="l01216"></a>01216                 {
    1232. 

  1232. <a name="l01217"></a>01217                         cout &lt;&lt; <span class="stringliteral">"Unable to open force_field_in_file: Exiting Program: Exiting Program "</span> &lt;&lt; endl;
    1233. 

  1233. <a name="l01218"></a>01218                         exit(1);
    1234. 

  1234. <a name="l01219"></a>01219                 }   
    1235. 

  1235. <a name="l01220"></a>01220                 <span class="keywordflow">else</span> 
    1236. 

  1236. <a name="l01221"></a>01221                         cout &lt;&lt; <span class="stringliteral">"Reading field configurations from force_field_in_file "</span> &lt;&lt; endl ;
    1237. 

  1237. <a name="l01222"></a>01222         }               
    1238. 

  1238. <a name="l01223"></a>01223 }
    1239. 

  1239. <a name="l01224"></a>01224 
    1240. 

  1240. <a name="l01225"></a>01225 <span class="comment">//</span>
    1241. 

  1241. <a name="l01226"></a>01226 <span class="comment">//</span>
    1242. 

  1242. <a name="l01227"></a>01227 <span class="comment">//</span>
    1243. 

  1243. <a name="l01228"></a>01228                 
    1244. 

  1244. <a name="l01229"></a><a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">01229</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">IncFluid::Read_waveno_force_field</a>(<span class="keywordtype">int</span> k_dim, <span class="keywordtype">int</span> F_n, <span class="keywordtype">int</span>&amp; <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>)
    1245. 

  1245. <a name="l01230"></a>01230 {
    1246. 

  1246. <a name="l01231"></a>01231 
    1247. 

  1247. <a name="l01232"></a>01232         <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>) 
    1248. 

  1248. <a name="l01233"></a>01233         {
    1249. 

  1249. <a name="l01234"></a>01234                 <span class="keywordtype">int</span> i, ki;
    1250. 

  1250. <a name="l01235"></a>01235                 <a class="code" href="basis__basicfn__inline_8h.html#212334409a1513d09c1b629d2ea21c60">complx</a> Fi;
    1251. 

  1251. <a name="l01236"></a>01236                 
    1252. 

  1252. <a name="l01237"></a>01237                 cout &lt;&lt; <span class="stringliteral">"=== Reading force field wavenumbers and F  ===="</span> &lt;&lt; endl;              
    1253. 

  1253. <a name="l01238"></a>01238                 
    1254. 

  1254. <a name="l01239"></a>01239                 <a class="code" href="classIncFluid.html#e5bafdb99ed45e231e3d227809ef678f">Open_force_waveno_input_files</a>();
    1255. 

  1255. <a name="l01240"></a>01240                 
    1256. 

  1256. <a name="l01241"></a>01241                 <span class="keywordtype">int</span> iter = 0;
    1257. 

  1257. <a name="l01242"></a>01242                 <span class="keywordflow">while</span> ( ! <a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>.eof()) 
    1258. 

  1258. <a name="l01243"></a>01243                 {       
    1259. 

  1259. <a name="l01244"></a>01244                         <a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a> &gt;&gt; ki;  
    1260. 

  1260. <a name="l01245"></a>01245                         <span class="keywordflow">if</span> (ki &lt; <a class="code" href="classIncVF.html#52274608af455b18d27c6e2a9c72c007">N</a>[1])  
    1261. 

  1261. <a name="l01246"></a>01246                         {                                                               <span class="comment">// Stopper.. </span>
    1262. 

  1262. <a name="l01247"></a>01247                                 iter++; 
    1263. 

  1263. <a name="l01248"></a>01248                                 (*force_field_modes_k_array)(iter,1) = ki;
    1264. 

  1264. <a name="l01249"></a>01249                                 <span class="keywordflow">for</span> (i=2; i&lt;=k_dim; i++) 
    1265. 

  1265. <a name="l01250"></a>01250                                 {
    1266. 

  1266. <a name="l01251"></a>01251                                         <a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a> &gt;&gt; ki;      
    1267. 

  1267. <a name="l01252"></a>01252                                         (*force_field_modes_k_array)(iter,i) = ki;  
    1268. 

  1268. <a name="l01253"></a>01253                                 }
    1269. 

  1269. <a name="l01254"></a>01254                 
    1270. 

  1270. <a name="l01255"></a>01255                                 <span class="keywordflow">for</span> (i=1; i&lt;= F_n; i++) 
    1271. 

  1271. <a name="l01256"></a>01256                                 {
    1272. 

  1272. <a name="l01257"></a>01257                                         <a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a> &gt;&gt; Fi;      
    1273. 

  1273. <a name="l01258"></a>01258                                         (*force_field_modes_F_array)(iter,i) = Fi; 
    1274. 

  1274. <a name="l01259"></a>01259                                 }
    1275. 

  1275. <a name="l01260"></a>01260                         }
    1276. 

  1276. <a name="l01261"></a>01261                         <span class="keywordflow">else</span> <span class="keywordflow">break</span>;     
    1277. 

  1277. <a name="l01262"></a>01262                 }
    1278. 

  1278. <a name="l01263"></a>01263                         
    1279. 

  1279. <a name="l01264"></a>01264                 num_force_waveno = iter;
    1280. 

  1280. <a name="l01265"></a>01265                 cout &lt;&lt; <span class="stringliteral">"=== End of Reading force field wavenumbers and components ===="</span> &lt;&lt; endl;
    1281. 

  1281. <a name="l01266"></a>01266                 cout  &lt;&lt; <span class="stringliteral">"Reading of force field configurations ended successfully"</span> &lt;&lt; endl;
    1282. 

  1282. <a name="l01267"></a>01267                 
    1283. 

  1283. <a name="l01268"></a>01268                 <a class="code" href="classIncFluid.html#b478ab7f5dd6460dd1ff3dfc654bc595">Close_force_waveno_input_files</a>();
    1284. 

  1284. <a name="l01269"></a>01269         }
    1285. 

  1285. <a name="l01270"></a>01270 }       
    1286. 

  1286. <a name="l01271"></a>01271         
    1287. 

  1287. <a name="l01272"></a>01272 <span class="comment">//</span>
    1288. 

  1288. <a name="l01273"></a>01273 <span class="comment">//      </span>
    1289. 

  1289. <a name="l01274"></a><a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">01274</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">IncFluid::Compute_force_given_modes_SIMPLE</a>()
    1290. 

  1290. <a name="l01275"></a>01275 {
    1291. 

  1291. <a name="l01276"></a>01276 
    1292. 

  1292. <a name="l01277"></a>01277         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1293. 

  1293. <a name="l01278"></a>01278         {
    1294. 

  1294. <a name="l01279"></a>01279                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1295. 

  1295. <a name="l01280"></a>01280                 
    1296. 

  1296. <a name="l01281"></a>01281                 (*force_field_modes_k_array) = 0;  
    1297. 

  1297. <a name="l01282"></a>01282                 (*force_field_modes_F_array) = 0.0;
    1298. 

  1298. <a name="l01283"></a>01283 
    1299. 

  1299. <a name="l01284"></a>01284                 <span class="keywordtype">int</span>  space_dim = 3;
    1300. 

  1300. <a name="l01285"></a>01285                 <span class="keywordtype">int</span>  no_of_vectors_read = 2;
    1301. 

  1301. <a name="l01286"></a>01286                 
    1302. 

  1302. <a name="l01287"></a>01287                 <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>) 
    1303. 

  1303. <a name="l01288"></a>01288                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1304. 

  1304. <a name="l01289"></a>01289                         
    1305. 

  1305. <a name="l01290"></a>01290                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1306. 

  1306. <a name="l01291"></a>01291                 
    1307. 

  1307. <a name="l01292"></a>01292                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1308. 

  1308. <a name="l01293"></a>01293                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, 
    1309. 

  1309. <a name="l01294"></a>01294                                                                                         MPI_COMM_WORLD); 
    1310. 

  1310. <a name="l01295"></a>01295         
    1311. 

  1311. <a name="l01296"></a>01296                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1312. 

  1312. <a name="l01297"></a>01297                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>,
    1313. 

  1313. <a name="l01298"></a>01298                                                                                         MPI_COMM_WORLD);        
    1314. 

  1314. <a name="l01299"></a>01299                 
    1315. 

  1315. <a name="l01300"></a>01300                 <span class="keywordtype">int</span> kx, ky, kz;         
    1316. 

  1316. <a name="l01301"></a>01301                 complex&lt;DP&gt; Fx, Fy, Fz;
    1317. 

  1317. <a name="l01302"></a>01302                 
    1318. 

  1318. <a name="l01303"></a>01303                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1319. 

  1319. <a name="l01304"></a>01304                 
    1320. 

  1320. <a name="l01305"></a>01305                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1321. 

  1321. <a name="l01306"></a>01306                 {
    1322. 

  1322. <a name="l01307"></a>01307                         kx = (*force_field_modes_k_array)(i,1); 
    1323. 

  1323. <a name="l01308"></a>01308                         ky = (*force_field_modes_k_array)(i,2); 
    1324. 

  1324. <a name="l01309"></a>01309                         kz = (*force_field_modes_k_array)(i,3); 
    1325. 

  1325. <a name="l01310"></a>01310                         
    1326. 

  1326. <a name="l01311"></a>01311                         Fx = (*force_field_modes_F_array)(i,1); 
    1327. 

  1327. <a name="l01312"></a>01312                         Fy = (*force_field_modes_F_array)(i,2); 
    1328. 

  1328. <a name="l01313"></a>01313                         
    1329. 

  1329. <a name="l01314"></a>01314                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, Fx, Fy, Fz);
    1330. 

  1330. <a name="l01315"></a>01315                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1331. 

  1331. <a name="l01316"></a>01316                         <span class="comment">// *F(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1332. 

  1332. <a name="l01317"></a>01317                         
    1333. 

  1333. <a name="l01318"></a>01318                         <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>)
    1334. 

  1334. <a name="l01319"></a>01319                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt;  endl;  
    1335. 

  1335. <a name="l01320"></a>01320                 }
    1336. 

  1336. <a name="l01321"></a>01321                         
    1337. 

  1337. <a name="l01322"></a>01322                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1338. 

  1338. <a name="l01323"></a>01323         }
    1339. 

  1339. <a name="l01324"></a>01324         
    1340. 

  1340. <a name="l01325"></a>01325 }
    1341. 

  1341. <a name="l01326"></a>01326 
    1342. 

  1342. <a name="l01327"></a>01327 <span class="comment">//</span>
    1343. 

  1343. <a name="l01328"></a>01328 <span class="comment">//      Scalar</span>
    1344. 

  1344. <a name="l01329"></a>01329 <span class="comment">//</span>
    1345. 

  1345. <a name="l01330"></a>01330 
    1346. 

  1346. <a name="l01331"></a><a class="code" href="classIncFluid.html#57f3786db7bf45ed2d6dcd8942d5e80e">01331</a> <span class="keywordtype">void</span> <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">IncFluid::Compute_force_given_modes_SIMPLE</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1347. 

  1347. <a name="l01332"></a>01332 {
    1348. 

  1348. <a name="l01333"></a>01333 
    1349. 

  1349. <a name="l01334"></a>01334         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1350. 

  1350. <a name="l01335"></a>01335         {
    1351. 

  1351. <a name="l01336"></a>01336                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1352. 

  1352. <a name="l01337"></a>01337                 
    1353. 

  1353. <a name="l01338"></a>01338                 (*force_field_modes_k_array) = 0;  
    1354. 

  1354. <a name="l01339"></a>01339                 (*force_field_modes_F_array) = 0.0;
    1355. 

  1355. <a name="l01340"></a>01340 
    1356. 

  1356. <a name="l01341"></a>01341                 <span class="keywordtype">int</span>  space_dim = 3;
    1357. 

  1357. <a name="l01342"></a>01342                 <span class="keywordtype">int</span>  no_of_vectors_read = 3;
    1358. 

  1358. <a name="l01343"></a>01343                 
    1359. 

  1359. <a name="l01344"></a>01344                 <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>) 
    1360. 

  1360. <a name="l01345"></a>01345                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1361. 

  1361. <a name="l01346"></a>01346                         
    1362. 

  1362. <a name="l01347"></a>01347                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1363. 

  1363. <a name="l01348"></a>01348                 
    1364. 

  1364. <a name="l01349"></a>01349                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1365. 

  1365. <a name="l01350"></a>01350                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1366. 

  1366. <a name="l01351"></a>01351         
    1367. 

  1367. <a name="l01352"></a>01352                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1368. 

  1368. <a name="l01353"></a>01353                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);   
    1369. 

  1369. <a name="l01354"></a>01354                 
    1370. 

  1370. <a name="l01355"></a>01355                 <span class="keywordtype">int</span> kx, ky, kz;                 
    1371. 

  1371. <a name="l01356"></a>01356                 complex&lt;DP&gt; Fx, Fy, Fz, G;
    1372. 

  1372. <a name="l01357"></a>01357                 
    1373. 

  1373. <a name="l01358"></a>01358                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1374. 

  1374. <a name="l01359"></a>01359                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>) = 0.0;
    1375. 

  1375. <a name="l01360"></a>01360                 
    1376. 

  1376. <a name="l01361"></a>01361                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1377. 

  1377. <a name="l01362"></a>01362                 {
    1378. 

  1378. <a name="l01363"></a>01363                         kx = (*force_field_modes_k_array)(i,1); 
    1379. 

  1379. <a name="l01364"></a>01364                         ky = (*force_field_modes_k_array)(i,2); 
    1380. 

  1380. <a name="l01365"></a>01365                         kz = (*force_field_modes_k_array)(i,3); 
    1381. 

  1381. <a name="l01366"></a>01366                         
    1382. 

  1382. <a name="l01367"></a>01367                         Fx = (*force_field_modes_F_array)(i,1); 
    1383. 

  1383. <a name="l01368"></a>01368                         Fy = (*force_field_modes_F_array)(i,2); 
    1384. 

  1384. <a name="l01369"></a>01369                         G = (*force_field_modes_F_array)(i,3); 
    1385. 

  1385. <a name="l01370"></a>01370                         
    1386. 

  1386. <a name="l01371"></a>01371                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, Fx, Fy, Fz);
    1387. 

  1387. <a name="l01372"></a>01372                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1388. 

  1388. <a name="l01373"></a>01373                         T.<a class="code" href="classIncSF.html#cf5903c497f591112673329fa59a223e">Assign_force_and_comp_conj</a>(kx, ky, kz, G);
    1389. 

  1389. <a name="l01374"></a>01374                         <span class="comment">// *F(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1390. 

  1390. <a name="l01375"></a>01375                         
    1391. 

  1391. <a name="l01376"></a>01376                         <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>)
    1392. 

  1392. <a name="l01377"></a>01377                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> 
    1393. 

  1393. <a name="l01378"></a>01378                                                                         &lt;&lt; Fz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt; endl;  
    1394. 

  1394. <a name="l01379"></a>01379                 }
    1395. 

  1395. <a name="l01380"></a>01380                         
    1396. 

  1396. <a name="l01381"></a>01381                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1397. 

  1397. <a name="l01382"></a>01382         }
    1398. 

  1398. <a name="l01383"></a>01383         
    1399. 

  1399. <a name="l01384"></a>01384 }
    1400. 

  1400. <a name="l01385"></a>01385 
    1401. 

  1401. <a name="l01386"></a>01386 <span class="comment">//</span>
    1402. 

  1402. <a name="l01387"></a>01387 <span class="comment">// Vector: Force V and W</span>
    1403. 

  1403. <a name="l01388"></a>01388 <span class="comment">//</span>
    1404. 

  1404. <a name="l01389"></a>01389 
    1405. 

  1405. <a name="l01390"></a>01390         
    1406. 

  1406. <a name="l01391"></a><a class="code" href="classIncFluid.html#a6732ee4cc06259dfb8d6a35158a4503">01391</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">IncFluid::Compute_force_given_modes_SIMPLE</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    1407. 

  1407. <a name="l01392"></a>01392 {
    1408. 

  1408. <a name="l01393"></a>01393 
    1409. 

  1409. <a name="l01394"></a>01394         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1410. 

  1410. <a name="l01395"></a>01395         {
    1411. 

  1411. <a name="l01396"></a>01396                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1412. 

  1412. <a name="l01397"></a>01397                 
    1413. 

  1413. <a name="l01398"></a>01398                 (*force_field_modes_k_array) = 0;  
    1414. 

  1414. <a name="l01399"></a>01399                 (*force_field_modes_F_array) = 0.0;
    1415. 

  1415. <a name="l01400"></a>01400 
    1416. 

  1416. <a name="l01401"></a>01401                 <span class="keywordtype">int</span>  space_dim = 3;
    1417. 

  1417. <a name="l01402"></a>01402                 <span class="keywordtype">int</span>  no_of_vectors_read = 4;
    1418. 

  1418. <a name="l01403"></a>01403                 
    1419. 

  1419. <a name="l01404"></a>01404                 <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>) 
    1420. 

  1420. <a name="l01405"></a>01405                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1421. 

  1421. <a name="l01406"></a>01406                 
    1422. 

  1422. <a name="l01407"></a>01407                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1423. 

  1423. <a name="l01408"></a>01408                 
    1424. 

  1424. <a name="l01409"></a>01409                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1425. 

  1425. <a name="l01410"></a>01410                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1426. 

  1426. <a name="l01411"></a>01411         
    1427. 

  1427. <a name="l01412"></a>01412                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1428. 

  1428. <a name="l01413"></a>01413                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    1429. 

  1429. <a name="l01414"></a>01414                 
    1430. 

  1430. <a name="l01415"></a>01415                 <span class="keywordtype">int</span> kx, ky, kz;
    1431. 

  1431. <a name="l01416"></a>01416                 complex&lt;DP&gt; Fx, Fy, Fz;
    1432. 

  1432. <a name="l01417"></a>01417                 complex&lt;DP&gt; FxW, FyW, FzW;
    1433. 

  1433. <a name="l01418"></a>01418                 
    1434. 

  1434. <a name="l01419"></a>01419                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1435. 

  1435. <a name="l01420"></a>01420                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>) = 0.0;
    1436. 

  1436. <a name="l01421"></a>01421                 
    1437. 

  1437. <a name="l01422"></a>01422                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1438. 

  1438. <a name="l01423"></a>01423                 {
    1439. 

  1439. <a name="l01424"></a>01424                         kx = (*force_field_modes_k_array)(i,1); 
    1440. 

  1440. <a name="l01425"></a>01425                         ky = (*force_field_modes_k_array)(i,2); 
    1441. 

  1441. <a name="l01426"></a>01426                         kz = (*force_field_modes_k_array)(i,3); 
    1442. 

  1442. <a name="l01427"></a>01427                         
    1443. 

  1443. <a name="l01428"></a>01428                         Fx = (*force_field_modes_F_array)(i,1); 
    1444. 

  1444. <a name="l01429"></a>01429                         Fy = (*force_field_modes_F_array)(i,2);
    1445. 

  1445. <a name="l01430"></a>01430                         FxW = (*force_field_modes_F_array)(i,3); 
    1446. 

  1446. <a name="l01431"></a>01431                         FyW = (*force_field_modes_F_array)(i,4); 
    1447. 

  1447. <a name="l01432"></a>01432                         
    1448. 

  1448. <a name="l01433"></a>01433                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, Fx, Fy, Fz);
    1449. 

  1449. <a name="l01434"></a>01434                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, FxW, FyW, FzW);
    1450. 

  1450. <a name="l01435"></a>01435                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1451. 

  1451. <a name="l01436"></a>01436                         W.<a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, FxW, FyW, FzW);
    1452. 

  1452. <a name="l01437"></a>01437                         <span class="comment">// *F(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1453. 

  1453. <a name="l01438"></a>01438                         
    1454. 

  1454. <a name="l01439"></a>01439                         <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>) 
    1455. 

  1455. <a name="l01440"></a>01440                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt; <span class="stringliteral">" "</span> 
    1456. 

  1456. <a name="l01441"></a>01441                                                                         &lt;&lt; FxW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FyW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FzW  &lt;&lt;  endl;  
    1457. 

  1457. <a name="l01442"></a>01442                 }
    1458. 

  1458. <a name="l01443"></a>01443                         
    1459. 

  1459. <a name="l01444"></a>01444                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1460. 

  1460. <a name="l01445"></a>01445         }
    1461. 

  1461. <a name="l01446"></a>01446         
    1462. 

  1462. <a name="l01447"></a>01447 }
    1463. 

  1463. <a name="l01448"></a>01448 
    1464. 

  1464. <a name="l01449"></a>01449 <span class="comment">//</span>
    1465. 

  1465. <a name="l01450"></a>01450 <span class="comment">// Vector: Force V, W and T</span>
    1466. 

  1466. <a name="l01451"></a>01451 <span class="comment">//</span>
    1467. 

  1467. <a name="l01452"></a>01452 
    1468. 

  1468. <a name="l01453"></a>01453         
    1469. 

  1469. <a name="l01454"></a><a class="code" href="classIncFluid.html#de6e209a97b863f7a27b837d387c00cc">01454</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#2f2382a476338166dc905d0c61866b52">IncFluid::Compute_force_given_modes_SIMPLE</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1470. 

  1470. <a name="l01455"></a>01455 {
    1471. 

  1471. <a name="l01456"></a>01456 
    1472. 

  1472. <a name="l01457"></a>01457         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1473. 

  1473. <a name="l01458"></a>01458         {
    1474. 

  1474. <a name="l01459"></a>01459                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1475. 

  1475. <a name="l01460"></a>01460                 
    1476. 

  1476. <a name="l01461"></a>01461                 (*force_field_modes_k_array) = 0;  
    1477. 

  1477. <a name="l01462"></a>01462                 (*force_field_modes_F_array) = 0.0;
    1478. 

  1478. <a name="l01463"></a>01463 
    1479. 

  1479. <a name="l01464"></a>01464                 <span class="keywordtype">int</span>  space_dim = 3;
    1480. 

  1480. <a name="l01465"></a>01465                 <span class="keywordtype">int</span>  no_of_vectors_read = 5;
    1481. 

  1481. <a name="l01466"></a>01466                 
    1482. 

  1482. <a name="l01467"></a>01467                 <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>) 
    1483. 

  1483. <a name="l01468"></a>01468                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1484. 

  1484. <a name="l01469"></a>01469                 
    1485. 

  1485. <a name="l01470"></a>01470                 
    1486. 

  1486. <a name="l01471"></a>01471                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1487. 

  1487. <a name="l01472"></a>01472                 
    1488. 

  1488. <a name="l01473"></a>01473                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1489. 

  1489. <a name="l01474"></a>01474                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1490. 

  1490. <a name="l01475"></a>01475         
    1491. 

  1491. <a name="l01476"></a>01476                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1492. 

  1492. <a name="l01477"></a>01477                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    1493. 

  1493. <a name="l01478"></a>01478                 
    1494. 

  1494. <a name="l01479"></a>01479                 <span class="keywordtype">int</span> kx, ky, kz;
    1495. 

  1495. <a name="l01480"></a>01480                 complex&lt;DP&gt; Fx, Fy, Fz;
    1496. 

  1496. <a name="l01481"></a>01481                 complex&lt;DP&gt; FxW, FyW, FzW, G;
    1497. 

  1497. <a name="l01482"></a>01482                 
    1498. 

  1498. <a name="l01483"></a>01483                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1499. 

  1499. <a name="l01484"></a>01484                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>) = 0.0;
    1500. 

  1500. <a name="l01485"></a>01485                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>) = 0.0;
    1501. 

  1501. <a name="l01486"></a>01486                 
    1502. 

  1502. <a name="l01487"></a>01487                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1503. 

  1503. <a name="l01488"></a>01488                 {
    1504. 

  1504. <a name="l01489"></a>01489                         kx = (*force_field_modes_k_array)(i,1); 
    1505. 

  1505. <a name="l01490"></a>01490                         ky = (*force_field_modes_k_array)(i,2); 
    1506. 

  1506. <a name="l01491"></a>01491                         kz = (*force_field_modes_k_array)(i,3); 
    1507. 

  1507. <a name="l01492"></a>01492                         
    1508. 

  1508. <a name="l01493"></a>01493                         Fx = (*force_field_modes_F_array)(i,1); 
    1509. 

  1509. <a name="l01494"></a>01494                         Fy = (*force_field_modes_F_array)(i,2);
    1510. 

  1510. <a name="l01495"></a>01495                         FxW = (*force_field_modes_F_array)(i,3); 
    1511. 

  1511. <a name="l01496"></a>01496                         FyW = (*force_field_modes_F_array)(i,4); 
    1512. 

  1512. <a name="l01497"></a>01497                         G   = (*force_field_modes_F_array)(i,3);
    1513. 

  1513. <a name="l01498"></a>01498                         
    1514. 

  1514. <a name="l01499"></a>01499                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, Fx, Fy, Fz);
    1515. 

  1515. <a name="l01500"></a>01500                         <a class="code" href="classIncVF.html#f87a17ed3b14ac358f625636727822aa">Last_component</a>(kx, ky, kz, FxW, FyW, FzW);
    1516. 

  1516. <a name="l01501"></a>01501                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1517. 

  1517. <a name="l01502"></a>01502                         W.<a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, FxW, FyW, FzW);
    1518. 

  1518. <a name="l01503"></a>01503                         T.<a class="code" href="classIncSF.html#cf5903c497f591112673329fa59a223e">Assign_force_and_comp_conj</a>(kx, ky, kz, G);
    1519. 

  1519. <a name="l01504"></a>01504                         <span class="comment">// *F(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1520. 

  1520. <a name="l01505"></a>01505                         
    1521. 

  1521. <a name="l01506"></a>01506                         <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>) 
    1522. 

  1522. <a name="l01507"></a>01507                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt; <span class="stringliteral">" "</span> 
    1523. 

  1523. <a name="l01508"></a>01508                                                                         &lt;&lt; FxW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FyW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FzW  &lt;&lt;  <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt; endl;  
    1524. 

  1524. <a name="l01509"></a>01509                 }
    1525. 

  1525. <a name="l01510"></a>01510                         
    1526. 

  1526. <a name="l01511"></a>01511                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1527. 

  1527. <a name="l01512"></a>01512         }
    1528. 

  1528. <a name="l01513"></a>01513         
    1529. 

  1529. <a name="l01514"></a>01514 }
    1530. 

  1530. <a name="l01515"></a>01515 
    1531. 

  1531. <a name="l01516"></a>01516 <span class="comment">/*====================================================================================</span>
    1532. 

  1532. <a name="l01517"></a>01517 <span class="comment">                                </span>
    1533. 

  1533. <a name="l01518"></a>01518 <span class="comment">                                Const Force "Modes" from a file force_field_in_file</span>
    1534. 

  1534. <a name="l01519"></a>01519 <span class="comment">                                        Given Fx and Fomega</span>
    1535. 

  1535. <a name="l01520"></a>01520 <span class="comment">                </span>
    1536. 

  1536. <a name="l01521"></a>01521 <span class="comment">====================================================================================*/</span>
    1537. 

  1537. <a name="l01522"></a>01522 
    1538. 

  1538. <a name="l01523"></a>01523 
    1539. 

  1539. <a name="l01524"></a><a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">01524</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">IncFluid::Compute_force_given_modes_VORTICITY</a>()
    1540. 

  1540. <a name="l01525"></a>01525 {
    1541. 

  1541. <a name="l01526"></a>01526         
    1542. 

  1542. <a name="l01527"></a>01527         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1543. 

  1543. <a name="l01528"></a>01528         {
    1544. 

  1544. <a name="l01529"></a>01529                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1545. 

  1545. <a name="l01530"></a>01530                 
    1546. 

  1546. <a name="l01531"></a>01531                 (*force_field_modes_k_array) = 0;  
    1547. 

  1547. <a name="l01532"></a>01532                 (*force_field_modes_F_array) = 0.0;
    1548. 

  1548. <a name="l01533"></a>01533 
    1549. 

  1549. <a name="l01534"></a>01534                 <span class="keywordtype">int</span>  space_dim = 3;
    1550. 

  1550. <a name="l01535"></a>01535                 <span class="keywordtype">int</span>  no_of_vectors_read = 2;
    1551. 

  1551. <a name="l01536"></a>01536                 
    1552. 

  1552. <a name="l01537"></a>01537                 <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>)
    1553. 

  1553. <a name="l01538"></a>01538                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1554. 

  1554. <a name="l01539"></a>01539                 
    1555. 

  1555. <a name="l01540"></a>01540                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1556. 

  1556. <a name="l01541"></a>01541                 
    1557. 

  1557. <a name="l01542"></a>01542                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1558. 

  1558. <a name="l01543"></a>01543                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1559. 

  1559. <a name="l01544"></a>01544         
    1560. 

  1560. <a name="l01545"></a>01545                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1561. 

  1561. <a name="l01546"></a>01546                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    1562. 

  1562. <a name="l01547"></a>01547                 
    1563. 

  1563. <a name="l01548"></a>01548                 <span class="keywordtype">int</span> kx, ky, kz;
    1564. 

  1564. <a name="l01549"></a>01549                 <span class="keywordtype">int</span> ix, iy, iz;         <span class="comment">// storage location in Array *Forcei                    </span>
    1565. 

  1565. <a name="l01550"></a>01550                 complex&lt;DP&gt; Fx, Fy, Fz, F_omega;
    1566. 

  1566. <a name="l01551"></a>01551                 
    1567. 

  1567. <a name="l01552"></a>01552                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1568. 

  1568. <a name="l01553"></a>01553                 
    1569. 

  1569. <a name="l01554"></a>01554                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1570. 

  1570. <a name="l01555"></a>01555                 {
    1571. 

  1571. <a name="l01556"></a>01556                         kx = (*force_field_modes_k_array)(i,1); 
    1572. 

  1572. <a name="l01557"></a>01557                         ky = (*force_field_modes_k_array)(i,2); 
    1573. 

  1573. <a name="l01558"></a>01558                         kz = (*force_field_modes_k_array)(i,3); 
    1574. 

  1574. <a name="l01559"></a>01559                         
    1575. 

  1575. <a name="l01560"></a>01560                         Fx = (*force_field_modes_F_array)(i,1); 
    1576. 

  1576. <a name="l01561"></a>01561                         F_omega = (*force_field_modes_F_array)(i,2); 
    1577. 

  1577. <a name="l01562"></a>01562                         
    1578. 

  1578. <a name="l01563"></a>01563                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, Fx, F_omega, Fy, Fz);
    1579. 

  1579. <a name="l01564"></a>01564                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1580. 

  1580. <a name="l01565"></a>01565                         <span class="comment">// *Force(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1581. 

  1581. <a name="l01566"></a>01566                         
    1582. 

  1582. <a name="l01567"></a>01567                         <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>)
    1583. 

  1583. <a name="l01568"></a>01568                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt;  endl;  
    1584. 

  1584. <a name="l01569"></a>01569                 }
    1585. 

  1585. <a name="l01570"></a>01570                         
    1586. 

  1586. <a name="l01571"></a>01571                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1587. 

  1587. <a name="l01572"></a>01572         }
    1588. 

  1588. <a name="l01573"></a>01573 
    1589. 

  1589. <a name="l01574"></a>01574 }
    1590. 

  1590. <a name="l01575"></a>01575 
    1591. 

  1591. <a name="l01576"></a>01576 <span class="comment">//</span>
    1592. 

  1592. <a name="l01577"></a>01577 <span class="comment">// Scalar</span>
    1593. 

  1593. <a name="l01578"></a>01578 <span class="comment">//</span>
    1594. 

  1594. <a name="l01579"></a>01579 
    1595. 

  1595. <a name="l01580"></a><a class="code" href="classIncFluid.html#34f596ee828cfd240efea0310c1c5c0a">01580</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">IncFluid::Compute_force_given_modes_VORTICITY</a>(<a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1596. 

  1596. <a name="l01581"></a>01581 {
    1597. 

  1597. <a name="l01582"></a>01582 
    1598. 

  1598. <a name="l01583"></a>01583         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1599. 

  1599. <a name="l01584"></a>01584         {
    1600. 

  1600. <a name="l01585"></a>01585                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1601. 

  1601. <a name="l01586"></a>01586                 
    1602. 

  1602. <a name="l01587"></a>01587                 (*force_field_modes_k_array) = 0;  
    1603. 

  1603. <a name="l01588"></a>01588                 (*force_field_modes_F_array) = 0.0;
    1604. 

  1604. <a name="l01589"></a>01589 
    1605. 

  1605. <a name="l01590"></a>01590                 <span class="keywordtype">int</span>  space_dim = 3;
    1606. 

  1606. <a name="l01591"></a>01591                 <span class="keywordtype">int</span>  no_of_vectors_read = 3;
    1607. 

  1607. <a name="l01592"></a>01592                 
    1608. 

  1608. <a name="l01593"></a>01593                 <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>)
    1609. 

  1609. <a name="l01594"></a>01594                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1610. 

  1610. <a name="l01595"></a>01595                         
    1611. 

  1611. <a name="l01596"></a>01596                         
    1612. 

  1612. <a name="l01597"></a>01597                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1613. 

  1613. <a name="l01598"></a>01598                 
    1614. 

  1614. <a name="l01599"></a>01599                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1615. 

  1615. <a name="l01600"></a>01600                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1616. 

  1616. <a name="l01601"></a>01601         
    1617. 

  1617. <a name="l01602"></a>01602                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1618. 

  1618. <a name="l01603"></a>01603                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    1619. 

  1619. <a name="l01604"></a>01604                         
    1620. 

  1620. <a name="l01605"></a>01605                 
    1621. 

  1621. <a name="l01606"></a>01606                 <span class="keywordtype">int</span> kx, ky, kz;                 
    1622. 

  1622. <a name="l01607"></a>01607                 complex&lt;DP&gt; Fx, Fy, Fz, F_omega, G;
    1623. 

  1623. <a name="l01608"></a>01608                 
    1624. 

  1624. <a name="l01609"></a>01609                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1625. 

  1625. <a name="l01610"></a>01610                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>) = 0.0;
    1626. 

  1626. <a name="l01611"></a>01611                 
    1627. 

  1627. <a name="l01612"></a>01612                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1628. 

  1628. <a name="l01613"></a>01613                 {
    1629. 

  1629. <a name="l01614"></a>01614                         kx = (*force_field_modes_k_array)(i,1); 
    1630. 

  1630. <a name="l01615"></a>01615                         ky = (*force_field_modes_k_array)(i,2); 
    1631. 

  1631. <a name="l01616"></a>01616                         kz = (*force_field_modes_k_array)(i,3); 
    1632. 

  1632. <a name="l01617"></a>01617                         
    1633. 

  1633. <a name="l01618"></a>01618                         Fx = (*force_field_modes_F_array)(i,1); 
    1634. 

  1634. <a name="l01619"></a>01619                         F_omega = (*force_field_modes_F_array)(i,2);
    1635. 

  1635. <a name="l01620"></a>01620                         G = (*force_field_modes_F_array)(i,3); 
    1636. 

  1636. <a name="l01621"></a>01621                         
    1637. 

  1637. <a name="l01622"></a>01622                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, Fx, F_omega, Fy, Fz);
    1638. 

  1638. <a name="l01623"></a>01623                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1639. 

  1639. <a name="l01624"></a>01624                         T.<a class="code" href="classIncSF.html#cf5903c497f591112673329fa59a223e">Assign_force_and_comp_conj</a>(kx, ky, kz, G);
    1640. 

  1640. <a name="l01625"></a>01625                         <span class="comment">// *Force(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1641. 

  1641. <a name="l01626"></a>01626                         
    1642. 

  1642. <a name="l01627"></a>01627                         <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>)
    1643. 

  1643. <a name="l01628"></a>01628                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> 
    1644. 

  1644. <a name="l01629"></a>01629                                                                         &lt;&lt; Fz &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt;  endl;  
    1645. 

  1645. <a name="l01630"></a>01630                 }
    1646. 

  1646. <a name="l01631"></a>01631                                 
    1647. 

  1647. <a name="l01632"></a>01632                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1648. 

  1648. <a name="l01633"></a>01633         }
    1649. 

  1649. <a name="l01634"></a>01634 
    1650. 

  1650. <a name="l01635"></a>01635 }
    1651. 

  1651. <a name="l01636"></a>01636 
    1652. 

  1652. <a name="l01637"></a>01637 <span class="comment">//</span>
    1653. 

  1653. <a name="l01638"></a>01638 <span class="comment">// Vector: force  V and W</span>
    1654. 

  1654. <a name="l01639"></a>01639 <span class="comment">//</span>
    1655. 

  1655. <a name="l01640"></a>01640 
    1656. 

  1656. <a name="l01641"></a><a class="code" href="classIncFluid.html#c895520c0d1f999742337684f5d61238">01641</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">IncFluid::Compute_force_given_modes_VORTICITY</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W)
    1657. 

  1657. <a name="l01642"></a>01642 {
    1658. 

  1658. <a name="l01643"></a>01643 
    1659. 

  1659. <a name="l01644"></a>01644         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1660. 

  1660. <a name="l01645"></a>01645         {
    1661. 

  1661. <a name="l01646"></a>01646                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1662. 

  1662. <a name="l01647"></a>01647                 
    1663. 

  1663. <a name="l01648"></a>01648                 (*force_field_modes_k_array) = 0;  
    1664. 

  1664. <a name="l01649"></a>01649                 (*force_field_modes_F_array) = 0.0;
    1665. 

  1665. <a name="l01650"></a>01650 
    1666. 

  1666. <a name="l01651"></a>01651                 <span class="keywordtype">int</span>  space_dim = 3;
    1667. 

  1667. <a name="l01652"></a>01652                 <span class="keywordtype">int</span>  no_of_vectors_read = 4;
    1668. 

  1668. <a name="l01653"></a>01653                 
    1669. 

  1669. <a name="l01654"></a>01654                 <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>)
    1670. 

  1670. <a name="l01655"></a>01655                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1671. 

  1671. <a name="l01656"></a>01656                         
    1672. 

  1672. <a name="l01657"></a>01657                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1673. 

  1673. <a name="l01658"></a>01658                 
    1674. 

  1674. <a name="l01659"></a>01659                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1675. 

  1675. <a name="l01660"></a>01660                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1676. 

  1676. <a name="l01661"></a>01661         
    1677. 

  1677. <a name="l01662"></a>01662                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1678. 

  1678. <a name="l01663"></a>01663                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);
    1679. 

  1679. <a name="l01664"></a>01664 
    1680. 

  1680. <a name="l01665"></a>01665         
    1681. 

  1681. <a name="l01666"></a>01666                 
    1682. 

  1682. <a name="l01667"></a>01667                 <span class="keywordtype">int</span> kx, ky, kz;                 
    1683. 

  1683. <a name="l01668"></a>01668                 complex&lt;DP&gt; Fx, Fy, Fz, F_omega;
    1684. 

  1684. <a name="l01669"></a>01669                 complex&lt;DP&gt; FxW, FyW, FzW, F_omegaW;
    1685. 

  1685. <a name="l01670"></a>01670                 
    1686. 

  1686. <a name="l01671"></a>01671                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1687. 

  1687. <a name="l01672"></a>01672                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>) = 0.0;
    1688. 

  1688. <a name="l01673"></a>01673                 
    1689. 

  1689. <a name="l01674"></a>01674                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1690. 

  1690. <a name="l01675"></a>01675                 {
    1691. 

  1691. <a name="l01676"></a>01676                         kx = (*force_field_modes_k_array)(i,1); 
    1692. 

  1692. <a name="l01677"></a>01677                         ky = (*force_field_modes_k_array)(i,2); 
    1693. 

  1693. <a name="l01678"></a>01678                         kz = (*force_field_modes_k_array)(i,3); 
    1694. 

  1694. <a name="l01679"></a>01679                         
    1695. 

  1695. <a name="l01680"></a>01680                         Fx = (*force_field_modes_F_array)(i,1); 
    1696. 

  1696. <a name="l01681"></a>01681                         F_omega = (*force_field_modes_F_array)(i,2); 
    1697. 

  1697. <a name="l01682"></a>01682                         FxW = (*force_field_modes_F_array)(i,3); 
    1698. 

  1698. <a name="l01683"></a>01683                         F_omegaW = (*force_field_modes_F_array)(i,4); 
    1699. 

  1699. <a name="l01684"></a>01684                         
    1700. 

  1700. <a name="l01685"></a>01685                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, Fx, F_omega, Fy, Fz);
    1701. 

  1701. <a name="l01686"></a>01686                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, FxW, F_omegaW, FyW, FzW);
    1702. 

  1702. <a name="l01687"></a>01687                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1703. 

  1703. <a name="l01688"></a>01688                         W.<a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, FxW, FyW, FzW);
    1704. 

  1704. <a name="l01689"></a>01689                         <span class="comment">// *Force(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1705. 

  1705. <a name="l01690"></a>01690                         
    1706. 

  1706. <a name="l01691"></a>01691                         <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>)
    1707. 

  1707. <a name="l01692"></a>01692                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt;  <span class="stringliteral">" "</span> 
    1708. 

  1708. <a name="l01693"></a>01693                                                                                                 &lt;&lt; FxW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FyW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FzW &lt;&lt; endl;  
    1709. 

  1709. <a name="l01694"></a>01694                 }
    1710. 

  1710. <a name="l01695"></a>01695                 
    1711. 

  1711. <a name="l01696"></a>01696                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1712. 

  1712. <a name="l01697"></a>01697         }
    1713. 

  1713. <a name="l01698"></a>01698 
    1714. 

  1714. <a name="l01699"></a>01699 }
    1715. 

  1715. <a name="l01700"></a>01700 
    1716. 

  1716. <a name="l01701"></a>01701 
    1717. 

  1717. <a name="l01702"></a>01702 <span class="comment">//</span>
    1718. 

  1718. <a name="l01703"></a>01703 <span class="comment">// Vector + Scalar </span>
    1719. 

  1719. <a name="l01704"></a>01704 <span class="comment">//</span>
    1720. 

  1720. <a name="l01705"></a>01705 
    1721. 

  1721. <a name="l01706"></a><a class="code" href="classIncFluid.html#0b4602414249c7ac18120fd3ccf25ea1">01706</a> <span class="keywordtype">void</span>  <a class="code" href="classIncFluid.html#dc7dc27576110bc046c422bf8d311b57">IncFluid::Compute_force_given_modes_VORTICITY</a>(<a class="code" href="classIncVF.html">IncVF</a>&amp; W, <a class="code" href="classIncSF.html">IncSF</a>&amp; T)
    1722. 

  1722. <a name="l01707"></a>01707 {
    1723. 

  1723. <a name="l01708"></a>01708 
    1724. 

  1724. <a name="l01709"></a>01709         <span class="keywordflow">if</span> (<a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> == 0)
    1725. 

  1725. <a name="l01710"></a>01710         {
    1726. 

  1726. <a name="l01711"></a>01711                 <a class="code" href="compute__force_8cc.html#36fb6e7b997db363fc30547d913b4677">Input_force_prefix</a>(<a class="code" href="classIncFluid.html#e0bf4ebb0dad5c73d8ebccf1593211f5">force_field_in_file</a>);
    1727. 

  1727. <a name="l01712"></a>01712                 
    1728. 

  1728. <a name="l01713"></a>01713                 (*force_field_modes_k_array) = 0;  
    1729. 

  1729. <a name="l01714"></a>01714                 (*force_field_modes_F_array) = 0.0;
    1730. 

  1730. <a name="l01715"></a>01715 
    1731. 

  1731. <a name="l01716"></a>01716                 <span class="keywordtype">int</span>  space_dim = 3;
    1732. 

  1732. <a name="l01717"></a>01717                 <span class="keywordtype">int</span>  no_of_vectors_read = 5;
    1733. 

  1733. <a name="l01718"></a>01718                 
    1734. 

  1734. <a name="l01719"></a>01719                 <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>)
    1735. 

  1735. <a name="l01720"></a>01720                         <a class="code" href="classIncFluid.html#b05536c114b8fb13a6735f2e2c677755">Read_waveno_force_field</a>(space_dim, no_of_vectors_read, <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>);
    1736. 

  1736. <a name="l01721"></a>01721                         
    1737. 

  1737. <a name="l01722"></a>01722                 MPI_Bcast(&amp;<a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>, 1, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1738. 

  1738. <a name="l01723"></a>01723                 
    1739. 

  1739. <a name="l01724"></a>01724                 <span class="keywordtype">int</span> data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 4;
    1740. 

  1740. <a name="l01725"></a>01725                 MPI_Bcast( reinterpret_cast&lt;int*&gt;((*force_field_modes_k_array).data()), data_size, MPI_INT, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD); 
    1741. 

  1741. <a name="l01726"></a>01726         
    1742. 

  1742. <a name="l01727"></a>01727                 data_size = <a class="code" href="IncFluid_8h.html#09b4431fc40bd41b1f0fcc357183994a">IC_MAX_NO_FIELD_MODE</a> * 16;
    1743. 

  1743. <a name="l01728"></a>01728                 MPI_Bcast( reinterpret_cast&lt;double*&gt;((*force_field_modes_F_array).data()), data_size, MPI_DOUBLE, <a class="code" href="basis__basicfn_8cc.html#effbd5f4f8929fc0d3c5fc83e500abbb">master_id</a>, MPI_COMM_WORLD);   
    1744. 

  1744. <a name="l01729"></a>01729                 
    1745. 

  1745. <a name="l01730"></a>01730                 <span class="keywordtype">int</span> kx, ky, kz;         
    1746. 

  1746. <a name="l01731"></a>01731                 complex&lt;DP&gt; Fx, Fy, Fz, F_omega;
    1747. 

  1747. <a name="l01732"></a>01732                 complex&lt;DP&gt; FxW, FyW, FzW, F_omegaW, G;
    1748. 

  1748. <a name="l01733"></a>01733                 
    1749. 

  1749. <a name="l01734"></a>01734                 (*Force1) = 0.0; (*Force2) = 0.0; (*Force3) = 0.0;
    1750. 

  1750. <a name="l01735"></a>01735                 (*W.<a class="code" href="classIncVF.html#e5fe0abba839d872aa2250b165953fb4">Force1</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#80f54d518c56490879a060daab0b11cd">Force2</a>) = 0.0; (*W.<a class="code" href="classIncVF.html#9165c41fad6098c9798d207972ae918c">Force3</a>) = 0.0;
    1751. 

  1751. <a name="l01736"></a>01736                 (*T.<a class="code" href="classIncSF.html#024757d3273e5cb1e89b3bad3b0fa336">Force</a>) = 0.0;
    1752. 

  1752. <a name="l01737"></a>01737                 
    1753. 

  1753. <a name="l01738"></a>01738                 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 1; i &lt;= <a class="code" href="classIncFluid.html#86472ab3be559fe3f3234fb889d90744">num_force_waveno</a>; i++) 
    1754. 

  1754. <a name="l01739"></a>01739                 {
    1755. 

  1755. <a name="l01740"></a>01740                         kx = (*force_field_modes_k_array)(i,1); 
    1756. 

  1756. <a name="l01741"></a>01741                         ky = (*force_field_modes_k_array)(i,2); 
    1757. 

  1757. <a name="l01742"></a>01742                         kz = (*force_field_modes_k_array)(i,3); 
    1758. 

  1758. <a name="l01743"></a>01743                         
    1759. 

  1759. <a name="l01744"></a>01744                         Fx = (*force_field_modes_F_array)(i,1); 
    1760. 

  1760. <a name="l01745"></a>01745                         F_omega = (*force_field_modes_F_array)(i,2); 
    1761. 

  1761. <a name="l01746"></a>01746                         FxW = (*force_field_modes_F_array)(i,3); 
    1762. 

  1762. <a name="l01747"></a>01747                         F_omegaW = (*force_field_modes_F_array)(i,4); 
    1763. 

  1763. <a name="l01748"></a>01748                         G = (*force_field_modes_F_array)(i,5); 
    1764. 

  1764. <a name="l01749"></a>01749                         
    1765. 

  1765. <a name="l01750"></a>01750                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, Fx, F_omega, Fy, Fz);
    1766. 

  1766. <a name="l01751"></a>01751                         <a class="code" href="classIncVF.html#2da69561cd50d11f0222045782d40a72">Compute_VyVz</a>(kx, ky, kz, FxW, F_omegaW, FyW, FzW);
    1767. 

  1767. <a name="l01752"></a>01752                         <a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, Fx, Fy, Fz);
    1768. 

  1768. <a name="l01753"></a>01753                         W.<a class="code" href="classIncVF.html#9a94ded00d68140f2a0f4c72a6af77aa">Assign_force_and_comp_conj</a>(kx, ky, kz, FxW, FyW, FzW);
    1769. 

  1769. <a name="l01754"></a>01754                         T.<a class="code" href="classIncSF.html#cf5903c497f591112673329fa59a223e">Assign_force_and_comp_conj</a>(kx, ky, kz, G);
    1770. 

  1770. <a name="l01755"></a>01755                         <span class="comment">// *Force(k)=(Fx,Fy,Fz); Add complex conj if kz=0.</span>
    1771. 

  1771. <a name="l01756"></a>01756                         
    1772. 

  1772. <a name="l01757"></a>01757                         <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>)
    1773. 

  1773. <a name="l01758"></a>01758                                 cout &lt;&lt; <span class="stringliteral">"k, Force : ("</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; Fx &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fy &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; Fz &lt;&lt;  <span class="stringliteral">" "</span> 
    1774. 

  1774. <a name="l01759"></a>01759                                                                                                 &lt;&lt; FxW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FyW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; FzW &lt;&lt; <span class="stringliteral">" "</span> &lt;&lt; G &lt;&lt; endl;  
    1775. 

  1775. <a name="l01760"></a>01760                 }
    1776. 

  1776. <a name="l01761"></a>01761                 
    1777. 

  1777. <a name="l01762"></a>01762                 <a class="code" href="classIncFluid.html#4eb5767158a3ad62d9885946d8ecfcaa">is_force_field_modes_read</a> = 1;          <span class="comment">// force field modes read now</span>
    1778. 

  1778. <a name="l01763"></a>01763         }
    1779. 

  1779. <a name="l01764"></a>01764 
    1780. 

  1780. <a name="l01765"></a>01765 }
    1781. 

  1781. <a name="l01766"></a>01766 
    1782. 

  1782. <a name="l01767"></a>01767 
    1783. 

  1783. <a name="l01768"></a>01768 
    1784. 

  1784. <a name="l01769"></a>01769 
    1785. 

  1785. <a name="l01770"></a>01770 <span class="comment">//==================================== End of add_buoyancy.cc ============================</span>
    1786. 

  1786. <a name="l01771"></a>01771 
    1787. 

  1787. <a name="l01772"></a>01772 
    1788. 

  1788. </pre></div></div>
    1789. 

  1789. <hr size="1"><address style="text-align: right;"><small>Generated on Mon Sep 1 03:01:29 2008 for TARANG-MPI by&nbsp;
    1790. 

  1790. <a href="http://www.doxygen.org/index.html">
    1791. 

  1791. <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.6 </small></address>
    1792. 

  1792. </body>
    1793. 

  1793. </html>
    1794. 

  1794.