/[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.4 by jmc, Tue Jul 13 18:03:31 2004 UTC revision 1.5 by jmc, Mon Oct 18 16:01:13 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
5  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
6    
 #ifdef ALLOW_FE  
7  CStartOfInterFace  CStartOfInterFace
8        SUBROUTINE Fe_CHEM(        SUBROUTINE Fe_CHEM(
9       I           bi,bj,iMin,iMax,jMin,jMax,       I           bi,bj,iMin,iMax,jMin,jMax,
# Line 37  C     myThid - Instance number for this Line 36  C     myThid - Instance number for this
36        INTEGER myIter,myThid        INTEGER myIter,myThid
37  CEndOfInterface  CEndOfInterface
38    
39    #ifdef ALLOW_FE
40    
41        INTEGER I,J,K        INTEGER I,J,K
42        _RL  lig, FeL        _RL  lig, FeL
# Line 75  C   Ligand,FeL,Fe calculation Line 75  C   Ligand,FeL,Fe calculation
75          ENDDO          ENDDO
76         ENDDO             ENDDO    
77  c  c
78    #endif
79          RETURN          RETURN
80          END                                END                      
 #endif  
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22