/[MITgcm]/MITgcm/pkg/dic/dic_biotic_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_biotic_forcing.F

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

revision 1.16 by dfer, Thu Oct 25 18:38:31 2007 UTC revision 1.17 by dfer, Fri Oct 26 21:08:13 2007 UTC
# Line 199  c add all tendencies for PO4, DOP, ALK, Line 199  c add all tendencies for PO4, DOP, ALK,
199            DO i=imin,imax            DO i=imin,imax
200    
201             GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k)             GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k)
202       &         + maskC(i,j,k,bi,bj)*Kdopremin*PTR_DOP(i,j,k)       &         + maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
203    
204             car(i,j,k) =-BIOac(i,j,k)* R_CP*rain_ratio(i,j,bi,bj)*             car(i,j,k) =-BIOac(i,j,k)* R_CP*rain_ratio(i,j,bi,bj)*
205       &                (1. _d 0-DOPfraction)+cflux(i,j,k)       &                (1. _d 0-DOPfraction)+cflux(i,j,k)
206    
207             GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction             GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction
208       &         - maskC(i,j,k,bi,bj)*Kdopremin*PTR_DOP(i,j,k)       &         - maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
209    
210             GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k)             GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k)
211    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22