Jose's change + Misc

MFlowCode · Apr 4, 2024 · f7e2a5f · f7e2a5f
1 parent 26a22f7
commit f7e2a5f
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/pre_process/m_checker.f90 b/src/pre_process/m_checker.f90
@@ -172,12 +172,10 @@ subroutine s_check_inputs()
                     .or. &
                     (y_domain%beg /= dflt_real .or. y_domain%end /= dflt_real) &
                     .or. &
-                    (y_domain%beg /= dflt_real .or. y_domain%end /= dflt_real))
-then
+                    (y_domain%beg /= dflt_real .or. y_domain%end /= dflt_real)) then
                     call s_mpi_abort('domain are not dflt_real.'// &
                                      'Please, correct them')
-                elseif (m == dflt_int .or. n == dflt_int .or. p == dflt_int)
-then
+                elseif (m == dflt_int .or. n == dflt_int .or. p == dflt_int) then
                     call s_mpi_abort('m, n, and/or p are set to dflt_int.'// &
                                      'Please, correct them')
                 end if