<p><b>laura@ucar.edu</b> 2013-03-13 14:09:54 -0600 (Wed, 13 Mar 2013)</p><p>Added local variables needed to use 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_vars.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_vars.F        2013-03-13 20:07:32 UTC (rev 2604)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_vars.F        2013-03-13 20:09:54 UTC (rev 2605)
@@ -7,6 +7,12 @@
  public
  save
 
+!add-ons and modifications to sourcecode:
+!* added the variables sf_surface_physics,alswvisdir_p,alswvisdif_p,alswnirdir_p,alswnirdif_p,
+!  swvisdir_p,swvisdif_p,swnirdir_p,and swnirdif_p to upgrade the RRTMG short wave radiation
+!  code to WRF version 3.4.1. see definition of each individual variables below.
+!  Laura D. Fowler (birch.ucar.edu) / 2013-03-11.
+
 !=============================================================================================
 !list of physics parameterizations:
 !=============================================================================================
@@ -320,6 +326,12 @@
     swupt_p,          &amp;!all-sky upwelling shortwave flux at top-of-atmosphere          [J m-2]
     swuptc_p           !clear-sky upwelling shortwave flux at top-of-atmosphere        [J m-2]
 
+ real(kind=RKIND),dimension(:,:),allocatable:: &amp;
+    swvisdir_p,       &amp;!visible direct downward flux                                   [W m-2]
+    swvisdif_p,       &amp;!visible diffuse downward flux                                  [W m-2]
+    swnirdir_p,       &amp;!near-IR direct downward flux                                   [W m-2]
+    swnirdif_p         !near-IR diffuse downward flux                                  [W m-2]
+
  real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
     swdnflx_p,        &amp;!
     swdnflxc_p,       &amp;!
@@ -407,6 +419,11 @@
 !=============================================================================================
 
  integer,public:: &amp;
+    sf_surface_physics !used to define the land surface scheme by a number instead of name. It
+                       !is only needed in module_ra_rrtmg_sw.F to define the spectral surface
+                       !albedos as functions of the land surface scheme.
+
+ integer,public:: &amp;
     num_soils          !number of soil layers                                              [-]
     
  integer,dimension(:,:),allocatable:: &amp;
@@ -447,6 +464,12 @@
     vegfra_p,         &amp;!vegetation fraction                                                [-]
     z0_p               !background roughness length                                        [m]
 
+ real(kind=RKIND),dimension(:,:),allocatable:: &amp;
+    alswvisdir_p,     &amp;!direct-beam surface albedo in visible spectrum                     [-]
+    alswvisdif_p,     &amp;!diffuse-beam surface albedo in visible spectrum                    [-]
+    alswnirdir_p,     &amp;!direct-beam surface albedo in near-IR spectrum                     [-]
+    alswnirdif_p       !diffuse-beam surface albedo in near-IR spectrum                    [-]
+
 !=============================================================================================
 !.. variables and arrays related to surface characteristics:
 !=============================================================================================

</font>
</pre>