update to remove_output_files.R
New list of directories:
dir.list<-c("CROSS_COAST", "CROSS_DRIFT", "CROSS_MOORED", "CROSS_PLAT", "MFILES_COAST", "MFILES_DRIFT", "MFILES_MOORED", "MFILES_NOTSHIP", "MFILES_PLAT", "MFILES_REJECT", "MFILES_RESEARCH", "MFILES_SHIP", "MFILES_TMP", "MFILES_SHIP_FINAL", "MFILES_SHIP_PROC", "MFILES_SUBMARINE", "PAIR_DUPFILES", "PAIRFILES", "TRACK_INPUT", "SHIP_CLEAN")