- 积分
- 8630
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-9-9
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 今朝几朵白云生 于 2018-6-17 13:53 编辑
感谢浏览本帖的朋友!
我在学习转wrf3dvar的过程中,发现同化前后一些变量的值没有变化。比如,同化micaps地面资料后,T、U、V这些变量有变化,但T2却没有变化,事实上我就是将micaps中的2米温度作为同化变量。我不知道是设置的问题,还是模式本身就没有涉及到T2的内容。为了理解模式是如何处理这些变量,我读了WRFDA的code(http://www2.mmm.ucar.edu/wrf/users/wrfda/code_viewer/preprocessed_code/index.html)。由于程序很大,包含了n多个module和subroutine。还是不明白这些变量是如何参与到同化过程中的,我将主程序的代码已经附在帖子下面,关联的模块和调用的子程序的具体内容可以通过上面的链接查看,如有需要我可以上传同化过程中的诊断文件。希望做过这方面工作的朋友指点一二。再次感谢,祝大家端午节愉快!
- program da_wrfvar_main,19
- !-----------------------------------------------------------------------
- ! Purpose: Main program of WRF-Var. Responsible for starting up, reading
- ! in (and broadcasting for distributed memory) configuration data, defining
- ! and initializing the top-level domain, either from initial or restart
- ! data, setting up time-keeping, and then calling the da_solve
- ! routine assimilation. After the assimilation is completed,
- ! the model is properly shut down.
- !-----------------------------------------------------------------------
- use module_symbols_util, only : wrfu_finalize
- use da_control, only : trace_use, var4d
- use da_tracing, only : da_trace_init, da_trace_report, da_trace_entry, &
- da_trace_exit
- use da_wrf_interfaces, only : wrf_shutdown, wrf_message, disable_quilting
- use da_wrfvar_top, only : da_wrfvar_init1,da_wrfvar_init2,da_wrfvar_run, &
- da_wrfvar_finalize
- #ifdef VAR4D
- use da_4dvar, only : clean_4dvar, da_finalize_model
- #endif
- implicit none
- ! Split initialisation into 2 parts so we can start and stop trace here
- call disable_quilting
- call da_wrfvar_init1
- if (trace_use) call da_trace_init
- if (trace_use) call da_trace_entry("da_wrfvar_main")
- call da_wrfvar_init2
- call da_wrfvar_run
- call da_wrfvar_finalize
- #ifdef VAR4D
- if (var4d) then
- call clean_4dvar
- call da_finalize_model
- end if
- #endif
- call wrf_message("*** WRF-Var completed successfully ***")
- if (trace_use) call da_trace_exit("da_wrfvar_main")
- if (trace_use) call da_trace_report
- call wrfu_finalize
- call wrf_shutdown
- end program da_wrfvar_main
复制代码
|
|