Commit 15fdb5c1 authored by Sabine's avatar Sabine
Browse files

removed write statement

parent 657fa369
......@@ -562,8 +562,8 @@ subroutine timemanager
xscav_frac1(j,ks)=xscav_frac1(j,ks)*(-1.)* &
drydeposit(ks)/xmass1(j,ks)
!if (xscav_frac1(j,ks).eq.1) then
write (*,*) 'xscav 1: ',j,prob_rec(ks),xmass1(j,ks), &
ztra1(j),drydeposit(ks),decfact
! write (*,*) 'xscav 1: ',j,prob_rec(ks),xmass1(j,ks), &
! ztra1(j),drydeposit(ks),decfact
! stop
! endif
else
......
Supports Markdown
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