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


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 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
13	C !INPUT/OUTPUT PARAMETERS:
14	C == Routine arguments ==
15	C myIter - iteration counter for this thread
16	C myTime - time counter for this thread
17	C myThid - thread number for this instance of the routine.
18	INTEGER myThid
19
20	C === Local variables ===
21	#ifdef OCEAN_3D
22	INTEGER rc
23	#endif
24
25	#ifdef CPL_TEM
26	c CALL tem_cleanup
27	#endif
28
29	Cmove below somewhere into MITCGM code
30	#ifdef MPI_ON
31	CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
32	CALL MPI_FINALIZE(rc)
33	#endif
34
35	RETURN
36	END