fluid_diff.f90

来自「visual fortran 源码」· F90 代码 · 共 19 行

!-----------------系数计算函数--------------------------
subroutine diflow()
use varible
acof=diff
!-------------------------------------------------------
if(flow==0)then
return 
end if
!-------------------------------------------------------
temp=diff-abs(flow)*0.1
acof=0
if(temp<=0)then
return
end if
temp=temp/diff
acof=diff*temp**5
return
end subroutine diflow