fix likely mpi hang

This commit is contained in:
James E McClure 2019-05-01 21:16:13 -04:00
parent 3cdc9d84b6
commit 3957ea376f

View File

@ -689,9 +689,7 @@ void ScaLBL_ColorModel::Run(){
fclose(kr_log_file);
printf(" Measured capillary number %f \n ",Ca);
CURRENT_STEADY_TIMESTEPS = 0;
}
if (SET_CAPILLARY_NUMBER ){
Fx *= capillary_number / Ca;
Fy *= capillary_number / Ca;
@ -710,6 +708,7 @@ void ScaLBL_ColorModel::Run(){
if (rank == 0) printf(" -- adjust force by factor %f \n ",capillary_number / Ca);
Averages->SetParams(rhoA,rhoB,tauA,tauB,Fx,Fy,Fz,alpha,beta);
}
CURRENT_STEADY_TIMESTEPS = 0;
}
else{
if (rank==0){