Changeset 3107 for palm


Ignore:
Timestamp:
Jul 6, 2018 3:55:51 PM (6 years ago)
Author:
suehring
Message:

Bugfix, missing index for dz

File:
1 edited

Legend:

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

    r3066 r3107  
    2828! -----------------
    2929! $Id$
     30! Bugfix, missing index for dz
     31!
     32! 3066 2018-06-12 08:55:55Z Giersch
    3033! Error message revised
    3134!
     
    43814384                     / (cp * hyp(nzub:nzut) * dx*dy*dz(1)) !< equals to 1 / (rho * c_p * Vbox * T)
    43824385         pctf_prep(:) = r_d * (hyp(nzub:nzut) / 100000.0_wp)**0.286_wp &
    4383                      / (l_v * hyp(nzub:nzut) * dx*dy*dz)
     4386                     / (l_v * hyp(nzub:nzut) * dx*dy*dz(1))
    43844387     ENDIF
    43854388#endif
Note: See TracChangeset for help on using the changeset viewer.