yinkai12580 发表于 2016-11-23 14:55:11

户用子程序迭代问题

在if then 语句中嵌套个if else语句，如何把第二个if的计算结果赋给else语句？

yinkai12580 发表于 2016-11-23 14:58:47

if(eplas .GE. EPCLC) then
            if(erate>0.005) then
             XDYN=1-exp(-0.693*((eplas-EPCLC)/(eplas5-EPCLC))**1.3152)
               if (XDYN .LE.0.0) then
                   XDYN=0.0
             end if
                 if (XDYN .GE.1) then
                   XDYN=1
             end if
               xvelem(NN,M)=XDYN
               DDYN=408.2583*Z**(-0.1105)
                 gsd(NN,M)=grndat(1)*(1-xvelem(NN,M))+DDYN*xvelem(NN,M)
               grnsiz=gsd(NN,M)
             else
            
          gsd(NN,M)=gsd(NN,M)
             grnsiz=gsd(NN,M)
            end if
         end if      

yinkai12580 发表于 2016-11-23 14:59:52

最后else后面的迭代为什么会出错，该怎么改？
页: [1]
查看完整版本: 户用子程序迭代问题