pkg/fizhi/fizhi_mpistuff.F

      subroutine my_finalize
      implicit none
      integer  ierror
#ifdef ALLOW_USE_MPI
      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.1	subroutine my_finalize
2			implicit none
3			integer ierror
4			#ifdef ALLOW_USE_MPI
5			call mpi_finalize (ierror )
6			#endif
7			return
8			end
9
10			subroutine my_exit (irc)
11			implicit none
12			integer irc
13			#ifdef ALLOW_USE_MPI
14			integer ierror
15			call system ('touch gcm_error')
16			call mpi_finalize (ierror)
17			#endif
18			call exit (irc)
19			return
20			end
21