C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_mpistuff.F,v 1.4 2004/07/26 18:45:17 molod Exp $
C $Name:  $

#include "FIZHI_OPTIONS.h"
      subroutine MY_FINALIZE
      implicit none
#ifdef ALLOW_USE_MPI
      integer  ierror
      call MPI_FINALIZE (ierror )
#endif
      return
      end


subroutine MY_EXIT (irc) implicit none integer irc #ifdef ALLOW_USE_MPI integer ierror call SYSTEM ('touch gcm_error') call MPI_FINALIZE (ierror) #endif call EXIT (irc) return end