Changeset 4678 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 14, 2020 10:23:14 AM (4 years ago)
Author:
pavelkrc
Message:

Fix zdirs indices for full3d in raytrace_2d

File:
1 edited

Legend:

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

    r4671 r4678  
    2828! -----------------
    2929! $Id$
     30! Fix zdirs indices for full3d in raytrace_2d
     31!
     32! 4671 2020-09-09 20:27:58Z pavelkrc
    3033! Radiative transfer model RTM version 4.1
    3134! - Implementation of downward facing USM and LSM surfaces
     
    88808883!
    88818884!--               Previously mixed rays need to be checked whether they are obstructed
    8882                   DO  iray = lowest_mixed_ray, lowest_free_ray-1, -1
     8885                  DO  iray = lowest_mixed_ray, lowest_free_ray+1, -1
    88838886                     IF ( zdirs(iray) > horz_mixed_entry )  EXIT
    88848887                     IF ( target_surfl(iray) >= 0 )  CYCLE
     
    89398942!
    89408943!--               Previously mixed rays need to be checked whether they are obstructed
    8941                   DO  iray = lowest_mixed_ray, lowest_free_ray-1, -1
     8944                  DO  iray = lowest_mixed_ray, lowest_free_ray+1, -1
    89428945                     IF ( zdirs(iray) > MAX(horz_mixed_entry, horz_mixed_exit) )  EXIT
    89438946                     IF ( target_surfl(iray) >= 0 )  CYCLE
Note: See TracChangeset for help on using the changeset viewer.