/[MITgcm]/MITgcm/eesupp/src/eedie.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eedie.F

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

revision 1.7 by jmc, Mon Dec 15 02:02:39 2003 UTC revision 1.8 by ce107, Thu Dec 22 00:56:49 2005 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    #ifdef USE_LIBHPM
6    # include "f_hpm.h"
7    #endif
8    
9  CStartOfInterface  CStartOfInterface
10        SUBROUTINE EEDIE        SUBROUTINE EEDIE
# Line 58  C     bug or you may need a different pa Line 61  C     bug or you may need a different pa
61         fatalError = .TRUE.         fatalError = .TRUE.
62        ENDIF        ENDIF
63    
64    #ifdef USE_LIBHPM
65          CALL F_HPMTERMINATE(myProcId)
66    #endif
67  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
68  C--  C--
69  C--   MPI style multiple-process termination  C--   MPI style multiple-process termination
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22