<p><b>laura@ucar.edu</b> 2010-12-21 15:34:07 -0700 (Tue, 21 Dec 2010)</p><p>added compiler directives to compile short- and long-wave radiation codes, mainly for initialization<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        2010-12-21 22:30:19 UTC (rev 648)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F        2010-12-21 22:34:07 UTC (rev 649)
@@ -11288,9 +11288,11 @@
 
 #ifdef non_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
 #else
 use module_model_constants, only : cp
@@ -12100,6 +12102,14 @@
 
 !------------------------------------------------------------------
 
+!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
+
 !====================================================================
    SUBROUTINE rrtmg_lwinit(                                         &amp;
                        allowed_to_read ,                            &amp;
@@ -12152,11 +12162,7 @@
         rrtmg_unit = -1
  2010   CONTINUE
       ENDIF
-!ldf (11-08-2010): changed wrf_dm_bcast_bytes to wrf_dm_bcast_integer to avoid warning at
-!compilation time:
-!     CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
-      CALL wrf_dm_bcast_integer ( rrtmg_unit , IWORDSIZE )
-!ldf end.
+      CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
       IF ( rrtmg_unit &lt; 0 ) THEN
         CALL wrf_error_fatal ( 'module_ra_rrtmg_lw: rrtm_lwlookuptable: Can not '// &amp;
                                'find unused fortran unit to read in lookup table.' )
@@ -13656,6 +13662,9 @@
 
       end subroutine lw_kgb16
 
+#endif
+!ldf end (12-20-2010).
+
 !===============================================================================
   subroutine relcalc(ncol, pcols, pver, t, landfrac, landm, icefrac, rel, snowh)
 !----------------------------------------------------------------------- 

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        2010-12-21 22:30:19 UTC (rev 648)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F        2010-12-21 22:34:07 UTC (rev 649)
@@ -10268,6 +10268,14 @@
    END SUBROUTINE RRTMG_SWRAD
 
  
+!ldf (12-20-2010): This section of the module is moved to module_physics_rrtmg_swinit.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 shortwave radiation code. Initialization is handled the same way
+!for the longwave radiation code.
+
+#ifndef non_hydrostatic_core
+
 !====================================================================
    SUBROUTINE rrtmg_swinit(                                         &amp;
                        allowed_to_read ,                            &amp;
@@ -11448,4 +11456,7 @@
 
 !------------------------------------------------------------------
 
+#endif
+!ldf end (12-20-2010).
+
 END MODULE module_ra_rrtmg_sw

</font>
</pre>