File indexing completed on 2018-03-02 18:36:57 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
d85d0a6fc1 Jean*0001 #include "CPP_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE PACKAGES_ERROR_MSG( msg1, msg2, myThid )
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020 IMPLICIT NONE
0021
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
0024
0025
0026
0027
0028
0029
0030 CHARACTER*(*) msg1, msg2
0031 INTEGER myThid
0032
0033
0034
9217b40136 Jean*0035
d85d0a6fc1 Jean*0036 CHARACTER*(MAX_LEN_MBUF) msgBuf
0037 CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc
0038 INTEGER iLen
0039
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