Increase precision of MPAS-O standalone pi

Co-authored-by: Xylar Asay-Davis <xylarstorm@gmail.com>
E3SM-Project · Jul 1, 2024 · 83c5a22 · 83c5a22
1 parent e4dc8a1
commit 83c5a22
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)