Changeset 3901 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Apr 16, 2019 4:17:02 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3896 r3901 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Workaround - set green fraction to zero ( green-heat model crashes ). 31 ! 32 ! 3896 2019-04-15 10:10:17Z suehring 33 ! 34 ! 35 ! 3896 2019-04-15 10:10:17Z suehring 30 36 ! Bugfix, wrong index used for accessing building_pars from PIDS 31 37 ! … … 5031 5037 ENDDO 5032 5038 ENDDO 5039 ! 5040 !-- Just a work-around: Set green fraction on roof to zero (in favor of 5041 !-- wall fraction). The green-heat model crashes due to some unknown reason. 5042 !-- To be removed later. 5043 DO m = 1, surf_usm_h%ns 5044 IF ( surf_usm_h%frac(ind_pav_green,m) > 0.0_wp ) THEN 5045 surf_usm_h%frac(ind_pav_green,m) = 0.0_wp 5046 surf_usm_h%frac(ind_veg_wall,m) = 1.0_wp 5047 ENDIF 5048 ENDDO 5033 5049 5034 5050 ! … … 5616 5632 !> Green and substrate model as part of the urban surface model. The model predicts ground 5617 5633 !> temperatures. 5634 !> 5635 !> Important: gree-heat model crashes due to unknown reason. Green fraction 5636 !> is thus set to zero (in favor of wall fraction). 5618 5637 !------------------------------------------------------------------------------! 5619 5638 SUBROUTINE usm_green_heat_model … … 5648 5667 !$OMP DO SCHEDULE (STATIC) 5649 5668 DO m = 1, surf_usm_h%ns 5650 5651 5669 IF (surf_usm_h%frac(ind_pav_green,m) > 0.0_wp) THEN 5652 5670 !
Note: See TracChangeset
for help on using the changeset viewer.