Fortran 读取 EU 遥相关指数和中国气温数据 nc 文件 (hgt.mon.mean.nc)

使用 Fortran 中的 netCDF 库读取 EU 遥相关指数和中国气温数据 nc 文件 (hgt.mon.mean.nc) 的方法如下：

首先需要安装 netCDF 库，可以参考网上教程进行安装。然后在 Fortran 程序中引用 netCDF 库：

program read_data
  use netcdf
  implicit none

  integer :: ncid, varid, ierr, dimid
  integer :: i, j, k
  integer :: start(3), count(3)
  real :: eu_data(12, 73, 144), cn_data(12, 73, 144)

  ! 打开 EU 遥相关指数文件
  ierr = nf_open('eu_data.nc', nf_nowrite, ncid)
  ! 获取变量 ID
  ierr = nf_inq_varid(ncid, 'hgt', varid)
  ! 获取维度 ID 和大小
  ierr = nf_inq_dimid(ncid, 'time', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(1))
  ierr = nf_inq_dimid(ncid, 'lat', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(2))
  ierr = nf_inq_dimid(ncid, 'lon', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(3))
  ! 读取数据
  do i = 1, count(1)
    start(1) = i
    count(1) = 1
    start(2) = 1
    count(2) = count(2)
    start(3) = 1
    count(3) = count(3)
    ierr = nf_get_vara_float(ncid, varid, start, count, eu_data(i,:,:))
  end do
  ! 关闭文件
  ierr = nf_close(ncid)

  ! 打开气温数据文件
  ierr = nf_open('hgt.mon.mean.nc', nf_nowrite, ncid)
  ! 获取变量 ID
  ierr = nf_inq_varid(ncid, 'hgt', varid)
  ! 获取维度 ID 和大小
  ierr = nf_inq_dimid(ncid, 'time', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(1))
  ierr = nf_inq_dimid(ncid, 'lat', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(2))
  ierr = nf_inq_dimid(ncid, 'lon', dimid)
  ierr = nf_inq_dimlen(ncid, dimid, count(3))
  ! 读取数据
  do i = 1, count(1)
    start(1) = i
    count(1) = 1
    start(2) = 1
    count(2) = count(2)
    start(3) = 1
    count(3) = count(3)
    ierr = nf_get_vara_float(ncid, varid, start, count, cn_data(i,:,:))
  end do
  ! 关闭文件
  ierr = nf_close(ncid)

  ! 处理数据
  ! ...

end program read_data

上面的代码中，首先使用nf_open函数打开 netCDF 文件，然后使用nf_inq_varid函数获取变量 ID，使用nf_inq_dimid和nf_inq_dimlen函数获取维度 ID 和大小。最后使用nf_get_vara_float函数读取数据。

读取数据后，可以进行相应的处理。这里只是简单地读取数据并没有进行处理，需要根据具体需求进行相应的处理。