pkg/ecco/ecco_summary.F

b9be1e51ef Jean*0001 #include "ECCO_OPTIONS.h"
5001c65f45 Patr*0002
d4b64b229a Jean*0003       SUBROUTINE ECCO_SUMMARY( myThid )
5001c65f45 Patr*0004
                0005 c     ==================================================================
92d10a5666 Gael*0006 c     SUBROUTINE ecco_summary
5001c65f45 Patr*0007 c     ==================================================================
                0008 c
                0009 c     o Summarize the setup of the ECCO release.
                0010 c
                0011 c     ==================================================================
92d10a5666 Gael*0012 c     SUBROUTINE ecco_summary
5001c65f45 Patr*0013 c     ==================================================================
                0014
d4b64b229a Jean*0015       IMPLICIT NONE
5001c65f45 Patr*0016
                0017 c     == global variables ==
                0018 #include "EEPARAMS.h"
49484c0542 Gael*0019 #include "SIZE.h"
13d362b8c1 Ou W*0020 #include "ECCO_SIZE.h"
                0021 #include "ECCO.h"
5001c65f45 Patr*0022
                0023 c     == routine arguments ==
d4b64b229a Jean*0024 c     myThid  :: my Thread Id number
                0025       INTEGER myThid
5001c65f45 Patr*0026
d4b64b229a Jean*0027 c     == external ==
92d10a5666 Gael*0028 #ifdef ALLOW_GENCOST_CONTRIBUTION
d4b64b229a Jean*0029       INTEGER  ILNBLNK
                0030       EXTERNAL ILNBLNK
92d10a5666 Gael*0031 #endif
5001c65f45 Patr*0032
d4b64b229a Jean*0033 c     == local variables ==
                0034       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0035       INTEGER msgUnit
                0036 #ifdef ALLOW_GENCOST_CONTRIBUTION
                0037       INTEGER k, k2, il
                0038 #endif
92d10a5666 Gael*0039
5001c65f45 Patr*0040 c     == end of interface ==
                0041
d4b64b229a Jean*0042       msgUnit = standardMessageUnit
                0043       WRITE(msgBuf,'(A)') ' '
                0044       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0045       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0046      &'// ======================================================='
d4b64b229a Jean*0047       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0048       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0049      &'// ECCO configuration >>> START <<<'
d4b64b229a Jean*0050       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0051       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0052      &'// ======================================================='
d4b64b229a Jean*0053       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0054
                0055       WRITE(msgBuf,'(A)') ' '
                0056       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
92d10a5666 Gael*0057
                0058 #ifdef ALLOW_GENCOST_CONTRIBUTION
d4b64b229a Jean*0059       DO k = 1, NGENCOST
                0060        IF (using_gencost(k)) THEN
                0061
                0062         il = ILNBLNK(gencost_name(k))
                0063         WRITE(msgBuf,'(A,I2,2A)') 'gencost(',k,
92d10a5666 Gael*0064      &        ') = ',gencost_name(k)(1:il)
d4b64b229a Jean*0065         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0066         WRITE(msgBuf,'(A)') '-------------'
                0067         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0068
                0069         IF ( gencost_datafile(k) .NE. ' ' ) THEN
                0070          il = ILNBLNK(gencost_datafile(k))
                0071          WRITE(msgBuf,'(2A)') ' data file = ',gencost_datafile(k)(1:il)
                0072          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0073         ENDIF
                0074
                0075         IF (gencost_nrec(k).GT.1) THEN
                0076          WRITE(msgBuf,'(A)') '  starts and ends at : '
                0077          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0078          CALL CAL_PRINTDATE( gencost_startdate(1,k), myThid )
                0079          CALL CAL_PRINTDATE( gencost_enddate(1,k), myThid )
                0080          WRITE(msgBuf,'(A,I5)') '  number of records = ',
                0081      &                           gencost_nrec(k)
                0082          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0083         ENDIF
                0084
                0085         il = ILNBLNK(gencost_barfile(k))
                0086         WRITE(msgBuf,'(2A)') ' model file = ',gencost_barfile(k)(1:il)
                0087         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0088         IF ((gencost_barfile(k)(1:9).EQ.'m_ptracer').OR.
                0089      &      (gencost_barfile(k)(1:17).EQ.'m_boxmean_ptracer')) THEN
                0090          WRITE(msgBuf,'(A,I2)') ' gencost_itracer = ',
                0091      &         gencost_itracer(k)
                0092          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0093         ENDIF
                0094         il = ILNBLNK(gencost_errfile(k))
                0095         WRITE(msgBuf,'(2A)') ' error file = ',gencost_errfile(k)(1:il)
                0096         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0097         IF (gencost_scalefile(k).NE.' ') THEN
                0098          il = ILNBLNK(gencost_scalefile(k))
                0099          WRITE(msgBuf,'(2A)') ' scale file = ',
