pkg/gmredi/gmredi_check.F

C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/gmredi_check.F,v 1.3 2001/02/02 21:36:29 adcroft Exp $
C $Name: $

#include "CPP_OPTIONS.h"

      SUBROUTINE GMREDI_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE GMREDI_CHECK                                  |
C     | o Check dependances with other packages                  |
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

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

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

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


#ifdef ALLOW_GMREDI
      IF (GMRediIsOn) THEN

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

C      GM/Redi needs implicit diffusion (will be packaged later)
       IF (.NOT.implicitDiffusion) THEN
        WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'
        CALL PRINT_ERROR( msgBuf , 1)
        STOP 'ABNORMAL END: S/R GMREDI_CHECK'
       ENDIF

      ENDIF

#endif
      RETURN
      END
1	cnh	1.4	C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/gmredi_check.F,v 1.3 2001/02/02 21:36:29 adcroft Exp $
2			C $Name: $
3	heimbach	1.1
4			#include "CPP_OPTIONS.h"
5
6			SUBROUTINE GMREDI_CHECK( myThid )
7			C /==========================================================\
8			C \| SUBROUTINE GMREDI_CHECK \|
9			C \| o Check dependances with other packages \|
10			C \|==========================================================\|
11			C \==========================================================/
12			IMPLICIT NONE
13
14			C === Global variables ===
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "PARAMS.h"
18			#include "GMREDI.h"
19
20			C === Routine arguments ===
21			C myThid - Number of this instances
22			INTEGER myThid
23
24			C === Local variables ===
25			C msgBuf - Informational/error meesage buffer
26			CHARACTER*(MAX_LEN_MBUF) msgBuf
27
28
29			#ifdef ALLOW_GMREDI
30	adcroft	1.3	IF (GMRediIsOn) THEN
31	heimbach	1.1
32	adcroft	1.3	WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI'
33			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
34			& SQUEEZE_RIGHT , 1)
35	heimbach	1.1
36			C GM/Redi needs implicit diffusion (will be packaged later)
37			IF (.NOT.implicitDiffusion) THEN
38			WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'
39			CALL PRINT_ERROR( msgBuf , 1)
40	adcroft	1.3	STOP 'ABNORMAL END: S/R GMREDI_CHECK'
41	heimbach	1.1	ENDIF
42
43			ENDIF
44
45			#endif
46	adcroft	1.3	RETURN
47			END