Attached is the station data I am trying to use to convert to grads format. It looks like the script to turn into grads binary is a problem or the options sequential needs to be something else in the .ctl file, but what should it be?<br>
<br>This is the fortran script to convert data:<br><br>�� CHARACTER*8 STID <br>��� REAL� TD, TT,RH,WSP,WDIR,PP<br>������ OPEN (8,file=&#39;stns_new.txt&#39;)�� <br>����� OPEN (10,file=&#39;stn.dat&#39;,FORM=&#39;UNFORMATTED&#39;<br>
���� + ,status=&#39;unknown&#39;)<br><br>������ IFLAG = 0 <br><br>10���� READ (8,9000,END=90) ITIME, STID, RLAT, RLON, TT,Td,rh,WSP, <br>���� +�� wdir, pp<br><br>9000�� FORMAT( I2, 1X, A4, 1X, F7.4,1X,F8.3,1X, <br>���� + F4.1,1X,F5.1,1X,F3.0,1x,F4.1,1X,F3.0,1X,F4.1)<br>
!<br>������ IF (IFLAG.EQ.0) THEN<br>��������� IFLAG = 1 <br>!�������� IYROLD = IYEAR<br>��������� ITIMEOLD = ITIME<br>������ ENDIF <br><br>!��� print*,IYEAR,IMONTH,STID,RLAT,RLON,RVAL,TD,UU,VV<br>!� If new time group, write time group terminator. <br>
!� Assuming no empty time groups. <br>!<br>������ IF (ITIMEOLD.NE.ITIME) THEN <br>��������� NLEV = 0 <br>��������� WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG <br>��������� ENDIF <br>!�������� IYROLD = IYEAR <br>��������� ITIMEOLD = ITIME<br>
!� Write this report <br>������ TIM = 0.0 <br>������ NLEV = 1 <br>������ NFLAG = 1<br>������ WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG <br><br>!print*,ITIME,STID,RLAT,RLON,TT,TD,UU,VV<br>!����� print*,STID,RLAT,RLON,TIM,NLEV,NFLAG<br>
������ WRITE (10) TT,TD,RH,WSP,WDIR,PP<br>������ print*, TT ,TD, RH,WSP, WDIR, PP<br>������ GO TO 10<br>!� On end of file write last time group terminator. <br>90���� CONTINUE <br><br>������ NLEV = 0 <br>������ WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG <br>
������ print*,STID,RLAT,RLON,TIM,NLEV,NFLAG<br>������ STOP<br>������ END<br><br>Here is the .ctl file:<br clear="all"><br>DSET�� ^stn.dat<br>DTYPE� station<br>STNMAP station.map<br>OPTIONS sequential<br>UNDEF� -999.00<br>
TITLE� Station Data Sample<br>TDEF� 24 linear 07Z30Nov2007 60mn<br>VARS 6<br>ts��� 0 99� Surface Temperature<br>td��� 0 99� Surface Dewpoint Temperature<br>rh��� 0 99� Relative Humidity<br>wsp�� 0 99� Wind speed<br>wdir� 0 99� wind dir<br>
pp��� 0 99� accumulated precipitation<br>ENDVARS<br><br><br>-- <br>Andre Pattantyus, Graduate Student Research Assistant<br>Marine and Environmental Systems, Florida Institute of Technology<br>150 W. University Blvd, Melbourne, FL 32901<br>
<br>Phone: (321) 674-8330 | Fax: (321) 674-7212 | Email: <a href="mailto:apattantyus2008@fit.edu">apattantyus2008@fit.edu</a><br>