minor fix

Author: Hyeoksu Lee

examples/3D_turb_mixing/turbulence_stat/run_turbulence.m

@@ -531,7 +531,7 @@ function plot_Reynolds_stress(ruu, rvv, rww, ruv, y_norm_vth, timestep)
 % Plot TKE budget
 function plot_tke_budget(T, P, D, y_norm_mth, mth, timestep)
 
-    % Normalizaiton
+    % Normalization
     T = T / (8/mth);    % T / (Delta U^3 / mth)
     P = P / (8/mth);    % P / (Delta U^3 / mth)
     D = D / (8/mth);    % D / (Delta U^3 / mth)

src/pre_process/m_perturbation.fpp

@@ -260,7 +260,7 @@ contains
 
     ! Generate a random unit vector (spherical distribution)
     function f_unit_vector(theta, eta) result(vec)
-        real(wp) :: theta, eta
+        real(wp), intent(in) :: theta, eta
         real(wp), dimension(3) :: vec
 
         theta = 2.0_wp*pi*theta