<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( &
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( &
</font>
</pre>