ur_facs_mod.f

Go to the documentation of this file.

      MODULE ur_facs

      use param, only: dim_eqs

! Under relaxation factors
      DOUBLE PRECISION :: ur_fac(dim_eqs)

! Under relaxation factors for coefficient update:
!  [0]  every time step (explicit)
!  [1]  every iteration (implicit)
! (0,1) underrelaxed

! Note that these values need to be temporarily set to 1 before the calc_coeff
! call in time_march.  And after the call reset to their original value.

! Under relaxation factor for gas-solids drag coefficient
      DOUBLE PRECISION :: ur_f_gs

! Under relaxation factor for conductivity coefficient associated with
! other solid phases for IA theory
      DOUBLE PRECISION :: ur_kth_sml

      END MODULE ur_facs