File indexing completed on 2024-03-02 06:10:36 UTC
view on githubraw file Latest commit 5cf43646 on 2024-03-01 18:50:49 UTC
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
0009
0010
0011
0012
0013
0014
0015
0016
63499de982 Patr*0017
67b95fe3e2 Jean*0018 IMPLICIT NONE
63499de982 Patr*0019
67b95fe3e2 Jean*0020
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
0028 # include "CTRL_OBCS.h"
0029 #endif
0030 #include "GRDCHK.h"
63499de982 Patr*0031
67b95fe3e2 Jean*0032
0033 INTEGER myThid
63499de982 Patr*0034
0035 #ifdef ALLOW_GRDCHK
67b95fe3e2 Jean*0036
0037
63499de982 Patr*0038 CHARACTER*(MAX_LEN_MBUF) msgBuf
0039
67b95fe3e2 Jean*0040
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
0047 _BEGIN_MASTER( myThid )
0048 CALL GRDCHK_CTRL_FNAME( grdchkvarname, grdchkvarindex, myThid )
0049 _END_MASTER( myThid )
0050 _BARRIER
0051
1052c30783 Jean*0052
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