diff --git a/src/common/m_boundary_common.fpp b/src/common/m_boundary_common.fpp index 6eb5383f75..1fe0d3e4f7 100644 --- a/src/common/m_boundary_common.fpp +++ b/src/common/m_boundary_common.fpp @@ -260,7 +260,7 @@ contains call s_symmetry(q_prim_vf, 3, 1, k, l, pb_in, mv_in, q_T_sf) case (BC_PERIODIC) call s_periodic(q_prim_vf, 3, 1, k, l, pb_in, mv_in, q_T_sf) - case (BC_SlIP_WALL) + case (BC_SLIP_WALL) call s_slip_wall(q_prim_vf, 3, 1, k, l, q_T_sf) case (BC_NO_SLIP_WALL) call s_no_slip_wall(q_prim_vf, 3, 1, k, l, q_T_sf) diff --git a/src/common/m_finite_differences.fpp b/src/common/m_finite_differences.fpp index 32075eb034..0bc85518ed 100644 --- a/src/common/m_finite_differences.fpp +++ b/src/common/m_finite_differences.fpp @@ -39,7 +39,7 @@ contains #ifdef MFC_POST_PROCESS if (allocated(fd_coeff_s)) deallocate (fd_coeff_s) - allocate (fd_coeff_s(-fd_number_in:fd_number_in,lb:lE)) + allocate (fd_coeff_s(-fd_number_in:fd_number_in,lB:lE)) #endif ! Computing the 1st order finite-difference coefficients diff --git a/toolchain/mfc/test/case.py b/toolchain/mfc/test/case.py index bfc4b1f9eb..befaba37c7 100644 --- a/toolchain/mfc/test/case.py +++ b/toolchain/mfc/test/case.py @@ -479,9 +479,9 @@ def create_input_lagrange(path_test): def copy_input_lagrange(path_example_input, path_test): folder_path_dest = path_test + "/input/" - fite_path_dest = folder_path_dest + "lag_bubbles.dat" + file_path_dest = folder_path_dest + "lag_bubbles.dat" file_path_src = common.MFC_EXAMPLE_DIRPATH + path_example_input + "/input/lag_bubbles.dat" if not os.path.exists(folder_path_dest): os.mkdir(folder_path_dest) - shutil.copyfile(file_path_src, fite_path_dest) + shutil.copyfile(file_path_src, file_path_dest)