- 积分
- 11854
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-10-31
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-3-14 10:15:43
|
显示全部楼层
longlivehj 发表于 2014-3-13 20:58
求程序代码与错误详情!
implicit none
! Variables
include 'netcdf.inc'
integer ncid,varid,xtype,len,attnum,status,MSL_alt,value,Layers,dimid,vals,ivals
character infile*100,name*20
character (len = 10) :: dim1
infile="C:\Users\Administrator\Desktop\Console1\Console1\wetPrf_CHAM.2001.141.00.56.G01_2009.2650_nc"
open (12, file=infile, status='unknown')
status = nf_open(trim(infile),nf_nowrite,ncid)
status = nf_inq_dimid(ncid, "MSL_alt", dimid)
status = nf_inq_dim(ncid, dimid, dim1, value)
MSL_alt = value
Layers=value
name="second"
status =nf_inq_att(ncid,varid,trim(name),xtype,len)
status =nf_get_att_int(ncid,varid,trim(name),ivals)
最后两行,总是得不得我需要的结果,要么就是报错 |
|