Changeset 1856 for palm/trunk/SOURCE
- Timestamp:
- Apr 13, 2016 12:56:17 PM (9 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r1852 r1856 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix: for water surfaces, the initial water surface temperature is set equal 22 ! to the intital skin temperature. Moreover, the minimum value of r_a is now 23 ! 1.0 to avoid too large fluxes at the first model time step 22 24 ! 23 25 ! Former revisions: … … 1074 1076 1075 1077 ! 1076 !-- Make sure that the resistance does not drop to zero 1077 IF ( ABS(r_a(j,i)) < 1.0E-10_wp ) r_a(j,i) = 1.0E-10_wp 1078 !-- Make sure that the resistance does not drop to zero for neutral 1079 !-- stratification 1080 IF ( ABS(r_a(j,i)) < 1.0_wp ) r_a(j,i) = 1.0_wp 1078 1081 1079 1082 ! … … 1885 1888 IF ( veg_type_2d(j,i) == 14 .OR. veg_type_2d(j,i) == 15 ) THEN 1886 1889 water_surface(j,i) = .TRUE. 1890 t_soil(:,j,i) = t_surface(j,i) 1887 1891 ELSEIF ( veg_type_2d(j,i) == 20 ) THEN 1888 1892 pave_surface(j,i) = .TRUE. -
palm/trunk/SOURCE/radiation_model_mod.f90
r1854 r1856 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix: allocation of rad_lw_out for radiation_scheme = 'clear-sky' 22 22 ! 23 23 ! Former revisions: … … 806 806 ALLOCATE ( rad_lw_in(0:0,nysg:nyng,nxlg:nxrg) ) 807 807 ENDIF 808 IF ( .NOT. ALLOCATED ( rad_lw_out ) ) THEN 809 ALLOCATE ( rad_lw_out(0:0,nysg:nyng,nxlg:nxrg) ) 810 ENDIF 808 811 809 812 IF ( .NOT. ALLOCATED ( rad_lw_in_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.