--- MITgcm/pkg/ptracers/ptracers_read_pickup.F	2008/05/09 21:44:31	1.12
+++ MITgcm/pkg/ptracers/ptracers_read_pickup.F	2009/09/03 22:13:04	1.13
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_read_pickup.F,v 1.12 2008/05/09 21:44:31 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_read_pickup.F,v 1.13 2009/09/03 22:13:04 jmc Exp $
 C $Name:  $
 
 #include "GAD_OPTIONS.h"
@@ -278,10 +278,10 @@
          DO n=1,nSOM
            iRec = n
            CALL READ_REC_3D_RL( fn, prec, Nr,
-     O               _Ptracers_som(1-Olx,1-Oly,1,1,1,n,iTracer),
+     O               _Ptracers_som(:,:,:,:,:,n,iTracer),
      I               iRec, myIter, myThid )
          ENDDO
-         CALL GAD_EXCH_SOM( _Ptracers_som(1-Olx,1-Oly,1,1,1,1,iTracer),
+         CALL GAD_EXCH_SOM( _Ptracers_som(:,:,:,:,:,:,iTracer),
      &                      Nr, myThid )
         ENDIF
        ENDDO