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	jscott	1.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