<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( &
allowed_to_read , &
@@ -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 < 0 ) THEN
CALL wrf_error_fatal ( 'module_ra_rrtmg_lw: rrtm_lwlookuptable: Can not '// &
'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( &
allowed_to_read , &
@@ -11448,4 +11456,7 @@
!------------------------------------------------------------------
+#endif
+!ldf end (12-20-2010).
+
END MODULE module_ra_rrtmg_sw
</font>
</pre>