24小时热门版块排行榜

返回列表

ya634984094

铜虫 (小有名气)

应助: 39 (小学生)
金币: 74.7
散金: 4
红花: 3
帖子: 259
在线: 38.5小时
虫号: 1695458
注册: 2012-03-16
专业: 流体力学

[求助] 求解释个phoenics里的ground一小段程序

IF((NPATCH(1:4).EQ.'WDC3').AND.(INDVAR.EQ.C3)) THEN
      L0VAL=L0F(VAL)
      L0C3=L0F(C3)
      L0C3O=L0F(OLD(C3))
      LFDZGN=L0F(DZGNZ)+IZ
      DO IX=1,NX
         IADD=NY*(IX-1)
         DO IY=1,NY
            I=IY+IADD
            LFVAL=L0VAL+I
            LFC3O=L0C3O+I
            F(LFVAL)=F(LFC3O)+F(LFC3O)*RG(4)*DT*(1-RG(3))
   &                /(F(LFDZGN)*(1-RG(4)*DT/F(LFDZGN)))
         ENDDO
      ENDDO
   ENDIF

回复此楼

» 猜你喜欢

1楼 2014-01-14 00:21:56

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 ya634984094 的主题更新

返回列表