求助有关micaps第11类数据fortran转换

whw334455 · 发表于 2014-3-2 14:36:32

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

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

x

最近在做micaps数据转换grads的问题，想把常用的几种类型给做个转换集合。现在第一、二、四类数据转换基本实现了；现在做micaps第十一类数据转换时遇到如下问题。请各位高手解答一下。
1、micaps第11类数据格式：先放U分量，数据按先纬向后经向放。所有格点的U分量放完后之后再放V分量，也是按先纬向后经向放。
2、数据如下diamond 11 2013111408_500hPa流线分析
2013 11 14 08 0 500
0.250000 -0.250000 60.000000 150.000000 60.000000 0.000000 361 241
29.3    29.5    29.3    29.1    28.8    28.6    28.5    28.5    28.6    28.6    28.8    28.9    28.9    28.7    28.4    28.0    27.6    27.3    27.0    26.6    26.3    25.9    25.5    25.0    24.4    23.8    23.3    22.9    22.7    22.5    22.3    22.0    21.8    21.5    21.2    21.1    21.1    21.0    21.0    21.0    20.9    20.7    20.6    20.5    20.5    20.4    20.2    19.9    19.5    19.1    18.9    18.7    18.7    18.7    18.6    18.4    18.2    17.8    17.4    17.1    16.9    16.7    16.6    16.6    16.6    16.6    16.5    16.1    15.4    14.4    13.5    12.5    11.7    10.9    10.3    9.8    9.5    9.2    9.1    8.9    8.9    8.8    8.8    8.7    8.6    8.5    8.4    8.2    8.1    8.0    7.9    7.7    7.6    7.5    7.5    7.6    7.7    7.9    8.1    8.3    8.6    9.0    9.3    9.7    10.1 ...................
3、我用如下的fortran程序只能提取U风量；V风量就没有数据。请各位高手帮帮忙
program main
implicit none
integer i,j
integer,parameter :: x=361
integer,parameter :: y=241

real :: dat(x,y)
open(100,file='h:\micaps\micaps11tograds\13111408.000')
read(100,*)((dat(i,j),i=1,x),j=1,y)
close(100)

open(200,file='h:\micaps\micaps11tograds\13111408.grd',form='binary')
do j=y,1,-1  !!!!注意细网格是从北向南排列数据，而grads是从南向北排列数据。
  do i=1,x
write(200) dat(i,j)
  end do
end do

close(200)

stop
end program main

13111408.000 (1021.08 KB, 下载次数: 2)

whw334455 · 发表于 2014-3-2 19:44:50

希望有人回复

519有个呆逼 · 发表于 2014-3-17 14:10:00

你好第11类数据我不会能不能给我发下第四类数据转换的程序啊谢谢啦

whw334455 · 发表于 2014-3-17 17:45:02

第四类数据更加简单请查阅第四类数据格式说明

miracle · 发表于 2014-7-6 21:47:19

请问解决了吗

whw334455 · 发表于 2014-7-14 21:27:32

miracle 发表于 2014-7-6 21:47
请问解决了吗

解决了感谢

dangFly · 发表于 2015-10-30 14:43:45

whw334455 发表于 2014-7-14 21:27
解决了感谢

亲，解决了共享下吧谢谢了

chenhongfengye · 发表于 2016-12-27 15:21:48

楼主是怎么解决的呢？求解答啊

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

[求助] 求助有关micaps第11类数据fortran转换

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