$PROJECT model 5

$DIFFEQ_DIF

CFUS   = X(1)
CFUR   = X(2)

IF (CDRUGcut.GT.0) THEN
   KILLS = Kmax * CDRUGcut / (KC50S + CDRUGcut)
   KILLR = Kmax * CDRUGcut / (KC50R + CDRUGcut)
ELSE
   KILLS = 0
   KILLR = 0
ENDIF

CFUALL = CFUS + CFUR

PLAT = 1 - (CFUALL/POPMAX)

XP(1) =  ( Kg * PLAT - KILLS ) * CFUS - kfor * CFUS + krev * CFUR
XP(2) =  ( Kg * PLAT - KILLR ) * CFUR + kfor * CFUS - krev * CFUR


$OUTPUT_ICS

INOC   = 10**LG_INOC
MUTF = 10**LG_MUTF

X(1) = X(1)+ INOC * (1 - MUTF)
X(2) = X(2)+ INOC * MUTF


$OUTPUT_EQN

POPMAX = 10**LG_POPMAX
Kg    = 1/(MGT/60)
kfor   = 10**LG_kfor
krev   = 10**LG_krev
CFUTOT = X(1)+ X(2)

IF (CFUTOT.GT.0) THEN 
   Y(1) = LOG10(CFUTOT)
ELSE
   Y(1) = 0
ENDIF 

$VARMOD_EQN

V(1) = SDin * SDin

$POPMOD_EQN