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