请检查 eps 的定义，我是说他的类型，是否是数组，而不是他的值是 1.e-8

如有必要，可上传 Mod_WQM_NC.f 文件（压缩后上传）

时光深处 发表于 2023-5-11 19:55
从定义上看是没什么问题的，NUTRINH定义的话是实测值，肯定不可能小于0，eps的定义是1.e-8，这样看没什么问 ...

C:\Users\谷芳芳\Pictures\Screenshots\屏幕截图 2023-05-13 172112.png

在循环内的if语句前面输出看看
write(*,*)NUTRINH(j,i,k)

有必要的话，把定义部分代码给出来。甚至全屏截图

从定义上看是没什么问题的，NUTRINH定义的话是实测值，肯定不可能小于0，eps的定义是1.e-8，这样看没什么问题呀

请注意 NUTRINH 和 eps 的定义，.le. 运算符两边的数组维度必须一致。
= 运算符左边的维度不能小于右边的维度。