1
!-------------------------------------------------------------------------------
3
! This file is part of Code_Saturne, a general-purpose CFD tool.
5
! Copyright (C) 1998-2011 EDF S.A.
7
! This program is free software; you can redistribute it and/or modify it under
8
! the terms of the GNU General Public License as published by the Free Software
9
! Foundation; either version 2 of the License, or (at your option) any later
12
! This program is distributed in the hope that it will be useful, but WITHOUT
13
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14
! FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
17
! You should have received a copy of the GNU General Public License along with
18
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
19
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
21
!-------------------------------------------------------------------------------
26
( ncelet , ncel , nvar , &
30
!===============================================================================
34
! Clipping of nusa for the Spalart-Allmaras model
36
!-------------------------------------------------------------------------------
38
!__________________.____._____.________________________________________________.
39
! name !type!mode ! role !
40
!__________________!____!_____!________________________________________________!
41
! nvar ! e ! <-- ! nombre de variables !
42
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
43
! ncel ! i ! <-- ! number of cells !
44
! iclip ! e ! <-- ! indicateur = 0 on utilise viscl0 !
45
! ! ! ! sinon on utilise viscl !
46
! iwarnu ! e ! <-- ! niveau d'impression !
47
! propce ! tr ! <-- ! tableaux des variables au pdt courant !
49
! rtp ! tr ! <-- ! tableaux des variables au pdt courant !
51
!__________________!____!_____!________________________________________________!
53
! Type: i (integer), r (real), s (string), a (array), l (logical),
54
! and composite types (ex: ra real array)
55
! mode: <-- input, --> output, <-> modifies data, --- work array
56
!===============================================================================
58
!===============================================================================
60
!===============================================================================
70
!===============================================================================
76
integer nvar, ncelet, ncel
78
double precision propce(ncelet,*)
79
double precision rtp(ncelet,nvar)
85
double precision xnu, vmin, vmax, var
88
!===============================================================================
90
! Une petite valeur pour eviter des valeurs exactement nulles.
94
!===============================================================================
95
! ---> Stockage Min et Max pour listing
96
!===============================================================================
107
if (irangp.ge.0) then
116
!===============================================================================
117
! ---> Clipping "standard" NUSA>0
118
!===============================================================================
124
if (xnu.lt.0.D0) then
126
rtp(iel,inusa) = 0.d0
130
if (irangp.ge.0) then
135
! --- Stockage nb de clippings pour listing
137
iclpmn(ipprtp(inusa)) = iclpnu
140
!===============================================================================
142
!===============================================================================
144
#if defined(_CS_LANG_FR)
148
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
150
'@ @@ ATTENTION : ARRET DANS clipsa ',/,&
152
'@ APPEL DE clipsa AVEC OPTION = ',I10 ,/,&
153
'@ Phase : ',I10 ,/,&
155
'@ Le calcul ne peut pas etre execute. ',/,&
157
'@ Contacter l''assistance. ',/,&
159
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
162
I10,' VALEURS DE NUSA INCORRECTE ')
168
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
170
'@ @@ WARNING: ABORT IN clipsa ',/,&
172
'@ CALL OF clipsa WITH OPTION = ',I10 ,/,&
173
'@ Phase : ',I10 ,/,&
175
'@ The calulation will not be run. ',/,&
177
'@ Contact the support. ',/,&
179
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
182
I10,' SA VALUES INCORRECT ')