--- MITgcm/pkg/ptracers/ptracers_forcing.F	2004/11/23 20:21:14	1.7
+++ MITgcm/pkg/ptracers/ptracers_forcing.F	2004/11/28 23:50:04	1.8
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_forcing.F,v 1.7 2004/11/23 20:21:14 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_forcing.F,v 1.8 2004/11/28 23:50:04 mlosch Exp $
 C $Name:  $
 
 #include "PTRACERS_OPTIONS.h"
@@ -63,12 +63,12 @@
 
 #ifdef ALLOW_GCHEM 
       IF ( useGCHEM ) 
-     &     CALL GCHEM_FORCING_INT(
+     &     CALL GCHEM_ADD_TENDENCY(
      I                        bi,bj,iMin,iMax,jMin,jMax,k,
      I                        iTracer,
      I                        myTime,myIter, myThid)
 #else /* ALLOW_GCHEM */
-       IF ( k .EQ. kSurface ) THEN
+       IF ( .NOT. useGCHEM .AND. k .EQ. kSurface ) THEN
         DO j=jMin,jMax
          DO i=iMin,iMax
           gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)