- 积分
 - 11855
 
	- 贡献
 -  
 
	- 精华
 
	- 在线时间
 -  小时
 
	- 注册时间
 - 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) 
 
 
最后两行,总是得不得我需要的结果,要么就是报错 |   
 
 
 
 |