--- MITgcm/pkg/dic/fe_chem.F	2003/06/25 21:00:36	1.1
+++ MITgcm/pkg/dic/fe_chem.F	2004/10/18 16:01:13	1.5
@@ -1,4 +1,7 @@
-#include "CPP_OPTIONS.h"
+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"
 
 CStartOfInterFace
@@ -20,6 +23,7 @@
 #include "PARAMS.h"
 #include "GRID.h"
 #include "DIC_BIOTIC.h"
+#include "PTRACERS_SIZE.h"
 #include "PTRACERS.h"
 
 C     == Routine arguments ==                
@@ -32,6 +36,7 @@
       INTEGER myIter,myThid
 CEndOfInterface
 
+#ifdef ALLOW_FE
 
       INTEGER I,J,K
       _RL  lig, FeL
@@ -70,6 +75,6 @@
         ENDDO
        ENDDO    
 c
+#endif 
         RETURN
         END                      
-