Code: Select all
! Phytoplankton grazing by zooplankton.
!
cff1=fac1*Bio(i,k,iZoop)*Bio(i,k,iPhyt)/ &
& (K_Phy(ng)+Bio(i,k,iPhyt)*Bio(i,k,iPhyt))
cff3=1.0_r8/(1.0_r8+cff1)
Bio(i,k,iPhyt)=cff3*Bio(i,k,iPhyt)
Code: Select all
! Phytoplankton grazing by zooplankton.
!
cff1=fac1*Bio(i,k,iPhyt)*Bio(i,k,iPhyt)/ &
& (K_Phy(ng)+Bio(i,k,iPhyt)*Bio(i,k,iPhyt))
cff3=1.0_r8/(1.0_r8+cff1)
Bio(i,k,iPhyt)=cff3*Bio(i,k,iPhyt)