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 - 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 CLRD BKNT 850 BKNT GRTN 0039 CLR3& temp cin2 clrc dash& temp grtn -001 lstn 0001 clr7& advt temp bknt clr5 dash& advt temp bknt grtn 1-10 clr9& 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& TXT4 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION - TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE - TXT6 00-H FORECAST - ENDL LOOP F12 CLRD BKNT 850 BKNT GRTN 0039 CLR3& temp cin2 clrc dash& temp grtn -001 lstn 0001 clr7& advt temp bknt clr5 dash& advt temp bknt grtn 1-10 clr9& 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& TXT4 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION - TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE - TXT6 12-H FORECAST - ENDL LOOP F24 CLRD BKNT 850 BKNT GRTN 0039 CLR3& temp cin2 clrc dash& temp grtn -001 lstn 0001 clr7& advt temp bknt clr5 dash& advt temp bknt grtn 1-10 clr9& 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& TXT4 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION - TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE - TXT6 24-H FORECAST - ENDL LOOP F36 CLRD BKNT 850 BKNT GRTN 0039 CLR3& temp cin2 clrc dash& temp grtn -001 lstn 0001 clr7& advt temp bknt clr5 dash& advt temp bknt grtn 1-10 clr9& 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& TXT4 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION - TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE - TXT6 36-H FORECAST - ENDL LOOP F48 CLRD BKNT 850 BKNT GRTN 0039 CLR3& temp cin2 clrc dash& temp grtn -001 lstn 0001 clr7& advt temp bknt clr5 dash& advt temp bknt grtn 1-10 clr9& 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& TXT4 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION - TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE - TXT6 48-H FORECAST - ENDL