You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Copy file name to clipboardExpand all lines: src/simulation/m_checker.fpp
-9Lines changed: 0 additions & 9 deletions
Original file line number
Diff line number
Diff line change
@@ -36,7 +36,6 @@ contains
36
36
elseif (recon_type == MUSCL_TYPE) then
37
37
call s_check_inputs_muscl
38
38
end if
39
-
call s_check_inputs_geometry_precision
40
39
end if
41
40
42
41
call s_check_inputs_time_stepping
@@ -76,14 +75,6 @@ contains
76
75
"For 3D simulation, p must be greater than or equal to (num_stcls_min*muscl_order - 1), whose value is "//trim(numStr))
77
76
endsubroutine s_check_inputs_muscl
78
77
79
-
!> Checks constraints on geometry and precision
80
-
impuresubroutines_check_inputs_geometry_precision
81
-
! Prevent spherical geometry in single precision
82
-
#ifdef MFC_SINGLE_PRECISION
83
-
@:PROHIBIT(.not. (cyl_coord .neqv..true..or. (cyl_coord .and. p == 0)), "Fully 3D cylindrical grid (geometry = 3) is not supported in single precision.")
0 commit comments