Changeset 4661 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 1, 2020 4:00:22 PM (4 years ago)
Author:
pavelkrc
Message:

Update test results for fixed r_a limit; Bugfix for RTM v4.0

File:
1 edited

Legend:

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

    r4657 r4661  
    2828! -----------------
    2929! $Id$
     30! Bugfix for rad_angular_discretization = .FALSE.
     31!
     32! 4657 2020-08-28 16:53:45Z pavelkrc
    3033! Bugfix (silence compiler warning)
    3134!
     
    90929095      ELSE
    90939096         iray = nrays
    9094          DO WHILE ( iray > 0  .AND.  zdirs(iray) <= full_horizon )
     9097         DO WHILE ( iray > 0 )
     9098            IF ( zdirs(iray) > full_horizon )  EXIT
    90959099            itarget(iray) = HUGE(1_iwp)
    90969100            iray = iray - 1
Note: See TracChangeset for help on using the changeset viewer.