LOOP
F00
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
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
TXT5 00-H FORECAST -
ENDL
LOOP
F12
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
TXT5 12-H FORECAST -
ENDL
LOOP
F24
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
TXT5 24-H FORECAST -
ENDL
LOOP
F36
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
TXT5 36-H FORECAST -
ENDL
LOOP
F48
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
TXT5 48-H FORECAST -
ENDL
