Meredith,<br>I also use standard grads background maps for most of my work, but have increasingly taken advantage of the new shapefiles capabilities.  Attached script file includes a simple example of using a shapefile to create a basic background map.  There are detailed instructions for using shapefiles in the GrADS Documentation Index.<br>
<br>Unfortunately, I don&#39;t have any experience with google maps.  Hopefully someone else who does will furnish a more helpful response.  You might also check out the &quot;basemap&quot; script which should be included in your library.<br>
<br>Best wishes...<br>Stephen Mc<br><br><div class="gmail_quote">On Wed, Nov 10, 2010 at 4:26 PM, Meredith Croke <span dir="ltr">&lt;<a href="mailto:mcroke@airdat.com">mcroke@airdat.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">




<div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2">Stephen,</font></span></div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2"></font></span> </div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2">I typically just use the standard grads background, however I 
am very interested in how you create other base/background maps and use 
them.  I followed the previous email chain and was able to plot my data on 
nwcoast.png, but now I&#39;m curious how to create my own background images from 
google maps.  </font></span></div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2"></font></span> </div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2">Thanks,</font></span></div>
<div dir="ltr" align="left"><span><font color="#0000ff" face="Arial" size="2">Meredith</font></span></div>
<div dir="ltr" align="left">
<hr>
</div>
<div dir="ltr" align="left"><font face="Tahoma" size="2"><b>From:</b> 
<a href="mailto:gradsusr-bounces@gradsusr.org" target="_blank">gradsusr-bounces@gradsusr.org</a> [mailto:<a href="mailto:gradsusr-bounces@gradsusr.org" target="_blank">gradsusr-bounces@gradsusr.org</a>] <b>On 
Behalf Of </b>Stephen McMillan<br><b>Sent:</b> Tuesday, November 09, 2010 2:25 
PM<br><b>To:</b> GrADS Users Forum<br><b>Subject:</b> Re: [gradsusr] GrADS help, 
plotting shaded contour precip/ptype products over a 
basemap/background<br></font><br></div>
<div></div>Jeff,
<div>I will provide a response later on this evening when I have more time 
outside my work hours.  It might also help if you send me a copy of your 
google basemap, if you didn&#39;t already attach earlier.</div>
<div>Stephen Mc<br><br>
<div class="gmail_quote">On Tue, Nov 9, 2010 at 1:55 PM, Jeff Chabot <span dir="ltr">&lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt;</span> 
wrote:<br>
<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;" class="gmail_quote">Hello Stephen,<br><br>Thanks for your code and sample 
  images.  That is definitely leading me down the right path.  I have 
  attached my attempt to reproduce your work, called test_4.png.  Please 
  note, that is only a work in progress, the image isn&#39;t perfect, but it proves 
  that this works.  Using the same code, it didn&#39;t work on my google map 
  basemap, same problem white map covering the basemap, but it worked on your 
  GrADS produced basemap.  Can I ask you how you produced the basemap and 
  could you share your code to produce that basemap called 
  USNE.png?<br><br>Thanks again,<br><br><br>Jeff<br><br><br>
  <div class="gmail_quote">
  <div>On Tue, Nov 9, 2010 at 7:06 AM, <span dir="ltr">&lt;<a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a>&gt;</span> wrote:<br></div>
  <blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
    <div>Send gradsusr mailing list submissions to<br>    
       <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br><br>To subscribe or unsubscribe 
    via the World Wide Web, visit<br>       <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>or, via 
    email, send a message with subject or body &#39;help&#39; to<br>      
     <a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a><br><br>You can reach the 
    person managing the list at<br>       <a href="mailto:gradsusr-owner@gradsusr.org" target="_blank">gradsusr-owner@gradsusr.org</a><br><br>When replying, please 
    edit your Subject line so it is more specific<br>than &quot;Re: Contents of 
    gradsusr digest...&quot;<br><br><br>Today&#39;s Topics:<br><br>  1. Re: GrADS 
    help, plotting shaded contour precip/ptype products<br></div>    
     over a basemap/background (Stephen 
    McMillan)<br><br><br>----------------------------------------------------------------------<br><br>Message: 
    1<br>Date: Tue, 9 Nov 2010 11:11:33 -0500<br>From: Stephen McMillan &lt;<a href="mailto:smcmillan@planalytics.com" target="_blank">smcmillan@planalytics.com</a>&gt;
    <div><br>Subject: Re: [gradsusr] GrADS help, plotting shaded 
    contour<br>       precip/ptype products over a 
    basemap/background<br>To: GrADS Users Forum &lt;<a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a>&gt;<br>Message-ID:<br></div>  
         &lt;AANLkTinozhUHTUAXzsO78rxVciLwtO3M=<a href="mailto:p9xrGEgU-Zq@mail.gmail.com" target="_blank">p9xrGEgU-Zq@mail.gmail.com</a>&gt;
    <div>
    <div></div>
    <div><br>Content-Type: text/plain; 
    charset=&quot;iso-8859-1&quot;<br><br>Jeff,<br>Thanks for sending the image.  I 
    tried something very similar using the same<br>colors, but only with precip. 
     Resulting image attached, along with the<br>short script to produce 
    it.  I also attached the &quot;USNE.png&quot; background map<br>used.<br><br>One 
    of the differences I see between your and my image is that your<br>displayed 
    (foreground) image borders appear to be transparent while the<br>plotted 
    white is not.  My image sample appears to be true in reverse, but 
    I<br>don&#39;t know why.  Perhaps my sample script will give you a 
    clue.<br><br>Stephen Mc<br><br>On Mon, Nov 8, 2010 at 8:42 PM, Jeff Chabot 
    &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt; 
    wrote:<br><br>&gt; Stephen,<br>&gt;<br>&gt; Awesome idea, but GrADS still 
    produced a map with a white background.  I<br>&gt; did confirm that the 
    white is now a pure white: rgb 255 255 255.<br>&gt;<br>&gt; 
    Sample:<br>&gt;<br>&gt; <a href="http://jeffsweatherservice.com/grads/nam/test_2.png" target="_blank">http://jeffsweatherservice.com/grads/nam/test_2.png</a><br>&gt;<br>&gt; 
    Printim line used:<br>&gt;<br>&gt; printim test_2.png png -t 200 x570 y435 
    -b NE.png<br>&gt;<br>&gt; Colors:<br>&gt; set rgb 200 255 255 
    255<br>&gt;<br>&gt; set rgb 30 210 180 140<br>&gt; set rgb 16 107 159 
    91<br>&gt; set rgb 17 90 142 75<br>&gt; set rgb 18 74 125 60<br>&gt; set rgb 
    19 58 109 45<br>&gt; set rgb 20 41 92 19<br>&gt; set rgb 21 25 75 14<br>&gt; 
    set rgb 22 253 248 2<br>&gt; set rgb 23 229 188 0<br>&gt; set rgb 24 253 149 
    0<br>&gt; set rgb 25 253 0 0<br>&gt; set rgb 26 212 0 0<br>&gt; set rgb 27 
    255 0 153<br>&gt;<br>&gt; set clevs 0.01 0.05 0.10 0.25 0.50 1.00 2.00 3.00 
    4.00 5.00<br>&gt; set ccols 200 16 18 19 20 22 23 24 25 26 
    27<br>&gt;<br>&gt; I used 200 because I already had 16 and several other 
    numbers assigned to<br>&gt; different colors.  I tried both png and gif 
    format to see if it would make a<br>&gt; difference, but it did 
    not.<br>&gt;<br>&gt; Any other ideas?  I did use the full/local path to 
    my images above.<br>&gt;<br>&gt; Sincerely,<br>&gt;<br>&gt;<br>&gt; 
    Jeff<br>&gt;<br>&gt; On Mon, Nov 8, 2010 at 12:16 PM, &lt;<a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a>&gt; 
    wrote:<br>&gt;<br>&gt;&gt; Send gradsusr mailing list submissions 
    to<br>&gt;&gt;        <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt;<br>&gt;&gt; To subscribe 
    or unsubscribe via the World Wide Web, visit<br>&gt;&gt;     
       <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>&gt;&gt; 
    or, via email, send a message with subject or body &#39;help&#39; to<br>&gt;&gt; 
           <a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a><br>&gt;&gt;<br>&gt;&gt; You 
    can reach the person managing the list at<br>&gt;&gt;       
     <a href="mailto:gradsusr-owner@gradsusr.org" target="_blank">gradsusr-owner@gradsusr.org</a><br>&gt;&gt;<br>&gt;&gt; When 
    replying, please edit your Subject line so it is more specific<br>&gt;&gt; 
    than &quot;Re: Contents of gradsusr 
    digest...&quot;<br>&gt;&gt;<br>&gt;&gt;<br>&gt;&gt; Today&#39;s 
    Topics:<br>&gt;&gt;<br>&gt;&gt;   1. Re: gradsusr Digest, Vol 9, Issue 
    18 (Jeff Chabot)<br>&gt;&gt;<br>&gt;&gt;<br>&gt;&gt; 
    ----------------------------------------------------------------------<br>&gt;&gt;<br>&gt;&gt; 
    Message: 1<br>&gt;&gt; Date: Mon, 8 Nov 2010 16:21:29 
    -0500<br>&gt;&gt;<br>&gt;&gt; From: Jeff Chabot &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt;<br>&gt;&gt; Subject: Re: [gradsusr] 
    gradsusr Digest, Vol 9, Issue 18<br>&gt;&gt;<br>&gt;&gt; To: <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; Message-ID:<br>&gt;&gt; 
           &lt;AANLkTi=<a href="mailto:hSyCi59RifNAgKttG0ZFeyMmz79rTGAQ8GUdp@mail.gmail.com" target="_blank">hSyCi59RifNAgKttG0ZFeyMmz79rTGAQ8GUdp@mail.gmail.com</a>&gt;<br>&gt;&gt;<br>&gt;&gt; 
    Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>&gt;&gt;<br>&gt;&gt; 
    Jennifer, Jeff,<br>&gt;&gt;<br>&gt;&gt; I was the one that discovered the 
    NE.png looks to the file ne.png<br>&gt;&gt; (basically<br>&gt;&gt; looks to 
    lowercase files only).  I resolved that problem by renaming 
    my<br>&gt;&gt; file<br>&gt;&gt; NE.png to ne.png.  I can use a 
    background image now, but when I draw<br>&gt;&gt; shaded<br>&gt;&gt; 
    contours over that background, I either get a black or white map area 
    for<br>&gt;&gt; precip =0.  I can still see my background outside of 
    the map area, but I<br>&gt;&gt; would like to show that background inside 
    the map area for areas that<br>&gt;&gt; precip<br>&gt;&gt; = 0.  I 
    thought -t 0 or -t 00 would allow me to do just that. 
     Instead,<br>&gt;&gt; when<br>&gt;&gt; I used -t 0 or -t 00, I the map 
    area is black for precip equals zero.<br>&gt;&gt;<br>&gt;&gt; #1: Yes I am 
    using the file ne.png.<br>&gt;&gt; #2: My map area background is black using 
    the color 0 and -t 0 or -t 00.<br>&gt;&gt; But, in the printim -t 00, that 
    should equal transparent, not black.  If I<br>&gt;&gt; change -t 0 to 
    white, then it the black area is now white.  I am trying to<br>&gt;&gt; 
    use a background map behind the shaded contours for precip = 0 instead 
    of<br>&gt;&gt; white or black.<br>&gt;&gt;<br>&gt;&gt; Ultimately, my main 
    goal here is to use a colorful basemap to my precip<br>&gt;&gt; contour 
    maps, instead of using just black or white, or any other solid<br>&gt;&gt; 
    color<br>&gt;&gt; for that fact.  And, if anyone knows how to do that, 
    I would love to know.<br>&gt;&gt;<br>&gt;&gt; Once again, thanks for all 
    your input.<br>&gt;&gt;<br>&gt;&gt; 
    Sincerely,<br>&gt;&gt;<br>&gt;&gt;<br>&gt;&gt; Jeff 
    Chabot<br>&gt;&gt;<br>&gt;&gt;<br>&gt;&gt; On Mon, Nov 8, 2010 at 11:50 AM, 
    &lt;<a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a>&gt; 
    wrote:<br>&gt;&gt;<br>&gt;&gt; &gt; Send gradsusr mailing list submissions 
    to<br>&gt;&gt; &gt;        <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; &gt;<br>&gt;&gt; &gt; To 
    subscribe or unsubscribe via the World Wide Web, visit<br>&gt;&gt; &gt; 
           <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>&gt;&gt; 
    &gt; or, via email, send a message with subject or body &#39;help&#39; 
    to<br>&gt;&gt; &gt;        <a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a><br>&gt;&gt; &gt;<br>&gt;&gt; 
    &gt; You can reach the person managing the list at<br>&gt;&gt; &gt;   
         <a href="mailto:gradsusr-owner@gradsusr.org" target="_blank">gradsusr-owner@gradsusr.org</a><br>&gt;&gt; &gt;<br>&gt;&gt; 
    &gt; When replying, please edit your Subject line so it is more 
    specific<br>&gt;&gt; &gt; than &quot;Re: Contents of gradsusr 
    digest...&quot;<br>&gt;&gt; &gt;<br>&gt;&gt; &gt;<br>&gt;&gt; &gt; Today&#39;s 
    Topics:<br>&gt;&gt; &gt;<br>&gt;&gt; &gt;   1. Re: GrADS help, plotting 
    shaded contour precip/ptype products<br>&gt;&gt; &gt;     
     over a basemap/background (Jeffrey Duda)<br>&gt;&gt; &gt;<br>&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; 
    ----------------------------------------------------------------------<br>&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; Message: 1<br>&gt;&gt; &gt; Date: Mon, 8 Nov 2010 
    14:55:31 -0600<br>&gt;&gt;<br>&gt;&gt; &gt; From: Jeffrey Duda &lt;<a href="mailto:jdduda@iastate.edu" target="_blank">jdduda@iastate.edu</a>&gt;<br>&gt;&gt; &gt; Subject: Re: 
    [gradsusr] GrADS help, plotting shaded contour<br>&gt;&gt; &gt;   
         precip/ptype products over a 
    basemap/background<br>&gt;&gt; &gt; To: GrADS Users Forum &lt;<a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a>&gt;<br>&gt;&gt; &gt; 
    Message-ID:<br>&gt;&gt; &gt;        &lt;AANLkTi=<a href="mailto:UuhCprPO4JG9zSvZdHJ6fo7e2gLVtP4oLUyFu@mail.gmail.com" target="_blank">UuhCprPO4JG9zSvZdHJ6fo7e2gLVtP4oLUyFu@mail.gmail.com</a>&gt;<br>&gt;&gt;<br>&gt;&gt; 
    &gt; Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; Jeff,<br>&gt;&gt; &gt; 1) Did you try Jennifer&#39;s 
    suggestion?  If that doesn&#39;t work,<br>&gt;&gt; &gt; 2) what is your 
    background color?<br>&gt;&gt; &gt;<br>&gt;&gt; &gt; Jeff<br>&gt;&gt; 
    &gt;<br>&gt;&gt;<br>&gt;&gt; &gt; On Mon, Nov 8, 2010 at 2:31 PM, Jeff 
    Chabot &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt; wrote:<br>&gt;&gt; &gt;<br>&gt;&gt; 
    &gt; &gt; Jeff,<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt; I liked the 
    idea, but that didn&#39;t help.  I tried the following, both<br>&gt;&gt; 
    &gt; &gt; resulting in a black background for the map area:<br>&gt;&gt; &gt; 
    &gt;<br>&gt;&gt; &gt; &gt; printim precip_NE.png png x570 y435 
    -b<br>&gt;&gt;<br>&gt;&gt; &gt; 
    /home/jeff/public_html/images/NE.png<br>&gt;&gt; &gt; &gt; -t 00<br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt; printim precip_NE.png png x570 y435 -t 00 
    -b<br>&gt;&gt; &gt; &gt; /home/jeff/public_html/images/NE.png<br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt; Example: <a href="http://jeffsweatherservice.com/grads/nam/precip_NE_2.png" target="_blank">http://jeffsweatherservice.com/grads/nam/precip_NE_2.png</a><br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt; I even tried using &quot;00&quot; in the color table, 
    but that had the same<br>&gt;&gt; impact.<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; 
    &gt; &gt; Now, if I use the following command, the black background 
    becomes<br>&gt;&gt; white:<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt; 
    printim precip_NE.png png x570 y435 -b<br>&gt;&gt;<br>&gt;&gt; &gt; 
    /home/jeff/public_html/images/NE.png<br>&gt;&gt; &gt; &gt; white<br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt; Thanks for the idea though.<br>&gt;&gt; &gt; 
    &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt; 
    Jeff<br>&gt;&gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; 
    &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt; On 
    Mon, Nov 8, 2010 at 10:59 AM, &lt;<a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a>&gt;<br>&gt;&gt; 
    wrote:<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; Send gradsusr mailing 
    list submissions to<br>&gt;&gt; &gt; &gt;&gt;        <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; To subscribe or unsubscribe via the World 
    Wide Web, visit<br>&gt;&gt; &gt; &gt;&gt;        <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>&gt;&gt; 
    &gt; &gt;&gt; or, via email, send a message with subject or body &#39;help&#39; 
    to<br>&gt;&gt; &gt; &gt;&gt;        <a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a><br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; You can reach the person managing the 
    list at<br>&gt;&gt; &gt; &gt;&gt;        <a href="mailto:gradsusr-owner@gradsusr.org" target="_blank">gradsusr-owner@gradsusr.org</a><br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; When replying, please edit your Subject 
    line so it is more specific<br>&gt;&gt; &gt; &gt;&gt; than &quot;Re: Contents of 
    gradsusr digest...&quot;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; Today&#39;s Topics:<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;   1. Re: GrADS help, plotting shaded 
    contour precip/ptype products<br>&gt;&gt; &gt; &gt;&gt;     
     over a basemap/background (Jeffrey Duda)<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; 
    ----------------------------------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; Message: 1<br>&gt;&gt; &gt; &gt;&gt; 
    Date: Mon, 8 Nov 2010 14:04:13 -0600<br>&gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; From: Jeffrey Duda &lt;<a href="mailto:jdduda@iastate.edu" target="_blank">jdduda@iastate.edu</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; Subject: 
    Re: [gradsusr] GrADS help, plotting shaded contour<br>&gt;&gt; &gt; &gt;&gt; 
           precip/ptype products over a 
    basemap/background<br>&gt;&gt; &gt; &gt;&gt; To: GrADS Users Forum &lt;<a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    Message-ID:<br>&gt;&gt; &gt; &gt;&gt;       
     &lt;AANLkTinO=D7vgkJzwo=+60vLO5VgOZjp=<a href="mailto:4Hhr7P93qo%2B@mail.gmail.com" target="_blank">4Hhr7P93qo+@mail.gmail.com</a>&lt;<a href="mailto:4Hhr7P93qo%252B@mail.gmail.com" target="_blank">4Hhr7P93qo%2B@mail.gmail.com</a>&gt;<br>
