PROGRAM TEMP_OCEAN_FIXED
  USE OMP_LIB
  IMPLICIT NONE
  INTEGER, PARAMETER :: NX=1200, NY=1200
  REAL, ALLOCATABLE :: TEMP(:,:)
  INTEGER :: I, J
  REAL :: t_start, t_end

  ALLOCATE(TEMP(NX, NY))

  CALL CPU_TIME(t_start)

  !$OMP PARALLEL DO PRIVATE(I,J)
  DO I=1,NX
    DO J=1,NY
      TEMP(I,J) = 25.0 + 0.01*REAL(I)
    END DO
  END DO
  !$OMP END PARALLEL DO

  CALL CPU_TIME(t_end)

  PRINT*, 'Calcul termine, TEMP(1200,1200)=', TEMP(NX,NY)
  PRINT*, 'Temps CPU:', t_end - t_start, 'secondes'
  PRINT*, 'Taille tableau:', NX*NY, 'elements'

  DEALLOCATE(TEMP)
END PROGRAM TEMP_OCEAN_FIXED