--- MITgcm/pkg/dic/fe_chem.F 2003/10/02 18:30:07 1.1.2.1 +++ MITgcm/pkg/dic/fe_chem.F 2004/10/18 16:01:13 1.5 @@ -1,3 +1,6 @@ +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" @@ -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 -