/[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.1 by jscott, Fri Aug 11 18:55:49 2006 UTC revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC
# Line 9  C     | Initialization steps which depen Line 9  C     | Initialization steps which depen
9  C     \==========================================================/  C     \==========================================================/
10        IMPLICIT NONE        IMPLICIT NONE
11    
12    #  ifdef ATM2D_MPI_ON
13    #    include "mpif.h"
14    #  endif
15    
16  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
17  C     == Routine arguments ==  C     == Routine arguments ==
# Line 27  c     CALL tem_cleanup Line 30  c     CALL tem_cleanup
30  #endif  #endif
31    
32  Cmove below somewhere into MITCGM code  Cmove below somewhere into MITCGM code
33  #ifdef MPI_ON  #ifdef ATM2D_MPI_ON
34        CALL MPI_BARRIER( MPI_COMM_WORLD, rc )        CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
35        CALL MPI_FINALIZE(rc)        CALL MPI_FINALIZE(rc)
36  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22