- 积分
- 3970
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-6-19
- 最后登录
- 1970-1-1
|
发表于 2023-7-18 13:04:14
|
显示全部楼层
去WPS的编译log文件里查找错误。我这里有两个步骤:
1. 需要在WRF/arch/Config.pl中将"I_really_want_to_output_grib2_from_WRF"后面的FALSE设置为TRUE后重新编译WRF;
2. WPS/ungrib/src/ngl/g2/intmath.f中的几个函数报错,将function ilog2_*(这里的*为1,2,8)三个function中的第二个if语句中的i-1这里的1重新定义为与i一致类型的变量并赋值为1可以解决,如:
原始程序:
function ilog2_8(i_in)
implicit none
integer(kind=8),value:: i_in
integer(kind=8) :: ilog2_8,i
.........
if( iand(i,i-1)/=0) then
修改内容:
integer(kind=8) :: ilog2_8,i,ii
ii=1
........
if( iand(i,i-ii)/=0) then |
|