/[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.16 by jmc, Tue Apr 13 03:06:14 2010 UTC revision 1.17 by jmc, Wed Aug 22 00:40:56 2012 UTC
# Line 8  C     !ROUTINE: Fe_CHEM Line 8  C     !ROUTINE: Fe_CHEM
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE Fe_CHEM(        SUBROUTINE Fe_CHEM(
10       I           bi,bj, iMin,iMax,jMin,jMax,       I           bi,bj, iMin,iMax,jMin,jMax,
11       I           fe, freefe,       I           fe,
12         O           freefe,
13       I           myIter, myThid )       I           myIter, myThid )
14    
15  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
# Line 55  C  ADAPTED FROM PAYAL Line 56  C  ADAPTED FROM PAYAL
56  C  C
57  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
58    
59          DO k=1,Nr
60           DO j=1-OLy,sNy+OLy
61            DO i=1-OLx,sNx+OLx
62              freefe(i,j,k) = 0. _d 0
63            ENDDO
64           ENDDO
65          ENDDO
66    
67  C ligand balance in surface layer  C ligand balance in surface layer
68  C in surface layer  C in surface layer
69    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22