<p><b>duda</b> 2011-11-04 08:29:54 -0600 (Fri, 04 Nov 2011)</p><p>BRANCH COMMIT<br>
<br>
Handle Gaussian projection for SEAICE field in surface update file creation in initialization core.<br>
<br>
<br>
M    src/core_init_nhyd_atmos/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-11-03 23:18:42 UTC (rev 1167)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-11-04 14:29:54 UTC (rev 1168)
@@ -4277,6 +4277,13 @@
                                knownj = 1.0, &amp;
                                lat1 = real(field % startlat), &amp;
                                lon1 = real(field % startlon))
+               else if (field % iproj == PROJ_GAUSS) then
+                  call map_set(PROJ_GAUSS, proj, &amp;
+                               nlat = nint(field % deltalat), &amp;
+                               loninc = real(field % deltalon), &amp;
+                               lat1 = real(field % startlat), &amp;
+                               lon1 = real(field % startlon))
+!                               nxmax = nint(360.0 / field % deltalon), &amp;
                end if
    
                ! Interpolate SEAICE/SKINTEMP field to each MPAS grid cell

</font>
</pre>