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