LOOP
eras
TXT3 ----------------------------------------------------------------------
TXT4 YOU MUST SET THE LAYER YOU WISH TO ANALYZE BEFORE RUNNING THIS MACRO -
TXT5 IF YOU HAVE ALREADY SET THE LAYER, YOU MAY PROCEDE BY HITTING <RET>  -
TXT6 NOW.  IF NOT, TYPE "X" NOW AND SET THE LAYER (eg. SLYR 500 300), and -
TXT7 RE-EXECUTE THIS MACRO BY TYPING 0000. AT THE WINGRIDDS COMMAND LINE. -
TXT8 ----------------------------------------------------------------------
endl
LOOP
F00
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXT6 00-H FORECAST -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
TXT6 00-H FORECAST -
ENDL
LOOP
F12
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXT6 12-H FORECAST -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
TXT6 12-H FORECAST -
ENDL
LOOP
F24
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXT6 24-H FORECAST -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
TXT6 24-H FORECAST -
ENDL
LOOP
F36
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXT6 36-H FORECAST -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
TXT6 36-H FORECAST -
ENDL
LOOP
F48
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXT6 48-H FORECAST -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
TXT6 48-H FORECAST -
ENDL
