compile catch/fix for se_single_column_mod

jtruesdal · Mar 5, 2024 · 53300de · 53300de
1 parent 91af07d
commit 53300de
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/dynamics/se/se_single_column_mod.F90 b/src/dynamics/se/se_single_column_mod.F90
@@ -47,8 +47,8 @@ subroutine scm_setinitial(elem)
 
   type(element_t), intent(inout) :: elem(:)
 
-  integer              :: levidx(1)
-  integer              :: inumliq, inumice, icldliq, icldice, levidx(1)
+  integer              :: k, levidx(1)
+  integer              :: inumliq, inumice, icldliq, icldice
 
   call scm_dyn_grid_indicies(elem,scmlat,scmlon,ie_scm,i_scm,j_scm,indx_scm)