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 |
|
|
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 |