Changeset 3349
- Timestamp:
- Oct 15, 2018 4:39:41 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3347 r3349 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in initialization of soil properties from dynamic input file 28 ! 29 ! 3347 2018-10-15 14:21:08Z suehring 27 30 ! Assign real value instead of integer 28 31 ! … … 2757 2760 surf_lsm_v(l)%building_covered(m) = .FALSE. 2758 2761 ! 2759 !-- 2760 !-- 2761 !-- 2762 !-- 2762 !-- Wall grid point is building-covered. This case, set 2763 !-- flag indicating that surface properties are initialized 2764 !-- from neighboring reference grid point, which is not 2765 !-- building_covered. 2763 2766 IF ( building_type_f%from_file ) THEN 2764 2767 i = surf_lsm_v(l)%i(m) … … 4356 4359 DO l = 0, 3 4357 4360 DO m = 1, surf_lsm_v(l)%ns 4358 i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff, & 4359 surf_lsm_v(l)%building_covered(m) ) 4360 j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff, & 4361 surf_lsm_v(l)%building_covered(m) ) 4361 ! 4362 !-- Note, in contrast to the static input data the dynamic 4363 !-- input do not need to be checked whether a grid point 4364 !-- is building covered. This is because soil data in the 4365 !-- dynamic input is provided for the whole domain. 4366 i = surf_lsm_v(l)%i(m) 4367 j = surf_lsm_v(l)%j(m) 4362 4368 4363 4369 IF ( init_3d%msoil_3d(0,j,i) /= init_3d%fill_msoil ) & … … 4417 4423 DO l = 0, 3 4418 4424 DO m = 1, surf_lsm_v(l)%ns 4419 i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff, & 4420 surf_lsm_v(l)%building_covered(m) ) 4421 j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff, & 4422 surf_lsm_v(l)%building_covered(m) ) 4425 ! 4426 !-- Note, in contrast to the static input data the dynamic 4427 !-- input do not need to be checked whether a grid point 4428 !-- is building covered. This is because soil data in the 4429 !-- dynamic input is provided for the whole domain. 4430 i = surf_lsm_v(l)%i(m) 4431 j = surf_lsm_v(l)%j(m) 4423 4432 4424 4433 IF ( init_3d%tsoil_3d(0,j,i) /= init_3d%fill_tsoil ) & -
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3348 r3349 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Fix for format descriptor22 ! 23 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Fix for format descriptor 28 ! 29 ! 3348 2018-10-15 14:30:51Z suehring 27 30 ! - Revise structure of init routine 28 31 ! - introduce new parameters to skip STG for some timesteps
Note: See TracChangeset
for help on using the changeset viewer.