/[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.4 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.5 by jmc, Tue Oct 28 22:19:53 2003 UTC
# Line 162  c add all tendencies for PO4, DOP, ALK, Line 162  c add all tendencies for PO4, DOP, ALK,
162                 GO2(i,j,1)=GO2(i,j,1)+SURO(i,j)                 GO2(i,j,1)=GO2(i,j,1)+SURO(i,j)
163  #ifdef ALLOW_FE  #ifdef ALLOW_FE
164                 GFE(i,j,1)=GFE(i,j,1)+alpfe*                 GFE(i,j,1)=GFE(i,j,1)+alpfe*
165       &                    InputFe(i,j,bi,bj)/delz(1)       &                    InputFe(i,j,bi,bj)/drF(1)
166  #endif  #endif
167             ENDIF             ENDIF
168            ENDDO            ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22