/[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.18 by dfer, Mon Oct 29 16:49:49 2007 UTC revision 1.19 by dfer, Wed Dec 12 01:41:26 2007 UTC
# Line 213  c add all tendencies for PO4, DOP, ALK, Line 213  c add all tendencies for PO4, DOP, ALK,
213         DO k=1,Nr         DO k=1,Nr
214           DO j=jmin,jmax           DO j=jmin,jmax
215            DO i=imin,imax            DO i=imin,imax
216             RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)  #ifdef DIC_NO_NEG
217               RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
218         &                     ,0. _d 0)
219    #else
220               RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
221    #endif
222             GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k)             GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k)
223    
224             car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k)             car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22