/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_finish.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_finish.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 5  Line 5 
5  C  C
6        SUBROUTINE ATM2D_FINISH(myThid)        SUBROUTINE ATM2D_FINISH(myThid)
7  C     |==========================================================|  C     |==========================================================|
8  C     | Initialization steps which depend on pickups loading     |  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     \==========================================================/  C     \==========================================================/
12        IMPLICIT NONE        IMPLICIT NONE
13    
# Line 25  C     === Local variables === Line 27  C     === Local variables ===
27        INTEGER rc        INTEGER rc
28  #endif  #endif
29    
 #ifdef CPL_TEM  
 c     CALL tem_cleanup  
 #endif  
   
 Cmove below somewhere into MITCGM code  
30  #ifdef ATM2D_MPI_ON  #ifdef ATM2D_MPI_ON
31        CALL MPI_BARRIER( MPI_COMM_WORLD, rc )        CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
32        CALL MPI_FINALIZE(rc)        CALL MPI_FINALIZE(rc)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22