fix open bug

example/Workflow/HelperFunctions.R

@@ -17,12 +17,14 @@ ReadSubphase<-function(PATH){
 ReadTimelog<-function(PATH){
 	FILE=paste0(PATH,"/timelog.csv")
 	D<-read.csv(file=FILE,head=TRUE,sep=" ")
+	D$time<-seq(0,nrow(D))
 	return(D)
 }
 
 ReadRelperm<-function(PATH){
 	FILE=paste0(PATH,"/relperm.csv")
 	D<-read.csv(file=FILE,head=TRUE,sep=" ")
+	D$Case<-PATH
 
 	p<-ggplot(D)+
 	  geom_line(aes(sat.water,eff.perm.oil,color="oil"))+

models/ColorModel.cpp

@@ -735,7 +735,7 @@ void ScaLBL_ColorModel::Run(){
 				}
 				else if (USE_MORPHOPEN_OIL){
 					if (rank==0) printf("***Morphological opening of connected oil, with target volume change ***\n", delta_volume_target);
-					MorphologicalOpening(delta_volume_target);
+					MorphOpenConnected(delta_volume_target);
 				}
 				else{
 					if (rank==0) printf("***Morphological step with target volume change %f ***\n", delta_volume_target);