snow grain radius bug fix (#412)

CICE-Consortium · Nov 16, 2022 · 5bf584f · 5bf584f
1 parent 18fc1c9
commit 5bf584f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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