Fortran 代码：计算 EU 遥相关指数及其与环流场和中国气温的相关性

由于没有提供具体的数据集，以下是 Fortran 代码的一般框架，可以根据需要进行修改和补充。

计算 EU 遥相关指数的代码：

program eu_teleconnection
  implicit none
  
  ! 声明变量
  integer :: i,j,k,n
  real :: eu(12),anom(12),eu_index(12)
  
  ! 读取数据
  ! ...

  ! 计算月平均值
  ! ...

  ! 计算年际变化
  anom = anom - sum(anom)/12.0
  do i = 1,12
    eu_index(i) = sum(eu(i:12)*anom(1:13-i))
  end do

  ! 输出时间序列
  write(*,*) 'EU teleconnection index for January:'
  do i = 1,12
    write(*,*) i, eu_index(i)
  end do

end program eu_teleconnection

计算 EU 遥相关指数与同期环流场的相关系数的代码：

program eu_correlation
  implicit none
  
  ! 声明变量
  integer :: i,j,k,n
  real :: eu(12),circulation(12),eu_index(12),correlation
  
  ! 读取数据
  ! ...

  ! 计算月平均值
  ! ...

  ! 计算年际变化
  anom = anom - sum(anom)/12.0
  do i = 1,12
    eu_index(i) = sum(eu(i:12)*anom(1:13-i))
  end do

  ! 计算相关系数
  ! ...

  write(*,*) 'Correlation between EU teleconnection index and circulation:'
  write(*,*) correlation

end program eu_correlation

计算 EU 遥相关指数与同期我国气温的相关系数的代码：

program eu_temperature_correlation
  implicit none
  
  ! 声明变量
  integer :: i,j,k,n
  real :: eu(12),temperature(12),eu_index(12),correlation
  
  ! 读取数据
  ! ...

  ! 计算月平均值
  ! ...

  ! 计算年际变化
  anom = anom - sum(anom)/12.0
  do i = 1,12
    eu_index(i) = sum(eu(i:12)*anom(1:13-i))
  end do

  ! 计算相关系数
  ! ...

  write(*,*) 'Correlation between EU teleconnection index and China temperature:'
  write(*,*) correlation

end program eu_temperature_correlation