/[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.1 by stephd, Wed Jun 25 21:00:36 2003 UTC revision 1.4 by jmc, Tue Jul 13 18:03:31 2004 UTC
# Line 1  Line 1 
1  #include "CPP_OPTIONS.h"  C $Header$
2    C $Name$
3    
4    #include "DIC_OPTIONS.h"
5  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
6    
7    #ifdef ALLOW_FE
8  CStartOfInterFace  CStartOfInterFace
9        SUBROUTINE Fe_CHEM(        SUBROUTINE Fe_CHEM(
10       I           bi,bj,iMin,iMax,jMin,jMax,       I           bi,bj,iMin,iMax,jMin,jMax,
# Line 20  C     == GLobal variables == Line 24  C     == GLobal variables ==
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "GRID.h"  #include "GRID.h"
26  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
27    #include "PTRACERS_SIZE.h"
28  #include "PTRACERS.h"  #include "PTRACERS.h"
29    
30  C     == Routine arguments ==                  C     == Routine arguments ==                
# Line 72  C   Ligand,FeL,Fe calculation Line 77  C   Ligand,FeL,Fe calculation
77  c  c
78          RETURN          RETURN
79          END                                END                      
80    #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22