https://cfd-online.com/W/index.php?title=Common_icomm_1.f90_-_include_module&feed=atom&action=history
Common icomm 1.f90 - include module - Revision history
2024-03-28T14:35:51Z
Revision history for this page on the wiki
MediaWiki 1.16.5
https://cfd-online.com/W/index.php?title=Common_icomm_1.f90_-_include_module&diff=23614&oldid=prev
Michail at 14:55, 19 May 2016
2016-05-19T14:55:49Z
<p></p>
<table style="background-color: white; color:black;">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr valign='top'>
<td colspan='2' style="background-color: white; color:black;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black;">Revision as of 14:55, 19 May 2016</td>
</tr><tr><td colspan="2" class="diff-lineno">Line 4:</td>
<td colspan="2" class="diff-lineno">Line 4:</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>! include modul</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>! include modul</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!Copyright (C) 2010 Michail Kiričkov</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!Copyright (C) 2010 Michail Kiričkov</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">!Copyright (C) 2016 Michail Kiričkov, Kaunas University for Technology</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">!</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!This program is free software; you can redistribute it and/or</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!This program is free software; you can redistribute it and/or</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!modify it under the terms of the GNU General Public License</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!modify it under the terms of the GNU General Public License</div></td></tr>
</table>
Michail
https://cfd-online.com/W/index.php?title=Common_icomm_1.f90_-_include_module&diff=23603&oldid=prev
Michail at 14:30, 19 May 2016
2016-05-19T14:30:15Z
<p></p>
<table style="background-color: white; color:black;">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr valign='top'>
<td colspan='2' style="background-color: white; color:black;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black;">Revision as of 14:30, 19 May 2016</td>
</tr><tr><td colspan="2" class="diff-lineno">Line 20:</td>
<td colspan="2" class="diff-lineno">Line 20:</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!**********************************************************************</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!**********************************************************************</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>parameter nx=<del class="diffchange diffchange-inline">500</del>, ny=<del class="diffchange diffchange-inline">500</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>parameter nx=<ins class="diffchange diffchange-inline">300</ins>, ny=<ins class="diffchange diffchange-inline">300</ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION U(nx,ny),V(nx,ny),F(nx,ny,10), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION U(nx,ny),V(nx,ny),F(nx,ny,10), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Xc(nx,ny),Yc(nx,ny),X(nx,ny),Y(nx,ny),Gam(nx,ny),Ro(nx,ny)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Xc(nx,ny),Yc(nx,ny),X(nx,ny),Y(nx,ny),Gam(nx,ny),Ro(nx,ny)</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION X_xi(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION X_xi(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_xi(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_xi(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> X_et(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> X_et(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_et(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_et(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> </ins>Del_X_xi(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline"> </del>Del_X_xi(nx,ny), &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_xi(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_xi(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_X_et(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_X_et(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_et(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_et(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"> </del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dx_c(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dx_c(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dy_c(nx,ny) </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dy_c(nx,ny) </div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION DPx_c(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DOUBLE PRECISION DPx_c(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPy_c(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPy_c(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_e(nx,ny), & </ins> </div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> <del class="diffchange diffchange-inline">Con_e</del>(nx,ny), & </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> <ins class="diffchange diffchange-inline">Con_w</ins>(nx,ny), & </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Con_n(nx,ny), & </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Con_n(nx,ny), & </div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> <del class="diffchange diffchange-inline">CheckFlux</del>(nx,ny), &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> <ins class="diffchange diffchange-inline">Con_s</ins>(nx,ny), & <ins class="diffchange diffchange-inline"> </ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_we(nx,ny), & </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_ns(nx,ny), & </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Check_Flux(nx,ny), &</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpU(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpU(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpV(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpV(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> Ap(nx,ny,<ins class="diffchange diffchange-inline">5</ins>), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> Ap(nx,ny,<del class="diffchange diffchange-inline">10</del>), &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> As(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> As(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> An(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> An(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Aw(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Aw(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ae(nx,ny), &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ae(nx,ny), &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> Sp(nx,ny,<del class="diffchange diffchange-inline">10</del>)</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> Sp(nx,ny,<ins class="diffchange diffchange-inline">5</ins>)</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">DOUBLE PRECISION Istoch_nar_abs,Istoch_nar_whole </ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> integer N_centr,N_golbal_iter</ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> <ins class="diffchange diffchange-inline">real max_V,min_V,max_U</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!-----------------------------------------------</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>!-----------------------------------------------</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /var/ U,V,F, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /var/ U,V,F, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> Xc,Yc,X,Y,Gam,Ro</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> Xc,Yc,X,Y,Gam,Ro<ins class="diffchange diffchange-inline">,&</ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> N_centr,N_golbal_iter, &</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Istoch_nar_abs,Istoch_nar_whole, &</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> max_V,min_V,max_U</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /var_Geom/ X_xi, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /var_Geom/ X_xi, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_xi, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_xi, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> X_et, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> X_et, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_et, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Y_et, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> </ins>Del_X_xi, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline"> </del>Del_X_xi, &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_xi, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_xi, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_X_et, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_X_et, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_et, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Del_Y_et, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"> </del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dx_c, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dx_c, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dy_c </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Dy_c </div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>Common /koeff/ Con_e, & <ins class="diffchange diffchange-inline"> </ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>Common /koeff/ Con_e, &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_w, & </ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline"> </del>Con_n, & <del class="diffchange diffchange-inline"> </del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> </ins>Con_n, & <ins class="diffchange diffchange-inline"> </ins></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_s, </ins> <ins class="diffchange diffchange-inline">& </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_we, & </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline"> Con_ns, & </ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPx_c, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPx_c, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPy_c, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DPy_c, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div> <ins class="diffchange diffchange-inline">Check_Flux</ins>, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> <del class="diffchange diffchange-inline">CheckFlux</del>, &</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div> </div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpU, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpU, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpV, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> DpV, &</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ap, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ap, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> As, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> As, &</div></td></tr>
<tr><td colspan="2" class="diff-lineno">Line 96:</td>
<td colspan="2" class="diff-lineno">Line 86:</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ae, &</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Ae, &</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Sp</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div> Sp</div></td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /geomt/ NXmax,NYmax,NXmaxC,NYmaxC </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Common /geomt/ NXmax,NYmax,NXmaxC,NYmaxC </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></pre></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></pre></div></td></tr>
</table>
Michail
https://cfd-online.com/W/index.php?title=Common_icomm_1.f90_-_include_module&diff=14236&oldid=prev
Michail: moved Common incld.f90 - include module to Common icomm 1.f90 - include module: This file was originally named as icomm_1.f90
2012-04-24T05:19:17Z
<p>moved <a href="/Wiki/Common_incld.f90_-_include_module" class="mw-redirect" title="Common incld.f90 - include module">Common incld.f90 - include module</a> to <a href="/Wiki/Common_icomm_1.f90_-_include_module" title="Common icomm 1.f90 - include module">Common icomm 1.f90 - include module</a>: This file was originally named as icomm_1.f90</p>
<table style="background-color: white; color:black;">
<tr valign='top'>
<td colspan='1' style="background-color: white; color:black;">← Older revision</td>
<td colspan='1' style="background-color: white; color:black;">Revision as of 05:19, 24 April 2012</td>
</tr></table>
Michail
https://cfd-online.com/W/index.php?title=Common_icomm_1.f90_-_include_module&diff=10311&oldid=prev
Michail: New page: <pre> !Sample program for solving Lid-driven cavity flow test using SIMPLE-algorithm ! include modul !Copyright (C) 2010 Michail Kiričkov !This program is free software; you can redist...
2010-05-03T08:43:15Z
<p>New page: <pre> !Sample program for solving Lid-driven cavity flow test using SIMPLE-algorithm ! include modul !Copyright (C) 2010 Michail Kiričkov !This program is free software; you can redist...</p>
<p><b>New page</b></p><div><pre><br />
<br />
!Sample program for solving Lid-driven cavity flow test using SIMPLE-algorithm<br />
! include modul<br />
!Copyright (C) 2010 Michail Kiričkov<br />
<br />
!This program is free software; you can redistribute it and/or<br />
!modify it under the terms of the GNU General Public License<br />
!as published by the Free Software Foundation; either version 2<br />
!of the License, or (at your option) any later version.<br />
<br />
!This program is distributed in the hope that it will be useful,<br />
!but WITHOUT ANY WARRANTY; without even the implied warranty of<br />
!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br />
!GNU General Public License for more details.<br />
<br />
!You should have received a copy of the GNU General Public License<br />
!along with this program; if not, write to the Free Software<br />
!Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.<br />
<br />
!**********************************************************************<br />
parameter nx=500, ny=500<br />
<br />
DOUBLE PRECISION U(nx,ny),V(nx,ny),F(nx,ny,10), &<br />
Xc(nx,ny),Yc(nx,ny),X(nx,ny),Y(nx,ny),Gam(nx,ny),Ro(nx,ny)<br />
<br />
DOUBLE PRECISION X_xi(nx,ny), &<br />
Y_xi(nx,ny), &<br />
X_et(nx,ny), &<br />
Y_et(nx,ny), &<br />
<br />
Del_X_xi(nx,ny), &<br />
Del_Y_xi(nx,ny), &<br />
<br />
Del_X_et(nx,ny), &<br />
Del_Y_et(nx,ny), &<br />
<br />
<br />
Dx_c(nx,ny), &<br />
Dy_c(nx,ny) <br />
<br />
DOUBLE PRECISION DPx_c(nx,ny), &<br />
DPy_c(nx,ny), &<br />
<br />
Con_e(nx,ny), & <br />
Con_n(nx,ny), & <br />
CheckFlux(nx,ny), &<br />
<br />
DpU(nx,ny), &<br />
DpV(nx,ny), &<br />
<br />
Ap(nx,ny,10), &<br />
As(nx,ny), &<br />
An(nx,ny), &<br />
Aw(nx,ny), &<br />
Ae(nx,ny), &<br />
Sp(nx,ny,10)<br />
<br />
<br />
<br />
!-----------------------------------------------<br />
<br />
<br />
Common /var/ U,V,F, &<br />
Xc,Yc,X,Y,Gam,Ro<br />
<br />
Common /var_Geom/ X_xi, &<br />
Y_xi, &<br />
X_et, &<br />
Y_et, &<br />
<br />
Del_X_xi, &<br />
Del_Y_xi, &<br />
<br />
Del_X_et, &<br />
Del_Y_et, &<br />
<br />
Dx_c, &<br />
Dy_c <br />
<br />
Common /koeff/ Con_e, &<br />
Con_n, & <br />
<br />
DPx_c, &<br />
DPy_c, &<br />
<br />
CheckFlux, &<br />
<br />
DpU, &<br />
DpV, &<br />
<br />
Ap, &<br />
As, &<br />
An, &<br />
Aw, &<br />
Ae, &<br />
Sp<br />
<br />
<br />
Common /geomt/ NXmax,NYmax,NXmaxC,NYmaxC <br />
<br />
</pre></div>
Michail