 Timestamp:
 Jun 24, 2020 8:59:06 AM (5 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/radiation_model_mod.f90
r4558 r4571 28 28 !  29 29 ! $Id$ 30 ! Bugfix in vertical lad_s coordinate 31 ! 32 ! 4558 20200610 16:27:30Z moh.hefny 30 33 ! Bugfix:  reset RTM output average values after each averaging timestep to zero 31 34 !  correct calculation of rtm_rad_net_av … … 6133 6136 j = pcbl(iy,ipcgb) 6134 6137 k = pcbl(iz,ipcgb) 6138 kk = k  topo_top_ind(j,i,0) ! lad arrays are defined flat 6135 6139 isurfsrc = csfsurf(2, icsf) 6136 6140 … … 6158 6162 IF ( cos_zenith > 0 ) THEN 6159 6163 ! 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)) 6161 6165 ! 6162 6166 ! isd has already been established, see (1)
Note: See TracChangeset
for help on using the changeset viewer.