Changeset 3748 for palm


Ignore:
Timestamp:
Feb 18, 2019 10:38:31 AM (3 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3745 r3748  
    2828! -----------------
    2929! $Id$
     30! Revise conversion of waste-heat flux (do not divide by air density, will
     31! be done in diffusion_s)
     32!
     33! 3745 2019-02-15 18:57:56Z suehring
    3034! - Remove internal flag indoor_model (is a global control parameter)
    3135! - add waste heat from buildings to the kinmatic heat flux
     
    80728076!--        kinematic flux.
    80738077           IF ( indoor_model )  THEN
    8074               surf_usm_h%shf(m) = surf_usm_h%shf(m) + surf_usm_h%waste_heat(m) / rho_cp
     8078              surf_usm_h%shf(m) = surf_usm_h%shf(m) + surf_usm_h%waste_heat(m) / c_p
    80758079           ENDIF
    80768080     
     
    85048508              IF ( indoor_model )  THEN
    85058509                 surf_usm_v(l)%shf(m) = surf_usm_v(l)%shf(m) +                       &
    8506                                         surf_usm_v(l)%waste_heat(m) / rho_cp
     8510                                        surf_usm_v(l)%waste_heat(m) / c_p
    85078511              ENDIF             
    85088512
Note: See TracChangeset for help on using the changeset viewer.