<meta name="Title" content="">
<meta name="Keywords" content="">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="ProgId" content="Word.Document">
<meta name="Generator" content="Microsoft Word 2008">
<meta name="Originator" content="Microsoft Word 2008">
<link rel="File-List" href="file://localhost/Users/academiademusicafermatta/Library/Caches/TemporaryItems/msoclip/0clip_filelist.xml">

<style>
<!--
 /* Font Definitions */
@font-face
        {font-family:Cambria;
        panose-1:0 0 0 0 0 0 0 0 0 0;
        mso-font-alt:"Times New Roman";
        mso-font-charset:77;
        mso-generic-font-family:roman;
        mso-font-format:other;
        mso-font-pitch:auto;
        mso-font-signature:3 0 0 0 1 0;}
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0cm;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-ascii-font-family:Cambria;
        mso-ascii-theme-font:minor-latin;
        mso-fareast-font-family:Cambria;
        mso-fareast-theme-font:minor-latin;
        mso-hansi-font-family:Cambria;
        mso-hansi-theme-font:minor-latin;
        mso-bidi-font-family:"Times New Roman";
        mso-bidi-theme-font:minor-bidi;}
@page Section1
        {size:595.0pt 842.0pt;
        margin:72.0pt 90.0pt 72.0pt 90.0pt;
        mso-header-margin:35.4pt;
        mso-footer-margin:35.4pt;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>




<p class="MsoNormal">Hello all!<br>
I have a problem with a .gs script, it looks like it move  (clockwise
clock) the patterns on a binary file output of the MM5 when I see it on a
contour map on GrADS.<br>
The file has been treated with MM5to GrADS....<br>
Does anyone has had a problem like this?<br>
the code I wrote is this (gs)<br>
<br>
  &#39;reinit&#39;<br>
&#39;set gxout fwrite&#39;<br>
&#39;set fwrite -le MM5_EXTRAIDOS/MM5_0708.dat&#39;<br>
&#39;set x 1 30&#39;<br>
&#39;set y 1 30&#39;<br>
i=1<br>
while(i&lt;32)<br>
&#39;set t &#39;i<br>
say &#39; TIME    &#39;i<br>
if(i&lt; 10);dd=0%i;endif<br>
if(i&gt;9);dd=i;endif<br>
<br>
say &#39;&#39;dd<br>
<br>
&#39;open MMOUT_DOMAIN2_0708&#39;dd&#39;_12Z.ctl&#39;<br>
k=1<br>
while(k&lt;24)<br>
&#39;d ((rc(t=&#39;k+1&#39;)+rn(t=&#39;k+1&#39;)) - (rc(t=&#39;k&#39;)+rn(t=&#39;k&#39;)))*10&#39;<br>
k=k+1<br>
endwhile<br>
 i = i + 1<br>
endwhile</p>