Merge pull request #302 from spencerkclark/fix-uninitialized-field

Fix uninitialized values in `cs_profile` when `iv == -3`
NOAA-GFDL · Oct 25, 2023 · 199358c · 199358c
2 parents e94dc4b + 8f9bece
commit 199358c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/model/fv_mapz.F90 b/model/fv_mapz.F90
@@ -2044,6 +2044,7 @@ 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