Changeset 4050 for palm/trunk/SOURCE

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:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! 
+! Remove work-around for green surface fraction on buildings 
+! (do not set it zero) 
 ! 
 ! Former revisions:
@@ -5058 +5059 @@
           ENDDO
        ENDDO
-!
-!--    Just a work-around: Set green fraction on roof to zero (in favor of 
-!--    wall fraction). The green-heat model crashes due to some unknown reason. 
-!--    To be removed later.  
-       DO  m = 1, surf_usm_h%ns
-          IF ( surf_usm_h%frac(ind_pav_green,m) > 0.0_wp )  THEN
-             surf_usm_h%frac(ind_veg_wall,m)  = surf_usm_h%frac(ind_veg_wall,m)&
-                                              + surf_usm_h%frac(ind_pav_green,m)
-             surf_usm_h%frac(ind_pav_green,m) = 0.0_wp
-          ENDIF
-       ENDDO
-       DO  l = 0, 3
-          DO  m = 1, surf_usm_v(l)%ns
-             IF ( surf_usm_v(l)%frac(ind_pav_green,m) > 0.0_wp )  THEN
-                surf_usm_v(l)%frac(ind_veg_wall,m)  =                          &
-                                             surf_usm_v(l)%frac(ind_veg_wall,m)&
-                                           + surf_usm_v(l)%frac(ind_pav_green,m)
-                surf_usm_v(l)%frac(ind_pav_green,m) = 0.0_wp
-             ENDIF
-          ENDDO
-       ENDDO
-
 !
 !--     Intitialization of the surface and wall/ground/roof temperature