| 查看: 335 | 回复: 0 | |||
ya634984094铜虫 (小有名气)
|
[求助]
求解释个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  |
回复此楼» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有8人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
找导师
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有7人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有9人回复
投票: