Commit 33279f73 authored by Sabine's avatar Sabine
Browse files

counting how often xscav is less than 1

parent 6473ad39
...@@ -58,13 +58,13 @@ subroutine conccalc(itime,weight) ...@@ -58,13 +58,13 @@ subroutine conccalc(itime,weight)
real :: rhoprof(2),rhoi real :: rhoprof(2),rhoi
real :: xl,yl,wx,wy,w real :: xl,yl,wx,wy,w
real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150. real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150.
integer xscav_count
! For forward simulations, make a loop over the number of species; ! For forward simulations, make a loop over the number of species;
! for backward simulations, make an additional loop over the ! for backward simulations, make an additional loop over the
! releasepoints ! releasepoints
!*************************************************************************** !***************************************************************************
xscav_count=0
do i=1,numpart do i=1,numpart
if (itra1(i).ne.itime) goto 20 if (itra1(i).ne.itime) goto 20
...@@ -75,7 +75,8 @@ subroutine conccalc(itime,weight) ...@@ -75,7 +75,8 @@ subroutine conccalc(itime,weight)
end do end do
33 continue 33 continue
if (xscav_frac1(i,1).lt.0) xscav_count=xscav_count+1
! For special runs, interpolate the air density to the particle position ! For special runs, interpolate the air density to the particle position
!************************************************************************ !************************************************************************
!*********************************************************************** !***********************************************************************
...@@ -437,6 +438,7 @@ subroutine conccalc(itime,weight) ...@@ -437,6 +438,7 @@ subroutine conccalc(itime,weight)
endif endif
20 continue 20 continue
end do end do
write(*,*) 'xscav count:',xscav_count
!*********************************************************************** !***********************************************************************
! 2. Evaluate concentrations at receptor points, using the kernel method ! 2. Evaluate concentrations at receptor points, using the kernel method
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment