/[MITgcm]/MITgcm/model/src/packages_error_msg.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_error_msg.F

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

revision 1.1 by jmc, Sat Apr 28 00:15:11 2007 UTC revision 1.2 by jmc, Mon Apr 2 21:31:06 2012 UTC
# Line 35  C     myThid ::  My thread Id number Line 35  C     myThid ::  My thread Id number
35    
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     === Local variables ===  C     === Local variables ===
38  C     msgBuf :: Informational/error meesage buffer  C     msgBuf :: Informational/error message buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40        CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc        CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc
41        INTEGER iLen        INTEGER iLen
# Line 61  CEOP Line 61  CEOP
61       &  '==> Re-compile with pkg "',msgLwc(1:iLen),       &  '==> Re-compile with pkg "',msgLwc(1:iLen),
62       &  '" in file "packages.conf"'       &  '" in file "packages.conf"'
63        CALL PRINT_ERROR( msgBuf, myThid )        CALL PRINT_ERROR( msgBuf, myThid )
64          CALL ALL_PROC_DIE( myThid )
65        STOP 'ABNORMAL END: S/R PACKAGE_ERROR_MSG'        STOP 'ABNORMAL END: S/R PACKAGE_ERROR_MSG'
66    
67        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22