Changeset 4693 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 22, 2020 7:47:04 PM (4 years ago)
Author:
maronga
Message:

follow-up bugfix for last commits

File:
1 edited

Legend:

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

    r4692 r4693  
    2727! -----------------
    2828! $Id$
     29! Bugfix for last commit
     30!
     31! 4692 2020-09-22 17:17:52Z maronga
    2932! Bugfix for previous revision
    3033!
     
    52035206!--    heat diffusion (innermost wall temperature as boundary conditions)
    52045207       IF ( .NOT. indoor_model ) THEN
    5205           surf%iwghf_eb(m) = - surf%lambda_h(nzt_wall-1,m) * wall_mod(kw-1)           &
     5208          surf%iwghf_eb(m) = - surf%lambda_h(nzt_wall-1,m) * wall_mod(nzt_wall-1)           &
    52065209                             * ( t_wall%val(nzt_wall,m) - t_wall%val(nzt_wall-1,m) )  &
    52075210                             * surf%ddz_wall(nzt_wall,m)
Note: See TracChangeset for help on using the changeset viewer.