/[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.10 by stephd, Fri Nov 16 19:50:22 2012 UTC revision 1.11 by stephd, Wed Mar 27 20:51:06 2013 UTC
# Line 1237  c accumulate particulate and dissolved d Line 1237  c accumulate particulate and dissolved d
1237       &                     ExportFracZ(nz)*( mortzoo(nz)*       &                     ExportFracZ(nz)*( mortzoo(nz)*
1238       &                     mortZTempFunction*zooN(nz)       &                     mortZTempFunction*zooN(nz)
1239       &                     +  mortzoo2(nz)*       &                     +  mortzoo2(nz)*
1240       &                     mortZ2TempFunction*zooN(nz)**2 )       &                     mortZ2TempFunction*zooN(nz)*zooP(nz) )
1241                 totzoo_don=totzoo_don+                 totzoo_don=totzoo_don+
1242       &                    (1. _d 0-ExportFracZ(nz))*(       &                    (1. _d 0-ExportFracZ(nz))*(
1243       &                     mortzoo(nz)*       &                     mortzoo(nz)*
1244       &                     mortZTempFunction*zooN(nz)+       &                     mortZTempFunction*zooN(nz)+
1245       &                     mortzoo2(nz)*       &                     mortzoo2(nz)*
1246       &                     mortZ2TempFunction*zooN(nz)**2 )       &                     mortZ2TempFunction*zooN(nz)*zooP(nz) )
1247                 totzoo_pofe=totzoo_pofe+                 totzoo_pofe=totzoo_pofe+
1248       &                     ExportFracZ(nz)*( mortzoo(nz)*       &                     ExportFracZ(nz)*( mortzoo(nz)*
1249       &                     mortZTempFunction*zooFe(nz)       &                     mortZTempFunction*zooFe(nz)
1250       &                     +  mortzoo2(nz)*       &                     +  mortzoo2(nz)*
1251       &                     mortZ2TempFunction*zooFe(nz)**2 )       &                     mortZ2TempFunction*zooFe(nz)*zooP(nz) )
1252                 totzoo_dofe=totzoo_dofe+                 totzoo_dofe=totzoo_dofe+
1253       &                   (1. _d 0-ExportFracZ(nz))*(       &                   (1. _d 0-ExportFracZ(nz))*(
1254       &                    mortzoo(nz)*       &                    mortzoo(nz)*
1255       &                    mortZTempFunction*zooFe(nz) +       &                    mortZTempFunction*zooFe(nz) +
1256       &                    mortzoo2(nz)*       &                    mortzoo2(nz)*
1257       &                    mortZ2TempFunction*zooFe(nz)**2 )       &                    mortZ2TempFunction*zooFe(nz)*zooP(nz) )
1258                 totzoo_posi=totzoo_posi+                 totzoo_posi=totzoo_posi+
1259       &                     ( mortzoo(nz)*       &                     ( mortzoo(nz)*
1260       &                       mortZTempFunction*zooSi(nz)+       &                       mortZTempFunction*zooSi(nz)+
1261       &                       mortzoo2(nz)*       &                       mortzoo2(nz)*
1262       &                       mortZ2TempFunction*zooSi(nz)**2 )       &                       mortZ2TempFunction*zooSi(nz)*zooP(nz) )
1263  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
1264                 totzoo_poc=totzoo_poc+                 totzoo_poc=totzoo_poc+
1265       &                    ExportFracZ(nz)*( mortzoo(nz)*       &                    ExportFracZ(nz)*( mortzoo(nz)*
1266       &                         mortZTempFunction*zooClocal(nz)       &                         mortZTempFunction*zooClocal(nz)
1267       &                      +  mortzoo2(nz)*       &                      +  mortzoo2(nz)*
1268       &                         mortZ2TempFunction*zooClocal(nz)**2 )       &                       mortZ2TempFunction*zooClocal(nz)*zooP(nz) )
1269                 totzoo_doc=totzoo_doc+                 totzoo_doc=totzoo_doc+
1270       &           (1. _d 0-ExportFracZ(nz))*( mortzoo(nz)*       &           (1. _d 0-ExportFracZ(nz))*( mortzoo(nz)*
1271       &                         mortZTempFunction*zooClocal(nz)       &                         mortZTempFunction*zooClocal(nz)
1272       &                      +  mortzoo2(nz)*       &                      +  mortzoo2(nz)*
1273       &                         mortZ2TempFunction*zooClocal(nz)**2 )       &                       mortZ2TempFunction*zooClocal(nz)*zooP(nz) )
1274  #endif  #endif
1275              enddo              enddo
1276    
# Line 1654  C zooplankton stoichiometry varies accor Line 1654  C zooplankton stoichiometry varies accor
1654       &                           - mortzoo(nz)*       &                           - mortzoo(nz)*
1655       &                             mortZTempFunction*zooN(nz)       &                             mortZTempFunction*zooN(nz)
1656       &                           - mortzoo2(nz)*       &                           - mortzoo2(nz)*
1657       &                             mortZ2TempFunction*zooN(nz)**2       &                             mortZ2TempFunction*zooN(nz)*zooP(nz)
1658                dzooFedt(nz) = dzooFedt(nz)                dzooFedt(nz) = dzooFedt(nz)
1659       &                           - mortzoo(nz)*       &                           - mortzoo(nz)*
1660       &                             mortZTempFunction*zooFe(nz)       &                             mortZTempFunction*zooFe(nz)
1661       &                           - mortzoo2(nz)*       &                           - mortzoo2(nz)*
1662       &                             mortZ2TempFunction*zooFe(nz)**2       &                             mortZ2TempFunction*zooFe(nz)*zooP(nz)
1663                dzooSidt(nz) = dzooSidt(nz)                dzooSidt(nz) = dzooSidt(nz)
1664       &                           - mortzoo(nz)*       &                           - mortzoo(nz)*
1665       &                             mortZTempFunction*zooSi(nz)       &                             mortZTempFunction*zooSi(nz)
1666       &                           - mortzoo2(nz)*       &                           - mortzoo2(nz)*
1667       &                             mortZ2TempFunction*zooSi(nz)**2       &                             mortZ2TempFunction*zooSi(nz)*zooP(nz)
1668              enddo              enddo
1669    
1670    
# Line 1784  c loss of O2 by remineralization Line 1784  c loss of O2 by remineralization
1784       &                           - mortzoo(nz)*       &                           - mortzoo(nz)*
1785       &                             mortZTempFunction*zooClocal(nz)       &                             mortZTempFunction*zooClocal(nz)
1786       &                           - mortzoo2(nz)*       &                           - mortzoo2(nz)*
1787       &                             mortZ2TempFunction*zooClocal(nz)**2       &                         mortZ2TempFunction*zooClocal(nz)*zooP(nz)
1788              enddo              enddo
1789  #else  #else
1790              do nz=1,nzmax              do nz=1,nzmax
# Line 1792  c loss of O2 by remineralization Line 1792  c loss of O2 by remineralization
1792       &                           - mortzoo(nz)*       &                           - mortzoo(nz)*
1793       &                             mortZTempFunction*zooClocal(nz)       &                             mortZTempFunction*zooClocal(nz)
1794       &                           - mortzoo2(nz)*       &                           - mortzoo2(nz)*
1795       &                             mortZ2TempFunction*zooClocal(nz)**2       &                         mortZ2TempFunction*zooClocal(nz)*zooP(nz)
1796              enddo              enddo
1797  #endif  #endif
1798    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22