LOOP
SLYR 500 300
I296
ADVT PRES BKNT CLR4 DASH
ADVT PRES BKNT GRTN  1-5 CLR4&
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 KEPV&
TXT4 296K ISENTROPIC SURFACE                                -
TXT5 PRESSURE ADVECTION / 500-300 LAYER Q-VECTOR DIVERGENCE -
ENDL