Changeset 4017 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Jun 6, 2019 12:16:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r3987 r4017 625 625 626 626 USE kinds 627 628 USE lpm_init_mod, &629 ONLY: lpm_init630 627 631 628 USE lsf_nudging_mod, & … … 652 649 USE nesting_offl_mod, & 653 650 ONLY: nesting_offl_init 654 655 USE particle_attributes, &656 ONLY: particle_advection657 651 658 652 USE pegrid … … 2271 2265 ENDIF 2272 2266 2273 !2274 !-- If required, initialize dvrp-software2275 IF ( dt_dvrp /= 9999999.9_wp ) CALL init_dvrp2276 2277 !2278 !-- Initialize quantities for handling cloud physics.2279 !-- This routine must be called before lpm_init, becaus otherwise,2280 !-- array d_exner, needed in data_output_dvrp (called by lpm_init) is not defined.2281 2267 IF ( .NOT. ocean_mode ) THEN 2282 2268 … … 2307 2293 ENDIF 2308 2294 2309 !2310 !-- If required, initialize particles2311 IF ( particle_advection ) CALL lpm_init2312 2295 ! 2313 2296 !-- If required, initialize particles
Note: See TracChangeset
for help on using the changeset viewer.