&gt;&gt; &lt;<a href="mailto:4Hhr7P93qo%252B@mail.gmail.com" target="_blank">4Hhr7P93qo%2B@mail.gmail.com</a> &lt;<a href="mailto:4Hhr7P93qo%25252B@mail.gmail.com" target="_blank">4Hhr7P93qo%252B@mail.gmail.com</a>&gt;&gt;<br>
&gt;&gt; &gt; 
    &lt;<a href="mailto:4Hhr7P93qo%252B@mail.gmail.com" target="_blank">4Hhr7P93qo%2B@mail.gmail.com</a> &lt;<a href="mailto:4Hhr7P93qo%25252B@mail.gmail.com" target="_blank">4Hhr7P93qo%252B@mail.gmail.com</a>&gt; 
    &lt;<br></div></div>&gt;&gt; <a href="mailto:4Hhr7P93qo%25252B@mail.gmail.com" target="_blank">4Hhr7P93qo%252B@mail.gmail.com</a> &lt;<a href="mailto:4Hhr7P93qo%2525252B@mail.gmail.com" target="_blank">4Hhr7P93qo%25252B@mail.gmail.com</a>&gt;&gt;&gt;
    <div>
    <div></div>
    <div><br>&gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; Content-Type: text/plain; 
    charset=&quot;iso-8859-1&quot;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    Jeff,<br>&gt;&gt; &gt; &gt;&gt; Try using a two-digit color number (i.e., 
    00) in the printim command<br>&gt;&gt; as<br>&gt;&gt; &gt; &gt;&gt; 
    per<br>&gt;&gt; &gt; &gt;&gt; the recommendation on the index page for the 
    printim command:<br>&gt;&gt; &gt; &gt;&gt; <a href="http://www.iges.org/grads/gadoc/gradcomdprintim.html" target="_blank">http://www.iges.org/grads/gadoc/gradcomdprintim.html</a><br>&gt;&gt; 
    &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; Jeff<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; On Mon, Nov 8, 2010 at 1:41 PM, Jeff 
    Chabot &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt;<br>&gt;&gt; wrote:<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; I am using two separate color 
    tables.  For precip:<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; *Categorical Rain<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 30 
    210 180 140<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 16 107 159 91<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 17 90 142 75<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 18 74 125 60<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 19 58 109 
    45<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 20 41 92 19<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 21 25 75 14<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 22 
    253 248 2<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 23 229 188 0<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 24 253 149 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 25 253 0 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 26 212 0 0<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 27 255 0 153<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; set clevs 0.01 0.05 0.10 0.25 0.50 1.00 
    2.00 3.00 4.00 5.00<br>&gt;&gt; &gt; &gt;&gt; &gt; set ccols 0 16 18 19 20 
    22 23 24 25 26 27<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt; For precip type:<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; *Categorical Rain<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 16 
    107 159 91<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 17 90 142 75<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 18 74 125 60<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 19 58 109 45<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 20 41 92 
    19<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 21 25 75 14<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 22 253 248 2<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 23 
    229 188 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 24 253 149 0<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 25 253 0 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 
    26 212 0 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 27 255 0 153<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; *Categorical Freezing 
    Rain<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 28 255 188 188<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 29 255 172 172<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 
    30 255 156 156<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 31 253 140 
    140<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 32 255 124 124<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 33 255 108 108<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 
    34 255 96 96<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 35 255 80 80<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 36 255 64 56<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 37 240 32 128<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 38 240 16 
    255<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; 
    *Categorical Ice Pellets / Mix<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 39 255 
    200 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 40 255 180 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 41 255 160 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 42 
    255 140 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 43 255 124 0<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 44 255 108 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 45 255 96 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 46 255 80 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 47 255 64 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 48 255 32 0<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 49 
    255 16 0<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; 
    *Categorical Snow<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 50 4 233 
    231<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 51 0 173 255<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 52 0 148 255<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 53 
    0 123 255<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 54 0 104 255<br>&gt;&gt; 
    &gt; &gt;&gt; &gt; set rgb 55 0 85 255<br>&gt;&gt; &gt; &gt;&gt; &gt; set 
    rgb 56 4 67 245<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 57 0 38 
    255<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 58 0 14 255<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; set rgb 59 0 0 255<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 60 0 
    0 223<br>&gt;&gt; &gt; &gt;&gt; &gt; set rgb 61 255 255 255<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; set clevs 0.01 0.05 0.1 0.25 
    0.5 1 2 3 4 5 10 10.01 10.05 10.1<br>&gt;&gt; 10.25<br>&gt;&gt; &gt; 
    &gt;&gt; 10.5<br>&gt;&gt; &gt; &gt;&gt; &gt; 11 12<br>&gt;&gt; &gt; &gt;&gt; 
    &gt; 13 14 15 20 20.01 20.05 20.1 20.25 20.5 21 22 23 24 25 30 
    30.01<br>&gt;&gt; 30.05<br>&gt;&gt; &gt; &gt;&gt; 30.1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt; 30.25<br>&gt;&gt; &gt; &gt;&gt; &gt;  30.5 31 32 33 34 
    35<br>&gt;&gt; &gt; &gt;&gt; &gt; set ccols 0 16 18 19 20 22 23 24 25 26 27 
    0 39 40 41 42 43 44 45 46<br>&gt;&gt; 47<br>&gt;&gt; &gt; 0<br>&gt;&gt; &gt; 
    &gt;&gt; 0<br>&gt;&gt; &gt; &gt;&gt; &gt; 28 29<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;  30 31 32 33 34 35 36 0 0 50 51 52 53 54 55 56 57 58 
    59<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; So, Jeff, I 
    believe that I am using #0 correctly.  But, when I do,<br>&gt;&gt; 
    it<br>&gt;&gt; &gt; &gt;&gt; just<br>&gt;&gt; &gt; &gt;&gt; &gt; uses white 
    or black as the background as in this example:<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; <a href="http://jeffsweatherservice.com/grads/nam/ptype_NE_2.gif" target="_blank">http://jeffsweatherservice.com/grads/nam/ptype_NE_2.gif</a><br>&gt;&gt; 
    &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; Thanks,<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; 
    Jeff<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt; On Mon, 
    Nov 8, 2010 at 10:18 AM, &lt;<a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a>&gt;<br>&gt;&gt; &gt; 
    wrote:<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Send gradsusr mailing list submissions to<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
           <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; To subscribe or unsubscribe via 
    the World Wide Web, visit<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;        <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; or, via email, send a message with subject or body 
    &#39;help&#39; to<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;        <a href="mailto:gradsusr-request@gradsusr.org" target="_blank">gradsusr-request@gradsusr.org</a><br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; You can reach the person 
    managing the list at<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
     <a href="mailto:gradsusr-owner@gradsusr.org" target="_blank">gradsusr-owner@gradsusr.org</a><br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; When replying, please edit your 
    Subject line so it is more<br>&gt;&gt; specific<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; than &quot;Re: Contents of gradsusr digest...&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Today&#39;s Topics:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;   1. GrADS help,       plotting shaded 
    contour precip/ptype<br>&gt;&gt; products<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
         over a    basemap/background (Jeff 
    Chabot)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   2. Re: GrADS help, 
    plotting shaded contour precip/ptype products<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      over a basemap/background (Jeffrey 
    Duda)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   3. Problem with skewt plot 
    using WRF output (Cristian ...)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; 
    ----------------------------------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Message: 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Date: Mon, 8 Nov 2010 13:51:33 
    -0500<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; From: Jeff Chabot &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Subject: [gradsusr] GrADS help, plotting shaded contour<br>&gt;&gt; 
    precip/ptype<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
     products over a basemap/background<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    To: <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Message-ID:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
     &lt;AANLkTinKn=<br>&gt;&gt; <a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%2BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf+FgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%2BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%2BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%2BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%2525252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%2BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%2525252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com</a>&gt;<br>
&gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%252BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%2525252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com</a>&gt;<br>
</div></div>&gt;&gt; 
    &lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%2525252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%25252BFgLPz@mail.gmail.com</a>&lt;<a href="mailto:eTr6myE00LdycRWRxdyy5e8hpBtf%252525252BFgLPz@mail.gmail.com" target="_blank">eTr6myE00LdycRWRxdyy5e8hpBtf%2525252BFgLPz@mail.gmail.com</a>&gt;
    <div>
    <div></div>
    <div><br>&gt;&gt; &gt;<br>&gt;&gt;<br>&gt;&gt; &gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Content-Type: 
    text/plain; charset=&quot;iso-8859-1&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Dear GrADS Users,<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; I have been 
    trying to apply a basemap to my precip/ptype shaded<br>&gt;&gt; &gt; 
    contour<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; products on my personal website 
    for some time now.  I have<br>&gt;&gt; &gt; brainstormed<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; and<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; searched the 
    GrADS online documents and have come up with ideas,<br>&gt;&gt; 
    but<br>&gt;&gt; &gt; &gt;&gt; they<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; have 
    never worked.  My latest idea was to use Google Maps 
    terrain<br>&gt;&gt; &gt; data<br>&gt;&gt; &gt; &gt;&gt; as<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; a<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; background to the 
    map.  I thought it was a good idea, but I<br>&gt;&gt; &gt; 
    discovered<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; that<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; I still cannot resolve the issue in that precip = 0 shows 
    either<br>&gt;&gt; all<br>&gt;&gt; &gt; &gt;&gt; white<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; or all black depending on what I choose for the 
    background,<br>&gt;&gt; covering<br>&gt;&gt; &gt; up<br>&gt;&gt; &gt; 
    &gt;&gt; my<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; basemap.  I really 
    thought the following command would have<br>&gt;&gt; resolved<br>&gt;&gt; 
    &gt; &gt;&gt; that<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; issue, but it did 
    not:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    printim precip_NE_1.png png x570 y435 -b NE.png -t 0<br>&gt;&gt; 
    Versions:GrADS:<br>&gt;&gt; &gt; &gt;&gt; 2.0a9<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; OS: Fedora 13<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Sample: <a href="http://jeffsweatherservice.com/grads/nam/ptype_NE_2.png" target="_blank">http://jeffsweatherservice.com/grads/nam/ptype_NE_2.png</a><br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; I know this can be 
    done because of the example:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; <a href="http://wxmaps.org/pix/ez.east.html" target="_blank">http://wxmaps.org/pix/ez.east.html</a><br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Any assistance here 
    would be much appreciated.Sincerely,<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Jeff Chabot<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Email: <a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a><br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Web: 
    <a href="http://jeffsweatherservice.com" target="_blank">http://jeffsweatherservice.com</a><br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; -------------- next part --------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; An HTML attachment was scrubbed...<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; URL:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; <a href="http://gradsusr.org/pipermail/gradsusr/attachments/20101108/93f97642/attachment-0001.html" target="_blank">http://gradsusr.org/pipermail/gradsusr/attachments/20101108/93f97642/attachment-0001.html</a><br>
