FDS Source: reduce size of qref arrays

Author: drjfloyd

Source/func.f90

@@ -2907,16 +2907,16 @@ REAL(EB) FUNCTION Q_REF_FIT(HRRPUA,HOC,Y_S,CHI_R,Q_INC)
    DEF_QREF_ARRAYS = .TRUE.
 ENDIF
 
-I_HRRPUA = MIN(29,INT(HRRPUA*0.00001_EB))
-F_HRRPUA = MIN(30._EB,HRRPUA*0.00001_EB) - REAL(I_HRRPUA,EB)
+I_HRRPUA = MIN(14,INT(HRRPUA*0.000005_EB))
+F_HRRPUA = MIN(15._EB,HRRPUA*0.000005_EB) - REAL(I_HRRPUA,EB)
 IF (F_HRRPUA < TWO_EPSILON_EB) THEN
    Q_REF_FIT = Q_INC
    RETURN
 ENDIF
 I_HOC = MIN(4,MAX(1,INT(HOC*1.E-7_EB)))
 F_HOC = MIN(5._EB,MAX(1._EB,HOC*1.E-7_EB)) - REAL(I_HOC,EB)
-I_Y_S = MIN(19,INT(Y_S*100._EB))
-F_Y_S = MIN(20._EB,Y_S*100._EB) - REAL(I_Y_S,EB)
+I_Y_S = MIN(9,INT(Y_S*50._EB))
+F_Y_S = MIN(10._EB,Y_S*50._EB) - REAL(I_Y_S,EB)
 I_CHI_R = MIN(5,INT(CHI_R*10_EB))
 F_CHI_R = MIN(6._EB,CHI_R*10_EB) - REAL(I_CHI_R,EB)