model/src/packages_error_msg.F

d85d0a6fc1 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: PACKAGES_ERROR_MSG
                0005 C     !INTERFACE:
                0006       SUBROUTINE PACKAGES_ERROR_MSG( msg1, msg2, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE PACKAGES_ERROR_MSG
                0011 C     | o Generate error message due to failed package
                0012 C     |   dependancies check
                0013 C     *==========================================================*
                0014 C     |   This routine is called if use_PKG was true but PKG code
                0015 C     |   was not compiled (#undef ALLOW_KPG)
                0016 C     *==========================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021 C     === Global variables ===
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024
                0025 C     !INPUT/OUTPUT PARAMETERS:
                0026 C     === Routine arguments ===
                0027 C     msg1   ::  package name
                0028 C     msg2   ::  package On/Off flag
                0029 C     myThid ::  My thread Id number
                0030       CHARACTER*(*) msg1, msg2
                0031       INTEGER myThid
                0032
                0033 C     !LOCAL VARIABLES:
                0034 C     === Local variables ===
9217b40136 Jean*0035 C     msgBuf :: Informational/error message buffer
d85d0a6fc1 Jean*0036       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0037       CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc
                0038       INTEGER iLen
                0039 CEOP
                0040
                0041       iLen = LEN(msg1)
                0042       msgLwc(1:iLen) = msg1
                0043       msgUpc(1:iLen) = msg1
                0044       CALL LCASE(msgLwc(1:iLen))
                0045       CALL UCASE(msgUpc(1:iLen))
                0046       IF ( msg2 .EQ. ' ' ) THEN
                0047        WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ',
                0048      &  'run-time control flag use',msg1,' is set'
                0049       ELSE
                0050        WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ',
                0051      &  'run-time parameter ',msg2,' is used'
                0052       ENDIF
                0053       CALL PRINT_ERROR( msgBuf, myThid )
                0054       WRITE(msgBuf,'(5A)') 'but pkg/',msgLwc(1:iLen),
                0055      &  ' was not compiled (ALLOW_',msgUpc(1:iLen),' undef).'
                0056       CALL PRINT_ERROR( msgBuf, myThid )
                0057       WRITE(msgBuf,'(3A)')
                0058      &  '==> Re-compile with pkg "',msgLwc(1:iLen),
                0059      &  '" in file "packages.conf"'
                0060       CALL PRINT_ERROR( msgBuf, myThid )
9217b40136 Jean*0061       CALL ALL_PROC_DIE( myThid )
d85d0a6fc1 Jean*0062       STOP 'ABNORMAL END: S/R PACKAGE_ERROR_MSG'
                0063
                0064       RETURN
                0065       END