如何输出wrf程序里加的write？技穷了。求救！

green_tea789 · 发表于 2013-12-2 16:36:21

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 green_tea789 于 2013-12-12 23:42 编辑

那位大侠在wrf程序里加了东西然后要打印诊断？
我把debug_level改成了50，还是找不到加的write？

green_tea789 · 发表于 2013-12-2 22:05:18

本帖最后由 green_tea789 于 2013-12-2 22:11 编辑

呵呵，解决了。
我是把namelist.input debug_level设成455，随便的一个值。
然后在要打印的程序里加：
      CALL get_wrf_debug_level(debug_level_yu)
      if (debug_level_yu.eq.455) then
      WRITE( message , * ) 'fro_yu test on file, timestep = ', itimestep
      CALL wrf_message ( message )
      print *,'fro_yu test on screen'
      endif

之前要声明自定义变量
integer debug_level_yu

然后在rsl.out.0000里就有了
fro_yu test on file, timestep =          2
fro_yu test on screen

green_tea789 · 发表于 2013-12-12 23:42:12

不知道怎么又行不通了！
我用了3种test都没在rsl.out里找到fro_yu.技穷了。

1）
      CALL get_wrf_debug_level(debug_level_yu)
      if (debug_level_yu.eq.455) then
      WRITE( message , * ) 'fro_yu test1'
      CALL wrf_message ( message )
      print *,'fro_yu test1 on screen'
      endif

2）
      WRITE ( message ,*) "fro_yu test2"
      CALL wrf_message ( message )
3）
      WRITE ( message ,*) "fro_yu test3"
      CALL wrf_debug ( 455 , message )

pigzero527 · 发表于 2015-1-29 17:10:36

请问最后解决了吗？

愚遥 · 发表于 2015-12-8 10:26:01

pigzero527 发表于 2015-1-29 17:10
请问最后解决了吗？

你解决了吗

green_tea789 · 发表于 2023-5-8 10:02:54

直接print *, 输出的文件在ral.out.0000, 而不是rsl.error.0000.

		自动登录	找回密码
密码			立即注册

如何输出wrf程序里加的write？技穷了。求救！

登录后查看更多精彩内容~

浏览过的版块