Skip to content
Snippets Groups Projects
Commit 47e98b46 authored by Petra Lasch-Born's avatar Petra Lasch-Born
Browse files

Update stand_bal.f 

correction
parent 01790ae8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source_code/version_2.3_windows/stand_bal.f
+ 1
− 1
View file @ 47e98b46
......@@ -544,7 +544,7 @@ do i=1,nspecies
svar(i)%mean_diam = svar(i)%mean_diam / ntr
svar(i)%mean_jrb = svar(i)%mean_jrb / ntr
svar(i)%basal_area = pi*ntr*(svar(i)%med_diam*svar(i)%med_diam/40000)*10000/kpatchsize
svar(i)%basal_area = pi*(ntr-helpdiam(i))*(svar(i)%med_diam*svar(i)%med_diam/40000)*10000/kpatchsize
else
svar(i)%sum_ntreea = 0.
endif
......
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