92d10a5666 Gael*0100      &        gencost_scalefile(k)(1:il)
d4b64b229a Jean*0101          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0102         ENDIF
                0103         DO k2 = 1, NGENPPROC
                0104          IF (gencost_preproc(k2,k).NE.' ') THEN
                0105           il = ILNBLNK(gencost_preproc(k2,k))
                0106           WRITE(msgBuf,'(2A)') ' preprocess = ',
                0107      &                          gencost_preproc(k2,k)(1:il)
                0108           CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0109          ENDIF
                0110          IF (gencost_posproc(k2,k).NE.' ') THEN
                0111           il = ILNBLNK(gencost_posproc(k2,k))
                0112           WRITE(msgBuf,'(2A)') ' posprocess = ',
                0113      &                          gencost_posproc(k2,k)(1:il)
                0114           CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0115          ENDIF
                0116         ENDDO
                0117
                0118         WRITE(msgBuf,'(A,I2)') ' gencost_flag = ',gencost_flag(k)
                0119         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0120         WRITE(msgBuf,'(A,I2)') ' gencost_outputlevel = ',
                0121      &        gencost_outputlevel(k)
                0122         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0123         WRITE(msgBuf,'(A,I2)') ' gencost_kLev_select = ',
                0124      &        gencost_kLev_select(k)
                0125         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0126
                0127         IF (gencost_is3d(k)) THEN
                0128          WRITE(msgBuf,'(A,I2)') ' gencost_pointer3d = ',
37a2578dc5 Gael*0129      &         gencost_pointer3d(k)
d4b64b229a Jean*0130          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0131         ENDIF
                0132         IF (gencost_timevaryweight(k)) THEN
                0133          WRITE(msgBuf,'(A,L2)') ' time varia. weight = ',
37a2578dc5 Gael*0134      &         gencost_timevaryweight(k)
d4b64b229a Jean*0135          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0136         ENDIF
                0137         IF (gencost_barskip(k)) THEN
                0138          WRITE(msgBuf,'(A,L2)') ' skip barfile WRITE = ',
37a2578dc5 Gael*0139      &         gencost_barskip(k)
d4b64b229a Jean*0140          CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0141         ENDIF
92d10a5666 Gael*0142
d4b64b229a Jean*0143         WRITE(msgBuf,'(A)') ' '
                0144         CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0145
                0146        ENDIF
                0147       ENDDO
92d10a5666 Gael*0148 c--
                0149 #endif /* ALLOW_GENCOST_CONTRIBUTION */
5001c65f45 Patr*0150
d4b64b229a Jean*0151       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0152      &'// ======================================================='
d4b64b229a Jean*0153       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0154       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0155      &'// ECCO configuration  >>> END <<<'
d4b64b229a Jean*0156       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0157       WRITE(msgBuf,'(A)')
5001c65f45 Patr*0158      &'// ======================================================='
d4b64b229a Jean*0159       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
                0160       WRITE(msgBuf,'(A)') ' '
                0161       CALL PRINT_MESSAGE( msgBuf, msgUnit, SQUEEZE_RIGHT, myThid )
5001c65f45 Patr*0162
5d58d66136 Jean*0163       RETURN
                0164       END