Changeset 9287c01 in flexpart.git


Ignore:
Timestamp:
Feb 13, 2017, 9:48:12 AM (7 years ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
b85b020
Parents:
33279f7
Message:

removed counts for xscav

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/conccalc.f90

    r33279f7 r9287c01  
    5959  real :: xl,yl,wx,wy,w
    6060  real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150.
    61   integer xscav_count
     61!  integer xscav_count
    6262
    6363  ! For forward simulations, make a loop over the number of species;
     
    6565  ! releasepoints
    6666  !***************************************************************************
    67   xscav_count=0
     67!  xscav_count=0
    6868  do i=1,numpart
    6969    if (itra1(i).ne.itime) goto 20
     
    767633   continue
    7777
    78   if (xscav_frac1(i,1).lt.0) xscav_count=xscav_count+1
     78!  if (xscav_frac1(i,1).lt.0) xscav_count=xscav_count+1
    7979           
    8080  ! For special runs, interpolate the air density to the particle position
     
    43943920  continue
    440440  end do
    441   write(*,*) 'xscav count:',xscav_count
     441!  write(*,*) 'xscav count:',xscav_count
    442442
    443443  !***********************************************************************
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG