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
PMSL CIN2 
CLRA
BKNT 1000& 
BKNT GRTN 0024 CLR2&
CLRD
BKNT 850&
BKNT GRTN 0039 CLR3&
CLRE
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 CLR9&
TXT4 MEAN SEA LEVEL PRESSURE (PMSL - MB)/1000 WIND (brown)/850 Wind (green) -
TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE                     -
ENDL
