Commit 0539b8f3 authored by Sabine's avatar Sabine
Browse files

BUGFIX: wetscav variable initialised in get_wetscav

parent 6896b176
......@@ -92,6 +92,8 @@ subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc
logical :: readclouds_this_nest
wetscav=0.
! Determine which nesting level to be used
!*****************************************
ngrid=0
......
......@@ -107,7 +107,7 @@ subroutine wetdepo(itime,ltsample,loutnext)
!**************************************************
! CALCULATE DEPOSITION
!**************************************************
wetscav=0.
! wetscav=0.
! write(*,*) ks,dquer(ks), crain_aero(ks),csnow_aero(ks)
! if (((dquer(ks).le.0.).and.(weta_gas(ks).gt.0..or.wetb_gas(ks).gt.0.)) &
......
Markdown is supported
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