nfst=nf_create('out.nc',nf_clobber,ncid) !---NF_DEF_DIM (NCID, NAME, LEN, dimid) --定义维数---nfst=nf_def_dim(ncid,'lon',30,dimidlon) nfst=nf_def_dim(ncid,'lat',20,dimidlat) nfst=nf_def_dim(ncid,'time',10,dimidtime) nfst=nf_def_dim(ncid,'len',19,dimidle...
打开nc文件 status = nf_open(filename, nf_nowrite, ncid) if (status /= nf_noerr) then print *, '无法打开文件' stop endif ! 获取变量ID status = nf_inq_varid(ncid, 'variable_name', varid) ! 替换'variable_name'为你的变量名 if (status /= nf_noerr) then print *, '无法获取...
ierr=nf_open(trim(cass_cal),nf_nowrite,ncid1) !open nc file,get ID number (ncid)ierr=nf_...
programdynamic_array_allocationusenetcdfimplicit noneinteger::ncid,varid,ndims,dimids(3),dimlen(3)real,allocatable::data(:,:,:)! 打开Netcdf文件callnf_open("example.nc",NF_NOWRITE,ncid)! 获取变量IDcallnf_inq_varid(ncid,"temperature",varid)! 获取维度信息callnf_inq_varndims(ncid,...
ierr=nf_open(trim(cass_cal),nf_nowrite,ncid1) !open nc file,get ID number (ncid)ierr=nf_...
stat=nf90_open(ncfile, NF90_NOWRITE, fid) stat=nf90_inq_varid(fid, 'sic', varid) stat=nf90_get_var(fid, varid, ice, start=(/180,10,start_num/), count=(/1,1,recnum/)) stat=nf90_inq_varid(fid, 'latitude', varid) ...
status=nf90_open(trim(filename),nf90_nowrite,ncid) write(*,*) status !检查文件是否打开,status返回值=0时,证明文件打开正确 !get the id of variables status=nf90_inq_varid(ncid,'lon',varid1) status=nf90_inq_varid(ncid,'lat',varid2) ...
利用fortran创建、读取、写netCDF(.nc)的教程 Introduction to using the netCDF data format with Fortran 90 Michael Thorne (michael.thorne@utah.edu)Last Updated: July 20, 2010 I. Introduction NetCDF – Net work C ommon D ata F orm NetCDF is an array based data structure for storing ...
利用fortran创建、读取、写netCDF(.nc)的教程 Introduction to using the netCDF data format with Fortran 90 Michael Thorne (michael.thorne@utah.edu)Last Updated: July 20, 2010 I. Introduction NetCDF – Net work C ommon D ata F orm NetCDF is an array based data structure for storing ...
Open netCDF file !::: CALL check(nf90_open(infile, nf90_nowrite, ncid)) !Get the values of the coordinates and put them in xpos ypos !::: CALL check(nf90_inquire_variable(ncid,1,vname,xtype,ndims,dimids)) CALL check(nf90_inq_varid(ncid,vname,varid)) CALL check(nf90_get...