Changeset 4661 for palm/trunk/SOURCE/radiation_model_mod.f90

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:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix for rad_angular_discretization = .FALSE.
+!
+! 4657 2020-08-28 16:53:45Z pavelkrc
 ! Bugfix (silence compiler warning)
 !
@@ -9092 +9095 @@
       ELSE
          iray = nrays
-         DO WHILE ( iray > 0  .AND.  zdirs(iray) <= full_horizon )
+         DO WHILE ( iray > 0 )
+            IF ( zdirs(iray) > full_horizon )  EXIT
             itarget(iray) = HUGE(1_iwp)
             iray = iray - 1