bugfix for new minloc replacement for loop with exit

jtruesdal · Mar 6, 2024 · 8851ffd · 8851ffd
1 parent 36e8f4b
commit 8851ffd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/dynamics/se/se_single_column_mod.F90 b/src/dynamics/se/se_single_column_mod.F90
@@ -62,7 +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)
+    levidx=MINLOC(tobs, MASK = tobs /= 0._r8)
     thelev=levidx(1)
 
     if (get_nstep()  <=  1) then