FLOW-3D客制化操作步骤

ቤተ መጻሕፍቲ ባይዱ
以下以原廠提供的一個客製造波副程式進行說明。
Step 1: 利用 Microsoft visual studio 2005 打 开Cumtom_double.sln
Step 2: 打开Source文件下 name.f 此例子采用边界条件客制化（bc.f ）
注意：建议 bc.f 做备份
Step 3: 编译客制化的子程序
c
Step 4: 重新生成可执行文件
Step 5: 前处理文件的版本类型需选择 Custom double precision
结果
do 8000 k=kprb,kprt do 8000 j=jprf,jprbk
注意：若这里没有赋予dum的数值， 那么你就必须在前处理prepin给定
c include '../comdeck/ijk.f' include '../comdeck/mijk.f' c c c Let fhtw = wave height fhtw=flhtr+wvcosc fhtz=max(fhtw-z(k-1),zero)*rdz(k) fhtz=min(fhtz,one) if(fhtz.gt.ztest) then c c f(ijk)=fhtz u(imjk)=dum1*wvcosr*exp(dum2*(zk(k)-flhtr)) u(ijk)=dum1*wvcosr*exp(dum2*(zk(k)-flhtr)) w(ijk)=dum1*wvsinc*exp(dum2*(z(k)-flhtr)) else c f(ijk)=zero u(ijk)=zero w(ijk)=zero c endif
FLOW-3D V9.4
客制化操作流程
Flow-3D 客製化概論

FLOW-3D有提供客製化功能，客製化主要還是基 於現有的程式架構，可程式化的部分可參考使用 手冊9.1.3 Subroutines Included in Distribution。 客製化基本上是利用Intel Fortran編輯副程式， Compile出一個新的執行檔。
c if(dum3.lt.ztest .or. wr.ne.6) return c
c c
phasc=dum2*xi(imax)-dum1*t wvcosc=dum3*cos(phasc) wvsinc=dum3*sin(phasc) wvcosr=dum3*cos(dum2*x(im1)-dum1*t) i=imax i=imax-1