WRF3.8.1编译问题Can't open module file ‘module_cu_g3.mod’解决方法

crazytiy

第一次装WRF，啥也不懂，跟着教程走，好不容易到了编译却出错了，版本WRFV3.8.1翻到最开始的错误提示应该是出现个PUT的错误
Error: Size of ‘put’ argument of ‘random_seed’ intrinsic at (1) too small (12/33)
module_cu_g3.f90:3236:41:
因该是两个长度不匹配的意思，难道put是12，random_seed为33？
再往后看就出现"Can't open file 'module_cu_g3.mod"出现的错误
大概意思就是前面的错误导致module_cu_g3.f90没被编译,自然也就没有module_cu_g3.mod
直接找文件看问题，根据module_cu_g3这个名字，在WRFV3\phys下找到两个不同后缀的文件，分别为.f和.f90
对照了原始的解压文件，.f90应该是后生成的，只是改了后缀而已，这个文件可以不用管
直接记事本打开module_cu_g3.f,找到call random_seed (PUT=seed)
再往上查到seed的定义为
integer, dimension (12) :: seed
问题铁定在维度这，不过fortran已经几百年没碰了，不知道改
恰好找到个类似的问题http://forum.wrfforum.com/viewtopic.php?t=10930，里面有人回答的部分刚好是改这个的
Checking 3.8.1 vs 3.9.1.1 for "module_cu_g3.F" shows a difference that is a bug fix for your problem.
See below. Your line number may vary. The key is the "dimension(12)::seed". Replace that with the new
code.
3125c3125,3126
< integer, dimension (12) :: seed
---
> integer, allocatable :: seed(:)
> integer :: seed_size
3135a3137,3139
> call random_seed(size=seed_size) ! Get size of seed array.
> allocate(seed(1:seed_size)) ! Allocate according to returned size
>
依葫芦画瓢，把3125行，也就是 integer, dimension (12) :: seed改成
integer, allocatable :: seed(:)
integer :: seed_size
在3136行后面，加入
call random_seed(size=seed_size) ! Get size of seed array.
allocate(seed(1:seed_size)) ! Allocate according to returned size
然后再编译，瞬间出来4个exe，幸福来得太突然

Stella@88

你好，我也出现过同样的问题，不过我是用wrf-chemv3.5。我用了同样的解决方法，不过我pm2.5的结果非常不合理，不知道你是否也有过这个问题，谢谢

Marco-Messi

太感谢了！终于解决这个问题了！{:eb303:}{:eb303:}

crazytiy

Stella@88 发表于 2019-9-11 11:54
你好，我也出现过同样的问题，不过我是用wrf-chemv3.5。我用了同样的解决方法，不过我pm2.5的结果非常不合 ...

chem没有装，试着转了两次数据，没什么问题，你这个应该是数据或参数设置方面的问题吧，逐步检查下

Zechberd

终于解决了感谢楼主！！

sgfzl

感谢感谢，解决了

打破砂锅纹到底

楼主完美地解决了我的问题。

lixingyuhihi

楼主太厉害了，我也遇到了这个问题，感谢！

Boluoboluoga

感谢楼主造福人间!完美解决!

lxj0492

感谢恩人！！！