QUICK.f90 - QUICK scheme implementation modul
From CFD-Wiki
(Difference between revisions)
(Created page with "Subroutine QUICK(Con_f,Fi_U,Fi_C,Fi_D,Fi_DD,Delta_f) If(Con_f.GT.0.)then Delta_f= 0.375 * Fi_D - 0.25 * Fi_C - 0.125 * Fi_U else Delta_f= -0.375 * Fi_DD + 0.25 *...") |
|||
Line 1: | Line 1: | ||
+ | <pre> | ||
+ | |||
+ | !Sample program for solving Smith-Hutton Test using different schemes | ||
+ | !of covective terms approximation - QUICK scheme implementation modul | ||
+ | !Copyright (C) 2005 Michail Kiričkov | ||
+ | |||
+ | !This program is free software; you can redistribute it and/or | ||
+ | !modify it under the terms of the GNU General Public License | ||
+ | !as published by the Free Software Foundation; either version 2 | ||
+ | !of the License, or (at your option) any later version. | ||
+ | |||
+ | !This program is distributed in the hope that it will be useful, | ||
+ | !but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
+ | !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
+ | !GNU General Public License for more details. | ||
+ | |||
+ | !You should have received a copy of the GNU General Public License | ||
+ | !along with this program; if not, write to the Free Software | ||
+ | !Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. | ||
+ | |||
+ | !********************************************************************** | ||
+ | |||
Subroutine QUICK(Con_f,Fi_U,Fi_C,Fi_D,Fi_DD,Delta_f) | Subroutine QUICK(Con_f,Fi_U,Fi_C,Fi_D,Fi_DD,Delta_f) | ||
Line 13: | Line 35: | ||
Return | Return | ||
End | End | ||
+ | |||
+ | </pre> |
Latest revision as of 18:04, 20 April 2012
!Sample program for solving Smith-Hutton Test using different schemes !of covective terms approximation - QUICK scheme implementation modul !Copyright (C) 2005 Michail Kiričkov !This program is free software; you can redistribute it and/or !modify it under the terms of the GNU General Public License !as published by the Free Software Foundation; either version 2 !of the License, or (at your option) any later version. !This program is distributed in the hope that it will be useful, !but WITHOUT ANY WARRANTY; without even the implied warranty of !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the !GNU General Public License for more details. !You should have received a copy of the GNU General Public License !along with this program; if not, write to the Free Software !Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. !********************************************************************** Subroutine QUICK(Con_f,Fi_U,Fi_C,Fi_D,Fi_DD,Delta_f) If(Con_f.GT.0.)then Delta_f= 0.375 * Fi_D - 0.25 * Fi_C - 0.125 * Fi_U else Delta_f= -0.375 * Fi_DD + 0.25 * Fi_D + 0.125 * Fi_C End If Return End