model/src/packages_check_error.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check_error.F,v 1.1 2000/09/11 20:42:57 heimbach Exp $
C $Name: $

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