pkg/gchem/gchem_check.F

C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_check.F,v 1.2 2006/08/09 00:50:10 jmc Exp $
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"
#include "GCHEM.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

      _BEGIN_MASTER(myThid)

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

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

C     GCHEM cannot (yet!) run cfc and dic together
      IF ( useDIC .AND. useCFC ) THEN
         WRITE(msgBuf,'(A)') 'useDIC and useCFC cannot both be .TRUE.'
         CALL PRINT_ERROR( msgBuf , myThid )
         STOP 'ABNORMAL END: S/R GCHEM_CHECK'
      ENDIF

      _END_MASTER(myThid)

#endif /* ALLOW_GCHEM */

      RETURN
      END
1	dfer	1.3	C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_check.F,v 1.2 2006/08/09 00:50:10 jmc Exp $
2	mlosch	1.1	C $Name: $
3	dfer	1.3
4	mlosch	1.1	#include "GCHEM_OPTIONS.h"
5
6			SUBROUTINE GCHEM_CHECK( myThid )
7			C /==========================================================\
8			C \| SUBROUTINE GCHEM_CHECK \|
9			C \| o Validate basic package setup and inter-package \|
10			C \| dependencies. \|
11			C \==========================================================/
12			IMPLICIT NONE
13
14			C === Global variables ===
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "PARAMS.h"
18	dfer	1.3	#include "GCHEM.h"
19	mlosch	1.1
20			C === Routine arguments ===
21	jmc	1.2	C myThid - Number of this instance
22	mlosch	1.1	INTEGER myThid
23
24			#ifdef ALLOW_GCHEM
25
26			C === Local variables ===
27			C msgBuf - Informational/error meesage buffer
28			CHARACTER*(MAX_LEN_MBUF) msgBuf
29
30	jmc	1.2	_BEGIN_MASTER(myThid)
31
32	mlosch	1.1	WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'
33			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
34	jmc	1.2	& SQUEEZE_RIGHT , myThid )
35	mlosch	1.1
36			C GCHEM needs passive tracer package
37			IF ( .NOT.usePTRACERS) THEN
38			WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'
39	jmc	1.2	CALL PRINT_ERROR( msgBuf , myThid )
40	mlosch	1.1	STOP 'ABNORMAL END: S/R GCHEM_CHECK'
41			ENDIF
42
43	dfer	1.3	C GCHEM cannot (yet!) run cfc and dic together
44			IF ( useDIC .AND. useCFC ) THEN
45			WRITE(msgBuf,'(A)') 'useDIC and useCFC cannot both be .TRUE.'
46			CALL PRINT_ERROR( msgBuf , myThid )
47			STOP 'ABNORMAL END: S/R GCHEM_CHECK'
48			ENDIF
49
50	jmc	1.2	_END_MASTER(myThid)
51
52	mlosch	1.1	#endif /* ALLOW_GCHEM */
53
54	jmc	1.2	RETURN
55			END