Changeset 3748 for palm

Timestamp:

Feb 18, 2019 10:38:31 AM (6 years ago)

Author:

suehring

Message:

Revise conversion of waste-heat flux (do not divide by air density, will be done in diffusion_s)

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Revise conversion of waste-heat flux (do not divide by air density, will
+! be done in diffusion_s)
+! 
+! 3745 2019-02-15 18:57:56Z suehring
 ! - Remove internal flag indoor_model (is a global control parameter)
 ! - add waste heat from buildings to the kinmatic heat flux
@@ -8072 +8076 @@
 !--        kinematic flux.
            IF ( indoor_model )  THEN
-              surf_usm_h%shf(m) = surf_usm_h%shf(m) + surf_usm_h%waste_heat(m) / rho_cp
+              surf_usm_h%shf(m) = surf_usm_h%shf(m) + surf_usm_h%waste_heat(m) / c_p
            ENDIF
       
@@ -8504 +8508 @@
               IF ( indoor_model )  THEN
                  surf_usm_v(l)%shf(m) = surf_usm_v(l)%shf(m) +                       &
-                                        surf_usm_v(l)%waste_heat(m) / rho_cp
+                                        surf_usm_v(l)%waste_heat(m) / c_p
               ENDIF