Commit f65fe5b7 authored by Markus Pahlow's avatar Markus Pahlow

comment code with no effect

parent c8851ced
......@@ -789,8 +789,8 @@
sg_bdeni = min(sg_bdeni, sgb*expo)
sg_bdeni = max(sg_bdeni, 0.)
if (k .ge. 1 .and. k .le. 10)
& sg_bdeni = 1*sg_bdeni
! if (k .ge. 1 .and. k .le. 10)
! & sg_bdeni = 1*sg_bdeni
sg_bdeni = sg_bdeni*(0.5 + lno3)*no3flag*din15flag
snpzd(5) = snpzd(5) + sgb*expo - sg_bdeni
......
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