From c0c253f9fcec4c871b954533d912b1f3ec28b420 Mon Sep 17 00:00:00 2001 From: "samuel.trahan" Date: Fri, 28 Jul 2023 15:19:25 +0000 Subject: [PATCH] fix another typo --- physics/clm_lake.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/clm_lake.f90 b/physics/clm_lake.f90 index 844c4ce71..edd9e2bd5 100644 --- 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