pkg/grdchk/grdchk_check.F

9c7e07a4e1 Jean*0001 #include "GRDCHK_OPTIONS.h"
a7eff9e819 Jean*0002 #ifdef ALLOW_CTRL
                0003 # include "CTRL_OPTIONS.h"
                0004 #endif
63499de982 Patr*0005
67b95fe3e2 Jean*0006       SUBROUTINE GRDCHK_CHECK( myThid )
63499de982 Patr*0007
67b95fe3e2 Jean*0008 C     ==================================================================
                0009 C     SUBROUTINE grdchk_check
                0010 C     ==================================================================
                0011 C
                0012 C     o check some gradient check parameter settings for consistency
                0013 C
                0014 C     ==================================================================
                0015 C     SUBROUTINE grdchk_check
                0016 C     ==================================================================
63499de982 Patr*0017
67b95fe3e2 Jean*0018       IMPLICIT NONE
63499de982 Patr*0019
67b95fe3e2 Jean*0020 C     == global variables ==
63499de982 Patr*0021
                0022 #include "EEPARAMS.h"
                0023 #include "SIZE.h"
5cf4364659 Mart*0024 #include "CTRL_SIZE.h"
4d72283393 Mart*0025 #include "CTRL.h"
444da61630 Mart*0026 #ifdef ALLOW_OBCS_CONTROL
                0027 C     CTRL_OBCS.h must be included before GRDCHK.h
                0028 # include "CTRL_OBCS.h"
                0029 #endif
                0030 #include "GRDCHK.h"
63499de982 Patr*0031
67b95fe3e2 Jean*0032 C     == routine arguments ==
                0033       INTEGER myThid
63499de982 Patr*0034
                0035 #ifdef ALLOW_GRDCHK
67b95fe3e2 Jean*0036 C     == local variables ==
                0037 C     msgBuf      - Informational/error message buffer
63499de982 Patr*0038       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0039
67b95fe3e2 Jean*0040 C     == end of interface ==
63499de982 Patr*0041
67b95fe3e2 Jean*0042       WRITE(msgBuf,'(A)') 'GRDCHK_CHECK: grdchk package'
63499de982 Patr*0043       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
1052c30783 Jean*0044      &                    SQUEEZE_RIGHT, myThid )
                0045
5cf4364659 Mart*0046 C--   Set grdchkvarindex (if not already set from reading data.grdchk)
                0047       _BEGIN_MASTER( myThid )
                0048       CALL GRDCHK_CTRL_FNAME( grdchkvarname, grdchkvarindex, myThid )
                0049       _END_MASTER( myThid )
                0050       _BARRIER
                0051
1052c30783 Jean*0052 C--   Summarize the gradient check setup.
                0053       CALL GRDCHK_SUMMARY( myThid )
63499de982 Patr*0054
5cf4364659 Mart*0055       IF ( ncvarindex(grdchkvarindex) .LT. 0 ) THEN
63499de982 Patr*0056          WRITE(msgBuf,'(A,I4)')
                0057      &        'Control variable not enabled for grdchkvarindex = ',
                0058      &        grdchkvarindex
67b95fe3e2 Jean*0059          CALL PRINT_ERROR( msgBuf, myThid )
63499de982 Patr*0060          STOP 'ABNORMAL END: S/R GRDCHK_CHECK'
67b95fe3e2 Jean*0061       ENDIF
63499de982 Patr*0062
                0063 #endif /* ALLOW_GRDCHK */
                0064
67b95fe3e2 Jean*0065       RETURN
                0066       END