File indexing completed on 2024-03-02 06:10:37 UTC
view on githubraw file Latest commit 5cf43646 on 2024-03-01 18:50:49 UTC
e01476fa28 Jean*0001 #include "GRDCHK_OPTIONS.h"
2091ce7ee7 Patr*0002
1052c30783 Jean*0003
0004
0005
2091ce7ee7 Patr*0006
1052c30783 Jean*0007
0008 SUBROUTINE GRDCHK_SUMMARY( myThid )
2091ce7ee7 Patr*0009
1052c30783 Jean*0010
0011
0012
0013
0014
2091ce7ee7 Patr*0015
1052c30783 Jean*0016
0017 IMPLICIT NONE
0018
2091ce7ee7 Patr*0019 #include "EEPARAMS.h"
0020 #include "SIZE.h"
444da61630 Mart*0021 #include "GRDCHK.h"
2091ce7ee7 Patr*0022
1052c30783 Jean*0023
0024
0025 INTEGER myThid
2091ce7ee7 Patr*0026
edd57506ae Patr*0027 #ifdef ALLOW_GRDCHK
1052c30783 Jean*0028
0029 INTEGER ILNBLNK
0030 EXTERNAL ILNBLNK
0031
0032
0033 INTEGER iL
0034 CHARACTER*(MAX_LEN_MBUF) msgBuf
0035
0036
0037 _BEGIN_MASTER( myThid )
2091ce7ee7 Patr*0038
5cf4364659 Mart*0039 iL = ILNBLNK( grdchkvarname )
2091ce7ee7 Patr*0040
1052c30783 Jean*0041 WRITE(msgBuf,'(A)') ' '
0042 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0043 & SQUEEZE_RIGHT, myThid )
0044 WRITE(msgBuf,'(A)')
0045 & '// ======================================================='
0046 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0047 & SQUEEZE_RIGHT , myThid )
0048 WRITE(msgBuf,'(A)')
0049 & '// Gradient check configuration >>> START <<<'
0050 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0051 & SQUEEZE_RIGHT, myThid )
0052 WRITE(msgBuf,'(A)')
0053 & '// ======================================================='
0054 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0055 & SQUEEZE_RIGHT, myThid )
0056 WRITE(msgBuf,'(A)') ' '
0057 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0058 & SQUEEZE_RIGHT, myThid )
2091ce7ee7 Patr*0059
1052c30783 Jean*0060 WRITE(msgBuf,'(A,I8)')
0061 & ' grdchkvarindex : ', grdchkvarindex
0062 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0063 & SQUEEZE_RIGHT, myThid )
0064 WRITE(msgBuf,'(3A)')
5cf4364659 Mart*0065 & ' matching CTRL xx_file: "', grdchkvarname(1:iL), '"'
1052c30783 Jean*0066 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0067 & SQUEEZE_RIGHT, myThid )
0068 WRITE(msgBuf,'(A,1PE10.3)')
0069 & ' eps = ', grdchk_eps
0070 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0071 & SQUEEZE_RIGHT, myThid )
0072 WRITE(msgBuf,'(A,I8)')
0073 & ' First location: ', nbeg
0074 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0075 & SQUEEZE_RIGHT, myThid )
0076 WRITE(msgBuf,'(A,I8)')
0077 & ' Last location: ', nend
0078 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0079 & SQUEEZE_RIGHT, myThid )
0080 WRITE(msgBuf,'(A,I8)')
0081 & ' Increment: ', nstep
0082 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0083 & SQUEEZE_RIGHT, myThid )
0084 WRITE(msgBuf,'(A,I8)')
0085 & ' grdchkWhichProc: ', grdchkwhichproc
0086 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0087 & SQUEEZE_RIGHT, myThid )
0088 WRITE(msgBuf,'(2(A,I7))') ' iLocTile =', iLocTile,
0089 & ' , jLocTile =', jLocTile
0090 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0091 & SQUEEZE_RIGHT, myThid )
2091ce7ee7 Patr*0092
1052c30783 Jean*0093 WRITE(msgBuf,'(A)') ' '
0094 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0095 & SQUEEZE_RIGHT , myThid )
0096 WRITE(msgBuf,'(A)')
0097 & '// ======================================================='
0098 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0099 & SQUEEZE_RIGHT, myThid )
0100 WRITE(msgBuf,'(A)')
0101 & '// Gradient check configuration >>> END <<<'
0102 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0103 & SQUEEZE_RIGHT, myThid )
0104 WRITE(msgBuf,'(A)')
0105 & '// ======================================================='
0106 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0107 & SQUEEZE_RIGHT , myThid )
0108 WRITE(msgBuf,'(A)') ' '
0109 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0110 & SQUEEZE_RIGHT, myThid )
2091ce7ee7 Patr*0111
1052c30783 Jean*0112 _END_MASTER( myThid )
2091ce7ee7 Patr*0113
edd57506ae Patr*0114 #endif /* ALLOW_GRDCHK */
2091ce7ee7 Patr*0115
1052c30783 Jean*0116 RETURN
0117 END