Changeset 4571 for palm


Ignore:
Timestamp:
Jun 24, 2020 8:59:06 AM (5 months ago)
Author:
sebschub
Message:

Bugfix in vertical lad_s coordinate in radiation_model_mod

File:
1 edited

Legend:

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

    r4558 r4571  
    2828! -----------------
    2929! $Id$
     30! Bugfix in vertical lad_s coordinate
     31!
     32! 4558 2020-06-10 16:27:30Z moh.hefny
    3033! Bugfix: - reset RTM output average values after each averaging timestep to zero
    3134!         - correct calculation of rtm_rad_net_av
     
    61336136             j = pcbl(iy,ipcgb)
    61346137             k = pcbl(iz,ipcgb)
     6138             kk = k - topo_top_ind(j,i,0)  !- lad arrays are defined flat
    61356139             isurfsrc = csfsurf(2, icsf)
    61366140
     
    61586162                IF ( cos_zenith > 0 )  THEN
    61596163!--                Estimate directed box absorption
    6160                    pc_abs_frac = 1.0_wp - exp(pc_abs_eff * lad_s(k,j,i))
     6164                   pc_abs_frac = 1.0_wp - exp(pc_abs_eff * lad_s(kk,j,i))
    61616165!
    61626166!--                isd has already been established, see (1)
Note: See TracChangeset for help on using the changeset viewer.