diff --git a/src/scattdata_header.F90 b/src/scattdata_header.F90 index b2c8ba3e3c..b04115e570 100644 --- a/src/scattdata_header.F90 +++ b/src/scattdata_header.F90 @@ -375,9 +375,6 @@ contains do mu = TWO * prn() - ONE f = this % calc_f(gin,gout,mu) -if (f > M) then -call fatal_error("Legendre exceeds Max Value!!!") -end if if (f > ZERO) then u = prn() * M if (u <= f) then