编写fortran程序计算多个站点数据距平

好的，我可以为您编写一个简单的Fortran程序来计算多个站点数据距平。以下是一个示例程序，您可以根据自己的数据和需要进行修改。

PROGRAM calculate_anomalies
  IMPLICIT NONE
  INTEGER :: i, j, n
  REAL :: sum, mean, diff

  ! 定义站点数据
  REAL, DIMENSION(10,12) :: data
  DATA data / 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0,
               2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0,
               3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0,
               4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0,
               5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0,
               6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0,
               7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0,
               8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0, 19.0,
               9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0, 19.0, 20.0,
               10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0, 19.0, 20.0, 21.0 /
  
  ! 计算每个站点的距平
  DO i = 1, 10
     sum = 0.0
     DO j = 1, 12
         sum = sum + data(i,j)
     END DO
     mean = sum / 12.0
     DO j = 1, 12
         diff = data(i,j) - mean
         WRITE(*,*) "站点", i, "的第", j, "个月距平为", diff
     END DO
  END DO

END PROGRAM calculate_anomalies

在这个示例程序中，我们假设有10个站点的数据，每个站点有12个月的观测值。程序首先定义了这些站点数据的二维数组。然后，程序使用两个嵌套的循环计算每个站点的平均值，并计算每个月的距平。最后，程序将每个站点每个月的距平输出到屏幕上。

您可以根据实际情况修改数据部分的值和维度。希望这个示例程序能够帮助您。