--- MITgcm/pkg/gchem/gchem_init_vari.F 2004/11/19 21:28:47 1.5 +++ MITgcm/pkg/gchem/gchem_init_vari.F 2005/08/18 19:29:51 1.6 @@ -1,4 +1,4 @@ -C$Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.5 2004/11/19 21:28:47 mlosch Exp $ +C$Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.6 2005/08/18 19:29:51 stephd Exp $ C$Name: $ #include "GCHEM_OPTIONS.h" @@ -29,7 +29,7 @@ ccccccccccccccccccccccccccc c initialize parameters c ccccccccccccccccccccccccccc -#ifdef DIC_BIOTIC +#ifdef ALLOW_DIC print*,'QQ load dic parameters, initial vari' c these two needed to be recalled for adjoint call DIC_BIOTIC_PARAM(myThid) @@ -38,7 +38,7 @@ CALL DIC_INI_FORCING(myThid) call DIC_SURFFORCING_INIT(myThid) call DIC_BIOTIC_INIT(myThid ) -#endif /* DIC_BIOTIC */ +#endif /* ALLOW_DIC */ _END_MASTER( mythid )