24小时热门版块排行榜    

查看: 510  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 学科评审组评审是指会评吗? +4 瞬息宇宙 2026-08-31 4/200 2026-09-01 14:58 by jiaoxg
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 基金不中,共勉 +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 生科新手
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 国自然评审意见 +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
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见