/[MITgcm]/MITgcm/pkg/dic/fe_chem.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/fe_chem.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by stephd, Mon Dec 12 19:07:36 2005 UTC revision 1.8 by stephd, Fri Dec 16 21:07:53 2005 UTC
# Line 55  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Line 55  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
55  C ligand balance in surface layer  C ligand balance in surface layer
56  C in surface layer  C in surface layer
57    
58         DO j=1-OLy,sNy+OLy         DO j=jmin,jmax
59          DO i=1-OLx,sNx+OLx          DO i=imin,imax
60           DO k=1,nR           DO k=1,nR
61            IF(hFacC(i,j,k,bi,bj) .gt. 0.0)THEN            IF(hFacC(i,j,k,bi,bj) .gt. 0.0)THEN
62    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22