爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 3101|回复: 1

[求助] WRF 二进制格式

[复制链接]

新浪微博达人勋

发表于 2022-6-27 09:40:11 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
我现在用ArcGIS制作一份灌溉面积比例数据,是ASCII码,现在想用脚本把ASCII转换为WRF模型能读取的二进制格式,就是地理静态数据的格式,现在有份用Gfortran语言转换土地利用类型的脚本,但用于灌溉面积比例数据转换出现错误,还请大佬指点,跪谢!附上用Gfortran语言有份土地利用类型转换的脚本,如果用于灌溉面积比例,是怎么改这个脚本呢?
脚本:
program geogrid_clc
implicit none
integer :: i,j
integer :: isigned, endian, wordsize
integer :: nx, ny, nz
real :: scalefactor
real*8 :: xllcorner, yllcorner, cellsize, missvalue
character :: head12
real, allocatable :: rarray(:,:), iarray(:,:)
isigned = 1
endian = 0
wordsize = 2
scalefactor = 1.0
nz = 1
! read in the ascii new landuse data
open (10, file = 'irrigation.txt')
!read in the header
read(10,*) head12, nx
read(10,*) head12, ny
read(10,*) head12, xllcorner
read(10,*) head12, yllcorner
read(10,*) head12, cellsize
read(10,*) head12, missvalue
allocate(rarray(nx,ny))
allocate(iarray(nx,ny))
!read in the data
do j = 1,ny
read(10,*) iarray(:,j)
end do
! reverse the data so that it begins at the lower-left corner
do j = 1,ny
rarray(:,j) = iarray(:,ny-(j-1))
enddo
!set the missing values
do j = 1, ny
do i = 1, nx
if ( rarray(i,j) < 0 ) then
rarray(i,j) = -99 ! set negative terrain to be zero since those are near coastal or river banks
end if
end do
end do
call write_geogrid(rarray, nx, ny, nz, isigned, endian, scalefactor, wordsize)
end program

这是灌溉面积百分比的index:
type=continuous
projection=regular_ll
dx=0.0833333
dy=0.0833333
known_x=1.0
known_y=1.0
known_lat=-89.95833
known_lon=-179.95833
wordsize=1
tile_x=4320
tile_y=2160
tile_z = 1
scale_factor=0.5
units="percent"
description="irrigated land percentage"
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2022-6-28 08:32:47 | 显示全部楼层
首先 你这个不是全球的数据从index可以判断
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表