fortran读nc

Fortran可以通过使用NetCDF库来读取nc文件。以下是一个简单的例子：

program read_nc
  use netcdf
  implicit none
  
  integer :: ncid ! file id
  integer :: varid ! variable id
  integer :: ierr ! error code

  integer, parameter :: nf90_noerr = 0

  real, dimension(:,:), allocatable :: data ! variable to store data

  ! open netcdf file
  ierr = nf90_open("example.nc", nf90_nowrite, ncid)
  if (ierr /= nf90_noerr) stop "Error opening file"

  ! get variable id
  ierr = nf90_inq_varid(ncid, "var_name", varid)
  if (ierr /= nf90_noerr) stop "Error getting variable id"

  ! get variable data
  ierr = nf90_get_var(ncid, varid, data)
  if (ierr /= nf90_noerr) stop "Error getting variable data"

  ! do something with data

  ! close netcdf file
  ierr = nf90_close(ncid)
  if (ierr /= nf90_noerr) stop "Error closing file"

end program read_nc

在这个例子中，我们使用了NetCDF库的几个函数：

- `nf90_open`：打开一个NetCDF文件，并返回文件ID。
- `nf90_inq_varid`：获取一个变量的ID。
- `nf90_get_var`：获取一个变量的数据。
- `nf90_close`：关闭NetCDF文件。

需要注意的是，这里使用了NetCDF Fortran90接口。如果你使用的是Fortran77，则需要使用NetCDF Fortran77接口。