/[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.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
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22