| 查看: 333 | 回复: 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  |
回复此楼» 猜你喜欢
国自然评审意见
已经有8人回复
-
国自然面上复盘~欢迎讨论
已经有14人回复
-
系统查不到
已经有11人回复
-
有多少人是今天查系统知道结果的？
已经有18人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有12人回复
-
有没有仍没收到信息的
已经有3人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有8人回复
-
基金不中，共勉
已经有11人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有9人回复
-
2026年叶企孙基金
已经有6人回复
投票:
10