From b3c8342d89983b960c3f7f8d1116c2fe451c3efd Mon Sep 17 00:00:00 2001 From: Carolyn Begeman Date: Mon, 1 Jul 2024 13:50:46 -0600 Subject: [PATCH] Increase precision of MPAS-O standalone pi Co-authored-by: Xylar Asay-Davis --- components/mpas-ocean/src/shared/mpas_ocn_constants.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/mpas-ocean/src/shared/mpas_ocn_constants.F b/components/mpas-ocean/src/shared/mpas_ocn_constants.F index 08b70dce3777..dd3214d8d4fc 100644 --- a/components/mpas-ocean/src/shared/mpas_ocn_constants.F +++ b/components/mpas-ocean/src/shared/mpas_ocn_constants.F @@ -118,7 +118,7 @@ subroutine ocn_constants_init(configPool, packagePool)!{{{ !----------------------------------------------------------------------- T0_Kelvin = 273.16_RKIND ! zero point for Celsius - pi = 3.141592_RKIND ! pi + pi = 3.14159265358979323846_RKIND ! pi rho_air = 1.2_RKIND ! ambient air density (kg/m^3) rho_sw = config_density0 ! density of salt water (kg/m^3) rho_fw = 1.0e3_RKIND ! avg. water density (kg/m^3)