24小时热门版块排行榜    

查看: 511  |  回复: 2

babylu

新虫 (初入文坛)

[求助] 多个子程序汇编中在一个子程序中引入另一个子程序计算出的数值 已有1人参与

一个作物模型模拟系统,有多个子程序,为**.for文件,是fortran语言,我想在一个子程序中用到另一个子程序计算出的数值,可是总不成功,请大家帮忙看看是哪里出了问题,谢谢!
文件为assim.for:
SUBROUTINE ASSIM(AMAX,EFF,LAI,KDIF,SINB,PARDIR,PARDIF,FGROS,DTEMP)
*原为 SUBROUTINE ASSIM(AMAX,EFF,LAI,KDIF,SINB,PARDIR,PARDIF,FGROS)DTEMP为白天均温,在totass.for中有算出,在totass中有call  assim.for,是不是会有冲突呢?
*增加了以下内容,是为调整光合速率的公式
      REAL  TF
TF=1.0
        IF((DTEMP.GT.29.0).and.(DTEMP.LE.40.0)) THEN
           TF=-0.928+0.144*DTEMP-0.00267*DTEMP*DTEMP
        FGROS  = FGROS*LAI*TF
      END IF
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

babylu

新虫 (初入文坛)

自己顶吧。。为什么没人来。。。
2楼2014-09-22 16:11:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

羽然控飘

新虫 (初入文坛)

【答案】应助回帖

这种东西你把传递的声明成save属性,然后调用,涉及到变化的话我的做法是将外界和里面的循环变量设置成同一个common属性就好,就可以保证传递相同的数值
3楼2014-09-26 18:23:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 babylu 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 我不理解! +19 Edward_pc 2026-08-26 27/1350 2026-09-02 12:08 by Ai19911123
[基金申请] 要骂人了,新模版改版就是要淡化问题凝练这种虚的东西,结果有个评委还在说凝练得不够 +9 瞬息宇宙 2026-08-31 16/800 2026-09-02 12:07 by Ai19911123
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 10/500 2026-09-02 11:35 by 大不刘6
[基金申请] 科研人应该花精力去思考如何解决问题,而不是去凝练问题 +4 瞬息宇宙 2026-09-01 8/400 2026-09-02 10:35 by 瞬息宇宙
[基金申请] 学科评审组评审是指会评吗? +5 瞬息宇宙 2026-08-31 5/250 2026-09-02 10:13 by 雨冰共舞
[基金申请] 面上合作单位盖章 +6 ssyjh 2026-08-27 9/450 2026-09-01 20:01 by huagongfeihu
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +13 Kittylucky 2026-08-27 14/700 2026-09-01 11:06 by feng6531
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
信息提示
请填处理意见