model/src/packages_print_msg.F

e7f4a72d78 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: PACKAGES_PRINT_MSG
                0006 C     !INTERFACE:
                0007       SUBROUTINE PACKAGES_PRINT_MSG( usePKG, pkgName, pkgMsg )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE PACKAGES_PRINT_MSG
                0012 C     | o Print status (used or not) of a compiled package
                0013 C     *==========================================================*
                0014 C     \ev
                0015
                0016 C     !USES:
                0017       IMPLICIT NONE
                0018 C     === Global variables ===
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021
                0022 C     !INPUT/OUTPUT PARAMETERS:
                0023 C     === Routine arguments ===
                0024 C     pkgName ::  package name
                0025 C     pkgMsg  ::  package On/Off flag name
                0026 C     usePKG  ::  package On/Off flag
                0027 C     myThid  ::  My thread Id number
                0028       LOGICAL usePKG
                0029       CHARACTER*(*) pkgName, pkgMsg
                0030 c     INTEGER myThid
                0031
                0032 C     !LOCAL VARIABLES:
                0033 C     === Local variables ===
                0034 C     msgBuf :: Informational/error message buffer
                0035 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0036       CHARACTER*(MAX_LEN_MBUF) pkgLwc
                0037       CHARACTER*(MAX_LEN_MBUF) pkgUse
                0038       CHARACTER*(20) prtFmt
                0039       INTEGER iLen, pLen
                0040       PARAMETER( pLen = 24 )
                0041 CEOP
                0042
                0043       WRITE(pkgLwc,'(A)') ' '
                0044       WRITE(pkgUse,'(A)') ' '
                0045       WRITE(prtFmt,'(A,I2,A)') '(2(A,A', pLen, ',A),L2,A)'
                0046 c     print *, prtFmt
                0047
                0048       iLen = LEN(pkgName)
                0049       pkgLwc(1:iLen+4) = 'pkg/'//pkgName
                0050       CALL LCASE(pkgLwc(1:iLen+4))
                0051
                0052       IF ( pkgMsg .EQ. 'None' ) THEN
                0053         WRITE(standardMessageUnit,prtFmt)
                0054      &   ' ', pkgLwc(1:pLen), ' compiled   ( used ? )'
                0055         RETURN
                0056       ELSEIF ( pkgMsg .EQ. 'Used' ) THEN
                0057         WRITE(standardMessageUnit,prtFmt)
                0058      &   ' ', pkgLwc(1:pLen), ' compiled   and   used'
                0059         RETURN
                0060       ENDIF
                0061
                0062       IF ( pkgMsg .EQ. ' ' ) THEN
                0063         pkgUse(1:iLen+3) = 'use'//pkgName
                0064       ELSE
                0065         iLen = LEN(pkgMsg)
                0066         pkgUse(1:iLen) = pkgMsg
                0067       ENDIF
                0068       IF ( usePKG ) THEN
                0069         WRITE(standardMessageUnit,prtFmt)
                0070      &   ' ', pkgLwc(1:pLen), ' compiled   and   used',
                0071      &   ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
                0072       ELSE
                0073         WRITE(standardMessageUnit,prtFmt)
                0074      &   ' ', pkgLwc(1:pLen), ' compiled but not used',
                0075      &   ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
                0076       ENDIF
                0077
                0078       RETURN
                0079       END