fix: add back in small_fac parameter to constants .h files (#954)

NOAA-GFDL · Apr 11, 2022 · 7768ad1 · 7768ad1
1 parent af99d1e
commit 7768ad1
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 0 deletions.
diff --git a/constants/geos_constants.h b/constants/geos_constants.h
@@ -19,6 +19,8 @@
 
 character(len=18), public, parameter :: constants_version = 'FMSConstants: GEOS'
 
+!--- temporary definition for backwards compatibility
+real(kind=RKIND), public, parameter :: small_fac = 1._r8_kind
 
 !--- Spherical coordinate conversion constants
 real(kind=r8_kind), public, parameter :: PI_8 = 3.14159265358979323846_r8_kind  !< Ratio of circle circumference to diameter [N/A]

diff --git a/constants/gfdl_constants.h b/constants/gfdl_constants.h
@@ -19,6 +19,9 @@
 
 character(len=18), public, parameter :: constants_version = 'FMSConstants: GFDL'
 
+!--- temporary definition for backwards compatibility
+real(kind=RKIND), public, parameter :: small_fac = 1._r8_kind
+
 !--- Spherical coordinate conversion constants
 real(kind=r8_kind), public, parameter :: PI_8 = 3.14159265358979323846_r8_kind  !< Ratio of circle circumference to diameter [N/A]
 real(kind=RKIND),   public, parameter :: PI   = PI_8                            !< Ratio of circle circumference to diameter [N/A]

diff --git a/constants/gfs_constants.h b/constants/gfs_constants.h
@@ -19,6 +19,9 @@
 
 character(len=18), public, parameter :: constants_version = 'FMSConstants: GFS '
 
+!--- temporary definition for backwards compatibility
+real(kind=RKIND), public, parameter :: small_fac = 1._r8_kind
+
 !--- Spherical coordinate conversion constants
 real(kind=r8_kind), public, parameter :: PI_8 = 3.1415926535897931_r8_kind    !< Ratio of circle circumference to diameter [N/A]
 real(kind=RKIND),   public, parameter :: PI   = PI_8                          !< Ratio of circle circumference to diameter [N/A]