Commit db375cc3 authored by Espen Sollum's avatar Espen Sollum
Browse files

Removed some unused variables

parent e52967c0
......@@ -62,8 +62,8 @@ subroutine wetdepo(itime,ltsample,loutnext)
implicit none
integer :: jpart,itime,ltsample,loutnext,ldeltat,i,j,ix,jy
integer :: itage,nage,il,interp_time, n
integer :: jpart,itime,ltsample,loutnext,ldeltat
integer :: itage,nage
integer :: ks, kp
integer(selected_int_kind(16)), dimension(nspec) :: blc_count, inc_count
real :: grfraction(3),wetscav
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