Changeset 3175 for palm


Ignore:
Timestamp:
Jul 26, 2018 2:07:38 PM (6 years ago)
Author:
suehring
Message:

Bugfix for commit 3172

File:
1 edited

Legend:

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

    r3173 r3175  
    2828! -----------------
    2929! $Id$
     30! Bugfix for commit 3172
     31!
     32! 3173 2018-07-26 12:55:23Z suehring
    3033! Revise output of surface radiation quantities in case of overhanging
    3134! structures
     
    31103113!--       Solar radiation is zero during night
    31113114          ELSE
    3112              rad_sw_in(k,:,:)  = 0.0_wp
    3113              rad_sw_out(k,:,:) = 0.0_wp
     3115             rad_sw_in  = 0.0_wp
     3116             rad_sw_out = 0.0_wp
    31143117          ENDIF
    31153118!
     
    35553558!--             Solar radiation is zero during night
    35563559                ELSE
    3557                    rad_sw_in(k,j,i)  = 0.0_wp
    3558                    rad_sw_out(k,j,i) = 0.0_wp
     3560                   rad_sw_in  = 0.0_wp
     3561                   rad_sw_out = 0.0_wp
    35593562                ENDIF
    35603563
Note: See TracChangeset for help on using the changeset viewer.