面试题：Fortran在环境科学模拟中数组操作的应用

Question

在环境科学模拟中，常常需要处理大量的数组数据，例如模拟区域内不同位置的污染物浓度。假设你有两个相同维度的二维数组，分别存储不同时间点某区域的温度数据。请用Fortran编写一段代码，计算这两个时间点对应位置温度的差值，并将结果存储在一个新的二维数组中。

Answer 1

program temperature_difference
    implicit none
    integer, parameter :: rows = 10, cols = 10 ! 假设数组维度为10x10
    real :: temperature1(rows, cols)
    real :: temperature2(rows, cols)
    real :: difference(rows, cols)
    integer :: i, j

    ! 初始化数据，这里简单赋值，实际应用中从文件或其他途径获取
    do i = 1, rows
        do j = 1, cols
            temperature1(i, j) = i + j
            temperature2(i, j) = 2 * (i + j)
        end do
    end do

    ! 计算温度差值
    do i = 1, rows
        do j = 1, cols
            difference(i, j) = temperature2(i, j) - temperature1(i, j)
        end do
    end do

    ! 输出结果
    do i = 1, rows
        do j = 1, cols
            write(*,*) '位置(', i, ',', j, ') 的温度差值:', difference(i, j)
        end do
    end do
end program temperature_difference