- Timestamp:
- Apr 3, 2019 11:06:59 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3847 r3856 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in lsm_init in case no surface-fractions are provided 28 ! 29 ! 3847 2019-04-01 14:51:44Z suehring 27 30 ! Adjust message-call for checks that are especially carried out locally. 28 31 ! … … 2905 2908 vegetation_type_f%var(j,i) = 1 ! bare soil 2906 2909 soil_type_f%var_2d(j,i) = 1 2907 surface_fraction_f%frac(ind_veg_wall,j,i) = 1.0_wp 2908 surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp 2909 surface_fraction_f%frac(ind_wat_win,j,i) = 0.0_wp 2910 ! 2911 !-- Set surface_fraction if provided in static input, 2912 !-- else, in case no tiles are used, this will be done 2913 !-- on basis of the prescribed types (vegetation/pavement/ 2914 !-- water_type). 2915 IF ( surface_fraction_f%from_file ) THEN 2916 surface_fraction_f%frac(ind_veg_wall,j,i) = 1.0_wp 2917 surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp 2918 surface_fraction_f%frac(ind_wat_win,j,i) = 0.0_wp 2919 ENDIF 2910 2920 ENDIF 2911 2921
Note: See TracChangeset
for help on using the changeset viewer.