fix another typo

SamuelTrahanNOAA · Jul 28, 2023 · c0c253f · c0c253f
1 parent ace56af
commit c0c253f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/clm_lake.f90 b/physics/clm_lake.f90
@@ -736,7 +736,7 @@ SUBROUTINE clm_lake_run( &
 !                    uustar_ice(i) = uustar_water(i)           ! surface_friction_velocity_over_ice
                   endif
 
-                  tsurf_ice(i)  = t_grnd(i)                 ! surface_skin_temperature_after_iteration_over_ice
+                  tsurf_ice(i)  = t_grnd(c)                 ! surface_skin_temperature_after_iteration_over_ice
                   tisfc(i)      = t_grnd(c)                 ! surface_skin_temperature_over_ice
                   tsfc(i)       = t_grnd(c)                 ! surface_skin_temperature_over_ice
                   weasdi(i)     = h2osno(c)                 ! water_equivalent_accumulated_snow_depth_over_ice