fluid_diff.f90

visual fortran 源码

!-----------------系数计算函数--------------------------
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