fixed temporaly until using full yaeos

ipqa-research · Feb 7, 2024 · ecd079b · ecd079b
1 parent e95ced9
commit ecd079b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/new/mod_inj_envelopes.f90 b/src/new/mod_inj_envelopes.f90
@@ -1095,7 +1095,8 @@ type(EquilibriaState) function hpl_alpha_pressure(n, t, p0, a0, y0, max_inner_it
       use saturation_points, only: EquilibriaState
       use envelopes, only: k_wilson
       use stdlib_optval, only: optval
-      use legacy_ar_models, only: nc, termo
+      use legacy_ar_models, only: nc
+      use legacy_thermo_properties, only: termo
       real(pr), intent(in) :: n(:) !! Composition vector [moles / molar fraction]
       real(pr), intent(in) :: t !! Temperature [K]
       real(pr), intent(in) :: p0 !! Pressure [bar]

diff --git a/src/phase_equilibria/mod_phase_equilibria.f90 b/src/phase_equilibria/mod_phase_equilibria.f90
@@ -1,6 +1,7 @@
 module saturation_points
    use constants, only: pr
-   use legacy_ar_models, only: termo, nc
+   use legacy_ar_models, only: nc
+   use legacy_thermo_properties, only: termo
    use envelopes, only: k_wilson
    implicit none