<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. "noah") sf_surface_physics = 2
+
!initialization of local physics time-steps:
!... dynamics:
dt_dyn = config_dt
</font>
</pre>