56 TYPE(t_region
) :: region
59 INTEGER ::
if, ifl, ipatch
62 CHARACTER(CHRLEN) :: rcsidentstring
66 INTEGER :: ijkc0, ijkc1, ifg, bctype
67 REAL(RFREAL),
POINTER :: cv(:,:), avgco(:,:), fvar(:,:), bfvar(:,:)
68 INTEGER,
POINTER :: f2c(:,:), bf2c(:)
72 rcsidentstring =
'$RCSfile: TURB_fluLesC2F.F90,v $ $Revision: 1.5 $'
74 global => region%global
76 'TURB_fluLesC2F.F90' )
81 f2c => region%grid%f2c
82 avgco => region%turb%avgCoI
83 fvar => region%turb%fVar
84 bfvar => region%turb%bfVar
85 avgco(:,:) = 0.5_rfreal
89 DO if = 1,region%grid%nFaces
93 fvar(cv_turb_dens,
if)=avgco(2,
if)*cv(cv_mixt_dens,ijkc0)+ &
94 avgco(1,
if)*cv(cv_mixt_dens,ijkc1)
95 fvar(cv_turb_xmom,
if)=avgco(2,
if)*cv(cv_mixt_xmom,ijkc0)+ &
96 avgco(1,
if)*cv(cv_mixt_xmom,ijkc1)
97 fvar(cv_turb_ymom,
if)=avgco(2,
if)*cv(cv_mixt_ymom,ijkc0)+ &
98 avgco(1,
if)*cv(cv_mixt_ymom,ijkc1)
99 fvar(cv_turb_zmom,
if)=avgco(2,
if)*cv(cv_mixt_zmom,ijkc0)+ &
100 avgco(1,
if)*cv(cv_mixt_zmom,ijkc1)
104 DO ipatch = 1,region%grid%nPatches
105 patch => region%patches(ipatch)
107 bctype =
patch%bcType
109 IF (bctype>=bc_noslipwall .AND. bctype>=bc_noslipwall+bc_range)
THEN
111 DO ifl = 1,
patch%nBFaces
115 bfvar(cv_turb_dens,ifg) = cv(cv_mixt_dens,ijkc0)
116 bfvar(cv_turb_xmom,ifg) = 0._rfreal
117 bfvar(cv_turb_ymom,ifg) = 0._rfreal
118 bfvar(cv_turb_zmom,ifg) = 0._rfreal
121 DO ifl = 1,
patch%nBFaces
125 bfvar(cv_turb_dens,ifg) = cv(cv_mixt_dens,ijkc0)
126 bfvar(cv_turb_xmom,ifg) = cv(cv_mixt_xmom,ijkc0)
127 bfvar(cv_turb_ymom,ifg) = cv(cv_mixt_ymom,ijkc0)
128 bfvar(cv_turb_zmom,ifg) = cv(cv_mixt_zmom,ijkc0)
subroutine registerfunction(global, funName, fileName)
subroutine turb_flulesc2f(region)
subroutine deregisterfunction(global)