From d0762d5a2f7bf2c92ec61cda34d0b593bcf74f4b Mon Sep 17 00:00:00 2001
From: Spencer Clark <spencerkclark@gmail.com>
Date: Thu, 25 Jan 2024 19:58:14 +0000
Subject: [PATCH] Revert #302

---
 model/fv_mapz.F90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/model/fv_mapz.F90 b/model/fv_mapz.F90
index fa8c468d4..8952d23f8 100644
--- a/model/fv_mapz.F90
+++ b/model/fv_mapz.F90
@@ -2044,7 +2044,6 @@ subroutine cs_profile(qs, a4, delp, km, i1, i2, iv, kord)
        grat = delp(i,km-1) / delp(i,km)
        q(i,km) = ( 3.*(a4(1,i,k-1)+d4(i)*a4(1,i,k)) - grat*qs(i) - q(i,k-1) )/bet
        q(i,km+1) = qs(i)
-       gam(i,km) = d4(i) / bet
     enddo
 
   else ! all others