26 |
|
|
27 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
28 |
C == Routine arguments == |
C == Routine arguments == |
29 |
C myThid - Thread number for this instance of the routine. |
C myThid :: my Thread Id. number |
30 |
INTEGER myThid |
INTEGER myThid |
31 |
CEOP |
CEOP |
32 |
|
|
38 |
INTEGER i, j, k, k1, k2, mm, kLev |
INTEGER i, j, k, k1, k2, mm, kLev |
39 |
LOGICAL found |
LOGICAL found |
40 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
41 |
|
CHARACTER*12 suffix |
42 |
|
|
43 |
_BEGIN_MASTER( myThid) |
_BEGIN_MASTER( myThid) |
44 |
|
|
190 |
& 'Set levels for Outp.Stream: ',fnames(ld) |
& 'Set levels for Outp.Stream: ',fnames(ld) |
191 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
192 |
& SQUEEZE_RIGHT, myThid) |
& SQUEEZE_RIGHT, myThid) |
193 |
|
suffix = ' Levels: ' |
194 |
|
IF ( fflags(ld)(2:2).EQ.'I' ) suffix = ' Sum Levels:' |
195 |
DO k1=1,nlevels(ld),20 |
DO k1=1,nlevels(ld),20 |
196 |
k2 = MIN(nlevels(ld),k1+19) |
k2 = MIN(nlevels(ld),k1+19) |
197 |
WRITE(msgBuf,'(A,20F5.0)') |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
& ' Levels: ', (levs(k,ld),k=k1,k2) |
|
198 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
199 |
& SQUEEZE_RIGHT, myThid) |
& SQUEEZE_RIGHT, myThid) |
200 |
ENDDO |
ENDDO |