Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by stephd, Thu Aug 18 18:24:29 2005 UTC | revision 1.9 by stephd, Thu Aug 25 22:32:44 2005 UTC | |
---|---|---|
# | Line 204 c add all tendencies for PO4, DOP, ALK, | Line 204 c add all tendencies for PO4, DOP, ALK, |
204 | GO2(i,j,1)=GO2(i,j,1)+SURO(i,j) | GO2(i,j,1)=GO2(i,j,1)+SURO(i,j) |
205 | #ifdef ALLOW_FE | #ifdef ALLOW_FE |
206 | GFE(i,j,1)=GFE(i,j,1)+alpfe* | GFE(i,j,1)=GFE(i,j,1)+alpfe* |
207 | & InputFe(i,j,bi,bj)/drF(1) | & InputFe(i,j,bi,bj)*recip_drF(1) |
208 | & *recip_hFacC(i,j,1,bi,bj) | |
209 | #endif | #endif |
210 | ENDIF | ENDIF |
211 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |