fortran程序修改

Venus_King · 发表于 2014-12-19 16:17:06

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

各位高手大家好！
我最近有个研究想修改一下SWAT水文模型源代码里面的一个公式。我本人不是很会fortran，但是没办法，硬着头皮照猫画虎把公式修改了一下，结果出现了很多错误。我修改的公式以及错误提示如下：
一部分是：
if (shallst(j) > gwqmn(j)) then
   gw_qdeep(j)=EXP((1/beta_bf(j))*ALOG(alpha_bf(j)*
   &                                        (shallst(j)-gwqmn(j))))

!    else
!    gw_qdeep(j) = 0.
!    end if
另一部分：
if (shallst(j) > gwqmn(j)) then
      gw_q(j)=EXP((1/beta_bf(j))*ALOG(alpha_bf(j)*
   &                                     (shallst(j)-gwqmn(j))))
   else
      gw_q(j) = 0.
   end if
错误如图：

登录/注册后可看大图

夏朗的芒果 · 发表于 2014-12-20 08:28:02

楼主，如果你要改模式，而且面对的都是FORTRAN代码的话，劝你还是花一个上午的时间，看下FORTRAN的控制语句吧。
毕竟磨刀不误砍柴工。你在论坛发帖，等回复很慢的。

言深深 · 发表于 2014-12-20 08:43:23

先佩服一下···要么按照楼上说的自己学，要么找一个你身边的懂程序的人一起搞。
这东西不是那么简单的···

suncy · 发表于 2014-12-21 16:31:07

给人评分，金钱会少，好伤心。

Venus_King · 发表于 2014-12-22 09:34:36

夏朗的芒果发表于 2014-12-20 08:28
楼主，如果你要改模式，而且面对的都是FORTRAN代码的话，劝你还是花一个上午的时间，看下FORTRAN的控制语 ...

嗯嗯，谢谢，已解决。

Venus_King · 发表于 2014-12-22 09:35:00

言深深发表于 2014-12-20 08:43
先佩服一下···要么按照楼上说的自己学，要么找一个你身边的懂程序的人一起搞。
这东西不 ...

谢谢您，已解决。

Venus_King · 发表于 2014-12-22 09:35:23

suncy 发表于 2014-12-21 16:31
给人评分，金钱会少，好伤心。

Venus_King · 发表于 2014-12-22 09:35:42

言深深发表于 2014-12-20 08:43
先佩服一下···要么按照楼上说的自己学，要么找一个你身边的懂程序的人一起搞。
这东西不 ...

谢谢您，已解决。

niyan · 发表于 2014-12-27 12:55:43

楼主加油，刚开始都很难的

大嘴哥哥 · 发表于 2014-12-28 15:06:45

楼主，想请教下你！改这个swat模型的程序是在哪个界面进行的？而且源程序是怎么来的啊？

		自动登录	找回密码
密码			立即注册

[源代码] fortran程序修改

登录后查看更多精彩内容~

相关帖子