pkg/gmredi/gmredi_check.F

C $Header: /u/gcmpack/models/MITgcmUV/pkg/gmredi/gmredi_check.F,v 1.2 2001/01/29 20:07:39 heimbach Exp $

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