&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Message: 2<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Date: Mon, 8 Nov 2010 12:57:30 -0600<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; From: Jeffrey Duda &lt;<a href="mailto:jdduda@iastate.edu" target="_blank">jdduda@iastate.edu</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Subject: Re: [gradsusr] GrADS help, plotting shaded contour<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;        precip/ptype products over a 
    basemap/background<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; To: GrADS Users Forum 
    &lt;<a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Message-ID:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
     &lt;<br>&gt;&gt; <a href="mailto:AANLkTikPmH-Og0-6uNAi4tpUMCoZbAZ3YTqm_HXkndpV@mail.gmail.com" target="_blank">AANLkTikPmH-Og0-6uNAi4tpUMCoZbAZ3YTqm_HXkndpV@mail.gmail.com</a><br>&gt;&gt; 
    &gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Content-Type: text/plain; 
    charset=&quot;iso-8859-1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Jeff,<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; What color table are you using?  Are you sure you 
    have a #0 color?<br>&gt;&gt;  I<br>&gt;&gt; &gt; &gt;&gt; 
    know<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; that&#39;s supposed to be the 
    background, but perhaps you are<br>&gt;&gt; overwriting<br>&gt;&gt; &gt; 
    &gt;&gt; it<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; with some other color that 
    has the same color as your background<br>&gt;&gt; but<br>&gt;&gt; &gt; 
    a<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; different color number.<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Jeff 
    Duda<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    On Mon, Nov 8, 2010 at 12:51 PM, Jeff Chabot &lt;<a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a>&gt;<br>&gt;&gt; &gt; wrote:<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; Dear GrADS 
    Users,<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; I have been trying to apply a 
    basemap to my precip/ptype shaded<br>&gt;&gt; &gt; &gt;&gt; 
    contour<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; products on my personal 
    website for some time now.  I have<br>&gt;&gt; &gt; &gt;&gt; 
    brainstormed<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; and<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt; searched the GrADS online documents and have come up 
    with ideas,<br>&gt;&gt; &gt; but<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    they<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; have never worked.  My 
    latest idea was to use Google Maps<br>&gt;&gt; terrain<br>&gt;&gt; &gt; 
    &gt;&gt; data<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; as a<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt; background to the map.  I thought it was a good 
    idea, but I<br>&gt;&gt; &gt; &gt;&gt; discovered<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; that<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; I still cannot resolve 
    the issue in that precip = 0 shows either<br>&gt;&gt; &gt; all<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; white<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; or all 
    black depending on what I choose for the background,<br>&gt;&gt; &gt; 
    covering<br>&gt;&gt; &gt; &gt;&gt; up<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    my<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; basemap.  I really thought 
    the following command would have<br>&gt;&gt; &gt; resolved<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; that<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; issue, but it 
    did not:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &gt; printim precip_NE_1.png png x570 y435 -b NE.png -t 
    0<br>&gt;&gt; &gt; Versions:GrADS:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    2.0a9<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; OS: Fedora 13<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt; Sample: <a href="http://jeffsweatherservice.com/grads/nam/ptype_NE_2.png" target="_blank">http://jeffsweatherservice.com/grads/nam/ptype_NE_2.png</a><br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; I know 
    this can be done because of the example:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; <a href="http://wxmaps.org/pix/ez.east.html" target="_blank">http://wxmaps.org/pix/ez.east.html</a><br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; Any 
    assistance here would be much appreciated. Sincerely,<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &gt; Jeff Chabot<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &gt; Email: <a href="mailto:jsc219@gmail.com" target="_blank">jsc219@gmail.com</a><br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; 
    Web: <a href="http://jeffsweatherservice.com" target="_blank">http://jeffsweatherservice.com</a><br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &gt; 
    _______________________________________________<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &gt; gradsusr mailing list<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &gt; 
    <a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &gt; <a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; --<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Jeff Duda<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Iowa State 
    University<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Meteorology Graduate 
    Student<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 3134 Agronomy Hall<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; <a href="http://www.meteor.iastate.edu/%7Ejdduda" target="_blank">www.meteor.iastate.edu/~jdduda</a>&lt;<a href="http://www.meteor.iastate.edu/%7Ejdduda" target="_blank">http://www.meteor.iastate.edu/%7Ejdduda</a>&gt;<br>
&gt;&gt; 
    &lt;<a href="http://www.meteor.iastate.edu/%7Ejdduda" target="_blank">http://www.meteor.iastate.edu/%7Ejdduda</a>&gt;<br>&gt;&gt;<br>&gt;&gt; 
    &gt; &lt;<a href="http://www.meteor.iastate.edu/%7Ejdduda" target="_blank">http://www.meteor.iastate.edu/%7Ejdduda</a>&gt;&lt;<br>&gt;&gt; 
    &gt; &gt;&gt; <a href="http://www.meteor.iastate.edu/%7Ejdduda" target="_blank">http://www.meteor.iastate.edu/%7Ejdduda</a>&gt;<br>&gt;&gt; 
    &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; -------------- next part 
    --------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; An HTML attachment was 
    scrubbed...<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; URL:<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; <a href="http://gradsusr.org/pipermail/gradsusr/attachments/20101108/159827b2/attachment-0001.html" target="_blank">http://gradsusr.org/pipermail/gradsusr/attachments/20101108/159827b2/attachment-0001.html</a><br>
