Changeset 4050 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jun 24, 2019 1:57:27 PM (5 years ago)
Author:
suehring
Message:

Remove work-around for green surface fraction on buildings - do not set it zero

File:
1 edited

Legend:

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

    r3993 r4050  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Remove work-around for green surface fraction on buildings
     26! (do not set it zero)
    2627!
    2728! Former revisions:
     
    50585059          ENDDO
    50595060       ENDDO
    5060 !
    5061 !--    Just a work-around: Set green fraction on roof to zero (in favor of
    5062 !--    wall fraction). The green-heat model crashes due to some unknown reason.
    5063 !--    To be removed later. 
    5064        DO  m = 1, surf_usm_h%ns
    5065           IF ( surf_usm_h%frac(ind_pav_green,m) > 0.0_wp )  THEN
    5066              surf_usm_h%frac(ind_veg_wall,m)  = surf_usm_h%frac(ind_veg_wall,m)&
    5067                                               + surf_usm_h%frac(ind_pav_green,m)
    5068              surf_usm_h%frac(ind_pav_green,m) = 0.0_wp
    5069           ENDIF
    5070        ENDDO
    5071        DO  l = 0, 3
    5072           DO  m = 1, surf_usm_v(l)%ns
    5073              IF ( surf_usm_v(l)%frac(ind_pav_green,m) > 0.0_wp )  THEN
    5074                 surf_usm_v(l)%frac(ind_veg_wall,m)  =                          &
    5075                                              surf_usm_v(l)%frac(ind_veg_wall,m)&
    5076                                            + surf_usm_v(l)%frac(ind_pav_green,m)
    5077                 surf_usm_v(l)%frac(ind_pav_green,m) = 0.0_wp
    5078              ENDIF
    5079           ENDDO
    5080        ENDDO
    5081 
    50825061!
    50835062!--     Intitialization of the surface and wall/ground/roof temperature
Note: See TracChangeset for help on using the changeset viewer.