<p><b>duda</b> 2011-04-29 17:51:50 -0600 (Fri, 29 Apr 2011)</p><p>BRANCH COMMIT<br>
<br>
In non-hydrostatic real-data initialization, handle the case <br>
where first guess data are given on a Gaussian grid.<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-04-29 18:46:19 UTC (rev 810)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-04-29 23:51:50 UTC (rev 811)
@@ -3149,6 +3149,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
 
 

</font>
</pre>