pkg/grdchk/grdchk_check.F

C $Header: /u/gcmpack/MITgcm/pkg/grdchk/grdchk_init.F,v 1.7 2003/10/27 22:32:55 heimbach Exp $

#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 meesage buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

c     == end of interface ==

      WRITE(msgBuf,'(A)') 'CTRL_CHECK: ctrl package'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &     SQUEEZE_RIGHT , 1)

      if ( ncvarindex(grdchkvarindex) .LE. 0 ) then
         WRITE(msgBuf,'(A,I4)')
     &        'Control variable not enabled for grdchkvarindex = ',
     &        grdchkvarindex
         CALL PRINT_ERROR( msgBuf , 1)
         STOP 'ABNORMAL END: S/R GRDCHK_CHECK'
      endif

#endif /* ALLOW_GRDCHK */

      end

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