From 6181de95eee40626b8ca39928fee80dda61b0b24 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Mon, 12 Aug 2024 21:10:05 -0400 Subject: [PATCH] fix bug in scm_vgrid.F90 related to sing-prec changes --- scm/src/scm_vgrid.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scm/src/scm_vgrid.F90 b/scm/src/scm_vgrid.F90 index e492824f..ca7a4ca6 100644 --- a/scm/src/scm_vgrid.F90 +++ b/scm/src/scm_vgrid.F90 @@ -553,7 +553,7 @@ subroutine get_FV3_vgrid(scm_input, scm_state) do k=1, km+1 pres_i(:,k) = scm_state%a_k(k) + scm_state%b_k(k)*p_ref scm_state%si(:,k) = scm_state%a_k(k)*pres_sfc_inv + scm_state%b_k(k) - scm_state%exner_i(:,k) = (scm_state%pres_i(:,k)/1.0E5)**con_rocp + scm_state%exner_i(:,k) = (pres_i(:,k)/1.0E5)**con_rocp end do scm_state%pres_i = pres_i