global ptp_file_name
global mom_output_file_directory
global mom_output_file_basename
global mom_output_file_suffix
global program_description
set tmp_file_name "${ptp_file_name}_"
if {[file exists $tmp_file_name]} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
MOM_open_output_file $ptp_file_name
set mom_output_file_directory "D:\\AA\\"
MOM_output_literal "This is the output dir $mom_output_file_directory"
set ptp_file_name "${mom_output_file_directory}${program_description}.${mom_output_file_suffix}"
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name w]
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
}