1 MODULE ur_facs 2 3 use param, only: DIM_EQS 4 5 ! Under relaxation factors 6 DOUBLE PRECISION :: UR_FAC(DIM_EQS) 7 8 ! Under relaxation factors for coefficient update: 9 ! [0] every time step (explicit) 10 ! [1] every iteration (implicit) 11 ! (0,1) underrelaxed 12 13 ! Note that these values need to be temporarily set to 1 before the calc_coeff 14 ! call in time_march. And after the call reset to their original value. 15 16 ! Under relaxation factor for gas-solids drag coefficient 17 DOUBLE PRECISION :: UR_F_gs 18 19 ! Under relaxation factor for conductivity coefficient associated with 20 ! other solid phases for IA theory 21 DOUBLE PRECISION :: UR_kth_sml 22 23 END MODULE ur_facs 24