# # If elevation (zic) of surface MOTRUNC is less than elevation # of surface MONAME, reset zic of MONAME to zic of MOTRUNC # cmo / printatt / MONAME / zic / minmax cmo / addatt / MONAME / z_tmp / vdouble / scalar / nnodes math / sub / MONAME / z_tmp / 1 0 0 / & MOTRUNC / zic / MONAME / zic cmo / select / MONAME pset / preset / attribute / z_tmp / 1 0 0 / 0.0 / lt math / add / MONAME / zic / pset get preset / & MOTRUNC / zic / 0.0 cmo / DELATT / MONAME / z_tmp cmo / printatt / MONAME / zic / minmax finish