model/src/packages_check_error.F

C $Header: /u/gcmpack/development/heimbach/ecco_env/model/src/packages_check_error.F,v 1.1 2000/08/31 20:47:06 heimbach Exp $

#include "CPP_OPTIONS.h"

      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

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     === Routine arguments ===
C     myThid -  Number of this instances
      CHARACTER*(*) msg
      INTEGER myThid

C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      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/development/heimbach/ecco_env/model/src/packages_check_error.F,v 1.1 2000/08/31 20:47:06 heimbach Exp $
2
3	#include "CPP_OPTIONS.h"
4
5	SUBROUTINE PACKAGES_CHECK_ERROR( msg, myThid )
6	C /==========================================================\
7	C \| SUBROUTINE PACKAGES_CHECK_ERROR \|
8	C \| o Generate error message due to failed package \|
9	C \| dependancies check \|
10	C \|==========================================================\|
11	C \| This routine is called if use_PKG was true but the CPP \|
12	C \| flows enabling the code were unset \|
13	C \==========================================================/
14	IMPLICIT NONE
15
16	C === Global variables ===
17	#include "SIZE.h"
18	#include "EEPARAMS.h"
19
20	C === Routine arguments ===
21	C myThid - Number of this instances
22	CHARACTER() msg
23	INTEGER myThid
24
25	C === Local variables ===
26	C msgBuf - Informational/error meesage buffer
27	CHARACTER*(MAX_LEN_MBUF) msgBuf
28
29	WRITE(msgBuf,'(A,A,A)')
30	& 'Run-time control flag use_',msg,' was used'
31	CALL PRINT_ERROR( msgBuf , 1)
32	WRITE(msgBuf,'(A,A,A)') 'when CPP flag ALLOW_',msg,' was unset'
33	CALL PRINT_ERROR( msgBuf , 1)
34	STOP 'ABNORMAL END: S/R PACKAGE_CHECK_ERROR'
35
36	return
37	end