关于自定义类型type的使用

楚香饭

不知道你用什么编译器？我这里是没法重现你的错误的。

如果可以，请给出更多的代码，至少要有 mod_xc 模块。或者经过简化以后给出，至少让我们能够正常编译。

楚香饭

我还是找不到 mod_xc 模块，还有 common_blocks.h 文件。

楚香饭

1.如果 ran 是 public 属性的，那么它的类型 ：forcing_fields 也必须是 public 属性的。这是 F95 的规定。
2.你的代码里有 public :: init_random_forcing, rand_update, ran,所以，尽管你写了 type(forcing_fields)   ,save，private :: ran, ran1 ，但 ran 仍然是 public 的。
3.请根据自己的需要，确定 ran 是 public 还是 private 的。
4.如果 ran 是 public 的，那么请加一句 public forcing_fields

楚香饭

我一早就想让你去掉 private，但是怕影响你其他的程序。比如有重名的变量，如果public可能就变成同一个变量了。

所以最好还是保持原有的 private，单独让 ran 和 forcing_fields 变成 public 比较可靠。

新年好~~