From 8851ffde26d8c8d58ace4f806c72cbdf403d2764 Mon Sep 17 00:00:00 2001 From: John Truesdale Date: Tue, 5 Mar 2024 18:31:07 -0700 Subject: [PATCH] bugfix for new minloc replacement for loop with exit --- src/dynamics/se/se_single_column_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dynamics/se/se_single_column_mod.F90 b/src/dynamics/se/se_single_column_mod.F90 index 9d9090dea2..b45166dd6d 100644 --- 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