<p><b>laura@ucar.edu</b> 2011-05-24 13:31:25 -0600 (Tue, 24 May 2011)</p><p>corrected the initialization of the surface emissivity for sea-ice points. Initially, it was wrongly divided by a factor of 100 as is done for the initialization of the surface albedo.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_landuse.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_landuse.F        2011-05-24 16:56:23 UTC (rev 850)
+++ branches/atmos_physics/src/core_physics/module_physics_landuse.F        2011-05-24 19:31:25 UTC (rev 851)
@@ -231,7 +231,7 @@
     if(xice(iCell) .ge. xice_threshold) then
        xland(iCell)  = 1.0
        albbck(iCell) = albd(isice,isn) / 100.
-       embck(iCell)  = sfem(isice,isn) / 100.
+       embck(iCell)  = sfem(isice,isn)
        if(frac_seaice .eq. 1) then
           !0.08 is the albedo over open water.
           !0.98 is the emissivity over open water.

</font>
</pre>