LOOP
CONT SMLT DSDX SNEG DSDY HGHT LAVE DSDX HGHT LDIF
CONT SSUM SMLT DSDX DSDX HGHT LAVE DSDY HGHT LDIF
CONT SMLT DSDY SNEG DSDY HGHT LAVE DSDX HGHT LDIF
CONT SSUM SMLT DSDY DSDX HGHT LAVE DSDY HGHT LDIF
CONT DOTP FLUX INVS MGRD HGHT LDIF GRAD HGHT LDIF
CONT SMLC 98.0 SMLC 1079 SMLC 1894 SMLC -1-4 SMLC 1+10
CLR4 DASH LSTN -0.1 LAST
CLR5 GRTN +0.1 LAST/
TXTS Geostrophic Frontogenesis Function [ 10^-10 K/m/s ]           .
TXTT E. Thaler (SOO WSFO DEN)
ENDL
