Changeset 3285 for palm/trunk
- Timestamp:
- Sep 27, 2018 5:16:52 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r3274 r3285 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for shf_av and qsws_av 28 ! 29 ! 3274 2018-09-24 15:42:55Z knoop 27 30 ! Modularization of all bulk cloud physics code components 28 31 ! … … 823 826 qsws_av(j,i) = qsws_av(j,i) + & 824 827 surf_def_h(0)%qsws(m) * & 825 waterflux_output_conversion( k)828 waterflux_output_conversion(nzb) 826 829 ELSEIF ( match_lsm .AND. .NOT. match_usm ) THEN 827 830 m = surf_lsm_h%end_index(j,i) … … 923 926 shf_av(j,i) = shf_av(j,i) + & 924 927 surf_def_h(0)%shf(m) * & 925 heatflux_output_conversion( k)928 heatflux_output_conversion(nzb) 926 929 ELSEIF ( match_lsm .AND. .NOT. match_usm ) THEN 927 930 m = surf_lsm_h%end_index(j,i)
Note: See TracChangeset
for help on using the changeset viewer.