fix compiling error for gnu

ufs-community · Dec 19, 2023 · 8941516 · 8941516
1 parent 2ceb88b
commit 8941516
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/clm_lake.f90 b/physics/clm_lake.f90
@@ -757,7 +757,7 @@ SUBROUTINE clm_lake_run( &
                   snowd(i)      = snodi(c)                  ! surface_snow_thickness_water_equivalent_over_ice
 
 
-                  if (icy(i) .eq. .false.) then
+                  if (.not. icy(i)) then
                      lake_freeze(i)=.true.
                   end if