Commits

Anonymous committed 1d5f185

Updated time step cut for general phase.

Comments (0)

Files changed (1)

src/pflotran/pm_general.F90

   
   fac = 0.5d0
   if (num_newton_iterations >= iacceleration) then
-    fac = 0.33d0
     umin = 0.d0
   else
     up = this%dPmax_allowable/(this%dPmax+0.1)