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

UFJPR1JBTSBURU1QX09DRUFOX0ZJWEVECiAgVVNFIE9NUF9MSUIKICBJTVBMSUNJVCBOT05FCiAgSU5URUdFUiwgUEFSQU1FVEVSIDo6IE5YPTEyMDAsIE5ZPTEyMDAKICBSRUFMLCBBTExPQ0FUQUJMRSA6OiBURU1QKDosOikKICBJTlRFR0VSIDo6IEksIEoKICBSRUFMIDo6IHRfc3RhcnQsIHRfZW5kCgogIEFMTE9DQVRFKFRFTVAoTlgsIE5ZKSkKCiAgQ0FMTCBDUFVfVElNRSh0X3N0YXJ0KQoKICAhJE9NUCBQQVJBTExFTCBETyBQUklWQVRFKEksSikKICBETyBJPTEsTlgKICAgIERPIEo9MSxOWQogICAgICBURU1QKEksSikgPSAyNS4wICsgMC4wMSpSRUFMKEkpCiAgICBFTkQgRE8KICBFTkQgRE8KICAhJE9NUCBFTkQgUEFSQUxMRUwgRE8KCiAgQ0FMTCBDUFVfVElNRSh0X2VuZCkKCiAgUFJJTlQqLCAnQ2FsY3VsIHRlcm1pbmUsIFRFTVAoMTIwMCwxMjAwKT0nLCBURU1QKE5YLE5ZKQogIFBSSU5UKiwgJ1RlbXBzIENQVTonLCB0X2VuZCAtIHRfc3RhcnQsICdzZWNvbmRlcycKICBQUklOVCosICdUYWlsbGUgdGFibGVhdTonLCBOWCpOWSwgJ2VsZW1lbnRzJwoKICBERUFMTE9DQVRFKFRFTVApCkVORCBQUk9HUkFNIFRFTVBfT0NFQU5fRklYRUQ=