--- MITgcm/pkg/exch2/w2_set_single_facet.F	2010/04/23 20:21:06	1.3
+++ MITgcm/pkg/exch2/w2_set_single_facet.F	2012/03/30 18:23:13	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/w2_set_single_facet.F,v 1.3 2010/04/23 20:21:06 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/w2_set_single_facet.F,v 1.4 2012/03/30 18:23:13 jmc Exp $
 C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
@@ -65,7 +65,7 @@
      &     ' unvalid 1rst 2 dimensions:', facet_dims(1), facet_dims(2)
          CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )
          CALL PRINT_ERROR( msgBuf, myThid )
-         CALL ALL_PROC_DIE( myThid )
+         CALL ALL_PROC_DIE( 0 )
          STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unvalid dims'
       ENDIF
       DO j=3,W2_maxNbFacets*2
@@ -74,7 +74,7 @@
      &     ' no more than 2 dims (X,Y) expected for single facet'
          CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )
          CALL PRINT_ERROR( msgBuf, myThid )
-         CALL ALL_PROC_DIE( myThid )
+         CALL ALL_PROC_DIE( 0 )
          STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unexpected dims'
        ENDIF
       ENDDO