/[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.6 by stephd, Thu Feb 12 16:11:46 2004 UTC revision 1.7 by jmc, Sat Dec 4 00:15:14 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
5  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
6    
# Line 193  C update Line 196  C update
196           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
197            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
198             PTR_DIC(i,j,k)=             PTR_DIC(i,j,k)=
199       &      PTR_DIC(i,j,k)+GDIC(i,j,k)*deltaTtracer       &      PTR_DIC(i,j,k)+GDIC(i,j,k)*dTtracerLev(k)
200             PTR_ALK(i,j,k)=             PTR_ALK(i,j,k)=
201       &      PTR_ALK(i,j,k)+GALK(i,j,k)*deltaTtracer       &      PTR_ALK(i,j,k)+GALK(i,j,k)*dTtracerLev(k)
202             PTR_PO4(i,j,k)=             PTR_PO4(i,j,k)=
203       &      PTR_PO4(i,j,k)+GPO4(i,j,k)*deltaTtracer       &      PTR_PO4(i,j,k)+GPO4(i,j,k)*dTtracerLev(k)
204             PTR_DOP(i,j,k)=             PTR_DOP(i,j,k)=
205       &      PTR_DOP(i,j,k)+GDOP(i,j,k)*deltaTtracer       &      PTR_DOP(i,j,k)+GDOP(i,j,k)*dTtracerLev(k)
206             PTR_O2(i,j,k)=             PTR_O2(i,j,k)=
207       &      PTR_O2(i,j,k)+GO2(i,j,k)*deltaTtracer       &      PTR_O2(i,j,k)+GO2(i,j,k)*dTtracerLev(k)
208  #ifdef ALLOW_FE  #ifdef ALLOW_FE
209             PTR_FE(i,j,k)=             PTR_FE(i,j,k)=
210       &      PTR_FE(i,j,k)+GFE(i,j,k)*deltaTtracer       &      PTR_FE(i,j,k)+GFE(i,j,k)*dTtracerLev(k)
211  #endif  #endif
212            ENDDO            ENDDO
213           ENDDO           ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22