Small bugs

Author: DimAdam-01

src/common/m_chemistry.fpp

@@ -9,7 +9,8 @@
 module m_chemistry
 
     use m_thermochem, only: &
-        num_species, molecular_weights, get_temperature, get_net_production_rates
+        num_species, molecular_weights, get_temperature, get_net_production_rates, &
+        gas_constant
 
     use m_global_parameters
 
@@ -58,7 +59,7 @@ contains
 
     end subroutine s_compute_q_T_sf
 
-    subroutine s_compute_T_from_primitives(q_T_sf, q_cons_vf, idwint)
+    subroutine s_compute_T_from_primitives(q_T_sf, q_prim_vf, bounds)
 
         type(scalar_field), intent(inout) :: q_T_sf
         type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf

src/pre_process/m_initial_condition.fpp

@@ -195,7 +195,7 @@ contains
         ! Converting the primitive variables to the conservative ones
         call s_convert_primitive_to_conservative_variables(q_prim_vf, q_cons_vf)
 
-        if (chemistry) call s_compute_T_from_primitives(q_T_sf, q_cons_vf, idwint)
+        if (chemistry) call s_compute_T_from_primitives(q_T_sf, q_prim_vf, idwint)
 
         if (qbmm .and. .not. polytropic) then
             !Initialize pb and mv