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

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_plankton.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, Wed Oct 5 20:37:23 2011 UTC
# Line 955  c sum all palatability*phyto and find ph Line 955  c sum all palatability*phyto and find ph
955              tmpz=max(0. _d 0,(allphyto(nz)-phygrazmin) )              tmpz=max(0. _d 0,(allphyto(nz)-phygrazmin) )
956              grazphy(np,nz)=grazemax(nz)*              grazphy(np,nz)=grazemax(nz)*
957       &           (palat(np,nz)*phyto(np)/allphyto(nz))*       &           (palat(np,nz)*phyto(np)/allphyto(nz))*
958       &           ( tmpz/       &           ( tmpz**hollexp/
959       &             (tmpz+kgrazesat) )       &             (tmpz**hollexp+kgrazesat**hollexp) )
960             enddo             enddo
961            enddo            enddo
962            if (debug.eq.2) print*,'allphyto',allphyto            if (debug.eq.2) print*,'allphyto',allphyto
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22