Skip to content

Commit

Permalink
Removing limitation to swabs for thin snow layers from cesm (old) sho…
Browse files Browse the repository at this point in the history
…rtwave option.
  • Loading branch information
eclare108213 committed Oct 30, 2013
1 parent b8eeee8 commit e1b82ff
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion source/ice_shortwave.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit e1b82ff

Please sign in to comment.