diff --git a/astronomy/astronomy.F90 b/astronomy/astronomy.F90 index 192fc8f22a..68b294121a 100644 --- a/astronomy/astronomy.F90 +++ b/astronomy/astronomy.F90 @@ -636,7 +636,7 @@ subroutine set_orbital_parameters (ecc_in, obliq_in, per_in) if (ecc_in < 0.0 .or. ecc_in > 0.99) & call error_mesg ('astronomy_mod', & 'ecc must be between 0 and 0.99', FATAL) - if (obliq_in < -90.0 .or. obliq > 90.0) & + if (obliq_in < -90.0 .or. obliq_in > 90.0) & call error_mesg ('astronomy_mod', & 'obliquity must be between -90. and 90. degrees', FATAL) if (per_in < 0.0 .or. per_in > 360.0) &