30 |
|
|
31 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
32 |
C === Routine arguments === |
C === Routine arguments === |
33 |
C myThid :: Number of this instances |
C myThid :: my Thread Id number |
34 |
INTEGER myThid |
INTEGER myThid |
35 |
|
|
36 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
39 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
40 |
CEOP |
CEOP |
41 |
|
|
42 |
|
_BEGIN_MASTER(myThid) |
43 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
44 |
&'== Packages configuration : Check & print summary ==' |
&'== Packages configuration : Check & print summary ==' |
45 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
47 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
48 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
49 |
& SQUEEZE_RIGHT, myThid ) |
& SQUEEZE_RIGHT, myThid ) |
50 |
|
_END_MASTER(myThid) |
51 |
|
|
52 |
C--- Start with non-standard packages (without or with non standard flag) |
C--- Start with non-standard packages (without or with non standard flag) |
53 |
|
|
54 |
#ifndef ALLOW_MNC |
#ifndef ALLOW_MNC |
55 |
IF (useMNC) THEN |
IF (useMNC) THEN |
56 |
WRITE(msgBuf,'(2A)') '***WARNING***', |
_BEGIN_MASTER(myThid) |
57 |
|
WRITE(msgBuf,'(2A)') '** WARNING **', |
58 |
& ' PACKAGES_CHECK: useMNC is TRUE' |
& ' PACKAGES_CHECK: useMNC is TRUE' |
59 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
60 |
& SQUEEZE_RIGHT , myThid) |
& SQUEEZE_RIGHT, myThid ) |
61 |
WRITE(msgBuf,'(2A)') '***WARNING***', |
WRITE(msgBuf,'(2A)') '** WARNING **', |
62 |
& ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)' |
& ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)' |
63 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
64 |
& SQUEEZE_RIGHT , myThid) |
& SQUEEZE_RIGHT, myThid ) |
65 |
|
_END_MASTER(myThid) |
66 |
ENDIF |
ENDIF |
67 |
#endif |
#endif |
68 |
|
|
75 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
76 |
& 'Re-compile with pkg "mom_vecinv" in packages.conf' |
& 'Re-compile with pkg "mom_vecinv" in packages.conf' |
77 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
78 |
|
CALL ALL_PROC_DIE( myThid ) |
79 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
80 |
ENDIF |
ENDIF |
81 |
#endif |
#endif |
88 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
89 |
& 'Re-compile with pkg "mom_fluxform" in packages.conf' |
& 'Re-compile with pkg "mom_fluxform" in packages.conf' |
90 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
91 |
|
CALL ALL_PROC_DIE( myThid ) |
92 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
93 |
ENDIF |
ENDIF |
94 |
#endif |
#endif |
102 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
103 |
& 'Re-compile with pkg "generic_advdiff" in packages.conf' |
& 'Re-compile with pkg "generic_advdiff" in packages.conf' |
104 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
105 |
|
CALL ALL_PROC_DIE( myThid ) |
106 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
107 |
ENDIF |
ENDIF |
108 |
#endif |
#endif |
394 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
395 |
& ' but cannot be used together => need to select only one.' |
& ' but cannot be used together => need to select only one.' |
396 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
397 |
|
CALL ALL_PROC_DIE( myThid ) |
398 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
399 |
ENDIF |
ENDIF |
400 |
|
|
406 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
407 |
& ' but cannot be used together => need to select only one.' |
& ' but cannot be used together => need to select only one.' |
408 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
409 |
|
CALL ALL_PROC_DIE( myThid ) |
410 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
411 |
ENDIF |
ENDIF |
412 |
|
|