jscott/pkg_atm2d/atm2d_finish.F

#include "ctrparam.h"
#ifdef OCEAN_3D
#  include "ATM2D_OPTIONS.h"
#endif
C
      SUBROUTINE ATM2D_FINISH(myThid)
C     |==========================================================|
C     | Initialization steps which depend on pickups loading     |
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 CPL_TEM 
c     CALL tem_cleanup
#endif

Cmove below somewhere into MITCGM code
#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 \| Initialization steps which depend on pickups loading \|
9	C \==========================================================/
10	IMPLICIT NONE
11
12	# ifdef ATM2D_MPI_ON
13	# include "mpif.h"
14	# endif
15
16	C !INPUT/OUTPUT PARAMETERS:
17	C == Routine arguments ==
18	C myIter - iteration counter for this thread
19	C myTime - time counter for this thread
20	C myThid - thread number for this instance of the routine.
21	INTEGER myThid
22
23	C === Local variables ===
24	#ifdef OCEAN_3D
25	INTEGER rc
26	#endif
27
28	#ifdef CPL_TEM
29	c CALL tem_cleanup
30	#endif
31
32	Cmove below somewhere into MITCGM code
33	#ifdef ATM2D_MPI_ON
34	CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
35	CALL MPI_FINALIZE(rc)
36	#endif
37
38	RETURN
39	END