/[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.2 by stephd, Fri Oct 21 20:56:53 2011 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             mortzoo2(1) = ZoomortSmall2
115             mortzoo2(2) = ZoomortBig2
116           ExportFracGraz(1)=ExGrazFracbig           ExportFracGraz(1)=ExGrazFracbig
117           ExportFracGraz(2)=ExGrazFracsmall           ExportFracGraz(2)=ExGrazFracsmall
118           IF ( nzmax.GT.2 ) THEN           IF ( nzmax.GT.2 ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22