SUBROUTINE read_your_data(spd,tair,qs,q,sst)

! PURPOSE: Reads in example input file (your_data.dat)

       
IMPLICIT NONE 
     
INTEGER :: i,junk
INTEGER, PARAMETER ::  numx=51
CHARACTER(60) :: file1

REAL, DIMENSION(numx) :: spd, tair, qs, q, sst

file1='your_data.dat'
  

  
OPEN(UNIT=12, FILE=file1, STATUS='OLD',ACTION='READ')
 

DO i=1,numx

READ(12,*)junk,spd(i),tair(i),qs(i),q(i),sst(i) 

END DO

CLOSE(UNIT=12)

RETURN
 
END SUBROUTINE read_your_data