pkg/gchem/gchem_check.F

C $Header: $
C $Name:  $
#include "GCHEM_OPTIONS.h"

      SUBROUTINE GCHEM_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE GCHEM_CHECK                                   |
C     | o Validate basic package setup and inter-package         |
C     | dependencies.                                            |
C     \==========================================================/
      IMPLICIT NONE

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

C     === Routine arguments ===
C     myThid -  Number of this instance 
      INTEGER myThid

#ifdef ALLOW_GCHEM

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

      WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &     SQUEEZE_RIGHT , 1)

C     GCHEM needs passive tracer package
      IF ( .NOT.usePTRACERS) THEN
         WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'
         CALL PRINT_ERROR( msgBuf , 1)
         STOP 'ABNORMAL END: S/R GCHEM_CHECK'
      ENDIF

#endif /* ALLOW_GCHEM */

      return
      end
1	C $Header: $
2	C $Name: $
3	#include "GCHEM_OPTIONS.h"
4
5	SUBROUTINE GCHEM_CHECK( myThid )
6	C /==========================================================\
7	C \| SUBROUTINE GCHEM_CHECK \|
8	C \| o Validate basic package setup and inter-package \|
9	C \| dependencies. \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C === Global variables ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "PARAMS.h"
17
18	C === Routine arguments ===
19	C myThid - Number of this instance
20	INTEGER myThid
21
22	#ifdef ALLOW_GCHEM
23
24	C === Local variables ===
25	C msgBuf - Informational/error meesage buffer
26	CHARACTER*(MAX_LEN_MBUF) msgBuf
27
28	WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'
29	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30	& SQUEEZE_RIGHT , 1)
31
32	C GCHEM needs passive tracer package
33	IF ( .NOT.usePTRACERS) THEN
34	WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'
35	CALL PRINT_ERROR( msgBuf , 1)
36	STOP 'ABNORMAL END: S/R GCHEM_CHECK'
37	ENDIF
38
39	#endif /* ALLOW_GCHEM */
40
41	return
42	end