--- MITgcm/pkg/dic/fe_chem.F	2003/10/09 04:19:19	1.3
+++ MITgcm/pkg/dic/fe_chem.F	2004/10/18 16:01:13	1.5
@@ -1,7 +1,9 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/fe_chem.F,v 1.5 2004/10/18 16:01:13 jmc Exp $
+C $Name:  $
+
 #include "DIC_OPTIONS.h"
 #include "GCHEM_OPTIONS.h"
 
-#ifdef ALLOW_FE
 CStartOfInterFace
       SUBROUTINE Fe_CHEM(
      I           bi,bj,iMin,iMax,jMin,jMax,
@@ -21,6 +23,7 @@
 #include "PARAMS.h"
 #include "GRID.h"
 #include "DIC_BIOTIC.h"
+#include "PTRACERS_SIZE.h"
 #include "PTRACERS.h"
 
 C     == Routine arguments ==                
@@ -33,6 +36,7 @@
       INTEGER myIter,myThid
 CEndOfInterface
 
+#ifdef ALLOW_FE
 
       INTEGER I,J,K
       _RL  lig, FeL
@@ -71,6 +75,6 @@
         ENDDO
        ENDDO    
 c
+#endif 
         RETURN
         END                      
-#endif