######################################################
# This script is used R to read netcdf data
# and export to asc
# Author: Mcr
#######################################################
#nc多层数据没能在GIS中打开,将nc转存为多个asc后可以使用。
rm(list=ls())
library(RNetCDF)
library(raster)
library(ncdf4)
library(lattice)
setwd("...") #设定nc数据所在位置路径
my.data
print.nc(my.data) #查看内部属性
#lon
#n.longitudes
lat
#n.latitudes
#my.depth
#n.depth
#n.depth
r
#建立一个空栅格图,7560列,4320行,经度73-136,纬度18-54
##=================读取输出第1层=====================