Update global_cycle to use the latest CCPP version of sfcsub.F (#671)

GeorgeGayno-NOAA · web-flow · commit 460bf89df15a · 2022-08-24T10:57:37.000-04:00
Fixes #670.
diff --git a/ccpp-physics b/ccpp-physics
@@ -1 +1 @@
-Subproject commit 3405ff171d7fa55d6aa7fb45b316146516c6e3ca
+Subproject commit 12c115e992d3a265eaaa67d72fcbdb3a6f21195f
diff --git a/sorc/global_cycle.fd/machine.f90 b/sorc/global_cycle.fd/machine.f90
@@ -8,8 +8,12 @@ MODULE MACHINE
 
  IMPLICIT NONE
  SAVE
- integer, parameter :: kind_io4  = 4 !< Kind type for 4-byte float point
-                                     !! variables.
- integer, parameter :: kind_io8  = 8 !< Kind type for 8-byte float point
-                                     !! variables.
+ integer, parameter :: kind_sngl_prec  = 4 !< Kind type for 4-byte float point
+                                           !! variables.
+ integer, parameter :: kind_io4  = kind_sngl_prec !< Kind type for 4-byte float point
+                                                  !! variables.
+ integer, parameter :: kind_dbl_prec  = 8 !< Kind type for 8-byte float point
+                                          !! variables.
+ integer, parameter :: kind_io8  = kind_dbl_prec !< Kind type for 8-byte float point
+                                          !! variables.
  END MODULE MACHINE
