bugfix, threshold was positive

src/calculate_watercycle.f90

@@ -227,7 +227,7 @@ subroutine calculate_watercycle(partnumber,itime)
 
 !      First timestep and criteria fullfilled, keep it or throw it?
 !       if ( ((diff.ge.0).or.((e_minus_pi/24).gt.-2.0)) .and. (status_q(i).eq.1) ) then 
-       if ( ((diff.ge.0).or.((e_minus_pi/24).gt.0.2)) .and. (status_q(i).eq.1) ) then 
+       if ( ((diff.ge.0).or.((e_minus_pi/24).gt.-0.2)) .and. (status_q(i).eq.1) ) then 
 !       if  (status_q(i).eq.-100) then  ! never! all trajectories.
 !          write(*,*) 'terminated: ',i,diff,e_minus_pi,itage,itramem(i),status_q(i),qvi,val_q(i),xmass1(i,1)
           status_q(i)=-9 ! this particle is invalid