--- MITgcm/pkg/ptracers/ptracers_integrate.F	2004/10/28 00:33:56	1.19
+++ MITgcm/pkg/ptracers/ptracers_integrate.F	2004/11/19 01:34:27	1.20
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_integrate.F,v 1.19 2004/10/28 00:33:56 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_integrate.F,v 1.20 2004/11/19 01:34:27 mlosch Exp $
 C $Name:  $
 
 #include "PTRACERS_OPTIONS.h"
@@ -120,7 +120,7 @@
 cswdptr --add --
 #ifdef ALLOW_GCHEM
 #ifndef PTRACERS_SEPARATE_FORCING
-       IF ( forcing_In_AB )
+       IF ( forcing_In_AB .AND. useGCHEM )
      &    CALL GCHEM_FORCING_INT(
      I                        bi,bj,iMin,iMax,jMin,jMax,k,
      I                        iTracer,
@@ -153,7 +153,7 @@
 cswdptr - add--
 #ifdef ALLOW_GCHEM
 #ifndef PTRACERS_SEPARATE_FORCING
-       IF ( .NOT.forcing_In_AB )
+       IF ( .NOT.forcing_In_AB .AND. useGCHEM )
      &    CALL GCHEM_FORCING_INT(
      I                        bi,bj,iMin,iMax,jMin,jMax,k,
      I                        iTracer,