From 5bf584f6b7f76d64d64db3965407c8ca216b1329 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Wed, 16 Nov 2022 08:47:06 -0700 Subject: [PATCH] snow grain radius bug fix (#412) --- columnphysics/icepack_shortwave.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 4a6e34c28..1063c4b29 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -3592,7 +3592,7 @@ subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & do ks = 1, nslyr rsnw(ks) = max(rsnw_fall,rsnow(ks)) - rsnw(ks) = min(rsnw_tmax,rsnow(ks)) + rsnw(ks) = min(rsnw_tmax,rsnw (ks)) rhosnw(ks) = rhos enddo