From b7f244e550c9fdd0b4275093758fc928a389370f Mon Sep 17 00:00:00 2001 From: Caitlyn Mcallister Date: Wed, 16 Aug 2023 12:03:02 -0400 Subject: [PATCH] dont need it --- astronomy/astronomy.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/astronomy/astronomy.F90 b/astronomy/astronomy.F90 index 5cf5063582..c133cbde22 100644 --- a/astronomy/astronomy.F90 +++ b/astronomy/astronomy.F90 @@ -498,7 +498,7 @@ subroutine astronomy_init (latb, lonb) !--------------------------------------------------------------------- !> Define useful module variables. !---------------------------------------------------------------------- - twopi = 2.0_r8_kind * real(PI, r8_kind) + twopi = 2.0_r8_kind * PI deg_to_rad = twopi/360.0_r8_kind !---------------------------------------------------------------------