pkg/gmredi/gmredi_check.F

C $Header: /u/ralf/cvs/ecco_env/pkg/gmredi/gmredi_check.F,v 1.3 2000/11/14 17:21:41 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_PKG_CHECK: #define GMREDI'
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 PACKAGE_CHECK'
       ENDIF

      ENDIF

#endif


      return
      end
1	C $Header: /u/ralf/cvs/ecco_env/pkg/gmredi/gmredi_check.F,v 1.3 2000/11/14 17:21:41 heimbach Exp $
2
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
30	IF (GMRediIsOn) THEN
31
32	WRITE(msgBuf,'(A)') 'GMREDI_PKG_CHECK: #define GMREDI'
33	C GM/Redi needs implicit diffusion (will be packaged later)
34	IF (.NOT.implicitDiffusion) THEN
35	WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'
36	CALL PRINT_ERROR( msgBuf , 1)
37	STOP 'ABNORMAL END: S/R PACKAGE_CHECK'
38	ENDIF
39
40	ENDIF
41
42	#endif
43
44
45	return
46	end