Changeset 2007 for palm/trunk/SOURCE/time_integration.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/time_integration.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added CALLs for new urban surface model
 ! 
 ! Former revisions:
@@ -342 +342 @@
         ONLY:  surface_layer_fluxes
 
+    USE urban_surface_mod,                                                     &
+        ONLY:  urban_surface, usm_material_heat_model, usm_material_model,     &
+               usm_radiation, usm_surface_energy_balance              
+
     USE user_actions_mod,                                                      &
         ONLY:  user_actions
@@ -873 +877 @@
                 CALL cpu_log( log_point(54), 'land_surface', 'stop' )
              ENDIF
+
+!
+!--          If required, solve the energy balance for urban surfaces and run 
+!--          the material heat model
+             IF (urban_surface) THEN
+                CALL cpu_log( log_point(74), 'urban_surface', 'start' )
+                CALL usm_surface_energy_balance
+                IF ( usm_material_model )  THEN
+                   CALL usm_material_heat_model
+                ENDIF
+                CALL cpu_log( log_point(74), 'urban_surface', 'stop' )
+             ENDIF
+
 !
 !--          Compute the diffusion coefficients
@@ -909 +926 @@
 
                 CALL cpu_log( log_point(50), 'radiation', 'stop' )
+
+                IF (urban_surface)  THEN
+                   CALL cpu_log( log_point(75), 'usm_radiation', 'start' )
+                   CALL usm_radiation
+                   CALL cpu_log( log_point(75), 'usm_radiation', 'stop' )
+                ENDIF
+
              ENDIF
           ENDIF