138 |
c common block variables (in m and m3) |
c common block variables (in m and m3) |
139 |
zoo_esd(nz)=dm* 1. _d -6 |
zoo_esd(nz)=dm* 1. _d -6 |
140 |
zoo_vol(nz)=volp* 1. _d -18 |
zoo_vol(nz)=volp* 1. _d -18 |
141 |
|
#ifdef FIX_ZOO_QUOTAS |
142 |
|
R_NP_zoo(nz)=val_R_NP_zoo |
143 |
|
R_FeP_zoo(nz)=val_RFeP_zoo |
144 |
|
R_SiP_zoo(nz)=val_R_SiP_zoo |
145 |
|
R_PC_zoo(nz)=val_R_PC_zoo |
146 |
|
#endif |
147 |
c palatibity according to "allometry" |
c palatibity according to "allometry" |
148 |
c big grazers preferentially eat big phyto etc... |
c big grazers preferentially eat big phyto etc... |
149 |
do np=1,npmax |
do np=1,npmax |