Changeset d4a4250 in flexpart.git for src/wetdepo.f90
- Timestamp:
- Oct 20, 2016, 2:26:33 PM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 0ee2193
- Parents:
- 15fdb5c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/wetdepo.f90
r5844866 rd4a4250 90 90 real :: frac_act, liq_frac, dquer_m 91 91 92 integer :: blc_count, inc_count 92 integer :: blc_count, inc_count, firsttimerem 93 93 real :: Si_dummy, wetscav_dummy 94 94 logical :: readclouds_this_nest 95 95 96 96 firsttimerem=0 97 97 ! Compute interval since radioactive decay of deposited mass was computed 98 98 !************************************************************************ … … 436 436 xscav_frac1(jpart,ks)=0. 437 437 else 438 if (xmass1(jpart,ks).eq.0) then 439 firsttimerem=firsttimerem+1 440 endif 438 441 xscav_frac1(jpart,ks)=xscav_frac1(jpart,ks)*(-1.)* & 439 442 wetdeposit(ks)/xmass1(jpart,ks) 440 ! write (*,*) 'paricle kept: ',jpart,ks,wetdeposit(ks),xscav_frac1(jpart,ks) 443 ! write (*,*) 'paricle kept: ',jpart,ks,wetdeposit(ks),xscav_frac1(jpart,ks),xmass(jpart,ks) 441 444 endif 442 445 endif … … 464 467 tot_inc_count=tot_inc_count+inc_count 465 468 469 ! write (*,*) 'First time removed: ',firsttimerem 470 466 471 end subroutine wetdepo
Note: See TracChangeset
for help on using the changeset viewer.