/[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.1 by jahn, Wed Apr 13 18:56:25 2011 UTC revision 1.4 by jahn, Tue Nov 28 15:45:22 2017 UTC
# Line 90  c small zooplankton (zoosize = 0.) lower Line 90  c small zooplankton (zoosize = 0.) lower
90             if(zoosize(nz) .eq. 0.0)then             if(zoosize(nz) .eq. 0.0)then
91               ExportFracZ(nz) = ZooexfacSmall               ExportFracZ(nz) = ZooexfacSmall
92               mortzoo(nz) = ZoomortSmall               mortzoo(nz) = ZoomortSmall
93                 mortzoo2(nz) = ZoomortSmall2
94             else             else
95               ExportFracZ(nz) = ZooexfacBig               ExportFracZ(nz) = ZooexfacBig
96               mortzoo(nz) = ZoomortBig               mortzoo(nz) = ZoomortBig
97                 mortzoo2(nz) = ZoomortBig2
98             endif             endif
99           end do           end do
100  #endif  #endif
# Line 109  c assume zoo(1) = small, zoo(2) = big Line 111  c assume zoo(1) = small, zoo(2) = big
111           ExportFracZ(2)=ZooexfacBig           ExportFracZ(2)=ZooexfacBig
112           mortzoo(1) = ZoomortSmall           mortzoo(1) = ZoomortSmall
113           mortzoo(2) = ZoomortBig           mortzoo(2) = ZoomortBig
114           ExportFracGraz(1)=ExGrazFracbig           mortzoo2(1) = ZoomortSmall2
115           ExportFracGraz(2)=ExGrazFracsmall           mortzoo2(2) = ZoomortBig2
116             ExportFracGraz(1)=ExGrazFracSmall
117             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 134  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.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22