--- MITgcm/pkg/dic/fe_chem.F	2003/10/02 18:30:07	1.1.2.1
+++ MITgcm/pkg/dic/fe_chem.F	2004/07/13 18:03:31	1.4
@@ -1,6 +1,10 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/fe_chem.F,v 1.4 2004/07/13 18:03:31 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,
@@ -20,6 +24,7 @@
 #include "PARAMS.h"
 #include "GRID.h"
 #include "DIC_BIOTIC.h"
+#include "PTRACERS_SIZE.h"
 #include "PTRACERS.h"
 
 C     == Routine arguments ==                
@@ -72,4 +77,4 @@
 c
         RETURN
         END                      
-
+#endif