From 365c1b92caaa3a19fb5a49ce91ddaf8a08da6e08 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Wed, 20 Jul 2022 19:27:52 +0000 Subject: [PATCH] Update to use latest version of sfcsub.F Fixes #670. --- ccpp-physics | 2 +- sorc/global_cycle.fd/machine.f90 | 12 ++++++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/ccpp-physics b/ccpp-physics index 3405ff171..12c115e99 160000 --- 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 index 99ef6e4c4..24981d664 100755 --- 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