速度梯度的问题

daiwei

我用CFX计算进水口的旋涡,需要结果输出涡量,这要用到CFX里面的FORTRAN程序GRADV,不知道为什么程序老是通不过.提示为error in subroutine GRADV for stack geom array name arclen pointer value =   0,有人遇到过这种问题吗？什么原因造成的？谢谢拉。

windhair

        CALL GRADS('USRBF ', 'SCAL  ', ISCDF, IPHASE,
     +              SCAL(1, IPHASE, ISCF), WORK(JGRADT), XP,
     +              YP, ZP, VOL, AREA, IBLK, IPVERT, IPNODN,
     +              IPFACN, IPNODF, IPNODB, IPFACB, WORK,
     +              IWORK, CWORK)
        CALL DELWRK('USRBF ', 'WORK  ', 'GRADT ')
Here comes a example.  

daiwei

thank you very much