diff --git a/CHANGELOG.md b/CHANGELOG.md
index 0897f394..8e4b7c5c 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -36,6 +36,7 @@ set to "-1" which means no use of this function.
 - Corrected the units of the gravimetric soil moisture to percent instead of fractional in the FENGSHA dust scheme.
 - Fix issue of GOCART/GEOSgcm circular CMake dependencies when used as external project
 - Fix UFS/Standalone CMake issue
+- Fix type of `k` in `SUvolcanicEmissions`
 
 ### Added
 
diff --git a/Process_Library/GOCART2G_Process.F90 b/Process_Library/GOCART2G_Process.F90
index db193d37..9351052d 100644
--- a/Process_Library/GOCART2G_Process.F90
+++ b/Process_Library/GOCART2G_Process.F90
@@ -5776,11 +5776,11 @@ subroutine SUvolcanicEmissions (nVolc, vStart, vEnd, vSO2, vElev, vCloud, iPoint
 ! 22July2020 E.Sherman
 !
 ! !Local Variables
-   integer  ::  i, j, it
+   integer  ::  i, j, k, it
    real, dimension(:,:,:), allocatable  :: emissions_point
    real :: so2volcano
 
-   real :: hup, hlow, dzvolc, dz, z1, k
+   real :: hup, hlow, dzvolc, dz, z1
    real :: deltaSO2v
    real, dimension(:,:), allocatable :: z0
    real, allocatable, dimension(:,:) :: srcSO2volc