jscott/pkg_atm2d/atm2d_finish.F

#include "ctrparam.h"
#ifdef OCEAN_3D
#  include "ATM2D_OPTIONS.h"
#endif
C
      SUBROUTINE ATM2D_FINISH(myThid)
C     |==========================================================|
C     | Called from forward_step_atm2d the last time through the |
C     | main loop -- thus, and opportunity to shut down MPI, do  |
C     | cleanup/finish routines.                                 |
C     \==========================================================/
      IMPLICIT NONE

#  ifdef ATM2D_MPI_ON
#    include "mpif.h"
#  endif

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myIter - iteration counter for this thread
C     myTime - time counter for this thread
C     myThid - thread number for this instance of the routine.
      INTEGER myThid

C     === Local variables ===
#ifdef OCEAN_3D
      INTEGER rc
#endif

#ifdef ATM2D_MPI_ON
      CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
      CALL MPI_FINALIZE(rc)
#endif

      RETURN
      END
1	#include "ctrparam.h"
2	#ifdef OCEAN_3D
3	# include "ATM2D_OPTIONS.h"
4	#endif
5	C
6	SUBROUTINE ATM2D_FINISH(myThid)
7	C \|==========================================================\|
8	C \| Called from forward_step_atm2d the last time through the \|
9	C \| main loop -- thus, and opportunity to shut down MPI, do \|
10	C \| cleanup/finish routines. \|
11	C \==========================================================/
12	IMPLICIT NONE
13
14	# ifdef ATM2D_MPI_ON
15	# include "mpif.h"
16	# endif
17
18	C !INPUT/OUTPUT PARAMETERS:
19	C == Routine arguments ==
20	C myIter - iteration counter for this thread
21	C myTime - time counter for this thread
22	C myThid - thread number for this instance of the routine.
23	INTEGER myThid
24
25	C === Local variables ===
26	#ifdef OCEAN_3D
27	INTEGER rc
28	#endif
29
30	#ifdef ATM2D_MPI_ON
31	CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
32	CALL MPI_FINALIZE(rc)
33	#endif
34
35	RETURN
36	END