/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_generate_zoo.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_generate_zoo.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by stephd, Fri Oct 21 20:56:53 2011 UTC revision 1.4 by jahn, Tue Nov 28 15:45:22 2017 UTC
# Line 113  c assume zoo(1) = small, zoo(2) = big Line 113  c assume zoo(1) = small, zoo(2) = big
113           mortzoo(2) = ZoomortBig           mortzoo(2) = ZoomortBig
114           mortzoo2(1) = ZoomortSmall2           mortzoo2(1) = ZoomortSmall2
115           mortzoo2(2) = ZoomortBig2           mortzoo2(2) = ZoomortBig2
116           ExportFracGraz(1)=ExGrazFracbig           ExportFracGraz(1)=ExGrazFracSmall
117           ExportFracGraz(2)=ExGrazFracsmall           ExportFracGraz(2)=ExGrazFracBig
118           IF ( nzmax.GT.2 ) THEN           IF ( nzmax.GT.2 ) THEN
119             WRITE(msgBuf,'(2A,I5)') 'MONOD_GENERATE_ZOO: ',             WRITE(msgBuf,'(2A,I5)') 'MONOD_GENERATE_ZOO: ',
120       &       'nzmax = ', nzmax       &       'nzmax = ', nzmax
# Line 138  c Line 138  c
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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22