Merge pull request #600 from NCAR/mom6-eqv-test

mom6 model_mod .eqv. for logicals comparison
NCAR · Dec 13, 2023 · 99c6e58 · 99c6e58
2 parents 6774b60 + 73457ac
commit 99c6e58
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/models/MOM6/model_mod.f90 b/models/MOM6/model_mod.f90
@@ -327,7 +327,7 @@ subroutine model_interpolate(state_handle, ens_size, location, qty, expected_obs
 
 enddo FIND_LAYER
 
-if (any(found == .false.)) then
+if (any(found .eqv. .false.)) then
    istatus(:) = OBS_TOO_DEEP
    return
 endif