Merge pull request #288 from zmoon/k-int

Set `k` in `SUvolcanicEmissions` to be integer
GEOS-ESM · Sep 27, 2024 · b13cdb7 · b13cdb7
2 parents b07e2d3 + 9409a8f
commit b13cdb7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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