| 查看: 302 | 回复: 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  |
回复此楼» 猜你喜欢
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有9人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有11人回复
-
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了
已经有7人回复
-
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有8人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有10人回复
-
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）
已经有9人回复
-
有院领导为了换新车，用横向课题经费买了俩车
已经有10人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有6人回复