<div lang="x-western">





Hi, <br>
<br>
I am trying to convert an ASCII file into a format GrADS can read.  My
ASCII file has 12 variables (it&#39;s sounding data) and looks like this:<br>

<span>   0 46     144    849.1   22.0  25  4.860  
36.23   2.6  11  40.630  //////<br>
   0 48     151    848.4   22.0  25  4.860   36.30   2.6  11  40.630 
//////<br>
   0 50     157    847.8   21.9  25  4.840   36.26   2.7  10  40.630 
//////<br>
   0 52     161    847.4   21.9  25  4.840   36.30   2.7  10  40.630 
//////<br>
   0 54     165    847.0   21.9  25  4.840   36.34   2.7  10  40.630 
//////<br>
   0 56     172    846.4   21.8  26  5.010   36.30   2.7  10  40.630 
//////<br>
<br>
<br>
My Fortran 90 program is below.  It compiles and creates the binary
file successfully but when I run the stnmap utility I get the following
error.  <br>
<i>stnmap -i test.ctl<br>
  Name of binary data set: testbin.dat<br>
  Number of times in the data set: 1<br>
  Number of surface variables: 0<br>
  Number of level dependent variables: 12<br>
<br>
Starting scan of station data binary file.<br>
Binary data file open: testbin.dat<br>
<br>
Processing time step 1<br>
Sequential Read Error: Record size greater than one station report: 32
:: 28<br>
<br>
</i></span><span>Has anyone seen this before/know how
to fix it?<br>
Thanks,<br>
Shawn Milrad<br>
</span><br>
<span><br>
<br>
<br>
      program fortrantest<br>
       character*8 STID, RLON<br>
       OPEN (8,FILE=&#39;10030000.txt&#39;)<br>
       OPEN (10,FILE=&#39;testbin.dat&#39;,FORM=&#39;UNFORMATTED&#39;, &amp;<br>
       ACCESS=&#39;SEQUENTIAL&#39;)<br>
       IFLAG = 0<br>
       STID = &#39;WHEELER&#39;<br>
!  Read and Write <br>
10     READ (8,9000,END=90) IMIN,ISEC,IHGHT,PRES,TMPC, &amp;<br>
       IRELH,RMIX,THETAC,SPED,IDIR,RLAT,RLON<br>
9000   FORMAT (2x,I2,2X,I2,5X,I4,3X,F5.1,3X,F4.1,2X,I2,2X, &amp;<br>
       F5.3,3x,F5.2,1x,F4.1,1x,I3,2x,F6.3,2x,A6)<br>
       IF (IFLAG.EQ.0) THEN<br>
          IFLAG = 1<br>
          IMINOLD = IMIN<br>
          ISECOLD = ISEC<br>
       ENDIF<br>
!  If new time group, write time group terminator. <br>
!  Assuming no empty time groups. <br>
       IF (IMINOLD.NE.IMIN.OR.ISECOLD.NE.ISEC) THEN<br>
          NLEV = 0<br>
          WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG<br>
          ENDIF<br>
          IMINOLD = IMIN<br>
          ISECOLD = ISEC<br>
!  Write this report <br>
       TIM = 0.0<br>
       NLEV = 1<br>
       NFLAG = 1<br>
       WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG<br>
       WRITE (10) IHGHT,PRES,TMPC,IRELH,RMIX,THETAC, &amp;<br>
       SPED,IDIR<br>
       GO TO 10<br>
!  On end of file write last time group terminator. <br>
90     CONTINUE<br>
       NLEV = 0<br>
       WRITE (10) STID, RLAT, RLON, TIM,NLEV,NFLAG<br>
       STOP<br>
       END<br>
<br>
</span>
<pre cols="72">-- 
Shawn Milrad, Ph. D.
Staff Scientist
AER, Inc.

</pre>
</div><br clear="all"><br>-- <br>Shawn Milrad<br>Cell:  732-261-3594<br>