/dports/science/code_saturne/code_saturne-7.1.0/src/cfbl/ |
H A D | cfxtcl.f90 | 181 wbfb(ifac) = coefbp(ifac) 235 rcodcl(ifac,ipr,1) = wbfa(ifac) 363 bc_en(ifac) = rcodcl(ifac,ien,1) 364 bc_pr(ifac) = rcodcl(ifac,ipr,1) 365 bc_tk(ifac) = rcodcl(ifac,itk,1) 386 bc_en(ifac) = rcodcl(ifac,ien,1) 387 bc_pr(ifac) = rcodcl(ifac,ipr,1) 388 bc_tk(ifac) = rcodcl(ifac,itk,1) 412 bc_en(ifac) = rcodcl(ifac,ien,1) 413 bc_pr(ifac) = rcodcl(ifac,ipr,1) [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
H A D | altycl.f90 | 167 rcodcl(ifac, iuma, 1) = b_fluid_vel(1, ifac) 184 ialtyb(ifac) = -ialtyb(ifac) 209 do ii = ipnfbr(ifac), ipnfbr(ifac+1)-1 258 do ii = ipnfbr(ifac), ipnfbr(ifac+1)-1 314 ialtyb(ifac) = -ialtyb(ifac) 323 ialtyb(ifac) = -ialtyb(ifac) 332 ialtyb(ifac) = -ialtyb(ifac) 344 ialtyb(ifac) = -ialtyb(ifac) 406 rcodcl(ifac,iu,1) = rcodcl(ifac,iuma,1) 407 rcodcl(ifac,iv,1) = rcodcl(ifac,ivma,1) [all …]
|
H A D | condli.f90 | 812 theipb(ifac) = bvar_s(ifac) 1232 normal(1) = surfbo(1,ifac)/surfbn(ifac) 1233 normal(2) = surfbo(2,ifac)/surfbn(ifac) 1234 normal(3) = surfbo(3,ifac)/surfbn(ifac) 2541 bvar_s(ifac) = coefap(ifac) + coefbp(ifac) * bvar_s(ifac) 2559 bvar_s(ifac) = coefap(ifac) + coefbp(ifac) * bvar_s(ifac) 2577 bvar_s(ifac) = coefap(ifac) + coefbp(ifac) * bvar_s(ifac) 2595 bvar_s(ifac) = coefap(ifac) + coefbp(ifac) * bvar_s(ifac) 2613 bvar_s(ifac) = coefap(ifac) + coefbp(ifac) * bvar_s(ifac) 2658 bfconv(ifac) = cofafp(ifac) + cofbfp(ifac)*theipb(ifac) [all …]
|
H A D | vericl.f90 | 247 itypfb(ifac) = -itypfb(ifac) 259 itypfb(ifac) = -itypfb(ifac) 271 itypfb(ifac) = -itypfb(ifac) 290 itypfb(ifac) = -itypfb(ifac) 309 itypfb(ifac) = -itypfb(ifac) 336 itypfb(ifac) = -itypfb(ifac) 356 itypfb(ifac) = -itypfb(ifac) 370 itypfb(ifac) = -itypfb(ifac) 384 itypfb(ifac) = -itypfb(ifac) 398 itypfb(ifac) = -itypfb(ifac) [all …]
|
H A D | clsyvt.f90 | 182 isympa(ifac) = 0 283 iel = ifabor(ifac) 419 coefbf_rij(isou,ii, ifac) = - hint * coefb_rij(isou,ii, ifac) 421 coefbd_rij(isou,ii, ifac) = coefb_rij(isou,ii, ifac) 513 do ifac = 1, nfabor 752 iel = ifabor(ifac) 822 cofarut(isou,ifac) = coefaut(isou,ifac) 824 cofbrut(isou,jsou,ifac) = coefbut(isou,jsou,ifac) 840 ( a_al(ifac), af_al(ifac), & 841 b_al(ifac), bf_al(ifac), & [all …]
|
H A D | typecl.f90 | 186 itypfb(ifac) = 0 539 if ((itypfb(ifac).eq.isolib.or.itypfb(ifac).eq.ifrent).and. & 792 rcodcl(ifac,ivar,1) = pripb(ifac) - pref 826 b_head_loss(ifac) = rcodcl(ifac,ivar,2) 833 rcodcl(ifac,ivar,1) = pripb(ifac) - pref 1216 itypfb(ifac) = - abs(itypfb(ifac)) 1238 itypfb(ifac) = - abs(itypfb(ifac)) 1302 itypfb(ifac) = - abs(itypfb(ifac)) 1322 itypfb(ifac) = - abs(itypfb(ifac)) 1552 icodcl(ifac,ivar+i_dim) = icodcl(ifac,ivar) [all …]
|
H A D | clptur.f90 | 1474 xkip = 0.5d0*(rijipb(ifac,1)+rijipb(ifac,2)+rijipb(ifac,3)) 1493 xkip = 0.5d0*(rijipb(ifac,1)+rijipb(ifac,2)+rijipb(ifac,3)) 2477 hint(ifac) = viscis/surfbn(ifac)/fikis 2576 hext = hextp(ifac)/surfbn(ifac) 2640 cofafp(ifac) = -heq*dist_theipb(ifac) 2683 bfconv(ifac) = cofafp(ifac) + cofbfp(ifac)*theipb(ifac) 2768 ( a_al(ifac), af_al(ifac), & 2769 b_al(ifac), bf_al(ifac), & 2782 phit = cofafp(ifac)+cofbfp(ifac)*theipb(ifac) 2784 phit = cofafp(ifac)+cofbfp(ifac)*bval_s(ifac) [all …]
|
H A D | mmtycl.f90 | 122 iel = ifabor(ifac) 149 if (rcodcl(ifac,iu,1).gt.rinfin*0.5d0) rcodcl(ifac,iu,1) = 0.d0 150 if (rcodcl(ifac,iv,1).gt.rinfin*0.5d0) rcodcl(ifac,iv,1) = 0.d0 151 if (rcodcl(ifac,iw,1).gt.rinfin*0.5d0) rcodcl(ifac,iw,1) = 0.d0 181 do ifac = 1, nfabor 183 iel = ifabor(ifac) 194 (itypfb(ifac).eq.iparoi.or.itypfb(ifac).eq.iparug)) then 201 distbf = distb(ifac) 211 coftur(ifac) = 0.d0 212 hfltur(ifac) = hint [all …]
|
H A D | stdtcl.f90 | 240 ( rcodcl(ifac,iu,1)*surfbo(1,ifac) + & 241 rcodcl(ifac,iv,1)*surfbo(2,ifac) + & 242 rcodcl(ifac,iw,1)*surfbo(3,ifac) ) 246 ( rcodcl(ifac,iu,1)*surfbo(1,ifac) + & 247 rcodcl(ifac,iv,1)*surfbo(2,ifac) + & 248 rcodcl(ifac,iw,1)*surfbo(3,ifac) ) 257 (rcodcl(ifac,iu,1)*surfbo(1,ifac) + & 259 rcodcl(ifac,iw,1)*surfbo(3,ifac)) 297 rcodcl(ifac,iu,1) = rcodcl(ifac,iu,1)*qisqc 298 rcodcl(ifac,iv,1) = rcodcl(ifac,iv,1)*qisqc [all …]
|
H A D | driflu.f90 | 271 imasfl_gas(ifac) = imasfl_mix(ifac) 275 bmasfl_gas(ifac) = bmasfl_mix(ifac) 591 imasfl(ifac) = imasfl_mix(ifac) + flumas(ifac) 595 bmasfl(ifac) = bmasfl_mix(ifac) + flumab(ifac) 620 imasfl_gas(ifac) = imasfl_gas(ifac) - x2(ielup)*imasfl(ifac) 628 bmasfl_gas(ifac) = bmasfl_gas(ifac) - x2(ielup)*bmasfl(ifac) 654 bmasfl_gas(ifac) = bmasfl_gas(ifac)/bpro_x1(ifac) 674 flumas(ifac) = - imasfl_mix(ifac) 678 flumab(ifac) = - bmasfl_mix(ifac) 682 flumas(ifac) = imasfl(ifac) - imasfl_mix(ifac) [all …]
|
H A D | clptrg.f90 | 760 dt = theipb(ifac)-rcodcl(ifac,isca(iscalt),1) 1015 ( coefa_k(ifac), coefaf_k(ifac), & 1016 coefb_k(ifac), coefbf_k(ifac), & 1277 ( coefa_k(ifac), coefaf_k(ifac), & 1278 coefb_k(ifac), coefbf_k(ifac), & 1331 ( coefa_k(ifac), coefaf_k(ifac), & 1332 coefb_k(ifac), coefbf_k(ifac), & 1391 ( coefa_k(ifac), coefaf_k(ifac), & 2136 bfconv(ifac) = cofafp(ifac) + cofbfp(ifac)*theipb(ifac) 2144 phit = (cofafp(ifac) + cofbfp(ifac)*val_s(iel)) [all …]
|
H A D | distyp.f90 | 272 ( coefap(ifac), cofafp(ifac), & 273 coefbp(ifac), cofbfp(ifac), & 284 ( a_y(ifac), af_y(ifac), & 285 b_y(ifac), bf_y(ifac), & 310 ( a_y(ifac), af_y(ifac), & 311 b_y(ifac), bf_y(ifac), & 369 imasfl(ifac) = - imasfl(ifac) 372 bmasfl(ifac) = - bmasfl(ifac) 385 rovsdp(ifacel(1, ifac)) = rovsdp(ifacel(1, ifac)) + imasfl(ifac) 386 rovsdp(ifacel(2, ifac)) = rovsdp(ifacel(2, ifac)) - imasfl(ifac) [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/atmo/ |
H A D | attycl.f90 | 283 izone = izfppp(ifac) 284 iel = ifabor(ifac) 345 vs = xuent*surfbo(1,ifac) + xvent*surfbo(2,ifac) 368 if (itypfb(ifac).eq.0) itypfb(ifac) = ientre 374 if (rcodcl(ifac,iu,1).gt.rinfin*0.5d0) rcodcl(ifac,iu,1) = xuent 375 if (rcodcl(ifac,iv,1).gt.rinfin*0.5d0) rcodcl(ifac,iv,1) = xvent 376 if (rcodcl(ifac,iw,1).gt.rinfin*0.5d0) rcodcl(ifac,iw,1) = xwent 424 rcodcl(ifac,ipr,1) = coefap(ifac) 518 rcodcl(ifac,ivar,1) = rcodcl(ifac,ivar,1) * (ps/pp)**rscp 528 do ifac = 1, nfabor [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/user_examples/ |
H A D | cs_user_boundary_conditions-electric_arcs.f90 | 185 ifac = lstelt(ilelt) 187 itypfb(ifac) = ientre 193 izfppp(ifac) = izone 314 ifac = lstelt(ilelt) 323 izfppp(ifac) = izone 384 ifac = lstelt(ilelt) 392 izfppp(ifac) = izone 457 ifac = lstelt(ilelt) 465 izfppp(ifac) = izone 538 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-gas_3ptchem.f90 | 159 ifac = lstelt(ilelt) 162 itypfb(ifac) = ientre 168 izfppp(ifac) = izone 260 ifac = lstelt(ilelt) 269 izfppp(ifac) = izone 361 ifac = lstelt(ilelt) 370 izfppp(ifac) = izone 384 ifac = lstelt(ilelt) 393 izfppp(ifac) = izone 407 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-richards.f90 | 165 icodcl(ifac,iu) = 3 166 icodcl(ifac,iv) = 3 167 icodcl(ifac,iw) = 3 197 icodcl(ifac,iu) = 3 198 icodcl(ifac,iv) = 3 199 icodcl(ifac,iw) = 3 207 rcodcl(ifac,ipr,1) = -1.d0 * cdgfbo(3,ifac) 226 icodcl(ifac,iu) = 3 227 icodcl(ifac,iv) = 3 228 icodcl(ifac,iw) = 3 [all …]
|
H A D | cs_user_boundary_conditions-compressible.f90 | 169 ifac = lstelt(ilelt) 173 iel = ifabor(ifac) 177 izfppp(ifac) = izone 208 uref2 = rcodcl(ifac,iu,1)**2 + rcodcl(ifac,iv,1)**2 + rcodcl(ifac,iw,1)**2 264 ifac = lstelt(ilelt) 268 izfppp(ifac) = izone 292 ifac = lstelt(ilelt) 296 izfppp(ifac) = izone 336 rcodcl(ifac,iu,1) = -surfbo(1,ifac) 337 rcodcl(ifac,iv,1) = -surfbo(2,ifac) [all …]
|
H A D | cs_user_boundary_conditions-base.f90 | 164 ifac = lstelt(ilelt) 165 iel = ifabor(ifac) 167 itypfb(ifac) = ientre 221 ifac = lstelt(ilelt) 222 iel = ifabor(ifac) 224 itypfb(ifac) = ientre 270 ifac = lstelt(ilelt) 276 itypfb(ifac) = isolib 288 ifac = lstelt(ilelt) 335 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-fuel.f90 | 163 ifac = lstelt(ilelt) 166 itypfb(ifac) = ientre 172 izfppp(ifac) = izone 268 ifac = lstelt(ilelt) 271 itypfb(ifac) = ientre 277 izfppp(ifac) = izone 376 ifac = lstelt(ilelt) 390 izfppp(ifac) = izone 403 ifac = lstelt(ilelt) 428 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-auto_inlet_profile.f90 | 231 do ifac = 1, nfabor 242 ifac = lstelt(ilelt) 243 iel = ifabor(ifac) 247 rcodcl(ifac,iu,1) = - fmprsc * surfbo(1,ifac) / surfbn(ifac) 248 rcodcl(ifac,iv,1) = - fmprsc * surfbo(2,ifac) / surfbn(ifac) 249 rcodcl(ifac,iw,1) = - fmprsc * surfbo(3,ifac) / surfbn(ifac) 315 iel = ifabor(ifac) 338 iel = ifabor(ifac) 344 rcodcl(ifac,iu,1) = - fmul * vnrm * surfbo(1,ifac) / surfbn(ifac) 345 rcodcl(ifac,iv,1) = - fmul * vnrm * surfbo(2,ifac) / surfbn(ifac) [all …]
|
H A D | cs_user_boundary_conditions-atmospheric.f90 | 183 ifac = lstelt(ilelt) 186 izfppp(ifac) = izone 201 iautom(ifac) = 1 219 ifac = lstelt(ilelt) 222 izfppp(ifac) = izone 249 ifac = lstelt(ilelt) 252 izfppp(ifac) = izone 261 zent=cdgfbo(3,ifac) 320 ifac = lstelt(ilelt) 323 izfppp(ifac) = izone [all …]
|
H A D | cs_user_boundary_conditions-advanced.f90 | 169 ifac = lstelt(ilelt) 171 itypfb(ifac) = iparoi 173 icodcl(ifac,iu ) = 1 177 icodcl(ifac,iv ) = 1 181 icodcl(ifac,iw ) = 1 205 ifac = lstelt(ilelt) 209 itypfb(ifac) = iindef 233 ifac = lstelt(ilelt) 241 itypfb(ifac) = 89 272 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-gas_ebu.f90 | 156 ifac = lstelt(ilelt) 159 itypfb(ifac) = ientre 165 izfppp(ifac) = izone 259 ifac = lstelt(ilelt) 268 izfppp(ifac) = izone 315 ifac = lstelt(ilelt) 324 izfppp(ifac) = izone 337 ifac = lstelt(ilelt) 346 izfppp(ifac) = izone 360 ifac = lstelt(ilelt) [all …]
|
H A D | cs_user_boundary_conditions-gas_libby_williams.f90 | 157 ifac = lstelt(ilelt) 160 itypfb(ifac) = ientre 166 izfppp(ifac) = izone 259 ifac = lstelt(ilelt) 268 izfppp(ifac) = izone 315 ifac = lstelt(ilelt) 324 izfppp(ifac) = izone 337 ifac = lstelt(ilelt) 346 izfppp(ifac) = izone 360 ifac = lstelt(ilelt) [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/cogz/ |
H A D | d3ptcl.f90 | 215 izone = izfppp(ifac) 217 if (itypfb(ifac).eq.ientre.or.itypfb(ifac).eq.i_convective_inlet) then 311 izone = izfppp(ifac) 313 ( rcodcl(ifac,iu,1)*surfbo(1,ifac) + & 314 rcodcl(ifac,iv,1)*surfbo(2,ifac) + & 315 rcodcl(ifac,iw,1)*surfbo(3,ifac) ) 331 izone = izfppp(ifac) 338 rcodcl(ifac,iu,1) = rcodcl(ifac,iu,1)*qisqc 339 rcodcl(ifac,iv,1) = rcodcl(ifac,iv,1)*qisqc 340 rcodcl(ifac,iw,1) = rcodcl(ifac,iw,1)*qisqc [all …]
|