Revert "rhs_maker"

This reverts commit 43b61c9.
ExtremeFLOW · Dec 4, 2023 · c16adce · c16adce
1 parent 43b61c9
commit c16adce
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/common/rhs_maker.f90 b/src/common/rhs_maker.f90
@@ -111,7 +111,7 @@ subroutine rhs_maker_bdf(ulag, vlag, wlag, bfx, bfy, bfz, &
        import rp
        integer, intent(in) :: n, nbd
        type(field_t), intent(in) :: u, v, w
-       type(field_series_t), intent(in) :: ulag, vlag, wlag
+       type(field_series_t), intent(in) :: ulag, vlag, wlag        
        real(kind=rp), intent(inout) :: bfx(n), bfy(n), bfz(n)
        real(kind=rp), intent(in) :: B(n)
        real(kind=rp), intent(in) :: dt, rho, bd(4)

diff --git a/src/common/rhs_maker_fctry.f90 b/src/common/rhs_maker_fctry.f90
@@ -86,7 +86,7 @@ subroutine rhs_maker_bdf_fctry(makebdf)
        allocate(rhs_maker_bdf_sx_t::makebdf)
     else if (NEKO_BCKND_DEVICE .eq. 1) then
        allocate(rhs_maker_bdf_device_t::makebdf)
-    else
+    else       
        allocate(rhs_maker_bdf_cpu_t::makebdf)
     end if