update ice external tag

jtruesdal · Mar 7, 2024 · 5f7a485 · 5f7a485
1 parent 8851ffd
commit 5f7a485
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/Externals.cfg b/Externals.cfg
@@ -13,9 +13,9 @@ local_path = components/cice5
 required = True
 
 [cice6]
-tag = cesm_cice6_4_1_10_scamdev
+tag = cesm_cice6_5_0_7
 protocol = git
-repo_url = https://github.com/jtruesdal/CESM_CICE
+repo_url = https://github.com/ESCOMP/CESM_CICE
 local_path = components/cice
 externals = Externals.cfg
 required = True

diff --git a/src/dynamics/se/se_single_column_mod.F90 b/src/dynamics/se/se_single_column_mod.F90
@@ -47,7 +47,7 @@ subroutine scm_setinitial(elem)
 
   type(element_t), intent(inout) :: elem(:)
 
-  integer              :: k, levidx(1)
+  integer              :: k
   integer              :: inumliq, inumice, icldliq, icldice
 
   call scm_dyn_grid_indicies(elem,scmlat,scmlon,ie_scm,i_scm,j_scm,indx_scm)
@@ -62,8 +62,7 @@ subroutine scm_setinitial(elem)
     call cnst_get_ind('CLDICE', icldice)
 
     ! Find level where tobs is no longer zero
-    levidx=MINLOC(tobs, MASK = tobs /= 0._r8)
-    thelev=levidx(1)
+    thelev=minloc(abs(tobs), 1, mask=abs(tobs) > 0)
 
     if (get_nstep()  <=  1) then
        do k=1,thelev-1