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

Update wpm_wood_proc.f

parent 07615beb
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source_code/version2.2_windows/wpm_wood_proc.f
+ 1
− 1
View file @ e8ae3084
...@@ -154,7 +154,7 @@ integer act_spec, act_year, set_year ...@@ -154,7 +154,7 @@ integer act_spec, act_year, set_year
! calculate emission from harvesting process ! calculate emission from harvesting process
emission_har (management_years(i)) = summe * sub_par(1) emission_har (management_years(i)) = summe * sub_par(1)
write (9999,*) emission_har(management_years(i)), management_years(i) ! write (9999,*) emission_har(management_years(i)), management_years(i)
end do end do
end subroutine calculate_product_lines end subroutine calculate_product_lines
......
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