Rocstar  1.0
Rocstar multiphysics simulation application
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
RFLU_PutBoundaryValues.F90
Go to the documentation of this file.
1 ! *********************************************************************
2 ! * Rocstar Simulation Suite *
3 ! * Copyright@2015, Illinois Rocstar LLC. All rights reserved. *
4 ! * *
5 ! * Illinois Rocstar LLC *
6 ! * Champaign, IL *
7 ! * www.illinoisrocstar.com *
8 ! * sales@illinoisrocstar.com *
9 ! * *
10 ! * License: See LICENSE file in top level of distribution package or *
11 ! * http://opensource.org/licenses/NCSA *
12 ! *********************************************************************
13 ! *********************************************************************
14 ! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, *
15 ! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES *
16 ! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND *
17 ! * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR *
18 ! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER *
19 ! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, *
20 ! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE *
21 ! * USE OR OTHER DEALINGS WITH THE SOFTWARE. *
22 ! *********************************************************************
23 ! ******************************************************************************
24 !
25 ! Purpose: Put outgoing data into buffers for GENX.
26 !
27 ! Description: None.
28 !
29 ! Input:
30 ! region Dimensions of patches, types of BCs, flow variables
31 !
32 ! Output: None.
33 !
34 ! Notes:
35 ! 1. bcFlag is initialized in RFLU_InitGENXInterface, because Jim needs that
36 ! value when COM_init_attribute is called.
37 !
38 ! ******************************************************************************
39 !
40 ! $Id: RFLU_PutBoundaryValues.F90,v 1.21 2008/12/06 08:44:01 mtcampbe Exp $
41 !
42 ! Copyright: (c) 2002-2005 by the University of Illinois
43 !
44 ! ******************************************************************************
45 
46 SUBROUTINE rflu_putboundaryvalues(region)
47 
48  USE moddatatypes
49  USE moderror
50  USE modglobal, ONLY: t_global
51  USE modgrid, ONLY: t_grid
52  USE modbndpatch, ONLY: t_patch
53  USE moddatastruct, ONLY: t_region
54  USE modparameters
55  USE modmpi
56 
57  USE rflu_modgridspeedutils, ONLY: rflu_descalegridspeed
58  USE rflu_modrindstates, ONLY: rflu_setrindstateinjectperf, &
59  rflu_setrindstateslipwallperf
60 
61  IMPLICIT NONE
62 
63 ! ******************************************************************************
64 ! Definitions and declarations
65 ! ******************************************************************************
66 
67 ! ==============================================================================
68 ! Arguments
69 ! ==============================================================================
70 
71  TYPE(t_region), TARGET :: region
72 
73 ! ==============================================================================
74 ! Locals
75 ! ==============================================================================
76 
77  CHARACTER(CHRLEN) :: rcsidentstring
78  INTEGER :: c1,distrib,gasmodel,ifl,indcp,indgs,indmol,ipatch,iv,ivg
79  REAL(RFREAL) :: chref,cp,dummyreal,fs,fsu,minj,mm,nx,ny,nz,pl,rl,rref,rul, &
80  rvl,rwl,tinj,tl,vref
81  REAL(RFREAL), DIMENSION(:,:), POINTER :: pcv,pdv,pgv,pmixtvals
82  TYPE(t_global), POINTER :: global
83  TYPE(t_grid), POINTER :: pgrid
84  TYPE(t_patch), POINTER :: ppatch
85  TYPE(t_region), POINTER :: pregion
86 
87 ! ******************************************************************************
88 ! Start
89 ! ******************************************************************************
90 
91  rcsidentstring = '$RCSfile: RFLU_PutBoundaryValues.F90,v $ $Revision: 1.21 $'
92 
93  global => region%global
94 
95  CALL registerfunction(global,'RFLU_PutBoundaryValues',&
96  'RFLU_PutBoundaryValues.F90')
97 
98 ! ******************************************************************************
99 ! Set pointers
100 ! ******************************************************************************
101 
102  pregion => region
103  pgrid => pregion%grid
104  pcv => pregion%mixt%cv
105  pdv => pregion%mixt%dv
106  pgv => pregion%mixt%gv
107 
108  indgs = region%grid%indGs
109  indcp = region%mixtInput%indCp
110  indmol = region%mixtInput%indMol
111  gasmodel = region%mixtInput%gasModel
112 
113  rref = global%refDensity
114  vref = global%refVelocity
115 
116  chref = 0.5_rfreal*(rref*vref*vref*vref)
117 
118 ! ******************************************************************************
119 ! Loop over ALL boundaries
120 ! ******************************************************************************
121 
122  IF ( global%myProcid == masterproc .AND. &
123  global%verbLevel >= verbose_high ) THEN
124  WRITE(stdout,'(A,1X,A,1X,I3)') solver_name, &
125  'Putting values into GENX buffers...'
126  END IF ! global%myProcid
127 
128  DO ipatch=1,pgrid%nPatches
129  ppatch => region%patches(ipatch)
130 
131  distrib = ppatch%mixt%distrib
132 
133  IF ( global%myProcid == masterproc .AND. &
134  global%checkLevel == check_high .AND. &
135  global%verbLevel >= verbose_high ) THEN
136  IF ( ppatch%bcCoupled == bc_not_coupled ) THEN
137  WRITE(stdout,'(A,3X,A,1X,I3,1X,A)') solver_name,'Patch:',ipatch, &
138  '(not interacting)'
139  ELSE IF ( ppatch%bcCoupled == bc_not_burning ) THEN
140  WRITE(stdout,'(A,3X,A,1X,I3,1X,A)') solver_name,'Patch:',ipatch, &
141  '(interacting)'
142  ELSE IF ( ppatch%bcCoupled == bc_burning ) THEN
143  WRITE(stdout,'(A,3X,A,1X,I3,1X,A)') solver_name,'Patch:',ipatch, &
144  '(interacting and burning)'
145  END IF ! pPatch%bcCoupled
146  END IF ! global%myProcid
147 
148 ! ==============================================================================
149 ! Surface grid
150 ! ==============================================================================
151 
152  DO iv = 1,ppatch%nBVert
153  ivg = ppatch%bv(iv)
154 
155  ppatch%xyz(xcoord,iv) = pgrid%xyz(xcoord,ivg)
156  ppatch%xyz(ycoord,iv) = pgrid%xyz(ycoord,ivg)
157  ppatch%xyz(zcoord,iv) = pgrid%xyz(zcoord,ivg)
158  END DO ! iv
159 
160  DO iv = ppatch%nBVert+1,ppatch%nBVertTot
161  ppatch%xyz(xcoord,iv) = REAL(crazy_value_int,kind=rfreal)
162  ppatch%xyz(ycoord,iv) = REAL(crazy_value_int,kind=rfreal)
163  ppatch%xyz(zcoord,iv) = REAL(crazy_value_int,kind=rfreal)
164  END DO ! iv
165 
166  IF ( global%myProcid == masterproc .AND. &
167  global%checkLevel == check_high .AND. &
168  global%verbLevel >= verbose_high ) THEN
169  IF ( ppatch%nBVert > 0 ) THEN
170  WRITE(stdout,'(A,5X,A)') solver_name,'Minimum/maximum values:'
171  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'xyz.x: ', &
172  minval(ppatch%xyz(xcoord,1:ppatch%nBVert)), &
173  maxval(ppatch%xyz(xcoord,1:ppatch%nBVert))
174  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'xyz.y: ', &
175  minval(ppatch%xyz(ycoord,1:ppatch%nBVert)), &
176  maxval(ppatch%xyz(ycoord,1:ppatch%nBVert))
177  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'xyz.z: ', &
178  minval(ppatch%xyz(zcoord,1:ppatch%nBVert)), &
179  maxval(ppatch%xyz(zcoord,1:ppatch%nBVert))
180  END IF ! pPatch%nBVert
181  END IF ! global%myProcid
182 
183 ! ==============================================================================
184 ! Outgoing data
185 ! ==============================================================================
186 
187 ! ------------------------------------------------------------------------------
188 ! Interacting non-burning boundary
189 ! ------------------------------------------------------------------------------
190 
191  IF ( ppatch%bcCoupled == bc_not_burning ) THEN
192  DO ifl = 1,ppatch%nBFaces
193  c1 = ppatch%bf2c(ifl)
194 
195  ppatch%rhofAlp(ifl) = pcv(cv_mixt_dens,c1)
196  ppatch%pf(ifl) = pdv(dv_mixt_pres,c1)
197 
198  ppatch%qc(ifl) = chref*ppatch%ch(ifl)
199  ppatch%qr(ifl) = 0.0_rfreal ! TEMPORARY
200 
201  ppatch%nfAlp(xcoord,ifl) = ppatch%fn(xcoord,ifl)
202  ppatch%nfAlp(ycoord,ifl) = ppatch%fn(ycoord,ifl)
203  ppatch%nfAlp(zcoord,ifl) = ppatch%fn(zcoord,ifl)
204 
205  ppatch%tracf(xcoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(xcoord,ifl)
206  ppatch%tracf(ycoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(ycoord,ifl)
207  ppatch%tracf(zcoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(zcoord,ifl)
208  END DO ! ifl
209 
210  DO ifl = ppatch%nBFaces+1,ppatch%nBFacesTot
211  ppatch%rhofAlp(ifl) = REAL(crazy_value_int,kind=rfreal)
212  ppatch%pf(ifl) = REAL(crazy_value_int,kind=rfreal)
213 
214  ppatch%qc(ifl) = REAL(crazy_value_int,kind=rfreal)
215  ppatch%qr(ifl) = REAL(crazy_value_int,kind=rfreal)
216 
217  ppatch%nfAlp(xcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
218  ppatch%nfAlp(ycoord,ifl) = REAL(crazy_value_int,kind=rfreal)
219  ppatch%nfAlp(zcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
220 
221  ppatch%tracf(xcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
222  ppatch%tracf(ycoord,ifl) = REAL(crazy_value_int,kind=rfreal)
223  ppatch%tracf(zcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
224  END DO ! ifl
225 
226  IF ( global%myProcid == masterproc .AND. &
227  global%checkLevel == check_high .AND. &
228  global%verbLevel >= verbose_high ) THEN
229  IF ( ppatch%nBFaces > 0 ) THEN
230  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'rhofAlp:', &
231  minval(ppatch%rhofAlp(1:ppatch%nBFaces)), &
232  maxval(ppatch%rhofAlp(1:ppatch%nBFaces))
233  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'pf: ', &
234  minval(ppatch%pf(1:ppatch%nBFaces)), &
235  maxval(ppatch%pf(1:ppatch%nBFaces))
236  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'qc: ', &
237  minval(ppatch%qc(1:ppatch%nBFaces)), &
238  maxval(ppatch%qc(1:ppatch%nBFaces))
239  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'qr: ', &
240  minval(ppatch%qr(1:ppatch%nBFaces)), &
241  maxval(ppatch%qr(1:ppatch%nBFaces))
242  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.x:', &
243  minval(ppatch%nfAlp(xcoord,1:ppatch%nBFaces)), &
244  maxval(ppatch%nfAlp(xcoord,1:ppatch%nBFaces))
245  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.y:', &
246  minval(ppatch%nfAlp(ycoord,1:ppatch%nBFaces)), &
247  maxval(ppatch%nfAlp(ycoord,1:ppatch%nBFaces))
248  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.z:', &
249  minval(ppatch%nfAlp(zcoord,1:ppatch%nBFaces)), &
250  maxval(ppatch%nfAlp(zcoord,1:ppatch%nBFaces))
251  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.x:', &
252  minval(ppatch%tracf(xcoord,1:ppatch%nBFaces)), &
253  maxval(ppatch%tracf(xcoord,1:ppatch%nBFaces))
254  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.y:', &
255  minval(ppatch%tracf(ycoord,1:ppatch%nBFaces)), &
256  maxval(ppatch%tracf(ycoord,1:ppatch%nBFaces))
257  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.z:', &
258  minval(ppatch%tracf(zcoord,1:ppatch%nBFaces)), &
259  maxval(ppatch%tracf(zcoord,1:ppatch%nBFaces))
260  END IF ! pPatch%nBFaces
261  END IF ! global%myProcid
262  END IF ! pPatch%bcCoupled
263 
264 ! ------------------------------------------------------------------------------
265 ! Interacting burning boundary
266 ! ------------------------------------------------------------------------------
267 
268  IF ( ppatch%bcCoupled == bc_burning ) THEN
269  pmixtvals => ppatch%mixt%vals
270 
271  DO ifl = 1,ppatch%nBFaces
272  c1 = ppatch%bf2c(ifl)
273 
274  nx = ppatch%fn(xcoord,ifl)
275  ny = ppatch%fn(ycoord,ifl)
276  nz = ppatch%fn(zcoord,ifl)
277 
278  fs = ppatch%gs(indgs*ifl)
279  fsu = rflu_descalegridspeed(pregion,fs)
280 
281  IF ( gasmodel == gas_model_tcperf ) THEN
282  cp = pgv(gv_mixt_cp ,indcp *c1)
283  mm = pgv(gv_mixt_mol,indmol*c1)
284 
285  minj = pmixtvals(bcdat_inject_mfrate,distrib*ifl)
286 
287  IF ( minj > 0.0_rfreal ) THEN ! Surface burning
288  tinj = pmixtvals(bcdat_inject_temp,distrib*ifl)
289 
290  pl = pdv(dv_mixt_pres,c1)
291 
292  CALL rflu_setrindstateinjectperf(cp,mm,nx,ny,nz,minj,tinj,pl, &
293  fsu,rl,dummyreal,dummyreal, &
294  dummyreal,dummyreal)
295 
296  tl = tinj
297  ELSE ! Surface NOT burning
298  rl = pcv(cv_mixt_dens,c1)
299  rul = pcv(cv_mixt_xmom,c1)
300  rvl = pcv(cv_mixt_ymom,c1)
301  rwl = pcv(cv_mixt_zmom,c1)
302  pl = pdv(dv_mixt_pres,c1)
303 
304  CALL rflu_setrindstateslipwallperf(cp,mm,nx,ny,nz,rl,rul,rvl,rwl, &
305  fsu,pl)
306 
307  tl = pdv(dv_mixt_temp,c1)
308  END IF ! minj
309  ELSE
310  CALL errorstop(global,err_reached_default,__line__)
311  END IF ! gasModel
312 
313  ppatch%rhofAlp(ifl) = rl
314  ppatch%pf(ifl) = pl
315  ppatch%tempf(ifl) = tl
316 
317  ppatch%qc(ifl) = chref*ppatch%ch(ifl)
318  ppatch%qr(ifl) = 0.0_rfreal ! TEMPORARY
319 
320  ppatch%nfAlp(xcoord,ifl) = nx
321  ppatch%nfAlp(ycoord,ifl) = ny
322  ppatch%nfAlp(zcoord,ifl) = nz
323 
324  ppatch%tracf(xcoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(xcoord,ifl)
325  ppatch%tracf(ycoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(ycoord,ifl)
326  ppatch%tracf(zcoord,ifl) = ppatch%pf(ifl)*ppatch%nfAlp(zcoord,ifl)
327  END DO ! ifl
328 
329  DO ifl = ppatch%nBFaces+1,ppatch%nBFacesTot
330  ppatch%rhofAlp(ifl) = REAL(crazy_value_int,kind=rfreal)
331  ppatch%pf(ifl) = REAL(crazy_value_int,kind=rfreal)
332  ppatch%tempf(ifl) = REAL(crazy_value_int,kind=rfreal)
333 
334  ppatch%qc(ifl) = REAL(crazy_value_int,kind=rfreal)
335  ppatch%qr(ifl) = REAL(crazy_value_int,kind=rfreal)
336 
337  ppatch%nfAlp(xcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
338  ppatch%nfAlp(ycoord,ifl) = REAL(crazy_value_int,kind=rfreal)
339  ppatch%nfAlp(zcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
340 
341  ppatch%tracf(xcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
342  ppatch%tracf(ycoord,ifl) = REAL(crazy_value_int,kind=rfreal)
343  ppatch%tracf(zcoord,ifl) = REAL(crazy_value_int,kind=rfreal)
344  END DO ! ifl
345 
346  IF ( global%myProcid == masterproc .AND. &
347  global%checkLevel == check_high .AND. &
348  global%verbLevel >= verbose_high ) THEN
349  IF ( ppatch%nBFaces > 0 ) THEN
350  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'rhofAlp:', &
351  minval(ppatch%rhofAlp(1:ppatch%nBFaces)), &
352  maxval(ppatch%rhofAlp(1:ppatch%nBFaces))
353  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'pf: ', &
354  minval(ppatch%pf(1:ppatch%nBFaces)), &
355  maxval(ppatch%pf(1:ppatch%nBFaces))
356  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tempf: ', &
357  minval(ppatch%tempf(1:ppatch%nBFaces)), &
358  maxval(ppatch%tempf(1:ppatch%nBFaces))
359  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'qc: ', &
360  minval(ppatch%qc(1:ppatch%nBFaces)), &
361  maxval(ppatch%qc(1:ppatch%nBFaces))
362  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'qr: ', &
363  minval(ppatch%qr(1:ppatch%nBFaces)), &
364  maxval(ppatch%qr(1:ppatch%nBFaces))
365  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.x:', &
366  minval(ppatch%nfAlp(xcoord,1:ppatch%nBFaces)), &
367  maxval(ppatch%nfAlp(xcoord,1:ppatch%nBFaces))
368  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.y:', &
369  minval(ppatch%nfAlp(ycoord,1:ppatch%nBFaces)), &
370  maxval(ppatch%nfAlp(ycoord,1:ppatch%nBFaces))
371  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'nfAlp.z:', &
372  minval(ppatch%nfAlp(zcoord,1:ppatch%nBFaces)), &
373  maxval(ppatch%nfAlp(zcoord,1:ppatch%nBFaces))
374  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.x:', &
375  minval(ppatch%tracf(xcoord,1:ppatch%nBFaces)), &
376  maxval(ppatch%tracf(xcoord,1:ppatch%nBFaces))
377  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.y:', &
378  minval(ppatch%tracf(ycoord,1:ppatch%nBFaces)), &
379  maxval(ppatch%tracf(ycoord,1:ppatch%nBFaces))
380  WRITE(stdout,'(A,7X,A,2(1X,E15.8))') solver_name,'tracf.z:', &
381  minval(ppatch%tracf(zcoord,1:ppatch%nBFaces)), &
382  maxval(ppatch%tracf(zcoord,1:ppatch%nBFaces))
383  END IF ! pPatch%nBFaces
384  END IF ! global%myProcid
385  END IF ! pPatch%bcType
386  END DO ! iPatch
387 
388 ! ******************************************************************************
389 ! End
390 ! ******************************************************************************
391 
392  IF ( global%myProcid == masterproc .AND. &
393  global%verbLevel >= verbose_high ) THEN
394  WRITE(stdout,'(A,1X,A,1X,I3)') solver_name, &
395  'Putting values into GENX buffers done.'
396  END IF ! global%myProcid
397 
398  CALL deregisterfunction(global)
399 
400 END SUBROUTINE rflu_putboundaryvalues
401 
402 ! ******************************************************************************
403 !
404 ! RCS Revision history:
405 !
406 ! $Log: RFLU_PutBoundaryValues.F90,v $
407 ! Revision 1.21 2008/12/06 08:44:01 mtcampbe
408 ! Updated license.
409 !
410 ! Revision 1.20 2008/11/19 22:17:15 mtcampbe
411 ! Added Illinois Open Source License/Copyright
412 !
413 ! Revision 1.19 2006/08/19 15:37:54 mparmar
414 ! Renamed patch variables
415 !
416 ! Revision 1.18 2005/10/31 21:09:33 haselbac
417 ! Changed specModel and SPEC_MODEL_NONE
418 !
419 ! Revision 1.17 2005/10/14 14:02:20 haselbac
420 ! Added setting of heat fluxes
421 !
422 ! Revision 1.16 2005/09/27 14:00:10 haselbac
423 ! Added setting of qc
424 !
425 ! Revision 1.15 2004/10/19 19:23:09 haselbac
426 ! Removed printing of bFlag extrema and use of relative velocity, cosmetics
427 !
428 ! Revision 1.14 2004/08/13 22:35:03 haselbac
429 ! Bug fix: pMixtVals only set for burning patches
430 !
431 ! Revision 1.13 2003/09/04 20:19:36 haselbac
432 ! Removed temporary fix for Rocburn problem in GENx
433 !
434 ! Revision 1.12 2003/08/22 20:31:55 haselbac
435 ! Added temporary fix for ignition problems
436 !
437 ! Revision 1.11 2003/08/20 02:09:58 haselbac
438 ! Changed verbosity conditions to reduce solver output in GENx runs
439 !
440 ! Revision 1.10 2003/05/13 23:44:05 haselbac
441 ! Added init of dummy faces and vertices
442 !
443 ! Revision 1.9 2003/04/24 15:36:57 haselbac
444 ! Deleted setting of bFlag and logical input argument
445 !
446 ! Revision 1.8 2003/04/12 21:34:12 haselbac
447 ! Made parallel: Added MASTERPROC checks
448 !
449 ! Revision 1.7 2003/01/28 18:27:53 haselbac
450 ! Cosmetics only
451 !
452 ! Revision 1.6 2002/11/27 20:23:30 haselbac
453 ! Fixed bug in setting of variables on burning boundaries
454 !
455 ! Revision 1.5 2002/10/19 16:11:50 haselbac
456 ! rhof set of interacting patches, cosmetic changes to output
457 !
458 ! Revision 1.4 2002/10/12 19:08:33 haselbac
459 ! Cosmetic changes only
460 !
461 ! Revision 1.3 2002/10/12 14:48:51 haselbac
462 ! Corrected bcFlag bug, some cosmetic changes
463 !
464 ! Revision 1.2 2002/10/07 14:09:32 haselbac
465 ! Changed ModBndpatch to ModBndPatch
466 !
467 ! Revision 1.1 2002/10/05 18:28:18 haselbac
468 ! Initial revision
469 !
470 ! ******************************************************************************
471 
472 
473 
474 
475 
476 
477 
rflu_modrindstates::rflu_setrindstateinjectperf
subroutine, public rflu_setrindstateinjectperf(cpGas, mmGas, nx, ny, nz, mInj, tInj, pl, fs, rl, ul, vl, wl, Hl)
Definition: RFLU_ModRindStates.F90:341
rflu_modrindstates
Definition: RFLU_ModRindStates.F90:39
rflu_modrindstates::rflu_setrindstateslipwallperf
subroutine, public rflu_setrindstateslipwallperf(cpGas, mmGas, nx, ny, nz, rl, rul, rvl, rwl, fs, pl)
Definition: RFLU_ModRindStates.F90:417
moderror::registerfunction
subroutine registerfunction(global, funName, fileName)
Definition: ModError.F90:449
modgrid::t_grid
Definition: ModGrid.F90:56
rflu_putboundaryvalues
subroutine rflu_putboundaryvalues(region)
Definition: RFLU_PutBoundaryValues.F90:46
rflu_modgridspeedutils::rflu_descalegridspeed
real(rfreal) function, public rflu_descalegridspeed(pRegion, fs)
Definition: RFLU_ModGridSpeedUtils.F90:138
rflu_modgridspeedutils
Definition: RFLU_ModGridSpeedUtils.F90:39
modglobal::t_global
Definition: ModGlobal.F90:50
moderror::errorstop
subroutine errorstop(global, errorCode, errorLine, addMessage)
Definition: ModError.F90:483
moderror::deregisterfunction
subroutine deregisterfunction(global)
Definition: ModError.F90:469
modbndpatch::t_patch
Definition: ModBndPatch.F90:91