<p><b>duda</b> 2011-09-16 10:39:49 -0600 (Fri, 16 Sep 2011)</p><p>BRANCH COMMIT<br>
<br>
Add code to handle Gaussian projections for SST and SKINTEMP fields in<br>
test case for creating surface update files.<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-09-16 16:20:35 UTC (rev 1003)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-09-16 16:39:49 UTC (rev 1004)
@@ -4084,6 +4084,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 SST/SKINTEMP field to each MPAS grid cell

</font>
</pre>