read / avs / cmo_settet.inp / cmo
*
* Tweek the data structure to be sure imt and itp
* are set correctly and that interface has parent/child
* point data structure.
*
settets/newtets
settets/color_points
resetpts itp
settets                                                                 
resetpts itp
dump / gmv / tmp.gmv / cmo
*---------------------------
*
* Identify nodes on the material interface and
* run refine command so that only elements near the
* interface are candidates for refine.
*
* Do this in an iterative way so that just the interface
* is refined. If the first time we set LENGTH_REF to a
* small value, then the refine would propogate out into
* the volume rather than be confined to the zone near the
* fault.
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 6000.
infile / refine_command.lgi

define / OUT_gmv / refine_interface1.gmv
define / OUT_avs / refine_interface1.inp
infile rm_parent_child_output.lgi
*---------------------------
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 4000.
infile / refine_command.lgi

define / OUT_gmv / refine_interface2.gmv
define / OUT_avs / refine_interface2.inp
infile rm_parent_child_output.lgi
*---------------------------
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 3000.
infile / refine_command.lgi

define / OUT_gmv / refine_interface3.gmv
define / OUT_avs / refine_interface3.inp
infile rm_parent_child_output.lgi
*---------------------------
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 2400.
infile / refine_command.lgi

define / OUT_gmv / refine_interface4.gmv
define / OUT_avs / refine_interface4.inp
infile rm_parent_child_output.lgi
*---------------------------
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 2000.
infile / refine_command.lgi

define / OUT_gmv / refine_interface5.gmv
define / OUT_avs / refine_interface5.inp
infile rm_parent_child_output.lgi
*---------------------------
*
* Refine elements along the material interface.
*
define / LENGTH_REF / 1800.
infile / refine_command.lgi

define / OUT_gmv / refine_interface6.gmv
define / OUT_avs / refine_interface6.inp
infile rm_parent_child_output.lgi

finish