Changeset b5127f9 in flexpart.git for src/init_domainfill.f90
- Timestamp:
- Aug 4, 2017, 2:18:03 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 61e07ba, 1d072c0
- Parents:
- 5184a7c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/init_domainfill.f90
r7999df47 rb5127f9 400 400 end do 401 401 402 ! Reduce numpart if invalid particles at end of arrays 403 do i=numpart, 1, -1 404 if (itra1(i).eq.-999999999) then 405 numpart=numpart-1 406 else 407 exit 408 end if 409 end do 410 402 411 ! If particles shall be read in to continue an existing run, 403 412 ! then the accumulated masses at the domain boundaries must be read in, too. … … 414 423 415 424 416 417 418 425 end subroutine init_domainfill
Note: See TracChangeset
for help on using the changeset viewer.