pkg/grdchk/grdchk_summary.F

e01476fa28 Jean*0001 #include "GRDCHK_OPTIONS.h"
2091ce7ee7 Patr*0002
1052c30783 Jean*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C !ROUTINE: GRDCHK_SUMMARY
2091ce7ee7 Patr*0006
1052c30783 Jean*0007 C !INTERFACE:
                0008       SUBROUTINE GRDCHK_SUMMARY( myThid )
2091ce7ee7 Patr*0009
1052c30783 Jean*0010 C     !DESCRIPTION:
                0011 C     o Summarize the settings for doing gradient checks.
                0012 C
                0013 C     started: Christian Eckert eckert@mit.edu 06-Mar-2000
                0014 C     continued: heimbach@mit.edu: 13-Jun-2001
2091ce7ee7 Patr*0015
1052c30783 Jean*0016 C     !USES:
                0017       IMPLICIT NONE
                0018 C     == Global variables ===
2091ce7ee7 Patr*0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
444da61630 Mart*0021 #include "GRDCHK.h"
2091ce7ee7 Patr*0022
1052c30783 Jean*0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     myThid     :: my Thread Id number
                0025       INTEGER myThid
2091ce7ee7 Patr*0026
edd57506ae Patr*0027 #ifdef ALLOW_GRDCHK
1052c30783 Jean*0028 C     !FUNCTIONS:
                0029       INTEGER  ILNBLNK
                0030       EXTERNAL ILNBLNK
                0031
                0032 C     !LOCAL VARIABLES:
                0033       INTEGER iL
                0034       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0035 CEOP
                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