added info about step and precip. thres in logfile

src/calculate_watercycle.f90

@@ -41,18 +41,18 @@ subroutine calculate_watercycle(partnumber,itime)
   real :: dt1,dt2,dtt,ddx,ddy,rddx,rddy,p1,p2,p3,p4,xtn,ytn
   real centerposx_real, centerposy_real, centerposx, centerposy, diff, xl(2), yl(2)
   real qv1(2),qvprof(2),qvi,dz,dz1,dz2
-  real e_minus_p1(2), e_minus_pi
+  real e_minus_p1(2), e_minus_pi, threshold
   
-  real  precip_reference(360,180),eminusp_saved, waterthreshold
+  real  precip_reference(360,180),eminusp_saved
   integer ixr,jyr,idumx,idumy,istep, watersynctime
 
 
-    watersynctime=3600*3 ! was loutstep before, but for monthly run not possible
-    waterthreshold=-.1
-!   watersynctime=3600
-!   watersynctime=loutstep
+  watersynctime=3600*3 ! was loutstep before, but for monthly run not possible
+! watersynctime=3600
+! watersynctime=loutstep
+  threshold = -.5
 
-  if ((partnumber.eq.1).and.(itime.eq.0)) write(*,*) 'Watersynctime ',watersynctime,lsynctime,waterthreshold
+  if ((partnumber.eq.1).and.(itime.eq.0)) write(*,*) 'Watersynctime ',watersynctime,lsynctime, ', threshold: ',threshold
 
   ! Some variables needed for temporal interpolation
   !*************************************************
@@ -70,7 +70,7 @@ subroutine calculate_watercycle(partnumber,itime)
       forparticle=numpart
       totalparticle=0
        istep=int(itime/watersynctime)
-       write(*,*) 'Model step:',istep
+!       write(*,*) 'Model step:',istep
 !      open(43,file='precip_ref_input.dat',status='old')
 !      write(*,*) 'Reading eminusp from file'
 !      do 75 jyr=1,90
@@ -231,7 +231,7 @@ subroutine calculate_watercycle(partnumber,itime)
 !     e_minus_pi=precip_reference(ix+1,jy-90+2)*(-24.)
 
 !      First timestep and criteria fullfilled, keep it or throw it?
-      if ( ((diff.ge.0).or.((e_minus_pi/24).gt.waterthreshold)) .and. (status_q(i).eq.1) ) then 
+      if ( ((diff.ge.0).or.((e_minus_pi/24).gt.threshold)) .and. (status_q(i).eq.1) ) then 
 !       if ( ((diff.ge.0).or.((e_minus_pi/24).gt.-2.0)) .and. (status_q(i).eq.1) ) then 
 !       if ( ((diff.ge.0)) .and. (status_q(i).eq.1) ) then 
 !       if  (status_q(i).eq.-100) then  ! never! all trajectories.
@@ -279,7 +279,7 @@ subroutine calculate_watercycle(partnumber,itime)
 
   end do
   if ((partnumber.eq.-1).and.(totalparticle.gt.0)) then
-      write (*,*) 'calculated watercycle, ',totalparticle,numpart,partnumber,forparticle,itime
+!      write (*,*) 'calculated watercycle, ',totalparticle,numpart,partnumber,forparticle,itime
   endif