Changeset 3285 for palm/trunk


Ignore:
Timestamp:
Sep 27, 2018 5:16:52 PM (6 years ago)
Author:
scharf
Message:

bugfix for shf_av and qsws_av output

File:
1 edited

Legend:

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

    r3274 r3285  
    2525! -----------------
    2626! $Id$
     27! bugfix for shf_av and qsws_av
     28!
     29! 3274 2018-09-24 15:42:55Z knoop
    2730! Modularization of all bulk cloud physics code components
    2831!
     
    823826                         qsws_av(j,i) = qsws_av(j,i) +                         &
    824827                                         surf_def_h(0)%qsws(m) *               &
    825                                          waterflux_output_conversion(k)
     828                                         waterflux_output_conversion(nzb)
    826829                      ELSEIF ( match_lsm  .AND.  .NOT. match_usm )  THEN
    827830                         m = surf_lsm_h%end_index(j,i)
     
    923926                         shf_av(j,i) = shf_av(j,i) +                           &
    924927                                         surf_def_h(0)%shf(m)  *               &
    925                                          heatflux_output_conversion(k)
     928                                         heatflux_output_conversion(nzb)
    926929                      ELSEIF ( match_lsm  .AND.  .NOT. match_usm )  THEN
    927930                         m = surf_lsm_h%end_index(j,i)
Note: See TracChangeset for help on using the changeset viewer.