<p><b>laura@ucar.edu</b> 2013-03-13 14:11:58 -0600 (Wed, 13 Mar 2013)</p><p>Added initialization of the new variable sf_surface_physics needed to run the RRTMG shortwave radiation code updated to WRF version 3.4.1.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_manager.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_manager.F        2013-03-13 20:09:54 UTC (rev 2605)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_manager.F        2013-03-13 20:11:58 UTC (rev 2606)
@@ -14,6 +14,12 @@
  private
  public:: physics_timetracker,physics_run_init
 
+!add-ons and modifications to sourcecode:
+!* added initialization of variable sf_surface_physics in subroutine physics_run_init. see
+!  definition of sf_surface_physics in mpas_atmphys_vars.F
+!  Laura D. Fowler (birch.ucar.edu) / 2013-03-11.
+ 
+
  integer, public:: year                 !Current year.
  integer, public:: julday               !Initial Julian day.
  real(kind=RKIND), public:: curr_julday !Current Julian day (= 0.0 at 0Z on January 1st).
@@ -469,6 +475,8 @@
  radt_sw_scheme      = trim(config_radt_sw_scheme)
  sfclayer_scheme     = trim(config_sfclayer_scheme)
 
+ if(trim(config_lsm_scheme) .eq. &quot;noah&quot;) sf_surface_physics = 2 
+
 !initialization of local physics time-steps:
 !... dynamics:
  dt_dyn     = config_dt

</font>
</pre>