Skip to content

Commit

Permalink
Longer error string in get_polynomial_coordinate
Browse files Browse the repository at this point in the history
  Lengthened a message string in get_polynomial_coordinate so that it will give
a valid fatal error message in some cases of failures rather than resulting a
segmentation fault with no message output.  All answers are bitwise identical.
  • Loading branch information
Hallberg-NOAA committed Aug 15, 2021
1 parent a2df3b7 commit db43b35
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/ALE/regrid_interp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -373,7 +373,7 @@ function get_polynomial_coordinate( N, h, x_g, edge_values, ppoly_coefs, &
real :: grad ! gradient during N-R iterations [A]
integer :: i, k, iter ! loop indices
integer :: k_found ! index of target cell
character(len=200) :: mesg
character(len=320) :: mesg
logical :: use_2018_answers ! If true use older, less acccurate expressions.

eps = NR_OFFSET
Expand Down

0 comments on commit db43b35

Please sign in to comment.