<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><span id="result_box" class="long_text"><span style="background-color: rgb(255, 255, 255);" title="e mando el enlace en donde puede encontrar la solucion acerca de pasar de ascii a binario, yo utilizo un programa en FORTRAN y creo un ctl para poder leerlo en GrADS, espero le ayude con esto, ademas le muestro un ejemplo del prgrama en fortran:" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">and
command the link where you can find the solution about going from ascii
to binary, I use a program in FORTRAN and create a ctl GRADS to read
it, I hope to help you with this, plus I show an example of the prgram
in fortran:
<br>
<br> </span><span title="real datos (625,381) //puntos en xy en y de la malla" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">real data (625.381) / / x y points and mesh
<br> </span><span title="real *8 numo2" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">real numo2 l * 8
<br> </span><span title="real *8 i,d,j" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">real * 8 i, d, j
<br>
<br>
<br> </span><span title="open(33,file='ville.bin',status='unknown',access='direct'," onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">open (33, file = 'ville.bin', status = 'unknown', access = 'direct'
<br> </span><span style="background-color: rgb(255, 255, 255);" title="+ recl=952500) // el archivo a crear de formato bnario el "recl = puntos en x por y por 4 625X381X4"" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">+ RECL = 952 500) / / the file format to create bnario the "RECL = points in x and y by 4 625X381X4"
<br></span><span style="background-color: rgb(255, 255, 255);" title="c archivos originales" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">c source files
<br> </span><span style="background-color: rgb(255, 255, 255);" title="open(12,file='ayuda.txt') //el archivo que tiene los valores en ascii de forma secuencial" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">open (12, file = 'ayuda.txt') / / the file that has ascii values sequentially
<br> </span><span title="i=0" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">i = 0
<br></span><span title="40 i=i+1" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">40 i = i +1
<br> </span><span style="background-color: rgb(255, 255, 255);" title="if(i.le.625)then" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">if (i.le.625) then
<br> </span><span title="j=0" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">j = 0
<br></span><span title="60 j=j+1" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">60 j = j +1
<br> </span><span style="background-color: rgb(255, 255, 255);" title="if(j.le.381)then" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">if (j.le.381) then
<br> </span><span style="background-color: rgb(255, 255, 255);" title="read(12,'(f8.2)')numo2" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">read (12, '(f8.2)') numo2
<br> </span><span style="background-color: rgb(255, 255, 255);" title="datos(i,j)=numo2" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">data (i, j) = numo2
<br>
<br> </span><span title="goto 60" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">goto 60
<br> </span><span title="endif" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">endif
<br> </span><span title="goto 40" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">goto 40
<br> </span><span title="endif" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">endif
<br></span><span title="50 close(12)" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">50 close (12)
<br> </span><span style="background-color: rgb(255, 255, 255);" title="write(*,*)'guardar'" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">write (*,*)' save '
<br> </span><span style="background-color: rgb(255, 255, 255);" title="write(33,rec=1)((datos(e,t),t=1,381),e=1,625) //la forma de guardar los datos en el archivo binario" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">write (33, rec = 1) ((data (e, t), t = 1.381), e = 1.625) / / how to save data in binary file
<br> </span><span title="close(33)" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">close (33)
<br></span><span title="30 end" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">30 end
<br>
<br></span><span style="background-color: rgb(255, 255, 255);" title="despues crea un archivo ctl e lcual debe de tener la siguiente informacion:" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">then creates a file and lcual ctl must have the following information:
<br></span><span style="background-color: rgb(255, 255, 255);" title="dset ^ville.bin" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">DSET ^ ville.bin
<br></span><span style="background-color: rgb(255, 255, 255);" title="undef -999.99" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">undef -999.99
<br></span><span style="background-color: rgb(255, 255, 255);" title="xdef 625 linear -117.20 .05 //MI MALLA ESTA A ." onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">xdef 625 linear -117.20 05 / / MI Mall is. </span><span title="05" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">05
<br></span><span style="background-color: rgb(255, 255, 255);" title="ydef 381 linear 13.95 .05" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">05 13.95 381 linear ydef
<br></span><span style="background-color: rgb(255, 255, 255);" title="zdef 1 levels 1000.00" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">1 Levels zdef 1000.00
<br></span><span style="background-color: rgb(255, 255, 255);" title="tdef 1 linear 01Z23AUG2009 1HR // LA FECHA DE INICIO" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">1HR 01Z23AUG2009 TDEF a linear / / START DATE
<br></span><span title="vars 1" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">vars 1
<br></span><span style="background-color: rgb(255, 255, 255);" title="prec 0 99 precipitacion (mm) // LA VARIABLE" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">prec 0 99 precipitation (mm) / / THE VARIABLE
<br></span><span title="endvars" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">endvars<br><br></span></span><span id="result_box" class="short_text"><span style="" title="">means this is a good guide<br></span></span><span id="result_box" class="long_text"><span title="endvars" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'">http://www.cmc.org.ve/mediawiki/index.php?title=Guia_GrADS</span></span><br><span id="result_box" class="short_text"><span style="" title=""></span><span title="">I hope that I have not confused<br></span><span style="" title="">and sorry for the translation</span></span><br><span id="result_box" class="long_text"><span title="endvars" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor='#fff'"><br></span></span></blockquote></td></tr></table><br>