hs94.cs-32x32x5/code/packages_check_error.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_check_error.F,v 1.4 2003/06/12 18:27:20 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_CHECK_ERROR
C     !INTERFACE:
      SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )

C     !DESCRIPTION: \bv
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     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid -  Number of this instances
      CHARACTER*(*) msg
      INTEGER myThid

C     !LOCAL VARIABLES:
C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf
CEOP

      WRITE(msgBuf,'(A,A,A)')
     &  'Run-time control flag use',msg,' was used'
      CALL PRINT_ERROR( msgBuf , 1)
      WRITE(msgBuf,'(A,A,A)') 'when CPP flag ALLOW_',msg,' was unset'
      CALL PRINT_ERROR( msgBuf , 1)
      STOP 'ABNORMAL END: S/R PACKAGE_CHECK_ERROR'

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/packages_check_error.F,v 1.4 2003/06/12 18:27:20 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: PACKAGES_CHECK_ERROR
8	C !INTERFACE:
9	SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )
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 ===
25	#include "SIZE.h"
26	#include "EEPARAMS.h"
27
28	C !INPUT/OUTPUT PARAMETERS:
29	C === Routine arguments ===
30	C myThid - Number of this instances
31	CHARACTER() msg
32	INTEGER myThid
33
34	C !LOCAL VARIABLES:
35	C === Local variables ===
36	C msgBuf - Informational/error meesage buffer
37	CHARACTER*(MAX_LEN_MBUF) msgBuf
38	CEOP
39
40	WRITE(msgBuf,'(A,A,A)')
41	& 'Run-time control flag use',msg,' was used'
42	CALL PRINT_ERROR( msgBuf , 1)
43	WRITE(msgBuf,'(A,A,A)') 'when CPP flag ALLOW_',msg,' was unset'
44	CALL PRINT_ERROR( msgBuf , 1)
45	STOP 'ABNORMAL END: S/R PACKAGE_CHECK_ERROR'
46
47	RETURN
48	END