- 积分
- 3187
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-2-16
- 最后登录
- 1970-1-1
|
发表于 2016-6-2 21:30:33
|
显示全部楼层
不知道你修改了里面的程序没有,直接转里面的Example时,它的结果一般都被输出到了屏幕上
! 6. **** OUTPUT THE RESULTS TO SCREEN ****
!
! User should read the user guide or the source code of the routine
! CRTM_RTSolution_Inspect in the file CRTM_RTSolution_Define.f90 to
! select the needed variables for outputs. These variables are contained
! in the structure RTSolution.
DO m = 1, N_PROFILES
WRITE( *,'(//7x,"Profile ",i0," output for ",a )') m, SENSOR_ID
DO l = 1, n_Channels
WRITE( *, '(/5x,"Channel ",i0," results")') RTSolution(l,m)%Sensor_Channel
CALL CRTM_RTSolution_Inspect(RTSolution(l,m))
END DO
END DO
你说的生成bin文件那部分是下面的程序在做的
! 8. **** COMPARE RTSolution RESULTS TO SAVED VALUES ****
!
! Step 8 is not part of the example to show how to use CRTM.
! It is to check the user results against the results in the CRTM package.
!
WRITE( *, '( /5x, "Comparing calculated results with saved ones..." )' )
! 8a. Create the output file if it does not exist
! -----------------------------------------------
! ...Generate a filename
rts_File = RESULTS_PATH//SENSOR_ID//'.RTSolution.bin'
! ...Check if the file exists
IF ( .NOT. File_Exists(rts_File) ) THEN
Message = 'RTSolution save file does not exist. Creating...'
CALL Display_Message( PROGRAM_NAME, Message, INFORMATION )
! ...File not found, so write RTSolution structure to file
Error_Status = CRTM_RTSolution_WriteFile( rts_File, RTSolution, Quiet=.TRUE. )
IF ( Error_Status /= SUCCESS ) THEN
Message = 'Error creating RTSolution save file'
CALL Display_Message( PROGRAM_NAME, Message, FAILURE )
STOP
END IF
这部分是另一个工作,没有做过。
一般情况下,要模拟亮温,辐射什么的是不会做这部分工作的,直接上面6.output the results 就行了。
修改了Load_Atm_Data文件,好像要先make clean一下,再make才生效,具体原因我不太清楚。Example5_ClearSky 里面就是没有上面说的8....那部分的工作,所以不会输出新的bin文件。你在test所在主目录make test后,是把所有的Example都编译了一遍。
一般,你只要进入你需要的目录中进行编译运行就行,make 不用加什么的。
我现在是用的再分析数据放到里面在模拟亮温,根据再分析资料进行了调节,不过出来的结果有些问题。 |
|