STATUS = nf90_open( NCFileName, nf90_nowrite, NCID)
if (STATUS /= nf90_noerr) print *,NF90_STRERROR(STATUS)
status = nf90_inq_varid(ncid, 'z', varid)
print *,'z_varid', varid
allocate(z(nLons, nLats))
status = nf90_get_var(ncid, varid, z)
if(status /= nf90_NoErr) print *,NF90_STRERROR(STATUS)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |