Update to use latest version of sfcsub.F

Fixes ufs-community#670.
GeorgeGayno-NOAA · Jul 20, 2022 · 365c1b9 · 365c1b9
1 parent a567090
commit 365c1b9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/ccpp-physics b/ccpp-physics
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