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

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

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

revision 1.2 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.3 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: PACKAGES_CHECK_ERROR
8    C     !INTERFACE:
9        SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )        SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_CHECK_ERROR                          |  
 C     | o Generate error message due to failed package           |  
 C     |   dependancies check                                     |  
 C     |==========================================================|  
 C     |   This routine is called if use_PKG was true but the CPP |  
 C     |   flows enabling the code were unset                     |  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE PACKAGES_CHECK_ERROR                          
14    C     | o Generate error message due to failed package            
15    C     |   dependancies check                                      
16    C     *==========================================================*
17    C     |   This routine is called if use_PKG was true but the CPP  
18    C     |   flows enabling the code were unset                      
19    C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23          IMPLICIT NONE
24  C     === Global variables ===  C     === Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27    
28    C     !INPUT/OUTPUT PARAMETERS:
29  C     === Routine arguments ===  C     === Routine arguments ===
30  C     myThid -  Number of this instances  C     myThid -  Number of this instances
31        CHARACTER*(*) msg        CHARACTER*(*) msg
32        INTEGER myThid        INTEGER myThid
33    
34    C     !LOCAL VARIABLES:
35  C     === Local variables ===  C     === Local variables ===
36  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
37        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
38    CEOP
39    
40        WRITE(msgBuf,'(A,A,A)')        WRITE(msgBuf,'(A,A,A)')
41       &  'Run-time control flag use_',msg,' was used'       &  'Run-time control flag use_',msg,' was used'
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22