<p><b>laura@ucar.edu</b> 2012-08-28 15:14:48 -0600 (Tue, 28 Aug 2012)</p><p>changed the interpolation of the meteorological sea-ice fraction from a sixteen-point to a four-point interpolation. The sixteen-point interpolation yield the formation of tiny values of xice all over the oceans.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F        2012-08-28 17:45:11 UTC (rev 2130)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F        2012-08-28 21:14:48 UTC (rev 2131)
@@ -176,7 +176,8 @@
        destField1d =&gt; fg % xice % array
 
        !interpolation to the MPAS grid:
-       interp_list(1) = SIXTEEN_POINT
+       !interp_list(1) = SIXTEEN_POINT
+       interp_list(1) = FOUR_POINT
        interp_list(2) = FOUR_POINT
        interp_list(3) = W_AVERAGE4
        interp_list(4) = SEARCH

Modified: branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2012-08-28 17:45:11 UTC (rev 2130)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2012-08-28 21:14:48 UTC (rev 2131)
@@ -3800,7 +3800,8 @@
             else if (index(field % field, 'SEAICE') /= 0) then
 write(0,*) 'Interpolating SEAICE'
 
-               interp_list(1) = SIXTEEN_POINT
+               !interp_list(1) = SIXTEEN_POINT
+               interp_list(1) = FOUR_POINT
                interp_list(2) = FOUR_POINT
                interp_list(3) = W_AVERAGE4
                interp_list(4) = SEARCH

</font>
</pre>