- 积分
- 9773
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-5-29
- 最后登录
- 1970-1-1
|
发表于 2017-6-28 17:47:17
|
显示全部楼层
DO j = jts, MIN(jde-1,jte)
DO i = its, MIN(ide-1,ite)
IF ( skip_middle_points_t ( ids , ide , jds , jde , i , j , em_width , hold_ups ) ) CYCLE
IF ( grid%tsk(i,j) .LT. 170 .or. grid%tsk(i,j) .GT. 400. ) THEN
print *,'error in the grid%tsk'
print *,'i,j=',i,j
print *,'grid%landmask=',grid%landmask(i,j)
print *,'grid%tsk, grid%sst, grid%tmn=',grid%tsk(i,j),grid%sst(i,j),grid%tmn(i,j)
if(grid%tmn(i,j).gt.170. .and. grid%tmn(i,j).lt.400.)then
grid%tsk(i,j)=grid%tmn(i,j)
else if(grid%sst(i,j).gt.170. .and. grid%sst(i,j).lt.400.)then
grid%tsk(i,j)=grid%sst(i,j)
else
CALL wrf_error_fatal ( 'grid%tsk unreasonable' )
end if
END IF
END DO
END DO
根据代码分析,应该是 grid%tmn 或 grid%sst 中的值不符合常理。 |
|