pkg/fizhi/fizhi_mpistuff.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_mpistuff.F,v 1.2 2004/06/04 19:03:10 molod Exp $
C $Name:  $

      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

1	molod	1.3	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_mpistuff.F,v 1.2 2004/06/04 19:03:10 molod Exp $
2	molod	1.2	C $Name: $
3
4	molod	1.1	subroutine my_finalize
5			implicit none
6	molod	1.3	#ifdef ALLOW_USE_MPI
7	molod	1.1	integer ierror
8			call mpi_finalize (ierror )
9			#endif
10			return
11			end
12
13			subroutine my_exit (irc)
14			implicit none
15			integer irc
16			#ifdef ALLOW_USE_MPI
17			integer ierror
18			call system ('touch gcm_error')
19			call mpi_finalize (ierror)
20			#endif
21			call exit (irc)
22			return
23			end
24