Changeset 825 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Feb 19, 2012 3:03:44 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r791 r825 7 7 ! Current revisions: 8 8 ! ------------------ 9 ! 9 ! wang_collision_kernel renamed wang_kernel 10 10 ! 11 11 ! Former revisions: … … 334 334 !-- 3D-array for storing the dissipation, needed for calculating the sgs 335 335 !-- particle velocities 336 IF ( use_sgs_for_particles .OR. wang_ collision_kernel ) THEN336 IF ( use_sgs_for_particles .OR. wang_kernel ) THEN 337 337 ALLOCATE ( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 338 338 ELSE
Note: See TracChangeset
for help on using the changeset viewer.