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

removed write statement

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