<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 @@
&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'
/
+&dcmip
+ config_planet_scale = 500.0
+/
+
&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 => domain % blocklist
do while (associated(block))
block % state % time_levs(1) % state % xtime % scalar = startTimeStamp
+ block % mesh % sphere_radius = a / config_planet_scale
block => block % next
end do
</font>
</pre>