Home
last modified time | relevance | path

Searched refs:epsilon_ls (Results 1 – 22 of 22) sorted by relevance

/phasta/phSolver/compressible/
H A Dgetthm.f122 if (sclr(i) .lt. - epsilon_ls)then
124 elseif (abs(sclr(i)) .le. epsilon_ls)then
125 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
126 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
127 elseif (sclr(i) .gt. epsilon_ls) then
177 if (sclr(i) .lt. - epsilon_ls)then
179 elseif (abs(sclr(i)) .le. epsilon_ls)then
180 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
181 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
182 elseif (sclr(i) .gt. epsilon_ls) then
[all …]
H A De3b.f508 if (sclr_ls(ii) .lt. - epsilon_ls)then
512 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
514 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls
515 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
517 elseif (sclr_ls(ii) .gt. epsilon_ls) then
H A De3ivar.f422 if (abs (sclr(i)) .le. epsilon_ls) then
423 gradh(i,1) = 0.5/epsilon_ls * (1
424 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,1)
425 gradh(i,2) = 0.5/epsilon_ls * (1
426 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,2)
427 gradh(i,3) = 0.5/epsilon_ls * (1
428 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,3)
H A De3source.f446 if (sclr_ls(ii) .lt. - epsilon_ls)then
450 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
453 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls
454 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
457 elseif (sclr_ls(ii) .gt. epsilon_ls) then
H A Dgetdiff.f70 test_it = 0.5*(one + Sclr/epsilon_ls +
71 & (sin(pi*Sclr/epsilon_ls))/pi )
/phasta/phSolver/incompressible/
H A Dgetdiff.f15 real*8 epsilon_ls, kay, epsilon
54 if (sclr(i) .lt. - epsilon_ls)then
56 elseif (abs(sclr(i)) .le. epsilon_ls)then
57 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
58 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
59 elseif (sclr(i) .gt. epsilon_ls) then
H A De3ivar.f218 if (abs (sclr(i)) .le. epsilon_ls) then
219 gradh(i,1) = 0.5/epsilon_ls * (1.0
220 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,1)
221 gradh(i,2) = 0.5/epsilon_ls * (1.0
222 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,2)
223 gradh(i,3) = 0.5/epsilon_ls * (1.0
224 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,3)
H A De3source.f534 if (sclr_ls(ii) .gt. epsilon_ls)then
538 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
540 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
541 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
543 elseif (sclr_ls(ii) .lt. epsilon_ls) then
/phasta/phSolver/common/
H A Dinput.f139 write(iecho,1900)iLSet, epsilon_ls
228 write (23,*) epsilon_ls, epsilon_lsd, dtlset
H A Dsolvecon.f254 epsilon_tmp = epsilon_ls
H A Dcommon_c.h324 double epsilon_ls; member
H A Dcommon.h168 common /levlset/ epsilon_ls, epsilon_lsd, dtlset, iLSet,
H A Dinput_fform.cc262 levlset.epsilon_ls = inp.GetValue("Number of Elements Across Interface"); in input_fform()
H A Dinput.config377 Number of Elements Across Interface: 3 #epsilon_ls
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit510 if (sclr_ls(ii) .gt. epsilon_ls)then
514 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
516 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
517 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
519 elseif (sclr_ls(ii) .lt. epsilon_ls) then
H A De3source.fRHSonly496 if (sclr_ls(ii) .gt. epsilon_ls)then
500 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
502 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
503 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
505 elseif (sclr_ls(ii) .lt. epsilon_ls) then
/phasta/AcuStat/include/
H A DcommonAcuStat_c.h235 double epsilon_ls; member
H A DcommonAcuStat.h120 common /levlset/ epsilon_ls, epsilon_lsd, dtlset, iLSet,
/phasta/M2N/include/
H A DcommonM2N_c.h235 double epsilon_ls; member
H A DcommonM2N.h120 common /levlset/ epsilon_ls, epsilon_lsd, dtlset, iLSet,
/phasta/M2NFixBnd/include/
H A DcommonM2NFixBnd_c.h235 double epsilon_ls; member
H A DcommonM2NFixBnd.h120 common /levlset/ epsilon_ls, epsilon_lsd, dtlset, iLSet,