Commit 1b4749c5 authored by Markus Pahlow's avatar Markus Pahlow

simplify code

parent 17e1ce65
......@@ -244,7 +244,7 @@ CONTAINS
EI = zoo%E*zoo%IC
zoo%ngr = (EI*(1E0_dp - zoo%ca) - zoo%poc*(zoo%cf*zoo%Af + Rm))*fQ
zoo%RC = EI - zoo%ngr ! respiration
zoo%XC = zoo%IC*(1E0_dp - zoo%E) ! egestion
zoo%XC = zoo%IC - EI ! egestion
END SUBROUTINE zxrex
! egest extra C in food
......
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