Skip to content

GitLab

U
UVic-updates-opem
Commit 1b4749c5 authored by Markus Pahlow's avatar Markus Pahlow
Browse files
Options

simplify code

parent 17e1ce65
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
f90/cfo.f90
View file @ 1b4749c5
......@@ -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