&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Message: 3<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Date: Mon, 8 Nov 2010 16:23:09 -0300<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; From: &quot;Cristian ...&quot; &lt;<a href="mailto:galenso85@hotmail.com" target="_blank">galenso85@hotmail.com</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Subject: [gradsusr] Problem with skewt plot using WRF 
    output<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; To: &lt;<a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Message-ID: 
    &lt;SNT112-W63DF5D09C452E1C6FB44FBF4F0@phx.gbl&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Hello,<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; My name is Cristian. I am having some troubles to perform 
    some<br>&gt;&gt; skewt<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; graphics using WRF 
    output.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; I have created a binary and .ctl 
    archives using ARWpost.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; The file is OK, 
    and no troubles are expected.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; The problem starts when I want to create a skewt 
    graphic.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; The temperature and dewpoint 
    profiles are OK, but no information<br>&gt;&gt; &gt; about<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; wind is shown. Neither the Hodograpf, nor the wind speed 
    and<br>&gt;&gt; &gt; direction<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; profiles 
    are shown.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; No message of an error apears, and i have no idea what 
    is<br>&gt;&gt; happening.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Even the undef 
    value is th same as the .ctl archive.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; I am using Grads version 1.a8, 
    in UBUNTU 9.04.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Here is the script. I only changed parameters at the top of 
    the<br>&gt;&gt; &gt; &gt;&gt; archive.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; I really appreciate your 
    help.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Thanks<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; 
    -----------------------------------------------------------------------------------------------------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * Script para construir radiosondeos<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;reinit&#39;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &#39;run 
    /home/cristian/Escritorio/Experimentos/lib/jaecol&#39;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &#39;set display color white&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &#39;reset&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Defino el archivo a utilizar<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;open 
    20081004_YSU.ctl&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *path=&#39;&#39;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Latitud Longitud 
    y tiempo<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; lat=-46<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; lon=-68<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; time=12z04Oct2008<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &#39;set time &#39;time<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;set lon 
    &#39;lon<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;set lat &#39;lat<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *Entre que niveles hace 
    el perfil hacerlo entre 1000 y 600<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; levmax=925<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; levmin=500<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &#39;set lev  &#39;levmax &#39; &#39; levmin<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *calculo Td a partir de 
    HR, P y T<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    et=(-2937.4/(t))-(4.9283*log10(t))+22.5518&#39;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *&#39;define es=pow(10,et)*10&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *&#39;define e=es*0.01*hr&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    q=0.622*e/(lev-e)&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    aux1=q*1000*(1.+0.81*q)&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    aux2=0.2854*(1.-0.28*q)&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    aux3=(1000/lev)&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *&#39;define 
    td=243.5/((17.67/(log(e/6.11)))-1)&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *&#39;define tc=t-273&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &#39;set ylopts 1 5 0.18&#39;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; plotskew(tc,td,u,v)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;q 
    dims&#39;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; line1=sublin(result,4)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; line2=sublin(result,5)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; itime1=subwrd(line1,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    itit=substr(itime1,1,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    itime1=subwrd(line2,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    itime=substr(itime1,1,12)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    d=substr(itime1,4,2)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    m=substr(itime1,6,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    y=substr(itime1,9,4)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    h=substr(itime1,1,2)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    lati=-1*lat<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; loni=-1*lon<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &#39;draw title Perfil 
    vertical de T y Td en &#39;lati&#39;S y &#39;loni&#39;W\&#39;itime<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &#39;printim &#39;d&#39;.&#39;h&#39;sondeo.png png x600 y800 white&#39;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; function 
    plotskew(sndtemp,snddewp,u,v)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *El valor Undef que se coloca ac? debe coincidir con 
    el valor<br>&gt;&gt; undef<br>&gt;&gt; &gt; del<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; CTL, sin? hay problemas<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *en la 
    construcci?n de la hod?grafa y del perfil vertical de<br>&gt;&gt; 
    viento.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; undef=1.e30<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; 
    *************************************************************************<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * GrADS Script 
    to Plot a SkewT/LogP Diagram<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Bob Hart<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Penn State University / Dept of Meteorology<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * Last Update:  January 23, 2001<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Recent 
    Changes:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * 01/23/01 - Fixed a small bug in the theta-e 
    calculation.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *       
         Errors averaged 0.5-3K.  Thank you George 
    Bryan.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * 11/10/99 - Change in calculation method for CAPE/CIN. 
     Trapezoid<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *       
         integration method is now used.  Speeds up 
    execution<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *         
       by 25%, and increases accuracy by 5-10%.<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 10/18/99 - Minor 
    glitch fixed that occasionally caused crash.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  8/26/99 - Datasets 
    with missing data can now be used.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Features:<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   - All features of standard skewt/logp plot<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *   - RH sounding<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   - LCL location<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   
    - Parcel trajectory for both sfc based convection and elevated<br>&gt;&gt; 
    &gt; from<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *     most unstable 
    level (highest theta-e level reported)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
      - Stability indices and precipitable water calculations<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *   - CAPE &amp; CIN Calculations<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *   - Wind Profile<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   - Hodograph / Hodograph scaling<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   - Helicity and SR Helicity Calculations and 
    Display<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   - Color aspects of 
    output<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   - Line Thickness, style 
    aspects of output<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   - Can be run 
    in either PORTRAIT or LANDSCAPE mode.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * There are numerous tunable parameters 
    below to change the<br>&gt;&gt; structure<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    * and output for the diagram.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Function Arguments:<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *    sndtemp - temperature data (Celsius) as a 
    function of<br>&gt;&gt; pressure<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   
     snddewp - dewpoint data (Celsius) as a function of 
    pressure<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *    sndspd  - 
    wind speed data (knots) as a function of pressure<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *    snddir  - wind direction data as a function of 
    pressure<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Use &#39;-1&#39; for any of the above 4 arguments to indicate that 
    you<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * are not passing that variable. 
     The appropriate options will<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * be 
    ignored based on your specifying &#39;-1&#39; for that variable.<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * NOTE:  Make 
    sure to set the vertical range of the plot before<br>&gt;&gt; &gt; &gt;&gt; 
    running.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *       
     I.e., &quot;SET LEV 1050 150&quot;, for example.   This does 
    not<br>&gt;&gt; have<br>&gt;&gt; &gt; to<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *        be limited to the pressure range of your 
    data.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Labelling:  Pressure/Height is labelled along left 
    side.<br>&gt;&gt; &gt;  Temperature<br>&gt;&gt; &gt; &gt;&gt; 
    is<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *           
      labelled along bottom.  Mixing ratio is labelled<br>&gt;&gt; 
    along<br>&gt;&gt; &gt; &gt;&gt; right<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
                side/top.<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * PROBLEMS:  First check out the web page for the 
    script (which<br>&gt;&gt; also<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   
             has a link to a FAQ with answers to many 
    common<br>&gt;&gt; &gt; questions<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
               about using the 
    script):<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *         
       <a href="http://www.ems.psu.edu/%7Ehart/skew.html" target="_blank">http://www.ems.psu.edu/~hart/skew.html</a>&lt;<a href="http://www.ems.psu.edu/%7Ehart/skew.html" target="_blank">http://www.ems.psu.edu/%7Ehart/skew.html</a>&gt;<br>
