Ignore:
Timestamp:
Sep 25, 2019 4:06:01 PM (20 months ago)
Author:
suehring
Message:

Building data base: Indoor-model parameters for some building types adjusted in order to avoid unrealistically high indoor temperatures (S. Rissmann); Indoor model: Bugfix in determination of minimum facade height and in location message, avoid divisions by zero, minor optimizations; radiation model: Modify check in order to avoid equality comparisons of floating points

File:
1 edited

Legend:

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

    r4227 r4238  
    2828! -----------------
    2929! $Id$
     30! Modify check in order to avoid equality comparisons of floating points
     31!
     32! 4227 2019-09-10 18:04:34Z gronemeier
    3033! implement new palm_date_time_mod
    3134!
     
    26532656          CALL get_date_time( 0.0_wp, second_of_day=second_of_day )
    26542657
    2655           IF ( time_rad_f%var1d(0) /= second_of_day )  THEN
     2658          IF ( ABS( time_rad_f%var1d(0) - second_of_day ) > 1E-6_wp )  THEN
    26562659             message_string = 'External radiation forcing: first point in ' // &
    26572660                              'time is /= origin_date_time.'
Note: See TracChangeset for help on using the changeset viewer.