get_sla_data.f90

SUBROUTINE GET_SLA_DATA(SLA)

IMPLICIT NONE

INTEGER :: I
REAL,INTENT(OUT) :: SLA(13)

OPEN(UNIT=1,FILE='sla.in',STATUS='OLD')

READ(1,*)
READ(1,*) !READ TWO HEADER LINES

DO I=1,13
  READ(1,'(F10.2)') SLA(I)
END DO

CLOSE(1)

END SUBROUTINE GET_SLA_DATA