| 查看: 309 | 回复: 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  |
回复此楼» 猜你喜欢
材料专硕283求调剂
已经有7人回复
-
一志愿北京2，材料与化工308求调剂
已经有4人回复
-
求调剂
已经有5人回复
-
一志愿9材料学硕297已过六级求调剂推荐
已经有8人回复
-
278求调剂
已经有9人回复
-
285求调剂
已经有5人回复
-
一志愿武理材料工程302调剂环化或化工
已经有20人回复
-
348求调剂
已经有3人回复
-
本科211 分数293请求调剂
已经有3人回复
-
一志愿南农090401，268，求调剂
已经有4人回复