&gt;&gt; 
    &lt;<a href="http://www.ems.psu.edu/%7Ehart/skew.html" target="_blank">http://www.ems.psu.edu/%7Ehart/skew.html</a>&gt;<br>&gt;&gt; 
    &gt; &lt;<a href="http://www.ems.psu.edu/%7Ehart/skew.html" target="_blank">http://www.ems.psu.edu/%7Ehart/skew.html</a>&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &lt;<a href="http://www.ems.psu.edu/%7Ehart/skew.html" target="_blank">http://www.ems.psu.edu/%7Ehart/skew.html</a>&gt;<br>&gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Please send any further problems, comments, or suggestions 
    to<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * &lt;<a href="mailto:hart@ems.psu.edu" target="_blank">hart@ems.psu.edu</a>&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ACKNOWLEDGMENTS:  Thanks go to 
    the innumerable users who have<br>&gt;&gt; &gt; helped<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * fine tune the script from the horrible mess from which 
    it began.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * In particular, thanks go out 
    to Steve Lord (NCEP), Mike Fiorino<br>&gt;&gt; &gt; &gt;&gt; 
    (ECMWF),<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * George Bryan (PSU), Davide 
    Sacchetti (CMIRL), and Enrico<br>&gt;&gt; Minguzzi<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; (CMIRL).<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; 
    **************************************************************************<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *           !!!!!   
    BEGINNING OF USER-SPECIFIED OPTIONS  !!!!!!<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; 
    **************************************************************************<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    --------------------- Initialization options<br>&gt;&gt; &gt; 
     ----------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ClrScrn = Whether to clear the screen 
    before drawing diagram<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *     
          [1 = yes, 0 = no]<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; ClrScrn = 1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * ------------------- Define Skew-T Diagram<br>&gt;&gt; 
    &gt; &gt;&gt; Shape/Slope-----------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * (P1,T1) = Pres, Temp of some 
    point on left-most side<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * (P2,T2) = Pres, 
    Temp of some point on right-most side<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    (P3,T3) = Pres, Temp of some point in diagram which is mid-point<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *           in the 
    horizontal between 1 and 2.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * P1, P2, P3 are in mb ; T1, T2, T3 are in 
    Celsius<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * These define the SLOPE and WIDTH of the diagram as you see 
    it<br>&gt;&gt; but<br>&gt;&gt; &gt; DO<br>&gt;&gt; &gt; &gt;&gt; 
    NOT<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DEFINE THE HEIGHT of the diagram as 
    you see it.  In other words,<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 1 and 
    2 do NOT necessarily need to be at the bottom of the<br>&gt;&gt; 
    diagram<br>&gt;&gt; &gt; &gt;&gt; and<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 3 
    does NOT necessarily need to be at the top.  THE VERTICAL<br>&gt;&gt; 
    &gt; PRESSURE<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * RANGE OF THE SKEWT AS YOU 
    SEE IT IS DETERMINED BY YOUR &#39;SET Z<br>&gt;&gt; ...&#39;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * COMMAND OR THE &#39;SET LEV ...&#39; COMMAND BEFORE RUNNING THIS 
    SCRIPT.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *    _______________________<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   |                 
          |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |   
                        
    |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |         
      3           |<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   |                 
          |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |   
                        
    |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |         
                  |<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   |                 
          |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |   
                        
    |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |         
                  |<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   |                 
          |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |   
                        
    |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   |1         
                2|<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *   |                 
          |<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   
    |_______________________|<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * A good set of 
    defining points are given below.   Feel free<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * to experiment with variations.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *P1 = 1000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *T1 = -40<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *P2 = 
    1000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *T2 = 40<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *P3 = 200<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *T3 = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * Another good set of defining points suggested by 
    Juan Ruiz<br>&gt;&gt; &gt; (Emagrama)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    are:<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     P1 = 1000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  T1 = 
    -80<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     P2 = 1000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  T2 = 40<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  P3 = 
    500<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  T3 = -20<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ------------------- 
    Contour Intervals / Levels<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    --------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * All variables below are contour intervals/levels 
    for diagram<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Thetaint = interval for potential temperature lines<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * Thetwint = interval for moist pseudo 
    adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * tempint  = interval for 
    temperature lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * wsclevs  = 
    contour LEVELS for mixing ratio lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    thetaint= 20<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; thetwint= 10<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; tempint = 10<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    wsclevs = &quot;.1 .5 1 3 6 10 15 20 25 30&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    ------------------------ Output Options<br>&gt;&gt; &gt; &gt;&gt; 
    --------------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * All variables below are logical .. 
    1=yes, 0=no, unless otherwise<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    specified.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * DrawBarb = Draw wind barbs along right side of plot<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * DrawThet = Draw dry adiabats<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawThtw = Draw moist pseudo-adiabats<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawTemp = Draw temperature lines<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawMix  = Draw mixing ratio lines<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawTSnd = Draw temperature sounding<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawDSnd = Draw dewpoint sounding<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawRH   = Draw relative humidity 
    sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DrawPrcl = Draw parcel path 
    from surface upward<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DrawPMax = Draw 
    parcel path from most unstable level upward<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * DrawIndx = Display stability indices &amp; CAPE<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DrawHeli = Calculate and display absolute and 
    storm-relative<br>&gt;&gt; &gt; helicity<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    * DrawHodo = Draw hodograph<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DrawPLev = 
    Draw Pressure Levels<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DrawZLev = Draw 
    height levels and lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *     
           0 = no lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
               1 = above ground level 
    (AGL)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *         
       2 = above sea level (ASL)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    DrawZSTD = Draw Height levels using standard atm lapse rate<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * LblAxes  = Label the x,y axes (temperature, 
    pressure,mixing<br>&gt;&gt; ratio)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ThtwStop = Pressure level at which to 
    stop drawing Theta-w lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MixStop 
     = Pressure level at which to stop drawing Mixratio<br>&gt;&gt; 
    lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    DrawBarb= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawThet= 1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; DrawThtw= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawTemp= 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawMix = 1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; DrawTSnd= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawDSnd= 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawRH  = 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; DrawPrcl= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawPMax= 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawIndx= 1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; DrawHeli= 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawHodo= 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawPLev= 1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; DrawZLev= 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DrawZSTD= 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; LblAxes = 1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; ThtwStop = 200<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; MixStop  = 400<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ----------------- 
     Sounding Geography options<br>&gt;&gt; &gt; &gt;&gt; 
    ------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * SfcElev = Elevation above sea-level (meters) of 
    lowest level<br>&gt;&gt; &gt; reported<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
              in sounding.  Used only if DrawZLev 
    = 2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    SfcElev = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * ------------------ Thermodynamic Index Options<br>&gt;&gt; 
    --------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * All variables here are in inches.  Use -1 for the 
    default<br>&gt;&gt; values.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *  Text1XC = X-location of midpoint of K,TT,PW 
    output box<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Text1YC = Y-location 
    of midpoint of K,TT,PW output box<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
     Text2XC = X-Location of midpoint of surface indices output 
    box<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Text2YC = Y-location of 
    midpoint of surface indices output box<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
     Text3XC = X-Location of midpoint of most unstable 
    level-based<br>&gt;&gt; &gt; &gt;&gt; indices<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *            output box<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *  Text3YC = Y-location of midpoint of most 
    unstable level-based<br>&gt;&gt; &gt; &gt;&gt; indices<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *            output 
    box<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Text1XC = -1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Text1YC = -1<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; Text2XC = -1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Text2YC = -1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Text3XC = -1<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; Text3YC = -1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * ----------------- Wind Barb Profile Options<br>&gt;&gt; &gt; 
    &gt;&gt; ----------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * All variables here are in units of 
    inches, unless otherwise<br>&gt;&gt; &gt; specified<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  barbint = 
    Interval for plotting barbs (in units of levels)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *  poleloc = X-Location of profile.  Choose -1 for the 
    default.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  polelen = Length of 
    wind-barb pole<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Len05   = 
    Length of each 5-knot barb<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Len10 
      = Length of each 10-knot barb<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
     Len50   = Length of each 50-knot flag<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *  Wid50   = Width of base of 50-knot flag<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *  Spac50  = Spacing between 50-knot flag 
    and next ror occurred on<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    libarb/flag<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Spac10  = 
    Spacing between 10-knot flag and next flag<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *  Spac05  = Spacing between 5-knot flag and next 
    flag<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *  Flagbase= Draw flagbase 
    (filled circle) for each windbarb<br>&gt;&gt; [1=yes,<br>&gt;&gt; &gt; 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; =no]<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *  Fill50  = Solid-fill 50-knot flag [1=yes, 0=no]<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *  barbline= Draw a vertical line connecting all 
    the wind barbs<br>&gt;&gt; &gt; [1=yes,<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    0=no]<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; barbint = 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; poleloc = 
    -1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; polelen = 0.35<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; len05   = 0.07<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    len10   = 0.15<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; len50   = 
    0.15<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; wid50   = 0.06<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; spac50  = 0.07<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    spac10  = 0.05<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; spac05  = 
    0.05<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Fill50  = 1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; flagbase= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; barbline= 
    1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *---------------- Hodograph Options<br>&gt;&gt; &gt; &gt;&gt; 
    -------------------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * All variables here are in units of 
    inches, unless otherwise<br>&gt;&gt; &gt; specified<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodXcent= 
    x-location of hodograph center.  Use -1 for default<br>&gt;&gt; &gt; 
    &gt;&gt; location.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodYcent= y-location 
    of hodograph center.  Use -1 for default<br>&gt;&gt; &gt; &gt;&gt; 
    location.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodSize = Size of hodograph 
    in inches<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * NumRing = Number of rings to 
    place in hodograph (must be at<br>&gt;&gt; least<br>&gt;&gt; &gt; 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodRing = Wind speed increment of 
    each hodograph ring<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodoDep = Depth 
    (above lowest level in mb) of end of hodograph<br>&gt;&gt; &gt; 
    trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TickInt = Interval (in kts) at 
    which tick marks are drawn along<br>&gt;&gt; the<br>&gt;&gt; &gt; &gt;&gt; 
    axes<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *           
    Use 0 for no tick marks.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TickSize= Size 
    of tick mark in inches<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Text4XC = 
    X-location of midpoint of hodograph text output. Use<br>&gt;&gt; 
    -1<br>&gt;&gt; &gt; for<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    default.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Text4YC = Y-location of 
    midpoint of hodograph text output. Use<br>&gt;&gt; -1<br>&gt;&gt; &gt; 
    for<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; default.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodXcent= 6<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; HodYcent= 9<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodSize = 
    2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; NumRing = 3<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; HodRing = 10<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodoDep = 
    500<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; TickInt = 5<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; TickSize= 0.1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Text4XC = 
    -1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Text4YC = -1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *--------------- Helicity 
    Options<br>&gt;&gt; &gt; &gt;&gt; 
    ---------------------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MeanVTop = Top pressure level (mb) of 
    mean-wind calculation<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MeanVBot = Bottom 
    pressure level (mb) of mean-wind calculation<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * HelicDep = Depth in mb (above ground) of helicity 
    integration<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * StormMot = Type of storm 
    motion estimation scheme.  Use<br>&gt;&gt; following:<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *            0 = No 
    departure from mean wind.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *     
           1 = Davies-Jones (1990) approach<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * FillArrw = Whether to fill the arrowhead of the storm 
    motion<br>&gt;&gt; vector<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *     
           [1 = yes, 0 = no]<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; MeanVTop= 300<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; MeanVBot= 850<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HelicDep= 
    300<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; StormMot= 0<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; FillArrw= 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *---------------- 
    Color Options<br>&gt;&gt; &gt; &gt;&gt; 
    ------------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ThetCol = Color of dry 
    adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TempCol = Color of temperature 
    lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MixCol  = Color of mixing 
    ratio lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ThtwCol = Color of moist 
    adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TSndCol = Color of Temperature 
    Sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DSndCol = Color of Dewpoint 
    Sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * RHCol   = Color of RH 
    Sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * PrclCol = Color of parcel 
    trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * BarbCol = Color of wind barbs 
    (choose -1 for color according to<br>&gt;&gt; &gt; &gt;&gt; 
    speed)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodoCol = Color of hodograph 
    trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ThetCol = 23<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; TempCol = 79<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; MixCol  = 38<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ThtwCol = 39<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; TSndCol = 29<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; DSndCol = 49<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; RHCol 
      = 3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; PrclCol = 1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; BarbCol = 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodoCol = 
    2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *-------------------- Line Style 
    Options<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ------------------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * GrADS Styles: 1=solid;2=long 
    dash;3=short dash;4=long,short<br>&gt;&gt; dashed;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *               5=dotted;6=dot 
    dash;7=dot dot dash<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * ThetLine = Line Style of dry adiabats<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * TempLine = Line Style of temperature lines<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * MixLine  = Line Style of mixing ratio 
    lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ThtwLine = Line Style of moist 
    adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TSndLine = Line Style of 
    Temperature Sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * DSndLine = Line 
    Style of Dewpoint Sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * RHLine 
      = Line Style of RH sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    PrclLine = Line Style of parcel trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    HodoLine = Line Style of hodograph trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ThetLine = 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; TempLine = 1<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; MixLine  = 5<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    ThtwLine = 2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; TSndLine = 1<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; DSndLine = 2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    RHLine   = 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; PrclLine = 
    3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodoLine = 1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *------------------- Line Thickness<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Options---------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * GrADS Line Thickness: increases with increasing 
    number.<br>&gt;&gt; Influences<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *   
                        
    hardcopy output more strongly than screen<br>&gt;&gt; &gt; &gt;&gt; 
    output.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * ThetThk = Line Thickness of 
    dry adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TempThk = Line Thickness 
    of temperature lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MixThk  = 
    Line Thickness of mixing ratio lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    ThtwThk = Line Thickness of moist adiabats<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * TSndThk = Line Thickness of temperature sounding<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * DSndThk = Line thickness of dewpoint 
    sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * RHThk   = Line thickness 
    of RH sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * PrclThk = Line thickness 
    of parcel trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * HodoThk = Line 
    thickness of hodograph trace<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * BarbThk = 
    Line thickness of wind barbs<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; ThetThk = 3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    TempThk = 1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; MixThk  = 7<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; ThtwThk = 3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    TSndThk = 12<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DSndThk = 12<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; RHThk   = 8<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    PrclThk = 6<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; HodoThk = 6<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; BarbThk = 2<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *------------------- Data Point Marker Options<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; -----------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    GrADS Marker Types: 0 = none ; 1 = cross ; 2 = open circle ;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *               
          3 = closed circle ; 4 = open square ; 5 =<br>&gt;&gt; 
    &gt; closed<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; square<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *                 
        6 = X ; 7 = diamond ; 8 = triangle ; 9 =<br>&gt;&gt; 
    none<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *           
             10 = open circle with vertical line ; 11 
    =<br>&gt;&gt; open<br>&gt;&gt; &gt; &gt;&gt; oval<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * TSndMrk = Mark type of data 
    point marker for temperature<br>&gt;&gt; sounding<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * DSndMrk = Mark type of data point marker for dewpoint 
    sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * RHMrk   = Mark type of 
    data point marker for relative humidity<br>&gt;&gt; &gt; &gt;&gt; 
    sounding<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * MrkSize = Mark size (inches) 
    of each data marker<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; TSndMrk = 3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; DSndMrk = 
    3<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; RHMrk   = 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; MrkSize = 0.1<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * !!!!! YOU SHOULD NOT NEED TO CHANGE ANYTHING BELOW HERE 
    !!!!!<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt;<br>&gt;&gt; &gt;<br>&gt;&gt; 
    ****************************************************************************<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-------------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * grab user-specified environment dimensions<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; *-------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;q 
    dims&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; rec=sublin(result,2)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; _xtype=subwrd(rec,3)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; _xval=subwrd(rec,9)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    rec=sublin(result,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _yval=subwrd(rec,9)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _ytype=subwrd(rec,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    rec=sublin(result,4)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _ptype=subwrd(rec,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _pmax=subwrd(rec,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _pmin=subwrd(rec,8)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _zmin=subwrd(rec,11)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _zmax=subwrd(rec,13)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    rec=sublin(result,5)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _ttype=subwrd(rec,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _tval=subwrd(rec,9)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &quot;q file&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    rec=sublin(result,5)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _zmaxfile=subwrd(rec,9)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; 
    *-------------------------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; * Check to ensure that dimensions are valid. 
     Warn &amp; exit if not.<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *--------------------------------------------------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    dimrc=0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (_xtype != 
    &quot;fixed&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  say &quot;X-Dims Error: 
     Not fixed.  Use &#39;set lon&#39; or &#39;set x&#39; to<br>&gt;&gt; 
    specify<br>&gt;&gt; &gt; a<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    value.&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  dimrc=-1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; If (_ytype != &quot;fixed&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     say &quot;Y-Dims Error:  Not fixed.  Use &#39;set lat&#39; or &#39;set y&#39; 
    to<br>&gt;&gt; specify<br>&gt;&gt; &gt; a<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    value&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  dimrc=-1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; If (_ptype != &quot;varying&quot;)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   say &quot;Z-Dims Error:  Not varying.  Use &#39;set lev&#39; or 
    &#39;set z&#39; to<br>&gt;&gt; &gt; specify<br>&gt;&gt; &gt; &gt;&gt; a<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; range.&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    dimrc=-1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (_ttype != 
    &quot;fixed&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  say &quot;Time Error:   
      Not fixed.  Use &#39;set time&#39; or &#39;set t&#39; to<br>&gt;&gt; &gt; 
    specify<br>&gt;&gt; &gt; &gt;&gt; a<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    value&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  dimrc=-1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (dimrc &lt; 
    0)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  Return(-1)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * A few global variables used in units 
    conversion<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _pi=3.14159265<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; _dtr=_pi/180<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _rtd=1/_dtr<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _ktm=0.514444<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; _mtk=1/_ktm<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * A few global constants used in 
    thermo calcs<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; _C0=0.99999683<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _C1=-0.90826951/100<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _C2= 
    0.78736169/10000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _C3=-0.61117958/1000000<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _C4= 
    0.43884187/pow(10,8)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _C5=-0.29883885/pow(10,10)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _C6= 
    0.21874425/pow(10,12)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _C7=-0.17892321/pow(10,14)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; _C8= 
    0.11112018/pow(10,16)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _C9=-0.30994571/pow(10,19)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; *Calculo la direcci?n e intensidad del viento usando 
    las funciones<br>&gt;&gt; &gt; &gt;&gt; GetWdir<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; y GetWsp<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * A pressure array of 
    power calculations which should be performed<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * only once to reduce execution time.<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; zz=1100<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; while (zz &gt; 10)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
       subscr=zz/10<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
     _powpres.subscr=pow(zz,0.286)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
       zz=zz-10<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    endwhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Turn off options not 
    available due to user data limitations<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If 
    (ClrScrn = 1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  &quot;clear&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; If (sndspd = -1 | snddir = -1)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;  DrawBarb = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     DrawHodo = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawHeli = 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (snddewp = -1)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;  DrawDSnd = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     DrawRH   = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawPrcl = 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawPMax = 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;  DrawIndx = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    If (sndtemp = -1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawTSnd = 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawRH   = 0<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;  DrawPrcl = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     DrawPMax = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawIndx = 
    0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  DrawZLev = 0<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; If (NumRing &lt; 1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
     DrawHodo = 0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;q gxinfo&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; rec=sublin(result,2)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; xsize=subwrd(rec,4)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; If (xsize = 11)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      PageType = &quot;Landscape&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   PageType = 
    &quot;Portrait&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *------------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * calculate constants determining slope/shape of 
    diagram<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * based on temp/pressure values 
    given by user<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-------------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set x 1&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &quot;set y 1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set z 
    1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set t 1&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; _m1=(T1+T2-2*T3)/(2*log10(P2/P3))<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; _m2=(T2-T3-_m1*log10(P2/P3))/50<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    _m3=(T1-_m1*log10(P1))<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &quot;set z &quot;_zmin&quot; &quot;_zmax<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &quot;set zlog on&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set xlab off&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-------------------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * perform coordinate transformation to Skew-T/LogP<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; 
    *-------------------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set gxout stat&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; &quot;set x &quot;_xval<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set 
    y &quot;_yval<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set t &quot;_tval<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &quot;define 
    tempx=(&quot;sndtemp&quot;-&quot;_m1&quot;*log10(lev)-&quot;_m3&quot;)/&quot;_m2<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; &quot;define dewpx=(&quot;snddewp&quot;-&quot;_m1&quot;*log10(lev)-&quot;_m3&quot;)/&quot;_m2<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (PageType = 
    &quot;Portrait&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set parea 0.7 7 0.75 
    10&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Else<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   &quot;set parea 0.7 6.5 0.5 8&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    &quot;set axlim 0 100&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set lon 0 
    100&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set grid on 1 1&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set z &quot;_zmin &quot; &quot; 
    _zmax<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set lon 0 100&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; &quot;set clevs -900&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;set 
    gxout contour&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; *-------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * Draw pressure lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (DrawPLev = 0)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   &quot;set ylab off&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; Else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set ylab 
    on&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set ylopts 1 5 
    0.18&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set xlopts 1 3 
    0.18&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;d lon&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *--------------------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * 
    Determine corners of skewt/logp frame<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *--------------------------------------<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;q w2xy 100 &quot;_pmin<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; rxloc=subwrd(result,3)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; tyloc=subwrd(result,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; &quot;q w2xy 0 
    &quot;_pmax<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; lxloc=subwrd(result,3)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; byloc=subwrd(result,6)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (DrawPLev = 1 &amp; LblAxes = 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set strsiz 0.15&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   &quot;set string 1 c 3 0&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   If (PageType = &quot;Portrait&quot;)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt; * &quot;draw string 0.5 10.5 hPa.&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      Else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      &quot;draw 
    string 0.5 8.35 hPa.&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *---------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * Calculate &amp; draw actual height lines using temp 
    data<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *---------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (DrawZLev &gt; 
    0)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   say &quot;Calculating observed 
    height levels from temp/pressure<br>&gt;&gt; data.&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;   zz=1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set 
    gxout stat&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set x 
    &quot;_xval<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set y &quot;_yval<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   &quot;set t &quot;_tval<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   count=0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   while (zz 
    &lt; _zmax)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      &quot;set z 
    &quot;zz<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     pp.zz=subwrd(result,4)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
       lpp.zz=log(pp.zz)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
       &quot;d &quot;sndtemp<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     rec=sublin(result,8)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     tt=subwrd(rec,4)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     if (tt &gt; -900)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        tk=tt+273.15<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        count=count+1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        zzm=zz-1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        If (count = 1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
             If (DrawZLev = 2)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;               
    htlb=&quot;ASL&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         
          height.zz=SfcElev<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
               Else<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;               
    htlb=&quot;AGL&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         
          height.zz=0<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
             Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
               sfcz=height.zz<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;         Else<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
     DZ=29.2857*(lpp.zzm-lpp.zz)*(lpp.zz*tk+lpp.zzm*tkold)/(lpp.zz+lpp.zzm)<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;           
     height.zz=height.zzm+DZ<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
             highz=height.zz<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;         Endif<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
          height.zz = -9999<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
         endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     tkold=tk<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     zz=zz+1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   endwhile<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    maxht=int(highz/1000)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   if 
    (int(sfcz/1000) = sfcz/1000)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
       minht=int(sfcz/1000)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     minht=1+int(sfcz/1000)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      ht=minht<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set line 1 3 
    1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set strsiz 0.10&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   &quot;set string 1 l 3 0&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   while (ht &lt;= maxht)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
          zz=1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
      while (height.zz/1000 &lt;= ht)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
             zz=zz+1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
          endwhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
        zzm=zz-1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
      PBelow=pp.zzm<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    PAbove=pp.zz<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    HBelow=height.zzm<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    HAbove=height.zz<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    DZ=HAbove-HBelow<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    DP=PAbove-PBelow<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    Del=ht*1000-HBelow<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    Est=PBelow+Del*DP/DZ<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    If (Est &gt;= _pmin &amp; Est &lt;= _pmax)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;          &quot;q w2xy 1 &quot; Est<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;         
     yloc=subwrd(result,6)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
         &quot;draw line &quot; lxloc &quot; &quot; yloc &quot; &quot; rxloc &quot; &quot; 
    yloc<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         
     &quot;draw string 0.22 &quot;yloc-0.05&quot; &quot;ht<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
          Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
      ht=ht+1<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    endwhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set strsiz 
    0.10&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set string 1&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   If (LblAxes = 1)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      If (PageType = &quot;Portrait&quot;)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;         &quot;draw string 0.25 10.85 
    km&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         &quot;draw 
    string 0.25 10.75 &quot;htlb<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        &quot;draw string 0.25 10.65 OBS&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      Else<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
          &quot;draw string 0.25 8.35 km&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;         &quot;draw string 0.25 8.25 
    &quot;htlb<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         &quot;draw 
    string 0.25 8.15 OBS&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   Endif<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *---------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; * Draw height levels (height above MSL using Std 
    Atm)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *---------------------------------------------------<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (DrawZSTD = 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set strsiz 0.10&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   
    minht=30.735*(1-pow(_pmax/1013.26,0.287))<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      minht=int(minht+0.5)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    maxht=30.735*(1-pow(_pmin/1013.26,0.287))<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      maxht=int(maxht)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set gxout 
    stat&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   zcount=minht<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   while (zcount &lt;= maxht)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;     
     plev=1013.26*pow((1-zcount/30.735),3.4843)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      &quot;q w2xy 0 &quot;plev<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      yloc=subwrd(result,6)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;      &quot;draw string 0 &quot;yloc-0.05&quot; &quot;zcount<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;      zcount=zcount+1<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;   endwhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    &quot;set strsiz 0.10&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   If (LblAxes = 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      If (PageType = 
    &quot;Portrait&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         
    &quot;draw string 0 10.85 km&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
        &quot;draw string 0 10.75 ASL&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
            &quot;draw string 0 10.65 STD&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;      Else<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;         &quot;draw string 0 8.35 km&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;         &quot;draw string 0 8.25 
    ASL&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         &quot;draw 
    string 0 8.15 STD&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;  Endif<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-----------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Plot 
    temperature lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *-----------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; If (DrawTemp = 1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      &quot;set strsiz 0.1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set z 
    &quot;_zmin &quot; &quot; _zmax<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set line 
    &quot;TempCol &quot; &quot; TempLine &quot; &quot;TempThk<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    &quot;set string 1 c 3 0&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set gxout 
    stat&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    maxtline=GetTemp(100,_pmax)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    mintline=GetTemp(0,_pmin)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   
    maxtline=tempint*int(maxtline/tempint)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      mintline=tempint*int(mintline/tempint)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    tloop=mintline<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   While (tloop &lt;= 
    maxtline)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    Botxtemp=GetXLoc(tloop,_pmax)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
        &quot;q w2xy &quot;Botxtemp &quot; &quot; _pmax<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
          Botxloc=subwrd(result,3)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;       Botyloc=byloc<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;       Topxtemp=GetXLoc(tloop,_pmin)<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;        &quot;q w2xy &quot;Topxtemp &quot; &quot; 
    _pmin<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    Topxloc=subwrd(result,3)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
      Topyloc=tyloc<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;       
    If (Botxtemp &lt;= 100 | Topxtemp &lt;= 100)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;          If (Topxtemp &gt; 
    100)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;           
      Slope=(Topyloc-Botyloc)/(Topxtemp-Botxtemp)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;             
    b=Topyloc-Slope*Topxtemp<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
            Topyloc=Slope*100+b<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;             Topxloc=rxloc<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;          Endif<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;          If (Botxtemp &lt; 
    0)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;           
      Slope=(Topyloc-Botyloc)/(Topxtemp-Botxtemp)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;             
    b=Botyloc-Slope*Botxtemp<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
            Botyloc=b<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
                Botxloc=lxloc<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;          Else<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;             &quot;set strsiz 
    0.15&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;           
      &quot;draw string &quot; Botxloc-0.05 &quot; &quot; Botyloc-0.15 &quot; &quot; tloop<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;          Endif<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;          &quot;draw line &quot;Botxloc 
    &quot; &quot; Botyloc &quot; &quot; Topxloc &quot; &quot; Topyloc<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
          Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
      tloop=tloop+tempint<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    EndWhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   If (LblAxes = 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      &quot;set strsiz 
    0.15&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      &quot;set string 1 
    c&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      If (PageType = 
    &quot;Portrait&quot;)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;         
    &quot;draw string 4.0 0.35 Temperatura (`3.`0C)&quot;<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;         &quot;draw string 7.7 0.35 Viento m/s 
    &quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;      Else<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;         &quot;draw string 3.5 0.15 
    Temperatura (`3.`0C)&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
     Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   Endif<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt; Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Plot dry 
    adiabats<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; *------------------<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; If (DrawThet = 
    1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    temp=GetTemp(100,_pmin)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    maxtheta=GetThet2(temp,-100,_pmin)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    maxtheta=thetaint*int(maxtheta/thetaint)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      temp=GetTemp(0,_pmax)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    mintheta=GetThet2(temp,-100,_pmax)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    mintheta=thetaint*int(mintheta/thetaint)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set lon 0 
    100&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set y 1&quot;<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;   &quot;set z 1&quot;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    tloop=mintheta<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set line &quot;ThetCol&quot; 
    &quot;ThetLine &quot; &quot;ThetThk<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   While (tloop 
    &lt;= maxtheta)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;     
    PTemp=LiftDry(tloop,1000,_pmin,1,_pmin,_pmax)<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;     tloop=tloop+thetaint<br>&gt;&gt; &gt; &gt;&gt; 
    &gt;&gt;   Endwhile<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; * Plot mixing 
    ratio lines<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
    *------------------------<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt; If (DrawMix = 1)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt; 
      If (MixStop &lt; _pmin)<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
       MixStop = _pmin<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   
    Endif<br>&gt;&gt; &gt; &gt;&gt; &gt;&gt;   &quot;set string 1 l&quot;<br>&gt;&gt; 
    &gt; &gt;&gt; &gt;&gt;   &quot;set z &quot;_zmin &quot; &quot; _zmax<br>&gt;&gt; &gt; 
    &gt;&gt; &gt;&gt;   &quot;set cint 
  1&quot;<br>&gt;</div></div></blockquote></div><br>_______________________________________________<br>gradsusr 
  mailing list<br><a href="mailto:gradsusr@gradsusr.org" target="_blank">gradsusr@gradsusr.org</a><br><a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>
<br></blockquote></div><br></div><pre>***************************************************
The information contained in this e-mail message 
is intended only for the use of the recipient(s) 
named above and may contain information that is 
privileged, confidential, and/or proprietary. 
If you are not the intended recipient, you may not
review, copy or distribute this message. If you have
received this communication in error, please notify 
the sender immediately by e-mail, and delete the original message.
***************************************************

</pre></div>
<br>_______________________________________________<br>
gradsusr mailing list<br>
<a href="mailto:gradsusr@gradsusr.org">gradsusr@gradsusr.org</a><br>
<a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>
<br></blockquote></div><br>

<pre>***************************************************
The information contained in this e-mail message 
is intended only for the use of the recipient(s) 
named above and may contain information that is 
privileged, confidential, and/or proprietary. 
If you are not the intended recipient, you may not
review, copy or distribute this message. If you have
received this communication in error, please notify 
the sender immediately by e-mail, and delete the original message.
***************************************************