model/src/packages_check_error.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check_error.F,v 1.2 2001/02/04 14:38:48 cnh 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	cnh	1.3	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check_error.F,v 1.2 2001/02/04 14:38:48 cnh Exp $
2			C $Name: $
3	heimbach	1.1
4			#include "CPP_OPTIONS.h"
5
6	cnh	1.3	CBOP
7			C !ROUTINE: PACKAGES_CHECK_ERROR
8			C !INTERFACE:
9	heimbach	1.1	SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )
10	cnh	1.3
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	heimbach	1.1	IMPLICIT NONE
24			C === Global variables ===
25			#include "SIZE.h"
26			#include "EEPARAMS.h"
27
28	cnh	1.3	C !INPUT/OUTPUT PARAMETERS:
29	heimbach	1.1	C === Routine arguments ===
30			C myThid - Number of this instances
31			CHARACTER() msg
32			INTEGER myThid
33
34	cnh	1.3	C !LOCAL VARIABLES:
35	heimbach	1.1	C === Local variables ===
36			C msgBuf - Informational/error meesage buffer
37			CHARACTER*(MAX_LEN_MBUF) msgBuf
38	cnh	1.3	CEOP
39	heimbach	1.1
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