pkg/grdchk/grdchk_check.F

C $Header: /u/gcmpack/MITgcm/pkg/grdchk/grdchk_check.F,v 1.2 2007/10/09 00:05:45 jmc Exp $
C $Name:  $

#include "CTRL_CPPOPTIONS.h"


      SUBROUTINE GRDCHK_CHECK( myThid )

C     ==================================================================
C     SUBROUTINE grdchk_check
C     ==================================================================
C
C     o check some gradient check parameter settings for consistency
C
C     ==================================================================
C     SUBROUTINE grdchk_check
C     ==================================================================

      IMPLICIT NONE

C     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "GRID.h"
#include "ctrl.h"
#include "grdchk.h"

C     == routine arguments ==

      INTEGER myThid

#ifdef ALLOW_GRDCHK
C     == local variables ==

C     msgBuf      - Informational/error message buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

C     == end of interface ==

      WRITE(msgBuf,'(A)') 'GRDCHK_CHECK: grdchk package'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &     SQUEEZE_RIGHT, myThid )

      IF ( ncvarindex(grdchkvarindex) .LE. 0 ) THEN
         WRITE(msgBuf,'(A,I4)')
     &        'Control variable not enabled for grdchkvarindex = ',
     &        grdchkvarindex
         CALL PRINT_ERROR( msgBuf, myThid )
         STOP 'ABNORMAL END: S/R GRDCHK_CHECK'
      ENDIF

#endif /* ALLOW_GRDCHK */

      RETURN
      END
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/grdchk/grdchk_check.F,v 1.2 2007/10/09 00:05:45 jmc Exp $
2	jmc	1.2	C $Name: $
3	heimbach	1.1
4			#include "CTRL_CPPOPTIONS.h"
5
6
7	jmc	1.3	SUBROUTINE GRDCHK_CHECK( myThid )
8	heimbach	1.1
9	jmc	1.3	C ==================================================================
10			C SUBROUTINE grdchk_check
11			C ==================================================================
12			C
13			C o check some gradient check parameter settings for consistency
14			C
15			C ==================================================================
16			C SUBROUTINE grdchk_check
17			C ==================================================================
18	heimbach	1.1
19	jmc	1.3	IMPLICIT NONE
20	heimbach	1.1
21	jmc	1.3	C == global variables ==
22	heimbach	1.1
23			#include "EEPARAMS.h"
24			#include "SIZE.h"
25			#include "GRID.h"
26			#include "ctrl.h"
27			#include "grdchk.h"
28
29	jmc	1.3	C == routine arguments ==
30	heimbach	1.1
31	jmc	1.3	INTEGER myThid
32	heimbach	1.1
33			#ifdef ALLOW_GRDCHK
34	jmc	1.3	C == local variables ==
35	heimbach	1.1
36	jmc	1.3	C msgBuf - Informational/error message buffer
37	heimbach	1.1	CHARACTER*(MAX_LEN_MBUF) msgBuf
38
39	jmc	1.3	C == end of interface ==
40	heimbach	1.1
41	jmc	1.3	WRITE(msgBuf,'(A)') 'GRDCHK_CHECK: grdchk package'
42	heimbach	1.1	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
43	jmc	1.3	& SQUEEZE_RIGHT, myThid )
44	heimbach	1.1
45	jmc	1.3	IF ( ncvarindex(grdchkvarindex) .LE. 0 ) THEN
46	heimbach	1.1	WRITE(msgBuf,'(A,I4)')
47			& 'Control variable not enabled for grdchkvarindex = ',
48			& grdchkvarindex
49	jmc	1.3	CALL PRINT_ERROR( msgBuf, myThid )
50	heimbach	1.1	STOP 'ABNORMAL END: S/R GRDCHK_CHECK'
51	jmc	1.3	ENDIF
52	heimbach	1.1
53			#endif /* ALLOW_GRDCHK */
54
55	jmc	1.3	RETURN
56			END