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

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

       
       IMPLICIT NONE 
     
       integer i,junk
       integer  numx
       parameter (numx=51)

       character*60 file1

       real spd(numx), tair(numx), qs(numx), q(numx), sst(numx)




       file1='your_data.dat'
  

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

       DO 50 i=1,numx

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

       

50     CONTINUE

       CLOSE(UNIT=12)

       RETURN
 
       END