Changeset 2007 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Aug 24, 2016 3:47:17 PM (8 years ago)

Author:

kanani

Message:

changes in the course of urban surface model implementation

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (5 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added pt tendency calculation based on energy balance at urban surfaces
+! (new urban surface model)
 ! 
 ! Former revisions:
@@ -321 +322 @@
         ONLY:  subsidence
 
+    USE urban_surface_mod,                                                     &
+        ONLY:  urban_surface, usm_wall_heat_flux
+
     USE user_actions_mod,                                                      &
         ONLY:  user_actions
@@ -614 +618 @@
 
 !
+!--          Tendency pt from wall heat flux from urban surface
+             IF ( urban_surface )  THEN
+                CALL usm_wall_heat_flux( i, j )
+             ENDIF
+
+!
 !--          If required compute heating/cooling due to long wave radiation
 !--          processes
@@ -1346 +1356 @@
 
        CALL diffusion_s( pt, shf, tswst, wall_heatflux )
+
+!
+!--    Tendency pt from wall heat flux from urban surface
+       IF ( urban_surface )  THEN
+          CALL usm_wall_heat_flux
+       ENDIF
 
 !
@@ -2272 +2288 @@
 
 !
+!--    Tendency pt from wall heat flux from urban surface
+       IF ( urban_surface )  THEN
+          CALL usm_wall_heat_flux
+       ENDIF
+
+!
 !--    If required compute heating/cooling due to long wave radiation processes
        IF ( cloud_top_radiation )  THEN