Ignore:
Timestamp:
May 2, 2019 9:50:41 AM (2 years ago)
Author:
maronga
Message:

bugfixes in urban surface model; output of greenz roof transpiration added/corrected; minor formatting improvements

File:
1 edited

Legend:

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

    r3933 r3943  
    2525! -----------------
    2626! $Id$
     27! Added output of qsws_av for green roofs.
     28!
     29! 3933 2019-04-25 12:33:20Z kanani
    2730! Formatting
    2831!
     
    792795!--          In case of land- and urban-surfaces, convert fluxes into
    793796!--          dynamic units.
     797!--          Question (maronga): are the .NOT. statements really required?
    794798             IF ( ALLOCATED( qsws_av ) ) THEN
    795799                DO  i = nxl, nxr
     
    811815                         qsws_av(j,i) = qsws_av(j,i) +                         &
    812816                                         surf_lsm_h%qsws(m) * l_v
     817                      ELSEIF ( match_usm  .AND.  .NOT. match_lsm )  THEN
     818                         m = surf_usm_h%end_index(j,i)
     819                         qsws_av(j,i) = qsws_av(j,i) +                         &
     820                                         surf_usm_h%qsws(m) * l_v
    813821                      ENDIF
    814822                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.