LOOP
CONT SNEG SSUM SMLT DSDX XCMP GEOS DSDX TEMP SMLT DSDX YCMP GEOS DSDY TEMP
SNEG SSUM SMLT DSDY XCMP GEOS DSDX TEMP SMLT DSDY YCMP GEOS DSDY TEMP
SMLC 1.+6 SMLT INVS MGRD TEMP DOTP GRAD TEMP LSTV DNEG C1-9&
TXT2 Geostrophic Frontogentical Forcing Function
ENDL
