From fa917667094154957fe466675ca0d5fc77e64a72 Mon Sep 17 00:00:00 2001 From: jatkinson1000 Date: Tue, 6 Aug 2024 03:21:05 -0600 Subject: [PATCH] Bugfix: misspelt variable name. --- src/physics/cam/gw_drag.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/physics/cam/gw_drag.F90 b/src/physics/cam/gw_drag.F90 index becf59a68b..a9cf446b05 100644 --- a/src/physics/cam/gw_drag.F90 +++ b/src/physics/cam/gw_drag.F90 @@ -1512,7 +1512,7 @@ subroutine gw_tend(state, pbuf, dt, ptend, cam_in, flx_heat) qtgw = qtgw_temp ttgw = ttgw_temp utgw = utgw_temp - vtgw = vygw_temp + vtgw = vtgw_temp end if end if @@ -1536,7 +1536,7 @@ subroutine gw_tend(state, pbuf, dt, ptend, cam_in, flx_heat) qtgw = qtgw_temp ! in the ml scheme there is no qtgw so use qtgw = 0.0 ttgw = ttgw_temp ! in the ml scheme there is no ttgw so use ttgw = 0.0 utgw = utgw_temp - vtgw = vygw_temp + vtgw = vtgw_temp ! in the ml scheme there is not egwdffi set, so use egwdffi = 0.0 end if end if