<p><b>duda</b> 2012-07-24 17:51:35 -0600 (Tue, 24 Jul 2012)</p><p>BRANCH COMMIT<br>
<br>
Add namelist parameter config_planet_scale to control the <br>
scaling of the sphere radius defined in mpas_constants.F.<br>
<br>
NB: We still need to actually make use of the scaled radius,<br>
mesh % sphere_radius, in the code!<br>
<br>
<br>
M    src/core_init_nhyd_atmos/Registry<br>
M    src/core_init_nhyd_atmos/mpas_init_atm_mpas_core.F<br>
M    namelist.input.init_nhyd_atmos<br>
</p><hr noshade><pre><font color="gray">Modified: branches/dcmip/namelist.input.init_nhyd_atmos
===================================================================
--- branches/dcmip/namelist.input.init_nhyd_atmos        2012-07-24 22:44:38 UTC (rev 2053)
+++ branches/dcmip/namelist.input.init_nhyd_atmos        2012-07-24 23:51:35 UTC (rev 2054)
@@ -1,10 +1,14 @@
 &amp;nhyd_model
-   config_test_case = 7
+   config_test_case = 9
    config_theta_adv_order = 3
    config_start_time      = '2010-10-23_00:00:00'
    config_stop_time       = '2010-10-23_00:00:00'
 /
 
+&amp;dcmip
+   config_planet_scale    = 500.0
+/
+
 &amp;dimensions
    config_nvertlevels     = 41
    config_nsoillevels     = 4

Modified: branches/dcmip/src/core_init_nhyd_atmos/Registry
===================================================================
--- branches/dcmip/src/core_init_nhyd_atmos/Registry        2012-07-24 22:44:38 UTC (rev 2053)
+++ branches/dcmip/src/core_init_nhyd_atmos/Registry        2012-07-24 23:51:35 UTC (rev 2054)
@@ -7,6 +7,7 @@
 namelist character nhyd_model config_stop_time            none
 namelist integer   nhyd_model config_theta_adv_order      3
 namelist real      nhyd_model config_coef_3rd_order       0.25
+namelist real      dcmip      config_planet_scale         1.0
 namelist integer   dimensions config_nvertlevels          26
 namelist integer   dimensions config_nsoillevels          4
 namelist integer   dimensions config_nfglevels            27

Modified: branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_mpas_core.F
===================================================================
--- branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_mpas_core.F        2012-07-24 22:44:38 UTC (rev 2053)
+++ branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_mpas_core.F        2012-07-24 23:51:35 UTC (rev 2054)
@@ -22,6 +22,7 @@
       block =&gt; domain % blocklist
       do while (associated(block))
          block % state % time_levs(1) % state % xtime % scalar = startTimeStamp
+         block % mesh % sphere_radius = a / config_planet_scale
          block =&gt; block % next
       end do 
 

</font>
</pre>