From e1b82ff365f9380b63374efafbcc6e7d42436c0b Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Wed, 30 Oct 2013 18:03:17 +0000 Subject: [PATCH] Removing limitation to swabs for thin snow layers from cesm (old) shortwave option. --- source/ice_shortwave.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/source/ice_shortwave.F90 b/source/ice_shortwave.F90 index 387931c..a70361c 100644 --- a/source/ice_shortwave.F90 +++ b/source/ice_shortwave.F90 @@ -952,7 +952,6 @@ subroutine absorbed_solar (nx_block, ny_block, & + (c1-alidfns(i,j))*asnow ) swabs = swabsv + swabsi - if (hs <= hs_min) swabs = c0 fswpenvdr = swvdr(i,j) * (c1-alvdrni(i,j)) * (c1-asnow) * i0vis fswpenvdf = swvdf(i,j) * (c1-alvdfni(i,j)) * (c1-asnow) * i0vis