Changeset 3856
 Timestamp:
 Apr 3, 2019 11:06:59 AM (5 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 surfacefractions are provided 28 ! 29 ! 3847 20190401 14:51:44Z suehring 27 30 ! Adjust messagecall 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.