@@ -88,7 +88,7 @@ END SUBROUTINE UPDATE_GLOBAL_OUTPUTS
8888SUBROUTINE DUMP_MESH_OUTPUTS (T ,DT ,NM )
8989
9090USE COMP_FUNCTIONS, ONLY : CURRENT_TIME
91- USE TURBULENCE, ONLY: SANDIA_OUT, SPECTRAL_OUTPUT
91+ USE TURBULENCE, ONLY: SANDIA_OUT
9292REAL (EB) :: TNOW
9393REAL (EB), INTENT (IN ) :: T,DT
9494INTEGER , INTENT (IN ) :: NM
@@ -539,9 +539,7 @@ END SUBROUTINE ASSIGN_FILE_NAMES
539539SUBROUTINE INITIALIZE_GLOBAL_DUMPS (T ,DT )
540540
541541USE COMP_FUNCTIONS, ONLY: CURRENT_TIME,GET_FILE_NUMBER,APPEND_FILE
542- USE PHYSICAL_FUNCTIONS, ONLY: GET_MASS_FRACTION_ALL,GET_MOLECULAR_WEIGHT
543542USE HVAC_ROUTINES, ONLY: N_DUCT_QUANTITY,N_NODE_QUANTITY
544- USE CONTROL_VARIABLES
545543REAL (EB) :: TNOW
546544REAL (EB), INTENT (IN ) :: T,DT
547545INTEGER :: NN,I,N,N_OUT,N_ZONE_TMP,LU,J, N_NODE_OUT, N_DUCT_OUT, NS
@@ -7283,7 +7281,7 @@ REAL(EB) RECURSIVE FUNCTION GAS_PHASE_OUTPUT(T,DT,NM,II,JJ,KK,IND,IND2,Y_INDEX,Z
72837281 PROP_INDEX,REAC_INDEX,MATL_INDEX,ICC_IN,JCC_IN) RESULT(GAS_PHASE_OUTPUT_RES)
72847282
72857283USE MEMORY_FUNCTIONS, ONLY: REALLOCATE
7286- USE MATH_FUNCTIONS, ONLY: INTERPOLATE1D,INTERPOLATE1D_UNIFORM,EVALUATE_RAMP, UPDATE_HISTOGRAM
7284+ USE MATH_FUNCTIONS, ONLY: INTERPOLATE1D,INTERPOLATE1D_UNIFORM,UPDATE_HISTOGRAM
72877285USE PHYSICAL_FUNCTIONS, ONLY: GET_MASS_FRACTION,FED,FIC,GET_SPECIFIC_HEAT,RELATIVE_HUMIDITY, &
72887286 GET_CONDUCTIVITY,GET_MOLECULAR_WEIGHT,GET_MASS_FRACTION_ALL,GET_ENTHALPY,GET_SENSIBLE_ENTHALPY, &
72897287 GET_VISCOSITY,GET_POTENTIAL_TEMPERATURE,GET_SPECIFIC_GAS_CONSTANT,&
0 commit comments