<p><b>laura@ucar.edu</b> 2011-01-13 16:46:24 -0700 (Thu, 13 Jan 2011)</p><p>updated sourcecodes<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F        2011-01-13 23:38:37 UTC (rev 691)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F        2011-01-13 23:46:24 UTC (rev 692)
@@ -11286,14 +11286,9 @@
 !------------------------------------------------------------------
 MODULE module_ra_rrtmg_lw
 
-#ifdef non_hydrostatic_core
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
 !MPAS specific (Laura D. Fowler):
-!use module_physics_constants
-use constants
-#elif hydrostatic_core
-!MPAS specific (Laura D. Fowler):
-!use module_physics_constants
-use constants
+ use module_physics_constants,only: cp
 #else
 use module_model_constants, only : cp
 use module_wrf_error
@@ -11575,6 +11570,8 @@
 
 !------------------------------------------------------------------
 
+ write(6,*) '--- subroutine rrtmg_Lwrad:'
+
 !-----CALCULATE LONG WAVE RADIATION
 !                                                              
 ! All fields are ordered vertically from bottom to top
@@ -12102,13 +12099,13 @@
 
 !------------------------------------------------------------------
 
-!ldf (12-20-2010): This section of the module is moved to module_physics_rrtmg_lwinit.F in
+!LDF (12-20-2010): This section of the module is moved to module_physics_rrtmg_lwinit.F in
 !./../core_physics to accomodate differences in the mpi calls between WRF and MPAS.I thought
 !that it would be cleaner to do this instead of adding a lot of #ifdef statements throughout
 !the initialization of the longwave radiation code. Initialization is handled the same way
 !for the shortwave radiation code.
 
-#ifndef non_hydrostatic_core
+#if !(defined(non_hydrostatic_core) || defined(hydrostatic_core))
 
 !====================================================================
    SUBROUTINE rrtmg_lwinit(                                         &amp;

Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F        2011-01-13 23:38:37 UTC (rev 691)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F        2011-01-13 23:46:24 UTC (rev 692)
@@ -9545,12 +9545,9 @@
 !------------------------------------------------------------------
 MODULE module_ra_rrtmg_sw
 
-#ifdef non_hydrostatic_core
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
 !MPAS specific (Laura D. Fowler):
-use constants
-#elif hydrostatic_core
-!MPAS specific (Laura D. Fowler):
-use constants
+use module_physics_constants,only: cp
 #else
 use module_model_constants, only : cp
 use module_wrf_error
@@ -10274,7 +10271,7 @@
 !the initialization of the shortwave radiation code. Initialization is handled the same way
 !for the longwave radiation code.
 
-#ifndef non_hydrostatic_core
+#if !(defined(non_hydrostatic_core) || defined(hydrostatic_core))
 
 !====================================================================
    SUBROUTINE rrtmg_swinit(                                         &amp;

</font>
</pre>