Changeset 9287c01 in flexpart.git for src/conccalc.f90
- Timestamp:
- Feb 13, 2017, 9:48:12 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- b85b020
- Parents:
- 33279f7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/conccalc.f90
r33279f7 r9287c01 59 59 real :: xl,yl,wx,wy,w 60 60 real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150. 61 integer xscav_count61 ! integer xscav_count 62 62 63 63 ! For forward simulations, make a loop over the number of species; … … 65 65 ! releasepoints 66 66 !*************************************************************************** 67 xscav_count=067 ! xscav_count=0 68 68 do i=1,numpart 69 69 if (itra1(i).ne.itime) goto 20 … … 76 76 33 continue 77 77 78 if (xscav_frac1(i,1).lt.0) xscav_count=xscav_count+178 ! if (xscav_frac1(i,1).lt.0) xscav_count=xscav_count+1 79 79 80 80 ! For special runs, interpolate the air density to the particle position … … 439 439 20 continue 440 440 end do 441 write(*,*) 'xscav count:',xscav_count441 ! write(*,*) 'xscav count:',xscav_count 442 442 443 443 !***********************************************************************
Note: See TracChangeset
for help on using the changeset viewer.