<p><b>laura@ucar.edu</b> 2011-02-09 09:54:00 -0700 (Wed, 09 Feb 2011)</p><p>added stuff related to urban physics so that sourcecode for NOAH scheme is the same as in WRF<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/physics_wrf/Makefile
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/Makefile 2011-02-09 16:50:49 UTC (rev 729)
+++ branches/atmos_physics/src/core_physics/physics_wrf/Makefile 2011-02-09 16:54:00 UTC (rev 730)
@@ -32,7 +32,7 @@
module_sf_urban.o
module_sf_noahdrv.o: \
- module_sf_bem.o \
+ module_sf_bem.o \
module_sf_bep.o \
module_sf_bep_bem.o \
module_sf_noahlsm.o \
Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F 2011-02-09 16:50:49 UTC (rev 729)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F 2011-02-09 16:54:00 UTC (rev 730)
@@ -456,11 +456,15 @@
!
REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: AKMS_URB2D
!
- REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: UST_URB2D
- REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: FRC_URB2D
- INTEGER, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: UTYPE_URB2D
+!ldf (01-18-2011):
+! REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: UST_URB2D
+! REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: FRC_URB2D
+! INTEGER, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: UTYPE_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: UST_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: FRC_URB2D
+ INTEGER, OPTIONAL,DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: UTYPE_URB2D
+!end ldf.
-
! output variables urban --> lsm
REAL :: TS_URB ! surface radiative temperature [K]
REAL :: QS_URB ! surface humidity [-]
@@ -486,7 +490,10 @@
REAL, OPTIONAL, INTENT(IN ) :: GMT
INTEGER, OPTIONAL, INTENT(IN ) :: JULDAY
REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) ::XLAT, XLONG
+!ldf (01-18-2011):
INTEGER, INTENT(IN ) :: NUM_URBAN_LAYERS
+! INTEGER, OPTIONAL, INTENT(IN ) :: NUM_URBAN_LAYERS
+!end ldf.
REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d
REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d
REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d
</font>
</pre>